-
Notifications
You must be signed in to change notification settings - Fork 3
/
21808_shortcutdoors_meso.cos
153 lines (146 loc) · 2.56 KB
/
21808_shortcutdoors_meso.cos
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
**
** TELEPORTERS
**
doif game "gpmain" ne 0 and game "gpmeso" eq 0
*
** DESERT (meso) > DESERT (main)
new: comp 2 2 21808 "gp_shortcutdoors_CS" 3 2 100
pat: butt 2 "gp_shortcutdoors_CS" 0 2 18 57 0 [] 1004 0
setv ov00 1
setv ov01 0
attr 4
bhvr 1
mvto 23695 911
setv va00 grap posx posy
*
** DESERT (main) > DESERT (meso)
new: comp 2 2 21808 "gp_shortcutdoors_CS" 3 2 100
pat: butt 2 "gp_shortcutdoors_CS" 0 2 18 57 0 [] 1004 0
setv ov00 1
setv ov01 0
attr 4
bhvr 1
mvto 22010 1091
link grap posx posy va00 60
*
** JUNGLE (meso) > SWAMP (main)
new: comp 2 2 21808 "gp_shortcutdoors_CS" 3 5 100
pat: butt 2 "gp_shortcutdoors_CS" 0 2 18 57 0 [] 1004 0
setv ov00 2
attr 4
bhvr 1
mvto 25920 1567
setv va00 grap posx posy
*
** SWAMP (main) > JUNGLE (meso)
new: comp 2 2 21808 "gp_shortcutdoors_CS" 3 5 100
pat: butt 2 "gp_shortcutdoors_CS" 0 2 18 57 0 [] 1004 0
setv ov00 2
attr 4
bhvr 1
mvto 21927 2299
link grap posx posy va00 60
endi
doif game "gpmeso" ne 1
*
** UPPERWATER (meso) > UNDERWATER (meso)
new: comp 2 2 21808 "gp_shortcutdoors_CS" 3 8 100
pat: butt 2 "gp_shortcutdoors_CS" 0 2 18 57 0 [] 1004 0
setv ov00 3
attr 4
bhvr 1
mvto 23619 1492
setv va00 grap posx posy
*
** UNDERWATER (meso) > UPPERWATER (meso)
new: comp 2 2 21808 "gp_shortcutdoors_CS" 3 8 100
pat: butt 2 "gp_shortcutdoors_CS" 0 2 18 57 0 [] 1004 0
setv ov00 3
attr 4
bhvr 1
mvto 23619 1920
link grap posx posy va00 60
endi
**
** TELEPORTER EVENT SCRIPTS
**
**
*
** Disable
scrp 2 2 21808 1004
doif ov01 eq 0
setv va00 ov00
enum 2 2 21808
doif ov00 eq va00
attr 16
setv ov01 1
part 2
pose 1
endi
next
else
setv va00 ov00
enum 2 2 21808
doif ov00 eq va00
attr 4
setv ov01 0
part 2
pose 0
endi
next
endi
endm
*
** PUSH
scrp 2 2 21808 1
doif ov01 eq 0
seta va52 from
setv va00 ov00
seta va50 targ
seta va51 targ
enum 2 2 21808
doif ov00 eq va00
anim [1 2 1 0]
doif targ ne va50
seta va51 targ
endi
endi
next
targ va51
setv va00 posx
setv va01 posy
targ va52
doif fmly eq 4
lock
doif tmvf va00 va01 eq 1
targ va50
attr 16
anim [0 0 0 0 0 0 0 0]
over
attr 4
targ va51
attr 16
targ va52
** travelled through door
stim writ from 95 1
** no more attention on door
urge writ targ 2 -2 1 -2
mvft va00 va01
** Travelled through door
** Discourage from pushing door any further
targ va51
anim [0 0 0 0 0 0 0 0]
over
attr 4
endi
unlk
endi
doif va52 eq pntr
cmrp va00 va01 1
endi
endi
endm
rscr
enum 2 2 21808
kill targ
next