(script 264)

(string
    string_0ae6 "Lillian"
    string_0aee "doorFX"
    string_0af5 "goSee"
    string_0afb "headActions"
    string_0b07 "lHead"
    string_0b0d "lilActions"
    string_0b18 "lillGun"
    string_0b20 "lillian"
    string_0b28 "reading"
)

(said
    said_08c8 ecouter/lil
    said_08ce look/lil
    said_08d4 bonjour/lil
    said_08da raconter[/lil]/actress<about>
    said_08e9 raconter[/lil]/c<about
    said_08f7 raconter[/lil]/gertie<about
)

(synonym
    lil | lill | lillian | lilly = person | personne
    lil | lill | lillian | lilly = dame | femme | fille | girl | lady | maiden | woman
)

(local
    local0 = $0000
    local1 = $0000
    local2 = $0000
)

// 090c
(instance public lillGun of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_003a
  003a:39 57            pushi 57 // $57 init
  003c:76               push0 
  003d:57 36 04         super Rgn 4 

  0040:89 76              lsg gMustDos 
  0042:35 02              ldi 2 
  0044:12                 and 
  0045:18                 not 
  0046:31 26              bnt code_006e 
  0048:39 03            pushi 3 // $3 y
  004a:38 0087          pushi 87 // $87 clean
  004d:39 04            pushi 4 // $4 x
  004f:39 29            pushi 29 // $29 edit
  0051:45 15 06         callb procedure_0015 6 // LoadMany 

  0054:39 05            pushi 5 // $5 view
  0056:38 0084          pushi 84 // $84 stop
  0059:39 1d            pushi 1d // $1d back
  005b:39 5e            pushi 5e // $5e respondsTo
  005d:39 5f            pushi 5f // $5f yourself
  005f:39 60            pushi 60 // $60 size
  0061:45 15 0a         callb procedure_0015 a // LoadMany 

  0064:7a               push2 
  0065:38 0082          pushi 82 // $82 owner
  0068:38 0196          pushi 196 // $196 sel_406
  006b:43 00 04         callk Load 4 


        code_006e
  006e:39 03            pushi 3 // $3 y
  0070:38 0080          pushi 80 // $80 timeLeft
  0073:38 0282          pushi 282 // $282 sel_642
  0076:38 0388          pushi 388 // $388 sel_904
  0079:43 00 06         callk Load 6 

  007c:39 03            pushi 3 // $3 y
  007e:38 008f          pushi 8f // $8f moveTo
  0081:38 00f3          pushi f3 // $f3 close
  0084:38 0127          pushi 127 // $127 intermediate
  0087:45 15 06         callb procedure_0015 6 // LoadMany 

  008a:35 20              ldi 20 
  008c:a0 00d0            sag global208 
  008f:34 0127            ldi 127 
  0092:a0 017e            sag global382 
  0095:39 7e            pushi 7e // $7e setCycle
  0097:78               push1 
  0098:51 17            class Walk 
  009a:36                push 
  009b:39 57            pushi 57 // $57 init
  009d:76               push0 
  009e:72 0963          lofsa $0a04 // Lillian
  00a1:4a 0a             send a 

  00a3:39 7a            pushi 7a // $7a setScript
  00a5:78               push1 
  00a6:74 089b          lofss $0944 // reading
  00a9:54 06             self 6 

  00ab:48                 ret 
    )

    (method (doit) // method_00ac
  00ac:38 00da          pushi da // $da inRect
  00af:39 04            pushi 4 // $4 x
  00b1:38 00eb          pushi eb // $eb edgeHit
  00b4:39 66            pushi 66 // $66 isEmpty
  00b6:38 010b          pushi 10b // $10b setFeatures
  00b9:39 76            pushi 76 // $76 script
  00bb:72 0946          lofsa $0a04 // Lillian
  00be:4a 0c             send c 

  00c0:31 0c              bnt code_00ce 
  00c2:39 42            pushi 42 // $42 setPri
  00c4:78               push1 
  00c5:39 08            pushi 8 // $8 underBits
  00c7:72 093a          lofsa $0a04 // Lillian
  00ca:4a 06             send 6 

  00cc:33 0a              jmp code_00d8 

        code_00ce
  00ce:39 42            pushi 42 // $42 setPri
  00d0:78               push1 
  00d1:39 ff            pushi ff // $ff checkAni
  00d3:72 092e          lofsa $0a04 // Lillian
  00d6:4a 06             send 6 


        code_00d8
  00d8:39 3c            pushi 3c // $3c doit
  00da:76               push0 
  00db:57 36 04         super Rgn 4 

  00de:48                 ret 
    )

    (method (dispose) // method_00df
  00df:39 58            pushi 58 // $58 dispose
  00e1:76               push0 
  00e2:57 36 04         super Rgn 4 

  00e5:48                 ret 
    )

    (method (handleEvent) // method_00e6
  00e6:39 6f            pushi 6f // $6f handleEvent
  00e8:78               push1 
  00e9:8f 01              lsp param1 
  00eb:57 36 06         super Rgn 6 

  00ee:39 4c            pushi 4c // $4c claimed
  00f0:76               push0 
  00f1:87 01              lap param1 
  00f3:4a 04             send 4 

  00f5:31 03              bnt code_00fa 
  00f7:35 01              ldi 1 
  00f9:48                 ret 

        code_00fa
  00fa:78               push1 
  00fb:74 07d6          lofss $08d4 // bonjour/lil
  00fe:43 25 02         callk Said 2 

  0101:30 00a7            bnt code_01ab 
  0104:35 06              ldi 6 
  0106:a0 00d5            sag global213 
  0109:8b 01              lsl local1 
  010b:3c                 dup 
  010c:35 00              ldi 0 
  010e:1a                 eq? 
  010f:31 16              bnt code_0127 
  0111:39 03            pushi 3 // $3 y
  0113:78               push1 
  0114:38 0108          pushi 108 // $108 west
  0117:76               push0 
  0118:45 01 06         callb procedure_0001 6 // Say 

  011b:39 03            pushi 3 // $3 y
  011d:78               push1 
  011e:38 0108          pushi 108 // $108 west
  0121:78               push1 
  0122:45 01 06         callb procedure_0001 6 // Say 

  0125:33 7f              jmp code_01a6 

        code_0127
  0127:3c                 dup 
  0128:35 01              ldi 1 
  012a:1a                 eq? 
  012b:31 0c              bnt code_0139 
  012d:39 03            pushi 3 // $3 y
  012f:78               push1 
  0130:38 0108          pushi 108 // $108 west
  0133:7a               push2 
  0134:45 01 06         callb procedure_0001 6 // Say 

  0137:33 6d              jmp code_01a6 

        code_0139
  0139:3c                 dup 
  013a:35 02              ldi 2 
  013c:1a                 eq? 
  013d:31 23              bnt code_0162 
  013f:39 03            pushi 3 // $3 y
  0141:78               push1 
  0142:38 0108          pushi 108 // $108 west
  0145:39 03            pushi 3 // $3 y
  0147:45 01 06         callb procedure_0001 6 // Say 

  014a:39 03            pushi 3 // $3 y
  014c:78               push1 
  014d:38 0108          pushi 108 // $108 west
  0150:39 04            pushi 4 // $4 x
  0152:45 01 06         callb procedure_0001 6 // Say 

  0155:39 03            pushi 3 // $3 y
  0157:78               push1 
  0158:38 0108          pushi 108 // $108 west
  015b:39 05            pushi 5 // $5 view
  015d:45 01 06         callb procedure_0001 6 // Say 

  0160:33 44              jmp code_01a6 

        code_0162
  0162:3c                 dup 
  0163:35 03              ldi 3 
  0165:1a                 eq? 
  0166:31 0d              bnt code_0175 
  0168:39 03            pushi 3 // $3 y
  016a:78               push1 
  016b:38 0108          pushi 108 // $108 west
  016e:39 06            pushi 6 // $6 loop
  0170:45 01 06         callb procedure_0001 6 // Say 

  0173:33 31              jmp code_01a6 

        code_0175
  0175:3c                 dup 
  0176:35 04              ldi 4 
  0178:1a                 eq? 
  0179:31 0d              bnt code_0188 
  017b:39 03            pushi 3 // $3 y
  017d:78               push1 
  017e:38 0108          pushi 108 // $108 west
  0181:39 07            pushi 7 // $7 cel
  0183:45 01 06         callb procedure_0001 6 // Say 

  0186:33 1e              jmp code_01a6 

        code_0188
  0188:3c                 dup 
  0189:35 05              ldi 5 
  018b:1a                 eq? 
  018c:31 0d              bnt code_019b 
  018e:39 03            pushi 3 // $3 y
  0190:78               push1 
  0191:38 0108          pushi 108 // $108 west
  0194:39 08            pushi 8 // $8 underBits
  0196:45 01 06         callb procedure_0001 6 // Say 

  0199:33 0b              jmp code_01a6 

        code_019b
  019b:39 03            pushi 3 // $3 y
  019d:78               push1 
  019e:38 0108          pushi 108 // $108 west
  01a1:39 09            pushi 9 // $9 nsTop
  01a3:45 01 06         callb procedure_0001 6 // Say 


        code_01a6
  01a6:3a                toss 
  01a7:c3 01              +al local1 
  01a9:33 15              jmp code_01c0 

        code_01ab
  01ab:78               push1 
  01ac:74 0719          lofss $08c8 // ecouter/lil
  01af:43 25 02         callk Said 2 

  01b2:31 0c              bnt code_01c0 
  01b4:7a               push2 
  01b5:38 0108          pushi 108 // $108 west
  01b8:39 0a            pushi a // $a nsLeft
  01ba:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_01c0
  01c0:48                 ret 
    )

)

