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

2024-06-29T20:17:39Z

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

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

2008-03-03T22:28:03Z

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

Jaytbot: Automated source code upload

2006-08-29T20:28:02Z

Automated source code upload

New page

Below is the full text to '''hack.mkobj.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.mkobj.c#line123|<nowiki>[[Hack 1.0/hack.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. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1984. */
2. 
3. #ifdef MKLEV
4. #include "mklev.h"
5. #else
6. #include "hack.h"
7. #endif MKLEV
8. 
9. #include "hack.onames.h"
10. 
11. char mkobjstr[] = "))[[!!!!????%%%%/=**))[[!!!!????%%%%/=**(";
12. struct obj *mkobj(), *mksobj();
13. 
14. mkobj_at(let,x,y)
15. register 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. }
23. 
24. #ifndef MKLEV
25. mksobj_at(let,otyp,x,y)
26. register let,otyp,x,y;
27. {
28. register struct obj *otmp = mksobj(let, otyp);
29. otmp->ox = x;
30. otmp->oy = y;
31. otmp->nobj = fobj;
32. fobj = otmp;
33. }
34. #endif MKLEV
35. 
36. struct obj *
37. mkobj(let) {
38. if(!let) let = mkobjstr[rn2(sizeof(mkobjstr) - 1)];
39. return(mksobj(let, letter(let) ? CORPSE : probtype(let)));
40. }
41. 
42. 
43. struct obj zeroobj;
44. 
45. struct obj *
46. mksobj(let, otyp) {
47. register struct obj *otmp;
48. 
49. otmp = newobj(0);
50. *otmp = zeroobj;
51. #ifdef MKLEV
52. otmp->age = 0;
53. otmp->o_id = 0;
54. #else
55. otmp->age = moves;
56. otmp->o_id = flags.ident++;
57. #endif MKLEV
58. otmp->quan = 1;
59. if(letter(let)){
60. otmp->olet = FOOD_SYM;
61. otmp->otyp = CORPSE + ((let > 'Z') ? (let-'a'+'Z'-'@'+1) :
62. (let-'@'));
63. otmp->spe = let;
64. otmp->known = 1;
65. otmp->owt = weight(otmp);
66. return(otmp);
67. }
68. otmp->olet = let;
69. otmp->otyp = otyp;
70. otmp->dknown = index("/=!?*", let) ? 0 : 1;
71. switch(let) {
72. case WEAPON_SYM:
73. otmp->quan = (otmp->otyp <= ROCK) ? rn1(6,6) : 1;
74. if(!rn2(11)) otmp->spe = rnd(3);
75. else if(!rn2(10)) {
76. otmp->cursed = 1;
77. otmp->spe = -rnd(3);
78. }
79. break;
80. case FOOD_SYM:
81. case GEM_SYM:
82. otmp->quan = rn2(6) ? 1 : 2;
83. case TOOL_SYM:
84. case CHAIN_SYM:
85. case BALL_SYM:
86. case ROCK_SYM:
87. case POTION_SYM:
88. case SCROLL_SYM:
89. case AMULET_SYM:
90. break;
91. case ARMOR_SYM:
92. if(!rn2(8)) otmp->cursed = 1;
93. if(!rn2(10)) otmp->spe = rnd(3);
94. else if(!rn2(9)) {
95. otmp->spe = -rnd(3);
96. otmp->cursed = 1;
97. }
98. otmp->spe += 10 - objects[otmp->otyp].a_ac;
99. break;
100. case WAND_SYM:
101. if(otmp->otyp == WAN_WISHING) otmp->spe = 3; else
102. otmp->spe = rn1(5,
103. (objects[otmp->otyp].bits & NODIR) ? 11 : 4);
104. break;
105. case RING_SYM:
106. if(objects[otmp->otyp].bits & SPEC) {
107. if(!rn2(3)) {
108. otmp->cursed = 1;
109. otmp->spe = -rnd(2);
110. } else otmp->spe = rnd(2);
111. } else if(otmp->otyp == RIN_TELEPORTATION ||
112. otmp->otyp == RIN_AGGRAVATE_MONSTER ||
113. otmp->otyp == RIN_HUNGER || !rn2(9))
114. otmp->cursed = 1;
115. break;
116. default:
117. panic("impossible mkobj");
118. }
119. otmp->owt = weight(otmp);
120. return(otmp);
121. }
122. 
123. letter(c) {
124. return(('@' <= c && c <= 'Z') || ('a' <= c && c <= 'z'));
125. }
126. 
127. weight(obj)
128. register struct obj *obj;
129. {
130. register int wt = objects[obj->otyp].oc_weight;
131. return(wt ? wt*obj->quan : (obj->quan + 1)/2);
132. }
133. 
134. mkgold(num,x,y)
135. register num;
136. {
137. register struct gen *gtmp;
138. register int amount = num ? num : 1 + (rnd(dlevel+2) * rnd(30));
139. 
140. if(gtmp = g_at(x,y,fgold))
141. gtmp->gflag += amount;
142. else {
143. gtmp = newgen();
144. gtmp->ngen = fgold;
145. gtmp->gx = x;
146. gtmp->gy = y;
147. gtmp->gflag = amount;
148. fgold = gtmp;
149. #ifdef MKLEV
150. levl[x][y].scrsym = '$';
151. #endif MKLEV
152. }
153. }
[[Category:Hack 1.0 source code|hack.mkobj.c]]

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

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

Jaytbot: Automated source code upload