(script 229)

(string
    string_0a12 "Bone"
    string_0a17 "Celie"
    string_0a1d "Rover"
    string_0a23 "celiWash"
    string_0a2c "celie"
    string_0a32 "dogActions"
    string_0a3d "giveBone"
    string_0a46 "petDog"
    string_0a4d "wash"
)

(said
    said_075c /beauregard>
    said_0761 dry,gommer/dish
    said_076a feed,deliver/beauregard/bone
    said_0776 feed,deliver/bone/beauregard
    said_0782 feed/beauregard
    said_0788 get,bouger
    said_078e deliver,feed/*/beauregard
    said_079a deliver,feed/*<beauregard
    said_07a6 deliver/*/beauregard
    said_07af deliver/*<beauregard
    said_07b8 aider/celie
    said_07be aider/dish/gommer<celie
    said_07ca abattre
    said_07cd embrasser
    said_07d0 look/beauregard,dirt
    said_07d9 look/celie
    said_07df caliner
    said_07e2 hold/*/beauregard
    said_07eb hold/*<beauregard
    said_07f4 bonjour
    said_07f7 bonjour/celie
    said_07fd appeler
)

(synonym
    celie | cook = person | personne
    celie | cook = dame | femme | fille | girl | lady | maiden | woman
)

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

// 0806
(instance public celiWash of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_001a
  001a:39 57            pushi 57 // $57 init
  001c:76               push0 
  001d:57 36 04         super Rgn 4 

  0020:39 03            pushi 3 // $3 y
  0022:38 008f          pushi 8f // $8f moveTo
  0025:38 00f3          pushi f3 // $f3 close
  0028:38 00e4          pushi e4 // $e4 echo
  002b:45 15 06         callb procedure_0015 6 // LoadMany 

  002e:39 05            pushi 5 // $5 view
  0030:38 0080          pushi 80 // $80 timeLeft
  0033:38 01e0          pushi 1e0 // $1e0 sel_480
  0036:39 16            pushi 16 // $16 brRight
  0038:38 020a          pushi 20a // $20a sel_522
  003b:38 0385          pushi 385 // $385 sel_901
  003e:45 15 0a         callb procedure_0015 a // LoadMany 

  0041:35 02              ldi 2 
  0043:a0 00d0            sag global208 
  0046:34 00e4            ldi e4 
  0049:a0 017a            sag global378 
  004c:39 12            pushi 12 // $12 illegalBits
  004e:78               push1 
  004f:76               push0 
  0050:39 57            pushi 57 // $57 init
  0052:76               push0 
  0053:39 7a            pushi 7a // $7a setScript
  0055:78               push1 
  0056:74 07e5          lofss $083e // wash
  0059:72 094a          lofsa $09a6 // Celie
  005c:4a 10             send 10 

  005e:38 0082          pushi 82 // $82 owner
  0061:76               push0 
  0062:39 43            pushi 43 // $43 at
  0064:78               push1 
  0065:39 0c            pushi c // $c nsRight
  0067:81 09              lag gInventory 
  0069:4a 06             send 6 

  006b:4a 04             send 4 

  006d:36                push 
  006e:35 00              ldi 0 
  0070:1a                 eq? 
  0071:31 20              bnt code_0093 
  0073:39 05            pushi 5 // $5 view
  0075:78               push1 
  0076:38 020a          pushi 20a // $20a sel_522
  0079:39 06            pushi 6 // $6 loop
  007b:78               push1 
  007c:39 04            pushi 4 // $4 x
  007e:38 00a4          pushi a4 // $a4 cycleSpeed
  0081:78               push1 
  0082:7a               push2 
  0083:39 7e            pushi 7e // $7e setCycle
  0085:78               push1 
  0086:51 16            class Fwd 
  0088:36                push 
  0089:39 57            pushi 57 // $57 init
  008b:76               push0 
  008c:72 08c5          lofsa $0954 // Rover
  008f:4a 1c             send 1c 

  0091:33 0e              jmp code_00a1 

        code_0093
  0093:39 57            pushi 57 // $57 init
  0095:76               push0 
  0096:39 7a            pushi 7a // $7a setScript
  0098:78               push1 
  0099:74 0802          lofss $089e // dogActions
  009c:72 08b5          lofsa $0954 // Rover
  009f:4a 0a             send a 


        code_00a1
  00a1:48                 ret 
    )

    (method (doit) // method_00a2
  00a2:39 3c            pushi 3c // $3c doit
  00a4:76               push0 
  00a5:57 36 04         super Rgn 4 

  00a8:48                 ret 
    )

    (method (dispose) // method_00a9
  00a9:78               push1 
  00aa:38 03d9          pushi 3d9 // $3d9 sel_985
  00ad:43 03 02         callk DisposeScript 2 

  00b0:39 58            pushi 58 // $58 dispose
  00b2:76               push0 
  00b3:57 36 04         super Rgn 4 

  00b6:48                 ret 
    )

    (method (handleEvent) // method_00b7
  00b7:3f 01             link 1 // (var $1)
  00b9:39 4c            pushi 4c // $4c claimed
  00bb:76               push0 
  00bc:87 01              lap param1 
  00be:4a 04             send 4 

  00c0:31 03              bnt code_00c5 
  00c2:35 01              ldi 1 
  00c4:48                 ret 

        code_00c5
  00c5:39 22            pushi 22 // $22 type
  00c7:76               push0 
  00c8:87 01              lap param1 
  00ca:4a 04             send 4 

  00cc:36                push 
  00cd:34 0080            ldi 80 
  00d0:1a                 eq? 
  00d1:30 0233            bnt code_0307 
  00d4:78               push1 
  00d5:74 071f          lofss $07f7 // bonjour/celie
  00d8:43 25 02         callk Said 2 

  00db:31 4e              bnt code_012b 
  00dd:35 02              ldi 2 
  00df:a0 00d5            sag global213 
  00e2:8b 00              lsl local0 
  00e4:3c                 dup 
  00e5:35 00              ldi 0 
  00e7:1a                 eq? 
  00e8:31 0c              bnt code_00f6 
  00ea:39 03            pushi 3 // $3 y
  00ec:78               push1 
  00ed:38 00e5          pushi e5 // $e5 prevDir
  00f0:76               push0 
  00f1:45 01 06         callb procedure_0001 6 // Say 

  00f4:33 2f              jmp code_0125 

        code_00f6
  00f6:3c                 dup 
  00f7:35 01              ldi 1 
  00f9:1a                 eq? 
  00fa:31 0c              bnt code_0108 
  00fc:39 03            pushi 3 // $3 y
  00fe:78               push1 
  00ff:38 00e5          pushi e5 // $e5 prevDir
  0102:78               push1 
  0103:45 01 06         callb procedure_0001 6 // Say 

  0106:33 1d              jmp code_0125 

        code_0108
  0108:3c                 dup 
  0109:35 02              ldi 2 
  010b:1a                 eq? 
  010c:31 0c              bnt code_011a 
  010e:39 03            pushi 3 // $3 y
  0110:78               push1 
  0111:38 00e5          pushi e5 // $e5 prevDir
  0114:7a               push2 
  0115:45 01 06         callb procedure_0001 6 // Say 

  0118:33 0b              jmp code_0125 

        code_011a
  011a:39 03            pushi 3 // $3 y
  011c:78               push1 
  011d:38 00e5          pushi e5 // $e5 prevDir
  0120:39 03            pushi 3 // $3 y
  0122:45 01 06         callb procedure_0001 6 // Say 


        code_0125
  0125:3a                toss 
  0126:c3 00              +al local0 
  0128:32 01dc            jmp code_0307 

        code_012b
  012b:78               push1 
  012c:74 0647          lofss $0776 // feed,deliver/bone/beauregard
  012f:43 25 02         callk Said 2 

  0132:2f 09               bt code_013d 
  0134:78               push1 
  0135:74 0632          lofss $076a // feed,deliver/beauregard/bone
  0138:43 25 02         callk Said 2 

  013b:31 34              bnt code_0171 

        code_013d
  013d:38 00ee          pushi ee // $ee has
  0140:78               push1 
  0141:39 0c            pushi c // $c nsRight
  0143:81 00              lag gEgo 
  0145:4a 06             send 6 

  0147:31 21              bnt code_016a 
  0149:38 00ae          pushi ae // $ae distanceTo
  014c:78               push1 
  014d:74 0804          lofss $0954 // Rover
  0150:81 00              lag gEgo 
  0152:4a 06             send 6 

  0154:36                push 
  0155:35 3c              ldi 3c 
  0157:22                 lt? 
  0158:31 0a              bnt code_0164 
  015a:39 7a            pushi 7a // $7a setScript
  015c:78               push1 
  015d:74 0772          lofss $08d2 // giveBone
  0160:54 06             self 6 

  0162:33 04              jmp code_0168 

        code_0164
  0164:76               push0 
  0165:45 09 00         callb procedure_0009 0 // NotClose 


        code_0168
  0168:33 04              jmp code_016e 

        code_016a
  016a:76               push0 
  016b:45 0d 00         callb procedure_000d 0 // DontHave 


        code_016e
  016e:32 0196            jmp code_0307 

        code_0171
  0171:78               push1 
  0172:74 0625          lofss $079a // deliver,feed/*<beauregard
  0175:43 25 02         callk Said 2 

  0178:2f 12               bt code_018c 
  017a:78               push1 
  017b:74 0610          lofss $078e // deliver,feed/*/beauregard
  017e:43 25 02         callk Said 2 

  0181:2f 09               bt code_018c 
  0183:78               push1 
  0184:74 05fb          lofss $0782 // feed/beauregard
  0187:43 25 02         callk Said 2 

  018a:31 2d              bnt code_01b9 

        code_018c
  018c:80 00db            lag global219 
  018f:31 19              bnt code_01aa 
  0191:80 00e0            lag global224 
  0194:31 0e              bnt code_01a4 
  0196:7a               push2 
  0197:38 00e5          pushi e5 // $e5 prevDir
  019a:39 04            pushi 4 // $4 x
  019c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01a2:33 04              jmp code_01a8 

        code_01a4
  01a4:76               push0 
  01a5:45 0d 00         callb procedure_000d 0 // DontHave 


        code_01a8
  01a8:33 0c              jmp code_01b6 

        code_01aa
  01aa:7a               push2 
  01ab:38 00e5          pushi e5 // $e5 prevDir
  01ae:39 05            pushi 5 // $5 view
  01b0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_01b6
  01b6:32 014e            jmp code_0307 

        code_01b9
  01b9:78               push1 
  01ba:74 0625          lofss $07e2 // hold/*/beauregard
  01bd:43 25 02         callk Said 2 

  01c0:2f 09               bt code_01cb 
  01c2:78               push1 
  01c3:74 0625          lofss $07eb // hold/*<beauregard
  01c6:43 25 02         callk Said 2 

  01c9:31 35              bnt code_0200 

        code_01cb
  01cb:80 00db            lag global219 
  01ce:31 29              bnt code_01f9 
  01d0:80 00e0            lag global224 
  01d3:31 24              bnt code_01f9 
  01d5:88 00ab            lsg global171 
  01d8:35 0c              ldi c 
  01da:1a                 eq? 
  01db:31 0e              bnt code_01eb 
  01dd:7a               push2 
  01de:38 00e5          pushi e5 // $e5 prevDir
  01e1:39 06            pushi 6 // $6 loop
  01e3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01e9:33 0c              jmp code_01f7 

        code_01eb
  01eb:7a               push2 
  01ec:38 00e5          pushi e5 // $e5 prevDir
  01ef:39 04            pushi 4 // $4 x
  01f1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_01f7
  01f7:33 04              jmp code_01fd 

        code_01f9
  01f9:76               push0 
  01fa:45 0d 00         callb procedure_000d 0 // DontHave 


        code_01fd
  01fd:32 0107            jmp code_0307 

        code_0200
  0200:78               push1 
  0201:74 05a2          lofss $07a6 // deliver/*/beauregard
  0204:43 25 02         callk Said 2 

  0207:2f 09               bt code_0212 
  0209:78               push1 
  020a:74 05a2          lofss $07af // deliver/*<beauregard
  020d:43 25 02         callk Said 2 

  0210:31 1a              bnt code_022c 

        code_0212
  0212:80 00e0            lag global224 
  0215:31 0e              bnt code_0225 
  0217:7a               push2 
  0218:38 00e5          pushi e5 // $e5 prevDir
  021b:39 04            pushi 4 // $4 x
  021d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0223:33 04              jmp code_0229 

        code_0225
  0225:76               push0 
  0226:45 0d 00         callb procedure_000d 0 // DontHave 


        code_0229
  0229:32 00db            jmp code_0307 

        code_022c
  022c:78               push1 
  022d:74 052c          lofss $075c // /beauregard>
  0230:43 25 02         callk Said 2 

  0233:30 00aa            bnt code_02e0 
  0236:78               push1 
  0237:74 054e          lofss $0788 // get,bouger
  023a:43 25 02         callk Said 2 

  023d:31 0f              bnt code_024e 
  023f:7a               push2 
  0240:38 00e5          pushi e5 // $e5 prevDir
  0243:39 07            pushi 7 // $7 cel
  0245:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  024b:32 0090            jmp code_02de 

        code_024e
  024e:78               push1 
  024f:74 058d          lofss $07df // caliner
  0252:43 25 02         callk Said 2 

  0255:31 2d              bnt code_0284 
  0257:38 00ae          pushi ae // $ae distanceTo
  025a:78               push1 
  025b:74 06f6          lofss $0954 // Rover
  025e:81 00              lag gEgo 
  0260:4a 06             send 6 

  0262:36                push 
  0263:35 3c              ldi 3c 
  0265:22                 lt? 
  0266:31 16              bnt code_027e 
  0268:7a               push2 
  0269:38 00e5          pushi e5 // $e5 prevDir
  026c:39 08            pushi 8 // $8 underBits
  026e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0274:39 7a            pushi 7a // $7a setScript
  0276:78               push1 
  0277:74 05f4          lofss $086e // petDog
  027a:54 06             self 6 

  027c:33 04              jmp code_0282 

        code_027e
  027e:76               push0 
  027f:45 09 00         callb procedure_0009 0 // NotClose 


        code_0282
  0282:33 5a              jmp code_02de 

        code_0284
  0284:78               push1 
  0285:74 056c          lofss $07f4 // bonjour
  0288:43 25 02         callk Said 2 

  028b:31 0e              bnt code_029b 
  028d:7a               push2 
  028e:38 00e5          pushi e5 // $e5 prevDir
  0291:39 09            pushi 9 // $9 nsTop
  0293:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0299:33 43              jmp code_02de 

        code_029b
  029b:78               push1 
  029c:74 055e          lofss $07fd // appeler
  029f:43 25 02         callk Said 2 

  02a2:31 0e              bnt code_02b2 
  02a4:7a               push2 
  02a5:38 00e5          pushi e5 // $e5 prevDir
  02a8:39 0a            pushi a // $a nsLeft
  02aa:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02b0:33 2c              jmp code_02de 

        code_02b2
  02b2:78               push1 
  02b3:74 0514          lofss $07ca // abattre
  02b6:43 25 02         callk Said 2 

  02b9:31 0e              bnt code_02c9 
  02bb:7a               push2 
  02bc:38 00e5          pushi e5 // $e5 prevDir
  02bf:39 0b            pushi b // $b nsBottom
  02c1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02c7:33 15              jmp code_02de 

        code_02c9
  02c9:78               push1 
  02ca:74 0500          lofss $07cd // embrasser
  02cd:43 25 02         callk Said 2 

  02d0:31 0c              bnt code_02de 
  02d2:7a               push2 
  02d3:38 00e5          pushi e5 // $e5 prevDir
  02d6:39 0c            pushi c // $c nsRight
  02d8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02de
  02de:33 27              jmp code_0307 

        code_02e0
  02e0:78               push1 
  02e1:74 047d          lofss $0761 // dry,gommer/dish
  02e4:43 25 02         callk Said 2 

  02e7:2f 12               bt code_02fb 
  02e9:78               push1 
  02ea:74 04cb          lofss $07b8 // aider/celie
  02ed:43 25 02         callk Said 2 

  02f0:2f 09               bt code_02fb 
  02f2:78               push1 
  02f3:74 04c8          lofss $07be // aider/dish/gommer<celie
  02f6:43 25 02         callk Said 2 

  02f9:31 0c              bnt code_0307 

        code_02fb
  02fb:7a               push2 
  02fc:38 00e5          pushi e5 // $e5 prevDir
  02ff:39 0d            pushi d // $d lsTop
  0301:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0307
  0307:48                 ret 
    )

)