// 093e
(instance reading 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_01c1
  01c1:87 01              lap param1 
  01c3:65 0a             aTop state 
  01c5:36                push 
  01c6:3c                 dup 
  01c7:35 00              ldi 0 
  01c9:1a                 eq? 
  01ca:31 49              bnt code_0215 
  01cc:88 00a5            lsg gAct 
  01cf:35 03              ldi 3 
  01d1:1a                 eq? 
  01d2:31 3a              bnt code_020e 
  01d4:80 00d8            lag global216 
  01d7:18                 not 
  01d8:31 06              bnt code_01e0 
  01da:35 ff              ldi ff 
  01dc:65 0a             aTop state 
  01de:33 2e              jmp code_020e 

        code_01e0
  01e0:89 76              lsg gMustDos 
  01e2:35 02              ldi 2 
  01e4:12                 and 
  01e5:18                 not 
  01e6:31 1b              bnt code_0203 
  01e8:89 76              lsg gMustDos 
  01ea:35 02              ldi 2 
  01ec:14                  or 
  01ed:a1 76              sag gMustDos 
  01ef:39 7a            pushi 7a // $7a setScript
  01f1:78               push1 
  01f2:7a               push2 
  01f3:38 0196          pushi 196 // $196 sel_406
  01f6:76               push0 
  01f7:43 02 04         callk ScriptID 4 

  01fa:36                push 
  01fb:54 06             self 6 

  01fd:35 ff              ldi ff 
  01ff:65 0a             aTop state 
  0201:33 0b              jmp code_020e 

        code_0203
  0203:39 76            pushi 76 // $76 script
  0205:76               push0 
  0206:54 04             self 4 

  0208:31 04              bnt code_020e 
  020a:35 ff              ldi ff 
  020c:65 0a             aTop state 

        code_020e
  020e:35 01              ldi 1 
  0210:65 10             aTop cycles 
  0212:32 00d1            jmp code_02e6 

        code_0215
  0215:3c                 dup 
  0216:35 01              ldi 1 
  0218:1a                 eq? 
  0219:31 11              bnt code_022c 
  021b:7a               push2 
  021c:38 0108          pushi 108 // $108 west
  021f:39 0b            pushi b // $b nsBottom
  0221:40 fdf5 04        call proc_001a 4 

  0225:35 07              ldi 7 
  0227:65 12             aTop seconds 
  0229:32 00ba            jmp code_02e6 

        code_022c
  022c:3c                 dup 
  022d:35 02              ldi 2 
  022f:1a                 eq? 
  0230:31 2f              bnt code_0261 
  0232:76               push0 
  0233:45 0f 00         callb procedure_000f 0 // cls 

  0236:7a               push2 
  0237:74 07ca          lofss $0a04 // Lillian
  023a:89 00              lsg gEgo 
  023c:45 02 04         callb procedure_0002 4 // LookAt 

  023f:39 7e            pushi 7e // $7e setCycle
  0241:78               push1 
  0242:51 1b            class Beg 
  0244:36                push 
  0245:80 0175            lag global373 
  0248:4a 06             send 6 

  024a:35 06              ldi 6 
  024c:a0 00d5            sag global213 
  024f:39 03            pushi 3 // $3 y
  0251:78               push1 
  0252:38 0108          pushi 108 // $108 west
  0255:39 0c            pushi c // $c nsRight
  0257:45 01 06         callb procedure_0001 6 // Say 

  025a:35 03              ldi 3 
  025c:65 12             aTop seconds 
  025e:32 0085            jmp code_02e6 

        code_0261
  0261:3c                 dup 
  0262:35 03              ldi 3 
  0264:1a                 eq? 
  0265:31 21              bnt code_0288 
  0267:38 00d4          pushi d4 // $d4 setAvoider
  026a:78               push1 
  026b:39 56            pushi 56 // $56 new
  026d:76               push0 
  026e:51 21            class Avoid 
  0270:4a 04             send 4 

  0272:36                push 
  0273:38 00d3          pushi d3 // $d3 setMotion
  0276:39 04            pushi 4 // $4 x
  0278:51 1d            class MoveTo 
  027a:36                push 
  027b:38 0106          pushi 106 // $106 east
  027e:39 78            pushi 78 // $78 changeState
  0280:7c            pushSelf 
  0281:72 0780          lofsa $0a04 // Lillian
  0284:4a 12             send 12 

  0286:33 5e              jmp code_02e6 

        code_0288
  0288:3c                 dup 
  0289:35 04              ldi 4 
  028b:1a                 eq? 
  028c:31 58              bnt code_02e6 
  028e:39 42            pushi 42 // $42 setPri
  0290:78               push1 
  0291:39 08            pushi 8 // $8 underBits
  0293:39 7a            pushi 7a // $7a setScript
  0295:78               push1 
  0296:74 06db          lofss $0974 // headActions
  0299:39 57            pushi 57 // $57 init
  029b:76               push0 
  029c:72 07cd          lofsa $0a6c // lHead
  029f:4a 10             send 10 

  02a1:39 05            pushi 5 // $5 view
  02a3:78               push1 
  02a4:38 0204          pushi 204 // $204 sel_516
  02a7:39 12            pushi 12 // $12 illegalBits
  02a9:78               push1 
  02aa:76               push0 
  02ab:38 00c5          pushi c5 // $c5 posn
  02ae:7a               push2 
  02af:38 0104          pushi 104 // $104 picture
  02b2:39 76            pushi 76 // $76 script
  02b4:39 06            pushi 6 // $6 loop
  02b6:78               push1 
  02b7:7a               push2 
  02b8:39 07            pushi 7 // $7 cel
  02ba:78               push1 
  02bb:76               push0 
  02bc:38 00d4          pushi d4 // $d4 setAvoider
  02bf:78               push1 
  02c0:76               push0 
  02c1:39 7a            pushi 7a // $7a setScript
  02c3:78               push1 
  02c4:74 06dd          lofss $09a4 // lilActions
  02c7:72 073a          lofsa $0a04 // Lillian
  02ca:4a 2c             send 2c 

  02cc:38 00d6          pushi d6 // $d6 observeControl
  02cf:78               push1 
  02d0:38 4000          pushi 4000 // $4000 sel_16384
  02d3:81 00              lag gEgo 
  02d5:4a 06             send 6 

  02d7:78               push1 
  02d8:38 03d9          pushi 3d9 // $3d9 sel_985
  02db:43 03 02         callk DisposeScript 2 

  02de:39 7a            pushi 7a // $7a setScript
  02e0:78               push1 
  02e1:76               push0 
  02e2:63 08             pToa client 
  02e4:4a 06             send 6 


        code_02e6
  02e6:3a                toss 
  02e7:48                 ret 
    )

)

