(script 403)

(string
    string_08b4 "Plate"
    string_08ba "RHead"
    string_08c0 "Rudy"
    string_08c5 "eatPie"
    string_08cc "goSee"
    string_08d2 "rudy"
    string_08d7 "rudyeat"
    string_08df ""
)

(said
    said_06c0 /rudolph
    said_06c4 avaler,get/desert,aliments
    said_06d0 get/coupe,cafe
    said_06d9 ecouter/rudolph
    said_06df look/desert,cafe
    said_06e8 look/rudolph
    said_06ee bonjour>
    said_06f2 raconter[/rudolph]/actress<about
    said_0700 raconter[/rudolph]/gertie<about
)

(synonym
    rudolph | rudy = person | personne
    rudolph | rudy = fellow | gars | gentleman | guy | homme | man | type
)

(local
    local0 = $0000
    local1 = $0000
)

// 0714
(instance public rudyeat of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_0074
  0074:39 57            pushi 57 // $57 init
  0076:76               push0 
  0077:57 36 04         super Rgn 4 

  007a:89 76              lsg gMustDos 
  007c:35 01              ldi 1 
  007e:12                 and 
  007f:18                 not 
  0080:31 30              bnt code_00b2 
  0082:39 03            pushi 3 // $3 y
  0084:38 0087          pushi 87 // $87 clean
  0087:39 04            pushi 4 // $4 x
  0089:39 29            pushi 29 // $29 edit
  008b:45 15 06         callb procedure_0015 6 // LoadMany 

  008e:39 05            pushi 5 // $5 view
  0090:38 0084          pushi 84 // $84 stop
  0093:39 1d            pushi 1d // $1d back
  0095:39 5e            pushi 5e // $5e respondsTo
  0097:39 5f            pushi 5f // $5f yourself
  0099:39 60            pushi 60 // $60 size
  009b:45 15 0a         callb procedure_0015 a // LoadMany 

  009e:7a               push2 
  009f:38 0082          pushi 82 // $82 owner
  00a2:38 0196          pushi 196 // $196 sel_406
  00a5:43 00 04         callk Load 4 

  00a8:7a               push2 
  00a9:38 0080          pushi 80 // $80 timeLeft
  00ac:38 0282          pushi 282 // $282 sel_642
  00af:43 00 04         callk Load 4 


        code_00b2
  00b2:39 03            pushi 3 // $3 y
  00b4:38 0080          pushi 80 // $80 timeLeft
  00b7:38 017c          pushi 17c // $17c sel_380
  00ba:38 038c          pushi 38c // $38c sel_908
  00bd:45 15 06         callb procedure_0015 6 // LoadMany 

  00c0:39 03            pushi 3 // $3 y
  00c2:38 008f          pushi 8f // $8f moveTo
  00c5:38 00f3          pushi f3 // $f3 close
  00c8:38 0175          pushi 175 // $175 sel_373
  00cb:45 15 06         callb procedure_0015 6 // LoadMany 

  00ce:34 0100            ldi 100 
  00d1:a0 00d0            sag global208 
  00d4:34 0175            ldi 175 
  00d7:a0 0181            sag global385 
  00da:39 42            pushi 42 // $42 setPri
  00dc:78               push1 
  00dd:39 09            pushi 9 // $9 nsTop
  00df:39 57            pushi 57 // $57 init
  00e1:76               push0 
  00e2:38 0089          pushi 89 // $89 hide
  00e5:76               push0 
  00e6:72 06c7          lofsa $07b0 // RHead
  00e9:4a 0e             send e 

  00eb:38 00c9          pushi c9 // $c9 ignoreActors
  00ee:78               push1 
  00ef:78               push1 
  00f0:39 42            pushi 42 // $42 setPri
  00f2:78               push1 
  00f3:39 09            pushi 9 // $9 nsTop
  00f5:39 57            pushi 57 // $57 init
  00f7:76               push0 
  00f8:38 00c6          pushi c6 // $c6 stopUpd
  00fb:76               push0 
  00fc:72 06ff          lofsa $07fe // Plate
  00ff:4a 14             send 14 

  0101:38 00c9          pushi c9 // $c9 ignoreActors
  0104:78               push1 
  0105:78               push1 
  0106:39 12            pushi 12 // $12 illegalBits
  0108:78               push1 
  0109:76               push0 
  010a:72 073f          lofsa $084c // Rudy
  010d:4a 0c             send c 

  010f:38 00c5          pushi c5 // $c5 posn
  0112:7a               push2 
  0113:39 6c            pushi 6c // $6c addToEnd
  0115:39 64            pushi 64 // $64 allTrue
  0117:39 42            pushi 42 // $42 setPri
  0119:78               push1 
  011a:39 09            pushi 9 // $9 nsTop
  011c:39 57            pushi 57 // $57 init
  011e:76               push0 
  011f:72 072a          lofsa $084c // Rudy
  0122:4a 12             send 12 

  0124:39 7a            pushi 7a // $7a setScript
  0126:78               push1 
  0127:74 0622          lofss $074c // eatPie
  012a:54 06             self 6 

  012c:48                 ret 
    )

    (method (doit) // method_012d
  012d:39 3c            pushi 3c // $3c doit
  012f:76               push0 
  0130:57 36 04         super Rgn 4 

  0133:48                 ret 
    )

    (method (dispose) // method_0134
  0134:78               push1 
  0135:38 03d9          pushi 3d9 // $3d9 sel_985
  0138:43 03 02         callk DisposeScript 2 

  013b:39 58            pushi 58 // $58 dispose
  013d:76               push0 
  013e:57 36 04         super Rgn 4 

  0141:48                 ret 
    )

    (method (handleEvent) // method_0142
  0142:39 6f            pushi 6f // $6f handleEvent
  0144:78               push1 
  0145:8f 01              lsp param1 
  0147:57 36 06         super Rgn 6 

  014a:39 4c            pushi 4c // $4c claimed
  014c:76               push0 
  014d:87 01              lap param1 
  014f:4a 04             send 4 

  0151:31 03              bnt code_0156 
  0153:35 01              ldi 1 
  0155:48                 ret 

        code_0156
  0156:39 22            pushi 22 // $22 type
  0158:76               push0 
  0159:87 01              lap param1 
  015b:4a 04             send 4 

  015d:36                push 
  015e:34 0080            ldi 80 
  0161:1a                 eq? 
  0162:30 0152            bnt code_02b7 
  0165:78               push1 
  0166:74 0585          lofss $06ee // bonjour>
  0169:43 25 02         callk Said 2 

  016c:30 0105            bnt code_0274 
  016f:78               push1 
  0170:74 054d          lofss $06c0 // /rudolph
  0173:43 25 02         callk Said 2 

  0176:30 00f9            bnt code_0272 
  0179:35 09              ldi 9 
  017b:a0 00d5            sag global213 
  017e:8b 00              lsl local0 
  0180:3c                 dup 
  0181:35 00              ldi 0 
  0183:1a                 eq? 
  0184:31 17              bnt code_019d 
  0186:39 03            pushi 3 // $3 y
  0188:78               push1 
  0189:38 0193          pushi 193 // $193 sel_403
  018c:76               push0 
  018d:45 01 06         callb procedure_0001 6 // Say 

  0190:39 03            pushi 3 // $3 y
  0192:78               push1 
  0193:38 0193          pushi 193 // $193 sel_403
  0196:78               push1 
  0197:45 01 06         callb procedure_0001 6 // Say 

  019a:32 00d2            jmp code_026f 

        code_019d
  019d:3c                 dup 
  019e:35 01              ldi 1 
  01a0:1a                 eq? 
  01a1:31 1d              bnt code_01c0 
  01a3:39 03            pushi 3 // $3 y
  01a5:78               push1 
  01a6:38 0193          pushi 193 // $193 sel_403
  01a9:7a               push2 
  01aa:45 01 06         callb procedure_0001 6 // Say 

  01ad:35 0c              ldi c 
  01af:a0 00d5            sag global213 
  01b2:39 03            pushi 3 // $3 y
  01b4:76               push0 
  01b5:38 0193          pushi 193 // $193 sel_403
  01b8:39 03            pushi 3 // $3 y
  01ba:45 01 06         callb procedure_0001 6 // Say 

  01bd:32 00af            jmp code_026f 

        code_01c0
  01c0:3c                 dup 
  01c1:35 02              ldi 2 
  01c3:1a                 eq? 
  01c4:31 1e              bnt code_01e4 
  01c6:39 03            pushi 3 // $3 y
  01c8:78               push1 
  01c9:38 0193          pushi 193 // $193 sel_403
  01cc:39 04            pushi 4 // $4 x
  01ce:45 01 06         callb procedure_0001 6 // Say 

  01d1:35 0c              ldi c 
  01d3:a0 00d5            sag global213 
  01d6:39 03            pushi 3 // $3 y
  01d8:76               push0 
  01d9:38 0193          pushi 193 // $193 sel_403
  01dc:39 05            pushi 5 // $5 view
  01de:45 01 06         callb procedure_0001 6 // Say 

  01e1:32 008b            jmp code_026f 

        code_01e4
  01e4:3c                 dup 
  01e5:35 03              ldi 3 
  01e7:1a                 eq? 
  01e8:31 1d              bnt code_0207 
  01ea:39 03            pushi 3 // $3 y
  01ec:78               push1 
  01ed:38 0193          pushi 193 // $193 sel_403
  01f0:39 06            pushi 6 // $6 loop
  01f2:45 01 06         callb procedure_0001 6 // Say 

  01f5:35 0c              ldi c 
  01f7:a0 00d5            sag global213 
  01fa:39 03            pushi 3 // $3 y
  01fc:76               push0 
  01fd:38 0193          pushi 193 // $193 sel_403
  0200:39 07            pushi 7 // $7 cel
  0202:45 01 06         callb procedure_0001 6 // Say 

  0205:33 68              jmp code_026f 

        code_0207
  0207:3c                 dup 
  0208:35 04              ldi 4 
  020a:1a                 eq? 
  020b:31 1d              bnt code_022a 
  020d:39 03            pushi 3 // $3 y
  020f:78               push1 
  0210:38 0193          pushi 193 // $193 sel_403
  0213:39 08            pushi 8 // $8 underBits
  0215:45 01 06         callb procedure_0001 6 // Say 

  0218:35 0c              ldi c 
  021a:a0 00d5            sag global213 
  021d:39 03            pushi 3 // $3 y
  021f:76               push0 
  0220:38 0193          pushi 193 // $193 sel_403
  0223:39 09            pushi 9 // $9 nsTop
  0225:45 01 06         callb procedure_0001 6 // Say 

  0228:33 45              jmp code_026f 

        code_022a
  022a:3c                 dup 
  022b:35 05              ldi 5 
  022d:1a                 eq? 
  022e:31 0d              bnt code_023d 
  0230:39 03            pushi 3 // $3 y
  0232:78               push1 
  0233:38 0193          pushi 193 // $193 sel_403
  0236:39 0a            pushi a // $a nsLeft
  0238:45 01 06         callb procedure_0001 6 // Say 

  023b:33 32              jmp code_026f 

        code_023d
  023d:3c                 dup 
  023e:35 06              ldi 6 
  0240:1a                 eq? 
  0241:31 0d              bnt code_0250 
  0243:39 03            pushi 3 // $3 y
  0245:78               push1 
  0246:38 0193          pushi 193 // $193 sel_403
  0249:39 0b            pushi b // $b nsBottom
  024b:45 01 06         callb procedure_0001 6 // Say 

  024e:33 1f              jmp code_026f 

        code_0250
  0250:3c                 dup 
  0251:35 07              ldi 7 
  0253:1a                 eq? 
  0254:31 0d              bnt code_0263 
  0256:39 03            pushi 3 // $3 y
  0258:78               push1 
  0259:38 0193          pushi 193 // $193 sel_403
  025c:39 0c            pushi c // $c nsRight
  025e:45 01 06         callb procedure_0001 6 // Say 

  0261:33 0c              jmp code_026f 

        code_0263
  0263:7a               push2 
  0264:38 0193          pushi 193 // $193 sel_403
  0267:39 0d            pushi d // $d lsTop
  0269:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_026f
  026f:3a                toss 
  0270:c3 00              +al local0 

        code_0272
  0272:33 43              jmp code_02b7 

        code_0274
  0274:78               push1 
  0275:74 0461          lofss $06d9 // ecouter/rudolph
  0278:43 25 02         callk Said 2 

  027b:31 0e              bnt code_028b 
  027d:7a               push2 
  027e:38 0193          pushi 193 // $193 sel_403
  0281:39 0e            pushi e // $e lsLeft
  0283:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0289:33 2c              jmp code_02b7 

        code_028b
  028b:78               push1 
  028c:74 0450          lofss $06df // look/desert,cafe
  028f:43 25 02         callk Said 2 

  0292:31 0e              bnt code_02a2 
  0294:7a               push2 
  0295:38 0193          pushi 193 // $193 sel_403
  0298:39 0f            pushi f // $f lsBottom
  029a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02a0:33 15              jmp code_02b7 

        code_02a2
  02a2:78               push1 
  02a3:74 041e          lofss $06c4 // avaler,get/desert,aliments
  02a6:43 25 02         callk Said 2 

  02a9:31 0c              bnt code_02b7 
  02ab:7a               push2 
  02ac:38 0193          pushi 193 // $193 sel_403
  02af:39 10            pushi 10 // $10 lsRight
  02b1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02b7
  02b7:48                 ret 
    )

)

