(script 49)

(string
    string_17b6 "Back"
    string_17bb "Entering"
    string_17c4 "Front"
    string_17ca "LookAround"
    string_17d5 "Platform"
    string_17de "Room49"
    string_17e5 "bpanel"
    string_17ec "bprotrait"
    string_17f6 "cane"
    string_17fb "cigar"
    string_1801 "eyes"
    string_1806 "fpanel"
    string_180d "fprotrait"
    string_1817 "grabbed"
    string_181f "leftDwnPath"
    string_182b "leftUpPath"
    string_1836 "myMusic"
    string_183e "mySound"
    string_1846 "pickUp"
    string_184d "platform"
    string_1856 "rightDwnPath"
    string_1863 "rightUpPath"
    string_186f ""
)

(said
    said_11d4 /armoire
    said_11d8 /bedroom
    said_11dc /clock
    said_11e0 /dirt
    said_11e4 /door
    said_11e8 /library
    said_11ec /painting
    said_11f0 /room<billard
    said_11f7 /room<guest
    said_11fe <bas
    said_1202 [<around,at][/room]
    said_1210 [<through,dans]/eyehole,eye
    said_121f clore,attirer,appuyer,open/armoire
    said_122e clore,attirer,appuyer,open/clock
    said_123d clore/door
    said_1243 get/butt
    said_1249 get/cane
    said_124f get/painting
    said_1255 look/butt
    said_125b look/cane
    said_1261 look/door
    said_1267 look>
    said_126b bouger,open/door
    said_1274 sentir
)

(synonym
    armoire | cabinet | cupboard | hutch | wardrobe = closet | placard
    door | doorway | porte = panel | pannea | panneau
)

(local
    local0 = $0031
    local1 = $0000
    local2 = $0031
    local3 = $0001
    local4 = $0031
    local5 = $0002
    local6 = $0031
    local7 = $0003
    local8 = $0000
    local9 = $0000
    local10 = $00a3
    local11 = $006a
    local12 = $00ba
    local13 = $0063
    local14 = $8000
    local15 = $00af
    local16 = $0064
    local17 = $0096
    local18 = $006d
    local19 = $8000
    local20 = $00d7
    local21 = $0064
    local22 = $00c5
    local23 = $0063
    local24 = $8000
    local25 = $00ce
    local26 = $0063
    local27 = $00e3
    local28 = $006d
    local29 = $8000
    local30 = $0000
    local31 = $0000
    local32 = $0000
    local33 = $0000
)

// 127e
(instance rightUpPath of Path
    (properties
        client $0
        caller $0
        x $0
        y $0
        dx $0
        dy $0
        b-moveCnt $0
        b-i1 $0
        b-i2 $0
        b-di $0
        b-xAxis $0
        b-incr $0
        completed $0
        intermediate $0
        value $0
    )
    (method (at) // method_00c2
  00c2:87 01              lap param1 
  00c4:93 14             lali local20 
  00c6:48                 ret 
    )

)

// 12b8
(instance leftUpPath of Path
    (properties
        client $0
        caller $0
        x $0
        y $0
        dx $0
        dy $0
        b-moveCnt $0
        b-i1 $0
        b-i2 $0
        b-di $0
        b-xAxis $0
        b-incr $0
        completed $0
        intermediate $0
        value $0
    )
    (method (at) // method_00c7
  00c7:87 01              lap param1 
  00c9:93 0a             lali local10 
  00cb:48                 ret 
    )

)

// 12f2
(instance rightDwnPath of Path
    (properties
        client $0
        caller $0
        x $0
        y $0
        dx $0
        dy $0
        b-moveCnt $0
        b-i1 $0
        b-i2 $0
        b-di $0
        b-xAxis $0
        b-incr $0
        completed $0
        intermediate $0
        value $0
    )
    (method (at) // method_00cc
  00cc:87 01              lap param1 
  00ce:93 19             lali local25 
  00d0:48                 ret 
    )

)

// 132c
(instance leftDwnPath of Path
    (properties
        client $0
        caller $0
        x $0
        y $0
        dx $0
        dy $0
        b-moveCnt $0
        b-i1 $0
        b-i2 $0
        b-di $0
        b-xAxis $0
        b-incr $0
        completed $0
        intermediate $0
        value $0
    )
    (method (at) // method_00d1
  00d1:87 01              lap param1 
  00d3:93 0f             lali local15 
  00d5:48                 ret 
    )

)