// 096e
(instance headActions 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_02e8
  02e8:87 01              lap param1 
  02ea:65 0a             aTop state 
  02ec:36                push 
  02ed:3c                 dup 
  02ee:35 00              ldi 0 
  02f0:1a                 eq? 
  02f1:31 06              bnt code_02f9 
  02f3:35 02              ldi 2 
  02f5:65 12             aTop seconds 
  02f7:33 58              jmp code_0351 

        code_02f9
  02f9:3c                 dup 
  02fa:35 01              ldi 1 
  02fc:1a                 eq? 
  02fd:31 33              bnt code_0332 
  02ff:83 02              lal local2 
  0301:18                 not 
  0302:31 22              bnt code_0326 
  0304:39 06            pushi 6 // $6 loop
  0306:78               push1 
  0307:7a               push2 
  0308:78               push1 
  0309:39 64            pushi 64 // $64 allTrue
  030b:43 40 04         callk Random 4 

  030e:36                push 
  030f:35 33              ldi 33 
  0311:22                 lt? 
  0312:31 04              bnt code_0318 
  0314:35 01              ldi 1 
  0316:33 02              jmp code_031a 

        code_0318
  0318:35 02              ldi 2 

        code_031a
  031a:36                push 
  031b:39 7e            pushi 7e // $7e setCycle
  031d:78               push1 
  031e:51 1a            class End 
  0320:36                push 
  0321:72 0748          lofsa $0a6c // lHead
  0324:4a 0c             send c 


        code_0326
  0326:7a               push2 
  0327:39 06            pushi 6 // $6 loop
  0329:39 0c            pushi c // $c nsRight
  032b:43 40 04         callk Random 4 

  032e:65 12             aTop seconds 
  0330:33 1f              jmp code_0351 

        code_0332
  0332:3c                 dup 
  0333:35 02              ldi 2 
  0335:1a                 eq? 
  0336:31 19              bnt code_0351 
  0338:39 7e            pushi 7e // $7e setCycle
  033a:78               push1 
  033b:51 1b            class Beg 
  033d:36                push 
  033e:72 072b          lofsa $0a6c // lHead
  0341:4a 06             send 6 

  0343:35 00              ldi 0 
  0345:65 0a             aTop state 
  0347:7a               push2 
  0348:39 06            pushi 6 // $6 loop
  034a:39 0c            pushi c // $c nsRight
  034c:43 40 04         callk Random 4 

  034f:65 12             aTop seconds 

        code_0351
  0351:3a                toss 
  0352:48                 ret 
    )

)

