(script 202)

(string
    string_0860 "Ethel"
    string_0866 "EthelDrunk"
    string_0871 "Smashed"
    string_0879 "ethel"
    string_087f "ethelActions"
)

(said
    said_0668 /boire,glass>
    said_0670 ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
    said_068f get
    said_0692 ecouter/ethel
    said_0698 look
    said_069b look/ethel
    said_06a1 bonjour/ethel
)

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

(local
    local0 = $00a0
    local1 = $00b9
    local2 = $00a0
    local3 = $0084
    local4 = $0041
    local5 = $0081
    local6 = $00f2
    local7 = $00bb
    local8 = $00c5
    local9 = $00ac
    local10 = $00e9
    local11 = $0086
    local12 = $00bd
    local13 = $008a
    local14 = $0050
    local15 = $008a
    local16 = $0050
    local17 = $0071
    local18 = $0088
    local19 = $00b1
    local20 = $0087
    local21 = $00a3
    local22 = $0000
    local23 = $0000
    local24 = $0000
    local25 = $0000
    local26 = $00a0
    local27 = $0084
    local28 = $0053
    local29 = $002a
    local30 = $0154
    local31 = $00bb
    local32 = $0154
    local33 = $00aa
    local34 = $0130
    local35 = $0061
    local36 = $009f
    local37 = $0071
    local38 = $ffec
    local39 = $008a
    local40 = $ffec
    local41 = $008a
    local42 = $00a6
    local43 = $00f0
    local44 = $0076
    local45 = $00f0
    local46 = $0000
    local47 = $0000
    local48 = $00a0
    local49 = $00f0
    local50 = $ffec
    local51 = $009c
    local52 = $ffec
    local53 = $003e
    local54 = $ffec
    local55 = $00bb
    local56 = $0068
    local57 = $00f0
    local58 = $009c
    local59 = $00f0
    local60 = $0154
    local61 = $008b
    local62 = $0154
    local63 = $0082
    local64 = $00c1
    local65 = $008f
    local66 = $0029
    local67 = $0071
    local68 = $0154
    local69 = $008c
    local70 = $0000
    local71 = $0000
    local72 = $0000
    local73 = $000e
    local74 = $0015
    local75 = $001b
    local76 = $001a
    local77 = $0019
    local78 = $000d
    local79 = $0009
    local80 = $0003
    local81 = $000a
    local82 = $0004
    local83 = $0005
    local84 = $0000
    local85 = $0000
    local86 = $0000
    local87 = $0000
    local88 = $0000
    local89 = $0000
    local90 = $0000
    local91 = $0000
)