// 1366
(instance public Room49 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $28
        style $ffff
        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_00d6
  00d6:76               push0 
  00d7:45 04 00         callb procedure_0004 0 // HandsOn 

  00da:89 0c              lsg gPrevRoomNum 
  00dc:35 28              ldi 28 
  00de:22                 lt? 
  00df:2f 10               bt code_00f1 
  00e1:89 0c              lsg gPrevRoomNum 
  00e3:34 012b            ldi 12b 
  00e6:1e                 gt? 
  00e7:31 1a              bnt code_0103 
  00e9:89 0c              lsg gPrevRoomNum 
  00eb:34 014a            ldi 14a 
  00ee:22                 lt? 
  00ef:31 12              bnt code_0103 

        code_00f1
  00f1:35 01              ldi 1 
  00f3:a3 1f              sal local31 
  00f5:35 21              ldi 21 
  00f7:65 1c             aTop east 
  00f9:35 20              ldi 20 
  00fb:65 1a             aTop north 
  00fd:35 24              ldi 24 
  00ff:65 1e             aTop south 
  0101:33 0c              jmp code_010f 

        code_0103
  0103:35 2b              ldi 2b 
  0105:65 1c             aTop east 
  0107:35 2a              ldi 2a 
  0109:65 1a             aTop north 
  010b:35 2e              ldi 2e 
  010d:65 1e             aTop south 

        code_010f
  010f:39 57            pushi 57 // $57 init
  0111:76               push0 
  0112:57 37 04         super Rm 4 

  0115:7a               push2 
  0116:38 0081          pushi 81 // $81 prevSignal
  0119:39 3e            pushi 3e // $3e looper
  011b:43 00 04         callk Load 4 

  011e:39 05            pushi 5 // $5 view
  0120:38 0084          pushi 84 // $84 stop
  0123:39 1b            pushi 1b // $1b elements
  0125:39 4a            pushi 4a // $4a pragmaFail
  0127:39 4b            pushi 4b // $4b said
  0129:39 6a            pushi 6a // $6a prev
  012b:45 15 0a         callb procedure_0015 a // LoadMany 

  012e:67 1e             pTos south 
  0130:35 2e              ldi 2e 
  0132:1a                 eq? 
  0133:31 09              bnt code_013e 
  0135:39 07            pushi 7 // $7 cel
  0137:78               push1 
  0138:78               push1 
  0139:72 13a4          lofsa $14e0 // fprotrait
  013c:4a 06             send 6 


        code_013e
  013e:39 61            pushi 61 // $61 add
  0140:7a               push2 
  0141:74 139c          lofss $14e0 // fprotrait
  0144:74 13c3          lofss $150a // bprotrait
  0147:39 3c            pushi 3c // $3c doit
  0149:76               push0 
  014a:81 0a              lag gAddToPics 
  014c:4a 0c             send c 

  014e:38 010b          pushi 10b // $10b setFeatures
  0151:78               push1 
  0152:74 15a1          lofss $16f6 // Platform
  0155:54 06             self 6 

  0157:88 00a5            lsg gAct 
  015a:35 02              ldi 2 
  015c:20                 ge? 
  015d:31 2f              bnt code_018e 
  015f:38 00ee          pushi ee // $ee has
  0162:78               push1 
  0163:39 15            pushi 15 // $15 brBottom
  0165:81 00              lag gEgo 
  0167:4a 06             send 6 

  0169:18                 not 
  016a:31 22              bnt code_018e 
  016c:89 77              lsg gCaneLocation 
  016e:35 00              ldi 0 
  0170:1a                 eq? 
  0171:31 1b              bnt code_018e 
  0173:89 0c              lsg gPrevRoomNum 
  0175:35 31              ldi 31 
  0177:22                 lt? 
  0178:31 14              bnt code_018e 
  017a:7a               push2 
  017b:39 31            pushi 31 // $31 b-i1
  017d:39 32            pushi 32 // $32 b-i2
  017f:43 40 04         callk Random 4 

  0182:36                push 
  0183:38 0106          pushi 106 // $106 east
  0186:76               push0 
  0187:81 02              lag gCurRoom 
  0189:4a 04             send 4 

  018b:02                 add 
  018c:a1 77              sag gCaneLocation 

        code_018e
  018e:89 0b              lsg gCurRoomNum 
  0190:89 77              lsg gCaneLocation 
  0192:38 0106          pushi 106 // $106 east
  0195:76               push0 
  0196:81 02              lag gCurRoom 
  0198:4a 04             send 4 

  019a:04                 sub 
  019b:1a                 eq? 
  019c:31 15              bnt code_01b3 
  019e:38 00ee          pushi ee // $ee has
  01a1:78               push1 
  01a2:39 15            pushi 15 // $15 brBottom
  01a4:81 00              lag gEgo 
  01a6:4a 06             send 6 

  01a8:18                 not 
  01a9:31 08              bnt code_01b3 
  01ab:39 57            pushi 57 // $57 init
  01ad:76               push0 
  01ae:72 14a1          lofsa $1652 // cane
  01b1:4a 04             send 4 


        code_01b3
  01b3:88 00a5            lsg gAct 
  01b6:35 03              ldi 3 
  01b8:20                 ge? 
  01b9:31 52              bnt code_020d 
  01bb:38 00ee          pushi ee // $ee has
  01be:78               push1 
  01bf:39 08            pushi 8 // $8 underBits
  01c1:81 00              lag gEgo 
  01c3:4a 06             send 6 

  01c5:18                 not 
  01c6:31 45              bnt code_020d 
  01c8:88 00a8            lsg gCigarButtLocation 
  01cb:35 00              ldi 0 
  01cd:1a                 eq? 
  01ce:31 3d              bnt code_020d 
  01d0:89 0c              lsg gPrevRoomNum 
  01d2:35 31              ldi 31 
  01d4:22                 lt? 
  01d5:31 36              bnt code_020d 
  01d7:7a               push2 
  01d8:39 31            pushi 31 // $31 b-i1
  01da:39 32            pushi 32 // $32 b-i2
  01dc:43 40 04         callk Random 4 

  01df:36                push 
  01e0:38 0106          pushi 106 // $106 east
  01e3:76               push0 
  01e4:81 02              lag gCurRoom 
  01e6:4a 04             send 4 

  01e8:02                 add 
  01e9:a0 00a8            sag gCigarButtLocation 
  01ec:36                push 
  01ed:81 77              lag gCaneLocation 
  01ef:1a                 eq? 
  01f0:31 1b              bnt code_020d 
  01f2:89 77              lsg gCaneLocation 
  01f4:35 55              ldi 55 
  01f6:1e                 gt? 
  01f7:31 0b              bnt code_0204 
  01f9:88 00a8            lsg gCigarButtLocation 
  01fc:35 0a              ldi a 
  01fe:04                 sub 
  01ff:a0 00a8            sag gCigarButtLocation 
  0202:33 09              jmp code_020d 

        code_0204
  0204:88 00a8            lsg gCigarButtLocation 
  0207:35 0a              ldi a 
  0209:02                 add 
  020a:a0 00a8            sag gCigarButtLocation 

        code_020d
  020d:89 0b              lsg gCurRoomNum 
  020f:88 00a8            lsg gCigarButtLocation 
  0212:38 0106          pushi 106 // $106 east
  0215:76               push0 
  0216:81 02              lag gCurRoom 
  0218:4a 04             send 4 

  021a:04                 sub 
  021b:1a                 eq? 
  021c:31 1a              bnt code_0238 
  021e:38 00ee          pushi ee // $ee has
  0221:78               push1 
  0222:39 08            pushi 8 // $8 underBits
  0224:81 00              lag gEgo 
  0226:4a 06             send 6 

  0228:18                 not 
  0229:31 0d              bnt code_0238 
  022b:38 00c9          pushi c9 // $c9 ignoreActors
  022e:78               push1 
  022f:78               push1 
  0230:39 57            pushi 57 // $57 init
  0232:76               push0 
  0233:72 146e          lofsa $16a4 // cigar
  0236:4a 0a             send a 


        code_0238
  0238:38 00c8          pushi c8 // $c8 setLoop
  023b:78               push1 
  023c:39 05            pushi 5 // $5 view
  023e:38 00a2          pushi a2 // $a2 setCel
  0241:78               push1 
  0242:78               push1 
  0243:39 12            pushi 12 // $12 illegalBits
  0245:78               push1 
  0246:76               push0 
  0247:38 00c9          pushi c9 // $c9 ignoreActors
  024a:78               push1 
  024b:78               push1 
  024c:39 42            pushi 42 // $42 setPri
  024e:78               push1 
  024f:39 07            pushi 7 // $7 cel
  0251:39 57            pushi 57 // $57 init
  0253:76               push0 
  0254:38 00c6          pushi c6 // $c6 stopUpd
  0257:76               push0 
  0258:72 12dd          lofsa $1538 // fpanel
  025b:4a 26             send 26 

  025d:38 00c8          pushi c8 // $c8 setLoop
  0260:78               push1 
  0261:39 03            pushi 3 // $3 y
  0263:38 00a2          pushi a2 // $a2 setCel
  0266:78               push1 
  0267:76               push0 
  0268:39 12            pushi 12 // $12 illegalBits
  026a:78               push1 
  026b:76               push0 
  026c:39 42            pushi 42 // $42 setPri
  026e:78               push1 
  026f:39 04            pushi 4 // $4 x
  0271:39 57            pushi 57 // $57 init
  0273:76               push0 
  0274:38 00c6          pushi c6 // $c6 stopUpd
  0277:76               push0 
  0278:72 1325          lofsa $15a0 // bpanel
  027b:4a 20             send 20 

  027d:39 42            pushi 42 // $42 setPri
  027f:78               push1 
  0280:39 0a            pushi a // $a nsLeft
  0282:39 57            pushi 57 // $57 init
  0284:76               push0 
  0285:72 137c          lofsa $1604 // eyes
  0288:4a 0a             send a 

  028a:38 0089          pushi 89 // $89 hide
  028d:76               push0 
  028e:72 1373          lofsa $1604 // eyes
  0291:4a 04             send 4 

  0293:38 010a          pushi 10a // $10a setRegions
  0296:78               push1 
  0297:38 00d4          pushi d4 // $d4 setAvoider
  029a:54 06             self 6 

  029c:89 0c              lsg gPrevRoomNum 
  029e:3c                 dup 
  029f:35 21              ldi 21 
  02a1:1a                 eq? 
  02a2:31 0f              bnt code_02b3 
  02a4:38 00c5          pushi c5 // $c5 posn
  02a7:7a               push2 
  02a8:38 012d          pushi 12d // $12d oldCycler
  02ab:39 6e            pushi 6e // $6e indexOf
  02ad:81 00              lag gEgo 
  02af:4a 08             send 8 

  02b1:33 3b              jmp code_02ee 

        code_02b3
  02b3:3c                 dup 
  02b4:35 2b              ldi 2b 
  02b6:1a                 eq? 
  02b7:31 0f              bnt code_02c8 
  02b9:38 00c5          pushi c5 // $c5 posn
  02bc:7a               push2 
  02bd:38 012d          pushi 12d // $12d oldCycler
  02c0:39 6e            pushi 6e // $6e indexOf
  02c2:81 00              lag gEgo 
  02c4:4a 08             send 8 

  02c6:33 26              jmp code_02ee 

        code_02c8
  02c8:3c                 dup 
  02c9:35 24              ldi 24 
  02cb:1a                 eq? 
  02cc:31 0e              bnt code_02dc 
  02ce:38 00c5          pushi c5 // $c5 posn
  02d1:7a               push2 
  02d2:39 7c            pushi 7c // $7c lastTime
  02d4:39 73            pushi 73 // $73 seconds
  02d6:81 00              lag gEgo 
  02d8:4a 08             send 8 

  02da:33 12              jmp code_02ee 

        code_02dc
  02dc:3c                 dup 
  02dd:35 2e              ldi 2e 
  02df:1a                 eq? 
  02e0:31 0c              bnt code_02ee 
  02e2:38 00c5          pushi c5 // $c5 posn
  02e5:7a               push2 
  02e6:39 7c            pushi 7c // $7c lastTime
  02e8:39 73            pushi 73 // $73 seconds
  02ea:81 00              lag gEgo 
  02ec:4a 08             send 8 


        code_02ee
  02ee:3a                toss 
  02ef:89 0c              lsg gPrevRoomNum 
  02f1:35 20              ldi 20 
  02f3:1a                 eq? 
  02f4:2f 07               bt code_02fd 
  02f6:89 0c              lsg gPrevRoomNum 
  02f8:35 2a              ldi 2a 
  02fa:1a                 eq? 
  02fb:31 25              bnt code_0322 

        code_02fd
  02fd:39 06            pushi 6 // $6 loop
  02ff:78               push1 
  0300:7a               push2 
  0301:39 12            pushi 12 // $12 illegalBits
  0303:78               push1 
  0304:76               push0 
  0305:38 00c5          pushi c5 // $c5 posn
  0308:7a               push2 
  0309:38 00fb          pushi fb // $fb changeScore
  030c:39 65            pushi 65 // $65 contains
  030e:39 42            pushi 42 // $42 setPri
  0310:78               push1 
  0311:39 03            pushi 3 // $3 y
  0313:39 7a            pushi 7a // $7a setScript
  0315:78               push1 
  0316:74 1107          lofss $1420 // Entering
  0319:39 57            pushi 57 // $57 init
  031b:76               push0 
  031c:81 00              lag gEgo 
  031e:4a 24             send 24 

  0320:33 16              jmp code_0338 

        code_0322
  0322:39 05            pushi 5 // $5 view
  0324:78               push1 
  0325:76               push0 
  0326:39 42            pushi 42 // $42 setPri
  0328:78               push1 
  0329:39 06            pushi 6 // $6 loop
  032b:39 12            pushi 12 // $12 illegalBits
  032d:78               push1 
  032e:38 8000          pushi 8000 // $8000 sel_32768
  0331:39 57            pushi 57 // $57 init
  0333:76               push0 
  0334:81 00              lag gEgo 
  0336:4a 16             send 16 


        code_0338
  0338:48                 ret 
    )

    (method (doit) // method_0339
  0339:38 00da          pushi da // $da inRect
  033c:39 04            pushi 4 // $4 x
  033e:39 78            pushi 78 // $78 changeState
  0340:39 73            pushi 73 // $73 seconds
  0342:38 0081          pushi 81 // $81 prevSignal
  0345:39 76            pushi 76 // $76 script
  0347:81 00              lag gEgo 
  0349:4a 0c             send c 

  034b:31 32              bnt code_037f 
  034d:63 08             pToa script 
  034f:18                 not 
  0350:31 2d              bnt code_037f 
  0352:88 00a5            lsg gAct 
  0355:35 00              ldi 0 
  0357:1e                 gt? 
  0358:31 25              bnt code_037f 
  035a:88 00a5            lsg gAct 
  035d:35 07              ldi 7 
  035f:22                 lt? 
  0360:31 1d              bnt code_037f 
  0362:88 00a5            lsg gAct 
  0365:35 04              ldi 4 
  0367:1c                 ne? 
  0368:31 15              bnt code_037f 
  036a:7a               push2 
  036b:78               push1 
  036c:39 64            pushi 64 // $64 allTrue
  036e:43 40 04         callk Random 4 

  0371:36                push 
  0372:35 23              ldi 23 
  0374:22                 lt? 
  0375:31 08              bnt code_037f 
  0377:39 7a            pushi 7a // $7a setScript
  0379:78               push1 
  037a:74 1133          lofss $14b0 // grabbed
  037d:54 06             self 6 


        code_037f
  037f:89 0c              lsg gPrevRoomNum 
  0381:35 2b              ldi 2b 
  0383:1a                 eq? 
  0384:31 29              bnt code_03af 
  0386:88 008f            lsg global143 
  0389:35 00              ldi 0 
  038b:1a                 eq? 
  038c:31 21              bnt code_03af 
  038e:35 01              ldi 1 
  0390:a0 008f            sag global143 
  0393:39 2b            pushi 2b // $2b number
  0395:78               push1 
  0396:39 6a            pushi 6a // $6a prev
  0398:39 06            pushi 6 // $6 loop
  039a:78               push1 
  039b:78               push1 
  039c:39 2a            pushi 2a // $2a play
  039e:76               push0 
  039f:72 1380          lofsa $1722 // mySound
  03a2:4a 10             send 10 

  03a4:7a               push2 
  03a5:39 31            pushi 31 // $31 b-i1
  03a7:39 04            pushi 4 // $4 x
  03a9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_03af
  03af:89 0c              lsg gPrevRoomNum 
  03b1:35 21              ldi 21 
  03b3:1a                 eq? 
  03b4:31 29              bnt code_03df 
  03b6:88 008b            lsg global139 
  03b9:35 00              ldi 0 
  03bb:1a                 eq? 
  03bc:31 21              bnt code_03df 
  03be:35 01              ldi 1 
  03c0:a0 008b            sag global139 
  03c3:39 2b            pushi 2b // $2b number
  03c5:78               push1 
  03c6:39 6a            pushi 6a // $6a prev
  03c8:39 06            pushi 6 // $6 loop
  03ca:78               push1 
  03cb:78               push1 
  03cc:39 2a            pushi 2a // $2a play
  03ce:76               push0 
  03cf:72 1350          lofsa $1722 // mySound
  03d2:4a 10             send 10 

  03d4:7a               push2 
  03d5:39 31            pushi 31 // $31 b-i1
  03d7:39 04            pushi 4 // $4 x
  03d9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_03df
  03df:88 0171            lsg global369 
  03e2:35 01              ldi 1 
  03e4:1a                 eq? 
  03e5:31 23              bnt code_040a 
  03e7:81 6b              lag global107 
  03e9:18                 not 
  03ea:31 1e              bnt code_040a 
  03ec:89 0c              lsg gPrevRoomNum 
  03ee:35 2f              ldi 2f 
  03f0:22                 lt? 
  03f1:31 17              bnt code_040a 
  03f3:88 00a5            lsg gAct 
  03f6:35 04              ldi 4 
  03f8:1a                 eq? 
  03f9:31 0f              bnt code_040a 
  03fb:35 01              ldi 1 
  03fd:a1 6b              sag global107 
  03ff:7a               push2 
  0400:39 31            pushi 31 // $31 b-i1
  0402:39 05            pushi 5 // $5 view
  0404:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_040a
  040a:39 04            pushi 4 // $4 x
  040c:76               push0 
  040d:81 00              lag gEgo 
  040f:4a 04             send 4 

  0411:36                push 
  0412:34 010e            ldi 10e 
  0415:22                 lt? 
  0416:31 06              bnt code_041e 
  0418:35 28              ldi 28 
  041a:65 2a             aTop vertAngle 
  041c:33 04              jmp code_0422 

        code_041e
  041e:35 00              ldi 0 
  0420:65 2a             aTop vertAngle 

        code_0422
  0422:38 00db          pushi db // $db onControl
  0425:78               push1 
  0426:78               push1 
  0427:81 00              lag gEgo 
  0429:4a 06             send 6 

  042b:36                push 
  042c:35 02              ldi 2 
  042e:12                 and 
  042f:31 27              bnt code_0458 
  0431:88 00a5            lsg gAct 
  0434:35 00              ldi 0 
  0436:1a                 eq? 
  0437:31 15              bnt code_044e 
  0439:88 00ad            lsg gSpyFlags 
  043c:35 01              ldi 1 
  043e:12                 and 
  043f:31 0d              bnt code_044e 
  0441:88 00c7            lsg global199 
  0444:35 00              ldi 0 
  0446:1a                 eq? 
  0447:31 05              bnt code_044e 
  0449:35 01              ldi 1 
  044b:a0 00c7            sag global199 

        code_044e
  044e:38 00f8          pushi f8 // $f8 newRoom
  0451:78               push1 
  0452:67 1c             pTos east 
  0454:81 02              lag gCurRoom 
  0456:4a 06             send 6 


        code_0458
  0458:83 09              lal local9 
  045a:18                 not 
  045b:30 00a8            bnt code_0506 
  045e:38 00db          pushi db // $db onControl
  0461:76               push0 
  0462:81 00              lag gEgo 
  0464:4a 04             send 4 

  0466:36                push 
  0467:35 40              ldi 40 
  0469:12                 and 
  046a:31 46              bnt code_04b2 
  046c:35 01              ldi 1 
  046e:a3 09              sal local9 
  0470:35 00              ldi 0 
  0472:65 2a             aTop vertAngle 
  0474:39 12            pushi 12 // $12 illegalBits
  0476:78               push1 
  0477:76               push0 
  0478:81 00              lag gEgo 
  047a:4a 06             send 6 

  047c:76               push0 
  047d:45 03 00         callb procedure_0003 0 // HandsOff 

  0480:39 3a            pushi 3a // $3a heading
  0482:76               push0 
  0483:81 00              lag gEgo 
  0485:4a 04             send 4 

  0487:36                push 
  0488:34 00b4            ldi b4 
  048b:22                 lt? 
  048c:31 13              bnt code_04a1 
  048e:38 00c8          pushi c8 // $c8 setLoop
  0491:78               push1 
  0492:76               push0 
  0493:38 00d3          pushi d3 // $d3 setMotion
  0496:7a               push2 
  0497:74 0e24          lofss $12be // leftUpPath
  049a:7c            pushSelf 
  049b:81 00              lag gEgo 
  049d:4a 0e             send e 

  049f:33 11              jmp code_04b2 

        code_04a1
  04a1:38 00c8          pushi c8 // $c8 setLoop
  04a4:78               push1 
  04a5:78               push1 
  04a6:38 00d3          pushi d3 // $d3 setMotion
  04a9:7a               push2 
  04aa:74 0e85          lofss $1332 // leftDwnPath
  04ad:7c            pushSelf 
  04ae:81 00              lag gEgo 
  04b0:4a 0e             send e 


        code_04b2
  04b2:38 00db          pushi db // $db onControl
  04b5:76               push0 
  04b6:81 00              lag gEgo 
  04b8:4a 04             send 4 

  04ba:36                push 
  04bb:35 20              ldi 20 
  04bd:12                 and 
  04be:31 46              bnt code_0506 
  04c0:35 01              ldi 1 
  04c2:a3 09              sal local9 
  04c4:35 00              ldi 0 
  04c6:65 2a             aTop vertAngle 
  04c8:39 12            pushi 12 // $12 illegalBits
  04ca:78               push1 
  04cb:76               push0 
  04cc:81 00              lag gEgo 
  04ce:4a 06             send 6 

  04d0:76               push0 
  04d1:45 03 00         callb procedure_0003 0 // HandsOff 

  04d4:39 3a            pushi 3a // $3a heading
  04d6:76               push0 
  04d7:81 00              lag gEgo 
  04d9:4a 04             send 4 

  04db:36                push 
  04dc:34 00b4            ldi b4 
  04df:22                 lt? 
  04e0:31 13              bnt code_04f5 
  04e2:38 00c8          pushi c8 // $c8 setLoop
  04e5:78               push1 
  04e6:76               push0 
  04e7:38 00d3          pushi d3 // $d3 setMotion
  04ea:7a               push2 
  04eb:74 0e0a          lofss $12f8 // rightDwnPath
  04ee:7c            pushSelf 
  04ef:81 00              lag gEgo 
  04f1:4a 0e             send e 

  04f3:33 11              jmp code_0506 

        code_04f5
  04f5:38 00c8          pushi c8 // $c8 setLoop
  04f8:78               push1 
  04f9:78               push1 
  04fa:38 00d3          pushi d3 // $d3 setMotion
  04fd:7a               push2 
  04fe:74 0d83          lofss $1284 // rightUpPath
  0501:7c            pushSelf 
  0502:81 00              lag gEgo 
  0504:4a 0e             send e 


        code_0506
  0506:39 3c            pushi 3c // $3c doit
  0508:76               push0 
  0509:57 37 04         super Rm 4 

  050c:48                 ret 
    )

    (method (dispose) // method_050d
  050d:78               push1 
  050e:38 03d7          pushi 3d7 // $3d7 sel_983
  0511:43 03 02         callk DisposeScript 2 

  0514:39 58            pushi 58 // $58 dispose
  0516:76               push0 
  0517:57 37 04         super Rm 4 

  051a:48                 ret 
    )

    (method (newRoom) // method_051b
  051b:39 42            pushi 42 // $42 setPri
  051d:78               push1 
  051e:39 ff            pushi ff // $ff checkAni
  0520:81 00              lag gEgo 
  0522:4a 06             send 6 

  0524:78               push1 
  0525:39 26            pushi 26 // $26 mark
  0527:45 07 02         callb procedure_0007 2 // IsFlag 

  052a:2f 08               bt code_0534 
  052c:78               push1 
  052d:39 25            pushi 25 // $25 max
  052f:45 07 02         callb procedure_0007 2 // IsFlag 

  0532:31 1a              bnt code_054e 

        code_0534
  0534:8f 01              lsp param1 
  0536:35 2a              ldi 2a 
  0538:1c                 ne? 
  0539:31 13              bnt code_054e 
  053b:8f 01              lsp param1 
  053d:35 2b              ldi 2b 
  053f:1c                 ne? 
  0540:31 0c              bnt code_054e 
  0542:78               push1 
  0543:39 26            pushi 26 // $26 mark
  0545:45 06 02         callb procedure_0006 2 // ClearFlag 

  0548:78               push1 
  0549:39 25            pushi 25 // $25 max
  054b:45 06 02         callb procedure_0006 2 // ClearFlag 


        code_054e
  054e:38 00f8          pushi f8 // $f8 newRoom
  0551:78               push1 
  0552:8f 01              lsp param1 
  0554:57 37 06         super Rm 6 

  0557:48                 ret 
    )

    (method (handleEvent) // method_0558
  0558:3f 01             link 1 // (var $1)
  055a:39 4c            pushi 4c // $4c claimed
  055c:76               push0 
  055d:87 01              lap param1 
  055f:4a 04             send 4 

  0561:31 03              bnt code_0566 
  0563:35 01              ldi 1 
  0565:48                 ret 

        code_0566
  0566:39 22            pushi 22 // $22 type
  0568:76               push0 
  0569:87 01              lap param1 
  056b:4a 04             send 4 

  056d:36                push 
  056e:34 0080            ldi 80 
  0571:1a                 eq? 
  0572:30 031d            bnt code_0892 
  0575:81 6b              lag global107 
  0577:18                 not 
  0578:31 17              bnt code_0591 
  057a:78               push1 
  057b:74 0cf6          lofss $1274 // sentir
  057e:43 25 02         callk Said 2 

  0581:31 0e              bnt code_0591 
  0583:7a               push2 
  0584:39 31            pushi 31 // $31 b-i1
  0586:39 05            pushi 5 // $5 view
  0588:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  058e:32 0301            jmp code_0892 

        code_0591
  0591:78               push1 
  0592:74 0cd2          lofss $1267 // look>
  0595:43 25 02         callk Said 2 

  0598:30 01d0            bnt code_076b 
  059b:78               push1 
  059c:74 0c51          lofss $11f0 // /room<billard
  059f:43 25 02         callk Said 2 

  05a2:2f 09               bt code_05ad 
  05a4:78               push1 
  05a5:74 0c40          lofss $11e8 // /library
  05a8:43 25 02         callk Said 2 

  05ab:31 1f              bnt code_05cc 

        code_05ad
  05ad:67 20             pTos west 
  05af:35 21              ldi 21 
  05b1:1a                 eq? 
  05b2:31 0d              bnt code_05c1 
  05b4:7a               push2 
  05b5:39 31            pushi 31 // $31 b-i1
  05b7:39 06            pushi 6 // $6 loop
  05b9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05bf:33 08              jmp code_05c9 

        code_05c1
  05c1:39 4c            pushi 4c // $4c claimed
  05c3:78               push1 
  05c4:76               push0 
  05c5:87 01              lap param1 
  05c7:4a 06             send 6 


        code_05c9
  05c9:32 019c            jmp code_0768 

        code_05cc
  05cc:78               push1 
  05cd:74 0c27          lofss $11f7 // /room<guest
  05d0:43 25 02         callk Said 2 

  05d3:2f 09               bt code_05de 
  05d5:78               push1 
  05d6:74 0bff          lofss $11d8 // /bedroom
  05d9:43 25 02         callk Said 2 

  05dc:31 1f              bnt code_05fd 

        code_05de
  05de:67 20             pTos west 
  05e0:35 2b              ldi 2b 
  05e2:1a                 eq? 
  05e3:31 0d              bnt code_05f2 
  05e5:7a               push2 
  05e6:39 31            pushi 31 // $31 b-i1
  05e8:39 06            pushi 6 // $6 loop
  05ea:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05f0:33 08              jmp code_05fa 

        code_05f2
  05f2:39 4c            pushi 4c // $4c claimed
  05f4:78               push1 
  05f5:76               push0 
  05f6:87 01              lap param1 
  05f8:4a 06             send 6 


        code_05fa
  05fa:32 016b            jmp code_0768 

        code_05fd
  05fd:78               push1 
  05fe:74 0c01          lofss $1202 // [<around,at][/room]
  0601:43 25 02         callk Said 2 

  0604:31 0e              bnt code_0614 
  0606:7a               push2 
  0607:39 31            pushi 31 // $31 b-i1
  0609:39 04            pushi 4 // $4 x
  060b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0611:32 0154            jmp code_0768 

        code_0614
  0614:78               push1 
  0615:74 0bd4          lofss $11ec // /painting
  0618:43 25 02         callk Said 2 

  061b:31 0e              bnt code_062b 
  061d:7a               push2 
  061e:39 31            pushi 31 // $31 b-i1
  0620:39 07            pushi 7 // $7 cel
  0622:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0628:32 013d            jmp code_0768 

        code_062b
  062b:78               push1 
  062c:74 0bb5          lofss $11e4 // /door
  062f:43 25 02         callk Said 2 

  0632:31 0e              bnt code_0642 
  0634:7a               push2 
  0635:39 31            pushi 31 // $31 b-i1
  0637:39 08            pushi 8 // $8 underBits
  0639:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  063f:32 0126            jmp code_0768 

        code_0642
  0642:78               push1 
  0643:74 0b9a          lofss $11e0 // /dirt
  0646:43 25 02         callk Said 2 

  0649:2f 09               bt code_0654 
  064b:78               push1 
  064c:74 0baf          lofss $11fe // <bas
  064f:43 25 02         callk Said 2 

  0652:31 61              bnt code_06b5 

        code_0654
  0654:38 00ee          pushi ee // $ee has
  0657:78               push1 
  0658:39 15            pushi 15 // $15 brBottom
  065a:81 00              lag gEgo 
  065c:4a 06             send 6 

  065e:18                 not 
  065f:31 19              bnt code_067a 
  0661:89 0b              lsg gCurRoomNum 
  0663:89 77              lsg gCaneLocation 
  0665:81 0c              lag gPrevRoomNum 
  0667:04                 sub 
  0668:1a                 eq? 
  0669:31 0f              bnt code_067a 
  066b:35 01              ldi 1 
  066d:a3 20              sal local32 
  066f:7a               push2 
  0670:39 31            pushi 31 // $31 b-i1
  0672:39 09            pushi 9 // $9 nsTop
  0674:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_067a
  067a:38 00ee          pushi ee // $ee has
  067d:78               push1 
  067e:39 08            pushi 8 // $8 underBits
  0680:81 00              lag gEgo 
  0682:4a 06             send 6 

  0684:18                 not 
  0685:31 1a              bnt code_06a1 
  0687:89 0b              lsg gCurRoomNum 
  0689:88 00a8            lsg gCigarButtLocation 
  068c:81 0c              lag gPrevRoomNum 
  068e:04                 sub 
  068f:1a                 eq? 
  0690:31 0f              bnt code_06a1 
  0692:35 01              ldi 1 
  0694:a3 20              sal local32 
  0696:7a               push2 
  0697:39 31            pushi 31 // $31 b-i1
  0699:39 0a            pushi a // $a nsLeft
  069b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06a1
  06a1:83 20              lal local32 
  06a3:18                 not 
  06a4:31 08              bnt code_06ae 
  06a6:39 4c            pushi 4c // $4c claimed
  06a8:78               push1 
  06a9:76               push0 
  06aa:87 01              lap param1 
  06ac:4a 06             send 6 


        code_06ae
  06ae:35 00              ldi 0 
  06b0:a3 20              sal local32 
  06b2:32 00b3            jmp code_0768 

        code_06b5
  06b5:78               push1 
  06b6:74 0b23          lofss $11dc // /clock
  06b9:43 25 02         callk Said 2 

  06bc:31 29              bnt code_06e7 
  06be:38 0106          pushi 106 // $106 east
  06c1:76               push0 
  06c2:81 02              lag gCurRoom 
  06c4:4a 04             send 4 

  06c6:36                push 
  06c7:35 21              ldi 21 
  06c9:1a                 eq? 
  06ca:31 0d              bnt code_06d9 
  06cc:7a               push2 
  06cd:39 31            pushi 31 // $31 b-i1
  06cf:39 0b            pushi b // $b nsBottom
  06d1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06d7:33 0b              jmp code_06e4 

        code_06d9
  06d9:7a               push2 
  06da:39 31            pushi 31 // $31 b-i1
  06dc:39 0c            pushi c // $c nsRight
  06de:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06e4
  06e4:32 0081            jmp code_0768 

        code_06e7
  06e7:78               push1 
  06e8:74 0ae9          lofss $11d4 // /armoire
  06eb:43 25 02         callk Said 2 

  06ee:31 28              bnt code_0718 
  06f0:38 0106          pushi 106 // $106 east
  06f3:76               push0 
  06f4:81 02              lag gCurRoom 
  06f6:4a 04             send 4 

  06f8:36                push 
  06f9:35 2b              ldi 2b 
  06fb:1a                 eq? 
  06fc:31 0d              bnt code_070b 
  06fe:7a               push2 
  06ff:39 31            pushi 31 // $31 b-i1
  0701:39 0d            pushi d // $d lsTop
  0703:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0709:33 0b              jmp code_0716 

        code_070b
  070b:7a               push2 
  070c:39 31            pushi 31 // $31 b-i1
  070e:39 0e            pushi e // $e lsLeft
  0710:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0716
  0716:33 50              jmp code_0768 

        code_0718
  0718:78               push1 
  0719:74 0af4          lofss $1210 // [<through,dans]/eyehole,eye
  071c:43 25 02         callk Said 2 

  071f:31 47              bnt code_0768 
  0721:38 00db          pushi db // $db onControl
  0724:78               push1 
  0725:78               push1 
  0726:81 00              lag gEgo 
  0728:4a 06             send 6 

  072a:36                push 
  072b:35 10              ldi 10 
  072d:12                 and 
  072e:31 34              bnt code_0764 
  0730:39 06            pushi 6 // $6 loop
  0732:76               push0 
  0733:81 00              lag gEgo 
  0735:4a 04             send 4 

  0737:36                push 
  0738:35 02              ldi 2 
  073a:1a                 eq? 
  073b:2f 0d               bt code_074a 
  073d:39 06            pushi 6 // $6 loop
  073f:76               push0 
  0740:81 00              lag gEgo 
  0742:4a 04             send 4 

  0744:36                push 
  0745:35 03              ldi 3 
  0747:1a                 eq? 
  0748:31 0d              bnt code_0757 

        code_074a
  074a:39 7a            pushi 7a // $7a setScript
  074c:78               push1 
  074d:74 0d00          lofss $1450 // LookAround
  0750:72 0eb1          lofsa $1604 // eyes
  0753:4a 06             send 6 

  0755:33 0b              jmp code_0762 

        code_0757
  0757:7a               push2 
  0758:39 31            pushi 31 // $31 b-i1
  075a:39 0f            pushi f // $f lsBottom
  075c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0762
  0762:33 04              jmp code_0768 

        code_0764
  0764:76               push0 
  0765:45 09 00         callb procedure_0009 0 // NotClose 


        code_0768
  0768:32 0127            jmp code_0892 

        code_076b
  076b:78               push1 
  076c:74 0afc          lofss $126b // bouger,open/door
  076f:43 25 02         callk Said 2 

  0772:30 0091            bnt code_0806 
  0775:38 00db          pushi db // $db onControl
  0778:78               push1 
  0779:78               push1 
  077a:81 00              lag gEgo 
  077c:4a 06             send 6 

  077e:36                push 
  077f:35 08              ldi 8 
  0781:12                 and 
  0782:31 38              bnt code_07bc 
  0784:38 0107          pushi 107 // $107 south
  0787:76               push0 
  0788:81 02              lag gCurRoom 
  078a:4a 04             send 4 

  078c:36                push 
  078d:3c                 dup 
  078e:35 24              ldi 24 
  0790:1a                 eq? 
  0791:31 0b              bnt code_079e 
  0793:88 00af            lsg global175 
  0796:35 04              ldi 4 
  0798:14                  or 
  0799:a0 00af            sag global175 
  079c:33 0f              jmp code_07ad 

        code_079e
  079e:3c                 dup 
  079f:35 2e              ldi 2e 
  07a1:1a                 eq? 
  07a2:31 09              bnt code_07ad 
  07a4:88 00af            lsg global175 
  07a7:35 40              ldi 40 
  07a9:14                  or 
  07aa:a0 00af            sag global175 

        code_07ad
  07ad:3a                toss 
  07ae:76               push0 
  07af:45 03 00         callb procedure_0003 0 // HandsOff 

  07b2:39 7a            pushi 7a // $7a setScript
  07b4:78               push1 
  07b5:74 0c08          lofss $13c0 // Front
  07b8:54 06             self 6 

  07ba:33 47              jmp code_0803 

        code_07bc
  07bc:38 00db          pushi db // $db onControl
  07bf:78               push1 
  07c0:78               push1 
  07c1:81 00              lag gEgo 
  07c3:4a 06             send 6 

  07c5:36                push 
  07c6:35 04              ldi 4 
  07c8:12                 and 
  07c9:31 34              bnt code_07ff 
  07cb:38 0105          pushi 105 // $105 north
  07ce:76               push0 
  07cf:81 02              lag gCurRoom 
  07d1:4a 04             send 4 

  07d3:36                push 
  07d4:3c                 dup 
  07d5:35 20              ldi 20 
  07d7:1a                 eq? 
  07d8:31 0b              bnt code_07e5 
  07da:88 00af            lsg global175 
  07dd:35 01              ldi 1 
  07df:14                  or 
  07e0:a0 00af            sag global175 
  07e3:33 0f              jmp code_07f4 

        code_07e5
  07e5:3c                 dup 
  07e6:35 2a              ldi 2a 
  07e8:1a                 eq? 
  07e9:31 09              bnt code_07f4 
  07eb:88 00af            lsg global175 
  07ee:35 10              ldi 10 
  07f0:14                  or 
  07f1:a0 00af            sag global175 

        code_07f4
  07f4:3a                toss 
  07f5:39 7a            pushi 7a // $7a setScript
  07f7:78               push1 
  07f8:74 0bf5          lofss $13f0 // Back
  07fb:54 06             self 6 

  07fd:33 04              jmp code_0803 

        code_07ff
  07ff:76               push0 
  0800:45 09 00         callb procedure_0009 0 // NotClose 


        code_0803
  0803:32 008c            jmp code_0892 

        code_0806
  0806:78               push1 
  0807:74 0a33          lofss $123d // clore/door
  080a:43 25 02         callk Said 2 

  080d:31 0d              bnt code_081c 
  080f:7a               push2 
  0810:39 31            pushi 31 // $31 b-i1
  0812:39 10            pushi 10 // $10 lsRight
  0814:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  081a:33 76              jmp code_0892 

        code_081c
  081c:78               push1 
  081d:74 0a2f          lofss $124f // get/painting
  0820:43 25 02         callk Said 2 

  0823:31 0d              bnt code_0832 
  0825:7a               push2 
  0826:39 31            pushi 31 // $31 b-i1
  0828:39 07            pushi 7 // $7 cel
  082a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0830:33 60              jmp code_0892 

        code_0832
  0832:78               push1 
  0833:74 09f8          lofss $122e // clore,attirer,appuyer,open/clock
  0836:43 25 02         callk Said 2 

  0839:31 28              bnt code_0863 
  083b:38 0106          pushi 106 // $106 east
  083e:76               push0 
  083f:81 02              lag gCurRoom 
  0841:4a 04             send 4 

  0843:36                push 
  0844:35 21              ldi 21 
  0846:1a                 eq? 
  0847:31 0d              bnt code_0856 
  0849:7a               push2 
  084a:39 31            pushi 31 // $31 b-i1
  084c:39 11            pushi 11 // $11 signal
  084e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0854:33 0b              jmp code_0861 

        code_0856
  0856:7a               push2 
  0857:39 31            pushi 31 // $31 b-i1
  0859:39 0c            pushi c // $c nsRight
  085b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0861
  0861:33 2f              jmp code_0892 

        code_0863
  0863:78               push1 
  0864:74 09b8          lofss $121f // clore,attirer,appuyer,open/armoire
  0867:43 25 02         callk Said 2 

  086a:31 26              bnt code_0892 
  086c:38 0106          pushi 106 // $106 east
  086f:76               push0 
  0870:81 02              lag gCurRoom 
  0872:4a 04             send 4 

  0874:36                push 
  0875:35 2b              ldi 2b 
  0877:1a                 eq? 
  0878:31 0d              bnt code_0887 
  087a:7a               push2 
  087b:39 31            pushi 31 // $31 b-i1
  087d:39 12            pushi 12 // $12 illegalBits
  087f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0885:33 0b              jmp code_0892 

        code_0887
  0887:7a               push2 
  0888:39 31            pushi 31 // $31 b-i1
  088a:39 0e            pushi e // $e lsLeft
  088c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0892
  0892:48                 ret 
    )

    (method (cue) // method_0893
  0893:76               push0 
  0894:45 04 00         callb procedure_0004 0 // HandsOn 

  0897:39 12            pushi 12 // $12 illegalBits
  0899:78               push1 
  089a:38 8000          pushi 8000 // $8000 sel_32768
  089d:38 00c8          pushi c8 // $c8 setLoop
  08a0:78               push1 
  08a1:39 ff            pushi ff // $ff checkAni
  08a3:81 00              lag gEgo 
  08a5:4a 0c             send c 

  08a7:35 00              ldi 0 
  08a9:a3 09              sal local9 
  08ab:48                 ret 
    )

)