// 099e
(instance lilActions 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_0353
  0353:87 01              lap param1 
  0355:65 0a             aTop state 
  0357:36                push 
  0358:3c                 dup 
  0359:35 00              ldi 0 
  035b:1a                 eq? 
  035c:31 36              bnt code_0394 
  035e:76               push0 
  035f:45 04 00         callb procedure_0004 0 // HandsOn 

  0362:39 06            pushi 6 // $6 loop
  0364:78               push1 
  0365:76               push0 
  0366:38 00a4          pushi a4 // $a4 cycleSpeed
  0369:78               push1 
  036a:78               push1 
  036b:39 7e            pushi 7e // $7e setCycle
  036d:78               push1 
  036e:51 1a            class End 
  0370:36                push 
  0371:72 0690          lofsa $0a04 // Lillian
  0374:4a 12             send 12 

  0376:7a               push2 
  0377:78               push1 
  0378:39 64            pushi 64 // $64 allTrue
  037a:43 40 04         callk Random 4 

  037d:36                push 
  037e:35 32              ldi 32 
  0380:22                 lt? 
  0381:31 04              bnt code_0387 
  0383:35 05              ldi 5 
  0385:65 0a             aTop state 

        code_0387
  0387:7a               push2 
  0388:39 06            pushi 6 // $6 loop
  038a:39 0c            pushi c // $c nsRight
  038c:43 40 04         callk Random 4 

  038f:65 12             aTop seconds 
  0391:32 0138            jmp code_04cc 

        code_0394
  0394:3c                 dup 
  0395:35 01              ldi 1 
  0397:1a                 eq? 
  0398:31 1d              bnt code_03b7 
  039a:39 06            pushi 6 // $6 loop
  039c:78               push1 
  039d:39 05            pushi 5 // $5 view
  039f:39 7e            pushi 7e // $7e setCycle
  03a1:78               push1 
  03a2:51 16            class Fwd 
  03a4:36                push 
  03a5:72 065c          lofsa $0a04 // Lillian
  03a8:4a 0c             send c 

  03aa:7a               push2 
  03ab:39 05            pushi 5 // $5 view
  03ad:39 08            pushi 8 // $8 underBits
  03af:43 40 04         callk Random 4 

  03b2:65 12             aTop seconds 
  03b4:32 0115            jmp code_04cc 

        code_03b7
  03b7:3c                 dup 
  03b8:35 02              ldi 2 
  03ba:1a                 eq? 
  03bb:31 48              bnt code_0405 
  03bd:39 06            pushi 6 // $6 loop
  03bf:78               push1 
  03c0:76               push0 
  03c1:39 07            pushi 7 // $7 cel
  03c3:78               push1 
  03c4:78               push1 
  03c5:74 063c          lofss $0a04 // Lillian
  03c8:43 0e 02         callk NumCels 2 

  03cb:36                push 
  03cc:35 01              ldi 1 
  03ce:04                 sub 
  03cf:36                push 
  03d0:39 7e            pushi 7e // $7e setCycle
  03d2:78               push1 
  03d3:51 1b            class Beg 
  03d5:36                push 
  03d6:72 062b          lofsa $0a04 // Lillian
  03d9:4a 12             send 12 

  03db:35 01              ldi 1 
  03dd:a3 02              sal local2 
  03df:39 07            pushi 7 // $7 cel
  03e1:76               push0 
  03e2:72 0687          lofsa $0a6c // lHead
  03e5:4a 04             send 4 

  03e7:36                push 
  03e8:35 00              ldi 0 
  03ea:1c                 ne? 
  03eb:31 0b              bnt code_03f8 
  03ed:39 7e            pushi 7e // $7e setCycle
  03ef:78               push1 
  03f0:51 1b            class Beg 
  03f2:36                push 
  03f3:72 0676          lofsa $0a6c // lHead
  03f6:4a 06             send 6 


        code_03f8
  03f8:7a               push2 
  03f9:39 05            pushi 5 // $5 view
  03fb:39 08            pushi 8 // $8 underBits
  03fd:43 40 04         callk Random 4 

  0400:65 12             aTop seconds 
  0402:32 00c7            jmp code_04cc 

        code_0405
  0405:3c                 dup 
  0406:35 03              ldi 3 
  0408:1a                 eq? 
  0409:31 18              bnt code_0423 
  040b:39 06            pushi 6 // $6 loop
  040d:78               push1 
  040e:39 03            pushi 3 // $3 y
  0410:39 07            pushi 7 // $7 cel
  0412:78               push1 
  0413:76               push0 
  0414:39 7e            pushi 7e // $7e setCycle
  0416:7a               push2 
  0417:51 1a            class End 
  0419:36                push 
  041a:7c            pushSelf 
  041b:72 05e6          lofsa $0a04 // Lillian
  041e:4a 14             send 14 

  0420:32 00a9            jmp code_04cc 

        code_0423
  0423:3c                 dup 
  0424:35 04              ldi 4 
  0426:1a                 eq? 
  0427:31 17              bnt code_0440 
  0429:39 06            pushi 6 // $6 loop
  042b:78               push1 
  042c:39 04            pushi 4 // $4 x
  042e:39 7e            pushi 7e // $7e setCycle
  0430:78               push1 
  0431:51 16            class Fwd 
  0433:36                push 
  0434:72 05cd          lofsa $0a04 // Lillian
  0437:4a 0c             send c 

  0439:35 02              ldi 2 
  043b:65 12             aTop seconds 
  043d:32 008c            jmp code_04cc 

        code_0440
  0440:3c                 dup 
  0441:35 05              ldi 5 
  0443:1a                 eq? 
  0444:31 2b              bnt code_0471 
  0446:39 06            pushi 6 // $6 loop
  0448:78               push1 
  0449:39 03            pushi 3 // $3 y
  044b:39 07            pushi 7 // $7 cel
  044d:78               push1 
  044e:78               push1 
  044f:74 05b2          lofss $0a04 // Lillian
  0452:43 0e 02         callk NumCels 2 

  0455:36                push 
  0456:35 01              ldi 1 
  0458:04                 sub 
  0459:36                push 
  045a:39 7e            pushi 7e // $7e setCycle
  045c:78               push1 
  045d:51 1b            class Beg 
  045f:36                push 
  0460:72 05a1          lofsa $0a04 // Lillian
  0463:4a 12             send 12 

  0465:7a               push2 
  0466:39 05            pushi 5 // $5 view
  0468:39 08            pushi 8 // $8 underBits
  046a:43 40 04         callk Random 4 

  046d:65 12             aTop seconds 
  046f:33 5b              jmp code_04cc 

        code_0471
  0471:3c                 dup 
  0472:35 06              ldi 6 
  0474:1a                 eq? 
  0475:31 24              bnt code_049b 
  0477:35 00              ldi 0 
  0479:a3 02              sal local2 
  047b:39 06            pushi 6 // $6 loop
  047d:78               push1 
  047e:39 06            pushi 6 // $6 loop
  0480:39 07            pushi 7 // $7 cel
  0482:78               push1 
  0483:76               push0 
  0484:39 7e            pushi 7e // $7e setCycle
  0486:78               push1 
  0487:51 1a            class End 
  0489:36                push 
  048a:72 0577          lofsa $0a04 // Lillian
  048d:4a 12             send 12 

  048f:7a               push2 
  0490:39 05            pushi 5 // $5 view
  0492:39 08            pushi 8 // $8 underBits
  0494:43 40 04         callk Random 4 

  0497:65 12             aTop seconds 
  0499:33 31              jmp code_04cc 

        code_049b
  049b:3c                 dup 
  049c:35 07              ldi 7 
  049e:1a                 eq? 
  049f:31 17              bnt code_04b8 
  04a1:39 7e            pushi 7e // $7e setCycle
  04a3:78               push1 
  04a4:51 1b            class Beg 
  04a6:36                push 
  04a7:72 055a          lofsa $0a04 // Lillian
  04aa:4a 06             send 6 

  04ac:7a               push2 
  04ad:39 05            pushi 5 // $5 view
  04af:39 08            pushi 8 // $8 underBits
  04b1:43 40 04         callk Random 4 

  04b4:65 12             aTop seconds 
  04b6:33 14              jmp code_04cc 

        code_04b8
  04b8:3c                 dup 
  04b9:35 08              ldi 8 
  04bb:1a                 eq? 
  04bc:31 0e              bnt code_04cc 
  04be:35 ff              ldi ff 
  04c0:65 0a             aTop state 
  04c2:7a               push2 
  04c3:39 05            pushi 5 // $5 view
  04c5:39 08            pushi 8 // $8 underBits
  04c7:43 40 04         callk Random 4 

  04ca:65 12             aTop seconds 

        code_04cc
  04cc:3a                toss 
  04cd:48                 ret 
    )

)

