(script 307)

(string
    string_0226 "Fifi"
    string_022b "myMusic"
    string_0233 "scene42a"
    string_023c "speech42a"
)

(said
)

(local
)

// 011a
(instance Fifi of Act
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        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
    )
)

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

// 01a8
(instance public scene42a 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_002c
  002c:39 57            pushi 57 // $57 init
  002e:76               push0 
  002f:57 37 04         super Rm 4 

  0032:7a               push2 
  0033:38 0087          pushi 87 // $87 clean
  0036:39 04            pushi 4 // $4 x
  0038:43 00 04         callk Load 4 

  003b:76               push0 
  003c:45 03 00         callb procedure_0003 0 // HandsOff 

  003f:39 2b            pushi 2b // $2b number
  0041:78               push1 
  0042:39 1b            pushi 1b // $1b elements
  0044:39 06            pushi 6 // $6 loop
  0046:78               push1 
  0047:39 ff            pushi ff // $ff checkAni
  0049:39 2a            pushi 2a // $2a play
  004b:76               push0 
  004c:72 0135          lofsa $0184 // myMusic
  004f:4a 10             send 10 

  0051:39 05            pushi 5 // $5 view
  0053:78               push1 
  0054:38 0131          pushi 131 // $131 numOfLoops
  0057:39 06            pushi 6 // $6 loop
  0059:78               push1 
  005a:76               push0 
  005b:39 07            pushi 7 // $7 cel
  005d:78               push1 
  005e:39 05            pushi 5 // $5 view
  0060:38 00c5          pushi c5 // $c5 posn
  0063:7a               push2 
  0064:38 00a2          pushi a2 // $a2 setCel
  0067:39 66            pushi 66 // $66 isEmpty
  0069:39 42            pushi 42 // $42 setPri
  006b:78               push1 
  006c:39 03            pushi 3 // $3 y
  006e:38 00a4          pushi a4 // $a4 cycleSpeed
  0071:78               push1 
  0072:7a               push2 
  0073:39 57            pushi 57 // $57 init
  0075:76               push0 
  0076:72 00a7          lofsa $0120 // Fifi
  0079:4a 2a             send 2a 

  007b:39 7a            pushi 7a // $7a setScript
  007d:78               push1 
  007e:74 0179          lofss $01fa // speech42a
  0081:54 06             self 6 

  0083:48                 ret 
    )

    (method (doit) // method_0084
  0084:39 3c            pushi 3c // $3c doit
  0086:76               push0 
  0087:57 37 04         super Rm 4 

  008a:48                 ret 
    )

    (method (dispose) // method_008b
  008b:39 58            pushi 58 // $58 dispose
  008d:76               push0 
  008e:57 37 04         super Rm 4 

  0091:48                 ret 
    )

    (method (handleEvent) // method_0092
  0092:39 6f            pushi 6f // $6f handleEvent
  0094:78               push1 
  0095:8f 01              lsp param1 
  0097:57 37 06         super Rm 6 

  009a:48                 ret 
    )

)

// 01f4
(instance speech42a of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (handleEvent) // method_009b
  009b:39 6f            pushi 6f // $6f handleEvent
  009d:78               push1 
  009e:8f 01              lsp param1 
  00a0:57 05 06         super Script 6 

  00a3:39 4c            pushi 4c // $4c claimed
  00a5:76               push0 
  00a6:87 01              lap param1 
  00a8:4a 04             send 4 

  00aa:18                 not 
  00ab:31 39              bnt code_00e6 
  00ad:63 18             pToa script 
  00af:18                 not 
  00b0:31 34              bnt code_00e6 
  00b2:39 04            pushi 4 // $4 x
  00b4:39 22            pushi 22 // $22 type
  00b6:76               push0 
  00b7:87 01              lap param1 
  00b9:4a 04             send 4 

  00bb:1a                 eq? 
  00bc:31 28              bnt code_00e6 
  00be:39 28            pushi 28 // $28 message
  00c0:76               push0 
  00c1:87 01              lap param1 
  00c3:4a 04             send 4 

  00c5:36                push 
  00c6:35 53              ldi 53 
  00c8:1a                 eq? 
  00c9:2f 0d               bt code_00d8 
  00cb:39 28            pushi 28 // $28 message
  00cd:76               push0 
  00ce:87 01              lap param1 
  00d0:4a 04             send 4 

  00d2:36                push 
  00d3:35 73              ldi 73 
  00d5:1a                 eq? 
  00d6:31 0e              bnt code_00e6 

        code_00d8
  00d8:76               push0 
  00d9:45 0f 00         callb procedure_000f 0 // cls 

  00dc:38 00f8          pushi f8 // $f8 newRoom
  00df:78               push1 
  00e0:89 0c              lsg gPrevRoomNum 
  00e2:81 02              lag gCurRoom 
  00e4:4a 06             send 6 


        code_00e6
  00e6:48                 ret 
    )

    (method (changeState) // method_00e7
  00e7:87 01              lap param1 
  00e9:65 0a             aTop state 
  00eb:36                push 
  00ec:3c                 dup 
  00ed:35 00              ldi 0 
  00ef:1a                 eq? 
  00f0:31 0f              bnt code_0101 
  00f2:7a               push2 
  00f3:38 0133          pushi 133 // $133 vertAngle
  00f6:76               push0 
  00f7:40 ff11 04        call proc_000c 4 

  00fb:35 04              ldi 4 
  00fd:65 12             aTop seconds 
  00ff:33 10              jmp code_0111 

        code_0101
  0101:3c                 dup 
  0102:35 01              ldi 1 
  0104:1a                 eq? 
  0105:31 0a              bnt code_0111 
  0107:38 00f8          pushi f8 // $f8 newRoom
  010a:78               push1 
  010b:89 0c              lsg gPrevRoomNum 
  010d:81 02              lag gCurRoom 
  010f:4a 06             send 6 


        code_0111
  0111:3a                toss 
  0112:48                 ret 
  0113:00                bnot 
    )

)



(procedure proc_000c
  000c:39 0a            pushi a // $a nsLeft
  000e:59 01            &rest 1 
  0010:39 43            pushi 43 // $43 at
  0012:38 00a0          pushi a0 // $a0 cycleDone
  0015:39 73            pushi 73 // $73 seconds
  0017:39 21            pushi 21 // $21 font
  0019:39 04            pushi 4 // $4 x
  001b:39 46            pushi 46 // $46 width
  001d:38 008c          pushi 8c // $8c track
  0020:39 1e            pushi 1e // $1e mode
  0022:78               push1 
  0023:39 58            pushi 58 // $58 dispose
  0025:46 00ff 0000 14  calle ff procedure_0000 14 // Print 

  002b:48                 ret 
)

