(script 241)

(string
    string_0b30 "Fifi"
    string_0b35 "Rudy"
    string_0b3a "drink"
    string_0b40 "glass"
    string_0b46 "goSee"
    string_0b4c "myMusic"
    string_0b54 "rudy"
    string_0b59 "rudyslap"
    string_0b62 "slapHim"
)

(said
    said_08e4 boire/boire
    said_08ea get/boire,glass
    said_08f3 ecouter/rudolph
    said_08f9 look/glass,boire
    said_0902 look/rudolph
    said_0908 bonjour/rudolph
    said_090e raconter[/rudolph]/gertie<about
)

(synonym
    boire | drink = alcohol | alcool | beer | biere | booze | bourbon | cognac | liquor | vin | wine
    rudolph | rudy = person | personne
    rudolph | rudy = fellow | gars | gentleman | guy | homme | man | type
)

(local
    local0 = $0000
)

// 0922
(instance Rudy of Act
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
    (method (handleEvent) // method_0052
  0052:78               push1 
  0053:39 33            pushi 33 // $33 b-di
  0055:45 07 02         callb procedure_0007 2 // IsFlag 

  0058:31 55              bnt code_00af 
  005a:78               push1 
  005b:74 08b0          lofss $090e // raconter[/rudolph]/gertie<about
  005e:43 25 02         callk Said 2 

  0061:31 4c              bnt code_00af 
  0063:35 09              ldi 9 
  0065:a0 00d5            sag global213 
  0068:89 7b              lsg gCorpseFlags 
  006a:35 01              ldi 1 
  006c:12                 and 
  006d:31 36              bnt code_00a5 
  006f:88 0091            lsg global145 
  0072:34 0080            ldi 80 
  0075:12                 and 
  0076:31 0c              bnt code_0084 
  0078:39 03            pushi 3 // $3 y
  007a:78               push1 
  007b:38 00f1          pushi f1 // $f1 write
  007e:76               push0 
  007f:45 01 06         callb procedure_0001 6 // Say 

  0082:33 1f              jmp code_00a3 

        code_0084
  0084:39 03            pushi 3 // $3 y
  0086:78               push1 
  0087:38 00f1          pushi f1 // $f1 write
  008a:78               push1 
  008b:45 01 06         callb procedure_0001 6 // Say 

  008e:88 0091            lsg global145 
  0091:34 0080            ldi 80 
  0094:14                  or 
  0095:a0 0091            sag global145 
  0098:39 7a            pushi 7a // $7a setScript
  009a:78               push1 
  009b:74 09b2          lofss $0a50 // goSee
  009e:72 0887          lofsa $0928 // Rudy
  00a1:4a 06             send 6 


        code_00a3
  00a3:33 08              jmp code_00ad 

        code_00a5
  00a5:39 4c            pushi 4c // $4c claimed
  00a7:78               push1 
  00a8:76               push0 
  00a9:87 01              lap param1 
  00ab:4a 06             send 6 


        code_00ad
  00ad:33 5e              jmp code_010d 

        code_00af
  00af:39 03            pushi 3 // $3 y
  00b1:7c            pushSelf 
  00b2:8f 01              lsp param1 
  00b4:39 03            pushi 3 // $3 y
  00b6:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  00bc:31 1b              bnt code_00d9 
  00be:88 00cf            lsg global207 
  00c1:34 0100            ldi 100 
  00c4:12                 and 
  00c5:18                 not 
  00c6:31 11              bnt code_00d9 
  00c8:39 4c            pushi 4c // $4c claimed
  00ca:78               push1 
  00cb:78               push1 
  00cc:87 01              lap param1 
  00ce:4a 06             send 6 

  00d0:78               push1 
  00d1:74 0a80          lofss $0b54 // rudy
  00d4:45 19 02         callb procedure_0019 2 // DoLook 

  00d7:33 34              jmp code_010d 

        code_00d9
  00d9:88 00cf            lsg global207 
  00dc:34 0100            ldi 100 
  00df:12                 and 
  00e0:31 2b              bnt code_010d 
  00e2:39 03            pushi 3 // $3 y
  00e4:7c            pushSelf 
  00e5:8f 01              lsp param1 
  00e7:39 03            pushi 3 // $3 y
  00e9:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  00ef:2f 09               bt code_00fa 
  00f1:78               push1 
  00f2:74 080d          lofss $0902 // look/rudolph
  00f5:43 25 02         callk Said 2 

  00f8:31 13              bnt code_010d 

        code_00fa
  00fa:39 4c            pushi 4c // $4c claimed
  00fc:78               push1 
  00fd:78               push1 
  00fe:87 01              lap param1 
  0100:4a 06             send 6 

  0102:7a               push2 
  0103:38 00f1          pushi f1 // $f1 write
  0106:7a               push2 
  0107:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_010d
  010d:48                 ret 
    )

)

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

