(script 239)

(string
    string_0db4 "Bone"
    string_0db9 "Dish"
    string_0dbe "Jeeves"
    string_0dc5 "PetDog"
    string_0dcc "Rover"
    string_0dd2 "dogActions"
    string_0ddd "jfeed"
    string_0de3 "toss"
)

(said
    said_0aa2 /beauregard>
    said_0aa7 feed
    said_0aaa feed,deliver,debarrasser,balancer/bone
    said_0ab9 feed,deliver,debarrasser,balancer/bone[/(beauregard,doghouse)<away,de]
    said_0ad8 get,bouger,attirer,get
    said_0ae4 get/*/beauregard
    said_0aed get/arriere<bone[<de]
    said_0afb get/bone
    said_0b01 get/dish
    said_0b07 deliver/*/beauregard
    said_0b10 deliver/*<beauregard
    said_0b19 abattre
    said_0b1c embrasser
    said_0b1f look/beauregard
    said_0b25 look/butler
    said_0b2b look/dish
    said_0b31 caliner
    said_0b34 hold/bone[<beauregard]
    said_0b3f bonjour
    said_0b42 bonjour,ask,raconter/butler
    said_0b4e appeler,appeler
)

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

// 0b5a
(instance public jfeed of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_000c
  000c:39 57            pushi 57 // $57 init
  000e:76               push0 
  000f:57 36 04         super Rgn 4 

  0012:7a               push2 
  0013:38 0087          pushi 87 // $87 clean
  0016:39 04            pushi 4 // $4 x
  0018:43 00 04         callk Load 4 

  001b:7a               push2 
  001c:38 0082          pushi 82 // $82 owner
  001f:38 03d9          pushi 3d9 // $3d9 sel_985
  0022:45 15 04         callb procedure_0015 4 // LoadMany 

  0025:7a               push2 
  0026:38 0080          pushi 80 // $80 timeLeft
  0029:38 0208          pushi 208 // $208 sel_520
  002c:43 00 04         callk Load 4 

  002f:88 00a5            lsg gAct 
  0032:35 01              ldi 1 
  0034:1e                 gt? 
  0035:31 05              bnt code_003c 
  0037:35 11              ldi 11 
  0039:a0 009b            sag global155 

        code_003c
  003c:38 00ee          pushi ee // $ee has
  003f:78               push1 
  0040:39 0c            pushi c // $c nsRight
  0042:81 00              lag gEgo 
  0044:4a 06             send 6 

  0046:31 13              bnt code_005b 
  0048:7a               push2 
  0049:38 0080          pushi 80 // $80 timeLeft
  004c:39 30            pushi 30 // $30 b-moveCnt
  004e:43 00 04         callk Load 4 

  0051:7a               push2 
  0052:38 0082          pushi 82 // $82 owner
  0055:38 03df          pushi 3df // $3df sel_991
  0058:43 00 04         callk Load 4 


        code_005b
  005b:88 009b            lsg global155 
  005e:35 02              ldi 2 
  0060:20                 ge? 
  0061:31 0e              bnt code_0071 
  0063:39 57            pushi 57 // $57 init
  0065:76               push0 
  0066:38 00c6          pushi c6 // $c6 stopUpd
  0069:76               push0 
  006a:72 0bbd          lofsa $0c2a // Dish
  006d:4a 08             send 8 

  006f:33 0c              jmp code_007d 

        code_0071
  0071:39 57            pushi 57 // $57 init
  0073:76               push0 
  0074:38 0089          pushi 89 // $89 hide
  0077:76               push0 
  0078:72 0baf          lofsa $0c2a // Dish
  007b:4a 08             send 8 


        code_007d
  007d:72 0baa          lofsa $0c2a // Dish
  0080:a0 0177            sag global375 
  0083:88 00a5            lsg gAct 
  0086:35 01              ldi 1 
  0088:20                 ge? 
  0089:31 6c              bnt code_00f7 
  008b:88 009b            lsg global155 
  008e:35 01              ldi 1 
  0090:1e                 gt? 
  0091:2f 08               bt code_009b 
  0093:88 00a5            lsg gAct 
  0096:35 01              ldi 1 
  0098:1e                 gt? 
  0099:31 3e              bnt code_00d9 

        code_009b
  009b:35 01              ldi 1 
  009d:a0 00a2            sag global162 
  00a0:35 02              ldi 2 
  00a2:a3 00              sal local0 
  00a4:39 05            pushi 5 // $5 view
  00a6:78               push1 
  00a7:38 0208          pushi 208 // $208 sel_520
  00aa:39 12            pushi 12 // $12 illegalBits
  00ac:78               push1 
  00ad:76               push0 
  00ae:38 00c5          pushi c5 // $c5 posn
  00b1:7a               push2 
  00b2:38 00a3          pushi a3 // $a3 startUpd
  00b5:38 009b          pushi 9b // $9b bottom
  00b8:39 06            pushi 6 // $6 loop
  00ba:78               push1 
  00bb:7a               push2 
  00bc:39 07            pushi 7 // $7 cel
  00be:78               push1 
  00bf:76               push0 
  00c0:38 00c9          pushi c9 // $c9 ignoreActors
  00c3:78               push1 
  00c4:78               push1 
  00c5:39 57            pushi 57 // $57 init
  00c7:76               push0 
  00c8:39 7a            pushi 7a // $7a setScript
  00ca:78               push1 
  00cb:74 0af8          lofss $0bc6 // dogActions
  00ce:38 00c6          pushi c6 // $c6 stopUpd
  00d1:76               push0 
  00d2:72 0ba7          lofsa $0c7c // Rover
  00d5:4a 34             send 34 

  00d7:33 18              jmp code_00f1 

        code_00d9
  00d9:39 05            pushi 5 // $5 view
  00db:78               push1 
  00dc:38 0208          pushi 208 // $208 sel_520
  00df:38 00c5          pushi c5 // $c5 posn
  00e2:7a               push2 
  00e3:38 0154          pushi 154 // $154 itemY
  00e6:38 00a0          pushi a0 // $a0 cycleDone
  00e9:39 57            pushi 57 // $57 init
  00eb:76               push0 
  00ec:72 0b8d          lofsa $0c7c // Rover
  00ef:4a 12             send 12 


        code_00f1
  00f1:72 0b88          lofsa $0c7c // Rover
  00f4:a0 0176            sag global374 

        code_00f7
  00f7:88 009b            lsg global155 
  00fa:35 02              ldi 2 
  00fc:22                 lt? 
  00fd:31 3d              bnt code_013c 
  00ff:88 00a5            lsg gAct 
  0102:35 01              ldi 1 
  0104:1a                 eq? 
  0105:31 35              bnt code_013c 
  0107:39 04            pushi 4 // $4 x
  0109:38 0080          pushi 80 // $80 timeLeft
  010c:38 01b8          pushi 1b8 // $1b8 sel_440
  010f:38 01bd          pushi 1bd // $1bd sel_445
  0112:38 020e          pushi 20e // $20e sel_526
  0115:45 15 08         callb procedure_0015 8 // LoadMany 

  0118:88 009b            lsg global155 
  011b:35 00              ldi 0 
  011d:1a                 eq? 
  011e:31 14              bnt code_0134 
  0120:39 06            pushi 6 // $6 loop
  0122:78               push1 
  0123:7a               push2 
  0124:38 00c5          pushi c5 // $c5 posn
  0127:7a               push2 
  0128:38 0080          pushi 80 // $80 timeLeft
  012b:39 75            pushi 75 // $75 register
  012d:72 0bb4          lofsa $0ce4 // Jeeves
  0130:4a 0e             send e 

  0132:33 08              jmp code_013c 

        code_0134
  0134:39 57            pushi 57 // $57 init
  0136:76               push0 
  0137:72 0baa          lofsa $0ce4 // Jeeves
  013a:4a 04             send 4 


        code_013c
  013c:88 0172            lsg global370 
  013f:35 01              ldi 1 
  0141:1e                 gt? 
  0142:31 3c              bnt code_0180 
  0144:88 009b            lsg global155 
  0147:35 10              ldi 10 
  0149:1a                 eq? 
  014a:31 34              bnt code_0180 
  014c:88 00a5            lsg gAct 
  014f:35 01              ldi 1 
  0151:1a                 eq? 
  0152:31 2c              bnt code_0180 
  0154:35 5a              ldi 5a 
  0156:a0 0172            sag global370 
  0159:39 05            pushi 5 // $5 view
  015b:78               push1 
  015c:38 01b8          pushi 1b8 // $1b8 sel_440
  015f:39 04            pushi 4 // $4 x
  0161:78               push1 
  0162:38 012c          pushi 12c // $12c surrogate
  0165:39 03            pushi 3 // $3 y
  0167:78               push1 
  0168:39 35            pushi 35 // $35 b-incr
  016a:39 57            pushi 57 // $57 init
  016c:76               push0 
  016d:72 0b74          lofsa $0ce4 // Jeeves
  0170:4a 16             send 16 

  0172:39 7a            pushi 7a // $7a setScript
  0174:78               push1 
  0175:7a               push2 
  0176:38 0183          pushi 183 // $183 sel_387
  0179:76               push0 
  017a:43 02 04         callk ScriptID 4 

  017d:36                push 
  017e:54 06             self 6 


        code_0180
  0180:72 0b61          lofsa $0ce4 // Jeeves
  0183:a0 0175            sag global373 
  0186:48                 ret 
    )

    (method (doit) // method_0187
  0187:38 00db          pushi db // $db onControl
  018a:78               push1 
  018b:78               push1 
  018c:81 00              lag gEgo 
  018e:4a 06             send 6 

  0190:36                push 
  0191:35 01              ldi 1 
  0193:12                 and 
  0194:31 2a              bnt code_01c0 
  0196:88 009b            lsg global155 
  0199:35 02              ldi 2 
  019b:22                 lt? 
  019c:31 22              bnt code_01c0 
  019e:88 00a5            lsg gAct 
  01a1:35 01              ldi 1 
  01a3:1a                 eq? 
  01a4:31 1a              bnt code_01c0 
  01a6:63 08             pToa script 
  01a8:18                 not 
  01a9:31 15              bnt code_01c0 
  01ab:78               push1 
  01ac:38 03de          pushi 3de // $3de sel_990
  01af:43 03 02         callk DisposeScript 2 

  01b2:39 7a            pushi 7a // $7a setScript
  01b4:78               push1 
  01b5:7a               push2 
  01b6:38 0182          pushi 182 // $182 sel_386
  01b9:76               push0 
  01ba:43 02 04         callk ScriptID 4 

  01bd:36                push 
  01be:54 06             self 6 


        code_01c0
  01c0:88 009b            lsg global155 
  01c3:35 02              ldi 2 
  01c5:20                 ge? 
  01c6:31 1e              bnt code_01e6 
  01c8:88 00a5            lsg gAct 
  01cb:35 01              ldi 1 
  01cd:20                 ge? 
  01ce:31 16              bnt code_01e6 
  01d0:39 76            pushi 76 // $76 script
  01d2:76               push0 
  01d3:72 0aa6          lofsa $0c7c // Rover
  01d6:4a 04             send 4 

  01d8:18                 not 
  01d9:31 0b              bnt code_01e6 
  01db:39 7a            pushi 7a // $7a setScript
  01dd:78               push1 
  01de:74 09e5          lofss $0bc6 // dogActions
  01e1:72 0a98          lofsa $0c7c // Rover
  01e4:4a 06             send 6 


        code_01e6
  01e6:88 0172            lsg global370 
  01e9:35 64              ldi 64 
  01eb:1a                 eq? 
  01ec:31 4c              bnt code_023a 
  01ee:88 00a5            lsg gAct 
  01f1:35 01              ldi 1 
  01f3:1a                 eq? 
  01f4:31 44              bnt code_023a 
  01f6:38 00db          pushi db // $db onControl
  01f9:78               push1 
  01fa:78               push1 
  01fb:81 00              lag gEgo 
  01fd:4a 06             send 6 

  01ff:36                push 
  0200:35 01              ldi 1 
  0202:12                 and 
  0203:31 30              bnt code_0235 
  0205:38 00e3          pushi e3 // $e3 controls
  0208:76               push0 
  0209:51 2b            class User 
  020b:4a 04             send 4 

  020d:31 26              bnt code_0235 
  020f:39 05            pushi 5 // $5 view
  0211:78               push1 
  0212:38 01b8          pushi 1b8 // $1b8 sel_440
  0215:39 04            pushi 4 // $4 x
  0217:78               push1 
  0218:38 00eb          pushi eb // $eb edgeHit
  021b:39 03            pushi 3 // $3 y
  021d:78               push1 
  021e:39 35            pushi 35 // $35 b-incr
  0220:72 0ac1          lofsa $0ce4 // Jeeves
  0223:4a 12             send 12 

  0225:39 7a            pushi 7a // $7a setScript
  0227:78               push1 
  0228:7a               push2 
  0229:38 0183          pushi 183 // $183 sel_387
  022c:76               push0 
  022d:43 02 04         callk ScriptID 4 

  0230:36                push 
  0231:54 06             self 6 

  0233:33 05              jmp code_023a 

        code_0235
  0235:35 6e              ldi 6e 
  0237:a0 0172            sag global370 

        code_023a
  023a:39 3c            pushi 3c // $3c doit
  023c:76               push0 
  023d:57 36 04         super Rgn 4 

  0240:48                 ret 
    )

    (method (dispose) // method_0241
  0241:39 58            pushi 58 // $58 dispose
  0243:76               push0 
  0244:57 36 04         super Rgn 4 

  0247:78               push1 
  0248:38 03df          pushi 3df // $3df sel_991
  024b:43 03 02         callk DisposeScript 2 

  024e:78               push1 
  024f:38 03d9          pushi 3d9 // $3d9 sel_985
  0252:43 03 02         callk DisposeScript 2 

  0255:48                 ret 
    )

    (method (handleEvent) // method_0256
  0256:3f 01             link 1 // (var $1)
  0258:78               push1 
  0259:38 03de          pushi 3de // $3de sel_990
  025c:43 03 02         callk DisposeScript 2 

  025f:39 4c            pushi 4c // $4c claimed
  0261:76               push0 
  0262:87 01              lap param1 
  0264:4a 04             send 4 

  0266:31 03              bnt code_026b 
  0268:35 01              ldi 1 
  026a:48                 ret 

        code_026b
  026b:39 22            pushi 22 // $22 type
  026d:76               push0 
  026e:87 01              lap param1 
  0270:4a 04             send 4 

  0272:36                push 
  0273:34 0080            ldi 80 
  0276:1a                 eq? 
  0277:30 012f            bnt code_03a9 
  027a:78               push1 
  027b:74 08b6          lofss $0b34 // hold/bone[<beauregard]
  027e:43 25 02         callk Said 2 

  0281:31 3a              bnt code_02bd 
  0283:38 00ee          pushi ee // $ee has
  0286:78               push1 
  0287:39 0c            pushi c // $c nsRight
  0289:81 00              lag gEgo 
  028b:4a 06             send 6 

  028d:31 27              bnt code_02b6 
  028f:8b 00              lsl local0 
  0291:3c                 dup 
  0292:35 02              ldi 2 
  0294:1a                 eq? 
  0295:31 11              bnt code_02a8 
  0297:7a               push2 
  0298:38 00ef          pushi ef // $ef ownedBy
  029b:76               push0 
  029c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02a2:35 01              ldi 1 
  02a4:a3 03              sal local3 
  02a6:33 0b              jmp code_02b3 

        code_02a8
  02a8:7a               push2 
  02a9:38 00ef          pushi ef // $ef ownedBy
  02ac:78               push1 
  02ad:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02b3
  02b3:3a                toss 
  02b4:33 04              jmp code_02ba 

        code_02b6
  02b6:76               push0 
  02b7:45 0d 00         callb procedure_000d 0 // DontHave 


        code_02ba
  02ba:32 00ec            jmp code_03a9 

        code_02bd
  02bd:78               push1 
  02be:74 07e9          lofss $0aaa // feed,deliver,debarrasser,balancer/bone
  02c1:43 25 02         callk Said 2 

  02c4:2f 09               bt code_02cf 
  02c6:78               push1 
  02c7:74 07ef          lofss $0ab9 // feed,deliver,debarrasser,balancer/bone[/(beauregard,doghouse)<away,de]
  02ca:43 25 02         callk Said 2 

  02cd:31 5f              bnt code_032e 

        code_02cf
  02cf:39 76            pushi 76 // $76 script
  02d1:76               push0 
  02d2:72 09a7          lofsa $0c7c // Rover
  02d5:4a 04             send 4 

  02d7:31 47              bnt code_0320 
  02d9:38 00ee          pushi ee // $ee has
  02dc:78               push1 
  02dd:39 0c            pushi c // $c nsRight
  02df:81 00              lag gEgo 
  02e1:4a 06             send 6 

  02e3:31 35              bnt code_031a 
  02e5:39 03            pushi 3 // $3 y
  02e7:76               push0 
  02e8:81 00              lag gEgo 
  02ea:4a 04             send 4 

  02ec:36                push 
  02ed:35 5f              ldi 5f 
  02ef:1e                 gt? 
  02f0:31 1b              bnt code_030d 
  02f2:39 04            pushi 4 // $4 x
  02f4:76               push0 
  02f5:81 00              lag gEgo 
  02f7:4a 04             send 4 

  02f9:36                push 
  02fa:35 2d              ldi 2d 
  02fc:1e                 gt? 
  02fd:31 0e              bnt code_030d 
  02ff:76               push0 
  0300:45 03 00         callb procedure_0003 0 // HandsOff 

  0303:39 7a            pushi 7a // $7a setScript
  0305:78               push1 
  0306:74 0889          lofss $0b92 // toss
  0309:54 06             self 6 

  030b:33 0b              jmp code_0318 

        code_030d
  030d:7a               push2 
  030e:38 00ef          pushi ef // $ef ownedBy
  0311:7a               push2 
  0312:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0318
  0318:33 04              jmp code_031e 

        code_031a
  031a:76               push0 
  031b:45 0d 00         callb procedure_000d 0 // DontHave 


        code_031e
  031e:33 0c              jmp code_032c 

        code_0320
  0320:7a               push2 
  0321:38 00ef          pushi ef // $ef ownedBy
  0324:39 03            pushi 3 // $3 y
  0326:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_032c
  032c:33 7b              jmp code_03a9 

        code_032e
  032e:78               push1 
  032f:74 07d5          lofss $0b07 // deliver/*/beauregard
  0332:43 25 02         callk Said 2 

  0335:2f 09               bt code_0340 
  0337:78               push1 
  0338:74 07d5          lofss $0b10 // deliver/*<beauregard
  033b:43 25 02         callk Said 2 

  033e:31 0e              bnt code_034e 

        code_0340
  0340:7a               push2 
  0341:38 00ef          pushi ef // $ef ownedBy
  0344:39 04            pushi 4 // $4 x
  0346:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  034c:33 5b              jmp code_03a9 

        code_034e
  034e:78               push1 
  034f:74 079b          lofss $0aed // get/arriere<bone[<de]
  0352:43 25 02         callk Said 2 

  0355:2f 12               bt code_0369 
  0357:78               push1 
  0358:74 0789          lofss $0ae4 // get/*/beauregard
  035b:43 25 02         callk Said 2 

  035e:2f 09               bt code_0369 
  0360:78               push1 
  0361:74 0797          lofss $0afb // get/bone
  0364:43 25 02         callk Said 2 

  0367:31 40              bnt code_03a9 

        code_0369
  0369:8b 00              lsl local0 
  036b:35 03              ldi 3 
  036d:1a                 eq? 
  036e:31 0e              bnt code_037e 
  0370:7a               push2 
  0371:38 00ef          pushi ef // $ef ownedBy
  0374:39 05            pushi 5 // $5 view
  0376:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  037c:33 2b              jmp code_03a9 

        code_037e
  037e:38 0082          pushi 82 // $82 owner
  0381:76               push0 
  0382:39 43            pushi 43 // $43 at
  0384:78               push1 
  0385:39 0c            pushi c // $c nsRight
  0387:81 09              lag gInventory 
  0389:4a 06             send 6 

  038b:4a 04             send 4 

  038d:36                push 
  038e:35 0c              ldi c 
  0390:1a                 eq? 
  0391:31 0e              bnt code_03a1 
  0393:7a               push2 
  0394:38 00ef          pushi ef // $ef ownedBy
  0397:39 06            pushi 6 // $6 loop
  0399:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  039f:33 08              jmp code_03a9 

        code_03a1
  03a1:39 4c            pushi 4c // $4c claimed
  03a3:78               push1 
  03a4:76               push0 
  03a5:87 01              lap param1 
  03a7:4a 06             send 6 


        code_03a9
  03a9:48                 ret 
    )

)