// 13ba
(instance Front 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_08ac
  08ac:87 01              lap param1 
  08ae:65 0a             aTop state 
  08b0:36                push 
  08b1:3c                 dup 
  08b2:35 00              ldi 0 
  08b4:1a                 eq? 
  08b5:31 13              bnt code_08ca 
  08b7:35 00              ldi 0 
  08b9:a3 1e              sal local30 
  08bb:39 12            pushi 12 // $12 illegalBits
  08bd:78               push1 
  08be:76               push0 
  08bf:81 00              lag gEgo 
  08c1:4a 06             send 6 

  08c3:35 02              ldi 2 
  08c5:65 10             aTop cycles 
  08c7:32 0139            jmp code_0a03 

        code_08ca
  08ca:3c                 dup 
  08cb:35 01              ldi 1 
  08cd:1a                 eq? 
  08ce:31 14              bnt code_08e4 
  08d0:38 00d3          pushi d3 // $d3 setMotion
  08d3:39 04            pushi 4 // $4 x
  08d5:51 1d            class MoveTo 
  08d7:36                push 
  08d8:39 6d            pushi 6d // $6d addAfter
  08da:39 73            pushi 73 // $73 seconds
  08dc:7c            pushSelf 
  08dd:81 00              lag gEgo 
  08df:4a 0c             send c 

  08e1:32 011f            jmp code_0a03 

        code_08e4
  08e4:3c                 dup 
  08e5:35 02              ldi 2 
  08e7:1a                 eq? 
  08e8:31 2f              bnt code_0919 
  08ea:39 06            pushi 6 // $6 loop
  08ec:78               push1 
  08ed:7a               push2 
  08ee:81 00              lag gEgo 
  08f0:4a 06             send 6 

  08f2:38 00d3          pushi d3 // $d3 setMotion
  08f5:39 04            pushi 4 // $4 x
  08f7:51 1d            class MoveTo 
  08f9:36                push 
  08fa:38 0087          pushi 87 // $87 clean
  08fd:39 77            pushi 77 // $77 caller
  08ff:7c            pushSelf 
  0900:72 0c35          lofsa $1538 // fpanel
  0903:4a 0c             send c 

  0905:39 2b            pushi 2b // $2b number
  0907:78               push1 
  0908:39 4a            pushi 4a // $4a pragmaFail
  090a:39 06            pushi 6 // $6 loop
  090c:78               push1 
  090d:78               push1 
  090e:39 2a            pushi 2a // $2a play
  0910:76               push0 
  0911:72 0e0e          lofsa $1722 // mySound
  0914:4a 10             send 10 

  0916:32 00ea            jmp code_0a03 

        code_0919
  0919:3c                 dup 
  091a:35 03              ldi 3 
  091c:1a                 eq? 
  091d:30 009b            bnt code_09bb 
  0920:38 0107          pushi 107 // $107 south
  0923:76               push0 
  0924:81 02              lag gCurRoom 
  0926:4a 04             send 4 

  0928:36                push 
  0929:3c                 dup 
  092a:35 2e              ldi 2e 
  092c:1a                 eq? 
  092d:31 16              bnt code_0945 
  092f:88 00ad            lsg gSpyFlags 
  0932:35 02              ldi 2 
  0934:12                 and 
  0935:31 0c              bnt code_0943 
  0937:88 00a5            lsg gAct 
  093a:35 00              ldi 0 
  093c:1a                 eq? 
  093d:31 04              bnt code_0943 
  093f:35 01              ldi 1 
  0941:a3 1e              sal local30 

        code_0943
  0943:33 44              jmp code_0989 

        code_0945
  0945:3c                 dup 
  0946:35 24              ldi 24 
  0948:1a                 eq? 
  0949:31 3e              bnt code_0989 
  094b:88 00a5            lsg gAct 
  094e:3c                 dup 
  094f:35 00              ldi 0 
  0951:1a                 eq? 
  0952:31 1e              bnt code_0972 
  0954:88 00c7            lsg global199 
  0957:35 00              ldi 0 
  0959:1a                 eq? 
  095a:2f 10               bt code_096c 
  095c:88 00c7            lsg global199 
  095f:35 02              ldi 2 
  0961:1a                 eq? 
  0962:2f 08               bt code_096c 
  0964:88 0172            lsg global370 
  0967:35 01              ldi 1 
  0969:1a                 eq? 
  096a:31 04              bnt code_0970 

        code_096c
  096c:35 01              ldi 1 
  096e:a3 1e              sal local30 

        code_0970
  0970:33 16              jmp code_0988 

        code_0972
  0972:3c                 dup 
  0973:35 01              ldi 1 
  0975:1a                 eq? 
  0976:31 06              bnt code_097e 
  0978:35 01              ldi 1 
  097a:a3 1e              sal local30 
  097c:33 0a              jmp code_0988 

        code_097e
  097e:3c                 dup 
  097f:35 02              ldi 2 
  0981:1a                 eq? 
  0982:31 04              bnt code_0988 
  0984:35 01              ldi 1 
  0986:a3 1e              sal local30 

        code_0988
  0988:3a                toss 

        code_0989
  0989:3a                toss 
  098a:83 1e              lal local30 
  098c:18                 not 
  098d:31 13              bnt code_09a2 
  098f:38 00f8          pushi f8 // $f8 newRoom
  0992:78               push1 
  0993:38 0107          pushi 107 // $107 south
  0996:76               push0 
  0997:81 02              lag gCurRoom 
  0999:4a 04             send 4 

  099b:36                push 
  099c:81 02              lag gCurRoom 
  099e:4a 06             send 6 

  09a0:33 17              jmp code_09b9 

        code_09a2
  09a2:39 05            pushi 5 // $5 view
  09a4:39 31            pushi 31 // $31 b-i1
  09a6:39 13            pushi 13 // $13 brTop
  09a8:39 43            pushi 43 // $43 at
  09aa:38 0082          pushi 82 // $82 owner
  09ad:39 0a            pushi a // $a nsLeft
  09af:46 00ff 0000 0a  calle ff procedure_0000 a // Print 

  09b5:35 01              ldi 1 
  09b7:65 10             aTop cycles 

        code_09b9
  09b9:33 48              jmp code_0a03 

        code_09bb
  09bb:3c                 dup 
  09bc:35 04              ldi 4 
  09be:1a                 eq? 
  09bf:31 25              bnt code_09e6 
  09c1:38 00d3          pushi d3 // $d3 setMotion
  09c4:39 04            pushi 4 // $4 x
  09c6:51 1d            class MoveTo 
  09c8:36                push 
  09c9:39 7e            pushi 7e // $7e setCycle
  09cb:39 77            pushi 77 // $77 caller
  09cd:7c            pushSelf 
  09ce:72 0b67          lofsa $1538 // fpanel
  09d1:4a 0c             send c 

  09d3:39 2b            pushi 2b // $2b number
  09d5:78               push1 
  09d6:39 4b            pushi 4b // $4b said
  09d8:39 06            pushi 6 // $6 loop
  09da:78               push1 
  09db:78               push1 
  09dc:39 2a            pushi 2a // $2a play
  09de:76               push0 
  09df:72 0d40          lofsa $1722 // mySound
  09e2:4a 10             send 10 

  09e4:33 1d              jmp code_0a03 

        code_09e6
  09e6:3c                 dup 
  09e7:35 05              ldi 5 
  09e9:1a                 eq? 
  09ea:31 17              bnt code_0a03 
  09ec:38 00c6          pushi c6 // $c6 stopUpd
  09ef:76               push0 
  09f0:72 0b45          lofsa $1538 // fpanel
  09f3:4a 04             send 4 

  09f5:39 12            pushi 12 // $12 illegalBits
  09f7:78               push1 
  09f8:38 8000          pushi 8000 // $8000 sel_32768
  09fb:81 00              lag gEgo 
  09fd:4a 06             send 6 

  09ff:76               push0 
  0a00:45 04 00         callb procedure_0004 0 // HandsOn 


        code_0a03
  0a03:3a                toss 
  0a04:48                 ret 
    )

)

