(script 256)

(string
    string_0466 "Body"
    string_046b "Dwilb"
    string_0471 "WilburBlock"
    string_047d "myMusic"
    string_0485 "pickUp"
    string_048c "showCloseup"
)

(said
    said_02fe (look<dans),chercher
    said_0309 /c>
    said_030e embrace
    said_0311 get,attirer,attirer,appuyer,bouger
    said_0320 get/monocle
    said_0326 aider
    said_0329 abattre
    said_032c embrasser
    said_032f look/c
    said_0335 bonjour
)

(synonym
    c | doc | docteur | doctor | dr | wilbur = c | doc | docteur | doctor | dr | wilbur
    c | doc | docteur | doctor | dr | wilbur = body | corps | corpse
    c | doc | docteur | doctor | dr | wilbur = fellow | gars | gentleman | guy | homme | man | type
)

(local
)

// 033e
(instance Body of Prop
    (properties
        y $a5
        x $57
        z $0
        heading $0
        yStep $2
        view $1a7
        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_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 02fe          lofss $032f // look/c
  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 0100          pushi 100 // $100 notify
  0042:76               push0 
  0043:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0049
  0049:48                 ret 
    )

)

// 0390
(instance WilburBlock of Blk
    (properties
        top $0
        left $0
        bottom $0
        right $0
    )
)

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

