(script 50)

(string
    string_1936 "Back"
    string_193b "Entering"
    string_1944 "Front"
    string_194a "LookAround"
    string_1955 "Platform"
    string_195e "Room50"
    string_1965 "boot"
    string_196a "bpanel"
    string_1971 "bprotrait"
    string_197b "cane"
    string_1980 "cigar"
    string_1986 "eyes"
    string_198b "fpanel"
    string_1992 "grabbed"
    string_199a "leftDwnPath"
    string_19a6 "leftUpPath"
    string_19b1 "myMusic"
    string_19b9 "mySound"
    string_19c1 "pickUp"
    string_19c8 "platform"
    string_19d1 "protrait"
    string_19da "rightDwnPath"
    string_19e7 "rightUpPath"
    string_19f3 ""
)

(said
    said_12cc /armoire
    said_12d0 /bedroom
    said_12d4 /dirt
    said_12d8 /miroir
    said_12dc /painting
    said_12e0 /parlor
    said_12e4 /parlor,room<dining
    said_12ee /room<dining
    said_12f5 /room<guest
    said_12fc <bas
    said_1300 [<around,at][/room]
    said_130e [<through,dans]/eyehole,eye
    said_131d clore,attirer,appuyer,open,bouger/armoire
    said_132f clore,attirer,appuyer,open,bouger/miroir
    said_1341 clore/door
    said_1347 get/bootprint
    said_134d get/butt
    said_1353 get/cane
    said_1359 get/painting
    said_135f look/butt
    said_1365 look/cane
    said_136b look/door
    said_1371 look<actionner<monocle/bootprint
    said_137d look>
    said_1381 bouger,open/door
    said_138a sentir
)

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

(local
    local0 = $0032
    local1 = $0000
    local2 = $0032
    local3 = $0001
    local4 = $0032
    local5 = $0002
    local6 = $0032
    local7 = $0003
    local8 = $0032
    local9 = $0004
    local10 = $0032
    local11 = $0005
    local12 = $0000
    local13 = $0000
    local14 = $0069
    local15 = $0064
    local16 = $0079
    local17 = $0063
    local18 = $8000
    local19 = $0070
    local20 = $0063
    local21 = $005b
    local22 = $006d
    local23 = $8000
    local24 = $009c
    local25 = $006a
    local26 = $0085
    local27 = $0063
    local28 = $8000
    local29 = $0090
    local30 = $0064
    local31 = $00a9
    local32 = $006d
    local33 = $8000
    local34 = $0000
    local35 = $0000
    local36 = $0000
    local37 = $0000
)

// 1394
(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 18             lali local24 
  00c6:48                 ret 
    )

)

// 13ce
(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 0e             lali local14 
  00cb:48                 ret 
    )

)

// 1408
(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 1d             lali local29 
  00d0:48                 ret 
    )

)

// 1442
(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 13             lali local19 
  00d5:48                 ret 
    )

)