// 0746
(instance eatPie 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_02b8
  02b8:39 06            pushi 6 // $6 loop
  02ba:76               push0 
  02bb:72 058e          lofsa $084c // Rudy
  02be:4a 04             send 4 

  02c0:36                push 
  02c1:35 03              ldi 3 
  02c3:1a                 eq? 
  02c4:2f 0e               bt code_02d4 
  02c6:39 06            pushi 6 // $6 loop
  02c8:76               push0 
  02c9:72 0580          lofsa $084c // Rudy
  02cc:4a 04             send 4 

  02ce:36                push 
  02cf:35 06              ldi 6 
  02d1:1a                 eq? 
  02d2:31 27              bnt code_02fb 

        code_02d4
  02d4:39 07            pushi 7 // $7 cel
  02d6:76               push0 
  02d7:72 0572          lofsa $084c // Rudy
  02da:4a 04             send 4 

  02dc:36                push 
  02dd:35 00              ldi 0 
  02df:1a                 eq? 
  02e0:31 19              bnt code_02fb 
  02e2:38 00ca          pushi ca // $ca show
  02e5:76               push0 
  02e6:72 04c7          lofsa $07b0 // RHead
  02e9:4a 04             send 4 

  02eb:39 06            pushi 6 // $6 loop
  02ed:78               push1 
  02ee:39 06            pushi 6 // $6 loop
  02f0:39 07            pushi 7 // $7 cel
  02f2:78               push1 
  02f3:76               push0 
  02f4:72 0555          lofsa $084c // Rudy
  02f7:4a 0c             send c 

  02f9:33 09              jmp code_0304 

        code_02fb
  02fb:38 0089          pushi 89 // $89 hide
  02fe:76               push0 
  02ff:72 04ae          lofsa $07b0 // RHead
  0302:4a 04             send 4 


        code_0304
  0304:39 3c            pushi 3c // $3c doit
  0306:76               push0 
  0307:57 05 04         super Script 4 

  030a:48                 ret 
    )

    (method (changeState) // method_030b
  030b:87 01              lap param1 
  030d:65 0a             aTop state 
  030f:36                push 
  0310:3c                 dup 
  0311:35 00              ldi 0 
  0313:1a                 eq? 
  0314:31 41              bnt code_0357 
  0316:80 00d8            lag global216 
  0319:18                 not 
  031a:31 06              bnt code_0322 
  031c:35 ff              ldi ff 
  031e:65 0a             aTop state 
  0320:33 2e              jmp code_0350 

        code_0322
  0322:89 76              lsg gMustDos 
  0324:35 01              ldi 1 
  0326:12                 and 
  0327:18                 not 
  0328:31 1b              bnt code_0345 
  032a:89 76              lsg gMustDos 
  032c:35 01              ldi 1 
  032e:14                  or 
  032f:a1 76              sag gMustDos 
  0331:39 7a            pushi 7a // $7a setScript
  0333:78               push1 
  0334:7a               push2 
  0335:38 0196          pushi 196 // $196 sel_406
  0338:76               push0 
  0339:43 02 04         callk ScriptID 4 

  033c:36                push 
  033d:54 06             self 6 

  033f:35 ff              ldi ff 
  0341:65 0a             aTop state 
  0343:33 0b              jmp code_0350 

        code_0345
  0345:39 76            pushi 76 // $76 script
  0347:76               push0 
  0348:54 04             self 4 

  034a:31 04              bnt code_0350 
  034c:35 ff              ldi ff 
  034e:65 0a             aTop state 

        code_0350
  0350:35 01              ldi 1 
  0352:65 10             aTop cycles 
  0354:32 0107            jmp code_045e 

        code_0357
  0357:3c                 dup 
  0358:35 01              ldi 1 
  035a:1a                 eq? 
  035b:31 27              bnt code_0384 
  035d:39 05            pushi 5 // $5 view
  035f:78               push1 
  0360:38 018c          pushi 18c // $18c sel_396
  0363:39 42            pushi 42 // $42 setPri
  0365:78               push1 
  0366:39 09            pushi 9 // $9 nsTop
  0368:38 00a4          pushi a4 // $a4 cycleSpeed
  036b:78               push1 
  036c:78               push1 
  036d:39 06            pushi 6 // $6 loop
  036f:78               push1 
  0370:78               push1 
  0371:39 07            pushi 7 // $7 cel
  0373:78               push1 
  0374:76               push0 
  0375:39 7e            pushi 7e // $7e setCycle
  0377:7a               push2 
  0378:51 1a            class End 
  037a:36                push 
  037b:7c            pushSelf 
  037c:72 04cd          lofsa $084c // Rudy
  037f:4a 26             send 26 

  0381:32 00da            jmp code_045e 

        code_0384
  0384:3c                 dup 
  0385:35 02              ldi 2 
  0387:1a                 eq? 
  0388:31 2b              bnt code_03b5 
  038a:39 06            pushi 6 // $6 loop
  038c:78               push1 
  038d:7a               push2 
  038e:39 07            pushi 7 // $7 cel
  0390:78               push1 
  0391:76               push0 
  0392:39 7e            pushi 7e // $7e setCycle
  0394:78               push1 
  0395:51 16            class Fwd 
  0397:36                push 
  0398:72 04b1          lofsa $084c // Rudy
  039b:4a 12             send 12 

  039d:7a               push2 
  039e:78               push1 
  039f:39 64            pushi 64 // $64 allTrue
  03a1:43 40 04         callk Random 4 

  03a4:36                push 
  03a5:35 3c              ldi 3c 
  03a7:22                 lt? 
  03a8:31 04              bnt code_03ae 
  03aa:35 ff              ldi ff 
  03ac:65 0a             aTop state 

        code_03ae
  03ae:35 05              ldi 5 
  03b0:65 12             aTop seconds 
  03b2:32 00a9            jmp code_045e 

        code_03b5
  03b5:3c                 dup 
  03b6:35 03              ldi 3 
  03b8:1a                 eq? 
  03b9:31 1b              bnt code_03d6 
  03bb:39 06            pushi 6 // $6 loop
  03bd:78               push1 
  03be:39 03            pushi 3 // $3 y
  03c0:39 07            pushi 7 // $7 cel
  03c2:78               push1 
  03c3:76               push0 
  03c4:39 7e            pushi 7e // $7e setCycle
  03c6:78               push1 
  03c7:51 1a            class End 
  03c9:36                push 
  03ca:72 047f          lofsa $084c // Rudy
  03cd:4a 12             send 12 

  03cf:35 05              ldi 5 
  03d1:65 12             aTop seconds 
  03d3:32 0088            jmp code_045e 

        code_03d6
  03d6:3c                 dup 
  03d7:35 04              ldi 4 
  03d9:1a                 eq? 
  03da:31 1c              bnt code_03f8 
  03dc:39 06            pushi 6 // $6 loop
  03de:78               push1 
  03df:39 03            pushi 3 // $3 y
  03e1:39 7e            pushi 7e // $7e setCycle
  03e3:78               push1 
  03e4:51 1b            class Beg 
  03e6:36                push 
  03e7:72 0462          lofsa $084c // Rudy
  03ea:4a 0c             send c 

  03ec:7a               push2 
  03ed:39 03            pushi 3 // $3 y
  03ef:39 06            pushi 6 // $6 loop
  03f1:43 40 04         callk Random 4 

  03f4:65 12             aTop seconds 
  03f6:33 66              jmp code_045e 

        code_03f8
  03f8:3c                 dup 
  03f9:35 05              ldi 5 
  03fb:1a                 eq? 
  03fc:31 2e              bnt code_042c 
  03fe:39 06            pushi 6 // $6 loop
  0400:78               push1 
  0401:7a               push2 
  0402:78               push1 
  0403:39 64            pushi 64 // $64 allTrue
  0405:43 40 04         callk Random 4 

  0408:36                push 
  0409:35 33              ldi 33 
  040b:22                 lt? 
  040c:31 04              bnt code_0412 
  040e:35 04              ldi 4 
  0410:33 02              jmp code_0414 

        code_0412
  0412:35 05              ldi 5 

        code_0414
  0414:36                push 
  0415:39 7e            pushi 7e // $7e setCycle
  0417:78               push1 
  0418:51 1a            class End 
  041a:36                push 
  041b:72 0392          lofsa $07b0 // RHead
  041e:4a 0c             send c 

  0420:7a               push2 
  0421:39 03            pushi 3 // $3 y
  0423:39 06            pushi 6 // $6 loop
  0425:43 40 04         callk Random 4 

  0428:65 12             aTop seconds 
  042a:33 32              jmp code_045e 

        code_042c
  042c:3c                 dup 
  042d:35 06              ldi 6 
  042f:1a                 eq? 
  0430:31 2c              bnt code_045e 
  0432:39 7e            pushi 7e // $7e setCycle
  0434:78               push1 
  0435:51 1b            class Beg 
  0437:36                push 
  0438:72 0375          lofsa $07b0 // RHead
  043b:4a 06             send 6 

  043d:7a               push2 
  043e:78               push1 
  043f:39 64            pushi 64 // $64 allTrue
  0441:43 40 04         callk Random 4 

  0444:36                push 
  0445:35 3c              ldi 3c 
  0447:22                 lt? 
  0448:31 06              bnt code_0450 
  044a:35 ff              ldi ff 
  044c:65 0a             aTop state 
  044e:33 04              jmp code_0454 

        code_0450
  0450:35 02              ldi 2 
  0452:65 0a             aTop state 

        code_0454
  0454:7a               push2 
  0455:39 03            pushi 3 // $3 y
  0457:39 08            pushi 8 // $8 underBits
  0459:43 40 04         callk Random 4 

  045c:65 12             aTop seconds 

        code_045e
  045e:3a                toss 
  045f:48                 ret 
    )

)

