-
Notifications
You must be signed in to change notification settings - Fork 10
/
htic_ex.wl
65 lines (52 loc) · 1.31 KB
/
htic_ex.wl
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
55
56
57
58
59
60
61
62
63
64
65
/*
* htic_ex.wl: Simple example of a Heretic map
* part of WadC
*
* Copyright © 2016 Jonathan Dowland <[email protected]>
*
* Distributed under the terms of the GNU GPL Version 2
* See file LICENSE.txt
*/
#"heretic.h"
#"standard.h"
main {
hereticdefaults
pushpop(
movestep(64,64)
thing
)
testroom(imp thing crossbow thing)
testroom(mummy thing dragonclaw thing)
movestep(512,0) rotright
testroom(knight thing hellstaff thing)
testroom(wizard thing phoenixrod thing)
movestep(512,0) rotright
testroom(macespawner thing impleader thing)
testroom(mummyghost thing)
testroom(mummyleader thing)
movestep(512,0) rotright
testroom(mummyleaderghost thing )
testroom(knightghost thing)
testroom(iron_liche thing)
movestep(512,0) rotright
testroom(pod thing artiegg thing)
testroom(ophidian thing)
testroom(weredragon thing)
testroom(sabreclaw thing)
movestep(512,0) rotright
testroom(maulotaur thing)
}
testroom(x) {
!testroom
box(0,128,160,512,512)
movestep(192,192)
ibox(16,128,160,128,128)
movestep(64,64)
turnaround x turnaround
^testroom movestep(512,0)
movestep(0,192)
movestep(64,128) turnaround
box(0,96, 160, 64, 128)
movestep(64,-256)
^testroom movestep(add(64,512),0)
}