// 09b4
(instance public rudyslap of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_010e
  010e:39 57            pushi 57 // $57 init
  0110:76               push0 
  0111:57 36 04         super Rgn 4 

  0114:7a               push2 
  0115:38 0087          pushi 87 // $87 clean
  0118:39 04            pushi 4 // $4 x
  011a:43 00 04         callk Load 4 

  011d:7a               push2 
  011e:38 0084          pushi 84 // $84 stop
  0121:39 70            pushi 70 // $70 start
  0123:43 00 04         callk Load 4 

  0126:7a               push2 
  0127:38 0082          pushi 82 // $82 owner
  012a:38 03d9          pushi 3d9 // $3d9 sel_985
  012d:43 00 04         callk Load 4 

  0130:39 03            pushi 3 // $3 y
  0132:38 008f          pushi 8f // $8f moveTo
  0135:38 00f3          pushi f3 // $f3 close
  0138:38 00fc          pushi fc // $fc showMem
  013b:45 15 06         callb procedure_0015 6 // LoadMany 

  013e:39 05            pushi 5 // $5 view
  0140:38 0080          pushi 80 // $80 timeLeft
  0143:38 017c          pushi 17c // $17c sel_380
  0146:38 017d          pushi 17d // $17d sel_381
  0149:38 01cc          pushi 1cc // $1cc sel_460
  014c:38 038c          pushi 38c // $38c sel_908
  014f:45 15 0a         callb procedure_0015 a // LoadMany 

  0152:34 0100            ldi 100 
  0155:a0 00d0            sag global208 
  0158:34 00fc            ldi fc 
  015b:a0 0181            sag global385 
  015e:39 42            pushi 42 // $42 setPri
  0160:78               push1 
  0161:39 0b            pushi b // $b nsBottom
  0163:39 57            pushi 57 // $57 init
  0165:76               push0 
  0166:38 00c6          pushi c6 // $c6 stopUpd
  0169:76               push0 
  016a:72 0913          lofsa $0a80 // glass
  016d:4a 0e             send e 

  016f:89 7e              lsg global126 
  0171:35 00              ldi 0 
  0173:1a                 eq? 
  0174:31 32              bnt code_01a8 
  0176:39 05            pushi 5 // $5 view
  0178:78               push1 
  0179:38 0183          pushi 183 // $183 sel_387
  017c:39 06            pushi 6 // $6 loop
  017e:78               push1 
  017f:76               push0 
  0180:38 00c5          pushi c5 // $c5 posn
  0183:7a               push2 
  0184:38 0097          pushi 97 // $97 open
  0187:39 71            pushi 71 // $71 timer
  0189:39 57            pushi 57 // $57 init
  018b:76               push0 
  018c:72 0799          lofsa $0928 // Rudy
  018f:4a 18             send 18 

  0191:39 57            pushi 57 // $57 init
  0193:76               push0 
  0194:38 00c9          pushi c9 // $c9 ignoreActors
  0197:78               push1 
  0198:78               push1 
  0199:72 0932          lofsa $0ace // Fifi
  019c:4a 0a             send a 

  019e:39 7a            pushi 7a // $7a setScript
  01a0:78               push1 
  01a1:74 0848          lofss $09ec // slapHim
  01a4:54 06             self 6 

  01a6:33 0e              jmp code_01b6 

        code_01a8
  01a8:39 57            pushi 57 // $57 init
  01aa:76               push0 
  01ab:39 7a            pushi 7a // $7a setScript
  01ad:78               push1 
  01ae:74 086f          lofss $0a20 // drink
  01b1:72 0774          lofsa $0928 // Rudy
  01b4:4a 0a             send a 


        code_01b6
  01b6:39 2b            pushi 2b // $2b number
  01b8:78               push1 
  01b9:39 70            pushi 70 // $70 start
  01bb:39 06            pushi 6 // $6 loop
  01bd:78               push1 
  01be:76               push0 
  01bf:72 07ce          lofsa $0990 // myMusic
  01c2:4a 0c             send c 

  01c4:48                 ret 
    )

    (method (doit) // method_01c5
  01c5:39 3c            pushi 3c // $3c doit
  01c7:76               push0 
  01c8:57 36 04         super Rgn 4 

  01cb:48                 ret 
    )

    (method (dispose) // method_01cc
  01cc:78               push1 
  01cd:38 03d9          pushi 3d9 // $3d9 sel_985
  01d0:43 03 02         callk DisposeScript 2 

  01d3:39 58            pushi 58 // $58 dispose
  01d5:76               push0 
  01d6:57 36 04         super Rgn 4 

  01d9:48                 ret 
    )

    (method (handleEvent) // method_01da
  01da:39 4c            pushi 4c // $4c claimed
  01dc:76               push0 
  01dd:87 01              lap param1 
  01df:4a 04             send 4 

  01e1:31 01              bnt code_01e4 
  01e3:48                 ret 

        code_01e4
  01e4:39 22            pushi 22 // $22 type
  01e6:76               push0 
  01e7:87 01              lap param1 
  01e9:4a 04             send 4 

  01eb:36                push 
  01ec:34 0080            ldi 80 
  01ef:1a                 eq? 
  01f0:30 00f0            bnt code_02e3 
  01f3:78               push1 
  01f4:74 0702          lofss $08f9 // look/glass,boire
  01f7:43 25 02         callk Said 2 

  01fa:31 0f              bnt code_020b 
  01fc:7a               push2 
  01fd:38 00f1          pushi f1 // $f1 write
  0200:39 03            pushi 3 // $3 y
  0202:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0208:32 00d8            jmp code_02e3 

        code_020b
  020b:78               push1 
  020c:74 06e4          lofss $08f3 // ecouter/rudolph
  020f:43 25 02         callk Said 2 

  0212:31 0f              bnt code_0223 
  0214:7a               push2 
  0215:38 00f1          pushi f1 // $f1 write
  0218:39 04            pushi 4 // $4 x
  021a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0220:32 00c0            jmp code_02e3 

        code_0223
  0223:78               push1 
  0224:74 06c3          lofss $08ea // get/boire,glass
  0227:43 25 02         callk Said 2 

  022a:2f 09               bt code_0235 
  022c:78               push1 
  022d:74 06b4          lofss $08e4 // boire/boire
  0230:43 25 02         callk Said 2 

  0233:31 0f              bnt code_0244 

        code_0235
  0235:7a               push2 
  0236:38 00f1          pushi f1 // $f1 write
  0239:39 05            pushi 5 // $5 view
  023b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0241:32 009f            jmp code_02e3 

        code_0244
  0244:78               push1 
  0245:74 06c0          lofss $0908 // bonjour/rudolph
  0248:43 25 02         callk Said 2 

  024b:30 0095            bnt code_02e3 
  024e:35 09              ldi 9 
  0250:a0 00d5            sag global213 
  0253:8b 00              lsl local0 
  0255:3c                 dup 
  0256:35 00              ldi 0 
  0258:1a                 eq? 
  0259:31 0d              bnt code_0268 
  025b:39 03            pushi 3 // $3 y
  025d:78               push1 
  025e:38 00f1          pushi f1 // $f1 write
  0261:39 06            pushi 6 // $6 loop
  0263:45 01 06         callb procedure_0001 6 // Say 

  0266:33 78              jmp code_02e0 

        code_0268
  0268:3c                 dup 
  0269:35 01              ldi 1 
  026b:1a                 eq? 
  026c:31 0d              bnt code_027b 
  026e:39 03            pushi 3 // $3 y
  0270:78               push1 
  0271:38 00f1          pushi f1 // $f1 write
  0274:39 07            pushi 7 // $7 cel
  0276:45 01 06         callb procedure_0001 6 // Say 

  0279:33 65              jmp code_02e0 

        code_027b
  027b:3c                 dup 
  027c:35 02              ldi 2 
  027e:1a                 eq? 
  027f:31 1d              bnt code_029e 
  0281:39 03            pushi 3 // $3 y
  0283:78               push1 
  0284:38 00f1          pushi f1 // $f1 write
  0287:39 08            pushi 8 // $8 underBits
  0289:45 01 06         callb procedure_0001 6 // Say 

  028c:35 0c              ldi c 
  028e:a0 00d5            sag global213 
  0291:39 03            pushi 3 // $3 y
  0293:76               push0 
  0294:38 00f1          pushi f1 // $f1 write
  0297:39 09            pushi 9 // $9 nsTop
  0299:45 01 06         callb procedure_0001 6 // Say 

  029c:33 42              jmp code_02e0 

        code_029e
  029e:3c                 dup 
  029f:35 03              ldi 3 
  02a1:1a                 eq? 
  02a2:31 1d              bnt code_02c1 
  02a4:39 03            pushi 3 // $3 y
  02a6:78               push1 
  02a7:38 00f1          pushi f1 // $f1 write
  02aa:39 0a            pushi a // $a nsLeft
  02ac:45 01 06         callb procedure_0001 6 // Say 

  02af:35 0c              ldi c 
  02b1:a0 00d5            sag global213 
  02b4:39 03            pushi 3 // $3 y
  02b6:76               push0 
  02b7:38 00f1          pushi f1 // $f1 write
  02ba:39 0b            pushi b // $b nsBottom
  02bc:45 01 06         callb procedure_0001 6 // Say 

  02bf:33 1f              jmp code_02e0 

        code_02c1
  02c1:3c                 dup 
  02c2:35 04              ldi 4 
  02c4:1a                 eq? 
  02c5:31 0d              bnt code_02d4 
  02c7:39 03            pushi 3 // $3 y
  02c9:78               push1 
  02ca:38 00f1          pushi f1 // $f1 write
  02cd:39 0c            pushi c // $c nsRight
  02cf:45 01 06         callb procedure_0001 6 // Say 

  02d2:33 0c              jmp code_02e0 

        code_02d4
  02d4:7a               push2 
  02d5:38 00f1          pushi f1 // $f1 write
  02d8:39 0d            pushi d // $d lsTop
  02da:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02e0
  02e0:3a                toss 
  02e1:c3 00              +al local0 

        code_02e3
  02e3:48                 ret 
    )

)