// 0838
(instance wash 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_0308
  0308:87 01              lap param1 
  030a:65 0a             aTop state 
  030c:36                push 
  030d:3c                 dup 
  030e:35 00              ldi 0 
  0310:1a                 eq? 
  0311:31 1f              bnt code_0332 
  0313:76               push0 
  0314:45 0f 00         callb procedure_000f 0 // cls 

  0317:39 06            pushi 6 // $6 loop
  0319:78               push1 
  031a:76               push0 
  031b:39 7e            pushi 7e // $7e setCycle
  031d:78               push1 
  031e:51 16            class Fwd 
  0320:36                push 
  0321:72 0682          lofsa $09a6 // Celie
  0324:4a 0c             send c 

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

  032e:65 12             aTop seconds 
  0330:33 59              jmp code_038b 

        code_0332
  0332:3c                 dup 
  0333:35 01              ldi 1 
  0335:1a                 eq? 
  0336:31 32              bnt code_036a 
  0338:39 07            pushi 7 // $7 cel
  033a:78               push1 
  033b:76               push0 
  033c:39 06            pushi 6 // $6 loop
  033e:78               push1 
  033f:78               push1 
  0340:39 7e            pushi 7e // $7e setCycle
  0342:7a               push2 
  0343:51 1a            class End 
  0345:36                push 
  0346:7c            pushSelf 
  0347:72 065c          lofsa $09a6 // Celie
  034a:4a 14             send 14 

  034c:7a               push2 
  034d:78               push1 
  034e:7a               push2 
  034f:43 40 04         callk Random 4 

  0352:36                push 
  0353:3c                 dup 
  0354:35 01              ldi 1 
  0356:1a                 eq? 
  0357:31 04              bnt code_035d 
  0359:35 ff              ldi ff 
  035b:33 08              jmp code_0365 

        code_035d
  035d:3c                 dup 
  035e:35 02              ldi 2 
  0360:1a                 eq? 
  0361:31 02              bnt code_0365 
  0363:35 01              ldi 1 

        code_0365
  0365:3a                toss 
  0366:65 0a             aTop state 
  0368:33 21              jmp code_038b 

        code_036a
  036a:3c                 dup 
  036b:35 02              ldi 2 
  036d:1a                 eq? 
  036e:31 1b              bnt code_038b 
  0370:39 06            pushi 6 // $6 loop
  0372:78               push1 
  0373:76               push0 
  0374:38 00c6          pushi c6 // $c6 stopUpd
  0377:76               push0 
  0378:72 062b          lofsa $09a6 // Celie
  037b:4a 0a             send a 

  037d:35 ff              ldi ff 
  037f:65 0a             aTop state 
  0381:7a               push2 
  0382:39 03            pushi 3 // $3 y
  0384:39 05            pushi 5 // $5 view
  0386:43 40 04         callk Random 4 

  0389:65 12             aTop seconds 

        code_038b
  038b:3a                toss 
  038c:48                 ret 
    )

)