// 147c
(instance public Room50 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $27
        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:89 0c              lsg gPrevRoomNum 
  00d8:35 28              ldi 28 
  00da:22                 lt? 
  00db:2f 10               bt code_00ed 
  00dd:89 0c              lsg gPrevRoomNum 
  00df:34 012b            ldi 12b 
  00e2:1e                 gt? 
  00e3:31 1a              bnt code_00ff 
  00e5:89 0c              lsg gPrevRoomNum 
  00e7:34 0140            ldi 140 
  00ea:22                 lt? 
  00eb:31 12              bnt code_00ff 

        code_00ed
  00ed:35 21              ldi 21 
  00ef:65 20             aTop west 
  00f1:35 22              ldi 22 
  00f3:65 1a             aTop north 
  00f5:35 26              ldi 26 
  00f7:65 1e             aTop south 
  00f9:35 01              ldi 1 
  00fb:a3 23              sal local35 
  00fd:33 0c              jmp code_010b 

        code_00ff
  00ff:35 2b              ldi 2b 
  0101:65 20             aTop west 
  0103:35 2c              ldi 2c 
  0105:65 1a             aTop north 
  0107:35 30              ldi 30 
  0109:65 1e             aTop south 

        code_010b
  010b:39 57            pushi 57 // $57 init
  010d:76               push0 
  010e:57 37 04         super Rm 4 

  0111:7a               push2 
  0112:38 0081          pushi 81 // $81 prevSignal
  0115:39 3e            pushi 3e // $3e looper
  0117:43 00 04         callk Load 4 

  011a:39 06            pushi 6 // $6 loop
  011c:38 0084          pushi 84 // $84 stop
  011f:39 4a            pushi 4a // $4a pragmaFail
  0121:39 1b            pushi 1b // $1b elements
  0123:39 4b            pushi 4b // $4b said
  0125:39 6a            pushi 6a // $6a prev
  0127:39 57            pushi 57 // $57 init
  0129:45 15 0c         callb procedure_0015 c // LoadMany 

  012c:67 1e             pTos south 
  012e:35 26              ldi 26 
  0130:1a                 eq? 
  0131:31 0c              bnt code_013f 
  0133:39 07            pushi 7 // $7 cel
  0135:78               push1 
  0136:39 03            pushi 3 // $3 y
  0138:72 15d9          lofsa $1714 // protrait
  013b:4a 06             send 6 

  013d:33 09              jmp code_0148 

        code_013f
  013f:39 07            pushi 7 // $7 cel
  0141:78               push1 
  0142:7a               push2 
  0143:72 15ce          lofsa $1714 // protrait
  0146:4a 06             send 6 


        code_0148
  0148:39 61            pushi 61 // $61 add
  014a:7a               push2 
  014b:74 15c6          lofss $1714 // protrait
  014e:74 15f5          lofss $1746 // bprotrait
  0151:39 3c            pushi 3c // $3c doit
  0153:76               push0 
  0154:81 0a              lag gAddToPics 
  0156:4a 0c             send c 

  0158:38 010b          pushi 10b // $10b setFeatures
  015b:78               push1 
  015c:74 170f          lofss $186e // Platform
  015f:54 06             self 6 

  0161:88 00a5            lsg gAct 
  0164:35 06              ldi 6 
  0166:1a                 eq? 
  0167:31 38              bnt code_01a1 
  0169:38 0108          pushi 108 // $108 west
  016c:76               push0 
  016d:81 02              lag gCurRoom 
  016f:4a 04             send 4 

  0171:36                push 
  0172:35 2b              ldi 2b 
  0174:1a                 eq? 
  0175:31 2a              bnt code_01a1 
  0177:39 42            pushi 42 // $42 setPri
  0179:78               push1 
  017a:39 03            pushi 3 // $3 y
  017c:38 00c9          pushi c9 // $c9 ignoreActors
  017f:78               push1 
  0180:78               push1 
  0181:39 57            pushi 57 // $57 init
  0183:76               push0 
  0184:72 1695          lofsa $181c // boot
  0187:4a 10             send 10 

  0189:89 76              lsg gMustDos 
  018b:35 02              ldi 2 
  018d:12                 and 
  018e:31 11              bnt code_01a1 
  0190:78               push1 
  0191:39 24            pushi 24 // $24 cursor
  0193:45 07 02         callb procedure_0007 2 // IsFlag 

  0196:18                 not 
  0197:31 08              bnt code_01a1 
  0199:83 0a              lal local10 
  019b:a3 06              sal local6 
  019d:83 0b              lal local11 
  019f:a3 07              sal local7 

        code_01a1
  01a1:88 00a5            lsg gAct 
  01a4:35 02              ldi 2 
  01a6:20                 ge? 
  01a7:31 2f              bnt code_01d8 
  01a9:38 00ee          pushi ee // $ee has
  01ac:78               push1 
  01ad:39 15            pushi 15 // $15 brBottom
  01af:81 00              lag gEgo 
  01b1:4a 06             send 6 

  01b3:18                 not 
  01b4:31 22              bnt code_01d8 
  01b6:89 77              lsg gCaneLocation 
  01b8:35 00              ldi 0 
  01ba:1a                 eq? 
  01bb:31 1b              bnt code_01d8 
  01bd:89 0c              lsg gPrevRoomNum 
  01bf:35 31              ldi 31 
  01c1:22                 lt? 
  01c2:31 14              bnt code_01d8 
  01c4:7a               push2 
  01c5:39 31            pushi 31 // $31 b-i1
  01c7:39 32            pushi 32 // $32 b-i2
  01c9:43 40 04         callk Random 4 

  01cc:36                push 
  01cd:38 0108          pushi 108 // $108 west
  01d0:76               push0 
  01d1:81 02              lag gCurRoom 
  01d3:4a 04             send 4 

  01d5:02                 add 
  01d6:a1 77              sag gCaneLocation 

        code_01d8
  01d8:88 00a5            lsg gAct 
  01db:35 02              ldi 2 
  01dd:20                 ge? 
  01de:31 2f              bnt code_020f 
  01e0:38 00ee          pushi ee // $ee has
  01e3:78               push1 
  01e4:39 15            pushi 15 // $15 brBottom
  01e6:81 00              lag gEgo 
  01e8:4a 06             send 6 

  01ea:18                 not 
  01eb:31 22              bnt code_020f 
  01ed:89 77              lsg gCaneLocation 
  01ef:35 00              ldi 0 
  01f1:1a                 eq? 
  01f2:31 1b              bnt code_020f 
  01f4:89 0c              lsg gPrevRoomNum 
  01f6:35 31              ldi 31 
  01f8:22                 lt? 
  01f9:31 14              bnt code_020f 
  01fb:7a               push2 
  01fc:39 31            pushi 31 // $31 b-i1
  01fe:39 32            pushi 32 // $32 b-i2
  0200:43 40 04         callk Random 4 

  0203:36                push 
  0204:38 0108          pushi 108 // $108 west
  0207:76               push0 
  0208:81 02              lag gCurRoom 
  020a:4a 04             send 4 

  020c:02                 add 
  020d:a1 77              sag gCaneLocation 

        code_020f
  020f:38 00ee          pushi ee // $ee has
  0212:78               push1 
  0213:39 15            pushi 15 // $15 brBottom
  0215:81 00              lag gEgo 
  0217:4a 06             send 6 

  0219:18                 not 
  021a:31 18              bnt code_0234 
  021c:89 0b              lsg gCurRoomNum 
  021e:89 77              lsg gCaneLocation 
  0220:38 0108          pushi 108 // $108 west
  0223:76               push0 
  0224:81 02              lag gCurRoom 
  0226:4a 04             send 4 

  0228:04                 sub 
  0229:1a                 eq? 
  022a:31 08              bnt code_0234 
  022c:39 57            pushi 57 // $57 init
  022e:76               push0 
  022f:72 1598          lofsa $17ca // cane
  0232:4a 04             send 4 


        code_0234
  0234:88 00a5            lsg gAct 
  0237:35 03              ldi 3 
  0239:20                 ge? 
  023a:31 52              bnt code_028e 
  023c:38 00ee          pushi ee // $ee has
  023f:78               push1 
  0240:39 08            pushi 8 // $8 underBits
  0242:81 00              lag gEgo 
  0244:4a 06             send 6 

  0246:18                 not 
  0247:31 45              bnt code_028e 
  0249:88 00a8            lsg gCigarButtLocation 
  024c:35 00              ldi 0 
  024e:1a                 eq? 
  024f:31 3d              bnt code_028e 
  0251:89 0c              lsg gPrevRoomNum 
  0253:35 31              ldi 31 
  0255:22                 lt? 
  0256:31 36              bnt code_028e 
  0258:7a               push2 
  0259:39 31            pushi 31 // $31 b-i1
  025b:39 32            pushi 32 // $32 b-i2
  025d:43 40 04         callk Random 4 

  0260:36                push 
  0261:38 0108          pushi 108 // $108 west
  0264:76               push0 
  0265:81 02              lag gCurRoom 
  0267:4a 04             send 4 

  0269:02                 add 
  026a:a0 00a8            sag gCigarButtLocation 
  026d:36                push 
  026e:81 77              lag gCaneLocation 
  0270:1a                 eq? 
  0271:31 1b              bnt code_028e 
  0273:89 77              lsg gCaneLocation 
  0275:35 55              ldi 55 
  0277:1e                 gt? 
  0278:31 0b              bnt code_0285 
  027a:88 00a8            lsg gCigarButtLocation 
  027d:35 0a              ldi a 
  027f:04                 sub 
  0280:a0 00a8            sag gCigarButtLocation 
  0283:33 09              jmp code_028e 

        code_0285
  0285:88 00a8            lsg gCigarButtLocation 
  0288:35 0a              ldi a 
  028a:02                 add 
  028b:a0 00a8            sag gCigarButtLocation 

        code_028e
  028e:38 00ee          pushi ee // $ee has
  0291:78               push1 
  0292:39 08            pushi 8 // $8 underBits
  0294:81 00              lag gEgo 
  0296:4a 06             send 6 

  0298:18                 not 
  0299:31 1e              bnt code_02b9 
  029b:89 0b              lsg gCurRoomNum 
  029d:88 00a8            lsg gCigarButtLocation 
  02a0:38 0108          pushi 108 // $108 west
  02a3:76               push0 
  02a4:81 02              lag gCurRoom 
  02a6:4a 04             send 4 

  02a8:04                 sub 
  02a9:1a                 eq? 
  02aa:31 0d              bnt code_02b9 
  02ac:38 00c9          pushi c9 // $c9 ignoreActors
  02af:78               push1 
  02b0:78               push1 
  02b1:39 57            pushi 57 // $57 init
  02b3:76               push0 
  02b4:72 14c1          lofsa $1778 // cigar
  02b7:4a 0a             send a 


        code_02b9
  02b9:38 00c8          pushi c8 // $c8 setLoop
  02bc:78               push1 
  02bd:39 05            pushi 5 // $5 view
  02bf:38 00a2          pushi a2 // $a2 setCel
  02c2:78               push1 
  02c3:76               push0 
  02c4:39 12            pushi 12 // $12 illegalBits
  02c6:78               push1 
  02c7:76               push0 
  02c8:38 00c9          pushi c9 // $c9 ignoreActors
  02cb:78               push1 
  02cc:78               push1 
  02cd:39 3f            pushi 3f // $3f priority
  02cf:78               push1 
  02d0:39 07            pushi 7 // $7 cel
  02d2:39 57            pushi 57 // $57 init
  02d4:76               push0 
  02d5:38 00c6          pushi c6 // $c6 stopUpd
  02d8:76               push0 
  02d9:72 131a          lofsa $15f6 // fpanel
  02dc:4a 26             send 26 

  02de:38 00c8          pushi c8 // $c8 setLoop
  02e1:78               push1 
  02e2:39 03            pushi 3 // $3 y
  02e4:38 00a2          pushi a2 // $a2 setCel
  02e7:78               push1 
  02e8:76               push0 
  02e9:39 12            pushi 12 // $12 illegalBits
  02eb:78               push1 
  02ec:76               push0 
  02ed:39 42            pushi 42 // $42 setPri
  02ef:78               push1 
  02f0:39 04            pushi 4 // $4 x
  02f2:39 57            pushi 57 // $57 init
  02f4:76               push0 
  02f5:38 00c6          pushi c6 // $c6 stopUpd
  02f8:76               push0 
  02f9:72 1362          lofsa $165e // bpanel
  02fc:4a 20             send 20 

  02fe:39 42            pushi 42 // $42 setPri
  0300:78               push1 
  0301:39 0a            pushi a // $a nsLeft
  0303:39 57            pushi 57 // $57 init
  0305:76               push0 
  0306:72 13bd          lofsa $16c6 // eyes
  0309:4a 0a             send a 

  030b:38 0089          pushi 89 // $89 hide
  030e:76               push0 
  030f:72 13b4          lofsa $16c6 // eyes
  0312:4a 04             send 4 

  0314:38 010a          pushi 10a // $10a setRegions
  0317:78               push1 
  0318:38 00d4          pushi d4 // $d4 setAvoider
  031b:54 06             self 6 

  031d:89 0c              lsg gPrevRoomNum 
  031f:3c                 dup 
  0320:35 21              ldi 21 
  0322:1a                 eq? 
  0323:31 0e              bnt code_0333 
  0325:38 00c5          pushi c5 // $c5 posn
  0328:7a               push2 
  0329:39 10            pushi 10 // $10 lsRight
  032b:39 6e            pushi 6e // $6e indexOf
  032d:81 00              lag gEgo 
  032f:4a 08             send 8 

  0331:33 3c              jmp code_036f 

        code_0333
  0333:3c                 dup 
  0334:35 2b              ldi 2b 
  0336:1a                 eq? 
  0337:31 0e              bnt code_0347 
  0339:38 00c5          pushi c5 // $c5 posn
  033c:7a               push2 
  033d:39 10            pushi 10 // $10 lsRight
  033f:39 6e            pushi 6e // $6e indexOf
  0341:81 00              lag gEgo 
  0343:4a 08             send 8 

  0345:33 28              jmp code_036f 

        code_0347
  0347:3c                 dup 
  0348:35 26              ldi 26 
  034a:1a                 eq? 
  034b:31 0f              bnt code_035c 
  034d:38 00c5          pushi c5 // $c5 posn
  0350:7a               push2 
  0351:38 00c1          pushi c1 // $c1 gy
  0354:39 73            pushi 73 // $73 seconds
  0356:81 00              lag gEgo 
  0358:4a 08             send 8 

  035a:33 13              jmp code_036f 

        code_035c
  035c:3c                 dup 
  035d:35 30              ldi 30 
  035f:1a                 eq? 
  0360:31 0d              bnt code_036f 
  0362:38 00c5          pushi c5 // $c5 posn
  0365:7a               push2 
  0366:38 00c1          pushi c1 // $c1 gy
  0369:39 73            pushi 73 // $73 seconds
  036b:81 00              lag gEgo 
  036d:4a 08             send 8 


        code_036f
  036f:3a                toss 
  0370:89 0c              lsg gPrevRoomNum 
  0372:35 22              ldi 22 
  0374:1a                 eq? 
  0375:2f 07               bt code_037e 
  0377:89 0c              lsg gPrevRoomNum 
  0379:35 2c              ldi 2c 
  037b:1a                 eq? 
  037c:31 24              bnt code_03a2 

        code_037e
  037e:39 06            pushi 6 // $6 loop
  0380:78               push1 
  0381:7a               push2 
  0382:39 12            pushi 12 // $12 illegalBits
  0384:78               push1 
  0385:76               push0 
  0386:38 00c5          pushi c5 // $c5 posn
  0389:7a               push2 
  038a:39 44            pushi 44 // $44 next
  038c:39 66            pushi 66 // $66 isEmpty
  038e:39 42            pushi 42 // $42 setPri
  0390:78               push1 
  0391:39 03            pushi 3 // $3 y
  0393:39 7a            pushi 7a // $7a setScript
  0395:78               push1 
  0396:74 119d          lofss $1536 // Entering
  0399:39 57            pushi 57 // $57 init
  039b:76               push0 
  039c:81 00              lag gEgo 
  039e:4a 24             send 24 

  03a0:33 16              jmp code_03b8 

        code_03a2
  03a2:39 05            pushi 5 // $5 view
  03a4:78               push1 
  03a5:76               push0 
  03a6:39 42            pushi 42 // $42 setPri
  03a8:78               push1 
  03a9:39 06            pushi 6 // $6 loop
  03ab:39 12            pushi 12 // $12 illegalBits
  03ad:78               push1 
  03ae:38 8000          pushi 8000 // $8000 sel_32768
  03b1:39 57            pushi 57 // $57 init
  03b3:76               push0 
  03b4:81 00              lag gEgo 
  03b6:4a 16             send 16 


        code_03b8
  03b8:48                 ret 
    )

    (method (doit) // method_03b9
  03b9:38 00da          pushi da // $da inRect
  03bc:39 04            pushi 4 // $4 x
  03be:38 00be          pushi be // $be offScreenOK
  03c1:39 6f            pushi 6f // $6f handleEvent
  03c3:38 00c5          pushi c5 // $c5 posn
  03c6:39 72            pushi 72 // $72 cycles
  03c8:81 00              lag gEgo 
  03ca:4a 0c             send c 

  03cc:31 32              bnt code_0400 
  03ce:63 08             pToa script 
  03d0:18                 not 
  03d1:31 2d              bnt code_0400 
  03d3:88 00a5            lsg gAct 
  03d6:35 07              ldi 7 
  03d8:22                 lt? 
  03d9:31 25              bnt code_0400 
  03db:88 00a5            lsg gAct 
  03de:35 00              ldi 0 
  03e0:1e                 gt? 
  03e1:31 1d              bnt code_0400 
  03e3:88 00a5            lsg gAct 
  03e6:35 05              ldi 5 
  03e8:1c                 ne? 
  03e9:31 15              bnt code_0400 
  03eb:7a               push2 
  03ec:78               push1 
  03ed:39 64            pushi 64 // $64 allTrue
  03ef:43 40 04         callk Random 4 

  03f2:36                push 
  03f3:35 23              ldi 23 
  03f5:22                 lt? 
  03f6:31 08              bnt code_0400 
  03f8:39 7a            pushi 7a // $7a setScript
  03fa:78               push1 
  03fb:74 11c8          lofss $15c6 // grabbed
  03fe:54 06             self 6 


        code_0400
  0400:89 0c              lsg gPrevRoomNum 
  0402:35 2b              ldi 2b 
  0404:1a                 eq? 
  0405:31 29              bnt code_0430 
  0407:88 0090            lsg global144 
  040a:35 00              ldi 0 
  040c:1a                 eq? 
  040d:31 21              bnt code_0430 
  040f:35 01              ldi 1 
  0411:a0 0090            sag global144 
  0414:39 2b            pushi 2b // $2b number
  0416:78               push1 
  0417:39 6a            pushi 6a // $6a prev
  0419:39 06            pushi 6 // $6 loop
  041b:78               push1 
  041c:78               push1 
  041d:39 2a            pushi 2a // $2a play
  041f:76               push0 
  0420:72 1477          lofsa $189a // mySound
  0423:4a 10             send 10 

  0425:7a               push2 
  0426:39 32            pushi 32 // $32 b-i2
  0428:39 06            pushi 6 // $6 loop
  042a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0430
  0430:89 0c              lsg gPrevRoomNum 
  0432:35 21              ldi 21 
  0434:1a                 eq? 
  0435:31 29              bnt code_0460 
  0437:88 008c            lsg global140 
  043a:35 00              ldi 0 
  043c:1a                 eq? 
  043d:31 21              bnt code_0460 
  043f:35 01              ldi 1 
  0441:a0 008c            sag global140 
  0444:39 2b            pushi 2b // $2b number
  0446:78               push1 
  0447:39 6a            pushi 6a // $6a prev
  0449:39 06            pushi 6 // $6 loop
  044b:78               push1 
  044c:78               push1 
  044d:39 2a            pushi 2a // $2a play
  044f:76               push0 
  0450:72 1447          lofsa $189a // mySound
  0453:4a 10             send 10 

  0455:7a               push2 
  0456:39 32            pushi 32 // $32 b-i2
  0458:39 06            pushi 6 // $6 loop
  045a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0460
  0460:88 0171            lsg global369 
  0463:35 01              ldi 1 
  0465:1a                 eq? 
  0466:31 1c              bnt code_0484 
  0468:81 6b              lag global107 
  046a:18                 not 
  046b:31 17              bnt code_0484 
  046d:88 00a5            lsg gAct 
  0470:35 04              ldi 4 
  0472:1a                 eq? 
  0473:31 0f              bnt code_0484 
  0475:35 01              ldi 1 
  0477:a1 6b              sag global107 
  0479:7a               push2 
  047a:39 32            pushi 32 // $32 b-i2
  047c:39 07            pushi 7 // $7 cel
  047e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0484
  0484:39 04            pushi 4 // $4 x
  0486:76               push0 
  0487:81 00              lag gEgo 
  0489:4a 04             send 4 

  048b:36                push 
  048c:35 32              ldi 32 
  048e:22                 lt? 
  048f:31 06              bnt code_0497 
  0491:35 00              ldi 0 
  0493:65 2a             aTop vertAngle 
  0495:33 05              jmp code_049c 

        code_0497
  0497:34 008c            ldi 8c 
  049a:65 2a             aTop vertAngle 

        code_049c
  049c:38 00db          pushi db // $db onControl
  049f:78               push1 
  04a0:78               push1 
  04a1:81 00              lag gEgo 
  04a3:4a 06             send 6 

  04a5:36                push 
  04a6:35 02              ldi 2 
  04a8:12                 and 
  04a9:31 0a              bnt code_04b5 
  04ab:38 00f8          pushi f8 // $f8 newRoom
  04ae:78               push1 
  04af:67 20             pTos west 
  04b1:81 02              lag gCurRoom 
  04b3:4a 06             send 6 


        code_04b5
  04b5:83 0d              lal local13 
  04b7:18                 not 
  04b8:30 00a8            bnt code_0563 
  04bb:38 00db          pushi db // $db onControl
  04be:76               push0 
  04bf:81 00              lag gEgo 
  04c1:4a 04             send 4 

  04c3:36                push 
  04c4:35 20              ldi 20 
  04c6:12                 and 
  04c7:31 46              bnt code_050f 
  04c9:35 01              ldi 1 
  04cb:a3 0d              sal local13 
  04cd:35 00              ldi 0 
  04cf:65 2a             aTop vertAngle 
  04d1:39 12            pushi 12 // $12 illegalBits
  04d3:78               push1 
  04d4:76               push0 
  04d5:81 00              lag gEgo 
  04d7:4a 06             send 6 

  04d9:76               push0 
  04da:45 03 00         callb procedure_0003 0 // HandsOff 

  04dd:39 3a            pushi 3a // $3a heading
  04df:76               push0 
  04e0:81 00              lag gEgo 
  04e2:4a 04             send 4 

  04e4:36                push 
  04e5:34 00b4            ldi b4 
  04e8:22                 lt? 
  04e9:31 13              bnt code_04fe 
  04eb:38 00c8          pushi c8 // $c8 setLoop
  04ee:78               push1 
  04ef:76               push0 
  04f0:38 00d3          pushi d3 // $d3 setMotion
  04f3:7a               push2 
  04f4:74 0edd          lofss $13d4 // leftUpPath
  04f7:7c            pushSelf 
  04f8:81 00              lag gEgo 
  04fa:4a 0e             send e 

  04fc:33 11              jmp code_050f 

        code_04fe
  04fe:38 00c8          pushi c8 // $c8 setLoop
  0501:78               push1 
  0502:78               push1 
  0503:38 00d3          pushi d3 // $d3 setMotion
  0506:7a               push2 
  0507:74 0f3e          lofss $1448 // leftDwnPath
  050a:7c            pushSelf 
  050b:81 00              lag gEgo 
  050d:4a 0e             send e 


        code_050f
  050f:38 00db          pushi db // $db onControl
  0512:76               push0 
  0513:81 00              lag gEgo 
  0515:4a 04             send 4 

  0517:36                push 
  0518:35 40              ldi 40 
  051a:12                 and 
  051b:31 46              bnt code_0563 
  051d:35 01              ldi 1 
  051f:a3 0d              sal local13 
  0521:35 00              ldi 0 
  0523:65 2a             aTop vertAngle 
  0525:39 12            pushi 12 // $12 illegalBits
  0527:78               push1 
  0528:76               push0 
  0529:81 00              lag gEgo 
  052b:4a 06             send 6 

  052d:76               push0 
  052e:45 03 00         callb procedure_0003 0 // HandsOff 

  0531:39 3a            pushi 3a // $3a heading
  0533:76               push0 
  0534:81 00              lag gEgo 
  0536:4a 04             send 4 

  0538:36                push 
  0539:34 00b4            ldi b4 
  053c:22                 lt? 
  053d:31 13              bnt code_0552 
  053f:38 00c8          pushi c8 // $c8 setLoop
  0542:78               push1 
  0543:76               push0 
  0544:38 00d3          pushi d3 // $d3 setMotion
  0547:7a               push2 
  0548:74 0ec3          lofss $140e // rightDwnPath
  054b:7c            pushSelf 
  054c:81 00              lag gEgo 
  054e:4a 0e             send e 

  0550:33 11              jmp code_0563 

        code_0552
  0552:38 00c8          pushi c8 // $c8 setLoop
  0555:78               push1 
  0556:78               push1 
  0557:38 00d3          pushi d3 // $d3 setMotion
  055a:7a               push2 
  055b:74 0e3c          lofss $139a // rightUpPath
  055e:7c            pushSelf 
  055f:81 00              lag gEgo 
  0561:4a 0e             send e 


        code_0563
  0563:39 3c            pushi 3c // $3c doit
  0565:76               push0 
  0566:57 37 04         super Rm 4 

  0569:48                 ret 
    )

    (method (dispose) // method_056a
  056a:78               push1 
  056b:38 03d7          pushi 3d7 // $3d7 sel_983
  056e:43 03 02         callk DisposeScript 2 

  0571:39 58            pushi 58 // $58 dispose
  0573:76               push0 
  0574:57 37 04         super Rm 4 

  0577:48                 ret 
    )

    (method (newRoom) // method_0578
  0578:39 42            pushi 42 // $42 setPri
  057a:78               push1 
  057b:39 ff            pushi ff // $ff checkAni
  057d:81 00              lag gEgo 
  057f:4a 06             send 6 

  0581:38 00f8          pushi f8 // $f8 newRoom
  0584:78               push1 
  0585:8f 01              lsp param1 
  0587:57 37 06         super Rm 6 

  058a:48                 ret 
    )

    (method (handleEvent) // method_058b
  058b:3f 01             link 1 // (var $1)
  058d:39 4c            pushi 4c // $4c claimed
  058f:76               push0 
  0590:87 01              lap param1 
  0592:4a 04             send 4 

  0594:31 03              bnt code_0599 
  0596:35 01              ldi 1 
  0598:48                 ret 

        code_0599
  0599:39 22            pushi 22 // $22 type
  059b:76               push0 
  059c:87 01              lap param1 
  059e:4a 04             send 4 

  05a0:36                push 
  05a1:34 0080            ldi 80 
  05a4:1a                 eq? 
  05a5:30 035c            bnt code_0904 
  05a8:81 6b              lag global107 
  05aa:18                 not 
  05ab:31 17              bnt code_05c4 
  05ad:78               push1 
  05ae:74 0dd9          lofss $138a // sentir
  05b1:43 25 02         callk Said 2 

  05b4:31 0e              bnt code_05c4 
  05b6:7a               push2 
  05b7:39 32            pushi 32 // $32 b-i2
  05b9:39 07            pushi 7 // $7 cel
  05bb:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05c1:32 0340            jmp code_0904 

        code_05c4
  05c4:78               push1 
  05c5:74 0db5          lofss $137d // look>
  05c8:43 25 02         callk Said 2 

  05cb:30 020e            bnt code_07dc 
  05ce:78               push1 
  05cf:74 0d1c          lofss $12ee // /room<dining
  05d2:43 25 02         callk Said 2 

  05d5:2f 09               bt code_05e0 
  05d7:78               push1 
  05d8:74 0d05          lofss $12e0 // /parlor
  05db:43 25 02         callk Said 2 

  05de:31 1f              bnt code_05ff 

        code_05e0
  05e0:67 20             pTos west 
  05e2:35 21              ldi 21 
  05e4:1a                 eq? 
  05e5:31 0d              bnt code_05f4 
  05e7:7a               push2 
  05e8:39 32            pushi 32 // $32 b-i2
  05ea:39 08            pushi 8 // $8 underBits
  05ec:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05f2:33 08              jmp code_05fc 

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


        code_05fc
  05fc:32 01da            jmp code_07d9 

        code_05ff
  05ff:78               push1 
  0600:74 0cf2          lofss $12f5 // /room<guest
  0603:43 25 02         callk Said 2 

  0606:2f 09               bt code_0611 
  0608:78               push1 
  0609:74 0cc4          lofss $12d0 // /bedroom
  060c:43 25 02         callk Said 2 

  060f:31 1f              bnt code_0630 

        code_0611
  0611:67 20             pTos west 
  0613:35 2b              ldi 2b 
  0615:1a                 eq? 
  0616:31 0d              bnt code_0625 
  0618:7a               push2 
  0619:39 32            pushi 32 // $32 b-i2
  061b:39 08            pushi 8 // $8 underBits
  061d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0623:33 08              jmp code_062d 

        code_0625
  0625:39 4c            pushi 4c // $4c claimed
  0627:78               push1 
  0628:76               push0 
  0629:87 01              lap param1 
  062b:4a 06             send 6 


        code_062d
  062d:32 01a9            jmp code_07d9 

        code_0630
  0630:78               push1 
  0631:74 0ccc          lofss $1300 // [<around,at][/room]
  0634:43 25 02         callk Said 2 

  0637:31 0e              bnt code_0647 
  0639:7a               push2 
  063a:39 32            pushi 32 // $32 b-i2
  063c:39 06            pushi 6 // $6 loop
  063e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0644:32 0192            jmp code_07d9 

        code_0647
  0647:78               push1 
  0648:74 0c91          lofss $12dc // /painting
  064b:43 25 02         callk Said 2 

  064e:31 0e              bnt code_065e 
  0650:7a               push2 
  0651:39 32            pushi 32 // $32 b-i2
  0653:39 09            pushi 9 // $9 nsTop
  0655:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  065b:32 017b            jmp code_07d9 

        code_065e
  065e:78               push1 
  065f:74 0c76          lofss $12d8 // /miroir
  0662:43 25 02         callk Said 2 

  0665:31 29              bnt code_0690 
  0667:38 0108          pushi 108 // $108 west
  066a:76               push0 
  066b:81 02              lag gCurRoom 
  066d:4a 04             send 4 

  066f:36                push 
  0670:35 21              ldi 21 
  0672:1a                 eq? 
  0673:31 0d              bnt code_0682 
  0675:7a               push2 
  0676:39 32            pushi 32 // $32 b-i2
  0678:39 0a            pushi a // $a nsLeft
  067a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0680:33 0b              jmp code_068d 

        code_0682
  0682:7a               push2 
  0683:39 32            pushi 32 // $32 b-i2
  0685:39 0b            pushi b // $b nsBottom
  0687:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_068d
  068d:32 0149            jmp code_07d9 

        code_0690
  0690:78               push1 
  0691:74 0c38          lofss $12cc // /armoire
  0694:43 25 02         callk Said 2 

  0697:31 29              bnt code_06c2 
  0699:38 0108          pushi 108 // $108 west
  069c:76               push0 
  069d:81 02              lag gCurRoom 
  069f:4a 04             send 4 

  06a1:36                push 
  06a2:35 2b              ldi 2b 
  06a4:1a                 eq? 
  06a5:31 0d              bnt code_06b4 
  06a7:7a               push2 
  06a8:39 32            pushi 32 // $32 b-i2
  06aa:39 0c            pushi c // $c nsRight
  06ac:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06b2:33 0b              jmp code_06bf 

        code_06b4
  06b4:7a               push2 
  06b5:39 32            pushi 32 // $32 b-i2
  06b7:39 0d            pushi d // $d lsTop
  06b9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06bf
  06bf:32 0117            jmp code_07d9 

        code_06c2
  06c2:78               push1 
  06c3:74 0c1e          lofss $12e4 // /parlor,room<dining
  06c6:43 25 02         callk Said 2 

  06c9:31 26              bnt code_06f1 
  06cb:38 0108          pushi 108 // $108 west
  06ce:76               push0 
  06cf:81 02              lag gCurRoom 
  06d1:4a 04             send 4 

  06d3:36                push 
  06d4:35 21              ldi 21 
  06d6:1a                 eq? 
  06d7:31 0d              bnt code_06e6 
  06d9:7a               push2 
  06da:39 32            pushi 32 // $32 b-i2
  06dc:39 0e            pushi e // $e lsLeft
  06de:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06e4:33 08              jmp code_06ee 

        code_06e6
  06e6:39 4c            pushi 4c // $4c claimed
  06e8:78               push1 
  06e9:76               push0 
  06ea:87 01              lap param1 
  06ec:4a 06             send 6 


        code_06ee
  06ee:32 00e8            jmp code_07d9 

        code_06f1
  06f1:78               push1 
  06f2:74 0bdf          lofss $12d4 // /dirt
  06f5:43 25 02         callk Said 2 

  06f8:2f 0a               bt code_0704 
  06fa:78               push1 
  06fb:74 0bfe          lofss $12fc // <bas
  06fe:43 25 02         callk Said 2 

  0701:30 0085            bnt code_0789 

        code_0704
  0704:88 00a5            lsg gAct 
  0707:35 06              ldi 6 
  0709:1a                 eq? 
  070a:31 1d              bnt code_0729 
  070c:38 0108          pushi 108 // $108 west
  070f:76               push0 
  0710:81 02              lag gCurRoom 
  0712:4a 04             send 4 

  0714:36                push 
  0715:35 2b              ldi 2b 
  0717:1a                 eq? 
  0718:31 0f              bnt code_0729 
  071a:35 01              ldi 1 
  071c:a3 24              sal local36 
  071e:7a               push2 
  071f:39 32            pushi 32 // $32 b-i2
  0721:39 0f            pushi f // $f lsBottom
  0723:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0729
  0729:38 00ee          pushi ee // $ee has
  072c:78               push1 
  072d:39 15            pushi 15 // $15 brBottom
  072f:81 00              lag gEgo 
  0731:4a 06             send 6 

  0733:18                 not 
  0734:31 19              bnt code_074f 
  0736:89 0b              lsg gCurRoomNum 
  0738:89 77              lsg gCaneLocation 
  073a:81 0c              lag gPrevRoomNum 
  073c:04                 sub 
  073d:1a                 eq? 
  073e:31 0f              bnt code_074f 
  0740:35 01              ldi 1 
  0742:a3 24              sal local36 
  0744:7a               push2 
  0745:39 32            pushi 32 // $32 b-i2
  0747:39 10            pushi 10 // $10 lsRight
  0749:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_074f
  074f:38 00ee          pushi ee // $ee has
  0752:78               push1 
  0753:39 08            pushi 8 // $8 underBits
  0755:81 00              lag gEgo 
  0757:4a 06             send 6 

  0759:18                 not 
  075a:31 1a              bnt code_0776 
  075c:89 0b              lsg gCurRoomNum 
  075e:88 00a8            lsg gCigarButtLocation 
  0761:81 0c              lag gPrevRoomNum 
  0763:04                 sub 
  0764:1a                 eq? 
  0765:31 0f              bnt code_0776 
  0767:35 01              ldi 1 
  0769:a3 24              sal local36 
  076b:7a               push2 
  076c:39 32            pushi 32 // $32 b-i2
  076e:39 11            pushi 11 // $11 signal
  0770:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0776
  0776:83 24              lal local36 
  0778:18                 not 
  0779:31 08              bnt code_0783 
  077b:39 4c            pushi 4c // $4c claimed
  077d:78               push1 
  077e:76               push0 
  077f:87 01              lap param1 
  0781:4a 06             send 6 


        code_0783
  0783:35 00              ldi 0 
  0785:a3 24              sal local36 
  0787:33 50              jmp code_07d9 

        code_0789
  0789:78               push1 
  078a:74 0b81          lofss $130e // [<through,dans]/eyehole,eye
  078d:43 25 02         callk Said 2 

  0790:31 47              bnt code_07d9 
  0792:38 00db          pushi db // $db onControl
  0795:78               push1 
  0796:78               push1 
  0797:81 00              lag gEgo 
  0799:4a 06             send 6 

  079b:36                push 
  079c:35 10              ldi 10 
  079e:12                 and 
  079f:31 34              bnt code_07d5 
  07a1:39 06            pushi 6 // $6 loop
  07a3:76               push0 
  07a4:81 00              lag gEgo 
  07a6:4a 04             send 4 

  07a8:36                push 
  07a9:35 02              ldi 2 
  07ab:1a                 eq? 
  07ac:2f 0d               bt code_07bb 
  07ae:39 06            pushi 6 // $6 loop
  07b0:76               push0 
  07b1:81 00              lag gEgo 
  07b3:4a 04             send 4 

  07b5:36                push 
  07b6:35 03              ldi 3 
  07b8:1a                 eq? 
  07b9:31 0d              bnt code_07c8 

        code_07bb
  07bb:39 7a            pushi 7a // $7a setScript
  07bd:78               push1 
  07be:74 0da5          lofss $1566 // LookAround
  07c1:72 0f02          lofsa $16c6 // eyes
  07c4:4a 06             send 6 

  07c6:33 0b              jmp code_07d3 

        code_07c8
  07c8:7a               push2 
  07c9:39 32            pushi 32 // $32 b-i2
  07cb:39 12            pushi 12 // $12 illegalBits
  07cd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_07d3
  07d3:33 04              jmp code_07d9 

        code_07d5
  07d5:76               push0 
  07d6:45 09 00         callb procedure_0009 0 // NotClose 


        code_07d9
  07d9:32 0128            jmp code_0904 

        code_07dc
  07dc:78               push1 
  07dd:74 0ba1          lofss $1381 // bouger,open/door
  07e0:43 25 02         callk Said 2 

  07e3:30 0092            bnt code_0878 
  07e6:38 00db          pushi db // $db onControl
  07e9:78               push1 
  07ea:78               push1 
  07eb:81 00              lag gEgo 
  07ed:4a 06             send 6 

  07ef:36                push 
  07f0:35 08              ldi 8 
  07f2:12                 and 
  07f3:31 39              bnt code_082e 
  07f5:38 0107          pushi 107 // $107 south
  07f8:76               push0 
  07f9:81 02              lag gCurRoom 
  07fb:4a 04             send 4 

  07fd:36                push 
  07fe:3c                 dup 
  07ff:35 26              ldi 26 
  0801:1a                 eq? 
  0802:31 0b              bnt code_080f 
  0804:88 00af            lsg global175 
  0807:35 08              ldi 8 
  0809:14                  or 
  080a:a0 00af            sag global175 
  080d:33 10              jmp code_081f 

        code_080f
  080f:3c                 dup 
  0810:35 30              ldi 30 
  0812:1a                 eq? 
  0813:31 0a              bnt code_081f 
  0815:88 00af            lsg global175 
  0818:34 0080            ldi 80 
  081b:14                  or 
  081c:a0 00af            sag global175 

        code_081f
  081f:3a                toss 
  0820:76               push0 
  0821:45 03 00         callb procedure_0003 0 // HandsOff 

  0824:39 7a            pushi 7a // $7a setScript
  0826:78               push1 
  0827:74 0cac          lofss $14d6 // Front
  082a:54 06             self 6 

  082c:33 47              jmp code_0875 

        code_082e
  082e:38 00db          pushi db // $db onControl
  0831:78               push1 
  0832:78               push1 
  0833:81 00              lag gEgo 
  0835:4a 06             send 6 

  0837:36                push 
  0838:35 04              ldi 4 
  083a:12                 and 
  083b:31 34              bnt code_0871 
  083d:38 0105          pushi 105 // $105 north
  0840:76               push0 
  0841:81 02              lag gCurRoom 
  0843:4a 04             send 4 

  0845:36                push 
  0846:3c                 dup 
  0847:35 22              ldi 22 
  0849:1a                 eq? 
  084a:31 0b              bnt code_0857 
  084c:88 00af            lsg global175 
  084f:35 02              ldi 2 
  0851:14                  or 
  0852:a0 00af            sag global175 
  0855:33 0f              jmp code_0866 

        code_0857
  0857:3c                 dup 
  0858:35 2c              ldi 2c 
  085a:1a                 eq? 
  085b:31 09              bnt code_0866 
  085d:88 00af            lsg global175 
  0860:35 20              ldi 20 
  0862:14                  or 
  0863:a0 00af            sag global175 

        code_0866
  0866:3a                toss 
  0867:39 7a            pushi 7a // $7a setScript
  0869:78               push1 
  086a:74 0c99          lofss $1506 // Back
  086d:54 06             self 6 

  086f:33 04              jmp code_0875 

        code_0871
  0871:76               push0 
  0872:45 09 00         callb procedure_0009 0 // NotClose 


        code_0875
  0875:32 008c            jmp code_0904 

        code_0878
  0878:78               push1 
  0879:74 0ac5          lofss $1341 // clore/door
  087c:43 25 02         callk Said 2 

  087f:31 0d              bnt code_088e 
  0881:7a               push2 
  0882:39 32            pushi 32 // $32 b-i2
  0884:39 13            pushi 13 // $13 brTop
  0886:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  088c:33 76              jmp code_0904 

        code_088e
  088e:78               push1 
  088f:74 0ac7          lofss $1359 // get/painting
  0892:43 25 02         callk Said 2 

  0895:31 0d              bnt code_08a4 
  0897:7a               push2 
  0898:39 32            pushi 32 // $32 b-i2
  089a:39 09            pushi 9 // $9 nsTop
  089c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08a2:33 60              jmp code_0904 

        code_08a4
  08a4:78               push1 
  08a5:74 0a87          lofss $132f // clore,attirer,appuyer,open,bouger/miroir
  08a8:43 25 02         callk Said 2 

  08ab:31 28              bnt code_08d5 
  08ad:38 0108          pushi 108 // $108 west
  08b0:76               push0 
  08b1:81 02              lag gCurRoom 
  08b3:4a 04             send 4 

  08b5:36                push 
  08b6:35 21              ldi 21 
  08b8:1a                 eq? 
  08b9:31 0d              bnt code_08c8 
  08bb:7a               push2 
  08bc:39 32            pushi 32 // $32 b-i2
  08be:39 14            pushi 14 // $14 brLeft
  08c0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08c6:33 0b              jmp code_08d3 

        code_08c8
  08c8:7a               push2 
  08c9:39 32            pushi 32 // $32 b-i2
  08cb:39 0b            pushi b // $b nsBottom
  08cd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_08d3
  08d3:33 2f              jmp code_0904 

        code_08d5
  08d5:78               push1 
  08d6:74 0a44          lofss $131d // clore,attirer,appuyer,open,bouger/armoire
  08d9:43 25 02         callk Said 2 

  08dc:31 26              bnt code_0904 
  08de:38 0108          pushi 108 // $108 west
  08e1:76               push0 
  08e2:81 02              lag gCurRoom 
  08e4:4a 04             send 4 

  08e6:36                push 
  08e7:35 2b              ldi 2b 
  08e9:1a                 eq? 
  08ea:31 0d              bnt code_08f9 
  08ec:7a               push2 
  08ed:39 32            pushi 32 // $32 b-i2
  08ef:39 15            pushi 15 // $15 brBottom
  08f1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08f7:33 0b              jmp code_0904 

        code_08f9
  08f9:7a               push2 
  08fa:39 32            pushi 32 // $32 b-i2
  08fc:39 0d            pushi d // $d lsTop
  08fe:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0904
  0904:48                 ret 
    )

    (method (cue) // method_0905
  0905:76               push0 
  0906:45 04 00         callb procedure_0004 0 // HandsOn 

  0909:39 12            pushi 12 // $12 illegalBits
  090b:78               push1 
  090c:38 8000          pushi 8000 // $8000 sel_32768
  090f:38 00c8          pushi c8 // $c8 setLoop
  0912:78               push1 
  0913:39 ff            pushi ff // $ff checkAni
  0915:81 00              lag gEgo 
  0917:4a 0c             send c 

  0919:35 00              ldi 0 
  091b:a3 0d              sal local13 
  091d:48                 ret 
    )

)