// 09e6
(instance slapHim of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (doit) // method_02e4
  02e4:39 3c            pushi 3c // $3c doit
  02e6:76               push0 
  02e7:57 05 04         super Script 4 

  02ea:39 04            pushi 4 // $4 x
  02ec:76               push0 
  02ed:72 07de          lofsa $0ace // Fifi
  02f0:4a 04             send 4 

  02f2:36                push 
  02f3:35 f6              ldi f6 
  02f5:1a                 eq? 
  02f6:31 08              bnt code_0300 
  02f8:39 58            pushi 58 // $58 dispose
  02fa:76               push0 
  02fb:72 07d0          lofsa $0ace // Fifi
  02fe:4a 04             send 4 


        code_0300
  0300:67 0a             pTos state 
  0302:35 02              ldi 2 
  0304:1a                 eq? 
  0305:31 24              bnt code_032b 
  0307:39 07            pushi 7 // $7 cel
  0309:76               push0 
  030a:72 07c1          lofsa $0ace // Fifi
  030d:4a 04             send 4 

  030f:36                push 
  0310:35 04              ldi 4 
  0312:1a                 eq? 
  0313:31 16              bnt code_032b 
  0315:39 2b            pushi 2b // $2b number
  0317:78               push1 
  0318:39 70            pushi 70 // $70 start
  031a:39 06            pushi 6 // $6 loop
  031c:78               push1 
  031d:78               push1 
  031e:39 3f            pushi 3f // $3f priority
  0320:78               push1 
  0321:39 05            pushi 5 // $5 view
  0323:39 2a            pushi 2a // $2a play
  0325:76               push0 
  0326:72 0667          lofsa $0990 // myMusic
  0329:4a 16             send 16 


        code_032b
  032b:48                 ret 
    )

    (method (changeState) // method_032c
  032c:87 01              lap param1 
  032e:65 0a             aTop state 
  0330:36                push 
  0331:3c                 dup 
  0332:35 00              ldi 0 
  0334:1a                 eq? 
  0335:31 20              bnt code_0357 
  0337:76               push0 
  0338:45 03 00         callb procedure_0003 0 // HandsOff 

  033b:35 01              ldi 1 
  033d:a1 7e              sag global126 
  033f:38 00a4          pushi a4 // $a4 cycleSpeed
  0342:78               push1 
  0343:78               push1 
  0344:39 06            pushi 6 // $6 loop
  0346:78               push1 
  0347:76               push0 
  0348:39 7e            pushi 7e // $7e setCycle
  034a:7a               push2 
  034b:51 1a            class End 
  034d:36                push 
  034e:7c            pushSelf 
  034f:72 05d6          lofsa $0928 // Rudy
  0352:4a 14             send 14 

  0354:32 016e            jmp code_04c5 

        code_0357
  0357:3c                 dup 
  0358:35 01              ldi 1 
  035a:1a                 eq? 
  035b:31 2b              bnt code_0388 
  035d:38 0089          pushi 89 // $89 hide
  0360:76               push0 
  0361:72 05c4          lofsa $0928 // Rudy
  0364:4a 04             send 4 

  0366:38 00c5          pushi c5 // $c5 posn
  0369:7a               push2 
  036a:39 72            pushi 72 // $72 cycles
  036c:39 71            pushi 71 // $71 timer
  036e:39 07            pushi 7 // $7 cel
  0370:78               push1 
  0371:76               push0 
  0372:39 06            pushi 6 // $6 loop
  0374:78               push1 
  0375:7a               push2 
  0376:39 7e            pushi 7e // $7e setCycle
  0378:78               push1 
  0379:51 16            class Fwd 
  037b:36                push 
  037c:72 074f          lofsa $0ace // Fifi
  037f:4a 1a             send 1a 

  0381:35 03              ldi 3 
  0383:65 12             aTop seconds 
  0385:32 013d            jmp code_04c5 

        code_0388
  0388:3c                 dup 
  0389:35 02              ldi 2 
  038b:1a                 eq? 
  038c:31 31              bnt code_03bf 
  038e:39 06            pushi 6 // $6 loop
  0390:78               push1 
  0391:76               push0 
  0392:38 00a4          pushi a4 // $a4 cycleSpeed
  0395:78               push1 
  0396:78               push1 
  0397:39 7e            pushi 7e // $7e setCycle
  0399:7a               push2 
  039a:51 1a            class End 
  039c:36                push 
  039d:7c            pushSelf 
  039e:72 072d          lofsa $0ace // Fifi
  03a1:4a 14             send 14 

  03a3:39 08            pushi 8 // $8 underBits
  03a5:38 00f1          pushi f1 // $f1 write
  03a8:39 0e            pushi e // $e lsLeft
  03aa:39 43            pushi 43 // $43 at
  03ac:39 5a            pushi 5a // $5a showSelf
  03ae:39 14            pushi 14 // $14 brLeft
  03b0:39 21            pushi 21 // $21 font
  03b2:39 04            pushi 4 // $4 x
  03b4:39 58            pushi 58 // $58 dispose
  03b6:46 00ff 0000 10  calle ff procedure_0000 10 // Print 

  03bc:32 0106            jmp code_04c5 

        code_03bf
  03bf:3c                 dup 
  03c0:35 03              ldi 3 
  03c2:1a                 eq? 
  03c3:31 3c              bnt code_0401 
  03c5:38 00ca          pushi ca // $ca show
  03c8:76               push0 
  03c9:39 06            pushi 6 // $6 loop
  03cb:78               push1 
  03cc:78               push1 
  03cd:39 07            pushi 7 // $7 cel
  03cf:78               push1 
  03d0:76               push0 
  03d1:38 00a4          pushi a4 // $a4 cycleSpeed
  03d4:78               push1 
  03d5:7a               push2 
  03d6:39 7e            pushi 7e // $7e setCycle
  03d8:7a               push2 
  03d9:51 1a            class End 
  03db:36                push 
  03dc:7c            pushSelf 
  03dd:72 0548          lofsa $0928 // Rudy
  03e0:4a 1e             send 1e 

  03e2:39 06            pushi 6 // $6 loop
  03e4:78               push1 
  03e5:78               push1 
  03e6:38 00c5          pushi c5 // $c5 posn
  03e9:7a               push2 
  03ea:39 72            pushi 72 // $72 cycles
  03ec:39 71            pushi 71 // $71 timer
  03ee:38 00a4          pushi a4 // $a4 cycleSpeed
  03f1:78               push1 
  03f2:78               push1 
  03f3:39 7e            pushi 7e // $7e setCycle
  03f5:78               push1 
  03f6:51 1a            class End 
  03f8:36                push 
  03f9:72 06d2          lofsa $0ace // Fifi
  03fc:4a 1a             send 1a 

  03fe:32 00c4            jmp code_04c5 

        code_0401
  0401:3c                 dup 
  0402:35 04              ldi 4 
  0404:1a                 eq? 
  0405:31 1f              bnt code_0426 
  0407:76               push0 
  0408:45 0f 00         callb procedure_000f 0 // cls 

  040b:39 06            pushi 6 // $6 loop
  040d:78               push1 
  040e:7a               push2 
  040f:38 00a4          pushi a4 // $a4 cycleSpeed
  0412:78               push1 
  0413:76               push0 
  0414:39 7e            pushi 7e // $7e setCycle
  0416:78               push1 
  0417:51 16            class Fwd 
  0419:36                push 
  041a:72 050b          lofsa $0928 // Rudy
  041d:4a 12             send 12 

  041f:35 04              ldi 4 
  0421:65 12             aTop seconds 
  0423:32 009f            jmp code_04c5 

        code_0426
  0426:3c                 dup 
  0427:35 05              ldi 5 
  0429:1a                 eq? 
  042a:31 44              bnt code_0470 
  042c:39 7e            pushi 7e // $7e setCycle
  042e:78               push1 
  042f:76               push0 
  0430:72 04f5          lofsa $0928 // Rudy
  0433:4a 06             send 6 

  0435:39 05            pushi 5 // $5 view
  0437:78               push1 
  0438:38 01cc          pushi 1cc // $1cc sel_460
  043b:38 00a4          pushi a4 // $a4 cycleSpeed
  043e:78               push1 
  043f:76               push0 
  0440:39 42            pushi 42 // $42 setPri
  0442:78               push1 
  0443:39 ff            pushi ff // $ff checkAni
  0445:38 00d4          pushi d4 // $d4 setAvoider
  0448:78               push1 
  0449:39 56            pushi 56 // $56 new
  044b:76               push0 
  044c:51 21            class Avoid 
  044e:4a 04             send 4 

  0450:36                push 
  0451:39 7e            pushi 7e // $7e setCycle
  0453:78               push1 
  0454:51 17            class Walk 
  0456:36                push 
  0457:38 00c9          pushi c9 // $c9 ignoreActors
  045a:78               push1 
  045b:76               push0 
  045c:38 00d3          pushi d3 // $d3 setMotion
  045f:39 04            pushi 4 // $4 x
  0461:51 1d            class MoveTo 
  0463:36                push 
  0464:39 f6            pushi f6 // $f6 carrying
  0466:39 65            pushi 65 // $65 contains
  0468:7c            pushSelf 
  0469:72 0662          lofsa $0ace // Fifi
  046c:4a 30             send 30 

  046e:33 55              jmp code_04c5 

        code_0470
  0470:3c                 dup 
  0471:35 06              ldi 6 
  0473:1a                 eq? 
  0474:31 32              bnt code_04a8 
  0476:76               push0 
  0477:45 0f 00         callb procedure_000f 0 // cls 

  047a:39 05            pushi 5 // $5 view
  047c:78               push1 
  047d:38 017c          pushi 17c // $17c sel_380
  0480:39 7e            pushi 7e // $7e setCycle
  0482:78               push1 
  0483:51 17            class Walk 
  0485:36                push 
  0486:38 00d4          pushi d4 // $d4 setAvoider
  0489:78               push1 
  048a:39 56            pushi 56 // $56 new
  048c:76               push0 
  048d:51 21            class Avoid 
  048f:4a 04             send 4 

  0491:36                push 
  0492:38 00d3          pushi d3 // $d3 setMotion
  0495:39 04            pushi 4 // $4 x
  0497:51 1d            class MoveTo 
  0499:36                push 
  049a:38 00a4          pushi a4 // $a4 cycleSpeed
  049d:38 0091          pushi 91 // $91 isType
  04a0:7c            pushSelf 
  04a1:72 0484          lofsa $0928 // Rudy
  04a4:4a 1e             send 1e 

  04a6:33 1d              jmp code_04c5 

        code_04a8
  04a8:3c                 dup 
  04a9:35 07              ldi 7 
  04ab:1a                 eq? 
  04ac:31 17              bnt code_04c5 
  04ae:39 7a            pushi 7a // $7a setScript
  04b0:78               push1 
  04b1:74 056c          lofss $0a20 // drink
  04b4:72 0471          lofsa $0928 // Rudy
  04b7:4a 06             send 6 

  04b9:76               push0 
  04ba:45 04 00         callb procedure_0004 0 // HandsOn 

  04bd:39 7a            pushi 7a // $7a setScript
  04bf:78               push1 
  04c0:76               push0 
  04c1:63 08             pToa client 
  04c3:4a 06             send 6 


        code_04c5
  04c5:3a                toss 
  04c6:48                 ret 
    )

)

