(script 324)

(string
    string_03de "Gloria"
    string_03e5 "GlorsEyes"
    string_03ef "glorEye"
    string_03f7 "glorHand"
    string_0400 "glorSmoke"
    string_040a "myMusic"
    string_0412 "scene36c"
    string_041b "twice"
    string_0421 ""
)

(said
)

(local
    local0 = $0000
)

// 01a0
(instance public scene36c of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $3e
        style $7
        horizon $0
        controls $0
        north $0
        east $0
        south $0
        west $0
        curPic $0
        picAngle $0
        vanishingX $a0
        vanishingY $8ad0
        vertAngle $0
    )
    (method (init) // method_000c
  000c:39 57            pushi 57 // $57 init
  000e:76               push0 
  000f:57 37 04         super Rm 4 

  0012:76               push0 
  0013:45 03 00         callb procedure_0003 0 // HandsOff 

  0016:39 2b            pushi 2b // $2b number
  0018:78               push1 
  0019:39 1b            pushi 1b // $1b elements
  001b:39 06            pushi 6 // $6 loop
  001d:78               push1 
  001e:39 ff            pushi ff // $ff checkAni
  0020:39 2a            pushi 2a // $2a play
  0022:76               push0 
  0023:72 0390          lofsa $03b6 // myMusic
  0026:4a 10             send 10 

  0028:38 00c8          pushi c8 // $c8 setLoop
  002b:78               push1 
  002c:39 04            pushi 4 // $4 x
  002e:38 00c5          pushi c5 // $c5 posn
  0031:7a               push2 
  0032:38 0094          pushi 94 // $94 retreat
  0035:39 59            pushi 59 // $59 showStr
  0037:39 7e            pushi 7e // $7e setCycle
  0039:78               push1 
  003a:51 16            class Fwd 
  003c:36                push 
  003d:39 42            pushi 42 // $42 setPri
  003f:78               push1 
  0040:7a               push2 
  0041:38 00c9          pushi c9 // $c9 ignoreActors
  0044:78               push1 
  0045:78               push1 
  0046:39 57            pushi 57 // $57 init
  0048:76               push0 
  0049:72 0254          lofsa $02a0 // glorSmoke
  004c:4a 24             send 24 

  004e:39 42            pushi 42 // $42 setPri
  0050:78               push1 
  0051:7a               push2 
  0052:39 57            pushi 57 // $57 init
  0054:76               push0 
  0055:38 00c6          pushi c6 // $c6 stopUpd
  0058:76               push0 
  0059:39 7a            pushi 7a // $7a setScript
  005b:78               push1 
  005c:74 0193          lofss $01f2 // GlorsEyes
  005f:72 02a2          lofsa $0304 // glorEye
  0062:4a 14             send 14 

  0064:39 42            pushi 42 // $42 setPri
  0066:78               push1 
  0067:78               push1 
  0068:38 00c9          pushi c9 // $c9 ignoreActors
  006b:78               push1 
  006c:78               push1 
  006d:39 57            pushi 57 // $57 init
  006f:76               push0 
  0070:72 01df          lofsa $0252 // Gloria
  0073:4a 10             send 10 

  0075:38 00c8          pushi c8 // $c8 setLoop
  0078:78               push1 
  0079:78               push1 
  007a:38 00a2          pushi a2 // $a2 setCel
  007d:78               push1 
  007e:76               push0 
  007f:39 42            pushi 42 // $42 setPri
  0081:78               push1 
  0082:39 03            pushi 3 // $3 y
  0084:39 36            pushi 36 // $36 xStep
  0086:78               push1 
  0087:39 05            pushi 5 // $5 view
  0089:39 37            pushi 37 // $37 yStep
  008b:78               push1 
  008c:39 05            pushi 5 // $5 view
  008e:38 00c9          pushi c9 // $c9 ignoreActors
  0091:78               push1 
  0092:78               push1 
  0093:39 57            pushi 57 // $57 init
  0095:76               push0 
  0096:72 02b9          lofsa $0352 // glorHand
  0099:4a 28             send 28 

  009b:39 7a            pushi 7a // $7a setScript
  009d:78               push1 
  009e:74 0181          lofss $0222 // twice
  00a1:54 06             self 6 

  00a3:48                 ret 
    )

    (method (doit) // method_00a4
  00a4:39 3c            pushi 3c // $3c doit
  00a6:76               push0 
  00a7:57 37 04         super Rm 4 

  00aa:48                 ret 
    )

    (method (dispose) // method_00ab
  00ab:39 58            pushi 58 // $58 dispose
  00ad:76               push0 
  00ae:57 37 04         super Rm 4 

  00b1:48                 ret 
    )

    (method (handleEvent) // method_00b2
  00b2:39 6f            pushi 6f // $6f handleEvent
  00b4:78               push1 
  00b5:8f 01              lsp param1 
  00b7:57 37 06         super Rm 6 

  00ba:48                 ret 
    )

)

