(script 355)

(string
    string_01a2 "missColo"
    string_01ab "myMusic"
    string_01b3 "scene42f"
)

(said
)

(local
)

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

// 0128
(instance public scene42f 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 00de          lofsa $0104 // myMusic
  0026:4a 10             send 10 

  0028:7a               push2 
  0029:38 0087          pushi 87 // $87 clean
  002c:39 29            pushi 29 // $29 edit
  002e:43 00 04         callk Load 4 

  0031:7a               push2 
  0032:38 008f          pushi 8f // $8f moveTo
  0035:38 0196          pushi 196 // $196 sel_406
  0038:45 15 04         callb procedure_0015 4 // LoadMany 

  003b:7a               push2 
  003c:38 0080          pushi 80 // $80 timeLeft
  003f:38 0282          pushi 282 // $282 sel_642
  0042:43 00 04         callk Load 4 

  0045:39 05            pushi 5 // $5 view
  0047:38 0084          pushi 84 // $84 stop
  004a:39 5e            pushi 5e // $5e respondsTo
  004c:39 5f            pushi 5f // $5f yourself
  004e:39 60            pushi 60 // $60 size
  0050:39 1d            pushi 1d // $1d back
  0052:45 15 0a         callb procedure_0015 a // LoadMany 

  0055:39 7a            pushi 7a // $7a setScript
  0057:78               push1 
  0058:74 011f          lofss $017a // missColo
  005b:54 06             self 6 

  005d:48                 ret 
    )

    (method (doit) // method_005e
  005e:39 3c            pushi 3c // $3c doit
  0060:76               push0 
  0061:57 37 04         super Rm 4 

  0064:48                 ret 
    )

    (method (dispose) // method_0065
  0065:39 58            pushi 58 // $58 dispose
  0067:76               push0 
  0068:57 37 04         super Rm 4 

  006b:48                 ret 
    )

    (method (handleEvent) // method_006c
  006c:39 6f            pushi 6f // $6f handleEvent
  006e:78               push1 
  006f:8f 01              lsp param1 
  0071:57 37 06         super Rm 6 

  0074:48                 ret 
    )

)

// 0174
(instance missColo 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_0075
  0075:87 01              lap param1 
  0077:65 0a             aTop state 
  0079:36                push 
  007a:3c                 dup 
  007b:35 00              ldi 0 
  007d:1a                 eq? 
  007e:31 40              bnt code_00c0 
  0080:80 00d8            lag global216 
  0083:18                 not 
  0084:31 06              bnt code_008c 
  0086:35 ff              ldi ff 
  0088:65 0a             aTop state 
  008a:33 2e              jmp code_00ba 

        code_008c
  008c:89 76              lsg gMustDos 
  008e:35 04              ldi 4 
  0090:12                 and 
  0091:18                 not 
  0092:31 1b              bnt code_00af 
  0094:89 76              lsg gMustDos 
  0096:35 04              ldi 4 
  0098:14                  or 
  0099:a1 76              sag gMustDos 
  009b:39 7a            pushi 7a // $7a setScript
  009d:78               push1 
  009e:7a               push2 
  009f:38 0196          pushi 196 // $196 sel_406
  00a2:76               push0 
  00a3:43 02 04         callk ScriptID 4 

  00a6:36                push 
  00a7:54 06             self 6 

  00a9:35 ff              ldi ff 
  00ab:65 0a             aTop state 
  00ad:33 0b              jmp code_00ba 

        code_00af
  00af:39 76            pushi 76 // $76 script
  00b1:76               push0 
  00b2:54 04             self 4 

  00b4:31 04              bnt code_00ba 
  00b6:35 ff              ldi ff 
  00b8:65 0a             aTop state 

        code_00ba
  00ba:35 01              ldi 1 
  00bc:65 10             aTop cycles 
  00be:33 36              jmp code_00f6 

        code_00c0
  00c0:3c                 dup 
  00c1:35 01              ldi 1 
  00c3:1a                 eq? 
  00c4:31 1a              bnt code_00e0 
  00c6:39 06            pushi 6 // $6 loop
  00c8:38 0163          pushi 163 // $163 sel_355
  00cb:76               push0 
  00cc:39 43            pushi 43 // $43 at
  00ce:39 46            pushi 46 // $46 width
  00d0:39 3f            pushi 3f // $3f priority
  00d2:39 58            pushi 58 // $58 dispose
  00d4:46 00ff 0000 0c  calle ff procedure_0000 c // Print 

  00da:35 04              ldi 4 
  00dc:65 12             aTop seconds 
  00de:33 16              jmp code_00f6 

        code_00e0
  00e0:3c                 dup 
  00e1:35 02              ldi 2 
  00e3:1a                 eq? 
  00e4:31 10              bnt code_00f6 
  00e6:78               push1 
  00e7:39 25            pushi 25 // $25 max
  00e9:45 05 02         callb procedure_0005 2 // SetFlag 

  00ec:38 00f8          pushi f8 // $f8 newRoom
  00ef:78               push1 
  00f0:89 0c              lsg gPrevRoomNum 
  00f2:81 02              lag gCurRoom 
  00f4:4a 06             send 6 


        code_00f6
  00f6:3a                toss 
  00f7:48                 ret 
    )

)



