Furey: oops, new -> newer

2024-07-02T23:49:56Z

oops, new -> newer

Furey: Delete link-to-particular-source instructions. Source code covers that now. "the latest release" -> "newer releases".

2024-07-02T23:49:32Z

Delete link-to-particular-source instructions. Source code covers that now. "the latest release" -> "newer releases".

Kernigh bot: NetHack 2.2a/dothrow.c moved to Source:NetHack 2.2a/dothrow.c: Robot: moved page

2008-03-04T02:03:35Z

NetHack 2.2a/dothrow.c moved to Source:NetHack 2.2a/dothrow.c: Robot: moved page

Jaytbot: Automated source code upload

2006-09-14T23:14:46Z

Automated source code upload

New page

Below is the full text to '''dothrow.c''' from the [[NetHack 2.2a source code|source code]] of [[NetHack 2.2a]]. To link to a particular line, write [[NetHack 2.2a/dothrow.c#line123|<nowiki>[[NetHack 2.2a/dothrow.c#line123]]</nowiki>]], for example.

'''Warning!''' This is the source code from an old release. For the latest release, see [[Source code]]

{{CWI}}
1. /* SCCS Id: @(#)dothrow.c 2.1 87/11/01
2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3. /* dothrow.c - version 1.0 */
4. 
5. /* Contains code for 't' (throw) */
6. 
7. #include "hack.h"
8. 
9. extern struct obj *splitobj(), *addinv();
10. extern boolean hmon();
11. extern struct monst youmonst;
12. extern char *Doname();
13. #ifdef KAA
14. extern char *xname();
15. #endif
16. 
17. struct monst *bhit(), *boomhit();
18. dothrow()
19. {
20. register struct obj *obj;
21. 
22. obj = getobj("#)", "throw"); /* it is also possible to throw food */
23. /* (or jewels, or iron balls ... ) */
24. if(!obj || !getdir(1)) /* ask "in what direction?" */
25. return(0);
26. if(obj->owornmask & (W_ARMOR | W_RING)){
27. pline("You can't throw something you are wearing.");
28. return(0);
29. }
30. #ifdef KAA
31. if(obj->otyp == ENORMOUS_ROCK && u.usym != '9') {
32. pline("It's too heavy.");
33. return(1);
34. }
35. if(!u.dx && !u.dy && !u.dz) {
36. pline("You cannot throw an object at yourself.");
37. return(0);
38. }
39. #endif
40. u_wipe_engr(2);
41. 
42. if(obj == uwep){
43. if(obj->cursed){
44. pline("Your weapon is welded to your hand.");
45. return(1);
46. }
47. if(obj->quan > 1)
48. setuwep(splitobj(obj, 1));
49. else
50. setuwep((struct obj *) 0);
51. }
52. else if(obj->quan > 1)
53. (void) splitobj(obj, 1);
54. freeinv(obj);
55. return(throwit(obj));
56. }
57. 
58. throwit(obj)
59. register struct obj *obj;
60. {
61. register struct monst *mon;
62. 
63. if(u.uswallow) {
64. mon = u.ustuck;
65. bhitpos.x = mon->mx;
66. bhitpos.y = mon->my;
67. } else if(u.dz) {
68. if(u.dz < 0) {
69. pline("%s hits the ceiling, then falls back on top of your head.",
70. Doname(obj)); /* note: obj->quan == 1 */
71. if(obj->olet == POTION_SYM)
72. potionhit(&youmonst, obj);
73. else {
74. if(uarmh) pline("Fortunately, you are wearing a helmet!");
75. losehp(uarmh ? 1 : rnd((int)(obj->owt)), "falling object");
76. dropy(obj);
77. }
78. } else hitfloor(obj);
79. return(1);
80. 
81. } else if(obj->otyp == BOOMERANG) {
82. mon = boomhit(u.dx, u.dy);
83. if(mon == &youmonst) { /* the thing was caught */
84. (void) addinv(obj);
85. return(1);
86. }
87. } else {
88. if(obj->otyp == PICK_AXE && shkcatch(obj))
89. return(1);
90. 
91. mon = bhit(u.dx, u.dy, (obj->otyp == ICE_BOX) ? 1 :
92. (!Punished || obj != uball) ? 8 : !u.ustuck ? 5 : 1,
93. obj->olet,
94. (int (*)()) 0, (int (*)()) 0, obj);
95. }
96. if(mon) {
97. /* awake monster if sleeping */
98. wakeup(mon);
99. if(thitmonst(mon, obj)) return(1);
100. }
101. if(!u.uswallow) {
102. /* the code following might become part of dropy() */
103. if(obj->otyp == CRYSKNIFE)
104. obj->otyp = WORM_TOOTH;
105. obj->ox = bhitpos.x;
106. obj->oy = bhitpos.y;
107. obj->nobj = fobj;
108. fobj = obj;
109. /* prevent him from throwing articles to the exit and escaping */
110. /* subfrombill(obj); */
111. stackobj(obj);
112. if(Punished && obj == uball &&
113. (bhitpos.x != u.ux || bhitpos.y != u.uy)){
114. freeobj(uchain);
115. unpobj(uchain);
116. if(u.utrap){
117. if(u.utraptype == TT_PIT)
118. pline("The ball pulls you out of the pit!");
119. #ifdef SPIDERS
120. else if(u.utraptype == TT_WEB) {
121. pline("The ball pulls you out of the web!");
122. pline("The web is destroyed!");
123. deltrap(t_at(u.ux,u.uy));
124. }
125. #endif
126. else {
127. register long side =
128. rn2(3) ? LEFT_SIDE : RIGHT_SIDE;
129. pline("The ball pulls you out of the bear trap.");
130. pline("Your %s leg is severely damaged.",
131. (side == LEFT_SIDE) ? "left" : "right"); set_wounded_legs(side, 500+rn2(1000));
132. losehp(2, "thrown ball");
133. }
134. u.utrap = 0;
135. } 
136. unsee();
137. uchain->nobj = fobj;
138. fobj = uchain;
139. u.ux = uchain->ox = bhitpos.x - u.dx;
140. u.uy = uchain->oy = bhitpos.y - u.dy;
141. setsee();
142. (void) inshop();
143. }
144. if(cansee(bhitpos.x, bhitpos.y)) prl(bhitpos.x,bhitpos.y);
145. } else 
146. mpickobj(u.ustuck,obj);
147. return(1);
148. }
149. 
150. hitfloor(obj)
151. register struct obj *obj;
152. {
153. pline("%s hits the floor.", Doname(obj));
154. if(obj->otyp == EXPENSIVE_CAMERA) {
155. pline("It is shattered in a thousand pieces!");
156. obfree(obj, Null(obj));
157. #ifdef RPH
158. } else if(obj->otyp == MIRROR) {
159. pline ("The mirror shatters. That's seven years bad luck!");
160. obfree(obj, Null(obj));
161. u.uluck -= 2;
162. if ((int)u.uluck < LUCKMIN) u.uluck = LUCKMIN;
163. #endif 
164. } else if(obj->otyp == EGG) {
165. pline("\"Splash!\"");
166. obfree(obj, Null(obj));
167. #ifdef KAA
168. } else if(obj->otyp == CREAM_PIE) {
169. pline("What a mess!");
170. obfree(obj, Null(obj));
171. #endif
172. } else if(obj->olet == POTION_SYM) {
173. pline("The flask breaks, and you smell a peculiar odor ...");
174. potionbreathe(obj);
175. obfree(obj, Null(obj));
176. } else
177. dropy(obj);
178. }
179. 
180. thitmonst(mon, obj)
181. register struct monst *mon;
182. register struct obj *obj;
183. {
184. register int tmp;
185. 
186. if(obj->olet == WEAPON_SYM) {
187. tmp = -1+u.ulevel+mon->data->ac+abon();
188. if(obj->otyp < DART) {
189. if(!uwep ||
190. uwep->otyp != obj->otyp+(BOW-ARROW))
191. tmp -= 4;
192. else {
193. tmp += uwep->spe;
194. }
195. } else
196. if(obj->otyp == BOOMERANG) tmp += 4;
197. tmp += obj->spe;
198. if(u.uswallow || tmp >= rnd(20)) {
199. if(hmon(mon,obj,1) == TRUE){
200. /* mon still alive */
201. #ifndef NOWORM
202. cutworm(mon,bhitpos.x,bhitpos.y,obj->otyp);
203. #endif
204. } else mon = 0;
205. /* weapons thrown disappear sometimes */
206. if(obj->otyp < BOOMERANG && rn2(3)) {
207. /* check bill; free */
208. obfree(obj, (struct obj *) 0);
209. return(1);
210. }
211. } else miss(objects[obj->otyp].oc_name, mon);
212. } else if(obj->otyp == HEAVY_IRON_BALL) {
213. tmp = -1+u.ulevel+mon->data->ac+abon();
214. if(!Punished || obj != uball) tmp += 2;
215. if(u.utrap) tmp -= 2;
216. if(u.uswallow || tmp >= rnd(20)) {
217. if(hmon(mon,obj,1) == FALSE)
218. mon = 0; /* he died */
219. } else miss("iron ball", mon);
220. #ifdef KAA
221. } else if (obj->otyp == ENORMOUS_ROCK) {
222. tmp = 15+mon->data->ac; /* Very likely to hit! */
223. if (hmon(mon, obj, 1) == FALSE) mon=0;
224. else miss("enormous rock",mon);
225. } else if(obj->otyp == CREAM_PIE &&
226. (u.ulevel > rn2(10)) || u.ustuck == mon) {
227. pline("The cream pie splashes over %s%s!",monnam(mon),
228. index("aEfgy",mon->data->mlet) ? "" : "'s face");
229. obfree(obj, (struct obj *) 0);
230. if(mon->msleep) mon->msleep = 0;
231. setmangry(mon);
232. mon->mcansee = 0;
233. mon->mblinded += rnd(25);
234. if (mon->mblinded <= 0) mon->mblinded = 127;
235. return(1);
236. #endif
237. } else if(obj->olet == POTION_SYM && u.ulevel > rn2(15)) {
238. potionhit(mon, obj);
239. return(1);
240. } else {
241. pline("The %s misses %s.",xname(obj), 
242. cansee(bhitpos.x,bhitpos.y) ? monnam(mon) : "it");
243. 
244. if(obj->olet == FOOD_SYM && mon->data->mlet == 'd')
245. if(tamedog(mon,obj)) return(1);
246. if(obj->olet == GEM_SYM && mon->data->mlet == 'u' &&
247. !mon->mtame){
248. char buf[BUFSZ];
249. char *nogood = " is not interested in your junk.";
250. char *addluck = " graciously accepts your gift.";
251. 
252. strcpy(buf,Monnam(mon));
253. 
254. if(obj->dknown &&
255. objects[obj->otyp].oc_name_known) {
256. if(objects[obj->otyp].g_val > 0) {
257. u.uluck += 5;
258. strcat(buf,addluck);
259. } else
260. strcat(buf,nogood);
261. } else { /* value unknown to @ */
262. u.uluck++;
263. strcat(buf,addluck);
264. }
265. if(u.uluck > LUCKMAX) /* dan@ut-ngp */
266. u.uluck = LUCKMAX;
267. pline(buf);
268. mpickobj(mon, obj);
269. rloc(mon);
270. return(1);
271. }
272. }
273. return(0);
274. }
[[Category:NetHack 2.2a source code|dothrow.c]]

@@ Line 1: / Line 1: @@
 Below is the full text to '''dothrow.c''' from the [[NetHack 2.2a source code|source code]] of [[NetHack 2.2a]].
-'''Warning!''' This is the source code from an old release. For new releases, see [[Source code]]
+'''Warning!''' This is the source code from an old release. For newer releases, see [[Source code]]
 {{CWI}}

← Older revision	Revision as of 02:03, 4 March 2008
(No difference)

Source:NetHack 2.2a/dothrow.c - Revision history

Furey: oops, new -> newer

Furey: Delete link-to-particular-source instructions. Source code covers that now. "the latest release" -> "newer releases".

Kernigh bot: NetHack 2.2a/dothrow.c moved to Source:NetHack 2.2a/dothrow.c: Robot: moved page

Jaytbot: Automated source code upload