5
// See if there is a character in the detect passage
15
tmpdistance = tmpargument + [KEYB] // KEYA - KEYZ
16
tmpargument = passage +1
18
tmpargument = tmpdistance
22
tmpdistance = EXPSECRET
23
GiveExperienceToTarget
33
tmpargument = passage +1
34
SetTargetToWhoeverIsInPassage
42
// Handle the animation and sound
43
tmpargument = passage // Is the passage clear?
46
IfStateIs // State 0 ( Closed )
47
tmpargument = ACTIONMG //
49
tmpargument = 1 // Open it
52
tmpdistance = 11025 //
56
IfStateIs // State 1 ( Open )
57
tmpargument = ACTIONMJ //
59
tmpargument = 0 // Close it
62
tmpdistance = 11025 //
64
End // Finished with this character