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
|
/*
* choicetest.wl: simple example of random hallways
* part of WadC
*
* Copyright © 2001-2008 Wouter van Oortmerssen
*
* Distributed under the terms of the GNU GPL Version 2
* See file LICENSE.txt
*/
#"standard.h"
-- random hallway
-- press ctrl-R multiple times
main {
seed(rand(0,1337))
thing
movestep(-32,-32)
for(1,32,room2)
}
room2 { room({ 32 | 64 | 96 | 128 | 160 }) }
room(x) {
wall({ "ASHWALL6" | "BIGBRIK1" | "BRICK10" | "BRICK12" | "BRONZE1" })
floor({ "FLOOR4_5" | "TLITE6_5" | "FLAT10" | "NUKAGE1" | "DEM1_6" })
ceil({ "SLIME14" | "FLAT5_1" | "FLAT3" })
box({ 0 | 16 }, -- floor
{ 128 | 144 | 160 | 176 }, -- ceiling
{ 64 | 96 | 128 | 160 | 192 }, -- light
x, -- x
{ 160 | 192 | 224 | 256 }) -- y
move(x)
step(0,{ 64 | 32 | -32 | -64 })
}
|
