/usr/share/doc/wadc/examples/choicetest.wl is in wadc 2.2-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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, delete the 'seed' instruction below and
-- press ctrl-R multiple times
main {
seed (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 })
}
|