// 03da
(instance public Dwilb of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_004a
  004a:89 0b              lsg gCurRoomNum 
  004c:35 45              ldi 45 
  004e:1a                 eq? 
  004f:31 0f              bnt code_0060 
  0051:38 00c5          pushi c5 // $c5 posn
  0054:7a               push2 
  0055:38 0110          pushi 110 // $110 disable
  0058:38 0091          pushi 91 // $91 isType
  005b:72 02e6          lofsa $0344 // Body
  005e:4a 08             send 8 


        code_0060
  0060:39 57            pushi 57 // $57 init
  0062:76               push0 
  0063:72 02de          lofsa $0344 // Body
  0066:4a 04             send 4 

  0068:34 0080            ldi 80 
  006b:a0 00c3            sag global195 
  006e:88 00c6            lsg global198 
  0071:34 00c8            ldi c8 
  0074:22                 lt? 
  0075:31 16              bnt code_008d 
  0077:34 00c8            ldi c8 
  007a:a0 00c6            sag global198 
  007d:78               push1 
  007e:7a               push2 
  007f:46 019f 0001 02  calle 19f procedure_0001 2 // proc415_1 

  0085:39 7a            pushi 7a // $7a setScript
  0087:78               push1 
  0088:74 0383          lofss $040e // showCloseup
  008b:54 06             self 6 


        code_008d
  008d:48                 ret 
    )

    (method (dispose) // method_008e
  008e:39 58            pushi 58 // $58 dispose
  0090:76               push0 
  0091:57 36 04         super Rgn 4 

  0094:48                 ret 
    )

    (method (handleEvent) // method_0095
  0095:39 4c            pushi 4c // $4c claimed
  0097:76               push0 
  0098:87 01              lap param1 
  009a:4a 04             send 4 

  009c:31 03              bnt code_00a1 
  009e:35 01              ldi 1 
  00a0:48                 ret 

        code_00a1
  00a1:39 22            pushi 22 // $22 type
  00a3:76               push0 
  00a4:87 01              lap param1 
  00a6:4a 04             send 4 

  00a8:36                push 
  00a9:34 0080            ldi 80 
  00ac:1a                 eq? 
  00ad:30 00ef            bnt code_019f 
  00b0:78               push1 
  00b1:74 026c          lofss $0320 // get/monocle
  00b4:43 25 02         callk Said 2 

  00b7:31 26              bnt code_00df 
  00b9:38 00ae          pushi ae // $ae distanceTo
  00bc:78               push1 
  00bd:74 0284          lofss $0344 // Body
  00c0:81 00              lag gEgo 
  00c2:4a 06             send 6 

  00c4:36                push 
  00c5:35 19              ldi 19 
  00c7:22                 lt? 
  00c8:31 0e              bnt code_00d8 
  00ca:76               push0 
  00cb:45 03 00         callb procedure_0003 0 // HandsOff 

  00ce:39 7a            pushi 7a // $7a setScript
  00d0:78               push1 
  00d1:74 036a          lofss $043e // pickUp
  00d4:54 06             self 6 

  00d6:33 04              jmp code_00dc 

        code_00d8
  00d8:76               push0 
  00d9:45 09 00         callb procedure_0009 0 // NotClose 


        code_00dc
  00dc:32 00c0            jmp code_019f 

        code_00df
  00df:78               push1 
  00e0:74 0226          lofss $0309 // /c>
  00e3:43 25 02         callk Said 2 

  00e6:30 00b6            bnt code_019f 
  00e9:78               push1 
  00ea:74 023c          lofss $0329 // abattre
  00ed:43 25 02         callk Said 2 

  00f0:31 0e              bnt code_0100 
  00f2:7a               push2 
  00f3:38 0100          pushi 100 // $100 notify
  00f6:78               push1 
  00f7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00fd:32 009f            jmp code_019f 

        code_0100
  0100:78               push1 
  0101:74 0228          lofss $032c // embrasser
  0104:43 25 02         callk Said 2 

  0107:31 0e              bnt code_0117 
  0109:7a               push2 
  010a:38 0100          pushi 100 // $100 notify
  010d:7a               push2 
  010e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0114:32 0088            jmp code_019f 

        code_0117
  0117:78               push1 
  0118:74 01f3          lofss $030e // embrace
  011b:43 25 02         callk Said 2 

  011e:31 0e              bnt code_012e 
  0120:7a               push2 
  0121:38 0100          pushi 100 // $100 notify
  0124:39 03            pushi 3 // $3 y
  0126:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  012c:33 71              jmp code_019f 

        code_012e
  012e:78               push1 
  012f:74 01df          lofss $0311 // get,attirer,attirer,appuyer,bouger
  0132:43 25 02         callk Said 2 

  0135:31 0e              bnt code_0145 
  0137:7a               push2 
  0138:38 0100          pushi 100 // $100 notify
  013b:39 04            pushi 4 // $4 x
  013d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0143:33 5a              jmp code_019f 

        code_0145
  0145:78               push1 
  0146:74 01b5          lofss $02fe // (look<dans),chercher
  0149:43 25 02         callk Said 2 

  014c:31 25              bnt code_0173 
  014e:38 00ae          pushi ae // $ae distanceTo
  0151:78               push1 
  0152:74 01ef          lofss $0344 // Body
  0155:81 00              lag gEgo 
  0157:4a 06             send 6 

  0159:36                push 
  015a:35 19              ldi 19 
  015c:22                 lt? 
  015d:31 0e              bnt code_016d 
  015f:76               push0 
  0160:45 03 00         callb procedure_0003 0 // HandsOff 

  0163:39 7a            pushi 7a // $7a setScript
  0165:78               push1 
  0166:74 02d5          lofss $043e // pickUp
  0169:54 06             self 6 

  016b:33 04              jmp code_0171 

        code_016d
  016d:76               push0 
  016e:45 09 00         callb procedure_0009 0 // NotClose 


        code_0171
  0171:33 2c              jmp code_019f 

        code_0173
  0173:78               push1 
  0174:74 01af          lofss $0326 // aider
  0177:43 25 02         callk Said 2 

  017a:31 0e              bnt code_018a 
  017c:7a               push2 
  017d:38 0100          pushi 100 // $100 notify
  0180:39 05            pushi 5 // $5 view
  0182:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0188:33 15              jmp code_019f 

        code_018a
  018a:78               push1 
  018b:74 01a7          lofss $0335 // bonjour
  018e:43 25 02         callk Said 2 

  0191:31 0c              bnt code_019f 
  0193:7a               push2 
  0194:38 0100          pushi 100 // $100 notify
  0197:39 06            pushi 6 // $6 loop
  0199:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_019f
  019f:48                 ret 
    )

)

