/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/* hack.mkmaze.c - version 1.0.2 */
#include "def.mkroom.h" /* not really used */
extern struct monst
*makemon();
extern struct permonst pm_wizard
;
extern struct obj
*mkobj_at();
struct permonst hell_hound
=
{ "hell hound", 'd', 12, 14, 2, 3, 6, 0 };
boolean al
= (dlevel
>= 30 && !flags
.made_amulet
);
for(x
= 2; x
< COLNO
-1; x
++)
for(y
= 2; y
< ROWNO
-1; y
++)
levl
[x
][y
].typ
= (x
%2 && y
%2) ? 0 : HWALL
;
register struct monst
*mtmp
;
for(x
= zx
-2; x
< zx
+4; x
++) for(y
= zy
-2; y
<= zy
+2; y
++) {
(y
== zy
-2 || y
== zy
+2 || x
== zx
-2 || x
== zx
+3) ? POOL
:
(y
== zy
-1 || y
== zy
+1 || x
== zx
-1 || x
== zx
+2) ? HWALL
:
(void) mkobj_at(AMULET_SYM
, zx
, zy
);
if(mtmp
= makemon(&hell_hound
, zx
, zy
))
if(mtmp
= makemon(PM_WIZARD
, zx
+1, zy
)) {
(void) mksobj_at(WAN_WISHING
, zx
, zy
);
(void) mkobj_at(ROCK_SYM
, zx
, zy
); /* put a rock on top of it */
for(x
= 2; x
< COLNO
-1; x
++)
for(y
= 2; y
< ROWNO
-1; y
++) {
for(x
= rn1(8,11); x
; x
--) {
(void) mkobj_at(rn2(2) ? GEM_SYM
: 0, mm
.x
, mm
.y
);
for(x
= rn1(10,2); x
; x
--) {
(void) mkobj_at(ROCK_SYM
, mm
.x
, mm
.y
);
(void) makemon(PM_MINOTAUR
, mm
.x
, mm
.y
);
for(x
= rn1(5,7); x
; x
--) {
(void) makemon((struct permonst
*) 0, mm
.x
, mm
.y
);
for(x
= rn1(6,7); x
; x
--) {
for(x
= rn1(6,7); x
; x
--)
mktrap(0,1,(struct mkroom
*) 0);
levl
[(xupstair
= mm
.x
)][(yupstair
= mm
.y
)].scrsym
= '<';
levl
[xupstair
][yupstair
].typ
= STAIRS
;
if(okay(x
,y
,a
)) dirs
[q
++]= a
;
if(x
<3 || y
<3 || x
>COLNO
-3 || y
>ROWNO
-3 || levl
[x
][y
].typ
!= 0)
mm
.x
= 3 + 2*rn2(COLNO
/2 - 2);
mm
.y
= 3 + 2*rn2(ROWNO
/2 - 2);