// 14d0
(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_091e
  091e:87 01              lap param1 
  0920:65 0a             aTop state 
  0922:36                push 
  0923:3c                 dup 
  0924:35 00              ldi 0 
  0926:1a                 eq? 
  0927:31 13              bnt code_093c 
  0929:35 00              ldi 0 
  092b:a3 22              sal local34 
  092d:39 12            pushi 12 // $12 illegalBits
  092f:78               push1 
  0930:76               push0 
  0931:81 00              lag gEgo 
  0933:4a 06             send 6 

  0935:35 02              ldi 2 
  0937:65 10             aTop cycles 
  0939:32 0171            jmp code_0aad 

        code_093c
  093c:3c                 dup 
  093d:35 01              ldi 1 
  093f:1a                 eq? 
  0940:31 15              bnt code_0957 
  0942:38 00d3          pushi d3 // $d3 setMotion
  0945:39 04            pushi 4 // $4 x
  0947:51 1d            class MoveTo 
  0949:36                push 
  094a:38 00d1          pushi d1 // $d1 viewer
  094d:39 73            pushi 73 // $73 seconds
  094f:7c            pushSelf 
  0950:81 00              lag gEgo 
  0952:4a 0c             send c 

  0954:32 0156            jmp code_0aad 

        code_0957
  0957:3c                 dup 
  0958:35 02              ldi 2 
  095a:1a                 eq? 
  095b:31 2f              bnt code_098c 
  095d:39 2b            pushi 2b // $2b number
  095f:78               push1 
  0960:39 4a            pushi 4a // $4a pragmaFail
  0962:39 06            pushi 6 // $6 loop
  0964:78               push1 
  0965:78               push1 
  0966:39 2a            pushi 2a // $2a play
  0968:76               push0 
  0969:72 0f2e          lofsa $189a // mySound
  096c:4a 10             send 10 

  096e:39 06            pushi 6 // $6 loop
  0970:78               push1 
  0971:7a               push2 
  0972:81 00              lag gEgo 
  0974:4a 06             send 6 

  0976:38 00d3          pushi d3 // $d3 setMotion
  0979:39 04            pushi 4 // $4 x
  097b:51 1d            class MoveTo 
  097d:36                push 
  097e:38 00bb          pushi bb // $bb targetY
  0981:39 77            pushi 77 // $77 caller
  0983:7c            pushSelf 
  0984:72 0c6f          lofsa $15f6 // fpanel
  0987:4a 0c             send c 

  0989:32 0121            jmp code_0aad 

        code_098c
  098c:3c                 dup 
  098d:35 03              ldi 3 
  098f:1a                 eq? 
  0990:30 00c9            bnt code_0a5c 
  0993:35 00              ldi 0 
  0995:a3 22              sal local34 
  0997:38 0107          pushi 107 // $107 south
  099a:76               push0 
  099b:81 02              lag gCurRoom 
  099d:4a 04             send 4 

  099f:36                push 
  09a0:3c                 dup 
  09a1:35 30              ldi 30 
  09a3:1a                 eq? 
  09a4:31 3c              bnt code_09e2 
  09a6:88 00a5            lsg gAct 
  09a9:3c                 dup 
  09aa:35 00              ldi 0 
  09ac:1a                 eq? 
  09ad:31 0e              bnt code_09bd 
  09af:88 00c7            lsg global199 
  09b2:35 00              ldi 0 
  09b4:1e                 gt? 
  09b5:31 04              bnt code_09bb 
  09b7:35 01              ldi 1 
  09b9:a3 22              sal local34 

        code_09bb
  09bb:33 22              jmp code_09df 

        code_09bd
  09bd:3c                 dup 
  09be:35 01              ldi 1 
  09c0:1a                 eq? 
  09c1:31 06              bnt code_09c9 
  09c3:35 01              ldi 1 
  09c5:a3 22              sal local34 
  09c7:33 16              jmp code_09df 

        code_09c9
  09c9:3c                 dup 
  09ca:35 05              ldi 5 
  09cc:1a                 eq? 
  09cd:31 06              bnt code_09d5 
  09cf:35 01              ldi 1 
  09d1:a3 22              sal local34 
  09d3:33 0a              jmp code_09df 

        code_09d5
  09d5:3c                 dup 
  09d6:35 02              ldi 2 
  09d8:1a                 eq? 
  09d9:31 04              bnt code_09df 
  09db:35 01              ldi 1 
  09dd:a3 22              sal local34 

        code_09df
  09df:3a                toss 
  09e0:33 48              jmp code_0a2a 

        code_09e2
  09e2:3c                 dup 
  09e3:35 26              ldi 26 
  09e5:1a                 eq? 
  09e6:31 42              bnt code_0a2a 
  09e8:88 00a5            lsg gAct 
  09eb:3c                 dup 
  09ec:35 00              ldi 0 
  09ee:1a                 eq? 
  09ef:31 06              bnt code_09f7 
  09f1:35 01              ldi 1 
  09f3:a3 22              sal local34 
  09f5:33 32              jmp code_0a29 

        code_09f7
  09f7:3c                 dup 
  09f8:35 01              ldi 1 
  09fa:1a                 eq? 
  09fb:31 06              bnt code_0a03 
  09fd:35 01              ldi 1 
  09ff:a3 22              sal local34 
  0a01:33 26              jmp code_0a29 

        code_0a03
  0a03:3c                 dup 
  0a04:35 04              ldi 4 
  0a06:1a                 eq? 
  0a07:31 06              bnt code_0a0f 
  0a09:35 01              ldi 1 
  0a0b:a3 22              sal local34 
  0a0d:33 1a              jmp code_0a29 

        code_0a0f
  0a0f:3c                 dup 
  0a10:35 03              ldi 3 
  0a12:1a                 eq? 
  0a13:31 14              bnt code_0a29 
  0a15:88 00bb            lsg gMinute 
  0a18:35 03              ldi 3 
  0a1a:22                 lt? 
  0a1b:31 0c              bnt code_0a29 
  0a1d:88 00c0            lsg gFifiState 
  0a20:35 02              ldi 2 
  0a22:22                 lt? 
  0a23:31 04              bnt code_0a29 
  0a25:35 01              ldi 1 
  0a27:a3 22              sal local34 

        code_0a29
  0a29:3a                toss 

        code_0a2a
  0a2a:3a                toss 
  0a2b:83 22              lal local34 
  0a2d:18                 not 
  0a2e:31 13              bnt code_0a43 
  0a30:38 00f8          pushi f8 // $f8 newRoom
  0a33:78               push1 
  0a34:38 0107          pushi 107 // $107 south
  0a37:76               push0 
  0a38:81 02              lag gCurRoom 
  0a3a:4a 04             send 4 

  0a3c:36                push 
  0a3d:81 02              lag gCurRoom 
  0a3f:4a 06             send 6 

  0a41:33 17              jmp code_0a5a 

        code_0a43
  0a43:39 05            pushi 5 // $5 view
  0a45:39 32            pushi 32 // $32 b-i2
  0a47:39 16            pushi 16 // $16 brRight
  0a49:39 43            pushi 43 // $43 at
  0a4b:38 0082          pushi 82 // $82 owner
  0a4e:39 0a            pushi a // $a nsLeft
  0a50:46 00ff 0000 0a  calle ff procedure_0000 a // Print 

  0a56:35 01              ldi 1 
  0a58:65 10             aTop cycles 

        code_0a5a
  0a5a:33 51              jmp code_0aad 

        code_0a5c
  0a5c:3c                 dup 
  0a5d:35 04              ldi 4 
  0a5f:1a                 eq? 
  0a60:31 26              bnt code_0a88 
  0a62:38 00d3          pushi d3 // $d3 setMotion
  0a65:39 04            pushi 4 // $4 x
  0a67:51 1d            class MoveTo 
  0a69:36                push 
  0a6a:38 00c2          pushi c2 // $c2 waitApogeeX
  0a6d:39 77            pushi 77 // $77 caller
  0a6f:7c            pushSelf 
  0a70:72 0b83          lofsa $15f6 // fpanel
  0a73:4a 0c             send c 

  0a75:39 2b            pushi 2b // $2b number
  0a77:78               push1 
  0a78:39 4b            pushi 4b // $4b said
  0a7a:39 06            pushi 6 // $6 loop
  0a7c:78               push1 
  0a7d:78               push1 
  0a7e:39 2a            pushi 2a // $2a play
  0a80:76               push0 
  0a81:72 0e16          lofsa $189a // mySound
  0a84:4a 10             send 10 

  0a86:33 25              jmp code_0aad 

        code_0a88
  0a88:3c                 dup 
  0a89:35 05              ldi 5 
  0a8b:1a                 eq? 
  0a8c:31 1f              bnt code_0aad 
  0a8e:76               push0 
  0a8f:45 04 00         callb procedure_0004 0 // HandsOn 

  0a92:39 12            pushi 12 // $12 illegalBits
  0a94:78               push1 
  0a95:38 8000          pushi 8000 // $8000 sel_32768
  0a98:81 00              lag gEgo 
  0a9a:4a 06             send 6 

  0a9c:38 00c6          pushi c6 // $c6 stopUpd
  0a9f:76               push0 
  0aa0:72 0b53          lofsa $15f6 // fpanel
  0aa3:4a 04             send 4 

  0aa5:39 7a            pushi 7a // $7a setScript
  0aa7:78               push1 
  0aa8:76               push0 
  0aa9:63 08             pToa client 
  0aab:4a 06             send 6 


        code_0aad
  0aad:3a                toss 
  0aae:48                 ret 
    )

)

