1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
/*
* boring.wl - boring stuff
* used by usepipes.wl for the non-sewer pipe areas around
* the entrance.
* -- jmtd
*/
room(f,c,l,x,y) {
movestep(x,y) turnaround
box(f,c,l,x,y)
movestep(0,y) turnaround
}
door(f,c,l) {
!door
top("DOOR3")
move(24)
linetype(1,0)
unpegged
right(64)
movestep(0,-16) turnaround
straight(64)
unpegged
movestep(0,-16) rotright
linetype(0,0)
room(f,f,l,16,64)
^door
room(f,c,l,24,64)
move(16)
room(f,c,l,24,64)
}
bigdoor(f,c,l) {
!bigdoor
top("BIGDOOR1")
move(24)
linetype(1,0)
unpegged
right(128)
movestep(0,-16) turnaround
straight(128)
unpegged
movestep(0,-16) rotright
linetype(0,0)
room(f,f,l,16,128)
^bigdoor
room(f,c,l,24,128)
move(16)
room(f,c,l,24,128)
}
|