// 0a1a
(instance drink 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_04c7
  04c7:87 01              lap param1 
  04c9:65 0a             aTop state 
  04cb:36                push 
  04cc:3c                 dup 
  04cd:35 00              ldi 0 
  04cf:1a                 eq? 
  04d0:31 3a              bnt code_050c 
  04d2:39 05            pushi 5 // $5 view
  04d4:78               push1 
  04d5:38 017d          pushi 17d // $17d sel_381
  04d8:38 00a4          pushi a4 // $a4 cycleSpeed
  04db:78               push1 
  04dc:7a               push2 
  04dd:39 06            pushi 6 // $6 loop
  04df:78               push1 
  04e0:39 03            pushi 3 // $3 y
  04e2:39 07            pushi 7 // $7 cel
  04e4:78               push1 
  04e5:7a               push2 
  04e6:38 00c5          pushi c5 // $c5 posn
  04e9:7a               push2 
  04ea:38 00a9          pushi a9 // $a9 moveDone
  04ed:39 7e            pushi 7e // $7e setCycle
  04ef:39 42            pushi 42 // $42 setPri
  04f1:78               push1 
  04f2:39 0b            pushi b // $b nsBottom
  04f4:39 12            pushi 12 // $12 illegalBits
  04f6:78               push1 
  04f7:76               push0 
  04f8:38 00c9          pushi c9 // $c9 ignoreActors
  04fb:78               push1 
  04fc:78               push1 
  04fd:39 7e            pushi 7e // $7e setCycle
  04ff:7a               push2 
  0500:51 1b            class Beg 
  0502:36                push 
  0503:7c            pushSelf 
  0504:72 0421          lofsa $0928 // Rudy
  0507:4a 3a             send 3a 

  0509:32 021a            jmp code_0726 

        code_050c
  050c:3c                 dup 
  050d:35 01              ldi 1 
  050f:1a                 eq? 
  0510:31 21              bnt code_0533 
  0512:38 0089          pushi 89 // $89 hide
  0515:76               push0 
  0516:72 0567          lofsa $0a80 // glass
  0519:4a 04             send 4 

  051b:39 06            pushi 6 // $6 loop
  051d:78               push1 
  051e:7a               push2 
  051f:39 07            pushi 7 // $7 cel
  0521:78               push1 
  0522:39 03            pushi 3 // $3 y
  0524:39 7e            pushi 7e // $7e setCycle
  0526:7a               push2 
  0527:51 1b            class Beg 
  0529:36                push 
  052a:7c            pushSelf 
  052b:72 03fa          lofsa $0928 // Rudy
  052e:4a 14             send 14 

  0530:32 01f3            jmp code_0726 

        code_0533
  0533:3c                 dup 
  0534:35 02              ldi 2 
  0536:1a                 eq? 
  0537:31 1a              bnt code_0553 
  0539:39 06            pushi 6 // $6 loop
  053b:78               push1 
  053c:78               push1 
  053d:39 07            pushi 7 // $7 cel
  053f:78               push1 
  0540:76               push0 
  0541:39 7e            pushi 7e // $7e setCycle
  0543:78               push1 
  0544:51 1a            class End 
  0546:36                push 
  0547:72 03de          lofsa $0928 // Rudy
  054a:4a 12             send 12 

  054c:35 03              ldi 3 
  054e:65 12             aTop seconds 
  0550:32 01d3            jmp code_0726 

        code_0553
  0553:3c                 dup 
  0554:35 03              ldi 3 
  0556:1a                 eq? 
  0557:31 0f              bnt code_0568 
  0559:39 7e            pushi 7e // $7e setCycle
  055b:7a               push2 
  055c:51 1b            class Beg 
  055e:36                push 
  055f:7c            pushSelf 
  0560:72 03c5          lofsa $0928 // Rudy
  0563:4a 08             send 8 

  0565:32 01be            jmp code_0726 

        code_0568
  0568:3c                 dup 
  0569:35 04              ldi 4 
  056b:1a                 eq? 
  056c:31 17              bnt code_0585 
  056e:39 06            pushi 6 // $6 loop
  0570:78               push1 
  0571:7a               push2 
  0572:39 07            pushi 7 // $7 cel
  0574:78               push1 
  0575:76               push0 
  0576:39 7e            pushi 7e // $7e setCycle
  0578:7a               push2 
  0579:51 1a            class End 
  057b:36                push 
  057c:7c            pushSelf 
  057d:72 03a8          lofsa $0928 // Rudy
  0580:4a 14             send 14 

  0582:32 01a1            jmp code_0726 

        code_0585
  0585:3c                 dup 
  0586:35 05              ldi 5 
  0588:1a                 eq? 
  0589:31 3b              bnt code_05c6 
  058b:38 00ca          pushi ca // $ca show
  058e:76               push0 
  058f:72 04ee          lofsa $0a80 // glass
  0592:4a 04             send 4 

  0594:39 06            pushi 6 // $6 loop
  0596:78               push1 
  0597:39 03            pushi 3 // $3 y
  0599:39 07            pushi 7 // $7 cel
  059b:78               push1 
  059c:76               push0 
  059d:39 7e            pushi 7e // $7e setCycle
  059f:78               push1 
  05a0:51 1a            class End 
  05a2:36                push 
  05a3:72 0382          lofsa $0928 // Rudy
  05a6:4a 12             send 12 

  05a8:7a               push2 
  05a9:78               push1 
  05aa:39 64            pushi 64 // $64 allTrue
  05ac:43 40 04         callk Random 4 

  05af:36                push 
  05b0:35 28              ldi 28 
  05b2:1e                 gt? 
  05b3:31 04              bnt code_05b9 
  05b5:35 ff              ldi ff 
  05b7:65 0a             aTop state 

        code_05b9
  05b9:7a               push2 
  05ba:39 06            pushi 6 // $6 loop
  05bc:39 0c            pushi c // $c nsRight
  05be:43 40 04         callk Random 4 

  05c1:65 12             aTop seconds 
  05c3:32 0160            jmp code_0726 

        code_05c6
  05c6:3c                 dup 
  05c7:35 06              ldi 6 
  05c9:1a                 eq? 
  05ca:31 32              bnt code_05fe 
  05cc:39 06            pushi 6 // $6 loop
  05ce:78               push1 
  05cf:39 05            pushi 5 // $5 view
  05d1:39 07            pushi 7 // $7 cel
  05d3:78               push1 
  05d4:76               push0 
  05d5:39 7e            pushi 7e // $7e setCycle
  05d7:78               push1 
  05d8:51 1a            class End 
  05da:36                push 
  05db:72 034a          lofsa $0928 // Rudy
  05de:4a 12             send 12 

  05e0:7a               push2 
  05e1:78               push1 
  05e2:39 64            pushi 64 // $64 allTrue
  05e4:43 40 04         callk Random 4 

  05e7:36                push 
  05e8:35 32              ldi 32 
  05ea:22                 lt? 
  05eb:31 04              bnt code_05f1 
  05ed:35 08              ldi 8 
  05ef:65 0a             aTop state 

        code_05f1
  05f1:7a               push2 
  05f2:39 03            pushi 3 // $3 y
  05f4:39 06            pushi 6 // $6 loop
  05f6:43 40 04         callk Random 4 

  05f9:65 12             aTop seconds 
  05fb:32 0128            jmp code_0726 

        code_05fe
  05fe:3c                 dup 
  05ff:35 07              ldi 7 
  0601:1a                 eq? 
  0602:31 21              bnt code_0625 
  0604:39 06            pushi 6 // $6 loop
  0606:78               push1 
  0607:39 06            pushi 6 // $6 loop
  0609:39 07            pushi 7 // $7 cel
  060b:78               push1 
  060c:76               push0 
  060d:39 7e            pushi 7e // $7e setCycle
  060f:78               push1 
  0610:51 1a            class End 
  0612:36                push 
  0613:72 0312          lofsa $0928 // Rudy
  0616:4a 12             send 12 

  0618:7a               push2 
  0619:39 03            pushi 3 // $3 y
  061b:39 06            pushi 6 // $6 loop
  061d:43 40 04         callk Random 4 

  0620:65 12             aTop seconds 
  0622:32 0101            jmp code_0726 

        code_0625
  0625:3c                 dup 
  0626:35 08              ldi 8 
  0628:1a                 eq? 
  0629:31 18              bnt code_0643 
  062b:39 06            pushi 6 // $6 loop
  062d:78               push1 
  062e:39 06            pushi 6 // $6 loop
  0630:39 07            pushi 7 // $7 cel
  0632:78               push1 
  0633:7a               push2 
  0634:39 7e            pushi 7e // $7e setCycle
  0636:7a               push2 
  0637:51 1b            class Beg 
  0639:36                push 
  063a:7c            pushSelf 
  063b:72 02ea          lofsa $0928 // Rudy
  063e:4a 14             send 14 

  0640:32 00e3            jmp code_0726 

        code_0643
  0643:3c                 dup 
  0644:35 09              ldi 9 
  0646:1a                 eq? 
  0647:31 19              bnt code_0662 
  0649:39 07            pushi 7 // $7 cel
  064b:78               push1 
  064c:39 03            pushi 3 // $3 y
  064e:39 06            pushi 6 // $6 loop
  0650:78               push1 
  0651:39 05            pushi 5 // $5 view
  0653:39 7e            pushi 7e // $7e setCycle
  0655:7a               push2 
  0656:51 1b            class Beg 
  0658:36                push 
  0659:7c            pushSelf 
  065a:72 02cb          lofsa $0928 // Rudy
  065d:4a 14             send 14 

  065f:32 00c4            jmp code_0726 

        code_0662
  0662:3c                 dup 
  0663:35 0a              ldi a 
  0665:1a                 eq? 
  0666:31 1e              bnt code_0686 
  0668:7a               push2 
  0669:78               push1 
  066a:39 64            pushi 64 // $64 allTrue
  066c:43 40 04         callk Random 4 

  066f:36                push 
  0670:35 32              ldi 32 
  0672:22                 lt? 
  0673:31 04              bnt code_0679 
  0675:35 ff              ldi ff 
  0677:65 0a             aTop state 

        code_0679
  0679:7a               push2 
  067a:39 03            pushi 3 // $3 y
  067c:39 09            pushi 9 // $9 nsTop
  067e:43 40 04         callk Random 4 

  0681:65 12             aTop seconds 
  0683:32 00a0            jmp code_0726 

        code_0686
  0686:3c                 dup 
  0687:35 0b              ldi b 
  0689:1a                 eq? 
  068a:31 2d              bnt code_06b9 
  068c:39 06            pushi 6 // $6 loop
  068e:78               push1 
  068f:39 04            pushi 4 // $4 x
  0691:39 7e            pushi 7e // $7e setCycle
  0693:78               push1 
  0694:51 1a            class End 
  0696:36                push 
  0697:72 028e          lofsa $0928 // Rudy
  069a:4a 0c             send c 

  069c:7a               push2 
  069d:78               push1 
  069e:39 64            pushi 64 // $64 allTrue
  06a0:43 40 04         callk Random 4 

  06a3:36                push 
  06a4:35 32              ldi 32 
  06a6:22                 lt? 
  06a7:31 04              bnt code_06ad 
  06a9:35 0d              ldi d 
  06ab:65 0a             aTop state 

        code_06ad
  06ad:7a               push2 
  06ae:39 03            pushi 3 // $3 y
  06b0:39 09            pushi 9 // $9 nsTop
  06b2:43 40 04         callk Random 4 

  06b5:65 12             aTop seconds 
  06b7:33 6d              jmp code_0726 

        code_06b9
  06b9:3c                 dup 
  06ba:35 0c              ldi c 
  06bc:1a                 eq? 
  06bd:31 1c              bnt code_06db 
  06bf:39 06            pushi 6 // $6 loop
  06c1:78               push1 
  06c2:39 09            pushi 9 // $9 nsTop
  06c4:39 7e            pushi 7e // $7e setCycle
  06c6:78               push1 
  06c7:51 1a            class End 
  06c9:36                push 
  06ca:72 025b          lofsa $0928 // Rudy
  06cd:4a 0c             send c 

  06cf:7a               push2 
  06d0:39 03            pushi 3 // $3 y
  06d2:39 09            pushi 9 // $9 nsTop
  06d4:43 40 04         callk Random 4 

  06d7:65 12             aTop seconds 
  06d9:33 4b              jmp code_0726 

        code_06db
  06db:3c                 dup 
  06dc:35 0d              ldi d 
  06de:1a                 eq? 
  06df:31 1c              bnt code_06fd 
  06e1:39 07            pushi 7 // $7 cel
  06e3:78               push1 
  06e4:39 03            pushi 3 // $3 y
  06e6:39 7e            pushi 7e // $7e setCycle
  06e8:78               push1 
  06e9:51 1b            class Beg 
  06eb:36                push 
  06ec:72 0239          lofsa $0928 // Rudy
  06ef:4a 0c             send c 

  06f1:7a               push2 
  06f2:39 03            pushi 3 // $3 y
  06f4:39 09            pushi 9 // $9 nsTop
  06f6:43 40 04         callk Random 4 

  06f9:65 12             aTop seconds 
  06fb:33 29              jmp code_0726 

        code_06fd
  06fd:3c                 dup 
  06fe:35 0e              ldi e 
  0700:1a                 eq? 
  0701:31 23              bnt code_0726 
  0703:39 06            pushi 6 // $6 loop
  0705:78               push1 
  0706:39 04            pushi 4 // $4 x
  0708:39 07            pushi 7 // $7 cel
  070a:78               push1 
  070b:39 03            pushi 3 // $3 y
  070d:39 7e            pushi 7e // $7e setCycle
  070f:78               push1 
  0710:51 1b            class Beg 
  0712:36                push 
  0713:72 0212          lofsa $0928 // Rudy
  0716:4a 12             send 12 

  0718:7a               push2 
  0719:39 03            pushi 3 // $3 y
  071b:39 09            pushi 9 // $9 nsTop
  071d:43 40 04         callk Random 4 

  0720:65 12             aTop seconds 
  0722:35 ff              ldi ff 
  0724:65 0a             aTop state 

        code_0726
  0726:3a                toss 
  0727:48                 ret 
    )

)