// 1500
(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_0aaf
  0aaf:87 01              lap param1 
  0ab1:65 0a             aTop state 
  0ab3:36                push 
  0ab4:3c                 dup 
  0ab5:35 00              ldi 0 
  0ab7:1a                 eq? 
  0ab8:31 2e              bnt code_0ae8 
  0aba:76               push0 
  0abb:45 03 00         callb procedure_0003 0 // HandsOff 

  0abe:35 00              ldi 0 
  0ac0:a3 22              sal local34 
  0ac2:38 00d3          pushi d3 // $d3 setMotion
  0ac5:39 04            pushi 4 // $4 x
  0ac7:51 1d            class MoveTo 
  0ac9:36                push 
  0aca:39 59            pushi 59 // $59 showStr
  0acc:39 67            pushi 67 // $67 first
  0ace:7c            pushSelf 
  0acf:72 0b8c          lofsa $165e // bpanel
  0ad2:4a 0c             send c 

  0ad4:39 2b            pushi 2b // $2b number
  0ad6:78               push1 
  0ad7:39 4a            pushi 4a // $4a pragmaFail
  0ad9:39 06            pushi 6 // $6 loop
  0adb:78               push1 
  0adc:78               push1 
  0add:39 2a            pushi 2a // $2a play
  0adf:76               push0 
  0ae0:72 0db7          lofsa $189a // mySound
  0ae3:4a 10             send 10 

  0ae5:32 01d6            jmp code_0cbe 

        code_0ae8
  0ae8:3c                 dup 
  0ae9:35 01              ldi 1 
  0aeb:1a                 eq? 
  0aec:30 00bd            bnt code_0bac 
  0aef:35 00              ldi 0 
  0af1:a3 22              sal local34 
  0af3:38 0105          pushi 105 // $105 north
  0af6:76               push0 
  0af7:81 02              lag gCurRoom 
  0af9:4a 04             send 4 

  0afb:36                push 
  0afc:3c                 dup 
  0afd:35 22              ldi 22 
  0aff:1a                 eq? 
  0b00:31 2e              bnt code_0b30 
  0b02:88 00a5            lsg gAct 
  0b05:35 04              ldi 4 
  0b07:1a                 eq? 
  0b08:2f 20               bt code_0b2a 
  0b0a:88 00a5            lsg gAct 
  0b0d:35 01              ldi 1 
  0b0f:1a                 eq? 
  0b10:31 08              bnt code_0b1a 
  0b12:88 009a            lsg gClarenceWilburState 
  0b15:35 03              ldi 3 
  0b17:1a                 eq? 
  0b18:2f 10               bt code_0b2a 

        code_0b1a
  0b1a:88 00bb            lsg gMinute 
  0b1d:35 03              ldi 3 
  0b1f:1a                 eq? 
  0b20:31 0c              bnt code_0b2e 
  0b22:88 0172            lsg global370 
  0b25:35 01              ldi 1 
  0b27:1e                 gt? 
  0b28:31 04              bnt code_0b2e 

        code_0b2a
  0b2a:35 01              ldi 1 
  0b2c:a3 22              sal local34 

        code_0b2e
  0b2e:33 55              jmp code_0b85 

        code_0b30
  0b30:3c                 dup 
  0b31:35 2c              ldi 2c 
  0b33:1a                 eq? 
  0b34:31 4f              bnt code_0b85 
  0b36:88 00a5            lsg gAct 
  0b39:35 05              ldi 5 
  0b3b:1a                 eq? 
  0b3c:2f 43               bt code_0b81 
  0b3e:88 00a5            lsg gAct 
  0b41:35 00              ldi 0 
  0b43:1a                 eq? 
  0b44:31 14              bnt code_0b5a 
  0b46:88 0174            lsg global372 
  0b49:35 14              ldi 14 
  0b4b:22                 lt? 
  0b4c:2f 33               bt code_0b81 
  0b4e:88 00cb            lsg global203 
  0b51:35 02              ldi 2 
  0b53:1a                 eq? 
  0b54:2f 2b               bt code_0b81 
  0b56:81 7d              lag global125 
  0b58:2f 27               bt code_0b81 

        code_0b5a
  0b5a:88 00a5            lsg gAct 
  0b5d:35 03              ldi 3 
  0b5f:1a                 eq? 
  0b60:31 07              bnt code_0b69 
  0b62:89 76              lsg gMustDos 
  0b64:35 02              ldi 2 
  0b66:12                 and 
  0b67:2f 18               bt code_0b81 

        code_0b69
  0b69:88 00a5            lsg gAct 
  0b6c:35 06              ldi 6 
  0b6e:1a                 eq? 
  0b6f:31 14              bnt code_0b85 
  0b71:89 76              lsg gMustDos 
  0b73:35 02              ldi 2 
  0b75:12                 and 
  0b76:31 0d              bnt code_0b85 
  0b78:78               push1 
  0b79:39 24            pushi 24 // $24 cursor
  0b7b:45 07 02         callb procedure_0007 2 // IsFlag 

  0b7e:18                 not 
  0b7f:31 04              bnt code_0b85 

        code_0b81
  0b81:35 01              ldi 1 
  0b83:a3 22              sal local34 

        code_0b85
  0b85:3a                toss 
  0b86:83 22              lal local34 
  0b88:31 17              bnt code_0ba1 
  0b8a:39 07            pushi 7 // $7 cel
  0b8c:39 32            pushi 32 // $32 b-i2
  0b8e:39 16            pushi 16 // $16 brRight
  0b90:39 43            pushi 43 // $43 at
  0b92:39 0a            pushi a // $a nsLeft
  0b94:39 0a            pushi a // $a nsLeft
  0b96:39 1e            pushi 1e // $1e mode
  0b98:78               push1 
  0b99:46 00ff 0000 0e  calle ff procedure_0000 e // Print 

  0b9f:33 04              jmp code_0ba5 

        code_0ba1
  0ba1:35 03              ldi 3 
  0ba3:65 0a             aTop state 

        code_0ba5
  0ba5:35 01              ldi 1 
  0ba7:65 10             aTop cycles 
  0ba9:32 0112            jmp code_0cbe 

        code_0bac
  0bac:3c                 dup 
  0bad:35 02              ldi 2 
  0baf:1a                 eq? 
  0bb0:31 26              bnt code_0bd8 
  0bb2:38 00d3          pushi d3 // $d3 setMotion
  0bb5:39 04            pushi 4 // $4 x
  0bb7:51 1d            class MoveTo 
  0bb9:36                push 
  0bba:39 44            pushi 44 // $44 next
  0bbc:39 67            pushi 67 // $67 first
  0bbe:7c            pushSelf 
  0bbf:72 0a9c          lofsa $165e // bpanel
  0bc2:4a 0c             send c 

  0bc4:39 2b            pushi 2b // $2b number
  0bc6:78               push1 
  0bc7:39 4b            pushi 4b // $4b said
  0bc9:39 06            pushi 6 // $6 loop
  0bcb:78               push1 
  0bcc:78               push1 
  0bcd:39 2a            pushi 2a // $2a play
  0bcf:76               push0 
  0bd0:72 0cc7          lofsa $189a // mySound
  0bd3:4a 10             send 10 

  0bd5:32 00e6            jmp code_0cbe 

        code_0bd8
  0bd8:3c                 dup 
  0bd9:35 03              ldi 3 
  0bdb:1a                 eq? 
  0bdc:31 28              bnt code_0c06 
  0bde:38 00c6          pushi c6 // $c6 stopUpd
  0be1:76               push0 
  0be2:72 0a79          lofsa $165e // bpanel
  0be5:4a 04             send 4 

  0be7:76               push0 
  0be8:45 04 00         callb procedure_0004 0 // HandsOn 

  0beb:38 00c8          pushi c8 // $c8 setLoop
  0bee:78               push1 
  0bef:39 ff            pushi ff // $ff checkAni
  0bf1:39 12            pushi 12 // $12 illegalBits
  0bf3:78               push1 
  0bf4:38 8000          pushi 8000 // $8000 sel_32768
  0bf7:81 00              lag gEgo 
  0bf9:4a 0c             send c 

  0bfb:39 7a            pushi 7a // $7a setScript
  0bfd:78               push1 
  0bfe:76               push0 
  0bff:63 08             pToa client 
  0c01:4a 06             send 6 

  0c03:32 00b8            jmp code_0cbe 

        code_0c06
  0c06:3c                 dup 
  0c07:35 04              ldi 4 
  0c09:1a                 eq? 
  0c0a:31 1e              bnt code_0c2a 
  0c0c:39 12            pushi 12 // $12 illegalBits
  0c0e:78               push1 
  0c0f:76               push0 
  0c10:38 00c8          pushi c8 // $c8 setLoop
  0c13:78               push1 
  0c14:39 03            pushi 3 // $3 y
  0c16:38 00d3          pushi d3 // $d3 setMotion
  0c19:39 04            pushi 4 // $4 x
  0c1b:51 1d            class MoveTo 
  0c1d:36                push 
  0c1e:39 40            pushi 40 // $40 modifiers
  0c20:39 69            pushi 69 // $69 last
  0c22:7c            pushSelf 
  0c23:81 00              lag gEgo 
  0c25:4a 18             send 18 

  0c27:32 0094            jmp code_0cbe 

        code_0c2a
  0c2a:3c                 dup 
  0c2b:35 05              ldi 5 
  0c2d:1a                 eq? 
  0c2e:31 14              bnt code_0c44 
  0c30:38 00d3          pushi d3 // $d3 setMotion
  0c33:39 04            pushi 4 // $4 x
  0c35:51 1d            class MoveTo 
  0c37:36                push 
  0c38:39 62            pushi 62 // $62 eachElementDo
  0c3a:39 67            pushi 67 // $67 first
  0c3c:7c            pushSelf 
  0c3d:72 0a1e          lofsa $165e // bpanel
  0c40:4a 0c             send c 

  0c42:33 7a              jmp code_0cbe 

        code_0c44
  0c44:3c                 dup 
  0c45:35 06              ldi 6 
  0c47:1a                 eq? 
  0c48:31 22              bnt code_0c6c 
  0c4a:38 00c8          pushi c8 // $c8 setLoop
  0c4d:78               push1 
  0c4e:39 03            pushi 3 // $3 y
  0c50:39 42            pushi 42 // $42 setPri
  0c52:78               push1 
  0c53:39 03            pushi 3 // $3 y
  0c55:39 12            pushi 12 // $12 illegalBits
  0c57:78               push1 
  0c58:76               push0 
  0c59:38 00d3          pushi d3 // $d3 setMotion
  0c5c:39 04            pushi 4 // $4 x
  0c5e:51 1d            class MoveTo 
  0c60:36                push 
  0c61:39 44            pushi 44 // $44 next
  0c63:39 64            pushi 64 // $64 allTrue
  0c65:7c            pushSelf 
  0c66:81 00              lag gEgo 
  0c68:4a 1e             send 1e 

  0c6a:33 52              jmp code_0cbe 

        code_0c6c
  0c6c:3c                 dup 
  0c6d:35 07              ldi 7 
  0c6f:1a                 eq? 
  0c70:31 25              bnt code_0c97 
  0c72:38 00d3          pushi d3 // $d3 setMotion
  0c75:39 04            pushi 4 // $4 x
  0c77:51 1d            class MoveTo 
  0c79:36                push 
  0c7a:39 44            pushi 44 // $44 next
  0c7c:39 67            pushi 67 // $67 first
  0c7e:7c            pushSelf 
  0c7f:72 09dc          lofsa $165e // bpanel
  0c82:4a 0c             send c 

  0c84:39 2b            pushi 2b // $2b number
  0c86:78               push1 
  0c87:39 4b            pushi 4b // $4b said
  0c89:39 06            pushi 6 // $6 loop
  0c8b:78               push1 
  0c8c:78               push1 
  0c8d:39 2a            pushi 2a // $2a play
  0c8f:76               push0 
  0c90:72 0c07          lofsa $189a // mySound
  0c93:4a 10             send 10 

  0c95:33 27              jmp code_0cbe 

        code_0c97
  0c97:3c                 dup 
  0c98:35 08              ldi 8 
  0c9a:1a                 eq? 
  0c9b:31 21              bnt code_0cbe 
  0c9d:38 00c8          pushi c8 // $c8 setLoop
  0ca0:78               push1 
  0ca1:39 ff            pushi ff // $ff checkAni
  0ca3:39 12            pushi 12 // $12 illegalBits
  0ca5:78               push1 
  0ca6:38 8000          pushi 8000 // $8000 sel_32768
  0ca9:81 00              lag gEgo 
  0cab:4a 0c             send c 

  0cad:38 00f8          pushi f8 // $f8 newRoom
  0cb0:78               push1 
  0cb1:38 0105          pushi 105 // $105 north
  0cb4:76               push0 
  0cb5:81 02              lag gCurRoom 
  0cb7:4a 04             send 4 

  0cb9:36                push 
  0cba:81 02              lag gCurRoom 
  0cbc:4a 06             send 6 


        code_0cbe
  0cbe:3a                toss 
  0cbf:48                 ret 
    )

)