// 0408
(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_01a0
  01a0:87 01              lap param1 
  01a2:65 0a             aTop state 
  01a4:36                push 
  01a5:3c                 dup 
  01a6:35 00              ldi 0 
  01a8:1a                 eq? 
  01a9:31 0b              bnt code_01b6 
  01ab:76               push0 
  01ac:45 03 00         callb procedure_0003 0 // HandsOff 

  01af:35 02              ldi 2 
  01b1:65 12             aTop seconds 
  01b3:32 0093            jmp code_0249 

        code_01b6
  01b6:3c                 dup 
  01b7:35 01              ldi 1 
  01b9:1a                 eq? 
  01ba:31 4a              bnt code_0206 
  01bc:38 0099          pushi 99 // $99 top
  01bf:78               push1 
  01c0:39 09            pushi 9 // $9 nsTop
  01c2:76               push0 
  01c3:72 017e          lofsa $0344 // Body
  01c6:4a 04             send 4 

  01c8:36                push 
  01c9:38 009b          pushi 9b // $9b bottom
  01cc:78               push1 
  01cd:39 0b            pushi b // $b nsBottom
  01cf:76               push0 
  01d0:72 0171          lofsa $0344 // Body
  01d3:4a 04             send 4 

  01d5:36                push 
  01d6:38 009c          pushi 9c // $9c right
  01d9:78               push1 
  01da:39 0c            pushi c // $c nsRight
  01dc:76               push0 
  01dd:72 0164          lofsa $0344 // Body
  01e0:4a 04             send 4 

  01e2:36                push 
  01e3:38 009a          pushi 9a // $9a left
  01e6:78               push1 
  01e7:39 0a            pushi a // $a nsLeft
  01e9:76               push0 
  01ea:72 0157          lofsa $0344 // Body
  01ed:4a 04             send 4 

  01ef:36                push 
  01f0:72 01a3          lofsa $0396 // WilburBlock
  01f3:4a 18             send 18 

  01f5:38 00d8          pushi d8 // $d8 observeBlocks
  01f8:78               push1 
  01f9:74 019a          lofss $0396 // WilburBlock
  01fc:81 00              lag gEgo 
  01fe:4a 06             send 6 

  0200:35 01              ldi 1 
  0202:65 10             aTop cycles 
  0204:33 43              jmp code_0249 

        code_0206
  0206:3c                 dup 
  0207:35 02              ldi 2 
  0209:1a                 eq? 
  020a:31 2b              bnt code_0237 
  020c:39 2a            pushi 2a // $2a play
  020e:76               push0 
  020f:72 01a4          lofsa $03b6 // myMusic
  0212:4a 04             send 4 

  0214:39 0b            pushi b // $b nsBottom
  0216:38 0100          pushi 100 // $100 notify
  0219:39 07            pushi 7 // $7 cel
  021b:39 43            pushi 43 // $43 at
  021d:39 0a            pushi a // $a nsLeft
  021f:39 4b            pushi 4b // $4b said
  0221:39 52            pushi 52 // $52 icon
  0223:38 01a7          pushi 1a7 // $1a7 sel_423
  0226:78               push1 
  0227:76               push0 
  0228:39 1e            pushi 1e // $1e mode
  022a:78               push1 
  022b:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  0231:35 01              ldi 1 
  0233:65 10             aTop cycles 
  0235:33 12              jmp code_0249 

        code_0237
  0237:3c                 dup 
  0238:35 03              ldi 3 
  023a:1a                 eq? 
  023b:31 0c              bnt code_0249 
  023d:76               push0 
  023e:45 04 00         callb procedure_0004 0 // HandsOn 

  0241:39 7a            pushi 7a // $7a setScript
  0243:78               push1 
  0244:76               push0 
  0245:63 08             pToa client 
  0247:4a 06             send 6 


        code_0249
  0249:3a                toss 
  024a:48                 ret 
    )

)