// 0b8c
(instance toss 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_03aa
  03aa:39 3c            pushi 3c // $3c doit
  03ac:76               push0 
  03ad:57 05 04         super Script 4 

  03b0:67 0a             pTos state 
  03b2:35 01              ldi 1 
  03b4:1a                 eq? 
  03b5:31 45              bnt code_03fc 
  03b7:39 07            pushi 7 // $7 cel
  03b9:76               push0 
  03ba:81 00              lag gEgo 
  03bc:4a 04             send 4 

  03be:36                push 
  03bf:35 06              ldi 6 
  03c1:1a                 eq? 
  03c2:31 38              bnt code_03fc 
  03c4:38 00ed          pushi ed // $ed put
  03c7:7a               push2 
  03c8:39 0c            pushi c // $c nsRight
  03ca:39 0c            pushi c // $c nsRight
  03cc:81 00              lag gEgo 
  03ce:4a 08             send 8 

  03d0:38 00a4          pushi a4 // $a4 cycleSpeed
  03d3:78               push1 
  03d4:78               push1 
  03d5:38 00c8          pushi c8 // $c8 setLoop
  03d8:78               push1 
  03d9:39 04            pushi 4 // $4 x
  03db:39 7e            pushi 7e // $7e setCycle
  03dd:78               push1 
  03de:51 16            class Fwd 
  03e0:36                push 
  03e1:39 38            pushi 38 // $38 moveSpeed
  03e3:78               push1 
  03e4:7a               push2 
  03e5:38 00d3          pushi d3 // $d3 setMotion
  03e8:39 04            pushi 4 // $4 x
  03ea:51 23            class JumpTo 
  03ec:36                push 
  03ed:38 0125          pushi 125 // $125 winding
  03f0:38 009b          pushi 9b // $9b bottom
  03f3:7c            pushSelf 
  03f4:39 57            pushi 57 // $57 init
  03f6:76               push0 
  03f7:72 0952          lofsa $0d4c // Bone
  03fa:4a 28             send 28 


        code_03fc
  03fc:48                 ret 
    )

    (method (changeState) // method_03fd
  03fd:87 01              lap param1 
  03ff:65 0a             aTop state 
  0401:36                push 
  0402:3c                 dup 
  0403:35 00              ldi 0 
  0405:1a                 eq? 
  0406:31 33              bnt code_043b 
  0408:38 00da          pushi da // $da inRect
  040b:39 04            pushi 4 // $4 x
  040d:38 011d          pushi 11d // $11d minimum
  0410:38 0096          pushi 96 // $96 busy
  0413:38 012c          pushi 12c // $12c surrogate
  0416:38 009f          pushi 9f // $9f nextCel
  0419:81 00              lag gEgo 
  041b:4a 0c             send c 

  041d:31 15              bnt code_0434 
  041f:38 00d3          pushi d3 // $d3 setMotion
  0422:39 04            pushi 4 // $4 x
  0424:51 1d            class MoveTo 
  0426:36                push 
  0427:38 010e          pushi 10e // $10e overlay
  042a:38 0091          pushi 91 // $91 isType
  042d:7c            pushSelf 
  042e:81 00              lag gEgo 
  0430:4a 0c             send c 

  0432:33 04              jmp code_0438 

        code_0434
  0434:35 01              ldi 1 
  0436:65 10             aTop cycles 

        code_0438
  0438:32 0125            jmp code_0560 

        code_043b
  043b:3c                 dup 
  043c:35 01              ldi 1 
  043e:1a                 eq? 
  043f:30 00cc            bnt code_050e 
  0442:7a               push2 
  0443:89 00              lsg gEgo 
  0445:39 04            pushi 4 // $4 x
  0447:39 04            pushi 4 // $4 x
  0449:76               push0 
  044a:81 00              lag gEgo 
  044c:4a 04             send 4 

  044e:36                push 
  044f:39 03            pushi 3 // $3 y
  0451:76               push0 
  0452:81 00              lag gEgo 
  0454:4a 04             send 4 

  0456:36                push 
  0457:38 0125          pushi 125 // $125 winding
  045a:38 009b          pushi 9b // $9b bottom
  045d:43 43 08         callk GetAngle 8 

  0460:36                push 
  0461:43 50 04         callk DirLoop 4 

  0464:76               push0 
  0465:45 16 00         callb procedure_0016 0 // Ok 

  0468:38 00da          pushi da // $da inRect
  046b:39 04            pushi 4 // $4 x
  046d:38 00f2          pushi f2 // $f2 read
  0470:38 0098          pushi 98 // $98 center
  0473:38 0140          pushi 140 // $140 upRoomNo
  0476:38 00c8          pushi c8 // $c8 setLoop
  0479:81 00              lag gEgo 
  047b:4a 0c             send c 

  047d:31 09              bnt code_0488 
  047f:39 42            pushi 42 // $42 setPri
  0481:78               push1 
  0482:39 0e            pushi e // $e lsLeft
  0484:81 00              lag gEgo 
  0486:4a 06             send 6 


        code_0488
  0488:39 05            pushi 5 // $5 view
  048a:78               push1 
  048b:39 30            pushi 30 // $30 b-moveCnt
  048d:39 07            pushi 7 // $7 cel
  048f:78               push1 
  0490:76               push0 
  0491:39 7e            pushi 7e // $7e setCycle
  0493:78               push1 
  0494:51 1a            class End 
  0496:36                push 
  0497:81 00              lag gEgo 
  0499:4a 12             send 12 

  049b:39 42            pushi 42 // $42 setPri
  049d:78               push1 
  049e:39 0d            pushi d // $d lsTop
  04a0:38 00c9          pushi c9 // $c9 ignoreActors
  04a3:78               push1 
  04a4:78               push1 
  04a5:39 12            pushi 12 // $12 illegalBits
  04a7:78               push1 
  04a8:76               push0 
  04a9:38 00c5          pushi c5 // $c5 posn
  04ac:7a               push2 
  04ad:39 06            pushi 6 // $6 loop
  04af:76               push0 
  04b0:81 00              lag gEgo 
  04b2:4a 04             send 4 

  04b4:36                push 
  04b5:3c                 dup 
  04b6:35 00              ldi 0 
  04b8:1a                 eq? 
  04b9:31 0d              bnt code_04c8 
  04bb:39 04            pushi 4 // $4 x
  04bd:76               push0 
  04be:81 00              lag gEgo 
  04c0:4a 04             send 4 

  04c2:36                push 
  04c3:35 0b              ldi b 
  04c5:02                 add 
  04c6:33 31              jmp code_04f9 

        code_04c8
  04c8:3c                 dup 
  04c9:35 01              ldi 1 
  04cb:1a                 eq? 
  04cc:31 0d              bnt code_04db 
  04ce:39 04            pushi 4 // $4 x
  04d0:76               push0 
  04d1:81 00              lag gEgo 
  04d3:4a 04             send 4 

  04d5:36                push 
  04d6:35 0b              ldi b 
  04d8:04                 sub 
  04d9:33 1e              jmp code_04f9 

        code_04db
  04db:3c                 dup 
  04dc:35 02              ldi 2 
  04de:1a                 eq? 
  04df:31 0d              bnt code_04ee 
  04e1:39 04            pushi 4 // $4 x
  04e3:76               push0 
  04e4:81 00              lag gEgo 
  04e6:4a 04             send 4 

  04e8:36                push 
  04e9:35 07              ldi 7 
  04eb:04                 sub 
  04ec:33 0b              jmp code_04f9 

        code_04ee
  04ee:39 04            pushi 4 // $4 x
  04f0:76               push0 
  04f1:81 00              lag gEgo 
  04f3:4a 04             send 4 

  04f5:36                push 
  04f6:35 04              ldi 4 
  04f8:02                 add 

        code_04f9
  04f9:3a                toss 
  04fa:36                push 
  04fb:39 03            pushi 3 // $3 y
  04fd:76               push0 
  04fe:81 00              lag gEgo 
  0500:4a 04             send 4 

  0502:36                push 
  0503:35 1a              ldi 1a 
  0505:04                 sub 
  0506:36                push 
  0507:72 0842          lofsa $0d4c // Bone
  050a:4a 1a             send 1a 

  050c:33 52              jmp code_0560 

        code_050e
  050e:3c                 dup 
  050f:35 02              ldi 2 
  0511:1a                 eq? 
  0512:31 3c              bnt code_0550 
  0514:78               push1 
  0515:38 03df          pushi 3df // $3df sel_991
  0518:43 03 02         callk DisposeScript 2 

  051b:39 7e            pushi 7e // $7e setCycle
  051d:78               push1 
  051e:76               push0 
  051f:39 07            pushi 7 // $7 cel
  0521:78               push1 
  0522:76               push0 
  0523:39 42            pushi 42 // $42 setPri
  0525:78               push1 
  0526:39 ff            pushi ff // $ff checkAni
  0528:38 00c6          pushi c6 // $c6 stopUpd
  052b:76               push0 
  052c:72 081d          lofsa $0d4c // Bone
  052f:4a 16             send 16 

  0531:39 05            pushi 5 // $5 view
  0533:78               push1 
  0534:76               push0 
  0535:38 00c8          pushi c8 // $c8 setLoop
  0538:78               push1 
  0539:39 ff            pushi ff // $ff checkAni
  053b:39 42            pushi 42 // $42 setPri
  053d:78               push1 
  053e:39 ff            pushi ff // $ff checkAni
  0540:39 7e            pushi 7e // $7e setCycle
  0542:78               push1 
  0543:51 17            class Walk 
  0545:36                push 
  0546:81 00              lag gEgo 
  0548:4a 18             send 18 

  054a:35 01              ldi 1 
  054c:65 10             aTop cycles 
  054e:33 10              jmp code_0560 

        code_0550
  0550:3c                 dup 
  0551:35 03              ldi 3 
  0553:1a                 eq? 
  0554:31 0a              bnt code_0560 
  0556:c3 02              +al local2 
  0558:39 7a            pushi 7a // $7a setScript
  055a:78               push1 
  055b:76               push0 
  055c:63 08             pToa client 
  055e:4a 06             send 6 


        code_0560
  0560:3a                toss 
  0561:48                 ret 
    )

)

