(script 280)

(string
    string_0930 "Body"
    string_0935 "Dlill"
    string_093b "Pistol"
    string_0942 "Shot"
    string_0947 "myMusic"
    string_094f "pickUp"
    string_0956 "showCloseup"
)

(said
    said_06ea (look<dans),chercher
    said_06f5 /boot
    said_06f9 /bullet
    said_06fd /cape
    said_0701 /derringer
    said_0705 /dirt
    said_0709 /gant
    said_070d /chapeau
    said_0711 /embleme,heel
    said_0718 /lil>
    said_071d <bas
    said_0721 <dans/boot
    said_0728 <dans/cape
    said_072f <dans/gant
    said_0736 <dans/chapeau
    said_073d embrace
    said_0740 get,attirer,attirer,appuyer,bouger
    said_074f get>
    said_0753 aider
    said_0756 abattre
    said_0759 embrasser
    said_075c look/lil
    said_0762 look>
    said_0766 bonjour
    said_0769 porter>
)

(synonym
    lil | lill | lillian | lilly = body | corps | corpse
    lil | lill | lillian | lilly = dame | femme | fille | girl | lady | maiden | woman
)

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

// 0774
(instance myMusic of Sound
    (properties
        state $0
        number $78
        priority $5
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)

// 079e
(instance Body of Prop
    (properties
        y $72
        x $5b
        z $0
        heading $0
        yStep $2
        view $1f7
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_001a
  001a:39 03            pushi 3 // $3 y
  001c:7c            pushSelf 
  001d:8f 01              lsp param1 
  001f:39 03            pushi 3 // $3 y
  0021:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0027:2f 09               bt code_0032 
  0029:78               push1 
  002a:74 072f          lofss $075c // look/lil
  002d:43 25 02         callk Said 2 

  0030:31 1e              bnt code_0050 

        code_0032
  0032:7a               push2 
  0033:38 0118          pushi 118 // $118 stopExtra
  0036:76               push0 
  0037:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  003d:7a               push2 
  003e:38 0118          pushi 118 // $118 stopExtra
  0041:78               push1 
  0042:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0048:39 4c            pushi 4c // $4c claimed
  004a:78               push1 
  004b:78               push1 
  004c:87 01              lap param1 
  004e:4a 06             send 6 


        code_0050
  0050:48                 ret 
    )

)

// 07f0
(instance Shot of Prop
    (properties
        y $69
        x $48
        z $0
        heading $0
        yStep $2
        view $1f7
        loop $1
        cel $1
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0051
  0051:39 03            pushi 3 // $3 y
  0053:7c            pushSelf 
  0054:8f 01              lsp param1 
  0056:39 03            pushi 3 // $3 y
  0058:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  005e:31 13              bnt code_0073 
  0060:39 4c            pushi 4c // $4c claimed
  0062:78               push1 
  0063:78               push1 
  0064:87 01              lap param1 
  0066:4a 06             send 6 

  0068:7a               push2 
  0069:38 0118          pushi 118 // $118 stopExtra
  006c:7a               push2 
  006d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0073
  0073:48                 ret 
    )

)

// 0842
(instance Pistol of Prop
    (properties
        y $7a
        x $3d
        z $0
        heading $0
        yStep $2
        view $1f7
        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
    )
    (method (handleEvent) // method_0074
  0074:39 03            pushi 3 // $3 y
  0076:7c            pushSelf 
  0077:8f 01              lsp param1 
  0079:39 03            pushi 3 // $3 y
  007b:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0081:31 14              bnt code_0097 
  0083:39 4c            pushi 4c // $4c claimed
  0085:78               push1 
  0086:78               push1 
  0087:87 01              lap param1 
  0089:4a 06             send 6 

  008b:7a               push2 
  008c:38 0118          pushi 118 // $118 stopExtra
  008f:39 03            pushi 3 // $3 y
  0091:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0097
  0097:48                 ret 
    )

)

// 0894
(instance public Dlill of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_0098
  0098:38 00c9          pushi c9 // $c9 ignoreActors
  009b:78               push1 
  009c:78               push1 
  009d:39 57            pushi 57 // $57 init
  009f:76               push0 
  00a0:38 00c6          pushi c6 // $c6 stopUpd
  00a3:76               push0 
  00a4:72 06fd          lofsa $07a4 // Body
  00a7:4a 0e             send e 

  00a9:80 00b9            lag global185 
  00ac:18                 not 
  00ad:31 3a              bnt code_00e9 
  00af:38 00ee          pushi ee // $ee has
  00b2:78               push1 
  00b3:39 0e            pushi e // $e lsLeft
  00b5:81 00              lag gEgo 
  00b7:4a 06             send 6 

  00b9:18                 not 
  00ba:31 10              bnt code_00cc 
  00bc:35 01              ldi 1 
  00be:a3 03              sal local3 
  00c0:39 57            pushi 57 // $57 init
  00c2:76               push0 
  00c3:38 00c6          pushi c6 // $c6 stopUpd
  00c6:76               push0 
  00c7:72 072c          lofsa $07f6 // Shot
  00ca:4a 08             send 8 


        code_00cc
  00cc:38 00ee          pushi ee // $ee has
  00cf:78               push1 
  00d0:39 0f            pushi f // $f lsBottom
  00d2:81 00              lag gEgo 
  00d4:4a 06             send 6 

  00d6:18                 not 
  00d7:31 10              bnt code_00e9 
  00d9:35 01              ldi 1 
  00db:a3 02              sal local2 
  00dd:39 57            pushi 57 // $57 init
  00df:76               push0 
  00e0:38 00c6          pushi c6 // $c6 stopUpd
  00e3:76               push0 
  00e4:72 0761          lofsa $0848 // Pistol
  00e7:4a 08             send 8 


        code_00e9
  00e9:35 20              ldi 20 
  00eb:a0 00c3            sag global195 
  00ee:89 7b              lsg gCorpseFlags 
  00f0:35 40              ldi 40 
  00f2:12                 and 
  00f3:18                 not 
  00f4:31 12              bnt code_0108 
  00f6:34 0e10            ldi e10 
  00f9:a0 0170            sag gCycleTimers 
  00fc:35 4b              ldi 4b 
  00fe:a1 6f              sag global111 
  0100:39 7a            pushi 7a // $7a setScript
  0102:78               push1 
  0103:74 07c6          lofss $08cc // showCloseup
  0106:54 06             self 6 


        code_0108
  0108:48                 ret 
    )

    (method (doit) // method_0109
  0109:38 00d6          pushi d6 // $d6 observeControl
  010c:78               push1 
  010d:38 0100          pushi 100 // $100 notify
  0110:81 00              lag gEgo 
  0112:4a 06             send 6 

  0114:39 3c            pushi 3c // $3c doit
  0116:76               push0 
  0117:57 36 04         super Rgn 4 

  011a:48                 ret 
    )

    (method (dispose) // method_011b
  011b:39 58            pushi 58 // $58 dispose
  011d:76               push0 
  011e:57 36 04         super Rgn 4 

  0121:48                 ret 
    )

    (method (handleEvent) // method_0122
  0122:39 6f            pushi 6f // $6f handleEvent
  0124:78               push1 
  0125:8f 01              lsp param1 
  0127:57 36 06         super Rgn 6 

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

  0131:31 03              bnt code_0136 
  0133:35 01              ldi 1 
  0135:48                 ret 

        code_0136
  0136:39 22            pushi 22 // $22 type
  0138:76               push0 
  0139:87 01              lap param1 
  013b:4a 04             send 4 

  013d:36                push 
  013e:34 0080            ldi 80 
  0141:1a                 eq? 
  0142:30 03ac            bnt code_04f1 
  0145:78               push1 
  0146:74 05cf          lofss $0718 // /lil>
  0149:43 25 02         callk Said 2 

  014c:30 00d7            bnt code_0226 
  014f:78               push1 
  0150:74 0603          lofss $0756 // abattre
  0153:43 25 02         callk Said 2 

  0156:31 0f              bnt code_0167 
  0158:7a               push2 
  0159:38 0118          pushi 118 // $118 stopExtra
  015c:39 04            pushi 4 // $4 x
  015e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0164:32 00bc            jmp code_0223 

        code_0167
  0167:78               push1 
  0168:74 05ee          lofss $0759 // embrasser
  016b:43 25 02         callk Said 2 

  016e:31 0f              bnt code_017f 
  0170:7a               push2 
  0171:38 0118          pushi 118 // $118 stopExtra
  0174:39 05            pushi 5 // $5 view
  0176:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  017c:32 00a4            jmp code_0223 

        code_017f
  017f:78               push1 
  0180:74 05ba          lofss $073d // embrace
  0183:43 25 02         callk Said 2 

  0186:31 0f              bnt code_0197 
  0188:7a               push2 
  0189:38 0118          pushi 118 // $118 stopExtra
  018c:39 06            pushi 6 // $6 loop
  018e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0194:32 008c            jmp code_0223 

        code_0197
  0197:78               push1 
  0198:74 05a5          lofss $0740 // get,attirer,attirer,appuyer,bouger
  019b:43 25 02         callk Said 2 

  019e:31 0e              bnt code_01ae 
  01a0:7a               push2 
  01a1:38 0118          pushi 118 // $118 stopExtra
  01a4:39 07            pushi 7 // $7 cel
  01a6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01ac:33 75              jmp code_0223 

        code_01ae
  01ae:78               push1 
  01af:74 0538          lofss $06ea // (look<dans),chercher
  01b2:43 25 02         callk Said 2 

  01b5:31 40              bnt code_01f7 
  01b7:38 00ae          pushi ae // $ae distanceTo
  01ba:78               push1 
  01bb:74 05e6          lofss $07a4 // Body
  01be:81 00              lag gEgo 
  01c0:4a 06             send 6 

  01c2:36                push 
  01c3:35 19              ldi 19 
  01c5:22                 lt? 
  01c6:31 29              bnt code_01f1 
  01c8:38 00ee          pushi ee // $ee has
  01cb:78               push1 
  01cc:39 05            pushi 5 // $5 view
  01ce:81 00              lag gEgo 
  01d0:4a 06             send 6 

  01d2:18                 not 
  01d3:31 0e              bnt code_01e3 
  01d5:35 03              ldi 3 
  01d7:a3 01              sal local1 
  01d9:39 7a            pushi 7a // $7a setScript
  01db:78               push1 
  01dc:74 071d          lofss $08fc // pickUp
  01df:54 06             self 6 

  01e1:33 0c              jmp code_01ef 

        code_01e3
  01e3:7a               push2 
  01e4:38 0118          pushi 118 // $118 stopExtra
  01e7:39 08            pushi 8 // $8 underBits
  01e9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_01ef
  01ef:33 04              jmp code_01f5 

        code_01f1
  01f1:76               push0 
  01f2:45 09 00         callb procedure_0009 0 // NotClose 


        code_01f5
  01f5:33 2c              jmp code_0223 

        code_01f7
  01f7:78               push1 
  01f8:74 0558          lofss $0753 // aider
  01fb:43 25 02         callk Said 2 

  01fe:31 0e              bnt code_020e 
  0200:7a               push2 
  0201:38 0118          pushi 118 // $118 stopExtra
  0204:39 09            pushi 9 // $9 nsTop
  0206:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  020c:33 15              jmp code_0223 

        code_020e
  020e:78               push1 
  020f:74 0554          lofss $0766 // bonjour
  0212:43 25 02         callk Said 2 

  0215:31 0c              bnt code_0223 
  0217:7a               push2 
  0218:38 0118          pushi 118 // $118 stopExtra
  021b:39 0a            pushi a // $a nsLeft
  021d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0223
  0223:32 02cb            jmp code_04f1 

        code_0226
  0226:78               push1 
  0227:74 0525          lofss $074f // get>
  022a:43 25 02         callk Said 2 

  022d:30 0105            bnt code_0335 
  0230:78               push1 
  0231:74 04cd          lofss $0701 // /derringer
  0234:43 25 02         callk Said 2 

  0237:31 45              bnt code_027e 
  0239:78               push1 
  023a:39 1a            pushi 1a // $1a text
  023c:45 05 02         callb procedure_0005 2 // SetFlag 

  023f:38 00ee          pushi ee // $ee has
  0242:78               push1 
  0243:39 0f            pushi f // $f lsBottom
  0245:81 00              lag gEgo 
  0247:4a 06             send 6 

  0249:31 06              bnt code_0251 
  024b:76               push0 
  024c:45 0a 00         callb procedure_000a 0 // AlreadyTook 

  024f:33 2a              jmp code_027b 

        code_0251
  0251:38 00ae          pushi ae // $ae distanceTo
  0254:78               push1 
  0255:74 05f0          lofss $0848 // Pistol
  0258:81 00              lag gEgo 
  025a:4a 06             send 6 

  025c:36                push 
  025d:35 0a              ldi a 
  025f:22                 lt? 
  0260:31 15              bnt code_0277 
  0262:35 01              ldi 1 
  0264:a3 01              sal local1 
  0266:35 00              ldi 0 
  0268:a3 02              sal local2 
  026a:39 7a            pushi 7a // $7a setScript
  026c:78               push1 
  026d:74 068c          lofss $08fc // pickUp
  0270:72 05d5          lofsa $0848 // Pistol
  0273:4a 06             send 6 

  0275:33 04              jmp code_027b 

        code_0277
  0277:76               push0 
  0278:45 09 00         callb procedure_0009 0 // NotClose 


        code_027b
  027b:32 00b4            jmp code_0332 

        code_027e
  027e:78               push1 
  027f:74 0477          lofss $06f9 // /bullet
  0282:43 25 02         callk Said 2 

  0285:31 51              bnt code_02d8 
  0287:80 00b9            lag global185 
  028a:31 0e              bnt code_029a 
  028c:7a               push2 
  028d:38 0118          pushi 118 // $118 stopExtra
  0290:39 0b            pushi b // $b nsBottom
  0292:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0298:33 3c              jmp code_02d6 

        code_029a
  029a:38 00ee          pushi ee // $ee has
  029d:78               push1 
  029e:39 0e            pushi e // $e lsLeft
  02a0:81 00              lag gEgo 
  02a2:4a 06             send 6 

  02a4:31 06              bnt code_02ac 
  02a6:76               push0 
  02a7:45 0a 00         callb procedure_000a 0 // AlreadyTook 

  02aa:33 2a              jmp code_02d6 

        code_02ac
  02ac:38 00ae          pushi ae // $ae distanceTo
  02af:78               push1 
  02b0:74 0543          lofss $07f6 // Shot
  02b3:81 00              lag gEgo 
  02b5:4a 06             send 6 

  02b7:36                push 
  02b8:35 0a              ldi a 
  02ba:22                 lt? 
  02bb:31 15              bnt code_02d2 
  02bd:35 00              ldi 0 
  02bf:a3 03              sal local3 
  02c1:35 02              ldi 2 
  02c3:a3 01              sal local1 
  02c5:39 7a            pushi 7a // $7a setScript
  02c7:78               push1 
  02c8:74 0631          lofss $08fc // pickUp
  02cb:72 0528          lofsa $07f6 // Shot
  02ce:4a 06             send 6 

  02d0:33 04              jmp code_02d6 

        code_02d2
  02d2:76               push0 
  02d3:45 09 00         callb procedure_0009 0 // NotClose 


        code_02d6
  02d6:33 5a              jmp code_0332 

        code_02d8
  02d8:78               push1 
  02d9:74 0421          lofss $06fd // /cape
  02dc:43 25 02         callk Said 2 

  02df:31 0e              bnt code_02ef 
  02e1:7a               push2 
  02e2:38 0118          pushi 118 // $118 stopExtra
  02e5:39 0c            pushi c // $c nsRight
  02e7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02ed:33 43              jmp code_0332 

        code_02ef
  02ef:78               push1 
  02f0:74 041a          lofss $070d // /chapeau
  02f3:43 25 02         callk Said 2 

  02f6:31 0e              bnt code_0306 
  02f8:7a               push2 
  02f9:38 0118          pushi 118 // $118 stopExtra
  02fc:39 0d            pushi d // $d lsTop
  02fe:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0304:33 2c              jmp code_0332 

        code_0306
  0306:78               push1 
  0307:74 03eb          lofss $06f5 // /boot
  030a:43 25 02         callk Said 2 

  030d:31 0e              bnt code_031d 
  030f:7a               push2 
  0310:38 0118          pushi 118 // $118 stopExtra
  0313:39 0e            pushi e // $e lsLeft
  0315:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  031b:33 15              jmp code_0332 

        code_031d
  031d:78               push1 
  031e:74 03e8          lofss $0709 // /gant
  0321:43 25 02         callk Said 2 

  0324:31 0c              bnt code_0332 
  0326:7a               push2 
  0327:38 0118          pushi 118 // $118 stopExtra
  032a:39 0f            pushi f // $f lsBottom
  032c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0332
  0332:32 01bc            jmp code_04f1 

        code_0335
  0335:78               push1 
  0336:74 0429          lofss $0762 // look>
  0339:43 25 02         callk Said 2 

  033c:30 014f            bnt code_048e 
  033f:78               push1 
  0340:74 03e5          lofss $0728 // <dans/cape
  0343:43 25 02         callk Said 2 

  0346:31 32              bnt code_037a 
  0348:7a               push2 
  0349:38 0118          pushi 118 // $118 stopExtra
  034c:39 10            pushi 10 // $10 lsRight
  034e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0354:38 00ee          pushi ee // $ee has
  0357:78               push1 
  0358:39 05            pushi 5 // $5 view
  035a:81 00              lag gEgo 
  035c:4a 06             send 6 

  035e:18                 not 
  035f:31 0a              bnt code_036b 
  0361:39 7a            pushi 7a // $7a setScript
  0363:78               push1 
  0364:74 0595          lofss $08fc // pickUp
  0367:54 06             self 6 

  0369:33 0c              jmp code_0377 

        code_036b
  036b:7a               push2 
  036c:38 0118          pushi 118 // $118 stopExtra
  036f:39 11            pushi 11 // $11 signal
  0371:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0377
  0377:32 0112            jmp code_048c 

        code_037a
  037a:78               push1 
  037b:74 037f          lofss $06fd // /cape
  037e:43 25 02         callk Said 2 

  0381:31 0f              bnt code_0392 
  0383:7a               push2 
  0384:38 0118          pushi 118 // $118 stopExtra
  0387:39 12            pushi 12 // $12 illegalBits
  0389:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  038f:32 00fa            jmp code_048c 

        code_0392
  0392:78               push1 
  0393:74 03a0          lofss $0736 // <dans/chapeau
  0396:43 25 02         callk Said 2 

  0399:31 0f              bnt code_03aa 
  039b:7a               push2 
  039c:38 0118          pushi 118 // $118 stopExtra
  039f:39 13            pushi 13 // $13 brTop
  03a1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03a7:32 00e2            jmp code_048c 

        code_03aa
  03aa:78               push1 
  03ab:74 035f          lofss $070d // /chapeau
  03ae:43 25 02         callk Said 2 

  03b1:31 0f              bnt code_03c2 
  03b3:7a               push2 
  03b4:38 0118          pushi 118 // $118 stopExtra
  03b7:39 14            pushi 14 // $14 brLeft
  03b9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03bf:32 00ca            jmp code_048c 

        code_03c2
  03c2:78               push1 
  03c3:74 035b          lofss $0721 // <dans/boot
  03c6:43 25 02         callk Said 2 

  03c9:31 0f              bnt code_03da 
  03cb:7a               push2 
  03cc:38 0118          pushi 118 // $118 stopExtra
  03cf:39 15            pushi 15 // $15 brBottom
  03d1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03d7:32 00b2            jmp code_048c 

        code_03da
  03da:78               push1 
  03db:74 0317          lofss $06f5 // /boot
  03de:43 25 02         callk Said 2 

  03e1:31 0f              bnt code_03f2 
  03e3:7a               push2 
  03e4:38 0118          pushi 118 // $118 stopExtra
  03e7:39 16            pushi 16 // $16 brRight
  03e9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03ef:32 009a            jmp code_048c 

        code_03f2
  03f2:78               push1 
  03f3:74 0339          lofss $072f // <dans/gant
  03f6:43 25 02         callk Said 2 

  03f9:31 0f              bnt code_040a 
  03fb:7a               push2 
  03fc:38 0118          pushi 118 // $118 stopExtra
  03ff:39 17            pushi 17 // $17 name
  0401:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0407:32 0082            jmp code_048c 

        code_040a
  040a:78               push1 
  040b:74 02fb          lofss $0709 // /gant
  040e:43 25 02         callk Said 2 

  0411:31 0e              bnt code_0421 
  0413:7a               push2 
  0414:38 0118          pushi 118 // $118 stopExtra
  0417:39 18            pushi 18 // $18 key
  0419:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  041f:33 6b              jmp code_048c 

        code_0421
  0421:78               push1 
  0422:74 02ec          lofss $0711 // /embleme,heel
  0425:43 25 02         callk Said 2 

  0428:31 25              bnt code_044f 
  042a:38 00ae          pushi ae // $ae distanceTo
  042d:78               push1 
  042e:74 0373          lofss $07a4 // Body
  0431:81 00              lag gEgo 
  0433:4a 06             send 6 

  0435:36                push 
  0436:35 28              ldi 28 
  0438:22                 lt? 
  0439:31 0e              bnt code_0449 
  043b:35 04              ldi 4 
  043d:a3 01              sal local1 
  043f:39 7a            pushi 7a // $7a setScript
  0441:78               push1 
  0442:74 04b7          lofss $08fc // pickUp
  0445:54 06             self 6 

  0447:33 04              jmp code_044d 

        code_0449
  0449:76               push0 
  044a:45 09 00         callb procedure_0009 0 // NotClose 


        code_044d
  044d:33 3d              jmp code_048c 

        code_044f
  044f:78               push1 
  0450:74 02b2          lofss $0705 // /dirt
  0453:43 25 02         callk Said 2 

  0456:2f 09               bt code_0461 
  0458:78               push1 
  0459:74 02c1          lofss $071d // <bas
  045c:43 25 02         callk Said 2 

  045f:31 2b              bnt code_048c 

        code_0461
  0461:83 02              lal local2 
  0463:31 0e              bnt code_0473 
  0465:7a               push2 
  0466:38 0118          pushi 118 // $118 stopExtra
  0469:39 19            pushi 19 // $19 time
  046b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0471:33 19              jmp code_048c 

        code_0473
  0473:83 03              lal local3 
  0475:31 0d              bnt code_0484 
  0477:7a               push2 
  0478:38 0118          pushi 118 // $118 stopExtra
  047b:7a               push2 
  047c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0482:33 08              jmp code_048c 

        code_0484
  0484:39 4c            pushi 4c // $4c claimed
  0486:78               push1 
  0487:76               push0 
  0488:87 01              lap param1 
  048a:4a 06             send 6 


        code_048c
  048c:33 63              jmp code_04f1 

        code_048e
  048e:78               push1 
  048f:74 02d7          lofss $0769 // porter>
  0492:43 25 02         callk Said 2 

  0495:31 5a              bnt code_04f1 
  0497:78               push1 
  0498:74 0262          lofss $06fd // /cape
  049b:43 25 02         callk Said 2 

  049e:31 0e              bnt code_04ae 
  04a0:7a               push2 
  04a1:38 0118          pushi 118 // $118 stopExtra
  04a4:39 0c            pushi c // $c nsRight
  04a6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04ac:33 43              jmp code_04f1 

        code_04ae
  04ae:78               push1 
  04af:74 025b          lofss $070d // /chapeau
  04b2:43 25 02         callk Said 2 

  04b5:31 0e              bnt code_04c5 
  04b7:7a               push2 
  04b8:38 0118          pushi 118 // $118 stopExtra
  04bb:39 0d            pushi d // $d lsTop
  04bd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04c3:33 2c              jmp code_04f1 

        code_04c5
  04c5:78               push1 
  04c6:74 022c          lofss $06f5 // /boot
  04c9:43 25 02         callk Said 2 

  04cc:31 0e              bnt code_04dc 
  04ce:7a               push2 
  04cf:38 0118          pushi 118 // $118 stopExtra
  04d2:39 0e            pushi e // $e lsLeft
  04d4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04da:33 15              jmp code_04f1 

        code_04dc
  04dc:78               push1 
  04dd:74 0229          lofss $0709 // /gant
  04e0:43 25 02         callk Said 2 

  04e3:31 0c              bnt code_04f1 
  04e5:7a               push2 
  04e6:38 0118          pushi 118 // $118 stopExtra
  04e9:39 0f            pushi f // $f lsBottom
  04eb:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_04f1
  04f1:48                 ret 
    )

)

