(script 278)

(string
    string_0366 "Body"
    string_036b "Dclar"
    string_0371 "myMusic"
    string_0379 "showCloseup"
    string_0385 ""
)

(said
    said_024a (look<dans),chercher
    said_0255 /attorney>
    said_025a embrace
    said_025d get,attirer,attirer,appuyer,bouger
    said_026c get/couteau
    said_0272 aider
    said_0275 abattre
    said_0278 embrasser
    said_027b look
    said_027e look/couteau
    said_0284 bonjour
)

(synonym
    attorney | clarence | lawyer = body | corps | corpse
    attorney | clarence | lawyer = fellow | gars | gentleman | guy | homme | man | type
)

(local
)

// 028e
(instance Body of Prop
    (properties
        y $5e
        x $c7
        z $0
        heading $0
        yStep $2
        view $193
        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
    )
)

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

// 0306
(instance public Dclar of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_001a
  001a:81 0b              lag gCurRoomNum 
  001c:a1 6a              sag global106 
  001e:36                push 
  001f:35 49              ldi 49 
  0021:1a                 eq? 
  0022:31 1f              bnt code_0043 
  0024:39 05            pushi 5 // $5 view
  0026:78               push1 
  0027:38 0193          pushi 193 // $193 sel_403
  002a:39 06            pushi 6 // $6 loop
  002c:78               push1 
  002d:78               push1 
  002e:39 07            pushi 7 // $7 cel
  0030:78               push1 
  0031:7a               push2 
  0032:38 00c5          pushi c5 // $c5 posn
  0035:7a               push2 
  0036:38 00f1          pushi f1 // $f1 write
  0039:38 008d          pushi 8d // $8d setSize
  003c:72 0255          lofsa $0294 // Body
  003f:4a 1a             send 1a 

  0041:33 06              jmp code_0049 

        code_0043
  0043:78               push1 
  0044:39 23            pushi 23 // $23 window
  0046:45 06 02         callb procedure_0006 2 // ClearFlag 


        code_0049
  0049:39 57            pushi 57 // $57 init
  004b:76               push0 
  004c:72 0245          lofsa $0294 // Body
  004f:4a 04             send 4 

  0051:35 40              ldi 40 
  0053:a0 00c3            sag global195 
  0056:88 00c9            lsg global201 
  0059:34 00c8            ldi c8 
  005c:22                 lt? 
  005d:31 17              bnt code_0076 
  005f:34 00c8            ldi c8 
  0062:a0 00c9            sag global201 
  0065:78               push1 
  0066:39 20            pushi 20 // $20 state
  0068:46 019f 0001 02  calle 19f procedure_0001 2 // proc415_1 

  006e:39 7a            pushi 7a // $7a setScript
  0070:78               push1 
  0071:74 02ca          lofss $033e // showCloseup
  0074:54 06             self 6 


        code_0076
  0076:48                 ret 
    )

    (method (dispose) // method_0077
  0077:39 58            pushi 58 // $58 dispose
  0079:76               push0 
  007a:57 36 04         super Rgn 4 

  007d:48                 ret 
    )

    (method (doit) // method_007e
  007e:39 3c            pushi 3c // $3c doit
  0080:76               push0 
  0081:57 36 04         super Rgn 4 

  0084:48                 ret 
    )

    (method (handleEvent) // method_0085
  0085:39 4c            pushi 4c // $4c claimed
  0087:76               push0 
  0088:87 01              lap param1 
  008a:4a 04             send 4 

  008c:31 03              bnt code_0091 
  008e:35 01              ldi 1 
  0090:48                 ret 

        code_0091
  0091:39 22            pushi 22 // $22 type
  0093:76               push0 
  0094:87 01              lap param1 
  0096:4a 04             send 4 

  0098:36                push 
  0099:34 0080            ldi 80 
  009c:1a                 eq? 
  009d:30 013e            bnt code_01de 
  00a0:78               push1 
  00a1:74 01da          lofss $027e // look/couteau
  00a4:43 25 02         callk Said 2 

  00a7:31 0e              bnt code_00b7 
  00a9:7a               push2 
  00aa:38 0116          pushi 116 // $116 minCycles
  00ad:76               push0 
  00ae:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00b4:32 0127            jmp code_01de 

        code_00b7
  00b7:78               push1 
  00b8:74 01b1          lofss $026c // get/couteau
  00bb:43 25 02         callk Said 2 

  00be:31 0e              bnt code_00ce 
  00c0:7a               push2 
  00c1:38 0116          pushi 116 // $116 minCycles
  00c4:78               push1 
  00c5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00cb:32 0110            jmp code_01de 

        code_00ce
  00ce:78               push1 
  00cf:74 0183          lofss $0255 // /attorney>
  00d2:43 25 02         callk Said 2 

  00d5:30 0106            bnt code_01de 
  00d8:78               push1 
  00d9:74 0199          lofss $0275 // abattre
  00dc:43 25 02         callk Said 2 

  00df:31 0e              bnt code_00ef 
  00e1:7a               push2 
  00e2:38 0116          pushi 116 // $116 minCycles
  00e5:7a               push2 
  00e6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00ec:32 00ef            jmp code_01de 

        code_00ef
  00ef:78               push1 
  00f0:74 0185          lofss $0278 // embrasser
  00f3:43 25 02         callk Said 2 

  00f6:31 0f              bnt code_0107 
  00f8:7a               push2 
  00f9:38 0116          pushi 116 // $116 minCycles
  00fc:39 03            pushi 3 // $3 y
  00fe:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0104:32 00d7            jmp code_01de 

        code_0107
  0107:78               push1 
  0108:74 014f          lofss $025a // embrace
  010b:43 25 02         callk Said 2 

  010e:31 0f              bnt code_011f 
  0110:7a               push2 
  0111:38 0116          pushi 116 // $116 minCycles
  0114:39 04            pushi 4 // $4 x
  0116:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  011c:32 00bf            jmp code_01de 

        code_011f
  011f:78               push1 
  0120:74 013a          lofss $025d // get,attirer,attirer,appuyer,bouger
  0123:43 25 02         callk Said 2 

  0126:31 0f              bnt code_0137 
  0128:7a               push2 
  0129:38 0116          pushi 116 // $116 minCycles
  012c:39 05            pushi 5 // $5 view
  012e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0134:32 00a7            jmp code_01de 

        code_0137
  0137:78               push1 
  0138:74 010f          lofss $024a // (look<dans),chercher
  013b:43 25 02         callk Said 2 

  013e:31 5b              bnt code_019b 
  0140:38 00ae          pushi ae // $ae distanceTo
  0143:78               push1 
  0144:74 014d          lofss $0294 // Body
  0147:81 00              lag gEgo 
  0149:4a 06             send 6 

  014b:36                push 
  014c:35 28              ldi 28 
  014e:22                 lt? 
  014f:31 44              bnt code_0195 
  0151:38 00ee          pushi ee // $ee has
  0154:78               push1 
  0155:39 10            pushi 10 // $10 lsRight
  0157:81 00              lag gEgo 
  0159:4a 06             send 6 

  015b:18                 not 
  015c:31 29              bnt code_0187 
  015e:7a               push2 
  015f:38 0116          pushi 116 // $116 minCycles
  0162:39 06            pushi 6 // $6 loop
  0164:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  016a:7a               push2 
  016b:38 0116          pushi 116 // $116 minCycles
  016e:39 07            pushi 7 // $7 cel
  0170:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0176:35 01              ldi 1 
  0178:a0 00b6            sag global182 
  017b:38 00ec          pushi ec // $ec get
  017e:78               push1 
  017f:39 10            pushi 10 // $10 lsRight
  0181:81 00              lag gEgo 
  0183:4a 06             send 6 

  0185:33 0c              jmp code_0193 

        code_0187
  0187:7a               push2 
  0188:38 0116          pushi 116 // $116 minCycles
  018b:39 08            pushi 8 // $8 underBits
  018d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0193
  0193:33 04              jmp code_0199 

        code_0195
  0195:76               push0 
  0196:45 09 00         callb procedure_0009 0 // NotClose 


        code_0199
  0199:33 43              jmp code_01de 

        code_019b
  019b:78               push1 
  019c:74 00dc          lofss $027b // look
  019f:43 25 02         callk Said 2 

  01a2:31 0e              bnt code_01b2 
  01a4:7a               push2 
  01a5:38 0116          pushi 116 // $116 minCycles
  01a8:39 09            pushi 9 // $9 nsTop
  01aa:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01b0:33 2c              jmp code_01de 

        code_01b2
  01b2:78               push1 
  01b3:74 00bc          lofss $0272 // aider
  01b6:43 25 02         callk Said 2 

  01b9:31 0e              bnt code_01c9 
  01bb:7a               push2 
  01bc:38 0116          pushi 116 // $116 minCycles
  01bf:39 0a            pushi a // $a nsLeft
  01c1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01c7:33 15              jmp code_01de 

        code_01c9
  01c9:78               push1 
  01ca:74 00b7          lofss $0284 // bonjour
  01cd:43 25 02         callk Said 2 

  01d0:31 0c              bnt code_01de 
  01d2:7a               push2 
  01d3:38 0116          pushi 116 // $116 minCycles
  01d6:39 0b            pushi b // $b nsBottom
  01d8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_01de
  01de:48                 ret 
    )

)