// 0bc0
(instance dogActions 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_0562
  0562:39 3c            pushi 3c // $3c doit
  0564:76               push0 
  0565:57 05 04         super Script 4 

  0568:83 01              lal local1 
  056a:31 11              bnt code_057d 
  056c:67 0a             pTos state 
  056e:35 05              ldi 5 
  0570:22                 lt? 
  0571:31 08              bnt code_057b 
  0573:35 06              ldi 6 
  0575:65 0a             aTop state 
  0577:35 01              ldi 1 
  0579:65 10             aTop cycles 

        code_057b
  057b:33 2b              jmp code_05a8 

        code_057d
  057d:83 02              lal local2 
  057f:31 12              bnt code_0593 
  0581:35 00              ldi 0 
  0583:a3 02              sal local2 
  0585:35 01              ldi 1 
  0587:65 0a             aTop state 
  0589:35 02              ldi 2 
  058b:65 10             aTop cycles 
  058d:35 04              ldi 4 
  058f:a3 00              sal local0 
  0591:33 15              jmp code_05a8 

        code_0593
  0593:83 03              lal local3 
  0595:31 11              bnt code_05a8 
  0597:8b 00              lsl local0 
  0599:3c                 dup 
  059a:35 02              ldi 2 
  059c:1a                 eq? 
  059d:31 08              bnt code_05a7 
  059f:35 00              ldi 0 
  05a1:65 0a             aTop state 
  05a3:35 01              ldi 1 
  05a5:65 10             aTop cycles 

        code_05a7
  05a7:3a                toss 

        code_05a8
  05a8:48                 ret 
    )

    (method (changeState) // method_05a9
  05a9:87 01              lap param1 
  05ab:65 0a             aTop state 
  05ad:36                push 
  05ae:3c                 dup 
  05af:35 00              ldi 0 
  05b1:1a                 eq? 
  05b2:31 2c              bnt code_05e0 
  05b4:39 05            pushi 5 // $5 view
  05b6:78               push1 
  05b7:38 0208          pushi 208 // $208 sel_520
  05ba:39 06            pushi 6 // $6 loop
  05bc:78               push1 
  05bd:7a               push2 
  05be:39 07            pushi 7 // $7 cel
  05c0:78               push1 
  05c1:76               push0 
  05c2:39 7e            pushi 7e // $7e setCycle
  05c4:78               push1 
  05c5:76               push0 
  05c6:38 00d4          pushi d4 // $d4 setAvoider
  05c9:78               push1 
  05ca:76               push0 
  05cb:38 00c9          pushi c9 // $c9 ignoreActors
  05ce:78               push1 
  05cf:78               push1 
  05d0:38 00c6          pushi c6 // $c6 stopUpd
  05d3:76               push0 
  05d4:72 06a5          lofsa $0c7c // Rover
  05d7:4a 28             send 28 

  05d9:35 02              ldi 2 
  05db:a3 00              sal local0 
  05dd:32 013a            jmp code_071a 

        code_05e0
  05e0:3c                 dup 
  05e1:35 01              ldi 1 
  05e3:1a                 eq? 
  05e4:31 33              bnt code_0619 
  05e6:35 00              ldi 0 
  05e8:a3 03              sal local3 
  05ea:39 05            pushi 5 // $5 view
  05ec:78               push1 
  05ed:38 020f          pushi 20f // $20f sel_527
  05f0:38 00c8          pushi c8 // $c8 setLoop
  05f3:78               push1 
  05f4:76               push0 
  05f5:39 07            pushi 7 // $7 cel
  05f7:78               push1 
  05f8:76               push0 
  05f9:38 00c5          pushi c5 // $c5 posn
  05fc:7a               push2 
  05fd:38 009f          pushi 9f // $9f nextCel
  0600:38 009b          pushi 9b // $9b bottom
  0603:39 7e            pushi 7e // $7e setCycle
  0605:78               push1 
  0606:51 1a            class End 
  0608:36                push 
  0609:72 0670          lofsa $0c7c // Rover
  060c:4a 20             send 20 

  060e:35 ff              ldi ff 
  0610:65 0a             aTop state 
  0612:35 03              ldi 3 
  0614:65 12             aTop seconds 
  0616:32 0101            jmp code_071a 

        code_0619
  0619:3c                 dup 
  061a:35 02              ldi 2 
  061c:1a                 eq? 
  061d:31 1e              bnt code_063d 
  061f:39 06            pushi 6 // $6 loop
  0621:78               push1 
  0622:39 06            pushi 6 // $6 loop
  0624:38 00c5          pushi c5 // $c5 posn
  0627:7a               push2 
  0628:38 009f          pushi 9f // $9f nextCel
  062b:38 009b          pushi 9b // $9b bottom
  062e:39 7e            pushi 7e // $7e setCycle
  0630:7a               push2 
  0631:51 1b            class Beg 
  0633:36                push 
  0634:7c            pushSelf 
  0635:72 0644          lofsa $0c7c // Rover
  0638:4a 16             send 16 

  063a:32 00dd            jmp code_071a 

        code_063d
  063d:3c                 dup 
  063e:35 03              ldi 3 
  0640:1a                 eq? 
  0641:31 2d              bnt code_0670 
  0643:39 05            pushi 5 // $5 view
  0645:78               push1 
  0646:38 0208          pushi 208 // $208 sel_520
  0649:38 00c8          pushi c8 // $c8 setLoop
  064c:78               push1 
  064d:76               push0 
  064e:38 00c9          pushi c9 // $c9 ignoreActors
  0651:78               push1 
  0652:78               push1 
  0653:39 7e            pushi 7e // $7e setCycle
  0655:78               push1 
  0656:51 17            class Walk 
  0658:36                push 
  0659:38 00d3          pushi d3 // $d3 setMotion
  065c:39 04            pushi 4 // $4 x
  065e:51 1d            class MoveTo 
  0660:36                push 
  0661:38 00c2          pushi c2 // $c2 waitApogeeX
  0664:38 009b          pushi 9b // $9b bottom
  0667:7c            pushSelf 
  0668:72 0611          lofsa $0c7c // Rover
  066b:4a 24             send 24 

  066d:32 00aa            jmp code_071a 

        code_0670
  0670:3c                 dup 
  0671:35 04              ldi 4 
  0673:1a                 eq? 
  0674:31 17              bnt code_068d 
  0676:38 00d3          pushi d3 // $d3 setMotion
  0679:39 04            pushi 4 // $4 x
  067b:51 1d            class MoveTo 
  067d:36                push 
  067e:38 0113          pushi 113 // $113 pauseCel
  0681:38 009b          pushi 9b // $9b bottom
  0684:7c            pushSelf 
  0685:72 05f4          lofsa $0c7c // Rover
  0688:4a 0c             send c 

  068a:32 008d            jmp code_071a 

        code_068d
  068d:3c                 dup 
  068e:35 05              ldi 5 
  0690:1a                 eq? 
  0691:31 32              bnt code_06c5 
  0693:39 05            pushi 5 // $5 view
  0695:78               push1 
  0696:38 020f          pushi 20f // $20f sel_527
  0699:39 06            pushi 6 // $6 loop
  069b:78               push1 
  069c:39 04            pushi 4 // $4 x
  069e:39 07            pushi 7 // $7 cel
  06a0:78               push1 
  06a1:78               push1 
  06a2:74 05d7          lofss $0c7c // Rover
  06a5:43 0e 02         callk NumCels 2 

  06a8:36                push 
  06a9:35 01              ldi 1 
  06ab:04                 sub 
  06ac:36                push 
  06ad:38 00c9          pushi c9 // $c9 ignoreActors
  06b0:78               push1 
  06b1:76               push0 
  06b2:39 7e            pushi 7e // $7e setCycle
  06b4:7a               push2 
  06b5:51 1b            class Beg 
  06b7:36                push 
  06b8:7c            pushSelf 
  06b9:72 05c0          lofsa $0c7c // Rover
  06bc:4a 20             send 20 

  06be:35 00              ldi 0 
  06c0:a0 00a2            sag global162 
  06c3:33 55              jmp code_071a 

        code_06c5
  06c5:3c                 dup 
  06c6:35 06              ldi 6 
  06c8:1a                 eq? 
  06c9:31 0a              bnt code_06d5 
  06cb:76               push0 
  06cc:45 04 00         callb procedure_0004 0 // HandsOn 

  06cf:35 02              ldi 2 
  06d1:65 10             aTop cycles 
  06d3:33 45              jmp code_071a 

        code_06d5
  06d5:3c                 dup 
  06d6:35 07              ldi 7 
  06d8:1a                 eq? 
  06d9:31 28              bnt code_0703 
  06db:35 03              ldi 3 
  06dd:a3 00              sal local0 
  06df:39 58            pushi 58 // $58 dispose
  06e1:76               push0 
  06e2:72 0667          lofsa $0d4c // Bone
  06e5:4a 04             send 4 

  06e7:39 05            pushi 5 // $5 view
  06e9:78               push1 
  06ea:38 020a          pushi 20a // $20a sel_522
  06ed:39 06            pushi 6 // $6 loop
  06ef:78               push1 
  06f0:39 04            pushi 4 // $4 x
  06f2:39 7e            pushi 7e // $7e setCycle
  06f4:78               push1 
  06f5:51 16            class Fwd 
  06f7:36                push 
  06f8:72 0581          lofsa $0c7c // Rover
  06fb:4a 12             send 12 

  06fd:35 05              ldi 5 
  06ff:65 12             aTop seconds 
  0701:33 17              jmp code_071a 

        code_0703
  0703:3c                 dup 
  0704:35 08              ldi 8 
  0706:1a                 eq? 
  0707:31 11              bnt code_071a 
  0709:39 7e            pushi 7e // $7e setCycle
  070b:78               push1 
  070c:76               push0 
  070d:72 056c          lofsa $0c7c // Rover
  0710:4a 06             send 6 

  0712:35 05              ldi 5 
  0714:65 12             aTop seconds 
  0716:35 06              ldi 6 
  0718:65 0a             aTop state 

        code_071a
  071a:3a                toss 
  071b:48                 ret 
    )

)