// 077a
(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_0460
  0460:87 01              lap param1 
  0462:65 0a             aTop state 
  0464:36                push 
  0465:3c                 dup 
  0466:35 00              ldi 0 
  0468:1a                 eq? 
  0469:31 5a              bnt code_04c5 
  046b:76               push0 
  046c:45 0f 00         callb procedure_000f 0 // cls 

  046f:76               push0 
  0470:45 03 00         callb procedure_0003 0 // HandsOff 

  0473:35 01              ldi 1 
  0475:a3 01              sal local1 
  0477:39 05            pushi 5 // $5 view
  0479:78               push1 
  047a:38 017c          pushi 17c // $17c sel_380
  047d:39 7e            pushi 7e // $7e setCycle
  047f:78               push1 
  0480:51 17            class Walk 
  0482:36                push 
  0483:38 00a4          pushi a4 // $a4 cycleSpeed
  0486:78               push1 
  0487:76               push0 
  0488:39 42            pushi 42 // $42 setPri
  048a:78               push1 
  048b:39 ff            pushi ff // $ff checkAni
  048d:39 12            pushi 12 // $12 illegalBits
  048f:78               push1 
  0490:38 8000          pushi 8000 // $8000 sel_32768
  0493:38 00d4          pushi d4 // $d4 setAvoider
  0496:78               push1 
  0497:38 00be          pushi be // $be offScreenOK
  049a:78               push1 
  049b:78               push1 
  049c:39 56            pushi 56 // $56 new
  049e:76               push0 
  049f:51 21            class Avoid 
  04a1:4a 04             send 4 

  04a3:4a 06             send 6 

  04a5:36                push 
  04a6:38 00d3          pushi d3 // $d3 setMotion
  04a9:39 04            pushi 4 // $4 x
  04ab:51 1d            class MoveTo 
  04ad:36                push 
  04ae:38 012c          pushi 12c // $12c surrogate
  04b1:39 78            pushi 78 // $78 changeState
  04b3:7c            pushSelf 
  04b4:72 0395          lofsa $084c // Rudy
  04b7:4a 30             send 30 

  04b9:38 0089          pushi 89 // $89 hide
  04bc:76               push0 
  04bd:72 02f0          lofsa $07b0 // RHead
  04c0:4a 04             send 4 

  04c2:32 00be            jmp code_0583 

        code_04c5
  04c5:3c                 dup 
  04c6:35 01              ldi 1 
  04c8:1a                 eq? 
  04c9:31 11              bnt code_04dc 
  04cb:35 01              ldi 1 
  04cd:a0 00be            sag global190 
  04d0:76               push0 
  04d1:40 fb45 00        call proc_001a 0 

  04d5:35 05              ldi 5 
  04d7:65 12             aTop seconds 
  04d9:32 00a7            jmp code_0583 

        code_04dc
  04dc:3c                 dup 
  04dd:35 02              ldi 2 
  04df:1a                 eq? 
  04e0:31 2d              bnt code_050f 
  04e2:76               push0 
  04e3:40 fb4a 00        call proc_0031 0 

  04e7:39 03            pushi 3 // $3 y
  04e9:38 0193          pushi 193 // $193 sel_403
  04ec:39 11            pushi 11 // $11 signal
  04ee:39 58            pushi 58 // $58 dispose
  04f0:46 00ff 0000 06  calle ff procedure_0000 6 // Print 

  04f6:38 00d3          pushi d3 // $d3 setMotion
  04f9:39 04            pushi 4 // $4 x
  04fb:51 1d            class MoveTo 
  04fd:36                push 
  04fe:39 73            pushi 73 // $73 seconds
  0500:39 67            pushi 67 // $67 first
  0502:7c            pushSelf 
  0503:72 0346          lofsa $084c // Rudy
  0506:4a 0c             send c 

  0508:35 00              ldi 0 
  050a:a0 00be            sag global190 
  050d:33 74              jmp code_0583 

        code_050f
  050f:3c                 dup 
  0510:35 03              ldi 3 
  0512:1a                 eq? 
  0513:31 28              bnt code_053d 
  0515:76               push0 
  0516:45 0f 00         callb procedure_000f 0 // cls 

  0519:35 09              ldi 9 
  051b:a0 00d5            sag global213 
  051e:39 03            pushi 3 // $3 y
  0520:78               push1 
  0521:38 0193          pushi 193 // $193 sel_403
  0524:39 12            pushi 12 // $12 illegalBits
  0526:45 01 06         callb procedure_0001 6 // Say 

  0529:76               push0 
  052a:45 04 00         callb procedure_0004 0 // HandsOn 

  052d:38 00d4          pushi d4 // $d4 setAvoider
  0530:78               push1 
  0531:76               push0 
  0532:72 0317          lofsa $084c // Rudy
  0535:4a 06             send 6 

  0537:35 01              ldi 1 
  0539:65 10             aTop cycles 
  053b:33 46              jmp code_0583 

        code_053d
  053d:3c                 dup 
  053e:35 04              ldi 4 
  0540:1a                 eq? 
  0541:31 40              bnt code_0583 
  0543:39 05            pushi 5 // $5 view
  0545:78               push1 
  0546:38 018c          pushi 18c // $18c sel_396
  0549:39 06            pushi 6 // $6 loop
  054b:78               push1 
  054c:78               push1 
  054d:39 07            pushi 7 // $7 cel
  054f:78               push1 
  0550:76               push0 
  0551:38 00c9          pushi c9 // $c9 ignoreActors
  0554:78               push1 
  0555:78               push1 
  0556:39 12            pushi 12 // $12 illegalBits
  0558:78               push1 
  0559:76               push0 
  055a:38 00c5          pushi c5 // $c5 posn
  055d:7a               push2 
  055e:39 6c            pushi 6c // $6c addToEnd
  0560:39 64            pushi 64 // $64 allTrue
  0562:39 42            pushi 42 // $42 setPri
  0564:78               push1 
  0565:39 09            pushi 9 // $9 nsTop
  0567:39 57            pushi 57 // $57 init
  0569:76               push0 
  056a:72 02df          lofsa $084c // Rudy
  056d:4a 30             send 30 

  056f:38 00ca          pushi ca // $ca show
  0572:76               push0 
  0573:72 023a          lofsa $07b0 // RHead
  0576:4a 04             send 4 

  0578:39 7a            pushi 7a // $7a setScript
  057a:78               push1 
  057b:74 01ce          lofss $074c // eatPie
  057e:72 0199          lofsa $071a // rudyeat
  0581:4a 06             send 6 


        code_0583
  0583:3a                toss 
  0584:48                 ret 
    )

)