// 0868
(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_038d
  038d:87 01              lap param1 
  038f:65 0a             aTop state 
  0391:36                push 
  0392:3c                 dup 
  0393:35 00              ldi 0 
  0395:1a                 eq? 
  0396:31 3a              bnt code_03d2 
  0398:76               push0 
  0399:45 03 00         callb procedure_0003 0 // HandsOff 

  039c:38 00d4          pushi d4 // $d4 setAvoider
  039f:78               push1 
  03a0:39 56            pushi 56 // $56 new
  03a2:76               push0 
  03a3:51 21            class Avoid 
  03a5:4a 04             send 4 

  03a7:36                push 
  03a8:38 00d3          pushi d3 // $d3 setMotion
  03ab:39 04            pushi 4 // $4 x
  03ad:51 1d            class MoveTo 
  03af:36                push 
  03b0:39 04            pushi 4 // $4 x
  03b2:76               push0 
  03b3:72 059e          lofsa $0954 // Rover
  03b6:4a 04             send 4 

  03b8:36                push 
  03b9:35 1a              ldi 1a 
  03bb:02                 add 
  03bc:36                push 
  03bd:39 03            pushi 3 // $3 y
  03bf:76               push0 
  03c0:72 0591          lofsa $0954 // Rover
  03c3:4a 04             send 4 

  03c5:36                push 
  03c6:35 05              ldi 5 
  03c8:02                 add 
  03c9:36                push 
  03ca:7c            pushSelf 
  03cb:81 00              lag gEgo 
  03cd:4a 12             send 12 

  03cf:32 00d1            jmp code_04a3 

        code_03d2
  03d2:3c                 dup 
  03d3:35 01              ldi 1 
  03d5:1a                 eq? 
  03d6:31 1c              bnt code_03f4 
  03d8:39 05            pushi 5 // $5 view
  03da:78               push1 
  03db:39 16            pushi 16 // $16 brRight
  03dd:39 06            pushi 6 // $6 loop
  03df:78               push1 
  03e0:76               push0 
  03e1:38 00d4          pushi d4 // $d4 setAvoider
  03e4:78               push1 
  03e5:76               push0 
  03e6:39 7e            pushi 7e // $7e setCycle
  03e8:7a               push2 
  03e9:51 1a            class End 
  03eb:36                push 
  03ec:7c            pushSelf 
  03ed:81 00              lag gEgo 
  03ef:4a 1a             send 1a 

  03f1:32 00af            jmp code_04a3 

        code_03f4
  03f4:3c                 dup 
  03f5:35 02              ldi 2 
  03f7:1a                 eq? 
  03f8:31 17              bnt code_0411 
  03fa:39 06            pushi 6 // $6 loop
  03fc:78               push1 
  03fd:39 05            pushi 5 // $5 view
  03ff:39 07            pushi 7 // $7 cel
  0401:78               push1 
  0402:76               push0 
  0403:39 7e            pushi 7e // $7e setCycle
  0405:7a               push2 
  0406:51 1a            class End 
  0408:36                push 
  0409:7c            pushSelf 
  040a:81 00              lag gEgo 
  040c:4a 14             send 14 

  040e:32 0092            jmp code_04a3 

        code_0411
  0411:3c                 dup 
  0412:35 03              ldi 3 
  0414:1a                 eq? 
  0415:31 15              bnt code_042c 
  0417:39 06            pushi 6 // $6 loop
  0419:78               push1 
  041a:39 07            pushi 7 // $7 cel
  041c:39 7e            pushi 7e // $7e setCycle
  041e:78               push1 
  041f:51 16            class Fwd 
  0421:36                push 
  0422:81 00              lag gEgo 
  0424:4a 0c             send c 

  0426:35 03              ldi 3 
  0428:65 12             aTop seconds 
  042a:33 77              jmp code_04a3 

        code_042c
  042c:3c                 dup 
  042d:35 04              ldi 4 
  042f:1a                 eq? 
  0430:31 24              bnt code_0456 
  0432:39 06            pushi 6 // $6 loop
  0434:78               push1 
  0435:39 05            pushi 5 // $5 view
  0437:81 00              lag gEgo 
  0439:4a 06             send 6 

  043b:39 07            pushi 7 // $7 cel
  043d:78               push1 
  043e:78               push1 
  043f:89 00              lsg gEgo 
  0441:43 0e 02         callk NumCels 2 

  0444:36                push 
  0445:35 01              ldi 1 
  0447:04                 sub 
  0448:36                push 
  0449:39 7e            pushi 7e // $7e setCycle
  044b:7a               push2 
  044c:51 1b            class Beg 
  044e:36                push 
  044f:7c            pushSelf 
  0450:81 00              lag gEgo 
  0452:4a 0e             send e 

  0454:33 4d              jmp code_04a3 

        code_0456
  0456:3c                 dup 
  0457:35 05              ldi 5 
  0459:1a                 eq? 
  045a:31 23              bnt code_047f 
  045c:39 06            pushi 6 // $6 loop
  045e:78               push1 
  045f:76               push0 
  0460:81 00              lag gEgo 
  0462:4a 06             send 6 

  0464:39 07            pushi 7 // $7 cel
  0466:78               push1 
  0467:78               push1 
  0468:89 00              lsg gEgo 
  046a:43 0e 02         callk NumCels 2 

  046d:36                push 
  046e:35 01              ldi 1 
  0470:04                 sub 
  0471:36                push 
  0472:39 7e            pushi 7e // $7e setCycle
  0474:7a               push2 
  0475:51 1b            class Beg 
  0477:36                push 
  0478:7c            pushSelf 
  0479:81 00              lag gEgo 
  047b:4a 0e             send e 

  047d:33 24              jmp code_04a3 

        code_047f
  047f:3c                 dup 
  0480:35 06              ldi 6 
  0482:1a                 eq? 
  0483:31 1e              bnt code_04a3 
  0485:76               push0 
  0486:45 04 00         callb procedure_0004 0 // HandsOn 

  0489:39 05            pushi 5 // $5 view
  048b:78               push1 
  048c:76               push0 
  048d:39 06            pushi 6 // $6 loop
  048f:78               push1 
  0490:78               push1 
  0491:39 7e            pushi 7e // $7e setCycle
  0493:78               push1 
  0494:51 17            class Walk 
  0496:36                push 
  0497:81 00              lag gEgo 
  0499:4a 12             send 12 

  049b:39 7a            pushi 7a // $7a setScript
  049d:78               push1 
  049e:76               push0 
  049f:63 08             pToa client 
  04a1:4a 06             send 6 


        code_04a3
  04a3:3a                toss 
  04a4:48                 ret 
    )

)