// 08c6
(instance showCloseup 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_04f2
  04f2:87 01              lap param1 
  04f4:65 0a             aTop state 
  04f6:36                push 
  04f7:3c                 dup 
  04f8:35 00              ldi 0 
  04fa:1a                 eq? 
  04fb:31 40              bnt code_053d 
  04fd:80 00d8            lag global216 
  0500:18                 not 
  0501:31 06              bnt code_0509 
  0503:35 ff              ldi ff 
  0505:65 0a             aTop state 
  0507:33 2e              jmp code_0537 

        code_0509
  0509:89 7b              lsg gCorpseFlags 
  050b:35 40              ldi 40 
  050d:12                 and 
  050e:18                 not 
  050f:31 1b              bnt code_052c 
  0511:89 7b              lsg gCorpseFlags 
  0513:35 40              ldi 40 
  0515:14                  or 
  0516:a1 7b              sag gCorpseFlags 
  0518:39 7a            pushi 7a // $7a setScript
  051a:78               push1 
  051b:7a               push2 
  051c:38 0196          pushi 196 // $196 sel_406
  051f:76               push0 
  0520:43 02 04         callk ScriptID 4 

  0523:36                push 
  0524:54 06             self 6 

  0526:35 ff              ldi ff 
  0528:65 0a             aTop state 
  052a:33 0b              jmp code_0537 

        code_052c
  052c:39 76            pushi 76 // $76 script
  052e:76               push0 
  052f:54 04             self 4 

  0531:31 04              bnt code_0537 
  0533:35 ff              ldi ff 
  0535:65 0a             aTop state 

        code_0537
  0537:35 01              ldi 1 
  0539:65 10             aTop cycles 
  053b:33 34              jmp code_0571 

        code_053d
  053d:3c                 dup 
  053e:35 01              ldi 1 
  0540:1a                 eq? 
  0541:31 2e              bnt code_0571 
  0543:39 2a            pushi 2a // $2a play
  0545:76               push0 
  0546:72 0231          lofsa $077a // myMusic
  0549:4a 04             send 4 

  054b:39 0b            pushi b // $b nsBottom
  054d:38 0118          pushi 118 // $118 stopExtra
  0550:39 1a            pushi 1a // $1a text
  0552:39 43            pushi 43 // $43 at
  0554:39 0a            pushi a // $a nsLeft
  0556:39 4b            pushi 4b // $4b said
  0558:39 52            pushi 52 // $52 icon
  055a:38 01f7          pushi 1f7 // $1f7 sel_503
  055d:39 03            pushi 3 // $3 y
  055f:76               push0 
  0560:39 1e            pushi 1e // $1e mode
  0562:78               push1 
  0563:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  0569:39 7a            pushi 7a // $7a setScript
  056b:78               push1 
  056c:76               push0 
  056d:63 08             pToa client 
  056f:4a 06             send 6 


        code_0571
  0571:3a                toss 
  0572:48                 ret 
    )

)

