(script 233)

(string
    string_0e40 "Arm"
    string_0e44 "Ash"
    string_0e48 "Gloria"
    string_0e4f "Head"
    string_0e54 "Jeeves"
    string_0e5b "Leg"
    string_0e5f "Smoke"
    string_0e65 "Smoking"
    string_0e6d "crossLeg"
    string_0e76 "glorplay"
    string_0e7f "goSee"
    string_0e85 "playRecord"
    string_0e90 "record"
    string_0e97 "recordMusic"
    string_0ea3 ""
)

(said
    said_09b6 (rotate<on,off),(vent<haut)/gramophone,(joueur<chanson)
    said_09d4 /actress>
    said_09d9 /boa>
    said_09de /cigarette>
    said_09e3 ask,raconter//*<about
    said_09f0 embrace
    said_09f3 get
    said_09f6 deliver,hold
    said_09fc deliver,hold/*
    said_0a05 abattre
    said_0a08 embrasser
    said_0a0b ecouter
    said_0a0e look
    said_0a11 look/actress[/!*]
    said_0a1c jouer,attach,change/music,chanson[/(gramophone,(joueur<chanson))<on]
    said_0a3d fumee
    said_0a40 bonjour
    said_0a43 raconter[/actress]/(death<gertie),gertie<about
)

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

(local
    local0 = $0000
    local1 = $00dc
    local2 = $00dd
    local3 = $00e1
    local4 = $00e2
    local5 = $0000
)

// 0a60
(instance Jeeves of servent
    (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
        guest1 $0
        exitX $0
        exitY $0
        seconds $0
        lastSeconds $0
        serveState $0
        guestState $0
        serving $0
        outOfRoom $0
        itemX $0
        itemY $0
    )
)

// 0ada
(instance public glorplay 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 06            pushi 6 // $6 loop
  0022:38 0084          pushi 84 // $84 stop
  0025:39 63            pushi 63 // $63 firstTrue
  0027:38 00dc          pushi dc // $dc setStep
  002a:38 00dd          pushi dd // $dd setDirection
  002d:38 00e1          pushi e1 // $e1 alterEgo
  0030:38 00e2          pushi e2 // $e2 canInput
  0033:45 15 0c         callb procedure_0015 c // LoadMany 

  0036:7a               push2 
  0037:38 008f          pushi 8f // $8f moveTo
  003a:38 00f3          pushi f3 // $f3 close
  003d:45 15 04         callb procedure_0015 4 // LoadMany 

  0040:88 00a5            lsg gAct 
  0043:35 02              ldi 2 
  0045:1a                 eq? 
  0046:31 54              bnt code_009c 
  0048:89 76              lsg gMustDos 
  004a:35 08              ldi 8 
  004c:12                 and 
  004d:18                 not 
  004e:31 2d              bnt code_007d 
  0050:7a               push2 
  0051:38 0087          pushi 87 // $87 clean
  0054:39 29            pushi 29 // $29 edit
  0056:45 15 04         callb procedure_0015 4 // LoadMany 

  0059:39 05            pushi 5 // $5 view
  005b:38 0084          pushi 84 // $84 stop
  005e:39 1d            pushi 1d // $1d back
  0060:39 5e            pushi 5e // $5e respondsTo
  0062:39 5f            pushi 5f // $5f yourself
  0064:39 60            pushi 60 // $60 size
  0066:45 15 0a         callb procedure_0015 a // LoadMany 

  0069:7a               push2 
  006a:38 0080          pushi 80 // $80 timeLeft
  006d:38 0282          pushi 282 // $282 sel_642
  0070:43 00 04         callk Load 4 

  0073:7a               push2 
  0074:38 0082          pushi 82 // $82 owner
  0077:38 0196          pushi 196 // $196 sel_406
  007a:43 00 04         callk Load 4 


        code_007d
  007d:7a               push2 
  007e:38 0080          pushi 80 // $80 timeLeft
  0081:38 0386          pushi 386 // $386 sel_902
  0084:43 00 04         callk Load 4 

  0087:7a               push2 
  0088:38 008f          pushi 8f // $8f moveTo
  008b:38 0102          pushi 102 // $102 keep
  008e:45 15 04         callb procedure_0015 4 // LoadMany 

  0091:34 0102            ldi 102 
  0094:a0 017b            sag global379 
  0097:35 02              ldi 2 
  0099:a0 00c7            sag global199 

        code_009c
  009c:35 04              ldi 4 
  009e:a0 00d0            sag global208 
  00a1:88 0091            lsg global145 
  00a4:35 02              ldi 2 
  00a6:12                 and 
  00a7:18                 not 
  00a8:31 0a              bnt code_00b4 
  00aa:7a               push2 
  00ab:38 0082          pushi 82 // $82 owner
  00ae:38 03d9          pushi 3d9 // $3d9 sel_985
  00b1:43 00 04         callk Load 4 


        code_00b4
  00b4:39 05            pushi 5 // $5 view
  00b6:78               push1 
  00b7:38 0172          pushi 172 // $172 sel_370
  00ba:39 06            pushi 6 // $6 loop
  00bc:78               push1 
  00bd:76               push0 
  00be:39 12            pushi 12 // $12 illegalBits
  00c0:78               push1 
  00c1:76               push0 
  00c2:38 00c5          pushi c5 // $c5 posn
  00c5:7a               push2 
  00c6:38 0125          pushi 125 // $125 winding
  00c9:39 5e            pushi 5e // $5e respondsTo
  00cb:38 00c6          pushi c6 // $c6 stopUpd
  00ce:76               push0 
  00cf:72 0ad0          lofsa $0ba2 // Gloria
  00d2:4a 1e             send 1e 

  00d4:39 42            pushi 42 // $42 setPri
  00d6:78               push1 
  00d7:39 06            pushi 6 // $6 loop
  00d9:39 57            pushi 57 // $57 init
  00db:76               push0 
  00dc:72 0b2b          lofsa $0c0a // Arm
  00df:4a 0a             send a 

  00e1:39 42            pushi 42 // $42 setPri
  00e3:78               push1 
  00e4:39 06            pushi 6 // $6 loop
  00e6:39 57            pushi 57 // $57 init
  00e8:76               push0 
  00e9:72 0bba          lofsa $0ca6 // Ash
  00ec:4a 0a             send a 

  00ee:39 42            pushi 42 // $42 setPri
  00f0:78               push1 
  00f1:39 06            pushi 6 // $6 loop
  00f3:39 57            pushi 57 // $57 init
  00f5:76               push0 
  00f6:72 0bfb          lofsa $0cf4 // Head
  00f9:4a 0a             send a 

  00fb:39 42            pushi 42 // $42 setPri
  00fd:78               push1 
  00fe:39 06            pushi 6 // $6 loop
  0100:39 57            pushi 57 // $57 init
  0102:76               push0 
  0103:72 0b52          lofsa $0c58 // Smoke
  0106:4a 0a             send a 

  0108:39 7a            pushi 7a // $7a setScript
  010a:78               push1 
  010b:74 0a04          lofss $0b12 // Smoking
  010e:54 06             self 6 

  0110:39 57            pushi 57 // $57 init
  0112:76               push0 
  0113:72 0a8c          lofsa $0ba2 // Gloria
  0116:4a 04             send 4 

  0118:39 57            pushi 57 // $57 init
  011a:76               push0 
  011b:39 7a            pushi 7a // $7a setScript
  011d:78               push1 
  011e:74 0a51          lofss $0b72 // crossLeg
  0121:72 0c1e          lofsa $0d42 // Leg
  0124:4a 0a             send a 

  0126:39 57            pushi 57 // $57 init
  0128:76               push0 
  0129:39 7a            pushi 7a // $7a setScript
  012b:78               push1 
  012c:74 0cd9          lofss $0e08 // playRecord
  012f:72 0c88          lofsa $0dba // record
  0132:4a 0a             send a 

  0134:88 00a5            lsg gAct 
  0137:35 00              ldi 0 
  0139:1a                 eq? 
  013a:31 68              bnt code_01a4 
  013c:88 00c2            lsg global194 
  013f:35 04              ldi 4 
  0141:12                 and 
  0142:18                 not 
  0143:31 5f              bnt code_01a4 
  0145:88 00c2            lsg global194 
  0148:35 04              ldi 4 
  014a:14                  or 
  014b:a0 00c2            sag global194 
  014e:39 05            pushi 5 // $5 view
  0150:78               push1 
  0151:38 01bc          pushi 1bc // $1bc sel_444
  0154:38 00c5          pushi c5 // $c5 posn
  0157:7a               push2 
  0158:38 0140          pushi 140 // $140 upRoomNo
  015b:39 62            pushi 62 // $62 eachElementDo
  015d:39 7e            pushi 7e // $7e setCycle
  015f:78               push1 
  0160:51 17            class Walk 
  0162:36                push 
  0163:38 014c          pushi 14c // $14c guest1
  0166:78               push1 
  0167:74 0a38          lofss $0ba2 // Gloria
  016a:38 014d          pushi 14d // $14d exitX
  016d:78               push1 
  016e:38 0140          pushi 140 // $140 upRoomNo
  0171:38 014e          pushi 14e // $14e exitY
  0174:78               push1 
  0175:39 62            pushi 62 // $62 eachElementDo
  0177:38 0153          pushi 153 // $153 itemX
  017a:78               push1 
  017b:38 0127          pushi 127 // $127 intermediate
  017e:38 0154          pushi 154 // $154 itemY
  0181:78               push1 
  0182:39 64            pushi 64 // $64 allTrue
  0184:38 00d4          pushi d4 // $d4 setAvoider
  0187:78               push1 
  0188:38 00be          pushi be // $be offScreenOK
  018b:78               push1 
  018c:78               push1 
  018d:39 56            pushi 56 // $56 new
  018f:76               push0 
  0190:51 21            class Avoid 
  0192:4a 04             send 4 

  0194:4a 06             send 6 

  0196:36                push 
  0197:39 57            pushi 57 // $57 init
  0199:76               push0 
  019a:72 08c9          lofsa $0a66 // Jeeves
  019d:4a 3c             send 3c 

  019f:35 01              ldi 1 
  01a1:a0 00a7            sag global167 

        code_01a4
  01a4:48                 ret 
    )

    (method (doit) // method_01a5
  01a5:39 3c            pushi 3c // $3c doit
  01a7:76               push0 
  01a8:57 36 04         super Rgn 4 

  01ab:48                 ret 
    )

    (method (dispose) // method_01ac
  01ac:88 009f            lsg global159 
  01af:35 03              ldi 3 
  01b1:22                 lt? 
  01b2:31 05              bnt code_01b9 
  01b4:c0 009f            +ag global159 
  01b7:33 05              jmp code_01be 

        code_01b9
  01b9:35 00              ldi 0 
  01bb:a0 009f            sag global159 

        code_01be
  01be:78               push1 
  01bf:38 03d9          pushi 3d9 // $3d9 sel_985
  01c2:43 03 02         callk DisposeScript 2 

  01c5:39 58            pushi 58 // $58 dispose
  01c7:76               push0 
  01c8:57 36 04         super Rgn 4 

  01cb:48                 ret 
    )

    (method (handleEvent) // method_01cc
  01cc:39 6f            pushi 6f // $6f handleEvent
  01ce:78               push1 
  01cf:8f 01              lsp param1 
  01d1:57 36 06         super Rgn 6 

  01d4:39 4c            pushi 4c // $4c claimed
  01d6:76               push0 
  01d7:87 01              lap param1 
  01d9:4a 04             send 4 

  01db:31 01              bnt code_01de 
  01dd:48                 ret 

        code_01de
  01de:78               push1 
  01df:38 03de          pushi 3de // $3de sel_990
  01e2:43 03 02         callk DisposeScript 2 

  01e5:39 22            pushi 22 // $22 type
  01e7:76               push0 
  01e8:87 01              lap param1 
  01ea:4a 04             send 4 

  01ec:36                push 
  01ed:34 0080            ldi 80 
  01f0:1a                 eq? 
  01f1:30 00e3            bnt code_02d7 
  01f4:78               push1 
  01f5:74 0824          lofss $0a1c // jouer,attach,change/music,chanson[/(gramophone,(joueur<chanson))<on]
  01f8:43 25 02         callk Said 2 

  01fb:2f 09               bt code_0206 
  01fd:78               push1 
  01fe:74 07b5          lofss $09b6 // (rotate<on,off),(vent<haut)/gramophone,(joueur<chanson)
  0201:43 25 02         callk Said 2 

  0204:31 20              bnt code_0226 

        code_0206
  0206:80 00e0            lag global224 
  0209:31 0d              bnt code_0218 
  020b:7a               push2 
  020c:38 00e9          pushi e9 // $e9 canControl
  020f:76               push0 
  0210:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0216:33 0b              jmp code_0223 

        code_0218
  0218:7a               push2 
  0219:38 00e9          pushi e9 // $e9 canControl
  021c:78               push1 
  021d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0223
  0223:32 00b1            jmp code_02d7 

        code_0226
  0226:78               push1 
  0227:74 07af          lofss $09d9 // /boa>
  022a:43 25 02         callk Said 2 

  022d:31 2d              bnt code_025c 
  022f:78               push1 
  0230:74 07db          lofss $0a0e // look
  0233:43 25 02         callk Said 2 

  0236:31 0d              bnt code_0245 
  0238:7a               push2 
  0239:38 00e9          pushi e9 // $e9 canControl
  023c:7a               push2 
  023d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0243:33 15              jmp code_025a 

        code_0245
  0245:78               push1 
  0246:74 07aa          lofss $09f3 // get
  0249:43 25 02         callk Said 2 

  024c:31 0c              bnt code_025a 
  024e:7a               push2 
  024f:38 00e9          pushi e9 // $e9 canControl
  0252:39 03            pushi 3 // $3 y
  0254:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_025a
  025a:33 7b              jmp code_02d7 

        code_025c
  025c:78               push1 
  025d:74 077e          lofss $09de // /cigarette>
  0260:43 25 02         callk Said 2 

  0263:31 45              bnt code_02aa 
  0265:78               push1 
  0266:74 07a5          lofss $0a0e // look
  0269:43 25 02         callk Said 2 

  026c:31 0e              bnt code_027c 
  026e:7a               push2 
  026f:38 00e9          pushi e9 // $e9 canControl
  0272:39 04            pushi 4 // $4 x
  0274:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  027a:33 2c              jmp code_02a8 

        code_027c
  027c:78               push1 
  027d:74 07bd          lofss $0a3d // fumee
  0280:43 25 02         callk Said 2 

  0283:31 0e              bnt code_0293 
  0285:7a               push2 
  0286:38 00e9          pushi e9 // $e9 canControl
  0289:39 05            pushi 5 // $5 view
  028b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0291:33 15              jmp code_02a8 

        code_0293
  0293:78               push1 
  0294:74 075c          lofss $09f3 // get
  0297:43 25 02         callk Said 2 

  029a:31 0c              bnt code_02a8 
  029c:7a               push2 
  029d:38 00e9          pushi e9 // $e9 canControl
  02a0:39 06            pushi 6 // $6 loop
  02a2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02a8
  02a8:33 2d              jmp code_02d7 

        code_02aa
  02aa:88 00a5            lsg gAct 
  02ad:35 01              ldi 1 
  02af:24                 le? 
  02b0:31 25              bnt code_02d7 
  02b2:78               push1 
  02b3:74 0746          lofss $09fc // deliver,hold/*
  02b6:43 25 02         callk Said 2 

  02b9:31 1c              bnt code_02d7 
  02bb:80 00db            lag global219 
  02be:31 13              bnt code_02d3 
  02c0:80 00e0            lag global224 
  02c3:31 0e              bnt code_02d3 
  02c5:7a               push2 
  02c6:38 00e9          pushi e9 // $e9 canControl
  02c9:39 07            pushi 7 // $7 cel
  02cb:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02d1:33 04              jmp code_02d7 

        code_02d3
  02d3:76               push0 
  02d4:45 0d 00         callb procedure_000d 0 // DontHave 


        code_02d7
  02d7:48                 ret 
    )

)

// 0b0c
(instance Smoking 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_02d8
  02d8:87 01              lap param1 
  02da:65 0a             aTop state 
  02dc:36                push 
  02dd:3c                 dup 
  02de:35 00              ldi 0 
  02e0:1a                 eq? 
  02e1:31 49              bnt code_032c 
  02e3:88 00a5            lsg gAct 
  02e6:35 02              ldi 2 
  02e8:1a                 eq? 
  02e9:31 3a              bnt code_0325 
  02eb:80 00d8            lag global216 
  02ee:18                 not 
  02ef:31 06              bnt code_02f7 
  02f1:35 ff              ldi ff 
  02f3:65 0a             aTop state 
  02f5:33 2e              jmp code_0325 

        code_02f7
  02f7:89 76              lsg gMustDos 
  02f9:35 08              ldi 8 
  02fb:12                 and 
  02fc:18                 not 
  02fd:31 1b              bnt code_031a 
  02ff:89 76              lsg gMustDos 
  0301:35 08              ldi 8 
  0303:14                  or 
  0304:a1 76              sag gMustDos 
  0306:39 7a            pushi 7a // $7a setScript
  0308:78               push1 
  0309:7a               push2 
  030a:38 0196          pushi 196 // $196 sel_406
  030d:76               push0 
  030e:43 02 04         callk ScriptID 4 

  0311:36                push 
  0312:54 06             self 6 

  0314:35 ff              ldi ff 
  0316:65 0a             aTop state 
  0318:33 0b              jmp code_0325 

        code_031a
  031a:39 76            pushi 76 // $76 script
  031c:76               push0 
  031d:54 04             self 4 

  031f:31 04              bnt code_0325 
  0321:35 ff              ldi ff 
  0323:65 0a             aTop state 

        code_0325
  0325:35 01              ldi 1 
  0327:65 10             aTop cycles 
  0329:32 0127            jmp code_0453 

        code_032c
  032c:3c                 dup 
  032d:35 01              ldi 1 
  032f:1a                 eq? 
  0330:31 1f              bnt code_0351 
  0332:38 00a4          pushi a4 // $a4 cycleSpeed
  0335:78               push1 
  0336:78               push1 
  0337:39 06            pushi 6 // $6 loop
  0339:78               push1 
  033a:78               push1 
  033b:39 07            pushi 7 // $7 cel
  033d:78               push1 
  033e:76               push0 
  033f:39 7e            pushi 7e // $7e setCycle
  0341:78               push1 
  0342:51 1a            class End 
  0344:36                push 
  0345:72 08c2          lofsa $0c0a // Arm
  0348:4a 18             send 18 

  034a:35 03              ldi 3 
  034c:65 12             aTop seconds 
  034e:32 0102            jmp code_0453 

        code_0351
  0351:3c                 dup 
  0352:35 02              ldi 2 
  0354:1a                 eq? 
  0355:31 0f              bnt code_0366 
  0357:39 7e            pushi 7e // $7e setCycle
  0359:7a               push2 
  035a:51 1b            class Beg 
  035c:36                push 
  035d:7c            pushSelf 
  035e:72 08a9          lofsa $0c0a // Arm
  0361:4a 08             send 8 

  0363:32 00ed            jmp code_0453 

        code_0366
  0366:3c                 dup 
  0367:35 03              ldi 3 
  0369:1a                 eq? 
  036a:31 29              bnt code_0395 
  036c:39 7e            pushi 7e // $7e setCycle
  036e:78               push1 
  036f:51 1a            class End 
  0371:36                push 
  0372:72 08e3          lofsa $0c58 // Smoke
  0375:4a 06             send 6 

  0377:7a               push2 
  0378:78               push1 
  0379:39 64            pushi 64 // $64 allTrue
  037b:43 40 04         callk Random 4 

  037e:36                push 
  037f:35 1e              ldi 1e 
  0381:22                 lt? 
  0382:31 04              bnt code_0388 
  0384:35 06              ldi 6 
  0386:65 0a             aTop state 

        code_0388
  0388:7a               push2 
  0389:39 06            pushi 6 // $6 loop
  038b:39 0c            pushi c // $c nsRight
  038d:43 40 04         callk Random 4 

  0390:65 12             aTop seconds 
  0392:32 00be            jmp code_0453 

        code_0395
  0395:3c                 dup 
  0396:35 04              ldi 4 
  0398:1a                 eq? 
  0399:31 13              bnt code_03ae 
  039b:39 06            pushi 6 // $6 loop
  039d:78               push1 
  039e:7a               push2 
  039f:39 7e            pushi 7e // $7e setCycle
  03a1:7a               push2 
  03a2:51 1a            class End 
  03a4:36                push 
  03a5:7c            pushSelf 
  03a6:72 0861          lofsa $0c0a // Arm
  03a9:4a 0e             send e 

  03ab:32 00a5            jmp code_0453 

        code_03ae
  03ae:3c                 dup 
  03af:35 05              ldi 5 
  03b1:1a                 eq? 
  03b2:31 31              bnt code_03e5 
  03b4:39 06            pushi 6 // $6 loop
  03b6:78               push1 
  03b7:39 03            pushi 3 // $3 y
  03b9:39 7e            pushi 7e // $7e setCycle
  03bb:78               push1 
  03bc:51 16            class Fwd 
  03be:36                push 
  03bf:72 0848          lofsa $0c0a // Arm
  03c2:4a 0c             send c 

  03c4:39 76            pushi 76 // $76 script
  03c6:76               push0 
  03c7:72 07d8          lofsa $0ba2 // Gloria
  03ca:4a 04             send 4 

  03cc:36                push 
  03cd:72 0772          lofsa $0b42 // goSee
  03d0:1c                 ne? 
  03d1:31 10              bnt code_03e3 
  03d3:38 00ca          pushi ca // $ca show
  03d6:76               push0 
  03d7:39 7e            pushi 7e // $7e setCycle
  03d9:7a               push2 
  03da:51 1a            class End 
  03dc:36                push 
  03dd:7c            pushSelf 
  03de:72 08c5          lofsa $0ca6 // Ash
  03e1:4a 0c             send c 


        code_03e3
  03e3:33 6e              jmp code_0453 

        code_03e5
  03e5:3c                 dup 
  03e6:35 06              ldi 6 
  03e8:1a                 eq? 
  03e9:31 2c              bnt code_0417 
  03eb:38 0089          pushi 89 // $89 hide
  03ee:76               push0 
  03ef:72 08b4          lofsa $0ca6 // Ash
  03f2:4a 04             send 4 

  03f4:39 06            pushi 6 // $6 loop
  03f6:78               push1 
  03f7:7a               push2 
  03f8:39 07            pushi 7 // $7 cel
  03fa:78               push1 
  03fb:7a               push2 
  03fc:39 7e            pushi 7e // $7e setCycle
  03fe:78               push1 
  03ff:51 1b            class Beg 
  0401:36                push 
  0402:72 0805          lofsa $0c0a // Arm
  0405:4a 12             send 12 

  0407:7a               push2 
  0408:39 06            pushi 6 // $6 loop
  040a:39 0c            pushi c // $c nsRight
  040c:43 40 04         callk Random 4 

  040f:65 12             aTop seconds 
  0411:35 00              ldi 0 
  0413:65 0a             aTop state 
  0415:33 3c              jmp code_0453 

        code_0417
  0417:3c                 dup 
  0418:35 07              ldi 7 
  041a:1a                 eq? 
  041b:31 17              bnt code_0434 
  041d:39 7e            pushi 7e // $7e setCycle
  041f:78               push1 
  0420:51 1a            class End 
  0422:36                push 
  0423:72 08ce          lofsa $0cf4 // Head
  0426:4a 06             send 6 

  0428:7a               push2 
  0429:39 06            pushi 6 // $6 loop
  042b:39 0c            pushi c // $c nsRight
  042d:43 40 04         callk Random 4 

  0430:65 12             aTop seconds 
  0432:33 1f              jmp code_0453 

        code_0434
  0434:3c                 dup 
  0435:35 08              ldi 8 
  0437:1a                 eq? 
  0438:31 19              bnt code_0453 
  043a:39 7e            pushi 7e // $7e setCycle
  043c:78               push1 
  043d:51 1b            class Beg 
  043f:36                push 
  0440:72 08b1          lofsa $0cf4 // Head
  0443:4a 06             send 6 

  0445:7a               push2 
  0446:39 06            pushi 6 // $6 loop
  0448:39 0c            pushi c // $c nsRight
  044a:43 40 04         callk Random 4 

  044d:65 12             aTop seconds 
  044f:35 00              ldi 0 
  0451:65 0a             aTop state 

        code_0453
  0453:3a                toss 
  0454:48                 ret 
    )

)

// 0b3c
(instance goSee of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (changeState) // method_0455
  0455:87 01              lap param1 
  0457:65 0a             aTop state 
  0459:36                push 
  045a:3c                 dup 
  045b:35 00              ldi 0 
  045d:1a                 eq? 
  045e:30 0099            bnt code_04fa 
  0461:76               push0 
  0462:45 0f 00         callb procedure_000f 0 // cls 

  0465:76               push0 
  0466:45 03 00         callb procedure_0003 0 // HandsOff 

  0469:38 00da          pushi da // $da inRect
  046c:39 04            pushi 4 // $4 x
  046e:39 2b            pushi 2b // $2b number
  0470:39 71            pushi 71 // $71 timer
  0472:39 64            pushi 64 // $64 allTrue
  0474:39 7d            pushi 7d // $7d set
  0476:81 00              lag gEgo 
  0478:4a 0c             send c 

  047a:31 24              bnt code_04a0 
  047c:38 00d3          pushi d3 // $d3 setMotion
  047f:39 03            pushi 3 // $3 y
  0481:51 1d            class MoveTo 
  0483:36                push 
  0484:39 04            pushi 4 // $4 x
  0486:76               push0 
  0487:81 00              lag gEgo 
  0489:4a 04             send 4 

  048b:36                push 
  048c:35 14              ldi 14 
  048e:02                 add 
  048f:36                push 
  0490:39 03            pushi 3 // $3 y
  0492:76               push0 
  0493:81 00              lag gEgo 
  0495:4a 04             send 4 

  0497:36                push 
  0498:35 14              ldi 14 
  049a:02                 add 
  049b:36                push 
  049c:81 00              lag gEgo 
  049e:4a 0a             send a 


        code_04a0
  04a0:39 05            pushi 5 // $5 view
  04a2:78               push1 
  04a3:38 0168          pushi 168 // $168 sel_360
  04a6:39 7e            pushi 7e // $7e setCycle
  04a8:78               push1 
  04a9:51 17            class Walk 
  04ab:36                push 
  04ac:38 00d4          pushi d4 // $d4 setAvoider
  04af:78               push1 
  04b0:39 56            pushi 56 // $56 new
  04b2:76               push0 
  04b3:51 21            class Avoid 
  04b5:4a 04             send 4 

  04b7:36                push 
  04b8:38 00d3          pushi d3 // $d3 setMotion
  04bb:39 04            pushi 4 // $4 x
  04bd:51 1d            class MoveTo 
  04bf:36                push 
  04c0:39 48            pushi 48 // $48 syntaxFail
  04c2:39 76            pushi 76 // $76 script
  04c4:7c            pushSelf 
  04c5:72 06da          lofsa $0ba2 // Gloria
  04c8:4a 1e             send 1e 

  04ca:38 0089          pushi 89 // $89 hide
  04cd:76               push0 
  04ce:72 0871          lofsa $0d42 // Leg
  04d1:4a 04             send 4 

  04d3:38 0089          pushi 89 // $89 hide
  04d6:76               push0 
  04d7:72 0730          lofsa $0c0a // Arm
  04da:4a 04             send 4 

  04dc:38 0089          pushi 89 // $89 hide
  04df:76               push0 
  04e0:72 0811          lofsa $0cf4 // Head
  04e3:4a 04             send 4 

  04e5:38 0089          pushi 89 // $89 hide
  04e8:76               push0 
  04e9:72 07ba          lofsa $0ca6 // Ash
  04ec:4a 04             send 4 

  04ee:38 0089          pushi 89 // $89 hide
  04f1:76               push0 
  04f2:72 0763          lofsa $0c58 // Smoke
  04f5:4a 04             send 4 

  04f7:32 018a            jmp code_0684 

        code_04fa
  04fa:3c                 dup 
  04fb:35 01              ldi 1 
  04fd:1a                 eq? 
  04fe:31 1a              bnt code_051a 
  0500:39 7e            pushi 7e // $7e setCycle
  0502:7a               push2 
  0503:51 1a            class End 
  0505:36                push 
  0506:7c            pushSelf 
  0507:80 0175            lag global373 
  050a:4a 08             send 8 

  050c:39 7e            pushi 7e // $7e setCycle
  050e:78               push1 
  050f:51 1a            class End 
  0511:36                push 
  0512:80 0176            lag global374 
  0515:4a 06             send 6 

  0517:32 016a            jmp code_0684 

        code_051a
  051a:3c                 dup 
  051b:35 02              ldi 2 
  051d:1a                 eq? 
  051e:31 19              bnt code_0539 
  0520:39 12            pushi 12 // $12 illegalBits
  0522:78               push1 
  0523:76               push0 
  0524:38 00d3          pushi d3 // $d3 setMotion
  0527:39 04            pushi 4 // $4 x
  0529:51 1d            class MoveTo 
  052b:36                push 
  052c:39 23            pushi 23 // $23 window
  052e:39 76            pushi 76 // $76 script
  0530:7c            pushSelf 
  0531:72 066e          lofsa $0ba2 // Gloria
  0534:4a 12             send 12 

  0536:32 014b            jmp code_0684 

        code_0539
  0539:3c                 dup 
  053a:35 03              ldi 3 
  053c:1a                 eq? 
  053d:31 1a              bnt code_0559 
  053f:39 7e            pushi 7e // $7e setCycle
  0541:78               push1 
  0542:51 1b            class Beg 
  0544:36                push 
  0545:80 0175            lag global373 
  0548:4a 06             send 6 

  054a:39 7e            pushi 7e // $7e setCycle
  054c:7a               push2 
  054d:51 1b            class Beg 
  054f:36                push 
  0550:7c            pushSelf 
  0551:80 0176            lag global374 
  0554:4a 08             send 8 

  0556:32 012b            jmp code_0684 

        code_0559
  0559:3c                 dup 
  055a:35 04              ldi 4 
  055c:1a                 eq? 
  055d:31 07              bnt code_0566 
  055f:35 05              ldi 5 
  0561:65 12             aTop seconds 
  0563:32 011e            jmp code_0684 

        code_0566
  0566:3c                 dup 
  0567:35 05              ldi 5 
  0569:1a                 eq? 
  056a:31 1a              bnt code_0586 
  056c:39 7e            pushi 7e // $7e setCycle
  056e:7a               push2 
  056f:51 1a            class End 
  0571:36                push 
  0572:7c            pushSelf 
  0573:80 0175            lag global373 
  0576:4a 08             send 8 

  0578:39 7e            pushi 7e // $7e setCycle
  057a:78               push1 
  057b:51 1a            class End 
  057d:36                push 
  057e:80 0176            lag global374 
  0581:4a 06             send 6 

  0583:32 00fe            jmp code_0684 

        code_0586
  0586:3c                 dup 
  0587:35 06              ldi 6 
  0589:1a                 eq? 
  058a:31 3b              bnt code_05c7 
  058c:38 00da          pushi da // $da inRect
  058f:39 04            pushi 4 // $4 x
  0591:38 010f          pushi 10f // $10f code
  0594:39 54            pushi 54 // $54 delete
  0596:38 0140          pushi 140 // $140 upRoomNo
  0599:39 62            pushi 62 // $62 eachElementDo
  059b:81 00              lag gEgo 
  059d:4a 0c             send c 

  059f:31 11              bnt code_05b2 
  05a1:38 00d3          pushi d3 // $d3 setMotion
  05a4:39 03            pushi 3 // $3 y
  05a6:51 1d            class MoveTo 
  05a8:36                push 
  05a9:38 010c          pushi 10c // $10c setLocales
  05ac:39 68            pushi 68 // $68 release
  05ae:81 00              lag gEgo 
  05b0:4a 0a             send a 


        code_05b2
  05b2:38 00d3          pushi d3 // $d3 setMotion
  05b5:39 04            pushi 4 // $4 x
  05b7:51 1d            class MoveTo 
  05b9:36                push 
  05ba:39 48            pushi 48 // $48 syntaxFail
  05bc:39 76            pushi 76 // $76 script
  05be:7c            pushSelf 
  05bf:72 05e0          lofsa $0ba2 // Gloria
  05c2:4a 0c             send c 

  05c4:32 00bd            jmp code_0684 

        code_05c7
  05c7:3c                 dup 
  05c8:35 07              ldi 7 
  05ca:1a                 eq? 
  05cb:31 1e              bnt code_05eb 
  05cd:76               push0 
  05ce:45 0f 00         callb procedure_000f 0 // cls 

  05d1:39 7e            pushi 7e // $7e setCycle
  05d3:7a               push2 
  05d4:51 1b            class Beg 
  05d6:36                push 
  05d7:7c            pushSelf 
  05d8:80 0175            lag global373 
  05db:4a 08             send 8 

  05dd:39 7e            pushi 7e // $7e setCycle
  05df:78               push1 
  05e0:51 1b            class Beg 
  05e2:36                push 
  05e3:80 0176            lag global374 
  05e6:4a 06             send 6 

  05e8:32 0099            jmp code_0684 

        code_05eb
  05eb:3c                 dup 
  05ec:35 08              ldi 8 
  05ee:1a                 eq? 
  05ef:31 37              bnt code_0628 
  05f1:35 03              ldi 3 
  05f3:a0 00d5            sag global213 
  05f6:39 03            pushi 3 // $3 y
  05f8:78               push1 
  05f9:38 00e9          pushi e9 // $e9 canControl
  05fc:39 08            pushi 8 // $8 underBits
  05fe:45 01 06         callb procedure_0001 6 // Say 

  0601:38 00c6          pushi c6 // $c6 stopUpd
  0604:76               push0 
  0605:80 0175            lag global373 
  0608:4a 04             send 4 

  060a:38 00c6          pushi c6 // $c6 stopUpd
  060d:76               push0 
  060e:80 0176            lag global374 
  0611:4a 04             send 4 

  0613:38 00d3          pushi d3 // $d3 setMotion
  0616:39 04            pushi 4 // $4 x
  0618:51 1d            class MoveTo 
  061a:36                push 
  061b:38 0125          pushi 125 // $125 winding
  061e:39 5e            pushi 5e // $5e respondsTo
  0620:7c            pushSelf 
  0621:72 057e          lofsa $0ba2 // Gloria
  0624:4a 0c             send c 

  0626:33 5c              jmp code_0684 

        code_0628
  0628:3c                 dup 
  0629:35 09              ldi 9 
  062b:1a                 eq? 
  062c:31 56              bnt code_0684 
  062e:39 05            pushi 5 // $5 view
  0630:78               push1 
  0631:38 0172          pushi 172 // $172 sel_370
  0634:39 06            pushi 6 // $6 loop
  0636:78               push1 
  0637:76               push0 
  0638:38 00d4          pushi d4 // $d4 setAvoider
  063b:78               push1 
  063c:76               push0 
  063d:72 0562          lofsa $0ba2 // Gloria
  0640:4a 12             send 12 

  0642:78               push1 
  0643:38 03d9          pushi 3d9 // $3d9 sel_985
  0646:43 03 02         callk DisposeScript 2 

  0649:38 00ca          pushi ca // $ca show
  064c:76               push0 
  064d:72 05ba          lofsa $0c0a // Arm
  0650:4a 04             send 4 

  0652:38 00ca          pushi ca // $ca show
  0655:76               push0 
  0656:72 069b          lofsa $0cf4 // Head
  0659:4a 04             send 4 

  065b:38 00ca          pushi ca // $ca show
  065e:76               push0 
  065f:72 06e0          lofsa $0d42 // Leg
  0662:4a 04             send 4 

  0664:38 00ca          pushi ca // $ca show
  0667:76               push0 
  0668:72 063b          lofsa $0ca6 // Ash
  066b:4a 04             send 4 

  066d:38 00ca          pushi ca // $ca show
  0670:76               push0 
  0671:72 05e4          lofsa $0c58 // Smoke
  0674:4a 04             send 4 

  0676:76               push0 
  0677:45 04 00         callb procedure_0004 0 // HandsOn 

  067a:39 7a            pushi 7a // $7a setScript
  067c:78               push1 
  067d:74 0492          lofss $0b12 // Smoking
  0680:63 08             pToa client 
  0682:4a 06             send 6 


        code_0684
  0684:3a                toss 
  0685:48                 ret 
    )

)

// 0b6c
(instance crossLeg 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_0686
  0686:87 01              lap param1 
  0688:65 0a             aTop state 
  068a:36                push 
  068b:3c                 dup 
  068c:35 00              ldi 0 
  068e:1a                 eq? 
  068f:31 17              bnt code_06a8 
  0691:39 7e            pushi 7e // $7e setCycle
  0693:78               push1 
  0694:51 1a            class End 
  0696:36                push 
  0697:72 06a8          lofsa $0d42 // Leg
  069a:4a 06             send 6 

  069c:7a               push2 
  069d:39 06            pushi 6 // $6 loop
  069f:39 0c            pushi c // $c nsRight
  06a1:43 40 04         callk Random 4 

  06a4:65 12             aTop seconds 
  06a6:33 1f              jmp code_06c7 

        code_06a8
  06a8:3c                 dup 
  06a9:35 01              ldi 1 
  06ab:1a                 eq? 
  06ac:31 19              bnt code_06c7 
  06ae:39 7e            pushi 7e // $7e setCycle
  06b0:78               push1 
  06b1:51 1b            class Beg 
  06b3:36                push 
  06b4:72 068b          lofsa $0d42 // Leg
  06b7:4a 06             send 6 

  06b9:7a               push2 
  06ba:39 0c            pushi c // $c nsRight
  06bc:39 12            pushi 12 // $12 illegalBits
  06be:43 40 04         callk Random 4 

  06c1:65 12             aTop seconds 
  06c3:35 ff              ldi ff 
  06c5:65 0a             aTop state 

        code_06c7
  06c7:3a                toss 
  06c8:48                 ret 
    )

)

// 0b9c
(instance Gloria of Act
    (properties
        y $86
        x $bb
        z $0
        heading $0
        yStep $2
        view $171
        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_06c9
  06c9:3f 01             link 1 // (var $1)
  06cb:35 03              ldi 3 
  06cd:a0 00d5            sag global213 
  06d0:78               push1 
  06d1:39 33            pushi 33 // $33 b-di
  06d3:45 07 02         callb procedure_0007 2 // IsFlag 

  06d6:31 7b              bnt code_0753 
  06d8:78               push1 
  06d9:74 0367          lofss $0a43 // raconter[/actress]/(death<gertie),gertie<about
  06dc:43 25 02         callk Said 2 

  06df:31 72              bnt code_0753 
  06e1:89 7b              lsg gCorpseFlags 
  06e3:35 01              ldi 1 
  06e5:12                 and 
  06e6:31 5d              bnt code_0745 
  06e8:88 0091            lsg global145 
  06eb:35 02              ldi 2 
  06ed:12                 and 
  06ee:31 2d              bnt code_071d 
  06f0:88 00a5            lsg gAct 
  06f3:3c                 dup 
  06f4:35 02              ldi 2 
  06f6:1a                 eq? 
  06f7:31 04              bnt code_06fd 
  06f9:35 32              ldi 32 
  06fb:33 02              jmp code_06ff 

        code_06fd
  06fd:35 2b              ldi 2b 

        code_06ff
  06ff:3a                toss 
  0700:a5 00              sat temp0 
  0702:35 02              ldi 2 
  0704:a0 00d4            sag global212 
  0707:87 01              lap param1 
  0709:a0 00d1            sag global209 
  070c:39 03            pushi 3 // $3 y
  070e:8d 00              lst temp0 
  0710:38 00e9          pushi e9 // $e9 canControl
  0713:39 09            pushi 9 // $9 nsTop
  0715:46 00f3 0001 06  calle f3 procedure_0001 6 // proc243_1 

  071b:33 26              jmp code_0743 

        code_071d
  071d:78               push1 
  071e:38 03de          pushi 3de // $3de sel_990
  0721:43 03 02         callk DisposeScript 2 

  0724:88 0091            lsg global145 
  0727:35 02              ldi 2 
  0729:14                  or 
  072a:a0 0091            sag global145 
  072d:39 03            pushi 3 // $3 y
  072f:78               push1 
  0730:38 00e9          pushi e9 // $e9 canControl
  0733:39 0a            pushi a // $a nsLeft
  0735:45 01 06         callb procedure_0001 6 // Say 

  0738:39 7a            pushi 7a // $7a setScript
  073a:78               push1 
  073b:74 0404          lofss $0b42 // goSee
  073e:72 0461          lofsa $0ba2 // Gloria
  0741:4a 06             send 6 


        code_0743
  0743:33 0b              jmp code_0750 

        code_0745
  0745:39 03            pushi 3 // $3 y
  0747:78               push1 
  0748:38 00e9          pushi e9 // $e9 canControl
  074b:39 0b            pushi b // $b nsBottom
  074d:45 01 06         callb procedure_0001 6 // Say 


        code_0750
  0750:32 01ce            jmp code_0921 

        code_0753
  0753:88 00a5            lsg gAct 
  0756:35 01              ldi 1 
  0758:24                 le? 
  0759:31 18              bnt code_0773 
  075b:78               push1 
  075c:74 0284          lofss $09e3 // ask,raconter//*<about
  075f:43 25 02         callk Said 2 

  0762:31 0f              bnt code_0773 
  0764:7a               push2 
  0765:38 00e9          pushi e9 // $e9 canControl
  0768:39 07            pushi 7 // $7 cel
  076a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0770:32 01ae            jmp code_0921 

        code_0773
  0773:88 00a5            lsg gAct 
  0776:35 01              ldi 1 
  0778:24                 le? 
  0779:31 30              bnt code_07ab 
  077b:78               push1 
  077c:74 0277          lofss $09f6 // deliver,hold
  077f:43 25 02         callk Said 2 

  0782:31 27              bnt code_07ab 
  0784:80 00db            lag global219 
  0787:31 13              bnt code_079c 
  0789:80 00e0            lag global224 
  078c:31 0e              bnt code_079c 
  078e:7a               push2 
  078f:38 00e9          pushi e9 // $e9 canControl
  0792:39 07            pushi 7 // $7 cel
  0794:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  079a:33 04              jmp code_07a0 

        code_079c
  079c:76               push0 
  079d:45 0d 00         callb procedure_000d 0 // DontHave 


        code_07a0
  07a0:39 4c            pushi 4c // $4c claimed
  07a2:78               push1 
  07a3:78               push1 
  07a4:87 01              lap param1 
  07a6:4a 06             send 6 

  07a8:32 0176            jmp code_0921 

        code_07ab
  07ab:88 00cf            lsg global207 
  07ae:35 04              ldi 4 
  07b0:12                 and 
  07b1:18                 not 
  07b2:31 37              bnt code_07eb 
  07b4:39 03            pushi 3 // $3 y
  07b6:7c            pushSelf 
  07b7:8f 01              lsp param1 
  07b9:39 03            pushi 3 // $3 y
  07bb:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  07c1:2f 09               bt code_07cc 
  07c3:78               push1 
  07c4:74 024a          lofss $0a11 // look/actress[/!*]
  07c7:43 25 02         callk Said 2 

  07ca:31 1f              bnt code_07eb 

        code_07cc
  07cc:39 4c            pushi 4c // $4c claimed
  07ce:78               push1 
  07cf:78               push1 
  07d0:87 01              lap param1 
  07d2:4a 06             send 6 

  07d4:88 00cf            lsg global207 
  07d7:35 04              ldi 4 
  07d9:14                  or 
  07da:a0 00cf            sag global207 
  07dd:39 03            pushi 3 // $3 y
  07df:76               push0 
  07e0:38 00e9          pushi e9 // $e9 canControl
  07e3:39 0c            pushi c // $c nsRight
  07e5:45 01 06         callb procedure_0001 6 // Say 

  07e8:32 0136            jmp code_0921 

        code_07eb
  07eb:88 00cf            lsg global207 
  07ee:35 04              ldi 4 
  07f0:12                 and 
  07f1:31 45              bnt code_0838 
  07f3:39 03            pushi 3 // $3 y
  07f5:7c            pushSelf 
  07f6:8f 01              lsp param1 
  07f8:39 03            pushi 3 // $3 y
  07fa:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0800:2f 09               bt code_080b 
  0802:78               push1 
  0803:74 020b          lofss $0a11 // look/actress[/!*]
  0806:43 25 02         callk Said 2 

  0809:31 2d              bnt code_0838 

        code_080b
  080b:39 4c            pushi 4c // $4c claimed
  080d:78               push1 
  080e:78               push1 
  080f:87 01              lap param1 
  0811:4a 06             send 6 

  0813:88 00a5            lsg gAct 
  0816:35 02              ldi 2 
  0818:1a                 eq? 
  0819:31 0e              bnt code_0829 
  081b:7a               push2 
  081c:38 00e9          pushi e9 // $e9 canControl
  081f:39 0d            pushi d // $d lsTop
  0821:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0827:33 0c              jmp code_0835 

        code_0829
  0829:7a               push2 
  082a:38 00e9          pushi e9 // $e9 canControl
  082d:39 0e            pushi e // $e lsLeft
  082f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0835
  0835:32 00e9            jmp code_0921 

        code_0838
  0838:78               push1 
  0839:74 0198          lofss $09d4 // /actress>
  083c:43 25 02         callk Said 2 

  083f:30 00df            bnt code_0921 
  0842:78               push1 
  0843:74 01c5          lofss $0a0b // ecouter
  0846:43 25 02         callk Said 2 

  0849:31 0f              bnt code_085a 
  084b:7a               push2 
  084c:38 00e9          pushi e9 // $e9 canControl
  084f:39 0f            pushi f // $f lsBottom
  0851:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0857:32 00c7            jmp code_0921 

        code_085a
  085a:78               push1 
  085b:74 01e2          lofss $0a40 // bonjour
  085e:43 25 02         callk Said 2 

  0861:31 64              bnt code_08c7 
  0863:88 00a5            lsg gAct 
  0866:35 02              ldi 2 
  0868:1a                 eq? 
  0869:31 4e              bnt code_08b9 
  086b:88 00ac            lsg global172 
  086e:3c                 dup 
  086f:35 00              ldi 0 
  0871:1a                 eq? 
  0872:31 0d              bnt code_0881 
  0874:39 03            pushi 3 // $3 y
  0876:78               push1 
  0877:38 00e9          pushi e9 // $e9 canControl
  087a:39 10            pushi 10 // $10 lsRight
  087c:45 01 06         callb procedure_0001 6 // Say 

  087f:33 32              jmp code_08b3 

        code_0881
  0881:3c                 dup 
  0882:35 01              ldi 1 
  0884:1a                 eq? 
  0885:31 0d              bnt code_0894 
  0887:39 03            pushi 3 // $3 y
  0889:78               push1 
  088a:38 00e9          pushi e9 // $e9 canControl
  088d:39 11            pushi 11 // $11 signal
  088f:45 01 06         callb procedure_0001 6 // Say 

  0892:33 1f              jmp code_08b3 

        code_0894
  0894:3c                 dup 
  0895:35 02              ldi 2 
  0897:1a                 eq? 
  0898:31 0d              bnt code_08a7 
  089a:39 03            pushi 3 // $3 y
  089c:78               push1 
  089d:38 00e9          pushi e9 // $e9 canControl
  08a0:39 12            pushi 12 // $12 illegalBits
  08a2:45 01 06         callb procedure_0001 6 // Say 

  08a5:33 0c              jmp code_08b3 

        code_08a7
  08a7:7a               push2 
  08a8:38 00e9          pushi e9 // $e9 canControl
  08ab:39 13            pushi 13 // $13 brTop
  08ad:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_08b3
  08b3:3a                toss 
  08b4:c0 00ac            +ag global172 
  08b7:33 0c              jmp code_08c5 

        code_08b9
  08b9:7a               push2 
  08ba:38 00e9          pushi e9 // $e9 canControl
  08bd:39 07            pushi 7 // $7 cel
  08bf:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_08c5
  08c5:33 5a              jmp code_0921 

        code_08c7
  08c7:78               push1 
  08c8:74 0128          lofss $09f3 // get
  08cb:43 25 02         callk Said 2 

  08ce:31 0e              bnt code_08de 
  08d0:7a               push2 
  08d1:38 00e9          pushi e9 // $e9 canControl
  08d4:39 14            pushi 14 // $14 brLeft
  08d6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08dc:33 43              jmp code_0921 

        code_08de
  08de:78               push1 
  08df:74 0123          lofss $0a05 // abattre
  08e2:43 25 02         callk Said 2 

  08e5:31 0e              bnt code_08f5 
  08e7:7a               push2 
  08e8:38 00e9          pushi e9 // $e9 canControl
  08eb:39 15            pushi 15 // $15 brBottom
  08ed:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08f3:33 2c              jmp code_0921 

        code_08f5
  08f5:78               push1 
  08f6:74 010f          lofss $0a08 // embrasser
  08f9:43 25 02         callk Said 2 

  08fc:31 0e              bnt code_090c 
  08fe:7a               push2 
  08ff:38 00e9          pushi e9 // $e9 canControl
  0902:39 16            pushi 16 // $16 brRight
  0904:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  090a:33 15              jmp code_0921 

        code_090c
  090c:78               push1 
  090d:74 00e0          lofss $09f0 // embrace
  0910:43 25 02         callk Said 2 

  0913:31 0c              bnt code_0921 
  0915:7a               push2 
  0916:38 00e9          pushi e9 // $e9 canControl
  0919:39 17            pushi 17 // $17 name
  091b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0921
  0921:48                 ret 
    )

)

// 0c04
(instance Arm of Prop
    (properties
        y $38
        x $121
        z $0
        heading $0
        yStep $2
        view $172
        loop $1
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 0c52
(instance Smoke of Prop
    (properties
        y $36
        x $124
        z $0
        heading $0
        yStep $2
        view $172
        loop $6
        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
    )
)

// 0ca0
(instance Ash of Prop
    (properties
        y $59
        x $112
        z $0
        heading $0
        yStep $2
        view $172
        loop $7
        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
    )
)

// 0cee
(instance Head of Prop
    (properties
        y $38
        x $126
        z $0
        heading $0
        yStep $2
        view $172
        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
    )
)

// 0d3c
(instance Leg of Prop
    (properties
        y $5e
        x $125
        z $0
        heading $0
        yStep $2
        view $172
        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
    )
)

// 0d8a
(instance recordMusic of Sound
    (properties
        state $0
        number $0
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)

// 0db4
(instance record of Prop
    (properties
        y $43
        x $62
        z $0
        heading $0
        yStep $2
        view $88
        loop $5
        cel $0
        priority $6
        underBits $0
        signal $10
        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
    )
)

// 0e02
(instance playRecord 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_0922
  0922:87 01              lap param1 
  0924:65 0a             aTop state 
  0926:36                push 
  0927:3c                 dup 
  0928:35 00              ldi 0 
  092a:1a                 eq? 
  092b:31 26              bnt code_0953 
  092d:35 01              ldi 1 
  092f:a3 00              sal local0 
  0931:39 7e            pushi 7e // $7e setCycle
  0933:78               push1 
  0934:51 16            class Fwd 
  0936:36                push 
  0937:72 0480          lofsa $0dba // record
  093a:4a 06             send 6 

  093c:39 2b            pushi 2b // $2b number
  093e:78               push1 
  093f:80 009f            lag global159 
  0942:9b 01             lsli local1 
  0944:39 06            pushi 6 // $6 loop
  0946:78               push1 
  0947:78               push1 
  0948:39 2a            pushi 2a // $2a play
  094a:78               push1 
  094b:7c            pushSelf 
  094c:72 0441          lofsa $0d90 // recordMusic
  094f:4a 12             send 12 

  0951:33 5c              jmp code_09af 

        code_0953
  0953:3c                 dup 
  0954:35 01              ldi 1 
  0956:1a                 eq? 
  0957:31 36              bnt code_098f 
  0959:39 2b            pushi 2b // $2b number
  095b:78               push1 
  095c:39 63            pushi 63 // $63 firstTrue
  095e:39 06            pushi 6 // $6 loop
  0960:78               push1 
  0961:39 ff            pushi ff // $ff checkAni
  0963:39 2a            pushi 2a // $2a play
  0965:76               push0 
  0966:72 0427          lofsa $0d90 // recordMusic
  0969:4a 10             send 10 

  096b:88 009f            lsg global159 
  096e:35 03              ldi 3 
  0970:22                 lt? 
  0971:31 05              bnt code_0978 
  0973:c0 009f            +ag global159 
  0976:33 05              jmp code_097d 

        code_0978
  0978:35 00              ldi 0 
  097a:a0 009f            sag global159 

        code_097d
  097d:88 00c7            lsg global199 
  0980:35 02              ldi 2 
  0982:1a                 eq? 
  0983:31 04              bnt code_0989 
  0985:35 ff              ldi ff 
  0987:65 0a             aTop state 

        code_0989
  0989:35 32              ldi 32 
  098b:65 10             aTop cycles 
  098d:33 20              jmp code_09af 

        code_098f
  098f:3c                 dup 
  0990:35 02              ldi 2 
  0992:1a                 eq? 
  0993:31 1a              bnt code_09af 
  0995:39 7e            pushi 7e // $7e setCycle
  0997:78               push1 
  0998:76               push0 
  0999:72 041e          lofsa $0dba // record
  099c:4a 06             send 6 

  099e:38 0084          pushi 84 // $84 stop
  09a1:76               push0 
  09a2:72 03eb          lofsa $0d90 // recordMusic
  09a5:4a 04             send 4 

  09a7:39 7a            pushi 7a // $7a setScript
  09a9:78               push1 
  09aa:76               push0 
  09ab:63 08             pToa client 
  09ad:4a 06             send 6 


        code_09af
  09af:3a                toss 
  09b0:48                 ret 
  09b1:00                bnot 
    )

)