// 13ea
(instance Back 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_0a05
  0a05:87 01              lap param1 
  0a07:65 0a             aTop state 
  0a09:36                push 
  0a0a:3c                 dup 
  0a0b:35 00              ldi 0 
  0a0d:1a                 eq? 
  0a0e:31 2f              bnt code_0a3f 
  0a10:35 00              ldi 0 
  0a12:a3 1e              sal local30 
  0a14:76               push0 
  0a15:45 03 00         callb procedure_0003 0 // HandsOff 

  0a18:38 00d3          pushi d3 // $d3 setMotion
  0a1b:39 04            pushi 4 // $4 x
  0a1d:51 1d            class MoveTo 
  0a1f:36                push 
  0a20:38 0110          pushi 110 // $110 disable
  0a23:39 67            pushi 67 // $67 first
  0a25:7c            pushSelf 
  0a26:72 0b77          lofsa $15a0 // bpanel
  0a29:4a 0c             send c 

  0a2b:39 2b            pushi 2b // $2b number
  0a2d:78               push1 
  0a2e:39 4a            pushi 4a // $4a pragmaFail
  0a30:39 06            pushi 6 // $6 loop
  0a32:78               push1 
  0a33:78               push1 
  0a34:39 2a            pushi 2a // $2a play
  0a36:76               push0 
  0a37:72 0ce8          lofsa $1722 // mySound
  0a3a:4a 10             send 10 

  0a3c:32 01b7            jmp code_0bf6 

        code_0a3f
  0a3f:3c                 dup 
  0a40:35 01              ldi 1 
  0a42:1a                 eq? 
  0a43:30 0090            bnt code_0ad6 
  0a46:35 00              ldi 0 
  0a48:a3 1e              sal local30 
  0a4a:38 0105          pushi 105 // $105 north
  0a4d:76               push0 
  0a4e:81 02              lag gCurRoom 
  0a50:4a 04             send 4 

  0a52:36                push 
  0a53:3c                 dup 
  0a54:35 2a              ldi 2a 
  0a56:1a                 eq? 
  0a57:31 37              bnt code_0a90 
  0a59:88 00a5            lsg gAct 
  0a5c:35 00              ldi 0 
  0a5e:1a                 eq? 
  0a5f:2f 29               bt code_0a8a 
  0a61:88 00a5            lsg gAct 
  0a64:35 01              ldi 1 
  0a66:1a                 eq? 
  0a67:2f 21               bt code_0a8a 
  0a69:78               push1 
  0a6a:39 26            pushi 26 // $26 mark
  0a6c:45 07 02         callb procedure_0007 2 // IsFlag 

  0a6f:2f 19               bt code_0a8a 
  0a71:88 00bb            lsg gMinute 
  0a74:35 03              ldi 3 
  0a76:22                 lt? 
  0a77:31 15              bnt code_0a8e 
  0a79:89 7b              lsg gCorpseFlags 
  0a7b:35 40              ldi 40 
  0a7d:12                 and 
  0a7e:18                 not 
  0a7f:31 0d              bnt code_0a8e 
  0a81:78               push1 
  0a82:39 25            pushi 25 // $25 max
  0a84:45 07 02         callb procedure_0007 2 // IsFlag 

  0a87:18                 not 
  0a88:31 04              bnt code_0a8e 

        code_0a8a
  0a8a:35 01              ldi 1 
  0a8c:a3 1e              sal local30 

        code_0a8e
  0a8e:33 22              jmp code_0ab2 

        code_0a90
  0a90:3c                 dup 
  0a91:35 20              ldi 20 
  0a93:1a                 eq? 
  0a94:31 1c              bnt code_0ab2 
  0a96:88 00a5            lsg gAct 
  0a99:35 00              ldi 0 
  0a9b:1a                 eq? 
  0a9c:2f 10               bt code_0aae 
  0a9e:88 00a5            lsg gAct 
  0aa1:35 01              ldi 1 
  0aa3:1a                 eq? 
  0aa4:31 0c              bnt code_0ab2 
  0aa6:88 009a            lsg gClarenceWilburState 
  0aa9:35 04              ldi 4 
  0aab:20                 ge? 
  0aac:31 04              bnt code_0ab2 

        code_0aae
  0aae:35 01              ldi 1 
  0ab0:a3 1e              sal local30 

        code_0ab2
  0ab2:3a                toss 
  0ab3:83 1e              lal local30 
  0ab5:31 14              bnt code_0acb 
  0ab7:39 05            pushi 5 // $5 view
  0ab9:39 31            pushi 31 // $31 b-i1
  0abb:39 13            pushi 13 // $13 brTop
  0abd:39 43            pushi 43 // $43 at
  0abf:39 69            pushi 69 // $69 last
  0ac1:39 0a            pushi a // $a nsLeft
  0ac3:46 00ff 0000 0a  calle ff procedure_0000 a // Print 

  0ac9:33 04              jmp code_0acf 

        code_0acb
  0acb:35 03              ldi 3 
  0acd:65 0a             aTop state 

        code_0acf
  0acf:35 01              ldi 1 
  0ad1:65 10             aTop cycles 
  0ad3:32 0120            jmp code_0bf6 

        code_0ad6
  0ad6:3c                 dup 
  0ad7:35 02              ldi 2 
  0ad9:1a                 eq? 
  0ada:31 27              bnt code_0b03 
  0adc:38 00d3          pushi d3 // $d3 setMotion
  0adf:39 04            pushi 4 // $4 x
  0ae1:51 1d            class MoveTo 
  0ae3:36                push 
  0ae4:38 00fa          pushi fa // $fa restart
  0ae7:39 67            pushi 67 // $67 first
  0ae9:7c            pushSelf 
  0aea:72 0ab3          lofsa $15a0 // bpanel
  0aed:4a 0c             send c 

  0aef:39 2b            pushi 2b // $2b number
  0af1:78               push1 
  0af2:39 4b            pushi 4b // $4b said
  0af4:39 06            pushi 6 // $6 loop
  0af6:78               push1 
  0af7:78               push1 
  0af8:39 2a            pushi 2a // $2a play
  0afa:76               push0 
  0afb:72 0c24          lofsa $1722 // mySound
  0afe:4a 10             send 10 

  0b00:32 00f3            jmp code_0bf6 

        code_0b03
  0b03:3c                 dup 
  0b04:35 03              ldi 3 
  0b06:1a                 eq? 
  0b07:31 28              bnt code_0b31 
  0b09:38 00c6          pushi c6 // $c6 stopUpd
  0b0c:76               push0 
  0b0d:72 0a90          lofsa $15a0 // bpanel
  0b10:4a 04             send 4 

  0b12:76               push0 
  0b13:45 04 00         callb procedure_0004 0 // HandsOn 

  0b16:38 00c8          pushi c8 // $c8 setLoop
  0b19:78               push1 
  0b1a:39 ff            pushi ff // $ff checkAni
  0b1c:39 12            pushi 12 // $12 illegalBits
  0b1e:78               push1 
  0b1f:38 8000          pushi 8000 // $8000 sel_32768
  0b22:81 00              lag gEgo 
  0b24:4a 0c             send c 

  0b26:39 7a            pushi 7a // $7a setScript
  0b28:78               push1 
  0b29:76               push0 
  0b2a:63 08             pToa client 
  0b2c:4a 06             send 6 

  0b2e:32 00c5            jmp code_0bf6 

        code_0b31
  0b31:3c                 dup 
  0b32:35 04              ldi 4 
  0b34:1a                 eq? 
  0b35:31 1f              bnt code_0b56 
  0b37:39 12            pushi 12 // $12 illegalBits
  0b39:78               push1 
  0b3a:76               push0 
  0b3b:38 00c8          pushi c8 // $c8 setLoop
  0b3e:78               push1 
  0b3f:39 03            pushi 3 // $3 y
  0b41:38 00d3          pushi d3 // $d3 setMotion
  0b44:39 04            pushi 4 // $4 x
  0b46:51 1d            class MoveTo 
  0b48:36                push 
  0b49:38 00fb          pushi fb // $fb changeScore
  0b4c:39 69            pushi 69 // $69 last
  0b4e:7c            pushSelf 
  0b4f:81 00              lag gEgo 
  0b51:4a 18             send 18 

  0b53:32 00a0            jmp code_0bf6 

        code_0b56
  0b56:3c                 dup 
  0b57:35 05              ldi 5 
  0b59:1a                 eq? 
  0b5a:31 16              bnt code_0b72 
  0b5c:38 00d3          pushi d3 // $d3 setMotion
  0b5f:39 04            pushi 4 // $4 x
  0b61:51 1d            class MoveTo 
  0b63:36                push 
  0b64:38 0118          pushi 118 // $118 stopExtra
  0b67:39 67            pushi 67 // $67 first
  0b69:7c            pushSelf 
  0b6a:72 0a33          lofsa $15a0 // bpanel
  0b6d:4a 0c             send c 

  0b6f:32 0084            jmp code_0bf6 

        code_0b72
  0b72:3c                 dup 
  0b73:35 06              ldi 6 
  0b75:1a                 eq? 
  0b76:31 23              bnt code_0b9b 
  0b78:38 00c8          pushi c8 // $c8 setLoop
  0b7b:78               push1 
  0b7c:39 03            pushi 3 // $3 y
  0b7e:39 42            pushi 42 // $42 setPri
  0b80:78               push1 
  0b81:39 03            pushi 3 // $3 y
  0b83:39 12            pushi 12 // $12 illegalBits
  0b85:78               push1 
  0b86:76               push0 
  0b87:38 00d3          pushi d3 // $d3 setMotion
  0b8a:39 04            pushi 4 // $4 x
  0b8c:51 1d            class MoveTo 
  0b8e:36                push 
  0b8f:38 00fb          pushi fb // $fb changeScore
  0b92:39 64            pushi 64 // $64 allTrue
  0b94:7c            pushSelf 
  0b95:81 00              lag gEgo 
  0b97:4a 1e             send 1e 

  0b99:33 5b              jmp code_0bf6 

        code_0b9b
  0b9b:3c                 dup 
  0b9c:35 07              ldi 7 
  0b9e:1a                 eq? 
  0b9f:31 26              bnt code_0bc7 
  0ba1:38 00d3          pushi d3 // $d3 setMotion
  0ba4:39 04            pushi 4 // $4 x
  0ba6:51 1d            class MoveTo 
  0ba8:36                push 
  0ba9:38 00fa          pushi fa // $fa restart
  0bac:39 67            pushi 67 // $67 first
  0bae:7c            pushSelf 
  0baf:72 09ee          lofsa $15a0 // bpanel
  0bb2:4a 0c             send c 

  0bb4:39 2b            pushi 2b // $2b number
  0bb6:78               push1 
  0bb7:39 4b            pushi 4b // $4b said
  0bb9:39 06            pushi 6 // $6 loop
  0bbb:78               push1 
  0bbc:78               push1 
  0bbd:39 2a            pushi 2a // $2a play
  0bbf:76               push0 
  0bc0:72 0b5f          lofsa $1722 // mySound
  0bc3:4a 10             send 10 

  0bc5:33 2f              jmp code_0bf6 

        code_0bc7
  0bc7:3c                 dup 
  0bc8:35 08              ldi 8 
  0bca:1a                 eq? 
  0bcb:31 29              bnt code_0bf6 
  0bcd:38 00c8          pushi c8 // $c8 setLoop
  0bd0:78               push1 
  0bd1:39 ff            pushi ff // $ff checkAni
  0bd3:39 12            pushi 12 // $12 illegalBits
  0bd5:78               push1 
  0bd6:38 8000          pushi 8000 // $8000 sel_32768
  0bd9:81 00              lag gEgo 
  0bdb:4a 0c             send c 

  0bdd:39 7a            pushi 7a // $7a setScript
  0bdf:78               push1 
  0be0:76               push0 
  0be1:63 08             pToa client 
  0be3:4a 06             send 6 

  0be5:38 00f8          pushi f8 // $f8 newRoom
  0be8:78               push1 
  0be9:38 0105          pushi 105 // $105 north
  0bec:76               push0 
  0bed:81 02              lag gCurRoom 
  0bef:4a 04             send 4 

  0bf1:36                push 
  0bf2:81 02              lag gCurRoom 
  0bf4:4a 06             send 6 


        code_0bf6
  0bf6:3a                toss 
  0bf7:48                 ret 
    )

)