// 01ec
(instance GlorsEyes of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (changeState) // method_00bb
  00bb:87 01              lap param1 
  00bd:65 0a             aTop state 
  00bf:36                push 
  00c0:3c                 dup 
  00c1:35 00              ldi 0 
  00c3:1a                 eq? 
  00c4:31 14              bnt code_00da 
  00c6:38 00c6          pushi c6 // $c6 stopUpd
  00c9:76               push0 
  00ca:72 0237          lofsa $0304 // glorEye
  00cd:4a 04             send 4 

  00cf:7a               push2 
  00d0:7a               push2 
  00d1:39 05            pushi 5 // $5 view
  00d3:43 40 04         callk Random 4 

  00d6:65 12             aTop seconds 
  00d8:33 1a              jmp code_00f4 

        code_00da
  00da:3c                 dup 
  00db:35 01              ldi 1 
  00dd:1a                 eq? 
  00de:31 14              bnt code_00f4 
  00e0:38 00a3          pushi a3 // $a3 startUpd
  00e3:76               push0 
  00e4:39 7e            pushi 7e // $7e setCycle
  00e6:7a               push2 
  00e7:51 1b            class Beg 
  00e9:36                push 
  00ea:7c            pushSelf 
  00eb:72 0216          lofsa $0304 // glorEye
  00ee:4a 0c             send c 

  00f0:35 ff              ldi ff 
  00f2:65 0a             aTop state 

        code_00f4
  00f4:3a                toss 
  00f5:48                 ret 
    )

)

// 021c
(instance twice of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (changeState) // method_00f6
  00f6:87 01              lap param1 
  00f8:65 0a             aTop state 
  00fa:36                push 
  00fb:3c                 dup 
  00fc:35 00              ldi 0 
  00fe:1a                 eq? 
  00ff:31 40              bnt code_0141 
  0101:80 00d8            lag global216 
  0104:18                 not 
  0105:31 06              bnt code_010d 
  0107:35 ff              ldi ff 
  0109:65 0a             aTop state 
  010b:33 2e              jmp code_013b 

        code_010d
  010d:89 76              lsg gMustDos 
  010f:35 08              ldi 8 
  0111:12                 and 
  0112:18                 not 
  0113:31 1b              bnt code_0130 
  0115:89 76              lsg gMustDos 
  0117:35 08              ldi 8 
  0119:14                  or 
  011a:a1 76              sag gMustDos 
  011c:39 7a            pushi 7a // $7a setScript
  011e:78               push1 
  011f:7a               push2 
  0120:38 0196          pushi 196 // $196 sel_406
  0123:76               push0 
  0124:43 02 04         callk ScriptID 4 

  0127:36                push 
  0128:54 06             self 6 

  012a:35 ff              ldi ff 
  012c:65 0a             aTop state 
  012e:33 0b              jmp code_013b 

        code_0130
  0130:39 76            pushi 76 // $76 script
  0132:76               push0 
  0133:54 04             self 4 

  0135:31 04              bnt code_013b 
  0137:35 ff              ldi ff 
  0139:65 0a             aTop state 

        code_013b
  013b:35 01              ldi 1 
  013d:65 10             aTop cycles 
  013f:33 57              jmp code_0198 

        code_0141
  0141:3c                 dup 
  0142:35 01              ldi 1 
  0144:1a                 eq? 
  0145:31 14              bnt code_015b 
  0147:39 03            pushi 3 // $3 y
  0149:38 0144          pushi 144 // $144 highLiteX
  014c:76               push0 
  014d:39 58            pushi 58 // $58 dispose
  014f:46 00ff 0000 06  calle ff procedure_0000 6 // Print 

  0155:35 04              ldi 4 
  0157:65 12             aTop seconds 
  0159:33 3d              jmp code_0198 

        code_015b
  015b:3c                 dup 
  015c:35 02              ldi 2 
  015e:1a                 eq? 
  015f:31 27              bnt code_0188 
  0161:38 00d3          pushi d3 // $d3 setMotion
  0164:39 03            pushi 3 // $3 y
  0166:51 1d            class MoveTo 
  0168:36                push 
  0169:38 00a9          pushi a9 // $a9 moveDone
  016c:39 59            pushi 59 // $59 showStr
  016e:72 012f          lofsa $02a0 // glorSmoke
  0171:4a 0a             send a 

  0173:38 00d3          pushi d3 // $d3 setMotion
  0176:39 04            pushi 4 // $4 x
  0178:51 1d            class MoveTo 
  017a:36                push 
  017b:38 00ba          pushi ba // $ba targetX
  017e:39 6f            pushi 6f // $6f handleEvent
  0180:7c            pushSelf 
  0181:72 01ce          lofsa $0352 // glorHand
  0184:4a 0c             send c 

  0186:33 10              jmp code_0198 

        code_0188
  0188:3c                 dup 
  0189:35 03              ldi 3 
  018b:1a                 eq? 
  018c:31 0a              bnt code_0198 
  018e:38 00f8          pushi f8 // $f8 newRoom
  0191:78               push1 
  0192:89 0c              lsg gPrevRoomNum 
  0194:81 02              lag gCurRoom 
  0196:4a 06             send 6 


        code_0198
  0198:3a                toss 
  0199:48                 ret 
    )

)

// 024c
(instance Gloria of Prop
    (properties
        y $6e
        x $e7
        z $0
        heading $0
        yStep $2
        view $16f
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 029a
(instance glorSmoke of Act
    (properties
        y $59
        x $94
        z $0
        heading $0
        yStep $5
        view $16f
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $5
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)

// 02fe
(instance glorEye of Prop
    (properties
        y $4c
        x $cc
        z $0
        heading $0
        yStep $2
        view $16f
        loop $7
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 034c
(instance glorHand of Act
    (properties
        y $6f
        x $a7
        z $0
        heading $0
        yStep $2
        view $16f
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)

// 03b0
(instance myMusic of Sound
    (properties
        state $0
        number $0
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)