// 1530
(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_0cc0
  0cc0:87 01              lap param1 
  0cc2:65 0a             aTop state 
  0cc4:36                push 
  0cc5:3c                 dup 
  0cc6:35 00              ldi 0 
  0cc8:1a                 eq? 
  0cc9:31 29              bnt code_0cf4 
  0ccb:76               push0 
  0ccc:45 03 00         callb procedure_0003 0 // HandsOff 

  0ccf:38 00d3          pushi d3 // $d3 setMotion
  0cd2:39 04            pushi 4 // $4 x
  0cd4:51 1d            class MoveTo 
  0cd6:36                push 
  0cd7:39 62            pushi 62 // $62 eachElementDo
  0cd9:39 67            pushi 67 // $67 first
  0cdb:7c            pushSelf 
  0cdc:72 097f          lofsa $165e // bpanel
  0cdf:4a 0c             send c 

  0ce1:39 2b            pushi 2b // $2b number
  0ce3:78               push1 
  0ce4:39 4a            pushi 4a // $4a pragmaFail
  0ce6:39 06            pushi 6 // $6 loop
  0ce8:78               push1 
  0ce9:78               push1 
  0cea:39 2a            pushi 2a // $2a play
  0cec:76               push0 
  0ced:72 0baa          lofsa $189a // mySound
  0cf0:4a 10             send 10 

  0cf2:33 61              jmp code_0d55 

        code_0cf4
  0cf4:3c                 dup 
  0cf5:35 01              ldi 1 
  0cf7:1a                 eq? 
  0cf8:31 18              bnt code_0d12 
  0cfa:39 42            pushi 42 // $42 setPri
  0cfc:78               push1 
  0cfd:39 06            pushi 6 // $6 loop
  0cff:38 00d3          pushi d3 // $d3 setMotion
  0d02:39 04            pushi 4 // $4 x
  0d04:51 1d            class MoveTo 
  0d06:36                push 
  0d07:39 44            pushi 44 // $44 next
  0d09:39 69            pushi 69 // $69 last
  0d0b:7c            pushSelf 
  0d0c:81 00              lag gEgo 
  0d0e:4a 12             send 12 

  0d10:33 43              jmp code_0d55 

        code_0d12
  0d12:3c                 dup 
  0d13:35 02              ldi 2 
  0d15:1a                 eq? 
  0d16:31 25              bnt code_0d3d 
  0d18:38 00d3          pushi d3 // $d3 setMotion
  0d1b:39 04            pushi 4 // $4 x
  0d1d:51 1d            class MoveTo 
  0d1f:36                push 
  0d20:39 44            pushi 44 // $44 next
  0d22:39 67            pushi 67 // $67 first
  0d24:7c            pushSelf 
  0d25:72 0936          lofsa $165e // bpanel
  0d28:4a 0c             send c 

  0d2a:39 2b            pushi 2b // $2b number
  0d2c:78               push1 
  0d2d:39 4b            pushi 4b // $4b said
  0d2f:39 06            pushi 6 // $6 loop
  0d31:78               push1 
  0d32:78               push1 
  0d33:39 2a            pushi 2a // $2a play
  0d35:76               push0 
  0d36:72 0b61          lofsa $189a // mySound
  0d39:4a 10             send 10 

  0d3b:33 18              jmp code_0d55 

        code_0d3d
  0d3d:3c                 dup 
  0d3e:35 03              ldi 3 
  0d40:1a                 eq? 
  0d41:31 12              bnt code_0d55 
  0d43:76               push0 
  0d44:45 04 00         callb procedure_0004 0 // HandsOn 

  0d47:39 12            pushi 12 // $12 illegalBits
  0d49:78               push1 
  0d4a:38 8000          pushi 8000 // $8000 sel_32768
  0d4d:39 7a            pushi 7a // $7a setScript
  0d4f:78               push1 
  0d50:76               push0 
  0d51:81 00              lag gEgo 
  0d53:4a 0c             send c 


        code_0d55
  0d55:3a                toss 
  0d56:48                 ret 
    )

)