// 06ae
(instance Smashed of Sound
    (properties
        state $0
        number $0
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)

// 06d8
(instance public EthelDrunk 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:89 76              lsg gMustDos 
  0022:35 04              ldi 4 
  0024:12                 and 
  0025:18                 not 
  0026:31 2d              bnt code_0055 
  0028:7a               push2 
  0029:38 0087          pushi 87 // $87 clean
  002c:39 29            pushi 29 // $29 edit
  002e:45 15 04         callb procedure_0015 4 // LoadMany 

  0031:39 05            pushi 5 // $5 view
  0033:38 0084          pushi 84 // $84 stop
  0036:39 1d            pushi 1d // $1d back
  0038:39 5e            pushi 5e // $5e respondsTo
  003a:39 5f            pushi 5f // $5f yourself
  003c:39 60            pushi 60 // $60 size
  003e:45 15 0a         callb procedure_0015 a // LoadMany 

  0041:7a               push2 
  0042:38 0080          pushi 80 // $80 timeLeft
  0045:38 0282          pushi 282 // $282 sel_642
  0048:43 00 04         callk Load 4 

  004b:7a               push2 
  004c:38 0082          pushi 82 // $82 owner
  004f:38 0196          pushi 196 // $196 sel_406
  0052:43 00 04         callk Load 4 


        code_0055
  0055:7a               push2 
  0056:38 0080          pushi 80 // $80 timeLeft
  0059:38 0387          pushi 387 // $387 sel_903
  005c:43 00 04         callk Load 4 

  005f:39 03            pushi 3 // $3 y
  0061:38 008f          pushi 8f // $8f moveTo
  0064:38 00f3          pushi f3 // $f3 close
  0067:38 0113          pushi 113 // $113 pauseCel
  006a:45 15 06         callb procedure_0015 6 // LoadMany 

  006d:34 0113            ldi 113 
  0070:a0 017c            sag global380 
  0073:88 0170            lsg gCycleTimers 
  0076:35 00              ldi 0 
  0078:1a                 eq? 
  0079:31 0a              bnt code_0085 
  007b:34 044b            ldi 44b 
  007e:a0 0170            sag gCycleTimers 
  0081:35 00              ldi 0 
  0083:a1 71              sag global113 

        code_0085
  0085:88 0170            lsg gCycleTimers 
  0088:35 02              ldi 2 
  008a:22                 lt? 
  008b:31 13              bnt code_00a0 
  008d:34 0384            ldi 384 
  0090:a0 0170            sag gCycleTimers 
  0093:35 02              ldi 2 
  0095:a1 71              sag global113 
  0097:35 28              ldi 28 
  0099:a3 1c              sal local28 
  009b:34 00f0            ldi f0 
  009e:a3 1d              sal local29 

        code_00a0
  00a0:89 0b              lsg gCurRoomNum 
  00a2:35 19              ldi 19 
  00a4:1a                 eq? 
  00a5:31 0a              bnt code_00b1 
  00a7:38 00c8          pushi c8 // $c8 setLoop
  00aa:78               push1 
  00ab:76               push0 
  00ac:72 0695          lofsa $0744 // Ethel
  00af:4a 06             send 6 


        code_00b1
  00b1:39 0b            pushi b // $b nsBottom
  00b3:81 71              lag global113 
  00b5:04                 sub 
  00b6:9b 48             lsli local72 
  00b8:81 0b              lag gCurRoomNum 
  00ba:1a                 eq? 
  00bb:30 00d3            bnt code_0191 
  00be:88 0170            lsg gCycleTimers 
  00c1:39 0a            pushi a // $a nsLeft
  00c3:81 71              lag global113 
  00c5:04                 sub 
  00c6:36                push 
  00c7:35 64              ldi 64 
  00c9:06                 mul 
  00ca:1e                 gt? 
  00cb:30 00c3            bnt code_0191 
  00ce:39 2b            pushi 2b // $2b number
  00d0:78               push1 
  00d1:39 3e            pushi 3e // $3e looper
  00d3:39 06            pushi 6 // $6 loop
  00d5:78               push1 
  00d6:39 ff            pushi ff // $ff checkAni
  00d8:39 3f            pushi 3f // $3f priority
  00da:78               push1 
  00db:39 0c            pushi c // $c nsRight
  00dd:39 2a            pushi 2a // $2a play
  00df:76               push0 
  00e0:72 05d1          lofsa $06b4 // Smashed
  00e3:4a 16             send 16 

  00e5:35 01              ldi 1 
  00e7:a3 54              sal local84 
  00e9:88 00d0            lsg global208 
  00ec:35 08              ldi 8 
  00ee:14                  or 
  00ef:a0 00d0            sag global208 
  00f2:39 7e            pushi 7e // $7e setCycle
  00f4:78               push1 
  00f5:51 17            class Walk 
  00f7:36                push 
  00f8:38 00d5          pushi d5 // $d5 ignoreHorizon
  00fb:78               push1 
  00fc:78               push1 
  00fd:39 38            pushi 38 // $38 moveSpeed
  00ff:78               push1 
  0100:7a               push2 
  0101:38 00a4          pushi a4 // $a4 cycleSpeed
  0104:78               push1 
  0105:78               push1 
  0106:38 00d4          pushi d4 // $d4 setAvoider
  0109:78               push1 
  010a:38 00be          pushi be // $be offScreenOK
  010d:78               push1 
  010e:78               push1 
  010f:39 56            pushi 56 // $56 new
  0111:76               push0 
  0112:51 21            class Avoid 
  0114:4a 04             send 4 

  0116:4a 06             send 6 

  0118:36                push 
  0119:38 00c5          pushi c5 // $c5 posn
  011c:7a               push2 
  011d:89 71              lsg global113 
  011f:35 02              ldi 2 
  0121:06                 mul 
  0122:9b 00             lsli local0 
  0124:89 71              lsg global113 
  0126:35 02              ldi 2 
  0128:06                 mul 
  0129:36                push 
  012a:35 01              ldi 1 
  012c:02                 add 
  012d:9b 00             lsli local0 
  012f:39 57            pushi 57 // $57 init
  0131:76               push0 
  0132:72 060f          lofsa $0744 // Ethel
  0135:4a 2a             send 2a 

  0137:89 0b              lsg gCurRoomNum 
  0139:35 0d              ldi d 
  013b:1a                 eq? 
  013c:31 0b              bnt code_0149 
  013e:38 00d6          pushi d6 // $d6 observeControl
  0141:78               push1 
  0142:39 40            pushi 40 // $40 modifiers
  0144:72 05fd          lofsa $0744 // Ethel
  0147:4a 06             send 6 


        code_0149
  0149:89 0b              lsg gCurRoomNum 
  014b:35 1b              ldi 1b 
  014d:1a                 eq? 
  014e:31 15              bnt code_0165 
  0150:38 00d3          pushi d3 // $d3 setMotion
  0153:39 03            pushi 3 // $3 y
  0155:51 1d            class MoveTo 
  0157:36                push 
  0158:38 00c1          pushi c1 // $c1 gy
  015b:38 008f          pushi 8f // $8f moveTo
  015e:72 05e3          lofsa $0744 // Ethel
  0161:4a 0a             send a 

  0163:33 1f              jmp code_0184 

        code_0165
  0165:38 00d3          pushi d3 // $d3 setMotion
  0168:39 03            pushi 3 // $3 y
  016a:51 1d            class MoveTo 
  016c:36                push 
  016d:89 71              lsg global113 
  016f:35 02              ldi 2 
  0171:06                 mul 
  0172:9b 30             lsli local48 
  0174:89 71              lsg global113 
  0176:35 02              ldi 2 
  0178:06                 mul 
  0179:36                push 
  017a:35 01              ldi 1 
  017c:02                 add 
  017d:9b 30             lsli local48 
  017f:72 05c2          lofsa $0744 // Ethel
  0182:4a 0a             send a 


        code_0184
  0184:81 0b              lag gCurRoomNum 
  0186:a0 00b3            sag global179 
  0189:39 7a            pushi 7a // $7a setScript
  018b:78               push1 
  018c:74 0581          lofss $0710 // ethelActions
  018f:54 06             self 6 


        code_0191
  0191:48                 ret 
    )

    (method (doit) // method_0192
  0192:88 0170            lsg gCycleTimers 
  0195:35 02              ldi 2 
  0197:22                 lt? 
  0198:31 18              bnt code_01b2 
  019a:83 54              lal local84 
  019c:18                 not 
  019d:31 13              bnt code_01b2 
  019f:34 0384            ldi 384 
  01a2:a0 0170            sag gCycleTimers 
  01a5:35 02              ldi 2 
  01a7:a1 71              sag global113 
  01a9:35 28              ldi 28 
  01ab:a3 1c              sal local28 
  01ad:34 00f0            ldi f0 
  01b0:a3 1d              sal local29 

        code_01b2
  01b2:89 0b              lsg gCurRoomNum 
  01b4:35 04              ldi 4 
  01b6:1c                 ne? 
  01b7:30 010e            bnt code_02c8 
  01ba:88 00b4            lsg global180 
  01bd:35 00              ldi 0 
  01bf:1a                 eq? 
  01c0:30 0105            bnt code_02c8 
  01c3:88 0170            lsg gCycleTimers 
  01c6:35 64              ldi 64 
  01c8:0a                 mod 
  01c9:36                push 
  01ca:35 00              ldi 0 
  01cc:1a                 eq? 
  01cd:30 00f8            bnt code_02c8 
  01d0:88 0170            lsg gCycleTimers 
  01d3:35 64              ldi 64 
  01d5:08                 div 
  01d6:9b 48             lsli local72 
  01d8:81 0b              lag gCurRoomNum 
  01da:1a                 eq? 
  01db:30 00ea            bnt code_02c8 
  01de:83 54              lal local84 
  01e0:18                 not 
  01e1:30 00e4            bnt code_02c8 
  01e4:38 00e3          pushi e3 // $e3 controls
  01e7:76               push0 
  01e8:51 2b            class User 
  01ea:4a 04             send 4 

  01ec:30 00d0            bnt code_02bf 
  01ef:39 2b            pushi 2b // $2b number
  01f1:78               push1 
  01f2:39 3e            pushi 3e // $3e looper
  01f4:39 06            pushi 6 // $6 loop
  01f6:78               push1 
  01f7:39 ff            pushi ff // $ff checkAni
  01f9:39 3f            pushi 3f // $3f priority
  01fb:78               push1 
  01fc:39 0c            pushi c // $c nsRight
  01fe:39 2a            pushi 2a // $2a play
  0200:76               push0 
  0201:72 04b0          lofsa $06b4 // Smashed
  0204:4a 16             send 16 

  0206:78               push1 
  0207:38 03de          pushi 3de // $3de sel_990
  020a:43 03 02         callk DisposeScript 2 

  020d:39 0b            pushi b // $b nsBottom
  020f:88 0170            lsg gCycleTimers 
  0212:35 64              ldi 64 
  0214:08                 div 
  0215:04                 sub 
  0216:a1 71              sag global113 
  0218:88 00d0            lsg global208 
  021b:35 08              ldi 8 
  021d:14                  or 
  021e:a0 00d0            sag global208 
  0221:35 01              ldi 1 
  0223:a3 54              sal local84 
  0225:39 7e            pushi 7e // $7e setCycle
  0227:78               push1 
  0228:51 17            class Walk 
  022a:36                push 
  022b:38 00d5          pushi d5 // $d5 ignoreHorizon
  022e:78               push1 
  022f:78               push1 
  0230:39 38            pushi 38 // $38 moveSpeed
  0232:78               push1 
  0233:7a               push2 
  0234:38 00a4          pushi a4 // $a4 cycleSpeed
  0237:78               push1 
  0238:78               push1 
  0239:38 00d4          pushi d4 // $d4 setAvoider
  023c:78               push1 
  023d:38 00be          pushi be // $be offScreenOK
  0240:78               push1 
  0241:78               push1 
  0242:39 56            pushi 56 // $56 new
  0244:76               push0 
  0245:51 21            class Avoid 
  0247:4a 04             send 4 

  0249:4a 06             send 6 

  024b:36                push 
  024c:38 00c5          pushi c5 // $c5 posn
  024f:7a               push2 
  0250:89 71              lsg global113 
  0252:35 02              ldi 2 
  0254:06                 mul 
  0255:9b 18             lsli local24 
  0257:89 71              lsg global113 
  0259:35 02              ldi 2 
  025b:06                 mul 
  025c:36                push 
  025d:35 01              ldi 1 
  025f:02                 add 
  0260:9b 18             lsli local24 
  0262:39 57            pushi 57 // $57 init
  0264:76               push0 
  0265:72 04dc          lofsa $0744 // Ethel
  0268:4a 2a             send 2a 

  026a:38 00d6          pushi d6 // $d6 observeControl
  026d:78               push1 
  026e:39 40            pushi 40 // $40 modifiers
  0270:72 04d1          lofsa $0744 // Ethel
  0273:4a 06             send 6 

  0275:89 0b              lsg gCurRoomNum 
  0277:35 1b              ldi 1b 
  0279:1a                 eq? 
  027a:31 15              bnt code_0291 
  027c:38 00d3          pushi d3 // $d3 setMotion
  027f:39 03            pushi 3 // $3 y
  0281:51 1d            class MoveTo 
  0283:36                push 
  0284:38 00c1          pushi c1 // $c1 gy
  0287:38 008f          pushi 8f // $8f moveTo
  028a:72 04b7          lofsa $0744 // Ethel
  028d:4a 0a             send a 

  028f:33 1f              jmp code_02b0 

        code_0291
  0291:38 00d3          pushi d3 // $d3 setMotion
  0294:39 03            pushi 3 // $3 y
  0296:51 1d            class MoveTo 
  0298:36                push 
  0299:89 71              lsg global113 
  029b:35 02              ldi 2 
  029d:06                 mul 
  029e:9b 30             lsli local48 
  02a0:89 71              lsg global113 
  02a2:35 02              ldi 2 
  02a4:06                 mul 
  02a5:36                push 
  02a6:35 01              ldi 1 
  02a8:02                 add 
  02a9:9b 30             lsli local48 
  02ab:72 0496          lofsa $0744 // Ethel
  02ae:4a 0a             send a 


        code_02b0
  02b0:81 0b              lag gCurRoomNum 
  02b2:a0 00b3            sag global179 
  02b5:39 7a            pushi 7a // $7a setScript
  02b7:78               push1 
  02b8:74 0455          lofss $0710 // ethelActions
  02bb:54 06             self 6 

  02bd:33 09              jmp code_02c8 

        code_02bf
  02bf:88 0170            lsg gCycleTimers 
  02c2:35 0a              ldi a 
  02c4:02                 add 
  02c5:a0 0170            sag gCycleTimers 

        code_02c8
  02c8:39 3c            pushi 3c // $3c doit
  02ca:76               push0 
  02cb:57 36 04         super Rgn 4 

  02ce:48                 ret 
    )

    (method (dispose) // method_02cf
  02cf:89 71              lsg global113 
  02d1:35 00              ldi 0 
  02d3:1a                 eq? 
  02d4:31 0b              bnt code_02e1 
  02d6:89 0b              lsg gCurRoomNum 
  02d8:35 05              ldi 5 
  02da:1a                 eq? 
  02db:31 04              bnt code_02e1 
  02dd:35 01              ldi 1 
  02df:a1 71              sag global113 

        code_02e1
  02e1:83 54              lal local84 
  02e3:31 48              bnt code_032d 
  02e5:39 03            pushi 3 // $3 y
  02e7:76               push0 
  02e8:72 0459          lofsa $0744 // Ethel
  02eb:4a 04             send 4 

  02ed:36                push 
  02ee:34 00c8            ldi c8 
  02f1:1e                 gt? 
  02f2:2f 1d               bt code_0311 
  02f4:39 04            pushi 4 // $4 x
  02f6:76               push0 
  02f7:72 044a          lofsa $0744 // Ethel
  02fa:4a 04             send 4 

  02fc:36                push 
  02fd:34 0140            ldi 140 
  0300:1e                 gt? 
  0301:2f 0e               bt code_0311 
  0303:39 04            pushi 4 // $4 x
  0305:76               push0 
  0306:72 043b          lofsa $0744 // Ethel
  0309:4a 04             send 4 

  030b:36                push 
  030c:35 00              ldi 0 
  030e:22                 lt? 
  030f:31 10              bnt code_0321 

        code_0311
  0311:c1 71              +ag global113 
  0313:38 044c          pushi 44c // $44c sel_1100
  0316:89 71              lsg global113 
  0318:35 64              ldi 64 
  031a:06                 mul 
  031b:04                 sub 
  031c:a0 0170            sag gCycleTimers 
  031f:33 0c              jmp code_032d 

        code_0321
  0321:38 0460          pushi 460 // $460 sel_1120
  0324:89 71              lsg global113 
  0326:35 64              ldi 64 
  0328:06                 mul 
  0329:04                 sub 
  032a:a0 0170            sag gCycleTimers 

        code_032d
  032d:78               push1 
  032e:38 03d9          pushi 3d9 // $3d9 sel_985
  0331:43 03 02         callk DisposeScript 2 

  0334:39 58            pushi 58 // $58 dispose
  0336:76               push0 
  0337:57 36 04         super Rgn 4 

  033a:48                 ret 
    )

    (method (handleEvent) // method_033b
  033b:39 6f            pushi 6f // $6f handleEvent
  033d:78               push1 
  033e:8f 01              lsp param1 
  0340:57 36 06         super Rgn 6 

  0343:39 4c            pushi 4c // $4c claimed
  0345:76               push0 
  0346:87 01              lap param1 
  0348:4a 04             send 4 

  034a:31 01              bnt code_034d 
  034c:48                 ret 

        code_034d
  034d:39 22            pushi 22 // $22 type
  034f:76               push0 
  0350:87 01              lap param1 
  0352:4a 04             send 4 

  0354:36                push 
  0355:34 0080            ldi 80 
  0358:1a                 eq? 
  0359:31 38              bnt code_0393 
  035b:80 00d0            lag global208 
  035e:31 33              bnt code_0393 
  0360:78               push1 
  0361:74 030c          lofss $0670 // ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
  0364:43 25 02         callk Said 2 

  0367:31 2a              bnt code_0393 
  0369:39 7a            pushi 7a // $7a setScript
  036b:78               push1 
  036c:7a               push2 
  036d:38 00f3          pushi f3 // $f3 close
  0370:76               push0 
  0371:43 02 04         callk ScriptID 4 

  0374:36                push 
  0375:72 03cc          lofsa $0744 // Ethel
  0378:4a 06             send 6 

  037a:39 6f            pushi 6f // $6f handleEvent
  037c:78               push1 
  037d:8f 01              lsp param1 
  037f:39 76            pushi 76 // $76 script
  0381:76               push0 
  0382:72 03bf          lofsa $0744 // Ethel
  0385:4a 04             send 4 

  0387:4a 06             send 6 

  0389:39 4c            pushi 4c // $4c claimed
  038b:76               push0 
  038c:87 01              lap param1 
  038e:4a 04             send 4 

  0390:31 01              bnt code_0393 
  0392:48                 ret 

        code_0393
  0393:48                 ret 
    )

)

