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

2024-06-29T20:34:44Z

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

Kernigh bot: Hack 1.0/hack.trap.c moved to Source:Hack 1.0/hack.trap.c: Robot: moved page

2008-03-03T22:42:04Z

Hack 1.0/hack.trap.c moved to Source:Hack 1.0/hack.trap.c: Robot: moved page

Jaytbot: Automated source code upload

2006-08-29T20:35:26Z

Automated source code upload

New page

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

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

{{CWI}}
1. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1984. */
2. 
3. #include "hack.h"
4. #include "def.trap.h"
5. 
6. extern struct monst *makemon();
7. 
8. char vowels[] = "aeiou";
9. 
10. char *traps[] = {
11. " bear trap",
12. "n arrow trap",
13. " dart trap",
14. " trapdoor",
15. " teleportation trap",
16. " pit",
17. " sleeping gas trap",
18. " piercer",
19. " mimic"
20. };
21. 
22. dotrap(trap) register struct gen *trap; {
23. nomul(0);
24. if(trap->gflag&SEEN && !rn2(5))
25. pline("You escape a%s.",traps[trap->gflag&037]);
26. else {
27. trap->gflag |= SEEN;
28. switch(trap->gflag & ~SEEN) {
29. case SLP_GAS_TRAP:
30. pline("A cloud of gas puts you to sleep!");
31. nomul(-rnd(25));
32. break;
33. case BEAR_TRAP:
34. if(Levitation) {
35. pline("You float over a bear trap.");
36. break;
37. }
38. u.utrap = 4 + rn2(4);
39. u.utraptype = TT_BEARTRAP;
40. pline("A bear trap closes on your foot!");
41. break;
42. case PIERC:
43. deltrap(trap);
44. if(makemon(PM_PIERC,u.ux,u.uy)) {
45. pline("A piercer suddenly drops from the ceiling!");
46. if(uarmh)
47. pline("Its blow glances off your helmet.");
48. else
49. (void) thitu(3,d(4,6),"falling piercer");
50. }
51. break;
52. case ARROW_TRAP:
53. pline("An arrow shoots out at you!");
54. if(!thitu(8,rnd(6),"arrow")){
55. mksobj_at(WEAPON_SYM, ARROW, u.ux, u.uy);
56. fobj->quan = 1;
57. }
58. break;
59. case TRAPDOOR:
60. if(!xdnstair) {
61. pline("A trap door in the ceiling opens and a rock falls on your head!");
62. if(uarmh) pline("Fortunately, you are wearing a helmet!");
63. losehp(uarmh ? 2 : d(2,10),"falling rock");
64. } else {
65. register int newlevel = dlevel + 1;
66. while(!rn2(4) && newlevel < 29)
67. newlevel++;
68. pline("A trap door opens up under you!");
69. if(Levitation || u.ustuck) {
70. pline("For some reason you don't fall in.");
71. break;
72. }
73. 
74. goto_level(newlevel, FALSE);
75. }
76. break;
77. case DART_TRAP:
78. pline("A little dart shoots out at you!");
79. if(thitu(7,rnd(3),"little dart")) {
80. if(!rn2(6))
81. poisoned("dart","poison dart");
82. } else {
83. mksobj_at(WEAPON_SYM, DART, u.ux, u.uy);
84. fobj->quan = 1;
85. }
86. break;
87. case TELEP_TRAP:
88. newsym(u.ux,u.uy);
89. tele();
90. break;
91. case PIT:
92. if(Levitation) {
93. pline("A pit opens up under you!");
94. pline("You don't fall in!");
95. break;
96. }
97. pline("You fall into a pit!");
98. u.utrap = rn1(6,2);
99. u.utraptype = TT_PIT;
100. losehp(rnd(6),"fall into a pit");
101. selftouch("Falling, you");
102. break;
103. default:
104. pline("You hit a trap of type %d",trap->gflag);
105. impossible();
106. }
107. }
108. }
109. 
110. mintrap(mtmp) register struct monst *mtmp; {
111. register struct gen *gen = g_at(mtmp->mx, mtmp->my, ftrap);
112. register int wasintrap = mtmp->mtrapped;
113. 
114. if(!gen) {
115. mtmp->mtrapped = 0; /* perhaps teleported? */
116. } else if(wasintrap) {
117. if(!rn2(40)) mtmp->mtrapped = 0;
118. } else {
119. register int tt = (gen->gflag & ~SEEN);
120. int in_sight = cansee(mtmp->mx,mtmp->my);
121. extern char mlarge[];
122. if(mtmp->mtrapseen & (1 << tt)) {
123. /* he has been in such a trap - perhaps he escapes */
124. if(rn2(4)) return(0);
125. }
126. mtmp->mtrapseen |= (1 << tt);
127. switch (tt) {
128. case BEAR_TRAP:
129. if(index(mlarge, mtmp->data->mlet)) {
130. if(in_sight)
131. pline("%s is caught in a bear trap!",
132. Monnam(mtmp));
133. else
134. if(mtmp->data->mlet == 'o')
135. pline("You hear the roaring of an angry bear!");
136. mtmp->mtrapped = 1;
137. }
138. break;
139. case PIT:
140. if(!index("Eyw", mtmp->data->mlet)) {
141. mtmp->mtrapped = 1;
142. if(in_sight)
143. pline("%s falls in a pit!", Monnam(mtmp));
144. }
145. break;
146. case SLP_GAS_TRAP:
147. if(!mtmp->msleep && !mtmp->mfroz) {
148. mtmp->msleep = 1;
149. if(in_sight)
150. pline("%s suddenly falls asleep!",
151. Monnam(mtmp));
152. }
153. break;
154. case TELEP_TRAP:
155. rloc(mtmp);
156. if(in_sight && !cansee(mtmp->mx,mtmp->my))
157. pline("%s suddenly disappears!",
158. Monnam(mtmp));
159. break;
160. case ARROW_TRAP:
161. if(in_sight) {
162. pline("%s is hit by an arrow!",
163. Monnam(mtmp));
164. }
165. mtmp->mhp -= 3;
166. break;
167. case DART_TRAP:
168. if(in_sight) {
169. pline("%s is hit by a dart!",
170. Monnam(mtmp));
171. }
172. mtmp->mhp -= 2;
173. /* not mondied here !! */
174. break;
175. case TRAPDOOR:
176. if(!xdnstair) {
177. mtmp->mhp -= 10;
178. if(in_sight)
179. pline("A trap door in the ceiling opens and a rock hits %s!", monnam(mtmp));
180. break;
181. }
182. if(mtmp->data->mlet != 'w'){
183. fall_down(mtmp);
184. if(in_sight)
185. pline("Suddenly, %s disappears out of sight.", monnam(mtmp));
186. return(2); /* no longer on this level */
187. }
188. break;
189. case PIERC:
190. break;
191. default:
192. pline("Some monster encountered an impossible trap.");
193. impossible();
194. }
195. }
196. return(mtmp->mtrapped);
197. }
198. 
199. selftouch(arg) char *arg; {
200. if(uwep && uwep->otyp == DEAD_COCKATRICE){
201. pline("%s touch the dead cockatrice.", arg);
202. pline("You turn to stone.");
203. killer = objects[uwep->otyp].oc_name;
204. done("died");
205. }
206. }
207. 
208. float_up(){
209. if(u.utrap) {
210. if(u.utraptype == TT_PIT) {
211. u.utrap = 0;
212. pline("You float up, out of the pit!");
213. } else {
214. pline("You float up, only your leg is still stuck.");
215. }
216. } else
217. pline("You start to float in the air!");
218. }
219. 
220. float_down(){
221. register struct gen *trap;
222. pline("You float gently to the ground.");
223. if(trap = g_at(u.ux,u.uy,ftrap))
224. switch(trap->gflag & 037) {
225. case PIERC:
226. break;
227. case TRAPDOOR:
228. if(!xdnstair || u.ustuck) break;
229. /* fall into next case */
230. default:
231. dotrap(trap);
232. }
233. pickup();
234. }
235. 
236. tele()
237. {
238. extern coord getpos();
239. coord cc;
240. register int nux,nuy;
241. if(Teleport_control) {
242. pline("To what position do you want to be teleported?");
243. cc = getpos(1, "the desired position"); /* 1: force valid */
244. /* possible extensions: introduce a small error if
245. magic power is low; allow transfer to solid rock */
246. if(teleok(cc.x, cc.y)){
247. nux = cc.x;
248. nuy = cc.y;
249. goto gotpos;
250. }
251. pline("Sorry ...");
252. }
253. do {
254. nux = rnd(COLNO-1);
255. nuy = rn2(ROWNO);
256. } while(!teleok(nux, nuy));
257. gotpos:
258. if(Punished) unplacebc();
259. unsee();
260. u.utrap = 0;
261. u.ustuck = 0;
262. u.ux = nux;
263. u.uy = nuy;
264. setsee();
265. if(Punished) placebc(1);
266. if(u.uswallow){
267. u.uswldtim = u.uswallow = 0;
268. docrt();
269. }
270. nomul(0);
271. (void) inshop();
272. pickup();
273. if(!Blind) read_engr_at(u.ux,u.uy);
274. }
275. 
276. teleok(x,y) register int x,y; {
277. return( isok(x,y) && levl[x][y].typ > DOOR && !m_at(x,y) &&
278. !sobj_at(ENORMOUS_ROCK,x,y) && !g_at(x,y,ftrap)
279. );
280. /* Note: gold is permitted (because of vaults) */
281. }
282. 
283. placebc(attach) int attach; {
284. if(!uchain || !uball){
285. pline("Where are your chain and ball??");
286. impossible();
287. return;
288. }
289. uball->ox = uchain->ox = u.ux;
290. uball->oy = uchain->oy = u.uy;
291. if(attach){
292. uchain->nobj = fobj;
293. fobj = uchain;
294. if(!carried(uball)){
295. uball->nobj = fobj;
296. fobj = uball;
297. }
298. }
299. }
300. 
301. unplacebc(){
302. if(!carried(uball)){
303. freeobj(uball);
304. unpobj(uball);
305. }
306. freeobj(uchain);
307. unpobj(uchain);
308. }
309. 
310. level_tele() {
311. register int newlevel = 5 + rn2(20); /* 5 - 24 */
312. if(dlevel == newlevel)
313. if(!xdnstair) newlevel--; else newlevel++;
314. goto_level(newlevel, FALSE);
315. }
[[Category:Hack 1.0 source code|hack.trap.c]]

@@ Line 1: / Line 1: @@
-Below is the full text to '''hack.trap.c''' from the [[Hack 1.0 source code|source code]] of [[Hack 1.0]]. To link to a particular line, write [[Hack 1.0/hack.trap.c#line123|<nowiki>[[Hack 1.0/hack.trap.c#line123]]</nowiki>]], for example.
+Below is the full text to '''hack.trap.c''' from the [[Hack 1.0 source code|source code]] of [[Hack 1.0]].
-'''Warning!''' This is the source code from an old release. For the latest release, 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 22:42, 3 March 2008
(No difference)

Source:Hack 1.0/hack.trap.c - Revision history

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

Kernigh bot: Hack 1.0/hack.trap.c moved to Source:Hack 1.0/hack.trap.c: Robot: moved page

Jaytbot: Automated source code upload