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

2024-06-29T20:30:57Z

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

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

2008-03-03T22:38:42Z

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

Jaytbot: Automated source code upload

2006-08-29T20:33:34Z

Automated source code upload

New page

Below is the full text to '''hack.steal.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.steal.c#line123|<nowiki>[[Hack 1.0/hack.steal.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. 
5. stealgold(mtmp) register struct monst *mtmp; {
6. register struct gen *gold = g_at(u.ux, u.uy, fgold);
7. register tmp;
8. if(gold && ( !u.ugold || gold->gflag > u.ugold || !rn2(5))) {
9. mtmp->mgold += gold->gflag;
10. freegold(gold);
11. if(Invis) newsym(u.ux, u.uy);
12. pline("%s quickly snatches some gold from between your feet!",
13. Monnam(mtmp));
14. if(!u.ugold || !rn2(5)) {
15. rloc(mtmp);
16. mtmp->mflee = 1;
17. }
18. } else if(u.ugold) {
19. u.ugold -= (tmp = somegold());
20. pline("Your purse feels lighter.");
21. mtmp->mgold += tmp;
22. rloc(mtmp);
23. mtmp->mflee = 1;
24. flags.botl = 1;
25. }
26. }
27. 
28. somegold(){
29. return( (u.ugold < 100) ? u.ugold :
30. (u.ugold > 10000) ? rnd(10000) : rnd((int) u.ugold) );
31. }
32. 
33. /* steal armor after he finishes taking it off */
34. unsigned stealoid; /* object to be stolen */
35. unsigned stealmid; /* monster doing the stealing */
36. stealarm(){
37. register struct monst *mtmp;
38. register struct obj *otmp;
39. 
40. for(otmp = invent; otmp; otmp = otmp->nobj)
41. if(otmp->o_id == stealoid) {
42. for(mtmp = fmon; mtmp; mtmp = mtmp->nmon)
43. if(mtmp->m_id == stealmid) {
44. if(dist(mtmp->mx,mtmp->my) < 3) {
45. freeinv(otmp);
46. pline("%s steals %s!", Monnam(mtmp), doname(otmp));
47. mpickobj(mtmp,otmp);
48. mtmp->mflee = 1;
49. rloc(mtmp);
50. }
51. break;
52. }
53. break;
54. }
55. stealoid = 0;
56. }
57. 
58. /* returns 1 when something was stolen */
59. /* (or at least, when N should flee now) */
60. /* avoid stealing the object stealoid */
61. steal(mtmp)
62. struct monst *mtmp;
63. {
64. register struct obj *otmp;
65. register tmp;
66. register named = 0;
67. 
68. if(!invent){
69. if(Blind)
70. pline("Somebody tries to rob you, but finds nothing to steal.");
71. else
72. pline("%s tries to rob you, but she finds nothing to steal!",
73. Monnam(mtmp));
74. return(1); /* let her flee */
75. }
76. tmp = 0;
77. for(otmp = invent; otmp; otmp = otmp->nobj)
78. tmp += ((otmp->owornmask & (W_ARMOR | W_RING)) ? 5 : 1);
79. tmp = rn2(tmp);
80. for(otmp = invent; otmp; otmp = otmp->nobj)
81. if((tmp -= ((otmp->owornmask & (W_ARMOR | W_RING)) ? 5 : 1))
82. < 0) break;
83. if(!otmp) panic("Steal fails!");
84. if(otmp->o_id == stealoid) return(0);
85. if((otmp->owornmask & (W_ARMOR | W_RING))){
86. switch(otmp->olet) {
87. case RING_SYM:
88. ringoff(otmp);
89. break;
90. case ARMOR_SYM:
91. if(multi < 0 || otmp == uarms){
92. setworn((struct obj *) 0, otmp->owornmask & W_ARMOR);
93. break;
94. }
95. { int curssv = otmp->cursed;
96. otmp->cursed = 0;
97. pline("%s seduces you and %s off your %s.",
98. Amonnam(mtmp, Blind ? "gentle" : "beautiful"),
99. otmp->cursed ? "helps you to take"
100. : "you start taking",
101. (otmp == uarmg) ? "gloves" :
102. (otmp == uarmh) ? "helmet" : "armor");
103. named++;
104. (void) armoroff(otmp);
105. otmp->cursed = curssv;
106. if(multi < 0){
107. extern char *nomovemsg;
108. extern int (*afternmv)();
109. /*
110. multi = 0;
111. nomovemsg = 0;
112. afternmv = 0;
113. */
114. stealoid = otmp->o_id;
115. stealmid = mtmp->m_id;
116. afternmv = stealarm;
117. return(0);
118. }
119. break;
120. }
121. default:
122. impossible();
123. }
124. }
125. else if(otmp == uwep)
126. setuwep((struct obj *) 0);
127. if(otmp->olet == CHAIN_SYM) {
128. pline("How come you are carrying that chain?");
129. impossible();
130. }
131. if(Punished && otmp == uball){
132. Punished = 0;
133. freeobj(uchain);
134. free((char *) uchain);
135. uchain = (struct obj *) 0;
136. uball->spe = 0;
137. uball = (struct obj *) 0; /* superfluous */
138. }
139. freeinv(otmp);
140. pline("%s stole %s.", named ? "She" : Monnam(mtmp), doname(otmp));
141. mpickobj(mtmp,otmp);
142. return((multi < 0) ? 0 : 1);
143. }
144. 
145. mpickobj(mtmp,otmp)
146. register struct monst *mtmp;
147. register struct obj *otmp;
148. {
149. otmp->nobj = mtmp->minvent;
150. mtmp->minvent = otmp;
151. }
152. 
153. /* release the objects the killed animal has stolen */
154. relobj(mtmp,show)
155. register struct monst *mtmp;
156. register show;
157. {
158. register struct obj *otmp, *otmp2;
159. 
160. for(otmp = mtmp->minvent; otmp; otmp = otmp2){
161. otmp->ox = mtmp->mx;
162. otmp->oy = mtmp->my;
163. otmp2 = otmp->nobj;
164. otmp->nobj = fobj;
165. fobj = otmp;
166. stackobj(fobj);
167. if(show & cansee(mtmp->mx,mtmp->my))
168. atl(otmp->ox,otmp->oy,otmp->olet);
169. }
170. mtmp->minvent = (struct obj *) 0;
171. if(mtmp->mgold || mtmp->data->mlet == 'L') {
172. register int tmp;
173. 
174. tmp = (mtmp->mgold > 10000) ? 10000 : mtmp->mgold;
175. mkgold( tmp + d(dlevel,30), mtmp->mx, mtmp->my);
176. if(show & cansee(mtmp->mx,mtmp->my))
177. atl(mtmp->mx,mtmp->my,'$');
178. }
179. }
[[Category:Hack 1.0 source code|hack.steal.c]]

@@ Line 1: / Line 1: @@
-Below is the full text to '''hack.steal.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.steal.c#line123|<nowiki>[[Hack 1.0/hack.steal.c#line123]]</nowiki>]], for example.
+Below is the full text to '''hack.steal.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:38, 3 March 2008
(No difference)

Source:Hack 1.0/hack.steal.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.steal.c moved to Source:Hack 1.0/hack.steal.c: Robot: moved page

Jaytbot: Automated source code upload