(script 273)

(string
    string_04c8 "Body"
    string_04cd "Dfifi"
    string_04d3 "myMusic"
    string_04db "mySound"
    string_04e3 "pickUp"
    string_04ea "showCloseup"
)

(said
    said_0324 (look<dans),chercher/fifi,butler
    said_0335 /butler>
    said_033a /fifi>
    said_033f embrace
    said_0342 get,attirer,attirer,appuyer,bouger/fifi,butler,fifi
    said_035a get/glass,boire
    said_0363 aider
    said_0366 abattre
    said_0369 embrasser
    said_036c look/fifi,butler,gens
    said_0378 look/glass,boire
    said_0381 bonjour
)

(synonym
    butler | jeeves = fellow | gars | gentleman | guy | homme | man | type
    fifi | maid = body | corps | corpse
    fifi | maid = dame | femme | fille | girl | lady | maiden | woman
)

(local
    local0 = $0000
    local1 = $0000
)

// 038a
(instance Body of Prop
    (properties
        y $5a
        x $9a
        z $0
        heading $0
        yStep $2
        view $1bb
        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_001e
  001e:39 03            pushi 3 // $3 y
  0020:7c            pushSelf 
  0021:8f 01              lsp param1 
  0023:39 03            pushi 3 // $3 y
  0025:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  002b:2f 09               bt code_0036 
  002d:78               push1 
  002e:74 033b          lofss $036c // look/fifi,butler,gens
  0031:43 25 02         callk Said 2 

  0034:31 13              bnt code_0049 

        code_0036
  0036:39 4c            pushi 4c // $4c claimed
  0038:78               push1 
  0039:78               push1 
  003a:87 01              lap param1 
  003c:4a 06             send 6 

  003e:7a               push2 
  003f:38 0111          pushi 111 // $111 cycleType
  0042:76               push0 
  0043:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0049
  0049:48                 ret 
    )

)