// 0bf4
(instance PetDog 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_071c
  071c:87 01              lap param1 
  071e:65 0a             aTop state 
  0720:36                push 
  0721:3c                 dup 
  0722:35 00              ldi 0 
  0724:1a                 eq? 
  0725:31 3a              bnt code_0761 
  0727:76               push0 
  0728:45 03 00         callb procedure_0003 0 // HandsOff 

  072b:38 00d4          pushi d4 // $d4 setAvoider
  072e:78               push1 
  072f:39 56            pushi 56 // $56 new
  0731:76               push0 
  0732:51 21            class Avoid 
  0734:4a 04             send 4 

  0736:36                push 
  0737:38 00d3          pushi d3 // $d3 setMotion
  073a:39 04            pushi 4 // $4 x
  073c:51 1d            class MoveTo 
  073e:36                push 
  073f:39 04            pushi 4 // $4 x
  0741:76               push0 
  0742:72 0537          lofsa $0c7c // Rover
  0745:4a 04             send 4 

  0747:36                push 
  0748:35 1a              ldi 1a 
  074a:02                 add 
  074b:36                push 
  074c:39 03            pushi 3 // $3 y
  074e:76               push0 
  074f:72 052a          lofsa $0c7c // Rover
  0752:4a 04             send 4 

  0754:36                push 
  0755:35 05              ldi 5 
  0757:02                 add 
  0758:36                push 
  0759:7c            pushSelf 
  075a:81 00              lag gEgo 
  075c:4a 12             send 12 

  075e:32 00a2            jmp code_0803 

        code_0761
  0761:3c                 dup 
  0762:35 01              ldi 1 
  0764:1a                 eq? 
  0765:31 1c              bnt code_0783 
  0767:39 05            pushi 5 // $5 view
  0769:78               push1 
  076a:39 16            pushi 16 // $16 brRight
  076c:39 06            pushi 6 // $6 loop
  076e:78               push1 
  076f:76               push0 
  0770:38 00d4          pushi d4 // $d4 setAvoider
  0773:78               push1 
  0774:76               push0 
  0775:39 7e            pushi 7e // $7e setCycle
  0777:7a               push2 
  0778:51 1a            class End 
  077a:36                push 
  077b:7c            pushSelf 
  077c:81 00              lag gEgo 
  077e:4a 1a             send 1a 

  0780:32 0080            jmp code_0803 

        code_0783
  0783:3c                 dup 
  0784:35 02              ldi 2 
  0786:1a                 eq? 
  0787:31 16              bnt code_079f 
  0789:39 06            pushi 6 // $6 loop
  078b:78               push1 
  078c:39 05            pushi 5 // $5 view
  078e:39 07            pushi 7 // $7 cel
  0790:78               push1 
  0791:76               push0 
  0792:39 7e            pushi 7e // $7e setCycle
  0794:7a               push2 
  0795:51 1a            class End 
  0797:36                push 
  0798:7c            pushSelf 
  0799:81 00              lag gEgo 
  079b:4a 14             send 14 

  079d:33 64              jmp code_0803 

        code_079f
  079f:3c                 dup 
  07a0:35 03              ldi 3 
  07a2:1a                 eq? 
  07a3:31 15              bnt code_07ba 
  07a5:39 06            pushi 6 // $6 loop
  07a7:78               push1 
  07a8:39 07            pushi 7 // $7 cel
  07aa:39 7e            pushi 7e // $7e setCycle
  07ac:78               push1 
  07ad:51 16            class Fwd 
  07af:36                push 
  07b0:81 00              lag gEgo 
  07b2:4a 0c             send c 

  07b4:35 03              ldi 3 
  07b6:65 12             aTop seconds 
  07b8:33 49              jmp code_0803 

        code_07ba
  07ba:3c                 dup 
  07bb:35 04              ldi 4 
  07bd:1a                 eq? 
  07be:31 1f              bnt code_07df 
  07c0:39 06            pushi 6 // $6 loop
  07c2:78               push1 
  07c3:76               push0 
  07c4:39 07            pushi 7 // $7 cel
  07c6:78               push1 
  07c7:78               push1 
  07c8:89 00              lsg gEgo 
  07ca:43 0e 02         callk NumCels 2 

  07cd:36                push 
  07ce:35 01              ldi 1 
  07d0:04                 sub 
  07d1:36                push 
  07d2:39 7e            pushi 7e // $7e setCycle
  07d4:7a               push2 
  07d5:51 1b            class Beg 
  07d7:36                push 
  07d8:7c            pushSelf 
  07d9:81 00              lag gEgo 
  07db:4a 14             send 14 

  07dd:33 24              jmp code_0803 

        code_07df
  07df:3c                 dup 
  07e0:35 05              ldi 5 
  07e2:1a                 eq? 
  07e3:31 1e              bnt code_0803 
  07e5:76               push0 
  07e6:45 04 00         callb procedure_0004 0 // HandsOn 

  07e9:39 05            pushi 5 // $5 view
  07eb:78               push1 
  07ec:76               push0 
  07ed:39 06            pushi 6 // $6 loop
  07ef:78               push1 
  07f0:78               push1 
  07f1:39 7e            pushi 7e // $7e setCycle
  07f3:78               push1 
  07f4:51 17            class Walk 
  07f6:36                push 
  07f7:81 00              lag gEgo 
  07f9:4a 12             send 12 

  07fb:39 7a            pushi 7a // $7a setScript
  07fd:78               push1 
  07fe:76               push0 
  07ff:63 08             pToa client 
  0801:4a 06             send 6 


        code_0803
  0803:3a                toss 
  0804:48                 ret 
    )

)