// 1560
(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_0d57
  0d57:3f 01             link 1 // (var $1)
  0d59:87 01              lap param1 
  0d5b:65 0a             aTop state 
  0d5d:36                push 
  0d5e:3c                 dup 
  0d5f:35 00              ldi 0 
  0d61:1a                 eq? 
  0d62:31 41              bnt code_0da5 
  0d64:76               push0 
  0d65:45 03 00         callb procedure_0003 0 // HandsOff 

  0d68:39 37            pushi 37 // $37 yStep
  0d6a:78               push1 
  0d6b:78               push1 
  0d6c:81 00              lag gEgo 
  0d6e:4a 06             send 6 

  0d70:39 06            pushi 6 // $6 loop
  0d72:76               push0 
  0d73:81 00              lag gEgo 
  0d75:4a 04             send 4 

  0d77:36                push 
  0d78:35 02              ldi 2 
  0d7a:1a                 eq? 
  0d7b:31 14              bnt code_0d91 
  0d7d:38 00d3          pushi d3 // $d3 setMotion
  0d80:39 04            pushi 4 // $4 x
  0d82:51 1d            class MoveTo 
  0d84:36                push 
  0d85:38 0083          pushi 83 // $83 playMaybe
  0d88:39 68            pushi 68 // $68 release
  0d8a:7c            pushSelf 
  0d8b:81 00              lag gEgo 
  0d8d:4a 0c             send c 

  0d8f:33 11              jmp code_0da2 

        code_0d91
  0d91:38 00d3          pushi d3 // $d3 setMotion
  0d94:39 04            pushi 4 // $4 x
  0d96:51 1d            class MoveTo 
  0d98:36                push 
  0d99:39 79            pushi 79 // $79 cue
  0d9b:39 61            pushi 61 // $61 add
  0d9d:7c            pushSelf 
  0d9e:81 00              lag gEgo 
  0da0:4a 0c             send c 


        code_0da2
  0da2:32 027f            jmp code_1024 

        code_0da5
  0da5:3c                 dup 
  0da6:35 01              ldi 1 
  0da8:1a                 eq? 
  0da9:31 4c              bnt code_0df7 
  0dab:39 37            pushi 37 // $37 yStep
  0dad:78               push1 
  0dae:7a               push2 
  0daf:39 07            pushi 7 // $7 cel
  0db1:78               push1 
  0db2:7a               push2 
  0db3:81 00              lag gEgo 
  0db5:4a 0c             send c 

  0db7:39 03            pushi 3 // $3 y
  0db9:76               push0 
  0dba:81 00              lag gEgo 
  0dbc:4a 04             send 4 

  0dbe:36                push 
  0dbf:35 64              ldi 64 
  0dc1:1e                 gt? 
  0dc2:31 23              bnt code_0de7 
  0dc4:39 06            pushi 6 // $6 loop
  0dc6:78               push1 
  0dc7:7a               push2 
  0dc8:81 00              lag gEgo 
  0dca:4a 06             send 6 

  0dcc:38 00a4          pushi a4 // $a4 cycleSpeed
  0dcf:78               push1 
  0dd0:39 03            pushi 3 // $3 y
  0dd2:39 7e            pushi 7e // $7e setCycle
  0dd4:78               push1 
  0dd5:51 16            class Fwd 
  0dd7:36                push 
  0dd8:38 00ca          pushi ca // $ca show
  0ddb:76               push0 
  0ddc:72 08e7          lofsa $16c6 // eyes
  0ddf:4a 10             send 10 

  0de1:35 03              ldi 3 
  0de3:65 12             aTop seconds 
  0de5:33 0d              jmp code_0df4 

        code_0de7
  0de7:39 06            pushi 6 // $6 loop
  0de9:78               push1 
  0dea:39 03            pushi 3 // $3 y
  0dec:81 00              lag gEgo 
  0dee:4a 06             send 6 

  0df0:35 03              ldi 3 
  0df2:65 10             aTop cycles 

        code_0df4
  0df4:32 022d            jmp code_1024 

        code_0df7
  0df7:3c                 dup 
  0df8:35 02              ldi 2 
  0dfa:1a                 eq? 
  0dfb:30 020b            bnt code_1009 
  0dfe:35 00              ldi 0 
  0e00:a5 00              sat temp0 
  0e02:88 00a5            lsg gAct 
  0e05:3c                 dup 
  0e06:35 00              ldi 0 
  0e08:1a                 eq? 
  0e09:31 76              bnt code_0e81 
  0e0b:39 06            pushi 6 // $6 loop
  0e0d:76               push0 
  0e0e:81 00              lag gEgo 
  0e10:4a 04             send 4 

  0e12:36                push 
  0e13:35 03              ldi 3 
  0e15:1a                 eq? 
  0e16:31 29              bnt code_0e41 
  0e18:38 0108          pushi 108 // $108 west
  0e1b:76               push0 
  0e1c:81 02              lag gCurRoom 
  0e1e:4a 04             send 4 

  0e20:36                push 
  0e21:35 21              ldi 21 
  0e23:1c                 ne? 
  0e24:31 19              bnt code_0e3f 
  0e26:88 0174            lsg global372 
  0e29:35 01              ldi 1 
  0e2b:1a                 eq? 
  0e2c:2f 0c               bt code_0e3a 
  0e2e:88 00cb            lsg global203 
  0e31:35 02              ldi 2 
  0e33:1a                 eq? 
  0e34:2f 04               bt code_0e3a 
  0e36:81 7d              lag global125 
  0e38:31 05              bnt code_0e3f 

        code_0e3a
  0e3a:34 014a            ldi 14a 
  0e3d:a5 00              sat temp0 

        code_0e3f
  0e3f:33 3d              jmp code_0e7e 

        code_0e41
  0e41:38 0108          pushi 108 // $108 west
  0e44:76               push0 
  0e45:81 02              lag gCurRoom 
  0e47:4a 04             send 4 

  0e49:36                push 
  0e4a:35 21              ldi 21 
  0e4c:1a                 eq? 
  0e4d:31 07              bnt code_0e56 
  0e4f:34 012d            ldi 12d 
  0e52:a5 00              sat temp0 
  0e54:33 28              jmp code_0e7e 

        code_0e56
  0e56:38 0108          pushi 108 // $108 west
  0e59:76               push0 
  0e5a:81 02              lag gCurRoom 
  0e5c:4a 04             send 4 

  0e5e:36                push 
  0e5f:35 2b              ldi 2b 
  0e61:1a                 eq? 
  0e62:31 1a              bnt code_0e7e 
  0e64:39 06            pushi 6 // $6 loop
  0e66:76               push0 
  0e67:81 00              lag gEgo 
  0e69:4a 04             send 4 

  0e6b:36                push 
  0e6c:35 02              ldi 2 
  0e6e:1a                 eq? 
  0e6f:31 0d              bnt code_0e7e 
  0e71:88 00c7            lsg global199 
  0e74:35 00              ldi 0 
  0e76:1e                 gt? 
  0e77:31 05              bnt code_0e7e 
  0e79:34 014c            ldi 14c 
  0e7c:a5 00              sat temp0 

        code_0e7e
  0e7e:32 0170            jmp code_0ff1 

        code_0e81
  0e81:3c                 dup 
  0e82:35 01              ldi 1 
  0e84:1a                 eq? 
  0e85:31 47              bnt code_0ece 
  0e87:39 06            pushi 6 // $6 loop
  0e89:76               push0 
  0e8a:81 00              lag gEgo 
  0e8c:4a 04             send 4 

  0e8e:36                push 
  0e8f:35 03              ldi 3 
  0e91:1a                 eq? 
  0e92:31 1d              bnt code_0eb1 
  0e94:38 0108          pushi 108 // $108 west
  0e97:76               push0 
  0e98:81 02              lag gCurRoom 
  0e9a:4a 04             send 4 

  0e9c:36                push 
  0e9d:35 21              ldi 21 
  0e9f:1a                 eq? 
  0ea0:31 0d              bnt code_0eaf 
  0ea2:88 009a            lsg gClarenceWilburState 
  0ea5:35 03              ldi 3 
  0ea7:1a                 eq? 
  0ea8:31 05              bnt code_0eaf 
  0eaa:34 0131            ldi 131 
  0ead:a5 00              sat temp0 

        code_0eaf
  0eaf:33 1a              jmp code_0ecb 

        code_0eb1
  0eb1:38 0108          pushi 108 // $108 west
  0eb4:76               push0 
  0eb5:81 02              lag gCurRoom 
  0eb7:4a 04             send 4 

  0eb9:36                push 
  0eba:35 21              ldi 21 
  0ebc:1a                 eq? 
  0ebd:31 07              bnt code_0ec6 
  0ebf:34 012e            ldi 12e 
  0ec2:a5 00              sat temp0 
  0ec4:33 05              jmp code_0ecb 

        code_0ec6
  0ec6:34 014c            ldi 14c 
  0ec9:a5 00              sat temp0 

        code_0ecb
  0ecb:32 0123            jmp code_0ff1 

        code_0ece
  0ece:3c                 dup 
  0ecf:35 02              ldi 2 
  0ed1:1a                 eq? 
  0ed2:31 23              bnt code_0ef7 
  0ed4:39 06            pushi 6 // $6 loop
  0ed6:76               push0 
  0ed7:81 00              lag gEgo 
  0ed9:4a 04             send 4 

  0edb:36                push 
  0edc:35 02              ldi 2 
  0ede:1a                 eq? 
  0edf:31 13              bnt code_0ef4 
  0ee1:38 0108          pushi 108 // $108 west
  0ee4:76               push0 
  0ee5:81 02              lag gCurRoom 
  0ee7:4a 04             send 4 

  0ee9:36                push 
  0eea:35 2b              ldi 2b 
  0eec:1a                 eq? 
  0eed:31 05              bnt code_0ef4 
  0eef:34 014d            ldi 14d 
  0ef2:a5 00              sat temp0 

        code_0ef4
  0ef4:32 00fa            jmp code_0ff1 

        code_0ef7
  0ef7:3c                 dup 
  0ef8:35 03              ldi 3 
  0efa:1a                 eq? 
  0efb:30 0081            bnt code_0f7f 
  0efe:39 06            pushi 6 // $6 loop
  0f00:76               push0 
  0f01:81 00              lag gEgo 
  0f03:4a 04             send 4 

  0f05:36                push 
  0f06:35 03              ldi 3 
  0f08:1a                 eq? 
  0f09:31 1b              bnt code_0f26 
  0f0b:38 0108          pushi 108 // $108 west
  0f0e:76               push0 
  0f0f:81 02              lag gCurRoom 
  0f11:4a 04             send 4 

  0f13:36                push 
  0f14:35 21              ldi 21 
  0f16:1a                 eq? 
  0f17:31 0d              bnt code_0f26 
  0f19:88 00bb            lsg gMinute 
  0f1c:35 03              ldi 3 
  0f1e:1a                 eq? 
  0f1f:31 05              bnt code_0f26 
  0f21:34 012f            ldi 12f 
  0f24:a5 00              sat temp0 

        code_0f26
  0f26:39 06            pushi 6 // $6 loop
  0f28:76               push0 
  0f29:81 00              lag gEgo 
  0f2b:4a 04             send 4 

  0f2d:36                push 
  0f2e:35 03              ldi 3 
  0f30:1a                 eq? 
  0f31:31 1a              bnt code_0f4d 
  0f33:38 0108          pushi 108 // $108 west
  0f36:76               push0 
  0f37:81 02              lag gCurRoom 
  0f39:4a 04             send 4 

  0f3b:36                push 
  0f3c:35 2b              ldi 2b 
  0f3e:1a                 eq? 
  0f3f:31 0c              bnt code_0f4d 
  0f41:89 76              lsg gMustDos 
  0f43:35 02              ldi 2 
  0f45:12                 and 
  0f46:31 05              bnt code_0f4d 
  0f48:34 014f            ldi 14f 
  0f4b:a5 00              sat temp0 

        code_0f4d
  0f4d:39 06            pushi 6 // $6 loop
  0f4f:76               push0 
  0f50:81 00              lag gEgo 
  0f52:4a 04             send 4 

  0f54:36                push 
  0f55:35 02              ldi 2 
  0f57:1a                 eq? 
  0f58:31 23              bnt code_0f7d 
  0f5a:38 0108          pushi 108 // $108 west
  0f5d:76               push0 
  0f5e:81 02              lag gCurRoom 
  0f60:4a 04             send 4 

  0f62:36                push 
  0f63:35 21              ldi 21 
  0f65:1a                 eq? 
  0f66:31 15              bnt code_0f7d 
  0f68:88 00bb            lsg gMinute 
  0f6b:35 03              ldi 3 
  0f6d:22                 lt? 
  0f6e:31 0d              bnt code_0f7d 
  0f70:88 00c0            lsg gFifiState 
  0f73:35 02              ldi 2 
  0f75:22                 lt? 
  0f76:31 05              bnt code_0f7d 
  0f78:34 0133            ldi 133 
  0f7b:a5 00              sat temp0 

        code_0f7d
  0f7d:33 72              jmp code_0ff1 

        code_0f7f
  0f7f:3c                 dup 
  0f80:35 04              ldi 4 
  0f82:1a                 eq? 
  0f83:31 33              bnt code_0fb8 
  0f85:38 0108          pushi 108 // $108 west
  0f88:76               push0 
  0f89:81 02              lag gCurRoom 
  0f8b:4a 04             send 4 

  0f8d:36                push 
  0f8e:35 21              ldi 21 
  0f90:1a                 eq? 
  0f91:31 23              bnt code_0fb6 
  0f93:39 06            pushi 6 // $6 loop
  0f95:76               push0 
  0f96:81 00              lag gEgo 
  0f98:4a 04             send 4 

  0f9a:36                push 
  0f9b:35 03              ldi 3 
  0f9d:1a                 eq? 
  0f9e:36                push 
  0f9f:3c                 dup 
  0fa0:35 01              ldi 1 
  0fa2:1a                 eq? 
  0fa3:31 05              bnt code_0faa 
  0fa5:34 0132            ldi 132 
  0fa8:33 09              jmp code_0fb3 

        code_0faa
  0faa:3c                 dup 
  0fab:35 00              ldi 0 
  0fad:1a                 eq? 
  0fae:31 03              bnt code_0fb3 
  0fb0:34 0130            ldi 130 

        code_0fb3
  0fb3:3a                toss 
  0fb4:a5 00              sat temp0 

        code_0fb6
  0fb6:33 39              jmp code_0ff1 

        code_0fb8
  0fb8:39 05            pushi 5 // $5 view
  0fba:80 00a5            lag gAct 
  0fbd:1a                 eq? 
  0fbe:31 31              bnt code_0ff1 
  0fc0:38 0108          pushi 108 // $108 west
  0fc3:76               push0 
  0fc4:81 02              lag gCurRoom 
  0fc6:4a 04             send 4 

  0fc8:36                push 
  0fc9:35 2b              ldi 2b 
  0fcb:1a                 eq? 
  0fcc:31 23              bnt code_0ff1 
  0fce:39 06            pushi 6 // $6 loop
  0fd0:76               push0 
  0fd1:81 00              lag gEgo 
  0fd3:4a 04             send 4 

  0fd5:36                push 
  0fd6:35 03              ldi 3 
  0fd8:1a                 eq? 
  0fd9:36                push 
  0fda:3c                 dup 
  0fdb:35 01              ldi 1 
  0fdd:1a                 eq? 
  0fde:31 05              bnt code_0fe5 
  0fe0:34 014f            ldi 14f 
  0fe3:33 09              jmp code_0fee 

        code_0fe5
  0fe5:3c                 dup 
  0fe6:35 00              ldi 0 
  0fe8:1a                 eq? 
  0fe9:31 03              bnt code_0fee 
  0feb:34 014e            ldi 14e 

        code_0fee
  0fee:3a                toss 
  0fef:a5 00              sat temp0 

        code_0ff1
  0ff1:3a                toss 
  0ff2:85 00              lat temp0 
  0ff4:31 0c              bnt code_1002 
  0ff6:38 00f8          pushi f8 // $f8 newRoom
  0ff9:78               push1 
  0ffa:8d 00              lst temp0 
  0ffc:81 02              lag gCurRoom 
  0ffe:4a 06             send 6 

  1000:33 05              jmp code_1007 

        code_1002
  1002:76               push0 
  1003:40 f013 00        call proc_001a 0 


        code_1007
  1007:33 1b              jmp code_1024 

        code_1009
  1009:3c                 dup 
  100a:35 03              ldi 3 
  100c:1a                 eq? 
  100d:31 15              bnt code_1024 
  100f:39 7a            pushi 7a // $7a setScript
  1011:78               push1 
  1012:76               push0 
  1013:63 08             pToa client 
  1015:4a 06             send 6 

  1017:76               push0 
  1018:45 0f 00         callb procedure_000f 0 // cls 

  101b:76               push0 
  101c:40 f06e 00        call proc_008e 0 

  1020:76               push0 
  1021:45 04 00         callb procedure_0004 0 // HandsOn 


        code_1024
  1024:3a                toss 
  1025:48                 ret 
    )

)