// 0898
(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_04a5
  04a5:39 3c            pushi 3c // $3c doit
  04a7:76               push0 
  04a8:57 05 04         super Script 4 

  04ab:83 03              lal local3 
  04ad:18                 not 
  04ae:31 3e              bnt code_04ee 
  04b0:38 00ae          pushi ae // $ae distanceTo
  04b3:78               push1 
  04b4:74 049d          lofss $0954 // Rover
  04b7:81 00              lag gEgo 
  04b9:4a 06             send 6 

  04bb:36                push 
  04bc:35 1e              ldi 1e 
  04be:22                 lt? 
  04bf:31 0b              bnt code_04cc 
  04c1:67 0a             pTos state 
  04c3:35 00              ldi 0 
  04c5:1a                 eq? 
  04c6:31 04              bnt code_04cc 
  04c8:35 01              ldi 1 
  04ca:65 10             aTop cycles 

        code_04cc
  04cc:38 00ae          pushi ae // $ae distanceTo
  04cf:78               push1 
  04d0:74 0481          lofss $0954 // Rover
  04d3:81 00              lag gEgo 
  04d5:4a 06             send 6 

  04d7:36                push 
  04d8:35 1e              ldi 1e 
  04da:1e                 gt? 
  04db:31 0f              bnt code_04ec 
  04dd:67 0a             pTos state 
  04df:35 02              ldi 2 
  04e1:1a                 eq? 
  04e2:31 08              bnt code_04ec 
  04e4:35 ff              ldi ff 
  04e6:65 0a             aTop state 
  04e8:35 01              ldi 1 
  04ea:65 10             aTop cycles 

        code_04ec
  04ec:33 0f              jmp code_04fd 

        code_04ee
  04ee:67 0a             pTos state 
  04f0:35 03              ldi 3 
  04f2:22                 lt? 
  04f3:31 08              bnt code_04fd 
  04f5:35 02              ldi 2 
  04f7:65 0a             aTop state 
  04f9:35 01              ldi 1 
  04fb:65 10             aTop cycles 

        code_04fd
  04fd:48                 ret 
    )

    (method (changeState) // method_04fe
  04fe:87 01              lap param1 
  0500:65 0a             aTop state 
  0502:36                push 
  0503:3c                 dup 
  0504:35 00              ldi 0 
  0506:1a                 eq? 
  0507:31 25              bnt code_052e 
  0509:39 06            pushi 6 // $6 loop
  050b:78               push1 
  050c:76               push0 
  050d:38 00a4          pushi a4 // $a4 cycleSpeed
  0510:78               push1 
  0511:7a               push2 
  0512:39 07            pushi 7 // $7 cel
  0514:78               push1 
  0515:78               push1 
  0516:74 043b          lofss $0954 // Rover
  0519:43 0e 02         callk NumCels 2 

  051c:36                push 
  051d:35 01              ldi 1 
  051f:04                 sub 
  0520:36                push 
  0521:39 7e            pushi 7e // $7e setCycle
  0523:78               push1 
  0524:51 1b            class Beg 
  0526:36                push 
  0527:72 042a          lofsa $0954 // Rover
  052a:4a 18             send 18 

  052c:33 62              jmp code_0590 

        code_052e
  052e:3c                 dup 
  052f:35 01              ldi 1 
  0531:1a                 eq? 
  0532:31 17              bnt code_054b 
  0534:39 06            pushi 6 // $6 loop
  0536:78               push1 
  0537:76               push0 
  0538:38 00a4          pushi a4 // $a4 cycleSpeed
  053b:78               push1 
  053c:7a               push2 
  053d:39 7e            pushi 7e // $7e setCycle
  053f:7a               push2 
  0540:51 1a            class End 
  0542:36                push 
  0543:7c            pushSelf 
  0544:72 040d          lofsa $0954 // Rover
  0547:4a 14             send 14 

  0549:33 45              jmp code_0590 

        code_054b
  054b:3c                 dup 
  054c:35 02              ldi 2 
  054e:1a                 eq? 
  054f:31 16              bnt code_0567 
  0551:39 06            pushi 6 // $6 loop
  0553:78               push1 
  0554:7a               push2 
  0555:38 00a4          pushi a4 // $a4 cycleSpeed
  0558:78               push1 
  0559:7a               push2 
  055a:39 7e            pushi 7e // $7e setCycle
  055c:78               push1 
  055d:51 16            class Fwd 
  055f:36                push 
  0560:72 03f1          lofsa $0954 // Rover
  0563:4a 12             send 12 

  0565:33 29              jmp code_0590 

        code_0567
  0567:3c                 dup 
  0568:35 03              ldi 3 
  056a:1a                 eq? 
  056b:31 23              bnt code_0590 
  056d:39 58            pushi 58 // $58 dispose
  056f:76               push0 
  0570:72 0393          lofsa $0906 // Bone
  0573:4a 04             send 4 

  0575:39 05            pushi 5 // $5 view
  0577:78               push1 
  0578:38 020a          pushi 20a // $20a sel_522
  057b:39 06            pushi 6 // $6 loop
  057d:78               push1 
  057e:39 04            pushi 4 // $4 x
  0580:38 00a4          pushi a4 // $a4 cycleSpeed
  0583:78               push1 
  0584:7a               push2 
  0585:39 7e            pushi 7e // $7e setCycle
  0587:78               push1 
  0588:51 16            class Fwd 
  058a:36                push 
  058b:72 03c6          lofsa $0954 // Rover
  058e:4a 18             send 18 


        code_0590
  0590:3a                toss 
  0591:48                 ret 
    )

)