// 03dc
(instance mySound of Sound
    (properties
        state $0
        number $63
        priority $1
        loop $ffff
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)

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

// 0430
(instance public Dfifi of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_004a
  004a:78               push1 
  004b:39 10            pushi 10 // $10 lsRight
  004d:46 019f 0001 02  calle 19f procedure_0001 2 // proc415_1 

  0053:38 00c9          pushi c9 // $c9 ignoreActors
  0056:78               push1 
  0057:78               push1 
  0058:39 57            pushi 57 // $57 init
  005a:76               push0 
  005b:38 00c6          pushi c6 // $c6 stopUpd
  005e:76               push0 
  005f:72 032e          lofsa $0390 // Body
  0062:4a 0e             send e 

  0064:72 037b          lofsa $03e2 // mySound
  0067:a0 0178            sag global376 
  006a:34 0410            ldi 410 
  006d:a0 00c3            sag global195 
  0070:48                 ret 
    )

    (method (doit) // method_0071
  0071:63 08             pToa script 
  0073:18                 not 
  0074:31 15              bnt code_008b 
  0076:39 04            pushi 4 // $4 x
  0078:76               push0 
  0079:81 00              lag gEgo 
  007b:4a 04             send 4 

  007d:36                push 
  007e:35 40              ldi 40 
  0080:1e                 gt? 
  0081:31 08              bnt code_008b 
  0083:39 7a            pushi 7a // $7a setScript
  0085:78               push1 
  0086:74 03df          lofss $0468 // showCloseup
  0089:54 06             self 6 


        code_008b
  008b:39 3c            pushi 3c // $3c doit
  008d:76               push0 
  008e:57 36 04         super Rgn 4 

  0091:48                 ret 
    )

    (method (dispose) // method_0092
  0092:39 58            pushi 58 // $58 dispose
  0094:76               push0 
  0095:57 36 04         super Rgn 4 

  0098:48                 ret 
    )

    (method (handleEvent) // method_0099
  0099:39 4c            pushi 4c // $4c claimed
  009b:76               push0 
  009c:87 01              lap param1 
  009e:4a 04             send 4 

  00a0:31 03              bnt code_00a5 
  00a2:35 01              ldi 1 
  00a4:48                 ret 

        code_00a5
  00a5:39 22            pushi 22 // $22 type
  00a7:76               push0 
  00a8:87 01              lap param1 
  00aa:4a 04             send 4 

  00ac:36                push 
  00ad:34 0080            ldi 80 
  00b0:1a                 eq? 
  00b1:30 0151            bnt code_0205 
  00b4:78               push1 
  00b5:74 028a          lofss $0342 // get,attirer,attirer,appuyer,bouger/fifi,butler,fifi
  00b8:43 25 02         callk Said 2 

  00bb:31 0e              bnt code_00cb 
  00bd:7a               push2 
  00be:38 0111          pushi 111 // $111 cycleType
  00c1:78               push1 
  00c2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00c8:32 013a            jmp code_0205 

        code_00cb
  00cb:78               push1 
  00cc:74 0297          lofss $0366 // abattre
  00cf:43 25 02         callk Said 2 

  00d2:31 0e              bnt code_00e2 
  00d4:7a               push2 
  00d5:38 0111          pushi 111 // $111 cycleType
  00d8:7a               push2 
  00d9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00df:32 0123            jmp code_0205 

        code_00e2
  00e2:78               push1 
  00e3:74 023e          lofss $0324 // (look<dans),chercher/fifi,butler
  00e6:43 25 02         callk Said 2 

  00e9:31 22              bnt code_010d 
  00eb:38 00db          pushi db // $db onControl
  00ee:78               push1 
  00ef:76               push0 
  00f0:81 00              lag gEgo 
  00f2:4a 06             send 6 

  00f4:36                push 
  00f5:35 40              ldi 40 
  00f7:12                 and 
  00f8:31 0c              bnt code_0106 
  00fa:39 7a            pushi 7a // $7a setScript
  00fc:78               push1 
  00fd:74 0398          lofss $0498 // pickUp
  0100:81 00              lag gEgo 
  0102:4a 06             send 6 

  0104:33 04              jmp code_010a 

        code_0106
  0106:76               push0 
  0107:45 09 00         callb procedure_0009 0 // NotClose 


        code_010a
  010a:32 00f8            jmp code_0205 

        code_010d
  010d:78               push1 
  010e:74 0267          lofss $0378 // look/glass,boire
  0111:43 25 02         callk Said 2 

  0114:31 0f              bnt code_0125 
  0116:7a               push2 
  0117:38 0111          pushi 111 // $111 cycleType
  011a:39 03            pushi 3 // $3 y
  011c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0122:32 00e0            jmp code_0205 

        code_0125
  0125:78               push1 
  0126:74 0231          lofss $035a // get/glass,boire
  0129:43 25 02         callk Said 2 

  012c:31 0f              bnt code_013d 
  012e:7a               push2 
  012f:38 0111          pushi 111 // $111 cycleType
  0132:39 04            pushi 4 // $4 x
  0134:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  013a:32 00c8            jmp code_0205 

        code_013d
  013d:78               push1 
  013e:74 01f9          lofss $033a // /fifi>
  0141:43 25 02         callk Said 2 

  0144:31 5c              bnt code_01a2 
  0146:78               push1 
  0147:74 021f          lofss $0369 // embrasser
  014a:43 25 02         callk Said 2 

  014d:31 0e              bnt code_015d 
  014f:7a               push2 
  0150:38 0111          pushi 111 // $111 cycleType
  0153:39 05            pushi 5 // $5 view
  0155:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  015b:33 43              jmp code_01a0 

        code_015d
  015d:78               push1 
  015e:74 01de          lofss $033f // embrace
  0161:43 25 02         callk Said 2 

  0164:31 0e              bnt code_0174 
  0166:7a               push2 
  0167:38 0111          pushi 111 // $111 cycleType
  016a:39 06            pushi 6 // $6 loop
  016c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0172:33 2c              jmp code_01a0 

        code_0174
  0174:78               push1 
  0175:74 01eb          lofss $0363 // aider
  0178:43 25 02         callk Said 2 

  017b:31 0e              bnt code_018b 
  017d:7a               push2 
  017e:38 0111          pushi 111 // $111 cycleType
  0181:39 07            pushi 7 // $7 cel
  0183:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0189:33 15              jmp code_01a0 

        code_018b
  018b:78               push1 
  018c:74 01f2          lofss $0381 // bonjour
  018f:43 25 02         callk Said 2 

  0192:31 0c              bnt code_01a0 
  0194:7a               push2 
  0195:38 0111          pushi 111 // $111 cycleType
  0198:39 08            pushi 8 // $8 underBits
  019a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_01a0
  01a0:33 63              jmp code_0205 

        code_01a2
  01a2:78               push1 
  01a3:74 018f          lofss $0335 // /butler>
  01a6:43 25 02         callk Said 2 

  01a9:31 5a              bnt code_0205 
  01ab:78               push1 
  01ac:74 01ba          lofss $0369 // embrasser
  01af:43 25 02         callk Said 2 

  01b2:31 0e              bnt code_01c2 
  01b4:7a               push2 
  01b5:38 0111          pushi 111 // $111 cycleType
  01b8:39 09            pushi 9 // $9 nsTop
  01ba:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01c0:33 43              jmp code_0205 

        code_01c2
  01c2:78               push1 
  01c3:74 0179          lofss $033f // embrace
  01c6:43 25 02         callk Said 2 

  01c9:31 0e              bnt code_01d9 
  01cb:7a               push2 
  01cc:38 0111          pushi 111 // $111 cycleType
  01cf:39 0a            pushi a // $a nsLeft
  01d1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01d7:33 2c              jmp code_0205 

        code_01d9
  01d9:78               push1 
  01da:74 0186          lofss $0363 // aider
  01dd:43 25 02         callk Said 2 

  01e0:31 0e              bnt code_01f0 
  01e2:7a               push2 
  01e3:38 0111          pushi 111 // $111 cycleType
  01e6:39 0b            pushi b // $b nsBottom
  01e8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01ee:33 15              jmp code_0205 

        code_01f0
  01f0:78               push1 
  01f1:74 018d          lofss $0381 // bonjour
  01f4:43 25 02         callk Said 2 

  01f7:31 0c              bnt code_0205 
  01f9:7a               push2 
  01fa:38 0111          pushi 111 // $111 cycleType
  01fd:39 0c            pushi c // $c nsRight
  01ff:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0205
  0205:48                 ret 
    )

)