// 141a
(instance Entering 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_0bf8
  0bf8:87 01              lap param1 
  0bfa:65 0a             aTop state 
  0bfc:36                push 
  0bfd:3c                 dup 
  0bfe:35 00              ldi 0 
  0c00:1a                 eq? 
  0c01:31 2a              bnt code_0c2d 
  0c03:76               push0 
  0c04:45 03 00         callb procedure_0003 0 // HandsOff 

  0c07:38 00d3          pushi d3 // $d3 setMotion
  0c0a:39 04            pushi 4 // $4 x
  0c0c:51 1d            class MoveTo 
  0c0e:36                push 
  0c0f:38 0118          pushi 118 // $118 stopExtra
  0c12:39 67            pushi 67 // $67 first
  0c14:7c            pushSelf 
  0c15:72 0988          lofsa $15a0 // bpanel
  0c18:4a 0c             send c 

  0c1a:39 2b            pushi 2b // $2b number
  0c1c:78               push1 
  0c1d:39 4a            pushi 4a // $4a pragmaFail
  0c1f:39 06            pushi 6 // $6 loop
  0c21:78               push1 
  0c22:78               push1 
  0c23:39 2a            pushi 2a // $2a play
  0c25:76               push0 
  0c26:72 0af9          lofsa $1722 // mySound
  0c29:4a 10             send 10 

  0c2b:33 63              jmp code_0c90 

        code_0c2d
  0c2d:3c                 dup 
  0c2e:35 01              ldi 1 
  0c30:1a                 eq? 
  0c31:31 19              bnt code_0c4c 
  0c33:39 42            pushi 42 // $42 setPri
  0c35:78               push1 
  0c36:39 06            pushi 6 // $6 loop
  0c38:38 00d3          pushi d3 // $d3 setMotion
  0c3b:39 04            pushi 4 // $4 x
  0c3d:51 1d            class MoveTo 
  0c3f:36                push 
  0c40:38 00fb          pushi fb // $fb changeScore
  0c43:39 69            pushi 69 // $69 last
  0c45:7c            pushSelf 
  0c46:81 00              lag gEgo 
  0c48:4a 12             send 12 

  0c4a:33 44              jmp code_0c90 

        code_0c4c
  0c4c:3c                 dup 
  0c4d:35 02              ldi 2 
  0c4f:1a                 eq? 
  0c50:31 26              bnt code_0c78 
  0c52:38 00d3          pushi d3 // $d3 setMotion
  0c55:39 04            pushi 4 // $4 x
  0c57:51 1d            class MoveTo 
  0c59:36                push 
  0c5a:38 00fa          pushi fa // $fa restart
  0c5d:39 67            pushi 67 // $67 first
  0c5f:7c            pushSelf 
  0c60:72 093d          lofsa $15a0 // bpanel
  0c63:4a 0c             send c 

  0c65:39 2b            pushi 2b // $2b number
  0c67:78               push1 
  0c68:39 4b            pushi 4b // $4b said
  0c6a:39 06            pushi 6 // $6 loop
  0c6c:78               push1 
  0c6d:78               push1 
  0c6e:39 2a            pushi 2a // $2a play
  0c70:76               push0 
  0c71:72 0aae          lofsa $1722 // mySound
  0c74:4a 10             send 10 

  0c76:33 18              jmp code_0c90 

        code_0c78
  0c78:3c                 dup 
  0c79:35 03              ldi 3 
  0c7b:1a                 eq? 
  0c7c:31 12              bnt code_0c90 
  0c7e:76               push0 
  0c7f:45 04 00         callb procedure_0004 0 // HandsOn 

  0c82:39 12            pushi 12 // $12 illegalBits
  0c84:78               push1 
  0c85:38 8000          pushi 8000 // $8000 sel_32768
  0c88:39 7a            pushi 7a // $7a setScript
  0c8a:78               push1 
  0c8b:76               push0 
  0c8c:81 00              lag gEgo 
  0c8e:4a 0c             send c 


        code_0c90
  0c90:3a                toss 
  0c91:48                 ret 
    )

)