// 07aa
(instance RHead of Prop
    (properties
        y $64
        x $68
        z $17
        heading $0
        yStep $2
        view $18c
        loop $4
        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
    )
)

// 07f8
(instance Plate of Prop
    (properties
        y $63
        x $6e
        z $0
        heading $0
        yStep $2
        view $18c
        loop $0
        cel $1
        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
    )
)

// 0846
(instance Rudy of Act
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $18c
        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
        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_0585
  0585:78               push1 
  0586:39 33            pushi 33 // $33 b-di
  0588:45 07 02         callb procedure_0007 2 // IsFlag 

  058b:31 58              bnt code_05e5 
  058d:78               push1 
  058e:74 0161          lofss $06f2 // raconter[/rudolph]/actress<about
  0591:43 25 02         callk Said 2 

  0594:31 4f              bnt code_05e5 
  0596:35 09              ldi 9 
  0598:a0 00d5            sag global213 
  059b:89 7b              lsg gCorpseFlags 
  059d:35 04              ldi 4 
  059f:12                 and 
  05a0:31 38              bnt code_05da 
  05a2:88 0091            lsg global145 
  05a5:34 0080            ldi 80 
  05a8:12                 and 
  05a9:31 0d              bnt code_05b8 
  05ab:39 03            pushi 3 // $3 y
  05ad:78               push1 
  05ae:38 0193          pushi 193 // $193 sel_403
  05b1:39 13            pushi 13 // $13 brTop
  05b3:45 01 06         callb procedure_0001 6 // Say 

  05b6:33 20              jmp code_05d8 

        code_05b8
  05b8:39 03            pushi 3 // $3 y
  05ba:78               push1 
  05bb:38 0193          pushi 193 // $193 sel_403
  05be:39 14            pushi 14 // $14 brLeft
  05c0:45 01 06         callb procedure_0001 6 // Say 

  05c3:88 0091            lsg global145 
  05c6:34 0080            ldi 80 
  05c9:14                  or 
  05ca:a0 0091            sag global145 
  05cd:39 7a            pushi 7a // $7a setScript
  05cf:78               push1 
  05d0:74 01ad          lofss $0780 // goSee
  05d3:72 0144          lofsa $071a // rudyeat
  05d6:4a 06             send 6 


        code_05d8
  05d8:33 08              jmp code_05e2 

        code_05da
  05da:39 4c            pushi 4c // $4c claimed
  05dc:78               push1 
  05dd:76               push0 
  05de:87 01              lap param1 
  05e0:4a 06             send 6 


        code_05e2
  05e2:32 00d5            jmp code_06ba 

        code_05e5
  05e5:78               push1 
  05e6:39 33            pushi 33 // $33 b-di
  05e8:45 07 02         callb procedure_0007 2 // IsFlag 

  05eb:31 57              bnt code_0644 
  05ed:78               push1 
  05ee:74 010f          lofss $0700 // raconter[/rudolph]/gertie<about
  05f1:43 25 02         callk Said 2 

  05f4:31 4e              bnt code_0644 
  05f6:35 09              ldi 9 
  05f8:a0 00d5            sag global213 
  05fb:89 7b              lsg gCorpseFlags 
  05fd:35 01              ldi 1 
  05ff:12                 and 
  0600:31 38              bnt code_063a 
  0602:88 0091            lsg global145 
  0605:34 0080            ldi 80 
  0608:12                 and 
  0609:31 0d              bnt code_0618 
  060b:39 03            pushi 3 // $3 y
  060d:78               push1 
  060e:38 0193          pushi 193 // $193 sel_403
  0611:39 15            pushi 15 // $15 brBottom
  0613:45 01 06         callb procedure_0001 6 // Say 

  0616:33 20              jmp code_0638 

        code_0618
  0618:39 03            pushi 3 // $3 y
  061a:78               push1 
  061b:38 0193          pushi 193 // $193 sel_403
  061e:39 14            pushi 14 // $14 brLeft
  0620:45 01 06         callb procedure_0001 6 // Say 

  0623:88 0091            lsg global145 
  0626:34 0080            ldi 80 
  0629:14                  or 
  062a:a0 0091            sag global145 
  062d:39 7a            pushi 7a // $7a setScript
  062f:78               push1 
  0630:74 014d          lofss $0780 // goSee
  0633:72 00e4          lofsa $071a // rudyeat
  0636:4a 06             send 6 


        code_0638
  0638:33 08              jmp code_0642 

        code_063a
  063a:39 4c            pushi 4c // $4c claimed
  063c:78               push1 
  063d:76               push0 
  063e:87 01              lap param1 
  0640:4a 06             send 6 


        code_0642
  0642:33 76              jmp code_06ba 

        code_0644
  0644:78               push1 
  0645:74 0088          lofss $06d0 // get/coupe,cafe
  0648:43 25 02         callk Said 2 

  064b:31 0e              bnt code_065b 
  064d:7a               push2 
  064e:38 0193          pushi 193 // $193 sel_403
  0651:39 16            pushi 16 // $16 brRight
  0653:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0659:33 5f              jmp code_06ba 

        code_065b
  065b:39 03            pushi 3 // $3 y
  065d:7c            pushSelf 
  065e:8f 01              lsp param1 
  0660:39 03            pushi 3 // $3 y
  0662:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0668:31 1b              bnt code_0685 
  066a:88 00cf            lsg global207 
  066d:34 0100            ldi 100 
  0670:12                 and 
  0671:18                 not 
  0672:31 11              bnt code_0685 
  0674:39 4c            pushi 4c // $4c claimed
  0676:78               push1 
  0677:78               push1 
  0678:87 01              lap param1 
  067a:4a 06             send 6 

  067c:78               push1 
  067d:74 0252          lofss $08d2 // rudy
  0680:45 19 02         callb procedure_0019 2 // DoLook 

  0683:33 35              jmp code_06ba 

        code_0685
  0685:88 00cf            lsg global207 
  0688:34 0100            ldi 100 
  068b:12                 and 
  068c:31 2c              bnt code_06ba 
  068e:39 03            pushi 3 // $3 y
  0690:7c            pushSelf 
  0691:8f 01              lsp param1 
  0693:39 03            pushi 3 // $3 y
  0695:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  069b:2f 09               bt code_06a6 
  069d:78               push1 
  069e:74 0047          lofss $06e8 // look/rudolph
  06a1:43 25 02         callk Said 2 

  06a4:31 14              bnt code_06ba 

        code_06a6
  06a6:39 4c            pushi 4c // $4c claimed
  06a8:78               push1 
  06a9:78               push1 
  06aa:87 01              lap param1 
  06ac:4a 06             send 6 

  06ae:7a               push2 
  06af:38 0193          pushi 193 // $193 sel_403
  06b2:39 0f            pushi f // $f lsBottom
  06b4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06ba
  06ba:48                 ret 
  06bb:00                bnot 
    )

)



