(script 268)

(string
    string_0422 "Body"
    string_0427 "Dethe"
    string_042d "myMusic"
    string_0435 "pickUp"
    string_043c "showCloseup"
)

(said
    said_02da (look<dans),chercher
    said_02e5 /ethel>
    said_02ea embrace
    said_02ed get,attirer,attirer,appuyer,bouger
    said_02fc aider
    said_02ff abattre
    said_0302 embrasser
    said_0305 look
    said_0308 look/head
    said_030e bonjour
)

(synonym
    ethel = body | corps | corpse
    ethel = dame | femme | fille | girl | lady | maiden | woman
)

(local
    local0 = $0000
)

// 0318
(instance Body of Prop
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $143
        loop $0
        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
    )
)

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

// 0390
(instance public Dethe of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_001a
  001a:78               push1 
  001b:39 08            pushi 8 // $8 underBits
  001d:46 019f 0001 02  calle 19f procedure_0001 2 // proc415_1 

  0023:89 0b              lsg gCurRoomNum 
  0025:35 3d              ldi 3d 
  0027:1a                 eq? 
  0028:31 1d              bnt code_0047 
  002a:39 05            pushi 5 // $5 view
  002c:78               push1 
  002d:38 014b          pushi 14b // $14b HighLitePosn
  0030:38 00c5          pushi c5 // $c5 posn
  0033:7a               push2 
  0034:39 2a            pushi 2a // $2a play
  0036:39 7d            pushi 7d // $7d set
  0038:39 42            pushi 42 // $42 setPri
  003a:78               push1 
  003b:39 0b            pushi b // $b nsBottom
  003d:39 57            pushi 57 // $57 init
  003f:76               push0 
  0040:72 02db          lofsa $031e // Body
  0043:4a 18             send 18 

  0045:33 26              jmp code_006d 

        code_0047
  0047:38 00c5          pushi c5 // $c5 posn
  004a:7a               push2 
  004b:38 009d          pushi 9d // $9d cycleDir
  004e:39 5f            pushi 5f // $5f yourself
  0050:39 42            pushi 42 // $42 setPri
  0052:78               push1 
  0053:39 04            pushi 4 // $4 x
  0055:38 00c9          pushi c9 // $c9 ignoreActors
  0058:78               push1 
  0059:78               push1 
  005a:39 57            pushi 57 // $57 init
  005c:76               push0 
  005d:72 02be          lofsa $031e // Body
  0060:4a 18             send 18 

  0062:38 00d6          pushi d6 // $d6 observeControl
  0065:78               push1 
  0066:38 0100          pushi 100 // $100 notify
  0069:81 00              lag gEgo 
  006b:4a 06             send 6 


        code_006d
  006d:35 64              ldi 64 
  006f:a0 00c8            sag gEthelState 
  0072:35 08              ldi 8 
  0074:a0 00c3            sag global195 
  0077:39 7a            pushi 7a // $7a setScript
  0079:78               push1 
  007a:74 0347          lofss $03c4 // showCloseup
  007d:54 06             self 6 

  007f:48                 ret 
    )

    (method (dispose) // method_0080
  0080:39 58            pushi 58 // $58 dispose
  0082:76               push0 
  0083:57 36 04         super Rgn 4 

  0086:48                 ret 
    )

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

  008e:31 03              bnt code_0093 
  0090:35 01              ldi 1 
  0092:48                 ret 

        code_0093
  0093:39 22            pushi 22 // $22 type
  0095:76               push0 
  0096:87 01              lap param1 
  0098:4a 04             send 4 

  009a:36                push 
  009b:34 0080            ldi 80 
  009e:1a                 eq? 
  009f:30 0113            bnt code_01b5 
  00a2:78               push1 
  00a3:74 0262          lofss $0308 // look/head
  00a6:43 25 02         callk Said 2 

  00a9:31 0e              bnt code_00b9 
  00ab:7a               push2 
  00ac:38 010c          pushi 10c // $10c setLocales
  00af:76               push0 
  00b0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00b6:32 00fc            jmp code_01b5 

        code_00b9
  00b9:78               push1 
  00ba:74 0228          lofss $02e5 // /ethel>
  00bd:43 25 02         callk Said 2 

  00c0:30 00f2            bnt code_01b5 
  00c3:78               push1 
  00c4:74 0238          lofss $02ff // abattre
  00c7:43 25 02         callk Said 2 

  00ca:31 0e              bnt code_00da 
  00cc:7a               push2 
  00cd:38 010c          pushi 10c // $10c setLocales
  00d0:78               push1 
  00d1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00d7:32 00db            jmp code_01b5 

        code_00da
  00da:78               push1 
  00db:74 0224          lofss $0302 // embrasser
  00de:43 25 02         callk Said 2 

  00e1:31 0e              bnt code_00f1 
  00e3:7a               push2 
  00e4:38 010c          pushi 10c // $10c setLocales
  00e7:7a               push2 
  00e8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00ee:32 00c4            jmp code_01b5 

        code_00f1
  00f1:78               push1 
  00f2:74 01f5          lofss $02ea // embrace
  00f5:43 25 02         callk Said 2 

  00f8:31 0f              bnt code_0109 
  00fa:7a               push2 
  00fb:38 010c          pushi 10c // $10c setLocales
  00fe:39 03            pushi 3 // $3 y
  0100:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0106:32 00ac            jmp code_01b5 

        code_0109
  0109:78               push1 
  010a:74 01e0          lofss $02ed // get,attirer,attirer,appuyer,bouger
  010d:43 25 02         callk Said 2 

  0110:31 0f              bnt code_0121 
  0112:7a               push2 
  0113:38 010c          pushi 10c // $10c setLocales
  0116:39 04            pushi 4 // $4 x
  0118:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  011e:32 0094            jmp code_01b5 

        code_0121
  0121:78               push1 
  0122:74 01b5          lofss $02da // (look<dans),chercher
  0125:43 25 02         callk Said 2 

  0128:31 48              bnt code_0172 
  012a:83 00              lal local0 
  012c:31 0e              bnt code_013c 
  012e:7a               push2 
  012f:38 010c          pushi 10c // $10c setLocales
  0132:39 05            pushi 5 // $5 view
  0134:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  013a:33 34              jmp code_0170 

        code_013c
  013c:38 00ae          pushi ae // $ae distanceTo
  013f:78               push1 
  0140:74 01db          lofss $031e // Body
  0143:81 00              lag gEgo 
  0145:4a 06             send 6 

  0147:36                push 
  0148:35 19              ldi 19 
  014a:22                 lt? 
  014b:31 1f              bnt code_016c 
  014d:89 0b              lsg gCurRoomNum 
  014f:35 3d              ldi 3d 
  0151:1a                 eq? 
  0152:31 0e              bnt code_0162 
  0154:7a               push2 
  0155:38 010c          pushi 10c // $10c setLocales
  0158:39 06            pushi 6 // $6 loop
  015a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0160:33 08              jmp code_016a 

        code_0162
  0162:39 7a            pushi 7a // $7a setScript
  0164:78               push1 
  0165:74 028c          lofss $03f4 // pickUp
  0168:54 06             self 6 


        code_016a
  016a:33 04              jmp code_0170 

        code_016c
  016c:76               push0 
  016d:45 09 00         callb procedure_0009 0 // NotClose 


        code_0170
  0170:33 43              jmp code_01b5 

        code_0172
  0172:78               push1 
  0173:74 018f          lofss $0305 // look
  0176:43 25 02         callk Said 2 

  0179:31 0e              bnt code_0189 
  017b:7a               push2 
  017c:38 010c          pushi 10c // $10c setLocales
  017f:39 07            pushi 7 // $7 cel
  0181:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0187:33 2c              jmp code_01b5 

        code_0189
  0189:78               push1 
  018a:74 016f          lofss $02fc // aider
  018d:43 25 02         callk Said 2 

  0190:31 0e              bnt code_01a0 
  0192:7a               push2 
  0193:38 010c          pushi 10c // $10c setLocales
  0196:39 08            pushi 8 // $8 underBits
  0198:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  019e:33 15              jmp code_01b5 

        code_01a0
  01a0:78               push1 
  01a1:74 016a          lofss $030e // bonjour
  01a4:43 25 02         callk Said 2 

  01a7:31 0c              bnt code_01b5 
  01a9:7a               push2 
  01aa:38 010c          pushi 10c // $10c setLocales
  01ad:39 09            pushi 9 // $9 nsTop
  01af:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_01b5
  01b5:48                 ret 
    )

)