// 0c24
(instance Dish of Prop
    (properties
        y $9f
        x $ce
        z $0
        heading $0
        yStep $2
        view $70
        loop $2
        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
    )
    (method (handleEvent) // method_0805
  0805:39 03            pushi 3 // $3 y
  0807:7c            pushSelf 
  0808:8f 01              lsp param1 
  080a:39 03            pushi 3 // $3 y
  080c:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0812:2f 09               bt code_081d 
  0814:78               push1 
  0815:74 0313          lofss $0b2b // look/dish
  0818:43 25 02         callk Said 2 

  081b:31 16              bnt code_0833 

        code_081d
  081d:39 4c            pushi 4c // $4c claimed
  081f:78               push1 
  0820:78               push1 
  0821:87 01              lap param1 
  0823:4a 06             send 6 

  0825:7a               push2 
  0826:38 00ef          pushi ef // $ef ownedBy
  0829:39 07            pushi 7 // $7 cel
  082b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0831:33 15              jmp code_0848 

        code_0833
  0833:78               push1 
  0834:74 02ca          lofss $0b01 // get/dish
  0837:43 25 02         callk Said 2 

  083a:31 0c              bnt code_0848 
  083c:7a               push2 
  083d:38 00ef          pushi ef // $ef ownedBy
  0840:39 08            pushi 8 // $8 underBits
  0842:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0848
  0848:48                 ret 
    )

)