// 1590
(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_1026
  1026:87 01              lap param1 
  1028:65 0a             aTop state 
  102a:36                push 
  102b:3c                 dup 
  102c:35 00              ldi 0 
  102e:1a                 eq? 
  102f:31 13              bnt code_1044 
  1031:76               push0 
  1032:45 03 00         callb procedure_0003 0 // HandsOff 

  1035:7a               push2 
  1036:89 00              lsg gEgo 
  1038:67 08             pTos client 
  103a:45 02 04         callb procedure_0002 4 // LookAt 

  103d:35 02              ldi 2 
  103f:65 10             aTop cycles 
  1041:32 00a7            jmp code_10eb 

        code_1044
  1044:3c                 dup 
  1045:35 01              ldi 1 
  1047:1a                 eq? 
  1048:31 1c              bnt code_1066 
  104a:39 05            pushi 5 // $5 view
  104c:78               push1 
  104d:39 11            pushi 11 // $11 signal
  104f:39 07            pushi 7 // $7 cel
  1051:78               push1 
  1052:76               push0 
  1053:38 00d3          pushi d3 // $d3 setMotion
  1056:78               push1 
  1057:76               push0 
  1058:39 7e            pushi 7e // $7e setCycle
  105a:7a               push2 
  105b:51 1a            class End 
  105d:36                push 
  105e:7c            pushSelf 
  105f:81 00              lag gEgo 
  1061:4a 1a             send 1a 

  1063:32 0085            jmp code_10eb 

        code_1066
  1066:3c                 dup 
  1067:35 02              ldi 2 
  1069:1a                 eq? 
  106a:31 49              bnt code_10b5 
  106c:8b 25              lsl local37 
  106e:35 01              ldi 1 
  1070:1a                 eq? 
  1071:31 19              bnt code_108c 
  1073:76               push0 
  1074:45 16 00         callb procedure_0016 0 // Ok 

  1077:38 0089          pushi 89 // $89 hide
  107a:76               push0 
  107b:72 074c          lofsa $17ca // cane
  107e:4a 04             send 4 

  1080:38 00ec          pushi ec // $ec get
  1083:78               push1 
  1084:39 15            pushi 15 // $15 brBottom
  1086:81 00              lag gEgo 
  1088:4a 06             send 6 

  108a:33 1e              jmp code_10aa 

        code_108c
  108c:7a               push2 
  108d:39 32            pushi 32 // $32 b-i2
  108f:39 17            pushi 17 // $17 name
  1091:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1097:38 0089          pushi 89 // $89 hide
  109a:76               push0 
  109b:72 06da          lofsa $1778 // cigar
  109e:4a 04             send 4 

  10a0:38 00ec          pushi ec // $ec get
  10a3:78               push1 
  10a4:39 08            pushi 8 // $8 underBits
  10a6:81 00              lag gEgo 
  10a8:4a 06             send 6 


        code_10aa
  10aa:35 01              ldi 1 
  10ac:a0 00b6            sag global182 
  10af:35 02              ldi 2 
  10b1:65 10             aTop cycles 
  10b3:33 36              jmp code_10eb 

        code_10b5
  10b5:3c                 dup 
  10b6:35 03              ldi 3 
  10b8:1a                 eq? 
  10b9:31 0d              bnt code_10c8 
  10bb:39 7e            pushi 7e // $7e setCycle
  10bd:7a               push2 
  10be:51 1b            class Beg 
  10c0:36                push 
  10c1:7c            pushSelf 
  10c2:81 00              lag gEgo 
  10c4:4a 08             send 8 

  10c6:33 23              jmp code_10eb 

        code_10c8
  10c8:3c                 dup 
  10c9:35 04              ldi 4 
  10cb:1a                 eq? 
  10cc:31 1d              bnt code_10eb 
  10ce:76               push0 
  10cf:45 04 00         callb procedure_0004 0 // HandsOn 

  10d2:39 05            pushi 5 // $5 view
  10d4:78               push1 
  10d5:76               push0 
  10d6:39 7e            pushi 7e // $7e setCycle
  10d8:78               push1 
  10d9:51 17            class Walk 
  10db:36                push 
  10dc:81 00              lag gEgo 
  10de:4a 0c             send c 

  10e0:39 58            pushi 58 // $58 dispose
  10e2:76               push0 
  10e3:39 7a            pushi 7a // $7a setScript
  10e5:78               push1 
  10e6:76               push0 
  10e7:63 08             pToa client 
  10e9:4a 0a             send a 


        code_10eb
  10eb:3a                toss 
  10ec:48                 ret 
    )

)