// 070a
(instance ethelActions of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (handleEvent) // method_0394
  0394:39 6f            pushi 6f // $6f handleEvent
  0396:78               push1 
  0397:8f 01              lsp param1 
  0399:57 05 06         super Script 6 

  039c:48                 ret 
    )

    (method (changeState) // method_039d
  039d:87 01              lap param1 
  039f:65 0a             aTop state 
  03a1:36                push 
  03a2:3c                 dup 
  03a3:35 00              ldi 0 
  03a5:1a                 eq? 
  03a6:31 65              bnt code_040d 
  03a8:88 00a5            lsg gAct 
  03ab:35 03              ldi 3 
  03ad:1a                 eq? 
  03ae:31 56              bnt code_0406 
  03b0:80 00d8            lag global216 
  03b3:18                 not 
  03b4:31 06              bnt code_03bc 
  03b6:35 ff              ldi ff 
  03b8:65 0a             aTop state 
  03ba:33 4a              jmp code_0406 

        code_03bc
  03bc:89 76              lsg gMustDos 
  03be:35 04              ldi 4 
  03c0:12                 and 
  03c1:18                 not 
  03c2:31 37              bnt code_03fb 
  03c4:88 00bb            lsg gMinute 
  03c7:35 03              ldi 3 
  03c9:1a                 eq? 
  03ca:31 14              bnt code_03e0 
  03cc:89 0b              lsg gCurRoomNum 
  03ce:35 0a              ldi a 
  03d0:1a                 eq? 
  03d1:31 0d              bnt code_03e0 
  03d3:35 01              ldi 1 
  03d5:a3 56              sal local86 
  03d7:38 00a3          pushi a3 // $a3 startUpd
  03da:76               push0 
  03db:80 0175            lag global373 
  03de:4a 04             send 4 


        code_03e0
  03e0:89 76              lsg gMustDos 
  03e2:35 04              ldi 4 
  03e4:14                  or 
  03e5:a1 76              sag gMustDos 
  03e7:39 7a            pushi 7a // $7a setScript
  03e9:78               push1 
  03ea:7a               push2 
  03eb:38 0196          pushi 196 // $196 sel_406
  03ee:76               push0 
  03ef:43 02 04         callk ScriptID 4 

  03f2:36                push 
  03f3:54 06             self 6 

  03f5:35 ff              ldi ff 
  03f7:65 0a             aTop state 
  03f9:33 0b              jmp code_0406 

        code_03fb
  03fb:39 76            pushi 76 // $76 script
  03fd:76               push0 
  03fe:54 04             self 4 

  0400:31 04              bnt code_0406 
  0402:35 ff              ldi ff 
  0404:65 0a             aTop state 

        code_0406
  0406:35 03              ldi 3 
  0408:65 10             aTop cycles 
  040a:32 00d7            jmp code_04e4 

        code_040d
  040d:3c                 dup 
  040e:35 01              ldi 1 
  0410:1a                 eq? 
  0411:31 59              bnt code_046c 
  0413:89 0b              lsg gCurRoomNum 
  0415:35 0a              ldi a 
  0417:1a                 eq? 
  0418:31 11              bnt code_042b 
  041a:83 56              lal local86 
  041c:31 0d              bnt code_042b 
  041e:35 00              ldi 0 
  0420:a3 56              sal local86 
  0422:38 00c6          pushi c6 // $c6 stopUpd
  0425:76               push0 
  0426:80 0175            lag global373 
  0429:4a 04             send 4 


        code_042b
  042b:39 04            pushi 4 // $4 x
  042d:76               push0 
  042e:72 0313          lofsa $0744 // Ethel
  0431:4a 04             send 4 

  0433:36                push 
  0434:89 71              lsg global113 
  0436:35 02              ldi 2 
  0438:06                 mul 
  0439:93 30             lali local48 
  043b:1a                 eq? 
  043c:31 24              bnt code_0462 
  043e:39 03            pushi 3 // $3 y
  0440:76               push0 
  0441:72 0300          lofsa $0744 // Ethel
  0444:4a 04             send 4 

  0446:36                push 
  0447:89 71              lsg global113 
  0449:35 02              ldi 2 
  044b:06                 mul 
  044c:36                push 
  044d:35 01              ldi 1 
  044f:02                 add 
  0450:93 30             lali local48 
  0452:1a                 eq? 
  0453:31 0d              bnt code_0462 
  0455:89 0b              lsg gCurRoomNum 
  0457:35 1b              ldi 1b 
  0459:1a                 eq? 
  045a:31 04              bnt code_0460 
  045c:35 02              ldi 2 
  045e:65 0a             aTop state 

        code_0460
  0460:33 04              jmp code_0466 

        code_0462
  0462:35 00              ldi 0 
  0464:65 0a             aTop state 

        code_0466
  0466:35 01              ldi 1 
  0468:65 10             aTop cycles 
  046a:33 78              jmp code_04e4 

        code_046c
  046c:3c                 dup 
  046d:35 02              ldi 2 
  046f:1a                 eq? 
  0470:31 56              bnt code_04c8 
  0472:35 00              ldi 0 
  0474:a3 56              sal local86 
  0476:35 00              ldi 0 
  0478:a3 54              sal local84 
  047a:c1 71              +ag global113 
  047c:38 044c          pushi 44c // $44c sel_1100
  047f:89 71              lsg global113 
  0481:35 64              ldi 64 
  0483:06                 mul 
  0484:04                 sub 
  0485:a0 0170            sag gCycleTimers 
  0488:88 0170            lsg gCycleTimers 
  048b:35 02              ldi 2 
  048d:22                 lt? 
  048e:31 0a              bnt code_049a 
  0490:34 0384            ldi 384 
  0493:a0 0170            sag gCycleTimers 
  0496:35 02              ldi 2 
  0498:a1 71              sag global113 

        code_049a
  049a:38 0088          pushi 88 // $88 fade
  049d:76               push0 
  049e:72 0213          lofsa $06b4 // Smashed
  04a1:4a 04             send 4 

  04a3:35 00              ldi 0 
  04a5:a0 00b3            sag global179 
  04a8:39 58            pushi 58 // $58 dispose
  04aa:76               push0 
  04ab:72 0296          lofsa $0744 // Ethel
  04ae:4a 04             send 4 

  04b0:88 00d0            lsg global208 
  04b3:35 f7              ldi f7 
  04b5:12                 and 
  04b6:a0 00d0            sag global208 
  04b9:35 00              ldi 0 
  04bb:a0 017c            sag global380 
  04be:39 7a            pushi 7a // $7a setScript
  04c0:78               push1 
  04c1:76               push0 
  04c2:63 08             pToa client 
  04c4:4a 06             send 6 

  04c6:33 1c              jmp code_04e4 

        code_04c8
  04c8:3c                 dup 
  04c9:35 03              ldi 3 
  04cb:1a                 eq? 
  04cc:31 16              bnt code_04e4 
  04ce:35 01              ldi 1 
  04d0:65 0a             aTop state 
  04d2:38 00d3          pushi d3 // $d3 setMotion
  04d5:39 04            pushi 4 // $4 x
  04d7:51 1d            class MoveTo 
  04d9:36                push 
  04da:39 6e            pushi 6e // $6e indexOf
  04dc:39 6e            pushi 6e // $6e indexOf
  04de:7c            pushSelf 
  04df:72 0262          lofsa $0744 // Ethel
  04e2:4a 0c             send c 


        code_04e4
  04e4:3a                toss 
  04e5:48                 ret 
    )

)