// 0438
(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_024b
  024b:87 01              lap param1 
  024d:65 0a             aTop state 
  024f:36                push 
  0250:3c                 dup 
  0251:35 00              ldi 0 
  0253:1a                 eq? 
  0254:31 10              bnt code_0266 
  0256:7a               push2 
  0257:89 00              lsg gEgo 
  0259:74 00e8          lofss $0344 // Body
  025c:45 02 04         callb procedure_0002 4 // LookAt 

  025f:35 02              ldi 2 
  0261:65 10             aTop cycles 
  0263:32 0092            jmp code_02f8 

        code_0266
  0266:3c                 dup 
  0267:35 01              ldi 1 
  0269:1a                 eq? 
  026a:31 1b              bnt code_0287 
  026c:39 05            pushi 5 // $5 view
  026e:78               push1 
  026f:39 11            pushi 11 // $11 signal
  0271:39 07            pushi 7 // $7 cel
  0273:78               push1 
  0274:76               push0 
  0275:38 00d3          pushi d3 // $d3 setMotion
  0278:78               push1 
  0279:76               push0 
  027a:39 7e            pushi 7e // $7e setCycle
  027c:7a               push2 
  027d:51 1a            class End 
  027f:36                push 
  0280:7c            pushSelf 
  0281:81 00              lag gEgo 
  0283:4a 1a             send 1a 

  0285:33 71              jmp code_02f8 

        code_0287
  0287:3c                 dup 
  0288:35 02              ldi 2 
  028a:1a                 eq? 
  028b:31 38              bnt code_02c5 
  028d:7a               push2 
  028e:38 0100          pushi 100 // $100 notify
  0291:39 08            pushi 8 // $8 underBits
  0293:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0299:38 00ee          pushi ee // $ee has
  029c:78               push1 
  029d:78               push1 
  029e:81 00              lag gEgo 
  02a0:4a 06             send 6 

  02a2:18                 not 
  02a3:31 1a              bnt code_02bf 
  02a5:7a               push2 
  02a6:38 0100          pushi 100 // $100 notify
  02a9:39 09            pushi 9 // $9 nsTop
  02ab:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02b1:35 01              ldi 1 
  02b3:a0 00b6            sag global182 
  02b6:38 00ec          pushi ec // $ec get
  02b9:78               push1 
  02ba:78               push1 
  02bb:81 00              lag gEgo 
  02bd:4a 06             send 6 


        code_02bf
  02bf:35 01              ldi 1 
  02c1:65 10             aTop cycles 
  02c3:33 33              jmp code_02f8 

        code_02c5
  02c5:3c                 dup 
  02c6:35 03              ldi 3 
  02c8:1a                 eq? 
  02c9:31 0d              bnt code_02d8 
  02cb:39 7e            pushi 7e // $7e setCycle
  02cd:7a               push2 
  02ce:51 1b            class Beg 
  02d0:36                push 
  02d1:7c            pushSelf 
  02d2:81 00              lag gEgo 
  02d4:4a 08             send 8 

  02d6:33 20              jmp code_02f8 

        code_02d8
  02d8:3c                 dup 
  02d9:35 04              ldi 4 
  02db:1a                 eq? 
  02dc:31 1a              bnt code_02f8 
  02de:76               push0 
  02df:45 04 00         callb procedure_0004 0 // HandsOn 

  02e2:39 05            pushi 5 // $5 view
  02e4:78               push1 
  02e5:76               push0 
  02e6:39 7e            pushi 7e // $7e setCycle
  02e8:78               push1 
  02e9:51 17            class Walk 
  02eb:36                push 
  02ec:81 00              lag gEgo 
  02ee:4a 0c             send c 

  02f0:39 7a            pushi 7a // $7a setScript
  02f2:78               push1 
  02f3:76               push0 
  02f4:63 08             pToa client 
  02f6:4a 06             send 6 


        code_02f8
  02f8:3a                toss 
  02f9:48                 ret 
    )

)



