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

2024-06-29T20:52:36Z

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

Kernigh bot: Hack 1.0/mklv.makemaz.c moved to Source:Hack 1.0/mklv.makemaz.c: Robot: moved page

2008-03-03T22:51:28Z

Hack 1.0/mklv.makemaz.c moved to Source:Hack 1.0/mklv.makemaz.c: Robot: moved page

Jaytbot: Automated source code upload

2006-08-29T20:40:13Z

Automated source code upload

New page

Below is the full text to '''mklv.makemaz.c''' from the [[Hack 1.0 source code|source code]] of [[Hack 1.0]]. To link to a particular line, write [[Hack 1.0/mklv.makemaz.c#line123|<nowiki>[[Hack 1.0/mklv.makemaz.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 "mklev.h"
4. extern struct monst *makemon();
5. extern coord mazexy();
6. 
7. makemaz()
8. {
9. int x,y;
10. register zx,zy;
11. coord mm;
12. 
13. for(x = 2; x < COLNO-1; x++)
14. for(y = 2; y < ROWNO-1; y++)
15. levl[x][y].typ = (x%2 && y%2) ? 0 : HWALL;
16. mm = mazexy();
17. zx = mm.x;
18. zy = mm.y;
19. walkfrom(zx,zy);
20. mkobj_at(AMULET_SYM, zx, zy);
21. mkobj_at(ROCK_SYM, zx, zy); /* put a rock on top of the amulet */
22. /* (probably this means that one needs a wand of digging to reach 
23. the amulet - we must make sure that the player has a chance of
24. getting one; let us say when he kills the minotaur; of course
25. the minotaur itself may be blocked behind rocks, but well...) */
26. for(x = 2; x < COLNO-1; x++)
27. for(y = 2; y < ROWNO-1; y++) {
28. switch(levl[x][y].typ) {
29. case HWALL:
30. levl[x][y].scrsym = '-';
31. break;
32. case ROOM:
33. levl[x][y].scrsym = '.';
34. break;
35. }
36. }
37. for(x = rn1(8,11); x; x--) {
38. mm = mazexy();
39. mkobj_at(0, mm.x, mm.y);
40. }
41. for(x = rn1(10,2); x; x--) {
42. mm = mazexy();
43. mkobj_at(ROCK_SYM, mm.x, mm.y);
44. }
45. mm = mazexy();
46. (void) makemon(PM_MINOTAUR, mm.x, mm.y);
47. for(x = rn1(5,7); x; x--) {
48. mm = mazexy();
49. (void) makemon((struct permonst *) 0, mm.x, mm.y);
50. }
51. for(x = rn1(6,7); x; x--) {
52. mm = mazexy();
53. mkgold(0,mm.x,mm.y);
54. }
55. for(x = rn1(6,7); x; x--)
56. mktrap(0,1);
57. mm = mazexy();
58. levl[(xupstair = mm.x)][(yupstair = mm.y)].scrsym = '<';
59. levl[xupstair][yupstair].typ = STAIRS;
60. xdnstair = ydnstair = 0;
61. }
62. 
63. walkfrom(x,y) int x,y; {
64. register int q,a,dir;
65. int dirs[4];
66. levl[x][y].typ = ROOM;
67. while(1) {
68. q = 0;
69. for(a = 0; a < 4; a++)
70. if(okay(x,y,a)) dirs[q++]= a;
71. if(!q) return;
72. dir = dirs[rn2(q)];
73. move(&x,&y,dir);
74. levl[x][y].typ = ROOM;
75. move(&x,&y,dir);
76. walkfrom(x,y);
77. }
78. }
79. 
80. move(x,y,dir)
81. register int *x, *y;
82. register int dir;
83. {
84. switch(dir){
85. case 0: --(*y); break;
86. case 1: (*x)++; break;
87. case 2: (*y)++; break;
88. case 3: --(*x); break;
89. }
90. }
91. 
92. okay(x,y,dir)
93. int x,y;
94. register int dir;
95. {
96. move(&x,&y,dir);
97. move(&x,&y,dir);
98. if(x<3 || y<3 || x>COLNO-3 || y>ROWNO-3 || levl[x][y].typ != 0)
99. return(0);
100. else
101. return(1);
102. }
103. 
104. coord
105. mazexy(){
106. coord mm;
107. mm.x = 3 + 2*rn2(COLNO/2 - 2);
108. mm.y = 3 + 2*rn2(ROWNO/2 - 2);
109. return mm;
110. }
[[Category:Hack 1.0 source code|mklv.makemaz.c]]

@@ Line 1: / Line 1: @@
-Below is the full text to '''mklv.makemaz.c''' from the [[Hack 1.0 source code|source code]] of [[Hack 1.0]]. To link to a particular line, write [[Hack 1.0/mklv.makemaz.c#line123|<nowiki>[[Hack 1.0/mklv.makemaz.c#line123]]</nowiki>]], for example.
+Below is the full text to '''mklv.makemaz.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:51, 3 March 2008
(No difference)

Source:Hack 1.0/mklv.makemaz.c - Revision history

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

Kernigh bot: Hack 1.0/mklv.makemaz.c moved to Source:Hack 1.0/mklv.makemaz.c: Robot: moved page

Jaytbot: Automated source code upload