// 03be
(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_01b6
  01b6:87 01              lap param1 
  01b8:65 0a             aTop state 
  01ba:36                push 
  01bb:3c                 dup 
  01bc:35 00              ldi 0 
  01be:1a                 eq? 
  01bf:31 0b              bnt code_01cc 
  01c1:76               push0 
  01c2:45 03 00         callb procedure_0003 0 // HandsOff 

  01c5:35 02              ldi 2 
  01c7:65 12             aTop seconds 
  01c9:32 0084            jmp code_0250 

        code_01cc
  01cc:3c                 dup 
  01cd:35 01              ldi 1 
  01cf:1a                 eq? 
  01d0:31 06              bnt code_01d8 
  01d2:35 01              ldi 1 
  01d4:65 10             aTop cycles 
  01d6:33 78              jmp code_0250 

        code_01d8
  01d8:3c                 dup 
  01d9:35 02              ldi 2 
  01db:1a                 eq? 
  01dc:31 60              bnt code_023e 
  01de:89 7b              lsg gCorpseFlags 
  01e0:35 08              ldi 8 
  01e2:12                 and 
  01e3:18                 not 
  01e4:31 52              bnt code_0238 
  01e6:89 7b              lsg gCorpseFlags 
  01e8:35 08              ldi 8 
  01ea:14                  or 
  01eb:a1 7b              sag gCorpseFlags 
  01ed:39 2a            pushi 2a // $2a play
  01ef:76               push0 
  01f0:72 0179          lofsa $036c // myMusic
  01f3:4a 04             send 4 

  01f5:89 0b              lsg gCurRoomNum 
  01f7:35 3d              ldi 3d 
  01f9:1c                 ne? 
  01fa:31 1f              bnt code_021b 
  01fc:39 0b            pushi b // $b nsBottom
  01fe:38 010c          pushi 10c // $10c setLocales
  0201:39 0a            pushi a // $a nsLeft
  0203:39 43            pushi 43 // $43 at
  0205:39 0a            pushi a // $a nsLeft
  0207:39 0a            pushi a // $a nsLeft
  0209:39 52            pushi 52 // $52 icon
  020b:38 0143          pushi 143 // $143 elevatorFunc
  020e:78               push1 
  020f:76               push0 
  0210:39 1e            pushi 1e // $1e mode
  0212:78               push1 
  0213:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  0219:33 1d              jmp code_0238 

        code_021b
  021b:39 0b            pushi b // $b nsBottom
  021d:38 010c          pushi 10c // $10c setLocales
  0220:39 0a            pushi a // $a nsLeft
  0222:39 43            pushi 43 // $43 at
  0224:39 0a            pushi a // $a nsLeft
  0226:39 0a            pushi a // $a nsLeft
  0228:39 52            pushi 52 // $52 icon
  022a:38 014b          pushi 14b // $14b HighLitePosn
  022d:78               push1 
  022e:76               push0 
  022f:39 1e            pushi 1e // $1e mode
  0231:78               push1 
  0232:46 00ff 0000 16  calle ff procedure_0000 16 // Print 


        code_0238
  0238:35 01              ldi 1 
  023a:65 10             aTop cycles 
  023c:33 12              jmp code_0250 

        code_023e
  023e:3c                 dup 
  023f:35 03              ldi 3 
  0241:1a                 eq? 
  0242:31 0c              bnt code_0250 
  0244:76               push0 
  0245:45 04 00         callb procedure_0004 0 // HandsOn 

  0248:39 7a            pushi 7a // $7a setScript
  024a:78               push1 
  024b:76               push0 
  024c:63 08             pToa client 
  024e:4a 06             send 6 


        code_0250
  0250:3a                toss 
  0251:48                 ret 
    )

)