// 0338
(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_01df
  01df:87 01              lap param1 
  01e1:65 0a             aTop state 
  01e3:36                push 
  01e4:3c                 dup 
  01e5:35 00              ldi 0 
  01e7:1a                 eq? 
  01e8:31 0a              bnt code_01f4 
  01ea:76               push0 
  01eb:45 03 00         callb procedure_0003 0 // HandsOff 

  01ee:35 02              ldi 2 
  01f0:65 12             aTop seconds 
  01f2:33 4f              jmp code_0243 

        code_01f4
  01f4:3c                 dup 
  01f5:35 01              ldi 1 
  01f7:1a                 eq? 
  01f8:31 06              bnt code_0200 
  01fa:35 01              ldi 1 
  01fc:65 10             aTop cycles 
  01fe:33 43              jmp code_0243 

        code_0200
  0200:3c                 dup 
  0201:35 02              ldi 2 
  0203:1a                 eq? 
  0204:31 2b              bnt code_0231 
  0206:39 2a            pushi 2a // $2a play
  0208:76               push0 
  0209:72 00d6          lofsa $02e2 // myMusic
  020c:4a 04             send 4 

  020e:39 0b            pushi b // $b nsBottom
  0210:38 0116          pushi 116 // $116 minCycles
  0213:39 0c            pushi c // $c nsRight
  0215:39 43            pushi 43 // $43 at
  0217:39 0a            pushi a // $a nsLeft
  0219:39 0a            pushi a // $a nsLeft
  021b:39 52            pushi 52 // $52 icon
  021d:38 0193          pushi 193 // $193 sel_403
  0220:76               push0 
  0221:76               push0 
  0222:39 1e            pushi 1e // $1e mode
  0224:78               push1 
  0225:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  022b:35 01              ldi 1 
  022d:65 10             aTop cycles 
  022f:33 12              jmp code_0243 

        code_0231
  0231:3c                 dup 
  0232:35 03              ldi 3 
  0234:1a                 eq? 
  0235:31 0c              bnt code_0243 
  0237:76               push0 
  0238:45 04 00         callb procedure_0004 0 // HandsOn 

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


        code_0243
  0243:3a                toss 
  0244:48                 ret 
  0245:00                bnot 
    )

)