// 0c76
(instance Rover 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_0849
  0849:39 03            pushi 3 // $3 y
  084b:7c            pushSelf 
  084c:8f 01              lsp param1 
  084e:39 03            pushi 3 // $3 y
  0850:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0856:2f 09               bt code_0861 
  0858:78               push1 
  0859:74 02c3          lofss $0b1f // look/beauregard
  085c:43 25 02         callk Said 2 

  085f:31 70              bnt code_08d1 

        code_0861
  0861:8b 00              lsl local0 
  0863:3c                 dup 
  0864:35 00              ldi 0 
  0866:1a                 eq? 
  0867:31 0e              bnt code_0877 
  0869:7a               push2 
  086a:38 00ef          pushi ef // $ef ownedBy
  086d:39 09            pushi 9 // $9 nsTop
  086f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0875:33 4e              jmp code_08c5 

        code_0877
  0877:3c                 dup 
  0878:35 01              ldi 1 
  087a:1a                 eq? 
  087b:31 0e              bnt code_088b 
  087d:7a               push2 
  087e:38 00ef          pushi ef // $ef ownedBy
  0881:39 0a            pushi a // $a nsLeft
  0883:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0889:33 3a              jmp code_08c5 

        code_088b
  088b:3c                 dup 
  088c:35 02              ldi 2 
  088e:1a                 eq? 
  088f:31 0e              bnt code_089f 
  0891:7a               push2 
  0892:38 00ef          pushi ef // $ef ownedBy
  0895:39 0b            pushi b // $b nsBottom
  0897:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  089d:33 26              jmp code_08c5 

        code_089f
  089f:3c                 dup 
  08a0:35 03              ldi 3 
  08a2:1a                 eq? 
  08a3:31 0e              bnt code_08b3 
  08a5:7a               push2 
  08a6:38 00ef          pushi ef // $ef ownedBy
  08a9:39 0c            pushi c // $c nsRight
  08ab:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08b1:33 12              jmp code_08c5 

        code_08b3
  08b3:3c                 dup 
  08b4:35 04              ldi 4 
  08b6:1a                 eq? 
  08b7:31 0c              bnt code_08c5 
  08b9:7a               push2 
  08ba:38 00ef          pushi ef // $ef ownedBy
  08bd:39 0d            pushi d // $d lsTop
  08bf:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_08c5
  08c5:3a                toss 
  08c6:39 4c            pushi 4c // $4c claimed
  08c8:78               push1 
  08c9:78               push1 
  08ca:87 01              lap param1 
  08cc:4a 06             send 6 

  08ce:32 0162            jmp code_0a33 

        code_08d1
  08d1:78               push1 
  08d2:74 01cd          lofss $0aa2 // /beauregard>
  08d5:43 25 02         callk Said 2 

  08d8:30 0158            bnt code_0a33 
  08db:78               push1 
  08dc:74 01f9          lofss $0ad8 // get,bouger,attirer,get
  08df:43 25 02         callk Said 2 

  08e2:31 26              bnt code_090a 
  08e4:8b 00              lsl local0 
  08e6:3c                 dup 
  08e7:35 02              ldi 2 
  08e9:1a                 eq? 
  08ea:31 0e              bnt code_08fa 
  08ec:7a               push2 
  08ed:38 00ef          pushi ef // $ef ownedBy
  08f0:39 0e            pushi e // $e lsLeft
  08f2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08f8:33 0c              jmp code_0906 

        code_08fa
  08fa:7a               push2 
  08fb:38 00ef          pushi ef // $ef ownedBy
  08fe:39 0f            pushi f // $f lsBottom
  0900:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0906
  0906:3a                toss 
  0907:32 0129            jmp code_0a33 

        code_090a
  090a:78               push1 
  090b:74 0223          lofss $0b31 // caliner
  090e:43 25 02         callk Said 2 

  0911:31 69              bnt code_097c 
  0913:8b 00              lsl local0 
  0915:3c                 dup 
  0916:35 00              ldi 0 
  0918:1a                 eq? 
  0919:31 0e              bnt code_0929 
  091b:7a               push2 
  091c:38 00ef          pushi ef // $ef ownedBy
  091f:39 10            pushi 10 // $10 lsRight
  0921:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0927:33 4f              jmp code_0978 

        code_0929
  0929:3c                 dup 
  092a:35 01              ldi 1 
  092c:1a                 eq? 
  092d:31 0e              bnt code_093d 
  092f:7a               push2 
  0930:38 00ef          pushi ef // $ef ownedBy
  0933:39 10            pushi 10 // $10 lsRight
  0935:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  093b:33 3b              jmp code_0978 

        code_093d
  093d:3c                 dup 
  093e:35 03              ldi 3 
  0940:1a                 eq? 
  0941:31 0e              bnt code_0951 
  0943:7a               push2 
  0944:38 00ef          pushi ef // $ef ownedBy
  0947:39 10            pushi 10 // $10 lsRight
  0949:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  094f:33 27              jmp code_0978 

        code_0951
  0951:3c                 dup 
  0952:35 02              ldi 2 
  0954:1a                 eq? 
  0955:31 21              bnt code_0978 
  0957:38 00ae          pushi ae // $ae distanceTo
  095a:78               push1 
  095b:74 031e          lofss $0c7c // Rover
  095e:81 00              lag gEgo 
  0960:4a 06             send 6 

  0962:36                push 
  0963:35 28              ldi 28 
  0965:22                 lt? 
  0966:31 0c              bnt code_0974 
  0968:39 7a            pushi 7a // $7a setScript
  096a:78               push1 
  096b:74 028c          lofss $0bfa // PetDog
  096e:81 00              lag gEgo 
  0970:4a 06             send 6 

  0972:33 04              jmp code_0978 

        code_0974
  0974:76               push0 
  0975:45 09 00         callb procedure_0009 0 // NotClose 


        code_0978
  0978:3a                toss 
  0979:32 00b7            jmp code_0a33 

        code_097c
  097c:78               push1 
  097d:74 01bf          lofss $0b3f // bonjour
  0980:43 25 02         callk Said 2 

  0983:31 0f              bnt code_0994 
  0985:7a               push2 
  0986:38 00ef          pushi ef // $ef ownedBy
  0989:39 11            pushi 11 // $11 signal
  098b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0991:32 009f            jmp code_0a33 

        code_0994
  0994:78               push1 
  0995:74 01b6          lofss $0b4e // appeler,appeler
  0998:43 25 02         callk Said 2 

  099b:31 0f              bnt code_09ac 
  099d:7a               push2 
  099e:38 00ef          pushi ef // $ef ownedBy
  09a1:39 12            pushi 12 // $12 illegalBits
  09a3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  09a9:32 0087            jmp code_0a33 

        code_09ac
  09ac:78               push1 
  09ad:74 0169          lofss $0b19 // abattre
  09b0:43 25 02         callk Said 2 

  09b3:31 0e              bnt code_09c3 
  09b5:7a               push2 
  09b6:38 00ef          pushi ef // $ef ownedBy
  09b9:39 13            pushi 13 // $13 brTop
  09bb:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  09c1:33 70              jmp code_0a33 

        code_09c3
  09c3:78               push1 
  09c4:74 0155          lofss $0b1c // embrasser
  09c7:43 25 02         callk Said 2 

  09ca:31 0e              bnt code_09da 
  09cc:7a               push2 
  09cd:38 00ef          pushi ef // $ef ownedBy
  09d0:39 14            pushi 14 // $14 brLeft
  09d2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  09d8:33 59              jmp code_0a33 

        code_09da
  09da:78               push1 
  09db:74 00c9          lofss $0aa7 // feed
  09de:43 25 02         callk Said 2 

  09e1:31 50              bnt code_0a33 
  09e3:8b 00              lsl local0 
  09e5:3c                 dup 
  09e6:35 00              ldi 0 
  09e8:1a                 eq? 
  09e9:31 0e              bnt code_09f9 
  09eb:7a               push2 
  09ec:38 00ef          pushi ef // $ef ownedBy
  09ef:39 15            pushi 15 // $15 brBottom
  09f1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  09f7:33 39              jmp code_0a32 

        code_09f9
  09f9:3c                 dup 
  09fa:35 01              ldi 1 
  09fc:1a                 eq? 
  09fd:31 0d              bnt code_0a0c 
  09ff:7a               push2 
  0a00:38 00ef          pushi ef // $ef ownedBy
  0a03:78               push1 
  0a04:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a0a:33 26              jmp code_0a32 

        code_0a0c
  0a0c:3c                 dup 
  0a0d:35 02              ldi 2 
  0a0f:1a                 eq? 
  0a10:31 0e              bnt code_0a20 
  0a12:7a               push2 
  0a13:38 00ef          pushi ef // $ef ownedBy
  0a16:39 16            pushi 16 // $16 brRight
  0a18:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a1e:33 12              jmp code_0a32 

        code_0a20
  0a20:3c                 dup 
  0a21:35 03              ldi 3 
  0a23:1a                 eq? 
  0a24:31 0c              bnt code_0a32 
  0a26:7a               push2 
  0a27:38 00ef          pushi ef // $ef ownedBy
  0a2a:39 17            pushi 17 // $17 name
  0a2c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0a32
  0a32:3a                toss 

        code_0a33
  0a33:48                 ret 
    )

)