// 144a
(instance LookAround 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_0c92
  0c92:3f 01             link 1 // (var $1)
  0c94:87 01              lap param1 
  0c96:65 0a             aTop state 
  0c98:36                push 
  0c99:3c                 dup 
  0c9a:35 00              ldi 0 
  0c9c:1a                 eq? 
  0c9d:31 42              bnt code_0ce1 
  0c9f:76               push0 
  0ca0:45 03 00         callb procedure_0003 0 // HandsOff 

  0ca3:39 37            pushi 37 // $37 yStep
  0ca5:78               push1 
  0ca6:78               push1 
  0ca7:81 00              lag gEgo 
  0ca9:4a 06             send 6 

  0cab:39 06            pushi 6 // $6 loop
  0cad:76               push0 
  0cae:81 00              lag gEgo 
  0cb0:4a 04             send 4 

  0cb2:36                push 
  0cb3:35 02              ldi 2 
  0cb5:1a                 eq? 
  0cb6:31 14              bnt code_0ccc 
  0cb8:38 00d3          pushi d3 // $d3 setMotion
  0cbb:39 04            pushi 4 // $4 x
  0cbd:51 1d            class MoveTo 
  0cbf:36                push 
  0cc0:38 00be          pushi be // $be offScreenOK
  0cc3:39 68            pushi 68 // $68 release
  0cc5:7c            pushSelf 
  0cc6:81 00              lag gEgo 
  0cc8:4a 0c             send c 

  0cca:33 12              jmp code_0cde 

        code_0ccc
  0ccc:38 00d3          pushi d3 // $d3 setMotion
  0ccf:39 04            pushi 4 // $4 x
  0cd1:51 1d            class MoveTo 
  0cd3:36                push 
  0cd4:38 00c6          pushi c6 // $c6 stopUpd
  0cd7:39 61            pushi 61 // $61 add
  0cd9:7c            pushSelf 
  0cda:81 00              lag gEgo 
  0cdc:4a 0c             send c 


        code_0cde
  0cde:32 029e            jmp code_0f7f 

        code_0ce1
  0ce1:3c                 dup 
  0ce2:35 01              ldi 1 
  0ce4:1a                 eq? 
  0ce5:31 48              bnt code_0d2f 
  0ce7:39 37            pushi 37 // $37 yStep
  0ce9:78               push1 
  0cea:7a               push2 
  0ceb:81 00              lag gEgo 
  0ced:4a 06             send 6 

  0cef:39 03            pushi 3 // $3 y
  0cf1:76               push0 
  0cf2:81 00              lag gEgo 
  0cf4:4a 04             send 4 

  0cf6:36                push 
  0cf7:35 68              ldi 68 
  0cf9:1a                 eq? 
  0cfa:31 23              bnt code_0d1f 
  0cfc:39 06            pushi 6 // $6 loop
  0cfe:78               push1 
  0cff:7a               push2 
  0d00:81 00              lag gEgo 
  0d02:4a 06             send 6 

  0d04:38 00a4          pushi a4 // $a4 cycleSpeed
  0d07:78               push1 
  0d08:39 03            pushi 3 // $3 y
  0d0a:39 7e            pushi 7e // $7e setCycle
  0d0c:78               push1 
  0d0d:51 16            class Fwd 
  0d0f:36                push 
  0d10:38 00ca          pushi ca // $ca show
  0d13:76               push0 
  0d14:72 08ed          lofsa $1604 // eyes
  0d17:4a 10             send 10 

  0d19:35 03              ldi 3 
  0d1b:65 12             aTop seconds 
  0d1d:33 0d              jmp code_0d2c 

        code_0d1f
  0d1f:39 06            pushi 6 // $6 loop
  0d21:78               push1 
  0d22:39 03            pushi 3 // $3 y
  0d24:81 00              lag gEgo 
  0d26:4a 06             send 6 

  0d28:35 01              ldi 1 
  0d2a:65 10             aTop cycles 

        code_0d2c
  0d2c:32 0250            jmp code_0f7f 

        code_0d2f
  0d2f:3c                 dup 
  0d30:35 02              ldi 2 
  0d32:1a                 eq? 
  0d33:30 022d            bnt code_0f63 
  0d36:35 00              ldi 0 
  0d38:a5 00              sat temp0 
  0d3a:88 00a5            lsg gAct 
  0d3d:3c                 dup 
  0d3e:35 00              ldi 0 
  0d40:1a                 eq? 
  0d41:31 58              bnt code_0d9b 
  0d43:39 06            pushi 6 // $6 loop
  0d45:76               push0 
  0d46:81 00              lag gEgo 
  0d48:4a 04             send 4 

  0d4a:36                push 
  0d4b:35 03              ldi 3 
  0d4d:1a                 eq? 
  0d4e:31 26              bnt code_0d76 
  0d50:38 0106          pushi 106 // $106 east
  0d53:76               push0 
  0d54:81 02              lag gCurRoom 
  0d56:4a 04             send 4 

  0d58:36                push 
  0d59:35 21              ldi 21 
  0d5b:1a                 eq? 
  0d5c:36                push 
  0d5d:3c                 dup 
  0d5e:35 01              ldi 1 
  0d60:1a                 eq? 
  0d61:31 05              bnt code_0d68 
  0d63:34 0140            ldi 140 
  0d66:33 09              jmp code_0d71 

        code_0d68
  0d68:3c                 dup 
  0d69:35 00              ldi 0 
  0d6b:1a                 eq? 
  0d6c:31 03              bnt code_0d71 
  0d6e:34 015e            ldi 15e 

        code_0d71
  0d71:3a                toss 
  0d72:a5 00              sat temp0 
  0d74:33 22              jmp code_0d98 

        code_0d76
  0d76:38 0106          pushi 106 // $106 east
  0d79:76               push0 
  0d7a:81 02              lag gCurRoom 
  0d7c:4a 04             send 4 

  0d7e:36                push 
  0d7f:35 21              ldi 21 
  0d81:1a                 eq? 
  0d82:31 07              bnt code_0d8b 
  0d84:34 0141            ldi 141 
  0d87:a5 00              sat temp0 
  0d89:33 0d              jmp code_0d98 

        code_0d8b
  0d8b:88 00ad            lsg gSpyFlags 
  0d8e:35 02              ldi 2 
  0d90:12                 and 
  0d91:31 05              bnt code_0d98 
  0d93:34 015f            ldi 15f 
  0d96:a5 00              sat temp0 

        code_0d98
  0d98:32 01b0            jmp code_0f4b 

        code_0d9b
  0d9b:3c                 dup 
  0d9c:35 01              ldi 1 
  0d9e:1a                 eq? 
  0d9f:31 47              bnt code_0de8 
  0da1:39 06            pushi 6 // $6 loop
  0da3:76               push0 
  0da4:81 00              lag gEgo 
  0da6:4a 04             send 4 

  0da8:36                push 
  0da9:35 03              ldi 3 
  0dab:1a                 eq? 
  0dac:31 24              bnt code_0dd2 
  0dae:38 0106          pushi 106 // $106 east
  0db1:76               push0 
  0db2:81 02              lag gCurRoom 
  0db4:4a 04             send 4 

  0db6:36                push 
  0db7:35 21              ldi 21 
  0db9:1a                 eq? 
  0dba:31 0f              bnt code_0dcb 
  0dbc:88 009a            lsg gClarenceWilburState 
  0dbf:35 04              ldi 4 
  0dc1:20                 ge? 
  0dc2:31 05              bnt code_0dc9 
  0dc4:34 0140            ldi 140 
  0dc7:a5 00              sat temp0 

        code_0dc9
  0dc9:33 05              jmp code_0dd0 

        code_0dcb
  0dcb:34 0160            ldi 160 
  0dce:a5 00              sat temp0 

        code_0dd0
  0dd0:33 13              jmp code_0de5 

        code_0dd2
  0dd2:38 0106          pushi 106 // $106 east
  0dd5:76               push0 
  0dd6:81 02              lag gCurRoom 
  0dd8:4a 04             send 4 

  0dda:36                push 
  0ddb:35 21              ldi 21 
  0ddd:1a                 eq? 
  0dde:31 05              bnt code_0de5 
  0de0:34 0143            ldi 143 
  0de3:a5 00              sat temp0 

        code_0de5
  0de5:32 0163            jmp code_0f4b 

        code_0de8
  0de8:3c                 dup 
  0de9:35 02              ldi 2 
  0deb:1a                 eq? 
  0dec:31 62              bnt code_0e50 
  0dee:39 06            pushi 6 // $6 loop
  0df0:76               push0 
  0df1:81 00              lag gEgo 
  0df3:4a 04             send 4 

  0df5:36                push 
  0df6:35 03              ldi 3 
  0df8:1a                 eq? 
  0df9:31 3f              bnt code_0e3a 
  0dfb:38 0106          pushi 106 // $106 east
  0dfe:76               push0 
  0dff:81 02              lag gCurRoom 
  0e01:4a 04             send 4 

  0e03:36                push 
  0e04:35 21              ldi 21 
  0e06:1c                 ne? 
  0e07:31 2f              bnt code_0e38 
  0e09:88 00bb            lsg gMinute 
  0e0c:35 03              ldi 3 
  0e0e:22                 lt? 
  0e0f:31 27              bnt code_0e38 
  0e11:78               push1 
  0e12:39 25            pushi 25 // $25 max
  0e14:45 07 02         callb procedure_0007 2 // IsFlag 

  0e17:18                 not 
  0e18:31 1e              bnt code_0e38 
  0e1a:88 00ad            lsg gSpyFlags 
  0e1d:35 40              ldi 40 
  0e1f:12                 and 
  0e20:36                push 
  0e21:3c                 dup 
  0e22:35 00              ldi 0 
  0e24:1a                 eq? 
  0e25:31 05              bnt code_0e2c 
  0e27:34 0161            ldi 161 
  0e2a:33 09              jmp code_0e35 

        code_0e2c
  0e2c:3c                 dup 
  0e2d:35 40              ldi 40 
  0e2f:1a                 eq? 
  0e30:31 03              bnt code_0e35 
  0e32:34 015e            ldi 15e 

        code_0e35
  0e35:3a                toss 
  0e36:a5 00              sat temp0 

        code_0e38
  0e38:33 13              jmp code_0e4d 

        code_0e3a
  0e3a:38 0106          pushi 106 // $106 east
  0e3d:76               push0 
  0e3e:81 02              lag gCurRoom 
  0e40:4a 04             send 4 

  0e42:36                push 
  0e43:35 21              ldi 21 
  0e45:1a                 eq? 
  0e46:31 05              bnt code_0e4d 
  0e48:34 0144            ldi 144 
  0e4b:a5 00              sat temp0 

        code_0e4d
  0e4d:32 00fb            jmp code_0f4b 

        code_0e50
  0e50:3c                 dup 
  0e51:35 03              ldi 3 
  0e53:1a                 eq? 
  0e54:31 34              bnt code_0e8a 
  0e56:39 06            pushi 6 // $6 loop
  0e58:76               push0 
  0e59:81 00              lag gEgo 
  0e5b:4a 04             send 4 

  0e5d:36                push 
  0e5e:35 03              ldi 3 
  0e60:1a                 eq? 
  0e61:31 24              bnt code_0e87 
  0e63:38 0106          pushi 106 // $106 east
  0e66:76               push0 
  0e67:81 02              lag gCurRoom 
  0e69:4a 04             send 4 

  0e6b:36                push 
  0e6c:35 2b              ldi 2b 
  0e6e:1a                 eq? 
  0e6f:31 16              bnt code_0e87 
  0e71:88 00bb            lsg gMinute 
  0e74:35 03              ldi 3 
  0e76:22                 lt? 
  0e77:31 0e              bnt code_0e87 
  0e79:78               push1 
  0e7a:39 25            pushi 25 // $25 max
  0e7c:45 07 02         callb procedure_0007 2 // IsFlag 

  0e7f:18                 not 
  0e80:31 05              bnt code_0e87 
  0e82:34 0160            ldi 160 
  0e85:a5 00              sat temp0 

        code_0e87
  0e87:32 00c1            jmp code_0f4b 

        code_0e8a
  0e8a:3c                 dup 
  0e8b:35 04              ldi 4 
  0e8d:1a                 eq? 
  0e8e:31 52              bnt code_0ee2 
  0e90:39 06            pushi 6 // $6 loop
  0e92:76               push0 
  0e93:81 00              lag gEgo 
  0e95:4a 04             send 4 

  0e97:36                push 
  0e98:35 03              ldi 3 
  0e9a:1a                 eq? 
  0e9b:31 43              bnt code_0ee0 
  0e9d:38 0106          pushi 106 // $106 east
  0ea0:76               push0 
  0ea1:81 02              lag gCurRoom 
  0ea3:4a 04             send 4 

  0ea5:36                push 
  0ea6:35 2b              ldi 2b 
  0ea8:1a                 eq? 
  0ea9:31 35              bnt code_0ee0 
  0eab:89 76              lsg gMustDos 
  0ead:35 02              ldi 2 
  0eaf:12                 and 
  0eb0:18                 not 
  0eb1:2f 19               bt code_0ecc 
  0eb3:78               push1 
  0eb4:39 26            pushi 26 // $26 mark
  0eb6:45 07 02         callb procedure_0007 2 // IsFlag 

  0eb9:2f 11               bt code_0ecc 
  0ebb:88 00bb            lsg gMinute 
  0ebe:35 03              ldi 3 
  0ec0:22                 lt? 
  0ec1:31 10              bnt code_0ed3 
  0ec3:78               push1 
  0ec4:39 25            pushi 25 // $25 max
  0ec6:45 07 02         callb procedure_0007 2 // IsFlag 

  0ec9:18                 not 
  0eca:31 07              bnt code_0ed3 

        code_0ecc
  0ecc:34 0162            ldi 162 
  0ecf:a5 00              sat temp0 
  0ed1:33 0d              jmp code_0ee0 

        code_0ed3
  0ed3:89 76              lsg gMustDos 
  0ed5:35 04              ldi 4 
  0ed7:12                 and 
  0ed8:18                 not 
  0ed9:31 05              bnt code_0ee0 
  0edb:34 0163            ldi 163 
  0ede:a5 00              sat temp0 

        code_0ee0
  0ee0:33 69              jmp code_0f4b 

        code_0ee2
  0ee2:3c                 dup 
  0ee3:35 07              ldi 7 
  0ee5:1a                 eq? 
  0ee6:31 2a              bnt code_0f12 
  0ee8:39 06            pushi 6 // $6 loop
  0eea:76               push0 
  0eeb:81 00              lag gEgo 
  0eed:4a 04             send 4 

  0eef:36                push 
  0ef0:35 03              ldi 3 
  0ef2:1a                 eq? 
  0ef3:31 1b              bnt code_0f10 
  0ef5:38 0106          pushi 106 // $106 east
  0ef8:76               push0 
  0ef9:81 02              lag gCurRoom 
  0efb:4a 04             send 4 

  0efd:36                push 
  0efe:35 2b              ldi 2b 
  0f00:1a                 eq? 
  0f01:31 0d              bnt code_0f10 
  0f03:89 7b              lsg gCorpseFlags 
  0f05:35 40              ldi 40 
  0f07:12                 and 
  0f08:18                 not 
  0f09:31 05              bnt code_0f10 
  0f0b:34 0160            ldi 160 
  0f0e:a5 00              sat temp0 

        code_0f10
  0f10:33 39              jmp code_0f4b 

        code_0f12
  0f12:39 06            pushi 6 // $6 loop
  0f14:76               push0 
  0f15:81 00              lag gEgo 
  0f17:4a 04             send 4 

  0f19:36                push 
  0f1a:35 03              ldi 3 
  0f1c:1a                 eq? 
  0f1d:31 2c              bnt code_0f4b 
  0f1f:38 0106          pushi 106 // $106 east
  0f22:76               push0 
  0f23:81 02              lag gCurRoom 
  0f25:4a 04             send 4 

  0f27:36                push 
  0f28:35 2b              ldi 2b 
  0f2a:1a                 eq? 
  0f2b:31 1e              bnt code_0f4b 
  0f2d:88 00bb            lsg gMinute 
  0f30:35 03              ldi 3 
  0f32:22                 lt? 
  0f33:31 16              bnt code_0f4b 
  0f35:78               push1 
  0f36:39 25            pushi 25 // $25 max
  0f38:45 07 02         callb procedure_0007 2 // IsFlag 

  0f3b:18                 not 
  0f3c:31 0d              bnt code_0f4b 
  0f3e:88 00a5            lsg gAct 
  0f41:35 07              ldi 7 
  0f43:22                 lt? 
  0f44:31 05              bnt code_0f4b 
  0f46:34 0160            ldi 160 
  0f49:a5 00              sat temp0 

        code_0f4b
  0f4b:3a                toss 
  0f4c:85 00              lat temp0 
  0f4e:31 0c              bnt code_0f5c 
  0f50:38 00f8          pushi f8 // $f8 newRoom
  0f53:78               push1 
  0f54:8d 00              lst temp0 
  0f56:81 02              lag gCurRoom 
  0f58:4a 06             send 6 

  0f5a:33 05              jmp code_0f61 

        code_0f5c
  0f5c:76               push0 
  0f5d:40 f0b9 00        call proc_001a 0 


        code_0f61
  0f61:33 1c              jmp code_0f7f 

        code_0f63
  0f63:3c                 dup 
  0f64:35 03              ldi 3 
  0f66:1a                 eq? 
  0f67:31 16              bnt code_0f7f 
  0f69:39 7a            pushi 7a // $7a setScript
  0f6b:78               push1 
  0f6c:76               push0 
  0f6d:72 0694          lofsa $1604 // eyes
  0f70:4a 06             send 6 

  0f72:76               push0 
  0f73:45 0f 00         callb procedure_000f 0 // cls 

  0f76:76               push0 
  0f77:40 f113 00        call proc_008e 0 

  0f7b:76               push0 
  0f7c:45 04 00         callb procedure_0004 0 // HandsOn 


        code_0f7f
  0f7f:3a                toss 
  0f80:48                 ret 
    )

)