// 15c0
(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_10ed
  10ed:87 01              lap param1 
  10ef:65 0a             aTop state 
  10f1:36                push 
  10f2:3c                 dup 
  10f3:35 00              ldi 0 
  10f5:1a                 eq? 
  10f6:31 2f              bnt code_1127 
  10f8:76               push0 
  10f9:45 03 00         callb procedure_0003 0 // HandsOff 

  10fc:39 05            pushi 5 // $5 view
  10fe:78               push1 
  10ff:39 2b            pushi 2b // $2b number
  1101:39 06            pushi 6 // $6 loop
  1103:78               push1 
  1104:78               push1 
  1105:39 07            pushi 7 // $7 cel
  1107:78               push1 
  1108:76               push0 
  1109:39 7e            pushi 7e // $7e setCycle
  110b:7a               push2 
  110c:51 1a            class End 
  110e:36                push 
  110f:7c            pushSelf 
  1110:81 00              lag gEgo 
  1112:4a 1a             send 1a 

  1114:39 2b            pushi 2b // $2b number
  1116:78               push1 
  1117:39 57            pushi 57 // $57 init
  1119:39 06            pushi 6 // $6 loop
  111b:78               push1 
  111c:78               push1 
  111d:39 2a            pushi 2a // $2a play
  111f:76               push0 
  1120:72 0777          lofsa $189a // mySound
  1123:4a 10             send 10 

  1125:33 29              jmp code_1150 

        code_1127
  1127:3c                 dup 
  1128:35 01              ldi 1 
  112a:1a                 eq? 
  112b:31 06              bnt code_1133 
  112d:35 05              ldi 5 
  112f:65 12             aTop seconds 
  1131:33 1d              jmp code_1150 

        code_1133
  1133:3c                 dup 
  1134:35 02              ldi 2 
  1136:1a                 eq? 
  1137:31 17              bnt code_1150 
  1139:35 2b              ldi 2b 
  113b:a0 0080            sag global128 
  113e:35 02              ldi 2 
  1140:a0 0081            sag global129 
  1143:35 00              ldi 0 
  1145:a0 0082            sag global130 
  1148:7a               push2 
  1149:39 32            pushi 32 // $32 b-i2
  114b:39 18            pushi 18 // $18 key
  114d:45 13 04         callb procedure_0013 4 // EgoDead 


        code_1150
  1150:3a                toss 
  1151:48                 ret 
    )

)

// 15f0
(instance fpanel of Act
    (properties
        y $77
        x $c2
        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_1152
  1152:39 03            pushi 3 // $3 y
  1154:7c            pushSelf 
  1155:8f 01              lsp param1 
  1157:39 03            pushi 3 // $3 y
  1159:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  115f:2f 09               bt code_116a 
  1161:78               push1 
  1162:74 0206          lofss $136b // look/door
  1165:43 25 02         callk Said 2 

  1168:31 13              bnt code_117d 

        code_116a
  116a:7a               push2 
  116b:39 32            pushi 32 // $32 b-i2
  116d:39 19            pushi 19 // $19 time
  116f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1175:39 4c            pushi 4c // $4c claimed
  1177:78               push1 
  1178:78               push1 
  1179:87 01              lap param1 
  117b:4a 06             send 6 


        code_117d
  117d:48                 ret 
    )

)

// 1658
(instance bpanel of Act
    (properties
        y $67
        x $44
        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_117e
  117e:39 03            pushi 3 // $3 y
  1180:7c            pushSelf 
  1181:8f 01              lsp param1 
  1183:39 03            pushi 3 // $3 y
  1185:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  118b:31 13              bnt code_11a0 
  118d:7a               push2 
  118e:39 32            pushi 32 // $32 b-i2
  1190:39 19            pushi 19 // $19 time
  1192:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1198:39 4c            pushi 4c // $4c claimed
  119a:78               push1 
  119b:78               push1 
  119c:87 01              lap param1 
  119e:4a 06             send 6 


        code_11a0
  11a0:48                 ret 
    )

)

// 16c0
(instance eyes of Prop
    (properties
        y $3a
        x $84
        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
    )
)

// 170e
(instance protrait of RPicView
    (properties
        y $54
        x $82
        z $0
        heading $0
        view $8b
        loop $0
        cel $0
        priority $9
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
)

// 1740
(instance bprotrait of RPicView
    (properties
        y $4c
        x $79
        z $0
        heading $0
        view $8b
        loop $1
        cel $0
        priority $4
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
)

// 1772
(instance cigar of Prop
    (properties
        y $74
        x $38
        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_11a1
  11a1:39 03            pushi 3 // $3 y
  11a3:7c            pushSelf 
  11a4:8f 01              lsp param1 
  11a6:39 03            pushi 3 // $3 y
  11a8:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  11ae:2f 09               bt code_11b9 
  11b0:78               push1 
  11b1:74 01ab          lofss $135f // look/butt
  11b4:43 25 02         callk Said 2 

  11b7:31 15              bnt code_11ce 

        code_11b9
  11b9:39 4c            pushi 4c // $4c claimed
  11bb:78               push1 
  11bc:78               push1 
  11bd:87 01              lap param1 
  11bf:4a 06             send 6 

  11c1:7a               push2 
  11c2:39 32            pushi 32 // $32 b-i2
  11c4:39 1a            pushi 1a // $1a text
  11c6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  11cc:33 2c              jmp code_11fa 

        code_11ce
  11ce:78               push1 
  11cf:74 017b          lofss $134d // get/butt
  11d2:43 25 02         callk Said 2 

  11d5:31 23              bnt code_11fa 
  11d7:38 00ae          pushi ae // $ae distanceTo
  11da:78               push1 
  11db:74 059a          lofss $1778 // cigar
  11de:81 00              lag gEgo 
  11e0:4a 06             send 6 

  11e2:36                push 
  11e3:35 0a              ldi a 
  11e5:22                 lt? 
  11e6:31 0e              bnt code_11f6 
  11e8:35 00              ldi 0 
  11ea:a3 25              sal local37 
  11ec:39 7a            pushi 7a // $7a setScript
  11ee:78               push1 
  11ef:74 03a4          lofss $1596 // pickUp
  11f2:54 06             self 6 

  11f4:33 04              jmp code_11fa 

        code_11f6
  11f6:76               push0 
  11f7:45 09 00         callb procedure_0009 0 // NotClose 


        code_11fa
  11fa:48                 ret 
    )

)

// 17c4
(instance cane of Prop
    (properties
        y $74
        x $2e
        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_11fb
  11fb:39 03            pushi 3 // $3 y
  11fd:7c            pushSelf 
  11fe:8f 01              lsp param1 
  1200:39 03            pushi 3 // $3 y
  1202:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  1208:2f 09               bt code_1213 
  120a:78               push1 
  120b:74 0157          lofss $1365 // look/cane
  120e:43 25 02         callk Said 2 

  1211:31 15              bnt code_1228 

        code_1213
  1213:39 4c            pushi 4c // $4c claimed
  1215:78               push1 
  1216:78               push1 
  1217:87 01              lap param1 
  1219:4a 06             send 6 

  121b:7a               push2 
  121c:39 32            pushi 32 // $32 b-i2
  121e:39 1b            pushi 1b // $1b elements
  1220:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1226:33 2c              jmp code_1254 

        code_1228
  1228:78               push1 
  1229:74 0127          lofss $1353 // get/cane
  122c:43 25 02         callk Said 2 

  122f:31 23              bnt code_1254 
  1231:38 00ae          pushi ae // $ae distanceTo
  1234:78               push1 
  1235:74 0592          lofss $17ca // cane
  1238:81 00              lag gEgo 
  123a:4a 06             send 6 

  123c:36                push 
  123d:35 19              ldi 19 
  123f:22                 lt? 
  1240:31 0e              bnt code_1250 
  1242:35 01              ldi 1 
  1244:a3 25              sal local37 
  1246:39 7a            pushi 7a // $7a setScript
  1248:78               push1 
  1249:74 034a          lofss $1596 // pickUp
  124c:54 06             self 6 

  124e:33 04              jmp code_1254 

        code_1250
  1250:76               push0 
  1251:45 09 00         callb procedure_0009 0 // NotClose 


        code_1254
  1254:48                 ret 
    )

)

// 1816
(instance boot of Prop
    (properties
        y $71
        x $23
        z $0
        heading $0
        yStep $2
        view $8b
        loop $8
        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_1255
  1255:78               push1 
  1256:74 00ee          lofss $1347 // get/bootprint
  1259:43 25 02         callk Said 2 

  125c:31 0d              bnt code_126b 
  125e:7a               push2 
  125f:39 32            pushi 32 // $32 b-i2
  1261:39 1c            pushi 1c // $1c color
  1263:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1269:33 3c              jmp code_12a7 

        code_126b
  126b:78               push1 
  126c:74 0102          lofss $1371 // look<actionner<monocle/bootprint
  126f:43 25 02         callk Said 2 

  1272:31 33              bnt code_12a7 
  1274:38 00ee          pushi ee // $ee has
  1277:78               push1 
  1278:78               push1 
  1279:81 00              lag gEgo 
  127b:4a 06             send 6 

  127d:31 24              bnt code_12a3 
  127f:38 00ae          pushi ae // $ae distanceTo
  1282:78               push1 
  1283:74 0596          lofss $181c // boot
  1286:81 00              lag gEgo 
  1288:4a 06             send 6 

  128a:36                push 
  128b:35 0a              ldi a 
  128d:22                 lt? 
  128e:31 0d              bnt code_129d 
  1290:7a               push2 
  1291:39 32            pushi 32 // $32 b-i2
  1293:39 1d            pushi 1d // $1d back
  1295:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  129b:33 04              jmp code_12a1 

        code_129d
  129d:76               push0 
  129e:45 09 00         callb procedure_0009 0 // NotClose 


        code_12a1
  12a1:33 04              jmp code_12a7 

        code_12a3
  12a3:76               push0 
  12a4:45 0d 00         callb procedure_000d 0 // DontHave 


        code_12a7
  12a7:48                 ret 
    )

)

// 1868
(instance Platform of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $5f
        nsLeft $6c
        nsBottom $73
        nsRight $92
    )
    (method (handleEvent) // method_12a8
  12a8:39 03            pushi 3 // $3 y
  12aa:7c            pushSelf 
  12ab:8f 01              lsp param1 
  12ad:39 03            pushi 3 // $3 y
  12af:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  12b5:31 0f              bnt code_12c6 
  12b7:39 4c            pushi 4c // $4c claimed
  12b9:78               push1 
  12ba:78               push1 
  12bb:87 01              lap param1 
  12bd:4a 06             send 6 

  12bf:78               push1 
  12c0:74 0705          lofss $19c8 // platform
  12c3:45 19 02         callb procedure_0019 2 // DoLook 


        code_12c6
  12c6:48                 ret 
  12c7:00                bnot 
    )

)

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

// 18be
(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 0c              lal local12 
  001e:18                 not 
  001f:31 6c              bnt code_008d 
  0021:35 01              ldi 1 
  0023:a3 0c              sal local12 
  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 187d          lofsa $18c4 // myMusic
  0047:4a 10             send 10 

  0049:83 23              lal local35 
  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 14db          lofsa $1566 // LookAround
  008b:4a 06             send 6 


        code_008d
  008d:48                 ret 
)

(procedure proc_008e
  008e:83 0c              lal local12 
  0090:31 2f              bnt code_00c1 
  0092:38 0084          pushi 84 // $84 stop
  0095:76               push0 
  0096:72 182b          lofsa $18c4 // myMusic
  0099:4a 04             send 4 

  009b:35 00              ldi 0 
  009d:a3 0c              sal local12 
  009f:7a               push2 
  00a0:39 27            pushi 27 // $27 who
  00a2:39 06            pushi 6 // $6 loop
  00a4:43 08 04         callk DrawPic 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 1607          lofsa $16c6 // eyes
  00bf:4a 04             send 4 


        code_00c1
  00c1:48                 ret 
)