// 09ce
(instance goSee 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_04ce
  04ce:87 01              lap param1 
  04d0:65 0a             aTop state 
  04d2:36                push 
  04d3:3c                 dup 
  04d4:35 00              ldi 0 
  04d6:1a                 eq? 
  04d7:31 67              bnt code_0540 
  04d9:76               push0 
  04da:45 03 00         callb procedure_0003 0 // HandsOff 

  04dd:35 06              ldi 6 
  04df:a0 00d5            sag global213 
  04e2:39 03            pushi 3 // $3 y
  04e4:78               push1 
  04e5:38 0108          pushi 108 // $108 west
  04e8:39 0d            pushi d // $d lsTop
  04ea:45 01 06         callb procedure_0001 6 // Say 

  04ed:38 00da          pushi da // $da inRect
  04f0:39 04            pushi 4 // $4 x
  04f2:39 40            pushi 40 // $40 modifiers
  04f4:39 73            pushi 73 // $73 seconds
  04f6:39 6b            pushi 6b // $6b addToFront
  04f8:38 0083          pushi 83 // $83 playMaybe
  04fb:81 00              lag gEgo 
  04fd:4a 0c             send c 

  04ff:2f 15               bt code_0516 
  0501:38 00da          pushi da // $da inRect
  0504:39 04            pushi 4 // $4 x
  0506:38 00fa          pushi fa // $fa restart
  0509:39 73            pushi 73 // $73 seconds
  050b:38 0113          pushi 113 // $113 pauseCel
  050e:39 7f            pushi 7f // $7f setReal
  0510:81 00              lag gEgo 
  0512:4a 0c             send c 

  0514:31 23              bnt code_0539 

        code_0516
  0516:38 00d3          pushi d3 // $d3 setMotion
  0519:39 04            pushi 4 // $4 x
  051b:51 1d            class MoveTo 
  051d:36                push 
  051e:39 04            pushi 4 // $4 x
  0520:76               push0 
  0521:81 00              lag gEgo 
  0523:4a 04             send 4 

  0525:36                push 
  0526:39 03            pushi 3 // $3 y
  0528:76               push0 
  0529:81 00              lag gEgo 
  052b:4a 04             send 4 

  052d:36                push 
  052e:35 14              ldi 14 
  0530:02                 add 
  0531:36                push 
  0532:7c            pushSelf 
  0533:81 00              lag gEgo 
  0535:4a 0c             send c 

  0537:33 04              jmp code_053d 

        code_0539
  0539:35 01              ldi 1 
  053b:65 10             aTop cycles 

        code_053d
  053d:32 0204            jmp code_0744 

        code_0540
  0540:3c                 dup 
  0541:35 01              ldi 1 
  0543:1a                 eq? 
  0544:31 4f              bnt code_0595 
  0546:7a               push2 
  0547:89 00              lsg gEgo 
  0549:74 04b8          lofss $0a04 // Lillian
  054c:45 02 04         callb procedure_0002 4 // LookAt 

  054f:38 0089          pushi 89 // $89 hide
  0552:76               push0 
  0553:72 0516          lofsa $0a6c // lHead
  0556:4a 04             send 4 

  0558:39 05            pushi 5 // $5 view
  055a:78               push1 
  055b:38 01f4          pushi 1f4 // $1f4 sel_500
  055e:39 06            pushi 6 // $6 loop
  0560:78               push1 
  0561:7a               push2 
  0562:39 7e            pushi 7e // $7e setCycle
  0564:78               push1 
  0565:51 17            class Walk 
  0567:36                push 
  0568:38 00a4          pushi a4 // $a4 cycleSpeed
  056b:78               push1 
  056c:76               push0 
  056d:38 00d4          pushi d4 // $d4 setAvoider
  0570:78               push1 
  0571:38 00be          pushi be // $be offScreenOK
  0574:78               push1 
  0575:78               push1 
  0576:39 56            pushi 56 // $56 new
  0578:76               push0 
  0579:51 21            class Avoid 
  057b:4a 04             send 4 

  057d:4a 06             send 6 

  057f:36                push 
  0580:38 00d3          pushi d3 // $d3 setMotion
  0583:39 04            pushi 4 // $4 x
  0585:51 1d            class MoveTo 
  0587:36                push 
  0588:39 5e            pushi 5e // $5e respondsTo
  058a:39 7b            pushi 7b // $7b cycleCnt
  058c:7c            pushSelf 
  058d:72 0474          lofsa $0a04 // Lillian
  0590:4a 2a             send 2a 

  0592:32 01af            jmp code_0744 

        code_0595
  0595:3c                 dup 
  0596:35 02              ldi 2 
  0598:1a                 eq? 
  0599:31 2b              bnt code_05c6 
  059b:39 7e            pushi 7e // $7e setCycle
  059d:78               push1 
  059e:51 1a            class End 
  05a0:36                push 
  05a1:80 0176            lag global374 
  05a4:4a 06             send 6 

  05a6:39 7e            pushi 7e // $7e setCycle
  05a8:7a               push2 
  05a9:51 1a            class End 
  05ab:36                push 
  05ac:7c            pushSelf 
  05ad:80 0177            lag global375 
  05b0:4a 08             send 8 

  05b2:39 2b            pushi 2b // $2b number
  05b4:78               push1 
  05b5:39 2b            pushi 2b // $2b number
  05b7:39 06            pushi 6 // $6 loop
  05b9:78               push1 
  05ba:78               push1 
  05bb:39 2a            pushi 2a // $2a play
  05bd:76               push0 
  05be:72 04f9          lofsa $0aba // doorFX
  05c1:4a 10             send 10 

  05c3:32 017e            jmp code_0744 

        code_05c6
  05c6:3c                 dup 
  05c7:35 03              ldi 3 
  05c9:1a                 eq? 
  05ca:31 15              bnt code_05e1 
  05cc:38 00d3          pushi d3 // $d3 setMotion
  05cf:39 04            pushi 4 // $4 x
  05d1:51 1d            class MoveTo 
  05d3:36                push 
  05d4:39 2c            pushi 2c // $2c handle
  05d6:39 7b            pushi 7b // $7b cycleCnt
  05d8:7c            pushSelf 
  05d9:72 0428          lofsa $0a04 // Lillian
  05dc:4a 0c             send c 

  05de:32 0163            jmp code_0744 

        code_05e1
  05e1:3c                 dup 
  05e2:35 04              ldi 4 
  05e4:1a                 eq? 
  05e5:31 2b              bnt code_0612 
  05e7:39 7e            pushi 7e // $7e setCycle
  05e9:78               push1 
  05ea:51 1b            class Beg 
  05ec:36                push 
  05ed:80 0176            lag global374 
  05f0:4a 06             send 6 

  05f2:39 7e            pushi 7e // $7e setCycle
  05f4:7a               push2 
  05f5:51 1b            class Beg 
  05f7:36                push 
  05f8:7c            pushSelf 
  05f9:80 0177            lag global375 
  05fc:4a 08             send 8 

  05fe:39 2b            pushi 2b // $2b number
  0600:78               push1 
  0601:39 2c            pushi 2c // $2c handle
  0603:39 06            pushi 6 // $6 loop
  0605:78               push1 
  0606:78               push1 
  0607:39 2a            pushi 2a // $2a play
  0609:76               push0 
  060a:72 04ad          lofsa $0aba // doorFX
  060d:4a 10             send 10 

  060f:32 0132            jmp code_0744 

        code_0612
  0612:3c                 dup 
  0613:35 05              ldi 5 
  0615:1a                 eq? 
  0616:31 16              bnt code_062e 
  0618:39 03            pushi 3 // $3 y
  061a:38 0108          pushi 108 // $108 west
  061d:39 0e            pushi e // $e lsLeft
  061f:39 58            pushi 58 // $58 dispose
  0621:46 00ff 0000 06  calle ff procedure_0000 6 // Print 

  0627:35 03              ldi 3 
  0629:65 12             aTop seconds 
  062b:32 0116            jmp code_0744 

        code_062e
  062e:3c                 dup 
  062f:35 06              ldi 6 
  0631:1a                 eq? 
  0632:31 2f              bnt code_0663 
  0634:76               push0 
  0635:45 0f 00         callb procedure_000f 0 // cls 

  0638:39 7e            pushi 7e // $7e setCycle
  063a:78               push1 
  063b:51 1a            class End 
  063d:36                push 
  063e:80 0176            lag global374 
  0641:4a 06             send 6 

  0643:39 7e            pushi 7e // $7e setCycle
  0645:7a               push2 
  0646:51 1a            class End 
  0648:36                push 
  0649:7c            pushSelf 
  064a:80 0177            lag global375 
  064d:4a 08             send 8 

  064f:39 2b            pushi 2b // $2b number
  0651:78               push1 
  0652:39 2b            pushi 2b // $2b number
  0654:39 06            pushi 6 // $6 loop
  0656:78               push1 
  0657:78               push1 
  0658:39 2a            pushi 2a // $2a play
  065a:76               push0 
  065b:72 045c          lofsa $0aba // doorFX
  065e:4a 10             send 10 

  0660:32 00e1            jmp code_0744 

        code_0663
  0663:3c                 dup 
  0664:35 07              ldi 7 
  0666:1a                 eq? 
  0667:31 15              bnt code_067e 
  0669:38 00d3          pushi d3 // $d3 setMotion
  066c:39 04            pushi 4 // $4 x
  066e:51 1d            class MoveTo 
  0670:36                push 
  0671:39 5e            pushi 5e // $5e respondsTo
  0673:39 7b            pushi 7b // $7b cycleCnt
  0675:7c            pushSelf 
  0676:72 038b          lofsa $0a04 // Lillian
  0679:4a 0c             send c 

  067b:32 00c6            jmp code_0744 

        code_067e
  067e:3c                 dup 
  067f:35 08              ldi 8 
  0681:1a                 eq? 
  0682:31 3b              bnt code_06bf 
  0684:39 7e            pushi 7e // $7e setCycle
  0686:78               push1 
  0687:51 1b            class Beg 
  0689:36                push 
  068a:80 0176            lag global374 
  068d:4a 06             send 6 

  068f:39 7e            pushi 7e // $7e setCycle
  0691:7a               push2 
  0692:51 1b            class Beg 
  0694:36                push 
  0695:7c            pushSelf 
  0696:80 0177            lag global375 
  0699:4a 08             send 8 

  069b:39 2b            pushi 2b // $2b number
  069d:78               push1 
  069e:39 2c            pushi 2c // $2c handle
  06a0:39 06            pushi 6 // $6 loop
  06a2:78               push1 
  06a3:78               push1 
  06a4:39 2a            pushi 2a // $2a play
  06a6:76               push0 
  06a7:72 0410          lofsa $0aba // doorFX
  06aa:4a 10             send 10 

  06ac:35 06              ldi 6 
  06ae:a0 00d5            sag global213 
  06b1:39 03            pushi 3 // $3 y
  06b3:78               push1 
  06b4:38 0108          pushi 108 // $108 west
  06b7:39 0f            pushi f // $f lsBottom
  06b9:45 01 06         callb procedure_0001 6 // Say 

  06bc:32 0085            jmp code_0744 

        code_06bf
  06bf:3c                 dup 
  06c0:35 09              ldi 9 
  06c2:1a                 eq? 
  06c3:31 27              bnt code_06ec 
  06c5:38 00c6          pushi c6 // $c6 stopUpd
  06c8:76               push0 
  06c9:80 0176            lag global374 
  06cc:4a 04             send 4 

  06ce:38 00c6          pushi c6 // $c6 stopUpd
  06d1:76               push0 
  06d2:80 0177            lag global375 
  06d5:4a 04             send 4 

  06d7:38 00d3          pushi d3 // $d3 setMotion
  06da:39 04            pushi 4 // $4 x
  06dc:51 1d            class MoveTo 
  06de:36                push 
  06df:38 0106          pushi 106 // $106 east
  06e2:39 78            pushi 78 // $78 changeState
  06e4:7c            pushSelf 
  06e5:72 031c          lofsa $0a04 // Lillian
  06e8:4a 0c             send c 

  06ea:33 58              jmp code_0744 

        code_06ec
  06ec:3c                 dup 
  06ed:35 0a              ldi a 
  06ef:1a                 eq? 
  06f0:31 52              bnt code_0744 
  06f2:38 00ca          pushi ca // $ca show
  06f5:76               push0 
  06f6:39 42            pushi 42 // $42 setPri
  06f8:78               push1 
  06f9:39 08            pushi 8 // $8 underBits
  06fb:39 7a            pushi 7a // $7a setScript
  06fd:78               push1 
  06fe:74 0273          lofss $0974 // headActions
  0701:72 0368          lofsa $0a6c // lHead
  0704:4a 10             send 10 

  0706:39 05            pushi 5 // $5 view
  0708:78               push1 
  0709:38 0204          pushi 204 // $204 sel_516
  070c:39 12            pushi 12 // $12 illegalBits
  070e:78               push1 
  070f:76               push0 
  0710:38 00c5          pushi c5 // $c5 posn
  0713:7a               push2 
  0714:38 0104          pushi 104 // $104 picture
  0717:39 76            pushi 76 // $76 script
  0719:39 06            pushi 6 // $6 loop
  071b:78               push1 
  071c:7a               push2 
  071d:39 07            pushi 7 // $7 cel
  071f:78               push1 
  0720:76               push0 
  0721:38 00d4          pushi d4 // $d4 setAvoider
  0724:78               push1 
  0725:76               push0 
  0726:39 7a            pushi 7a // $7a setScript
  0728:78               push1 
  0729:74 0278          lofss $09a4 // lilActions
  072c:72 02d5          lofsa $0a04 // Lillian
  072f:4a 2c             send 2c 

  0731:78               push1 
  0732:38 03d9          pushi 3d9 // $3d9 sel_985
  0735:43 03 02         callk DisposeScript 2 

  0738:76               push0 
  0739:45 04 00         callb procedure_0004 0 // HandsOn 

  073c:39 7a            pushi 7a // $7a setScript
  073e:78               push1 
  073f:76               push0 
  0740:63 08             pToa client 
  0742:4a 06             send 6 


        code_0744
  0744:3a                toss 
  0745:48                 ret 
    )

)