// 147a
(instance pickUp 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_0f81
  0f81:87 01              lap param1 
  0f83:65 0a             aTop state 
  0f85:36                push 
  0f86:3c                 dup 
  0f87:35 00              ldi 0 
  0f89:1a                 eq? 
  0f8a:31 13              bnt code_0f9f 
  0f8c:76               push0 
  0f8d:45 03 00         callb procedure_0003 0 // HandsOff 

  0f90:7a               push2 
  0f91:89 00              lsg gEgo 
  0f93:67 08             pTos client 
  0f95:45 02 04         callb procedure_0002 4 // LookAt 

  0f98:35 02              ldi 2 
  0f9a:65 10             aTop cycles 
  0f9c:32 00a7            jmp code_1046 

        code_0f9f
  0f9f:3c                 dup 
  0fa0:35 01              ldi 1 
  0fa2:1a                 eq? 
  0fa3:31 1c              bnt code_0fc1 
  0fa5:39 05            pushi 5 // $5 view
  0fa7:78               push1 
  0fa8:39 11            pushi 11 // $11 signal
  0faa:39 07            pushi 7 // $7 cel
  0fac:78               push1 
  0fad:76               push0 
  0fae:38 00d3          pushi d3 // $d3 setMotion
  0fb1:78               push1 
  0fb2:76               push0 
  0fb3:39 7e            pushi 7e // $7e setCycle
  0fb5:7a               push2 
  0fb6:51 1a            class End 
  0fb8:36                push 
  0fb9:7c            pushSelf 
  0fba:81 00              lag gEgo 
  0fbc:4a 1a             send 1a 

  0fbe:32 0085            jmp code_1046 

        code_0fc1
  0fc1:3c                 dup 
  0fc2:35 02              ldi 2 
  0fc4:1a                 eq? 
  0fc5:31 49              bnt code_1010 
  0fc7:8b 21              lsl local33 
  0fc9:35 01              ldi 1 
  0fcb:1a                 eq? 
  0fcc:31 19              bnt code_0fe7 
  0fce:76               push0 
  0fcf:45 16 00         callb procedure_0016 0 // Ok 

  0fd2:38 0089          pushi 89 // $89 hide
  0fd5:76               push0 
  0fd6:72 0679          lofsa $1652 // cane
  0fd9:4a 04             send 4 

  0fdb:38 00ec          pushi ec // $ec get
  0fde:78               push1 
  0fdf:39 15            pushi 15 // $15 brBottom
  0fe1:81 00              lag gEgo 
  0fe3:4a 06             send 6 

  0fe5:33 1e              jmp code_1005 

        code_0fe7
  0fe7:7a               push2 
  0fe8:39 31            pushi 31 // $31 b-i1
  0fea:39 14            pushi 14 // $14 brLeft
  0fec:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0ff2:38 0089          pushi 89 // $89 hide
  0ff5:76               push0 
  0ff6:72 06ab          lofsa $16a4 // cigar
  0ff9:4a 04             send 4 

  0ffb:38 00ec          pushi ec // $ec get
  0ffe:78               push1 
  0fff:39 08            pushi 8 // $8 underBits
  1001:81 00              lag gEgo 
  1003:4a 06             send 6 


        code_1005
  1005:35 01              ldi 1 
  1007:a0 00b6            sag global182 
  100a:35 02              ldi 2 
  100c:65 10             aTop cycles 
  100e:33 36              jmp code_1046 

        code_1010
  1010:3c                 dup 
  1011:35 03              ldi 3 
  1013:1a                 eq? 
  1014:31 0d              bnt code_1023 
  1016:39 7e            pushi 7e // $7e setCycle
  1018:7a               push2 
  1019:51 1b            class Beg 
  101b:36                push 
  101c:7c            pushSelf 
  101d:81 00              lag gEgo 
  101f:4a 08             send 8 

  1021:33 23              jmp code_1046 

        code_1023
  1023:3c                 dup 
  1024:35 04              ldi 4 
  1026:1a                 eq? 
  1027:31 1d              bnt code_1046 
  1029:76               push0 
  102a:45 04 00         callb procedure_0004 0 // HandsOn 

  102d:39 05            pushi 5 // $5 view
  102f:78               push1 
  1030:76               push0 
  1031:39 7e            pushi 7e // $7e setCycle
  1033:78               push1 
  1034:51 17            class Walk 
  1036:36                push 
  1037:81 00              lag gEgo 
  1039:4a 0c             send c 

  103b:39 58            pushi 58 // $58 dispose
  103d:76               push0 
  103e:39 7a            pushi 7a // $7a setScript
  1040:78               push1 
  1041:76               push0 
  1042:63 08             pToa client 
  1044:4a 0a             send a 


        code_1046
  1046:3a                toss 
  1047:48                 ret 
    )

)