// 08cc
(instance giveBone 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_0592
  0592:39 3c            pushi 3c // $3c doit
  0594:76               push0 
  0595:57 05 04         super Script 4 

  0598:67 0a             pTos state 
  059a:35 01              ldi 1 
  059c:1a                 eq? 
  059d:31 22              bnt code_05c1 
  059f:39 07            pushi 7 // $7 cel
  05a1:76               push0 
  05a2:81 00              lag gEgo 
  05a4:4a 04             send 4 

  05a6:36                push 
  05a7:35 04              ldi 4 
  05a9:1a                 eq? 
  05aa:31 15              bnt code_05c1 
  05ac:38 00ed          pushi ed // $ed put
  05af:7a               push2 
  05b0:39 0c            pushi c // $c nsRight
  05b2:76               push0 
  05b3:81 00              lag gEgo 
  05b5:4a 08             send 8 

  05b7:39 57            pushi 57 // $57 init
  05b9:76               push0 
  05ba:72 0349          lofsa $0906 // Bone
  05bd:4a 04             send 4 

  05bf:c3 03              +al local3 

        code_05c1
  05c1:48                 ret 
    )

    (method (changeState) // method_05c2
  05c2:87 01              lap param1 
  05c4:65 0a             aTop state 
  05c6:36                push 
  05c7:3c                 dup 
  05c8:35 00              ldi 0 
  05ca:1a                 eq? 
  05cb:31 3a              bnt code_0607 
  05cd:76               push0 
  05ce:45 03 00         callb procedure_0003 0 // HandsOff 

  05d1:38 00d4          pushi d4 // $d4 setAvoider
  05d4:78               push1 
  05d5:39 56            pushi 56 // $56 new
  05d7:76               push0 
  05d8:51 21            class Avoid 
  05da:4a 04             send 4 

  05dc:36                push 
  05dd:38 00d3          pushi d3 // $d3 setMotion
  05e0:39 04            pushi 4 // $4 x
  05e2:51 1d            class MoveTo 
  05e4:36                push 
  05e5:39 04            pushi 4 // $4 x
  05e7:76               push0 
  05e8:72 0369          lofsa $0954 // Rover
  05eb:4a 04             send 4 

  05ed:36                push 
  05ee:35 1f              ldi 1f 
  05f0:02                 add 
  05f1:36                push 
  05f2:39 03            pushi 3 // $3 y
  05f4:76               push0 
  05f5:72 035c          lofsa $0954 // Rover
  05f8:4a 04             send 4 

  05fa:36                push 
  05fb:35 03              ldi 3 
  05fd:02                 add 
  05fe:36                push 
  05ff:7c            pushSelf 
  0600:81 00              lag gEgo 
  0602:4a 12             send 12 

  0604:32 0095            jmp code_069c 

        code_0607
  0607:3c                 dup 
  0608:35 01              ldi 1 
  060a:1a                 eq? 
  060b:31 42              bnt code_064f 
  060d:39 05            pushi 5 // $5 view
  060f:78               push1 
  0610:39 30            pushi 30 // $30 b-moveCnt
  0612:38 00c8          pushi c8 // $c8 setLoop
  0615:78               push1 
  0616:39 07            pushi 7 // $7 cel
  0618:39 07            pushi 7 // $7 cel
  061a:78               push1 
  061b:39 08            pushi 8 // $8 underBits
  061d:39 7e            pushi 7e // $7e setCycle
  061f:7a               push2 
  0620:51 1b            class Beg 
  0622:36                push 
  0623:7c            pushSelf 
  0624:81 00              lag gEgo 
  0626:4a 1a             send 1a 

  0628:39 07            pushi 7 // $7 cel
  062a:78               push1 
  062b:76               push0 
  062c:38 00c5          pushi c5 // $c5 posn
  062f:7a               push2 
  0630:39 04            pushi 4 // $4 x
  0632:76               push0 
  0633:81 00              lag gEgo 
  0635:4a 04             send 4 

  0637:36                push 
  0638:35 0d              ldi d 
  063a:04                 sub 
  063b:36                push 
  063c:39 03            pushi 3 // $3 y
  063e:76               push0 
  063f:81 00              lag gEgo 
  0641:4a 04             send 4 

  0643:36                push 
  0644:35 01              ldi 1 
  0646:04                 sub 
  0647:36                push 
  0648:72 02bb          lofsa $0906 // Bone
  064b:4a 0e             send e 

  064d:33 4d              jmp code_069c 

        code_064f
  064f:3c                 dup 
  0650:35 02              ldi 2 
  0652:1a                 eq? 
  0653:31 1e              bnt code_0673 
  0655:7a               push2 
  0656:38 00e5          pushi e5 // $e5 prevDir
  0659:39 0e            pushi e // $e lsLeft
  065b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0661:39 05            pushi 5 // $5 view
  0663:78               push1 
  0664:76               push0 
  0665:39 06            pushi 6 // $6 loop
  0667:78               push1 
  0668:78               push1 
  0669:81 00              lag gEgo 
  066b:4a 0c             send c 

  066d:35 01              ldi 1 
  066f:65 10             aTop cycles 
  0671:33 29              jmp code_069c 

        code_0673
  0673:3c                 dup 
  0674:35 03              ldi 3 
  0676:1a                 eq? 
  0677:31 23              bnt code_069c 
  0679:39 05            pushi 5 // $5 view
  067b:78               push1 
  067c:76               push0 
  067d:38 00d4          pushi d4 // $d4 setAvoider
  0680:78               push1 
  0681:76               push0 
  0682:38 00c8          pushi c8 // $c8 setLoop
  0685:78               push1 
  0686:39 ff            pushi ff // $ff checkAni
  0688:39 7e            pushi 7e // $7e setCycle
  068a:78               push1 
  068b:51 17            class Walk 
  068d:36                push 
  068e:81 00              lag gEgo 
  0690:4a 18             send 18 

  0692:76               push0 
  0693:45 04 00         callb procedure_0004 0 // HandsOn 

  0696:39 7a            pushi 7a // $7a setScript
  0698:78               push1 
  0699:76               push0 
  069a:54 06             self 6 


        code_069c
  069c:3a                toss 
  069d:48                 ret 
    )

)