// 09fe
(instance Lillian of Act
    (properties
        y $5f
        x $80
        z $0
        heading $0
        yStep $2
        view $1f4
        loop $3
        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_0746
  0746:35 06              ldi 6 
  0748:a0 00d5            sag global213 
  074b:78               push1 
  074c:39 33            pushi 33 // $33 b-di
  074e:45 07 02         callb procedure_0007 2 // IsFlag 

  0751:31 53              bnt code_07a6 
  0753:78               push1 
  0754:74 01a0          lofss $08f7 // raconter[/lil]/gertie<about
  0757:43 25 02         callk Said 2 

  075a:31 4a              bnt code_07a6 
  075c:89 7b              lsg gCorpseFlags 
  075e:35 01              ldi 1 
  0760:12                 and 
  0761:31 38              bnt code_079b 
  0763:88 0091            lsg global145 
  0766:35 01              ldi 1 
  0768:12                 and 
  0769:31 15              bnt code_0780 
  076b:39 03            pushi 3 // $3 y
  076d:78               push1 
  076e:38 0108          pushi 108 // $108 west
  0771:39 10            pushi 10 // $10 lsRight
  0773:45 01 06         callb procedure_0001 6 // Say 

  0776:39 4c            pushi 4c // $4c claimed
  0778:78               push1 
  0779:78               push1 
  077a:87 01              lap param1 
  077c:4a 06             send 6 

  077e:33 19              jmp code_0799 

        code_0780
  0780:88 0091            lsg global145 
  0783:35 01              ldi 1 
  0785:14                  or 
  0786:a0 0091            sag global145 
  0789:39 7a            pushi 7a // $7a setScript
  078b:78               push1 
  078c:74 0245          lofss $09d4 // goSee
  078f:54 06             self 6 

  0791:39 4c            pushi 4c // $4c claimed
  0793:78               push1 
  0794:78               push1 
  0795:87 01              lap param1 
  0797:4a 06             send 6 


        code_0799
  0799:33 08              jmp code_07a3 

        code_079b
  079b:39 4c            pushi 4c // $4c claimed
  079d:78               push1 
  079e:76               push0 
  079f:87 01              lap param1 
  07a1:4a 06             send 6 


        code_07a3
  07a3:32 011c            jmp code_08c2 

        code_07a6
  07a6:78               push1 
  07a7:39 33            pushi 33 // $33 b-di
  07a9:45 07 02         callb procedure_0007 2 // IsFlag 

  07ac:31 53              bnt code_0801 
  07ae:78               push1 
  07af:74 0128          lofss $08da // raconter[/lil]/actress<about>
  07b2:43 25 02         callk Said 2 

  07b5:31 4a              bnt code_0801 
  07b7:89 7b              lsg gCorpseFlags 
  07b9:35 04              ldi 4 
  07bb:12                 and 
  07bc:31 38              bnt code_07f6 
  07be:88 0091            lsg global145 
  07c1:35 01              ldi 1 
  07c3:12                 and 
  07c4:31 15              bnt code_07db 
  07c6:39 03            pushi 3 // $3 y
  07c8:78               push1 
  07c9:38 0108          pushi 108 // $108 west
  07cc:39 10            pushi 10 // $10 lsRight
  07ce:45 01 06         callb procedure_0001 6 // Say 

  07d1:39 4c            pushi 4c // $4c claimed
  07d3:78               push1 
  07d4:78               push1 
  07d5:87 01              lap param1 
  07d7:4a 06             send 6 

  07d9:33 19              jmp code_07f4 

        code_07db
  07db:88 0091            lsg global145 
  07de:35 01              ldi 1 
  07e0:14                  or 
  07e1:a0 0091            sag global145 
  07e4:39 7a            pushi 7a // $7a setScript
  07e6:78               push1 
  07e7:74 01ea          lofss $09d4 // goSee
  07ea:54 06             self 6 

  07ec:39 4c            pushi 4c // $4c claimed
  07ee:78               push1 
  07ef:78               push1 
  07f0:87 01              lap param1 
  07f2:4a 06             send 6 


        code_07f4
  07f4:33 08              jmp code_07fe 

        code_07f6
  07f6:39 4c            pushi 4c // $4c claimed
  07f8:78               push1 
  07f9:76               push0 
  07fa:87 01              lap param1 
  07fc:4a 06             send 6 


        code_07fe
  07fe:32 00c1            jmp code_08c2 

        code_0801
  0801:78               push1 
  0802:39 33            pushi 33 // $33 b-di
  0804:45 07 02         callb procedure_0007 2 // IsFlag 

  0807:31 4a              bnt code_0853 
  0809:78               push1 
  080a:74 00dc          lofss $08e9 // raconter[/lil]/c<about
  080d:43 25 02         callk Said 2 

  0810:31 41              bnt code_0853 
  0812:89 7b              lsg gCorpseFlags 
  0814:35 02              ldi 2 
  0816:12                 and 
  0817:31 30              bnt code_0849 
  0819:88 0091            lsg global145 
  081c:35 01              ldi 1 
  081e:12                 and 
  081f:31 15              bnt code_0836 
  0821:39 03            pushi 3 // $3 y
  0823:78               push1 
  0824:38 0108          pushi 108 // $108 west
  0827:39 10            pushi 10 // $10 lsRight
  0829:45 01 06         callb procedure_0001 6 // Say 

  082c:39 4c            pushi 4c // $4c claimed
  082e:78               push1 
  082f:78               push1 
  0830:87 01              lap param1 
  0832:4a 06             send 6 

  0834:33 11              jmp code_0847 

        code_0836
  0836:88 0091            lsg global145 
  0839:35 01              ldi 1 
  083b:14                  or 
  083c:a0 0091            sag global145 
  083f:39 7a            pushi 7a // $7a setScript
  0841:78               push1 
  0842:74 018f          lofss $09d4 // goSee
  0845:54 06             self 6 


        code_0847
  0847:33 08              jmp code_0851 

        code_0849
  0849:39 4c            pushi 4c // $4c claimed
  084b:78               push1 
  084c:76               push0 
  084d:87 01              lap param1 
  084f:4a 06             send 6 


        code_0851
  0851:33 6f              jmp code_08c2 

        code_0853
  0853:39 03            pushi 3 // $3 y
  0855:7c            pushSelf 
  0856:8f 01              lsp param1 
  0858:39 03            pushi 3 // $3 y
  085a:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0860:31 1a              bnt code_087c 
  0862:88 00cf            lsg global207 
  0865:35 20              ldi 20 
  0867:12                 and 
  0868:18                 not 
  0869:31 11              bnt code_087c 
  086b:39 4c            pushi 4c // $4c claimed
  086d:78               push1 
  086e:78               push1 
  086f:87 01              lap param1 
  0871:4a 06             send 6 

  0873:78               push1 
  0874:74 02a9          lofss $0b20 // lillian
  0877:45 19 02         callb procedure_0019 2 // DoLook 

  087a:33 46              jmp code_08c2 

        code_087c
  087c:88 00cf            lsg global207 
  087f:35 20              ldi 20 
  0881:12                 and 
  0882:31 3e              bnt code_08c2 
  0884:39 03            pushi 3 // $3 y
  0886:7c            pushSelf 
  0887:8f 01              lsp param1 
  0889:39 03            pushi 3 // $3 y
  088b:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0891:2f 09               bt code_089c 
  0893:78               push1 
  0894:74 0037          lofss $08ce // look/lil
  0897:43 25 02         callk Said 2 

  089a:31 26              bnt code_08c2 

        code_089c
  089c:39 4c            pushi 4c // $4c claimed
  089e:78               push1 
  089f:78               push1 
  08a0:87 01              lap param1 
  08a2:4a 06             send 6 

  08a4:83 00              lal local0 
  08a6:31 0e              bnt code_08b6 
  08a8:7a               push2 
  08a9:38 0108          pushi 108 // $108 west
  08ac:39 11            pushi 11 // $11 signal
  08ae:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08b4:33 0c              jmp code_08c2 

        code_08b6
  08b6:7a               push2 
  08b7:38 0108          pushi 108 // $108 west
  08ba:39 12            pushi 12 // $12 illegalBits
  08bc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_08c2
  08c2:48                 ret 
  08c3:00                bnot 
    )

)

// 0a66
(instance lHead of Prop
    (properties
        y $55
        x $108
        z $0
        heading $0
        yStep $2
        view $204
        loop $1
        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
    )
)

// 0ab4
(instance doorFX 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:39 0b            pushi b // $b nsBottom
  001c:59 01            &rest 1 
  001e:39 43            pushi 43 // $43 at
  0020:39 28            pushi 28 // $28 message
  0022:39 0a            pushi a // $a nsLeft
  0024:39 21            pushi 21 // $21 font
  0026:39 04            pushi 4 // $4 x
  0028:39 46            pushi 46 // $46 width
  002a:39 7d            pushi 7d // $7d set
  002c:39 1e            pushi 1e // $1e mode
  002e:78               push1 
  002f:39 53            pushi 53 // $53 draw
  0031:39 58            pushi 58 // $58 dispose
  0033:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  0039:48                 ret 
)