// 14aa
(instance grabbed 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_1048
  1048:87 01              lap param1 
  104a:65 0a             aTop state 
  104c:36                push 
  104d:3c                 dup 
  104e:35 00              ldi 0 
  1050:1a                 eq? 
  1051:31 2f              bnt code_1082 
  1053:76               push0 
  1054:45 03 00         callb procedure_0003 0 // HandsOff 

  1057:39 05            pushi 5 // $5 view
  1059:78               push1 
  105a:39 2b            pushi 2b // $2b number
  105c:39 06            pushi 6 // $6 loop
  105e:78               push1 
  105f:76               push0 
  1060:39 07            pushi 7 // $7 cel
  1062:78               push1 
  1063:76               push0 
  1064:39 7e            pushi 7e // $7e setCycle
  1066:7a               push2 
  1067:51 1a            class End 
  1069:36                push 
  106a:7c            pushSelf 
  106b:81 00              lag gEgo 
  106d:4a 1a             send 1a 

  106f:39 2b            pushi 2b // $2b number
  1071:78               push1 
  1072:39 57            pushi 57 // $57 init
  1074:39 06            pushi 6 // $6 loop
  1076:78               push1 
  1077:78               push1 
  1078:39 2a            pushi 2a // $2a play
  107a:76               push0 
  107b:72 06a4          lofsa $1722 // mySound
  107e:4a 10             send 10 

  1080:33 29              jmp code_10ab 

        code_1082
  1082:3c                 dup 
  1083:35 01              ldi 1 
  1085:1a                 eq? 
  1086:31 06              bnt code_108e 
  1088:35 05              ldi 5 
  108a:65 12             aTop seconds 
  108c:33 1d              jmp code_10ab 

        code_108e
  108e:3c                 dup 
  108f:35 02              ldi 2 
  1091:1a                 eq? 
  1092:31 17              bnt code_10ab 
  1094:35 2b              ldi 2b 
  1096:a0 0080            sag global128 
  1099:35 02              ldi 2 
  109b:a0 0081            sag global129 
  109e:35 01              ldi 1 
  10a0:a0 0082            sag global130 
  10a3:7a               push2 
  10a4:39 31            pushi 31 // $31 b-i1
  10a6:39 15            pushi 15 // $15 brBottom
  10a8:45 13 04         callb procedure_0013 4 // EgoDead 


        code_10ab
  10ab:3a                toss 
  10ac:48                 ret 
    )

)

// 14da
(instance fprotrait of PV
    (properties
        y $4e
        x $bd
        z $0
        heading $0
        view $8b
        loop $0
        cel $0
        priority $9
        signal $0
    )
)

// 1504
(instance bprotrait of PV
    (properties
        y $46
        x $c6
        z $0
        heading $0
        view $8b
        loop $1
        cel $0
        priority $4
        signal $0
    )
    (method (handleEvent) // method_10ad
  10ad:39 03            pushi 3 // $3 y
  10af:7c            pushSelf 
  10b0:8f 01              lsp param1 
  10b2:39 03            pushi 3 // $3 y
  10b4:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  10ba:2f 09               bt code_10c5 
  10bc:78               push1 
  10bd:74 01a1          lofss $1261 // look/door
  10c0:43 25 02         callk Said 2 

  10c3:31 13              bnt code_10d8 

        code_10c5
  10c5:7a               push2 
  10c6:39 31            pushi 31 // $31 b-i1
  10c8:39 08            pushi 8 // $8 underBits
  10ca:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  10d0:39 4c            pushi 4c // $4c claimed
  10d2:78               push1 
  10d3:78               push1 
  10d4:87 01              lap param1 
  10d6:4a 06             send 6 


        code_10d8
  10d8:48                 ret 
    )

)

// 1532
(instance fpanel of Act
    (properties
        y $77
        x $7e
        z $0
        heading $0
        yStep $2
        view $8b
        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
    )
    (method (handleEvent) // method_10d9
  10d9:39 03            pushi 3 // $3 y
  10db:7c            pushSelf 
  10dc:8f 01              lsp param1 
  10de:39 03            pushi 3 // $3 y
  10e0:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  10e6:31 13              bnt code_10fb 
  10e8:7a               push2 
  10e9:39 31            pushi 31 // $31 b-i1
  10eb:39 08            pushi 8 // $8 underBits
  10ed:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  10f3:39 4c            pushi 4c // $4c claimed
  10f5:78               push1 
  10f6:78               push1 
  10f7:87 01              lap param1 
  10f9:4a 06             send 6 


        code_10fb
  10fb:48                 ret 
    )

)

// 159a
(instance bpanel of Act
    (properties
        y $67
        x $fa
        z $0
        heading $0
        yStep $2
        view $8b
        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
    )
)

// 15fe
(instance eyes of Prop
    (properties
        y $39
        x $be
        z $0
        heading $0
        yStep $2
        view $8b
        loop $2
        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
    )
)

// 164c
(instance cane of Prop
    (properties
        y $73
        x $114
        z $0
        heading $0
        yStep $2
        view $8b
        loop $6
        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
    )
    (method (handleEvent) // method_10fc
  10fc:39 03            pushi 3 // $3 y
  10fe:7c            pushSelf 
  10ff:8f 01              lsp param1 
  1101:39 03            pushi 3 // $3 y
  1103:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  1109:2f 09               bt code_1114 
  110b:78               push1 
  110c:74 014c          lofss $125b // look/cane
  110f:43 25 02         callk Said 2 

  1112:31 15              bnt code_1129 

        code_1114
  1114:39 4c            pushi 4c // $4c claimed
  1116:78               push1 
  1117:78               push1 
  1118:87 01              lap param1 
  111a:4a 06             send 6 

  111c:7a               push2 
  111d:39 31            pushi 31 // $31 b-i1
  111f:39 16            pushi 16 // $16 brRight
  1121:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1127:33 2c              jmp code_1155 

        code_1129
  1129:78               push1 
  112a:74 011c          lofss $1249 // get/cane
  112d:43 25 02         callk Said 2 

  1130:31 23              bnt code_1155 
  1132:38 00ae          pushi ae // $ae distanceTo
  1135:78               push1 
  1136:74 0519          lofss $1652 // cane
  1139:81 00              lag gEgo 
  113b:4a 06             send 6 

  113d:36                push 
  113e:35 19              ldi 19 
  1140:22                 lt? 
  1141:31 0e              bnt code_1151 
  1143:35 01              ldi 1 
  1145:a3 21              sal local33 
  1147:39 7a            pushi 7a // $7a setScript
  1149:78               push1 
  114a:74 0333          lofss $1480 // pickUp
  114d:54 06             self 6 

  114f:33 04              jmp code_1155 

        code_1151
  1151:76               push0 
  1152:45 09 00         callb procedure_0009 0 // NotClose 


        code_1155
  1155:48                 ret 
    )

)

// 169e
(instance cigar of Prop
    (properties
        y $73
        x $114
        z $0
        heading $0
        yStep $2
        view $8b
        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
    )
    (method (handleEvent) // method_1156
  1156:39 03            pushi 3 // $3 y
  1158:7c            pushSelf 
  1159:8f 01              lsp param1 
  115b:39 03            pushi 3 // $3 y
  115d:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  1163:2f 09               bt code_116e 
  1165:78               push1 
  1166:74 00ec          lofss $1255 // look/butt
  1169:43 25 02         callk Said 2 

  116c:31 15              bnt code_1183 

        code_116e
  116e:39 4c            pushi 4c // $4c claimed
  1170:78               push1 
  1171:78               push1 
  1172:87 01              lap param1 
  1174:4a 06             send 6 

  1176:7a               push2 
  1177:39 31            pushi 31 // $31 b-i1
  1179:39 17            pushi 17 // $17 name
  117b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1181:33 2c              jmp code_11af 

        code_1183
  1183:78               push1 
  1184:74 00bc          lofss $1243 // get/butt
  1187:43 25 02         callk Said 2 

  118a:31 23              bnt code_11af 
  118c:38 00ae          pushi ae // $ae distanceTo
  118f:78               push1 
  1190:74 0511          lofss $16a4 // cigar
  1193:81 00              lag gEgo 
  1195:4a 06             send 6 

  1197:36                push 
  1198:35 0a              ldi a 
  119a:22                 lt? 
  119b:31 0e              bnt code_11ab 
  119d:35 00              ldi 0 
  119f:a3 21              sal local33 
  11a1:39 7a            pushi 7a // $7a setScript
  11a3:78               push1 
  11a4:74 02d9          lofss $1480 // pickUp
  11a7:54 06             self 6 

  11a9:33 04              jmp code_11af 

        code_11ab
  11ab:76               push0 
  11ac:45 09 00         callb procedure_0009 0 // NotClose 


        code_11af
  11af:48                 ret 
    )

)

// 16f0
(instance Platform of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $5f
        nsLeft $ae
        nsBottom $73
        nsRight $d1
    )
    (method (handleEvent) // method_11b0
  11b0:39 03            pushi 3 // $3 y
  11b2:7c            pushSelf 
  11b3:8f 01              lsp param1 
  11b5:39 03            pushi 3 // $3 y
  11b7:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  11bd:31 0f              bnt code_11ce 
  11bf:39 4c            pushi 4c // $4c claimed
  11c1:78               push1 
  11c2:78               push1 
  11c3:87 01              lap param1 
  11c5:4a 06             send 6 

  11c7:78               push1 
  11c8:74 0682          lofss $184d // platform
  11cb:45 19 02         callb procedure_0019 2 // DoLook 


        code_11ce
  11ce:48                 ret 
  11cf:00                bnot 
    )

)

// 171c
(instance mySound of Sound
    (properties
        state $0
        number $0
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)

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



(procedure proc_001a
  001a:3f 01             link 1 // (var $1)
  001c:83 08              lal local8 
  001e:18                 not 
  001f:31 6c              bnt code_008d 
  0021:35 01              ldi 1 
  0023:a3 08              sal local8 
  0025:7a               push2 
  0026:39 3e            pushi 3e // $3e looper
  0028:39 07            pushi 7 // $7 cel
  002a:43 08 04         callk DrawPic 4 

  002d:39 62            pushi 62 // $62 eachElementDo
  002f:78               push1 
  0030:38 0089          pushi 89 // $89 hide
  0033:81 05              lag gCast 
  0035:4a 06             send 6 

  0037:39 2b            pushi 2b // $2b number
  0039:78               push1 
  003a:39 1b            pushi 1b // $1b elements
  003c:39 06            pushi 6 // $6 loop
  003e:78               push1 
  003f:39 ff            pushi ff // $ff checkAni
  0041:39 2a            pushi 2a // $2a play
  0043:76               push0 
  0044:72 1705          lofsa $174c // myMusic
  0047:4a 10             send 10 

  0049:83 1f              lal local31 
  004b:31 06              bnt code_0053 
  004d:35 00              ldi 0 
  004f:a5 00              sat temp0 
  0051:33 04              jmp code_0057 

        code_0053
  0053:35 04              ldi 4 
  0055:a5 00              sat temp0 

        code_0057
  0057:39 06            pushi 6 // $6 loop
  0059:76               push0 
  005a:81 00              lag gEgo 
  005c:4a 04             send 4 

  005e:36                push 
  005f:35 03              ldi 3 
  0061:1a                 eq? 
  0062:31 07              bnt code_006b 
  0064:8d 00              lst temp0 
  0066:35 02              ldi 2 
  0068:02                 add 
  0069:a5 00              sat temp0 

        code_006b
  006b:39 06            pushi 6 // $6 loop
  006d:85 00              lat temp0 
  006f:9b 00             lsli local0 
  0071:c5 00              +at temp0 
  0073:9b 00             lsli local0 
  0075:39 43            pushi 43 // $43 at
  0077:39 41            pushi 41 // $41 replay
  0079:39 43            pushi 43 // $43 at
  007b:39 58            pushi 58 // $58 dispose
  007d:46 00ff 0000 0c  calle ff procedure_0000 c // Print 

  0083:39 73            pushi 73 // $73 seconds
  0085:78               push1 
  0086:39 04            pushi 4 // $4 x
  0088:72 13c5          lofsa $1450 // LookAround
  008b:4a 06             send 6 


        code_008d
  008d:48                 ret 
)

(procedure proc_008e
  008e:83 08              lal local8 
  0090:31 2f              bnt code_00c1 
  0092:35 00              ldi 0 
  0094:a3 08              sal local8 
  0096:7a               push2 
  0097:39 28            pushi 28 // $28 message
  0099:39 06            pushi 6 // $6 loop
  009b:43 08 04         callk DrawPic 4 

  009e:38 0088          pushi 88 // $88 fade
  00a1:76               push0 
  00a2:72 16a7          lofsa $174c // myMusic
  00a5:4a 04             send 4 

  00a7:39 3c            pushi 3c // $3c doit
  00a9:76               push0 
  00aa:81 0a              lag gAddToPics 
  00ac:4a 04             send 4 

  00ae:39 62            pushi 62 // $62 eachElementDo
  00b0:78               push1 
  00b1:38 00ca          pushi ca // $ca show
  00b4:81 05              lag gCast 
  00b6:4a 06             send 6 

  00b8:38 0089          pushi 89 // $89 hide
  00bb:76               push0 
  00bc:72 1545          lofsa $1604 // eyes
  00bf:4a 04             send 4 


        code_00c1
  00c1:48                 ret 
)