// 0462
(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_0206
  0206:87 01              lap param1 
  0208:65 0a             aTop state 
  020a:36                push 
  020b:3c                 dup 
  020c:35 00              ldi 0 
  020e:1a                 eq? 
  020f:31 37              bnt code_0248 
  0211:39 2b            pushi 2b // $2b number
  0213:78               push1 
  0214:39 63            pushi 63 // $63 firstTrue
  0216:39 06            pushi 6 // $6 loop
  0218:78               push1 
  0219:39 ff            pushi ff // $ff checkAni
  021b:39 2a            pushi 2a // $2a play
  021d:76               push0 
  021e:72 01c1          lofsa $03e2 // mySound
  0221:4a 10             send 10 

  0223:39 7e            pushi 7e // $7e setCycle
  0225:78               push1 
  0226:51 16            class Fwd 
  0228:36                push 
  0229:39 57            pushi 57 // $57 init
  022b:76               push0 
  022c:80 0175            lag global373 
  022f:4a 0a             send a 

  0231:89 7b              lsg gCorpseFlags 
  0233:35 10              ldi 10 
  0235:14                  or 
  0236:a1 7b              sag gCorpseFlags 
  0238:78               push1 
  0239:39 16            pushi 16 // $16 brRight
  023b:45 05 02         callb procedure_0005 2 // SetFlag 

  023e:76               push0 
  023f:45 03 00         callb procedure_0003 0 // HandsOff 

  0242:35 02              ldi 2 
  0244:65 12             aTop seconds 
  0246:33 52              jmp code_029a 

        code_0248
  0248:3c                 dup 
  0249:35 01              ldi 1 
  024b:1a                 eq? 
  024c:31 06              bnt code_0254 
  024e:35 01              ldi 1 
  0250:65 10             aTop cycles 
  0252:33 46              jmp code_029a 

        code_0254
  0254:3c                 dup 
  0255:35 02              ldi 2 
  0257:1a                 eq? 
  0258:31 2b              bnt code_0285 
  025a:39 2a            pushi 2a // $2a play
  025c:76               push0 
  025d:72 01ac          lofsa $040c // myMusic
  0260:4a 04             send 4 

  0262:39 0b            pushi b // $b nsBottom
  0264:38 0111          pushi 111 // $111 cycleType
  0267:39 0d            pushi d // $d lsTop
  0269:39 43            pushi 43 // $43 at
  026b:39 0a            pushi a // $a nsLeft
  026d:39 0a            pushi a // $a nsLeft
  026f:39 52            pushi 52 // $52 icon
  0271:38 01bb          pushi 1bb // $1bb sel_443
  0274:76               push0 
  0275:76               push0 
  0276:39 1e            pushi 1e // $1e mode
  0278:78               push1 
  0279:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  027f:35 01              ldi 1 
  0281:65 10             aTop cycles 
  0283:33 15              jmp code_029a 

        code_0285
  0285:3c                 dup 
  0286:35 03              ldi 3 
  0288:1a                 eq? 
  0289:31 0f              bnt code_029a 
  028b:38 00d6          pushi d6 // $d6 observeControl
  028e:78               push1 
  028f:38 0100          pushi 100 // $100 notify
  0292:81 00              lag gEgo 
  0294:4a 06             send 6 

  0296:76               push0 
  0297:45 04 00         callb procedure_0004 0 // HandsOn 


        code_029a
  029a:3a                toss 
  029b:48                 ret 
    )

)