// 03ee
(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_0252
  0252:87 01              lap param1 
  0254:65 0a             aTop state 
  0256:36                push 
  0257:3c                 dup 
  0258:35 00              ldi 0 
  025a:1a                 eq? 
  025b:31 0f              bnt code_026c 
  025d:7a               push2 
  025e:89 00              lsg gEgo 
  0260:74 00bb          lofss $031e // Body
  0263:45 02 04         callb procedure_0002 4 // LookAt 

  0266:35 02              ldi 2 
  0268:65 10             aTop cycles 
  026a:33 68              jmp code_02d4 

        code_026c
  026c:3c                 dup 
  026d:35 01              ldi 1 
  026f:1a                 eq? 
  0270:31 1b              bnt code_028d 
  0272:39 05            pushi 5 // $5 view
  0274:78               push1 
  0275:39 11            pushi 11 // $11 signal
  0277:39 07            pushi 7 // $7 cel
  0279:78               push1 
  027a:76               push0 
  027b:38 00d3          pushi d3 // $d3 setMotion
  027e:78               push1 
  027f:76               push0 
  0280:39 7e            pushi 7e // $7e setCycle
  0282:7a               push2 
  0283:51 1a            class End 
  0285:36                push 
  0286:7c            pushSelf 
  0287:81 00              lag gEgo 
  0289:4a 1a             send 1a 

  028b:33 47              jmp code_02d4 

        code_028d
  028d:3c                 dup 
  028e:35 02              ldi 2 
  0290:1a                 eq? 
  0291:31 12              bnt code_02a5 
  0293:7a               push2 
  0294:38 010c          pushi 10c // $10c setLocales
  0297:39 06            pushi 6 // $6 loop
  0299:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  029f:35 01              ldi 1 
  02a1:65 10             aTop cycles 
  02a3:33 2f              jmp code_02d4 

        code_02a5
  02a5:3c                 dup 
  02a6:35 03              ldi 3 
  02a8:1a                 eq? 
  02a9:31 0d              bnt code_02b8 
  02ab:39 7e            pushi 7e // $7e setCycle
  02ad:7a               push2 
  02ae:51 1b            class Beg 
  02b0:36                push 
  02b1:7c            pushSelf 
  02b2:81 00              lag gEgo 
  02b4:4a 08             send 8 

  02b6:33 1c              jmp code_02d4 

        code_02b8
  02b8:3c                 dup 
  02b9:35 04              ldi 4 
  02bb:1a                 eq? 
  02bc:31 16              bnt code_02d4 
  02be:39 05            pushi 5 // $5 view
  02c0:78               push1 
  02c1:76               push0 
  02c2:39 7e            pushi 7e // $7e setCycle
  02c4:78               push1 
  02c5:51 17            class Walk 
  02c7:36                push 
  02c8:81 00              lag gEgo 
  02ca:4a 0c             send c 

  02cc:39 7a            pushi 7a // $7a setScript
  02ce:78               push1 
  02cf:76               push0 
  02d0:63 08             pToa client 
  02d2:4a 06             send 6 


        code_02d4
  02d4:3a                toss 
  02d5:48                 ret 
    )

)



