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

2024-07-03T00:11:52Z

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

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

2008-03-04T02:20:58Z

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

Jaytbot: Automated source code upload

2006-09-14T23:23:02Z

Automated source code upload

New page

Below is the full text to '''mkobj.c''' from the [[NetHack 2.2a source code|source code]] of [[NetHack 2.2a]]. To link to a particular line, write [[NetHack 2.2a/mkobj.c#line123|<nowiki>[[NetHack 2.2a/mkobj.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: @(#)mkobj.c 2.2 87/11/29
2. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3. 
4. #include "hack.h"
5. #ifdef SPELLS
6. char mkobjstr[] = "))[[!!!!????+%%%%/=**))[[!!!!????+%%%%/=**(%";
7. #else
8. char mkobjstr[] = "))[[!!!!????%%%%/=**))[[!!!!????%%%%/=**(%";
9. #endif
10. 
11. struct obj *mkobj(), *mksobj();
12. 
13. struct obj *
14. mkobj_at(let,x,y)
15. register int let,x,y;
16. {
17. register struct obj *otmp = mkobj(let);
18. otmp->ox = x;
19. otmp->oy = y;
20. otmp->nobj = fobj;
21. fobj = otmp;
22. return(otmp);
23. }
24. 
25. struct obj *
26. mksobj_at(otyp,x,y)
27. register int otyp,x,y;
28. {
29. register struct obj *otmp = mksobj(otyp);
30. otmp->ox = x;
31. otmp->oy = y;
32. otmp->nobj = fobj;
33. return((fobj = otmp));
34. }
35. 
36. #ifdef RPH
37. struct obj *
38. mk_named_obj_at (let, x, y, nm, lth) /* used for named corpses */
39. register let, x, y;
40. char * nm;
41. register int lth;
42. {
43. register struct obj *otmp;
44. register struct obj *obj2;
45. 
46. if (lth == 0) return (mkobj_at (let,x,y));
47. 
48. otmp = mkobj(let);
49. obj2 = newobj(lth);
50. *obj2 = *otmp;
51. obj2->onamelth = lth;
52. (void) strcpy (ONAME(obj2), nm);
53. free( (char *)otmp);
54. obj2->ox = x;
55. obj2->oy = y;
56. obj2->nobj = fobj;
57. fobj = obj2;
58. return(obj2);
59. }
60. #endif
61. 
62. struct obj *
63. mkobj(let) {
64. int realtype;
65. switch (let) {
66. case RANDOM_SYM: {
67. realtype=probtype(mkobjstr[rn2(sizeof(mkobjstr)-1)]);
68. break;
69. }
70. case '3': { realtype = DEAD_SOLDIER; break; }
71. case '9': { realtype = DEAD_GIANT; break; }
72. case '&': { realtype = DEAD_DEMON; break; }
73. default: realtype = letter(let) ?
74. CORPSE + ((let>'Z') ? (let-'a'+'Z'-'@'+1) : (let-'@'))
75. : probtype(let);
76. }
77. return(mksobj(realtype));
78. }
79. 
80. 
81. struct obj zeroobj;
82. 
83. struct obj *
84. mksobj(otyp)
85. register otyp;
86. {
87. register struct obj *otmp;
88. char let = objects[otyp].oc_olet;
89. 
90. otmp = newobj(0);
91. *otmp = zeroobj;
92. otmp->age = moves;
93. otmp->o_id = flags.ident++;
94. otmp->quan = 1;
95. otmp->olet = let;
96. otmp->otyp = otyp;
97. otmp->dknown = index(
98. #ifdef KAA
99. #ifdef SPELLS
100. "/=!?*+)",
101. #else
102. "/=!?*)",
103. #endif
104. #else
105. #ifdef SPELLS
106. "/=!?*+",
107. #else
108. "/=!?*",
109. #endif
110. #endif
111. let) ? 0 : 1;
112. switch(let) {
113. case WEAPON_SYM:
114. otmp->quan = (otmp->otyp <= ROCK) ? rn1(6,6) : 1;
115. if(!rn2(11)) otmp->spe = rne(2);
116. else if(!rn2(10)) {
117. otmp->cursed = 1;
118. otmp->spe = -rne(2);
119. }
120. break;
121. case FOOD_SYM:
122. if(otmp->otyp >= CORPSE) break;
123. #ifdef NOT_YET_IMPLEMENTED
124. /* if tins are to be identified, need to adapt doname() etc */
125. if(otmp->otyp == TIN)
126. otmp->spe = rnd(...);
127. #endif
128. /* fall into next case */
129. case GEM_SYM:
130. otmp->quan = rn2(6) ? 1 : 2;
131. case TOOL_SYM:
132. case CHAIN_SYM:
133. case BALL_SYM:
134. case ROCK_SYM:
135. case POTION_SYM:
136. case SCROLL_SYM:
137. case AMULET_SYM:
138. break;
139. #ifdef SPELLS
140. case SPBOOK_SYM:
141. if(!rn2(17)) otmp->cursed = 1;
142. break;
143. #endif
144. case ARMOR_SYM:
145. if(!rn2(8)) otmp->cursed = 1;
146. if(!rn2(10)) otmp->spe = rne(2);
147. else if(!rn2(9)) {
148. otmp->spe = -rne(2);
149. otmp->cursed = 1;
150. }
151. break;
152. case WAND_SYM:
153. #ifdef HARD
154. if(otmp->otyp == WAN_WISHING) otmp->spe = rnd(3); else
155. #else 
156. if(otmp->otyp == WAN_WISHING) otmp->spe = 3; else
157. #endif 
158. otmp->spe = rn1(5,
159. (objects[otmp->otyp].bits & NODIR) ? 11 : 4);
160. break;
161. case RING_SYM:
162. if(objects[otmp->otyp].bits & SPEC) {
163. if(!rn2(3)) {
164. otmp->cursed = 1;
165. otmp->spe = -rne(3);
166. } else otmp->spe = rne(3);
167. } else if(otmp->otyp == RIN_TELEPORTATION ||
168. otmp->otyp == RIN_POLYMORPH ||
169. otmp->otyp == RIN_AGGRAVATE_MONSTER ||
170. otmp->otyp == RIN_HUNGER || !rn2(9))
171. otmp->cursed = 1;
172. break;
173. default:
174. panic("impossible mkobj %d, sym '%c'.", otmp->otyp, let);
175. }
176. otmp->owt = weight(otmp);
177. return(otmp);
178. }
179. 
180. letter(c) {
181. return(('@' <= c && c <= 'Z') || ('a' <= c && c <= 'z'));
182. }
183. 
184. weight(obj)
185. register struct obj *obj;
186. {
187. register int wt = objects[obj->otyp].oc_weight;
188. return(wt ? wt*obj->quan : (obj->quan + 1)/2);
189. }
190. 
191. mkgold(num,x,y)
192. register long num;
193. {
194. register struct gold *gold;
195. register long amount = (num ? num : 1 + (rnd(dlevel+2) * rnd(30)));
196. 
197. if(gold = g_at(x,y))
198. gold->amount += amount;
199. else {
200. gold = newgold();
201. gold->ngold = fgold;
202. gold->gx = x;
203. gold->gy = y;
204. gold->amount = amount;
205. fgold = gold;
206. /* do sth with display? */
207. }
208. }
[[Category:NetHack 2.2a source code|mkobj.c]]

@@ Line 1: / Line 1: @@
-Below is the full text to '''mkobj.c''' from the [[NetHack 2.2a source code|source code]] of [[NetHack 2.2a]]. To link to a particular line, write [[NetHack 2.2a/mkobj.c#line123|<nowiki>[[NetHack 2.2a/mkobj.c#line123]]</nowiki>]], for example.
+Below is the full text to '''mkobj.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 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 02:20, 4 March 2008
(No difference)

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

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

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

Jaytbot: Automated source code upload