// 0cde
(instance Jeeves of Act
    (properties
        y $a1
        x $100
        z $0
        heading $0
        yStep $2
        view $1c3
        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_0a34
  0a34:78               push1 
  0a35:74 010a          lofss $0b42 // bonjour,ask,raconter/butler
  0a38:43 25 02         callk Said 2 

  0a3b:31 0e              bnt code_0a4b 
  0a3d:7a               push2 
  0a3e:38 00ef          pushi ef // $ef ownedBy
  0a41:39 18            pushi 18 // $18 key
  0a43:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a49:33 51              jmp code_0a9c 

        code_0a4b
  0a4b:39 03            pushi 3 // $3 y
  0a4d:7c            pushSelf 
  0a4e:8f 01              lsp param1 
  0a50:39 03            pushi 3 // $3 y
  0a52:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0a58:2f 09               bt code_0a63 
  0a5a:78               push1 
  0a5b:74 00c7          lofss $0b25 // look/butler
  0a5e:43 25 02         callk Said 2 

  0a61:31 39              bnt code_0a9c 

        code_0a63
  0a63:88 00cf            lsg global207 
  0a66:34 0400            ldi 400 
  0a69:12                 and 
  0a6a:31 0e              bnt code_0a7a 
  0a6c:7a               push2 
  0a6d:38 00ef          pushi ef // $ef ownedBy
  0a70:39 19            pushi 19 // $19 time
  0a72:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a78:33 1a              jmp code_0a94 

        code_0a7a
  0a7a:88 00cf            lsg global207 
  0a7d:34 0400            ldi 400 
  0a80:14                  or 
  0a81:a0 00cf            sag global207 
  0a84:35 0b              ldi b 
  0a86:a0 00d5            sag global213 
  0a89:39 03            pushi 3 // $3 y
  0a8b:76               push0 
  0a8c:38 00ef          pushi ef // $ef ownedBy
  0a8f:39 1a            pushi 1a // $1a text
  0a91:45 01 06         callb procedure_0001 6 // Say 


        code_0a94
  0a94:39 4c            pushi 4c // $4c claimed
  0a96:78               push1 
  0a97:78               push1 
  0a98:87 01              lap param1 
  0a9a:4a 06             send 6 


        code_0a9c
  0a9c:48                 ret 
  0a9d:00                bnot 
    )

)

// 0d46
(instance Bone of Act
    (properties
        y $9f
        x $b0
        z $0
        heading $0
        yStep $2
        view $30
        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
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)