// 08f6
(instance pickUp 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_0573
  0573:87 01              lap param1 
  0575:65 0a             aTop state 
  0577:36                push 
  0578:3c                 dup 
  0579:35 00              ldi 0 
  057b:1a                 eq? 
  057c:31 2c              bnt code_05aa 
  057e:76               push0 
  057f:45 03 00         callb procedure_0003 0 // HandsOff 

  0582:8b 01              lsl local1 
  0584:35 01              ldi 1 
  0586:1a                 eq? 
  0587:2f 07               bt code_0590 
  0589:8b 01              lsl local1 
  058b:35 02              ldi 2 
  058d:1a                 eq? 
  058e:31 0a              bnt code_059a 

        code_0590
  0590:7a               push2 
  0591:89 00              lsg gEgo 
  0593:67 08             pTos client 
  0595:45 02 04         callb procedure_0002 4 // LookAt 

  0598:33 09              jmp code_05a3 

        code_059a
  059a:7a               push2 
  059b:89 00              lsg gEgo 
  059d:74 0204          lofss $07a4 // Body
  05a0:45 02 04         callb procedure_0002 4 // LookAt 


        code_05a3
  05a3:35 02              ldi 2 
  05a5:65 10             aTop cycles 
  05a7:32 013a            jmp code_06e4 

        code_05aa
  05aa:3c                 dup 
  05ab:35 01              ldi 1 
  05ad:1a                 eq? 
  05ae:31 1c              bnt code_05cc 
  05b0:39 05            pushi 5 // $5 view
  05b2:78               push1 
  05b3:39 11            pushi 11 // $11 signal
  05b5:39 07            pushi 7 // $7 cel
  05b7:78               push1 
  05b8:76               push0 
  05b9:38 00d3          pushi d3 // $d3 setMotion
  05bc:78               push1 
  05bd:76               push0 
  05be:39 7e            pushi 7e // $7e setCycle
  05c0:7a               push2 
  05c1:51 1a            class End 
  05c3:36                push 
  05c4:7c            pushSelf 
  05c5:81 00              lag gEgo 
  05c7:4a 1a             send 1a 

  05c9:32 0118            jmp code_06e4 

        code_05cc
  05cc:3c                 dup 
  05cd:35 02              ldi 2 
  05cf:1a                 eq? 
  05d0:30 00c9            bnt code_069c 
  05d3:8b 01              lsl local1 
  05d5:35 01              ldi 1 
  05d7:1a                 eq? 
  05d8:2f 07               bt code_05e1 
  05da:8b 01              lsl local1 
  05dc:35 02              ldi 2 
  05de:1a                 eq? 
  05df:31 08              bnt code_05e9 

        code_05e1
  05e1:38 0089          pushi 89 // $89 hide
  05e4:76               push0 
  05e5:63 08             pToa client 
  05e7:4a 04             send 4 


        code_05e9
  05e9:8b 01              lsl local1 
  05eb:3c                 dup 
  05ec:35 01              ldi 1 
  05ee:1a                 eq? 
  05ef:31 2f              bnt code_0620 
  05f1:35 01              ldi 1 
  05f3:a0 00b6            sag global182 
  05f6:38 00ec          pushi ec // $ec get
  05f9:78               push1 
  05fa:39 0f            pushi f // $f lsBottom
  05fc:81 00              lag gEgo 
  05fe:4a 06             send 6 

  0600:38 00ee          pushi ee // $ee has
  0603:78               push1 
  0604:39 0e            pushi e // $e lsLeft
  0606:81 00              lag gEgo 
  0608:4a 06             send 6 

  060a:31 06              bnt code_0612 
  060c:76               push0 
  060d:45 16 00         callb procedure_0016 0 // Ok 

  0610:33 0c              jmp code_061e 

        code_0612
  0612:7a               push2 
  0613:38 0118          pushi 118 // $118 stopExtra
  0616:39 1b            pushi 1b // $1b elements
  0618:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_061e
  061e:33 75              jmp code_0695 

        code_0620
  0620:3c                 dup 
  0621:35 03              ldi 3 
  0623:1a                 eq? 
  0624:31 29              bnt code_064f 
  0626:35 01              ldi 1 
  0628:a0 00b6            sag global182 
  062b:38 00ec          pushi ec // $ec get
  062e:78               push1 
  062f:39 05            pushi 5 // $5 view
  0631:81 00              lag gEgo 
  0633:4a 06             send 6 

  0635:7a               push2 
  0636:38 0118          pushi 118 // $118 stopExtra
  0639:39 10            pushi 10 // $10 lsRight
  063b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0641:7a               push2 
  0642:38 0118          pushi 118 // $118 stopExtra
  0645:39 1c            pushi 1c // $1c color
  0647:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  064d:33 46              jmp code_0695 

        code_064f
  064f:3c                 dup 
  0650:35 02              ldi 2 
  0652:1a                 eq? 
  0653:31 15              bnt code_066a 
  0655:35 01              ldi 1 
  0657:a0 00b6            sag global182 
  065a:38 00ec          pushi ec // $ec get
  065d:78               push1 
  065e:39 0e            pushi e // $e lsLeft
  0660:81 00              lag gEgo 
  0662:4a 06             send 6 

  0664:76               push0 
  0665:45 16 00         callb procedure_0016 0 // Ok 

  0668:33 2b              jmp code_0695 

        code_066a
  066a:3c                 dup 
  066b:35 04              ldi 4 
  066d:1a                 eq? 
  066e:31 25              bnt code_0695 
  0670:8b 00              lsl local0 
  0672:3c                 dup 
  0673:35 00              ldi 0 
  0675:1a                 eq? 
  0676:31 0e              bnt code_0686 
  0678:7a               push2 
  0679:38 0118          pushi 118 // $118 stopExtra
  067c:39 1d            pushi 1d // $1d back
  067e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0684:33 0c              jmp code_0692 

        code_0686
  0686:7a               push2 
  0687:38 0118          pushi 118 // $118 stopExtra
  068a:39 1e            pushi 1e // $1e mode
  068c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0692
  0692:3a                toss 
  0693:c3 00              +al local0 

        code_0695
  0695:3a                toss 
  0696:35 02              ldi 2 
  0698:65 10             aTop cycles 
  069a:33 48              jmp code_06e4 

        code_069c
  069c:3c                 dup 
  069d:35 03              ldi 3 
  069f:1a                 eq? 
  06a0:31 0d              bnt code_06af 
  06a2:39 7e            pushi 7e // $7e setCycle
  06a4:7a               push2 
  06a5:51 1b            class Beg 
  06a7:36                push 
  06a8:7c            pushSelf 
  06a9:81 00              lag gEgo 
  06ab:4a 08             send 8 

  06ad:33 35              jmp code_06e4 

        code_06af
  06af:3c                 dup 
  06b0:35 04              ldi 4 
  06b2:1a                 eq? 
  06b3:31 2f              bnt code_06e4 
  06b5:76               push0 
  06b6:45 04 00         callb procedure_0004 0 // HandsOn 

  06b9:39 05            pushi 5 // $5 view
  06bb:78               push1 
  06bc:76               push0 
  06bd:39 7e            pushi 7e // $7e setCycle
  06bf:78               push1 
  06c0:51 17            class Walk 
  06c2:36                push 
  06c3:81 00              lag gEgo 
  06c5:4a 0c             send c 

  06c7:8b 01              lsl local1 
  06c9:35 01              ldi 1 
  06cb:1a                 eq? 
  06cc:2f 07               bt code_06d5 
  06ce:8b 01              lsl local1 
  06d0:35 02              ldi 2 
  06d2:1a                 eq? 
  06d3:31 07              bnt code_06dc 

        code_06d5
  06d5:39 58            pushi 58 // $58 dispose
  06d7:76               push0 
  06d8:63 08             pToa client 
  06da:4a 04             send 4 


        code_06dc
  06dc:39 7a            pushi 7a // $7a setScript
  06de:78               push1 
  06df:76               push0 
  06e0:63 08             pToa client 
  06e2:4a 06             send 6 


        code_06e4
  06e4:3a                toss 
  06e5:48                 ret 
    )

)