// 073e
(instance Ethel of Act
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $3
        view $148
        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_04e6
  04e6:39 6f            pushi 6f // $6f handleEvent
  04e8:78               push1 
  04e9:8f 01              lsp param1 
  04eb:57 28 06         super Act 6 

  04ee:35 04              ldi 4 
  04f0:a0 00d5            sag global213 
  04f3:83 54              lal local84 
  04f5:30 016a            bnt code_0662 
  04f8:78               push1 
  04f9:74 016c          lofss $0668 // /boire,glass>
  04fc:43 25 02         callk Said 2 

  04ff:31 2d              bnt code_052e 
  0501:78               push1 
  0502:74 0193          lofss $0698 // look
  0505:43 25 02         callk Said 2 

  0508:31 0d              bnt code_0517 
  050a:7a               push2 
  050b:38 00ca          pushi ca // $ca show
  050e:76               push0 
  050f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0515:33 14              jmp code_052b 

        code_0517
  0517:78               push1 
  0518:74 0174          lofss $068f // get
  051b:43 25 02         callk Said 2 

  051e:31 0b              bnt code_052b 
  0520:7a               push2 
  0521:38 00ca          pushi ca // $ca show
  0524:78               push1 
  0525:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_052b
  052b:32 0134            jmp code_0662 

        code_052e
  052e:78               push1 
  052f:74 0160          lofss $0692 // ecouter/ethel
  0532:43 25 02         callk Said 2 

  0535:31 0e              bnt code_0545 
  0537:7a               push2 
  0538:38 00ca          pushi ca // $ca show
  053b:7a               push2 
  053c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0542:32 011d            jmp code_0662 

        code_0545
  0545:88 00cf            lsg global207 
  0548:35 08              ldi 8 
  054a:12                 and 
  054b:18                 not 
  054c:31 21              bnt code_056f 
  054e:39 03            pushi 3 // $3 y
  0550:7c            pushSelf 
  0551:8f 01              lsp param1 
  0553:39 03            pushi 3 // $3 y
  0555:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  055b:31 12              bnt code_056f 
  055d:39 4c            pushi 4c // $4c claimed
  055f:78               push1 
  0560:78               push1 
  0561:87 01              lap param1 
  0563:4a 06             send 6 

  0565:78               push1 
  0566:74 0310          lofss $0879 // ethel
  0569:45 19 02         callb procedure_0019 2 // DoLook 

  056c:32 00f3            jmp code_0662 

        code_056f
  056f:88 00cf            lsg global207 
  0572:35 08              ldi 8 
  0574:12                 and 
  0575:31 2f              bnt code_05a6 
  0577:39 03            pushi 3 // $3 y
  0579:7c            pushSelf 
  057a:8f 01              lsp param1 
  057c:39 03            pushi 3 // $3 y
  057e:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0584:2f 09               bt code_058f 
  0586:78               push1 
  0587:74 0111          lofss $069b // look/ethel
  058a:43 25 02         callk Said 2 

  058d:31 17              bnt code_05a6 

        code_058f
  058f:39 4c            pushi 4c // $4c claimed
  0591:78               push1 
  0592:78               push1 
  0593:87 01              lap param1 
  0595:4a 06             send 6 

  0597:7a               push2 
  0598:38 00ca          pushi ca // $ca show
  059b:39 03            pushi 3 // $3 y
  059d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05a3:32 00bc            jmp code_0662 

        code_05a6
  05a6:78               push1 
  05a7:74 00f7          lofss $06a1 // bonjour/ethel
  05aa:43 25 02         callk Said 2 

  05ad:30 00b2            bnt code_0662 
  05b0:35 04              ldi 4 
  05b2:a0 00d5            sag global213 
  05b5:8b 55              lsl local85 
  05b7:3c                 dup 
  05b8:35 00              ldi 0 
  05ba:1a                 eq? 
  05bb:31 0e              bnt code_05cb 
  05bd:39 03            pushi 3 // $3 y
  05bf:78               push1 
  05c0:38 00ca          pushi ca // $ca show
  05c3:39 04            pushi 4 // $4 x
  05c5:45 01 06         callb procedure_0001 6 // Say 

  05c8:32 0094            jmp code_065f 

        code_05cb
  05cb:3c                 dup 
  05cc:35 01              ldi 1 
  05ce:1a                 eq? 
  05cf:31 18              bnt code_05e9 
  05d1:39 03            pushi 3 // $3 y
  05d3:78               push1 
  05d4:38 00ca          pushi ca // $ca show
  05d7:39 05            pushi 5 // $5 view
  05d9:45 01 06         callb procedure_0001 6 // Say 

  05dc:39 03            pushi 3 // $3 y
  05de:78               push1 
  05df:38 00ca          pushi ca // $ca show
  05e2:39 06            pushi 6 // $6 loop
  05e4:45 01 06         callb procedure_0001 6 // Say 

  05e7:33 76              jmp code_065f 

        code_05e9
  05e9:3c                 dup 
  05ea:35 02              ldi 2 
  05ec:1a                 eq? 
  05ed:31 0d              bnt code_05fc 
  05ef:39 03            pushi 3 // $3 y
  05f1:78               push1 
  05f2:38 00ca          pushi ca // $ca show
  05f5:39 07            pushi 7 // $7 cel
  05f7:45 01 06         callb procedure_0001 6 // Say 

  05fa:33 63              jmp code_065f 

        code_05fc
  05fc:3c                 dup 
  05fd:35 03              ldi 3 
  05ff:1a                 eq? 
  0600:31 0d              bnt code_060f 
  0602:39 03            pushi 3 // $3 y
  0604:78               push1 
  0605:38 00ca          pushi ca // $ca show
  0608:39 08            pushi 8 // $8 underBits
  060a:45 01 06         callb procedure_0001 6 // Say 

  060d:33 50              jmp code_065f 

        code_060f
  060f:3c                 dup 
  0610:35 04              ldi 4 
  0612:1a                 eq? 
  0613:31 0d              bnt code_0622 
  0615:39 03            pushi 3 // $3 y
  0617:78               push1 
  0618:38 00ca          pushi ca // $ca show
  061b:39 09            pushi 9 // $9 nsTop
  061d:45 01 06         callb procedure_0001 6 // Say 

  0620:33 3d              jmp code_065f 

        code_0622
  0622:3c                 dup 
  0623:35 05              ldi 5 
  0625:1a                 eq? 
  0626:31 18              bnt code_0640 
  0628:39 03            pushi 3 // $3 y
  062a:78               push1 
  062b:38 00ca          pushi ca // $ca show
  062e:39 0a            pushi a // $a nsLeft
  0630:45 01 06         callb procedure_0001 6 // Say 

  0633:39 03            pushi 3 // $3 y
  0635:78               push1 
  0636:38 00ca          pushi ca // $ca show
  0639:39 0b            pushi b // $b nsBottom
  063b:45 01 06         callb procedure_0001 6 // Say 

  063e:33 1f              jmp code_065f 

        code_0640
  0640:3c                 dup 
  0641:35 06              ldi 6 
  0643:1a                 eq? 
  0644:31 0d              bnt code_0653 
  0646:39 03            pushi 3 // $3 y
  0648:78               push1 
  0649:38 00ca          pushi ca // $ca show
  064c:39 0c            pushi c // $c nsRight
  064e:45 01 06         callb procedure_0001 6 // Say 

  0651:33 0c              jmp code_065f 

        code_0653
  0653:7a               push2 
  0654:38 00ca          pushi ca // $ca show
  0657:39 0d            pushi d // $d lsTop
  0659:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_065f
  065f:3a                toss 
  0660:c3 55              +al local85 

        code_0662
  0662:48                 ret 
  0663:00                bnot 
    )

)