// 0a4a
(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_0728
  0728:87 01              lap param1 
  072a:65 0a             aTop state 
  072c:36                push 
  072d:3c                 dup 
  072e:35 00              ldi 0 
  0730:1a                 eq? 
  0731:31 70              bnt code_07a3 
  0733:39 06            pushi 6 // $6 loop
  0735:76               push0 
  0736:72 01ef          lofsa $0928 // Rudy
  0739:4a 04             send 4 

  073b:36                push 
  073c:35 02              ldi 2 
  073e:1a                 eq? 
  073f:2f 0e               bt code_074f 
  0741:39 06            pushi 6 // $6 loop
  0743:76               push0 
  0744:72 01e1          lofsa $0928 // Rudy
  0747:4a 04             send 4 

  0749:36                push 
  074a:35 01              ldi 1 
  074c:1a                 eq? 
  074d:31 16              bnt code_0765 

        code_074f
  074f:39 06            pushi 6 // $6 loop
  0751:78               push1 
  0752:7a               push2 
  0753:39 07            pushi 7 // $7 cel
  0755:78               push1 
  0756:76               push0 
  0757:39 7e            pushi 7e // $7e setCycle
  0759:7a               push2 
  075a:51 1a            class End 
  075c:36                push 
  075d:7c            pushSelf 
  075e:72 01c7          lofsa $0928 // Rudy
  0761:4a 14             send 14 

  0763:33 04              jmp code_0769 

        code_0765
  0765:35 01              ldi 1 
  0767:65 10             aTop cycles 

        code_0769
  0769:38 00da          pushi da // $da inRect
  076c:39 04            pushi 4 // $4 x
  076e:38 00a0          pushi a0 // $a0 cycleDone
  0771:38 008a          pushi 8a // $8a enable
  0774:38 00aa          pushi aa // $aa triedToMove
  0777:38 0092          pushi 92 // $92 checkState
  077a:81 00              lag gEgo 
  077c:4a 0c             send c 

  077e:31 20              bnt code_07a0 
  0780:38 00d3          pushi d3 // $d3 setMotion
  0783:39 03            pushi 3 // $3 y
  0785:51 1d            class MoveTo 
  0787:36                push 
  0788:39 04            pushi 4 // $4 x
  078a:76               push0 
  078b:81 00              lag gEgo 
  078d:4a 04             send 4 

  078f:36                push 
  0790:39 03            pushi 3 // $3 y
  0792:76               push0 
  0793:81 00              lag gEgo 
  0795:4a 04             send 4 

  0797:36                push 
  0798:35 0a              ldi a 
  079a:04                 sub 
  079b:36                push 
  079c:81 00              lag gEgo 
  079e:4a 0a             send a 


        code_07a0
  07a0:32 013b            jmp code_08de 

        code_07a3
  07a3:3c                 dup 
  07a4:35 01              ldi 1 
  07a6:1a                 eq? 
  07a7:30 0092            bnt code_083c 
  07aa:38 00ca          pushi ca // $ca show
  07ad:76               push0 
  07ae:72 02cf          lofsa $0a80 // glass
  07b1:4a 04             send 4 

  07b3:76               push0 
  07b4:45 0f 00         callb procedure_000f 0 // cls 

  07b7:76               push0 
  07b8:45 03 00         callb procedure_0003 0 // HandsOff 

  07bb:39 05            pushi 5 // $5 view
  07bd:78               push1 
  07be:38 017c          pushi 17c // $17c sel_380
  07c1:38 00c5          pushi c5 // $c5 posn
  07c4:7a               push2 
  07c5:38 00a4          pushi a4 // $a4 cycleSpeed
  07c8:38 0091          pushi 91 // $91 isType
  07cb:39 7e            pushi 7e // $7e setCycle
  07cd:78               push1 
  07ce:51 17            class Walk 
  07d0:36                push 
  07d1:38 00a4          pushi a4 // $a4 cycleSpeed
  07d4:78               push1 
  07d5:76               push0 
  07d6:39 42            pushi 42 // $42 setPri
  07d8:78               push1 
  07d9:39 ff            pushi ff // $ff checkAni
  07db:39 12            pushi 12 // $12 illegalBits
  07dd:78               push1 
  07de:38 8000          pushi 8000 // $8000 sel_32768
  07e1:38 00d4          pushi d4 // $d4 setAvoider
  07e4:78               push1 
  07e5:38 00be          pushi be // $be offScreenOK
  07e8:78               push1 
  07e9:78               push1 
  07ea:39 56            pushi 56 // $56 new
  07ec:76               push0 
  07ed:51 21            class Avoid 
  07ef:4a 04             send 4 

  07f1:4a 06             send 6 

  07f3:36                push 
  07f4:38 00d3          pushi d3 // $d3 setMotion
  07f7:39 04            pushi 4 // $4 x
  07f9:51 1d            class MoveTo 
  07fb:36                push 
  07fc:39 45            pushi 45 // $45 done
  07fe:39 6d            pushi 6d // $6d addAfter
  0800:7c            pushSelf 
  0801:72 0124          lofsa $0928 // Rudy
  0804:4a 38             send 38 

  0806:38 00da          pushi da // $da inRect
  0809:39 04            pushi 4 // $4 x
  080b:39 43            pushi 43 // $43 at
  080d:39 6b            pushi 6b // $6b addToFront
  080f:39 47            pushi 47 // $47 wordFail
  0811:39 6f            pushi 6f // $6f handleEvent
  0813:81 00              lag gEgo 
  0815:4a 0c             send c 

  0817:31 20              bnt code_0839 
  0819:38 00d3          pushi d3 // $d3 setMotion
  081c:39 03            pushi 3 // $3 y
  081e:51 1d            class MoveTo 
  0820:36                push 
  0821:39 04            pushi 4 // $4 x
  0823:76               push0 
  0824:81 00              lag gEgo 
  0826:4a 04             send 4 

  0828:36                push 
  0829:39 03            pushi 3 // $3 y
  082b:76               push0 
  082c:81 00              lag gEgo 
  082e:4a 04             send 4 

  0830:36                push 
  0831:35 0a              ldi a 
  0833:04                 sub 
  0834:36                push 
  0835:81 00              lag gEgo 
  0837:4a 0a             send a 


        code_0839
  0839:32 00a2            jmp code_08de 

        code_083c
  083c:3c                 dup 
  083d:35 02              ldi 2 
  083f:1a                 eq? 
  0840:31 15              bnt code_0857 
  0842:38 00d3          pushi d3 // $d3 setMotion
  0845:39 04            pushi 4 // $4 x
  0847:51 1d            class MoveTo 
  0849:36                push 
  084a:39 ec            pushi ec // $ec get
  084c:39 60            pushi 60 // $60 size
  084e:7c            pushSelf 
  084f:72 00d6          lofsa $0928 // Rudy
  0852:4a 0c             send c 

  0854:32 0087            jmp code_08de 

        code_0857
  0857:3c                 dup 
  0858:35 03              ldi 3 
  085a:1a                 eq? 
  085b:31 10              bnt code_086d 
  085d:35 01              ldi 1 
  085f:a0 00be            sag global190 
  0862:76               push0 
  0863:40 f7b7 00        call proc_001e 0 

  0867:35 05              ldi 5 
  0869:65 12             aTop seconds 
  086b:33 71              jmp code_08de 

        code_086d
  086d:3c                 dup 
  086e:35 04              ldi 4 
  0870:1a                 eq? 
  0871:31 2f              bnt code_08a2 
  0873:76               push0 
  0874:40 f7bd 00        call proc_0035 0 

  0878:39 03            pushi 3 // $3 y
  087a:38 00f1          pushi f1 // $f1 write
  087d:39 0f            pushi f // $f lsBottom
  087f:39 58            pushi 58 // $58 dispose
  0881:46 00ff 0000 06  calle ff procedure_0000 6 // Print 

  0887:38 00d3          pushi d3 // $d3 setMotion
  088a:39 04            pushi 4 // $4 x
  088c:51 1d            class MoveTo 
  088e:36                push 
  088f:38 00a4          pushi a4 // $a4 cycleSpeed
  0892:38 0091          pushi 91 // $91 isType
  0895:7c            pushSelf 
  0896:72 008f          lofsa $0928 // Rudy
  0899:4a 0c             send c 

  089b:35 00              ldi 0 
  089d:a0 00be            sag global190 
  08a0:33 3c              jmp code_08de 

        code_08a2
  08a2:3c                 dup 
  08a3:35 05              ldi 5 
  08a5:1a                 eq? 
  08a6:31 36              bnt code_08de 
  08a8:7a               push2 
  08a9:89 00              lsg gEgo 
  08ab:74 007a          lofss $0928 // Rudy
  08ae:45 02 04         callb procedure_0002 4 // LookAt 

  08b1:76               push0 
  08b2:45 0f 00         callb procedure_000f 0 // cls 

  08b5:35 09              ldi 9 
  08b7:a0 00d5            sag global213 
  08ba:39 03            pushi 3 // $3 y
  08bc:78               push1 
  08bd:38 00f1          pushi f1 // $f1 write
  08c0:39 10            pushi 10 // $10 lsRight
  08c2:45 01 06         callb procedure_0001 6 // Say 

  08c5:76               push0 
  08c6:45 04 00         callb procedure_0004 0 // HandsOn 

  08c9:38 00d4          pushi d4 // $d4 setAvoider
  08cc:78               push1 
  08cd:76               push0 
  08ce:72 0057          lofsa $0928 // Rudy
  08d1:4a 06             send 6 

  08d3:39 7a            pushi 7a // $7a setScript
  08d5:78               push1 
  08d6:74 0147          lofss $0a20 // drink
  08d9:72 004c          lofsa $0928 // Rudy
  08dc:4a 06             send 6 


        code_08de
  08de:3a                toss 
  08df:48                 ret 
    )

)