// 0900
(instance Bone of Prop
    (properties
        y $5f
        x $61
        z $0
        heading $0
        yStep $2
        view $20a
        loop $8
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 094e
(instance Rover of Prop
    (properties
        y $5a
        x $61
        z $0
        heading $0
        yStep $2
        view $20f
        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
    )
    (method (handleEvent) // method_069e
  069e:39 03            pushi 3 // $3 y
  06a0:7c            pushSelf 
  06a1:8f 01              lsp param1 
  06a3:39 03            pushi 3 // $3 y
  06a5:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  06ab:2f 09               bt code_06b6 
  06ad:78               push1 
  06ae:74 011f          lofss $07d0 // look/beauregard,dirt
  06b1:43 25 02         callk Said 2 

  06b4:31 42              bnt code_06f8 

        code_06b6
  06b6:39 4c            pushi 4c // $4c claimed
  06b8:78               push1 
  06b9:78               push1 
  06ba:87 01              lap param1 
  06bc:4a 06             send 6 

  06be:78               push1 
  06bf:39 31            pushi 31 // $31 b-i1
  06c1:45 07 02         callb procedure_0007 2 // IsFlag 

  06c4:31 20              bnt code_06e6 
  06c6:83 03              lal local3 
  06c8:31 0e              bnt code_06d8 
  06ca:7a               push2 
  06cb:38 00e5          pushi e5 // $e5 prevDir
  06ce:39 0f            pushi f // $f lsBottom
  06d0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06d6:33 0c              jmp code_06e4 

        code_06d8
  06d8:7a               push2 
  06d9:38 00e5          pushi e5 // $e5 prevDir
  06dc:39 10            pushi 10 // $10 lsRight
  06de:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06e4
  06e4:33 12              jmp code_06f8 

        code_06e6
  06e6:78               push1 
  06e7:39 31            pushi 31 // $31 b-i1
  06e9:45 05 02         callb procedure_0005 2 // SetFlag 

  06ec:7a               push2 
  06ed:38 00e5          pushi e5 // $e5 prevDir
  06f0:39 11            pushi 11 // $11 signal
  06f2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06f8
  06f8:48                 ret 
    )

)

// 09a0
(instance Celie of Act
    (properties
        y $67
        x $d6
        z $0
        heading $0
        yStep $2
        view $1e6
        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_06f9
  06f9:39 03            pushi 3 // $3 y
  06fb:7c            pushSelf 
  06fc:8f 01              lsp param1 
  06fe:39 03            pushi 3 // $3 y
  0700:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0706:31 1a              bnt code_0722 
  0708:88 00cf            lsg global207 
  070b:35 02              ldi 2 
  070d:12                 and 
  070e:18                 not 
  070f:31 11              bnt code_0722 
  0711:39 4c            pushi 4c // $4c claimed
  0713:78               push1 
  0714:78               push1 
  0715:87 01              lap param1 
  0717:4a 06             send 6 

  0719:78               push1 
  071a:74 030f          lofss $0a2c // celie
  071d:45 19 02         callb procedure_0019 2 // DoLook 

  0720:33 34              jmp code_0756 

        code_0722
  0722:88 00cf            lsg global207 
  0725:35 02              ldi 2 
  0727:12                 and 
  0728:31 2c              bnt code_0756 
  072a:39 03            pushi 3 // $3 y
  072c:7c            pushSelf 
  072d:8f 01              lsp param1 
  072f:39 03            pushi 3 // $3 y
  0731:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0737:2f 09               bt code_0742 
  0739:78               push1 
  073a:74 009c          lofss $07d9 // look/celie
  073d:43 25 02         callk Said 2 

  0740:31 14              bnt code_0756 

        code_0742
  0742:39 4c            pushi 4c // $4c claimed
  0744:78               push1 
  0745:78               push1 
  0746:87 01              lap param1 
  0748:4a 06             send 6 

  074a:7a               push2 
  074b:38 00e5          pushi e5 // $e5 prevDir
  074e:39 12            pushi 12 // $12 illegalBits
  0750:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0756
  0756:48                 ret 
  0757:00                bnot 
    )

)