// 0492
(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_029c
  029c:87 01              lap param1 
  029e:65 0a             aTop state 
  02a0:36                push 
  02a1:3c                 dup 
  02a2:35 00              ldi 0 
  02a4:1a                 eq? 
  02a5:31 0f              bnt code_02b6 
  02a7:7a               push2 
  02a8:89 00              lsg gEgo 
  02aa:74 00e3          lofss $0390 // Body
  02ad:45 02 04         callb procedure_0002 4 // LookAt 

  02b0:35 02              ldi 2 
  02b2:65 10             aTop cycles 
  02b4:33 68              jmp code_031e 

        code_02b6
  02b6:3c                 dup 
  02b7:35 01              ldi 1 
  02b9:1a                 eq? 
  02ba:31 1b              bnt code_02d7 
  02bc:39 05            pushi 5 // $5 view
  02be:78               push1 
  02bf:39 11            pushi 11 // $11 signal
  02c1:39 07            pushi 7 // $7 cel
  02c3:78               push1 
  02c4:76               push0 
  02c5:38 00d3          pushi d3 // $d3 setMotion
  02c8:78               push1 
  02c9:76               push0 
  02ca:39 7e            pushi 7e // $7e setCycle
  02cc:7a               push2 
  02cd:51 1a            class End 
  02cf:36                push 
  02d0:7c            pushSelf 
  02d1:81 00              lag gEgo 
  02d3:4a 1a             send 1a 

  02d5:33 47              jmp code_031e 

        code_02d7
  02d7:3c                 dup 
  02d8:35 02              ldi 2 
  02da:1a                 eq? 
  02db:31 12              bnt code_02ef 
  02dd:7a               push2 
  02de:38 0111          pushi 111 // $111 cycleType
  02e1:39 0e            pushi e // $e lsLeft
  02e3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02e9:35 01              ldi 1 
  02eb:65 10             aTop cycles 
  02ed:33 2f              jmp code_031e 

        code_02ef
  02ef:3c                 dup 
  02f0:35 03              ldi 3 
  02f2:1a                 eq? 
  02f3:31 0d              bnt code_0302 
  02f5:39 7e            pushi 7e // $7e setCycle
  02f7:7a               push2 
  02f8:51 1b            class Beg 
  02fa:36                push 
  02fb:7c            pushSelf 
  02fc:81 00              lag gEgo 
  02fe:4a 08             send 8 

  0300:33 1c              jmp code_031e 

        code_0302
  0302:3c                 dup 
  0303:35 04              ldi 4 
  0305:1a                 eq? 
  0306:31 16              bnt code_031e 
  0308:39 05            pushi 5 // $5 view
  030a:78               push1 
  030b:76               push0 
  030c:39 7e            pushi 7e // $7e setCycle
  030e:78               push1 
  030f:51 17            class Walk 
  0311:36                push 
  0312:81 00              lag gEgo 
  0314:4a 0c             send c 

  0316:39 7a            pushi 7a // $7a setScript
  0318:78               push1 
  0319:76               push0 
  031a:63 08             pToa client 
  031c:4a 06             send 6 


        code_031e
  031e:3a                toss 
  031f:48                 ret 
    )

)