// 0a7a
(instance glass of Prop
    (properties
        y $8a
        x $97
        z $0
        heading $0
        yStep $2
        view $17d
        loop $0
        cel $2
        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
    )
)

// 0ac8
(instance Fifi of Act
    (properties
        y $71
        x $79
        z $0
        heading $0
        yStep $2
        view $1d3
        loop $1
        cel $2
        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
    )
)



(procedure proc_001e
  001e:39 62            pushi 62 // $62 eachElementDo
  0020:78               push1 
  0021:38 0089          pushi 89 // $89 hide
  0024:81 05              lag gCast 
  0026:4a 06             send 6 

  0028:39 04            pushi 4 // $4 x
  002a:38 03e0          pushi 3e0 // $3e0 sel_992
  002d:39 06            pushi 6 // $6 loop
  002f:78               push1 
  0030:76               push0 
  0031:43 08 08         callk DrawPic 8 

  0034:48                 ret 
)

(procedure proc_0035
  0035:39 04            pushi 4 // $4 x
  0037:39 30            pushi 30 // $30 b-moveCnt
  0039:39 07            pushi 7 // $7 cel
  003b:78               push1 
  003c:76               push0 
  003d:43 08 08         callk DrawPic 8 

  0040:39 3c            pushi 3c // $3c doit
  0042:76               push0 
  0043:81 0a              lag gAddToPics 
  0045:4a 04             send 4 

  0047:39 62            pushi 62 // $62 eachElementDo
  0049:78               push1 
  004a:38 00ca          pushi ca // $ca show
  004d:81 05              lag gCast 
  004f:4a 06             send 6 

  0051:48                 ret 
)