(procedure proc_001a
  001a:39 62            pushi 62 // $62 eachElementDo
  001c:78               push1 
  001d:38 0089          pushi 89 // $89 hide
  0020:81 05              lag gCast 
  0022:4a 06             send 6 

  0024:39 04            pushi 4 // $4 x
  0026:38 03e0          pushi 3e0 // $3e0 sel_992
  0029:39 06            pushi 6 // $6 loop
  002b:78               push1 
  002c:76               push0 
  002d:43 08 08         callk DrawPic 8 

  0030:48                 ret 
)

(procedure proc_0031
  0031:39 04            pushi 4 // $4 x
  0033:39 22            pushi 22 // $22 type
  0035:39 07            pushi 7 // $7 cel
  0037:78               push1 
  0038:76               push0 
  0039:43 08 08         callk DrawPic 8 

  003c:39 3c            pushi 3c // $3c doit
  003e:76               push0 
  003f:81 0a              lag gAddToPics 
  0041:4a 04             send 4 

  0043:39 62            pushi 62 // $62 eachElementDo
  0045:78               push1 
  0046:38 00ca          pushi ca // $ca show
  0049:81 05              lag gCast 
  004b:4a 06             send 6 

  004d:38 0089          pushi 89 // $89 hide
  0050:76               push0 
  0051:72 075c          lofsa $07b0 // RHead
  0054:4a 04             send 4 

  0056:48                 ret 
  0057:39 09            pushi 9 // $9 nsTop
  0059:59 01            &rest 1 
  005b:39 43            pushi 43 // $43 at
  005d:39 3c            pushi 3c // $3c doit
  005f:38 008c          pushi 8c // $8c track
  0062:39 21            pushi 21 // $21 font
  0064:39 04            pushi 4 // $4 x
  0066:39 1e            pushi 1e // $1e mode
  0068:78               push1 
  0069:39 53            pushi 53 // $53 draw
  006b:39 58            pushi 58 // $58 dispose
  006d:46 00ff 0000 12  calle ff procedure_0000 12 // Print 

  0073:48                 ret 
)

