(script 263)

(string
    string_03dc "Body"
    string_03e1 "Dglor"
    string_03e7 "myMusic"
    string_03ef "pickUp"
    string_03f6 "showCloseup"
)

(said
    said_0294 (look<dans),chercher
    said_029f /actress>
    said_02a4 embrace
    said_02a7 get,attirer,attirer,appuyer,bouger
    said_02b6 get/boa
    said_02bc aider
    said_02bf abattre
    said_02c2 embrasser
    said_02c5 look
    said_02c8 look/boa
    said_02ce bonjour
)

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

(local
)

// 02d8
(instance Body of Prop
    (properties
        y $8a
        x $cf
        z $0
        heading $0
        yStep $2
        view $16b
        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
    )
)

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

// 0350
(instance public Dglor of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_001a
  001a:78               push1 
  001b:39 04            pushi 4 // $4 x
  001d:46 019f 0001 02  calle 19f procedure_0001 2 // proc415_1 

  0023:39 42            pushi 42 // $42 setPri
  0025:78               push1 
  0026:39 08            pushi 8 // $8 underBits
  0028:39 57            pushi 57 // $57 init
  002a:76               push0 
  002b:72 02b0          lofsa $02de // Body
  002e:4a 0a             send a 

  0030:89 7b              lsg gCorpseFlags 
  0032:35 04              ldi 4 
  0034:14                  or 
  0035:a1 7b              sag gCorpseFlags 
  0037:35 04              ldi 4 
  0039:a0 00c3            sag global195 
  003c:39 7a            pushi 7a // $7a setScript
  003e:78               push1 
  003f:74 0342          lofss $0384 // showCloseup
  0042:54 06             self 6 

  0044:48                 ret 
    )

    (method (dispose) // method_0045
  0045:39 58            pushi 58 // $58 dispose
  0047:76               push0 
  0048:57 36 04         super Rgn 4 

  004b:48                 ret 
    )

    (method (handleEvent) // method_004c
  004c:39 4c            pushi 4c // $4c claimed
  004e:76               push0 
  004f:87 01              lap param1 
  0051:4a 04             send 4 

  0053:31 03              bnt code_0058 
  0055:35 01              ldi 1 
  0057:48                 ret 

        code_0058
  0058:39 22            pushi 22 // $22 type
  005a:76               push0 
  005b:87 01              lap param1 
  005d:4a 04             send 4 

  005f:36                push 
  0060:34 0080            ldi 80 
  0063:1a                 eq? 
  0064:30 011d            bnt code_0184 
  0067:78               push1 
  0068:74 025d          lofss $02c8 // look/boa
  006b:43 25 02         callk Said 2 

  006e:31 0e              bnt code_007e 
  0070:7a               push2 
  0071:38 0107          pushi 107 // $107 south
  0074:76               push0 
  0075:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  007b:32 0106            jmp code_0184 

        code_007e
  007e:78               push1 
  007f:74 0234          lofss $02b6 // get/boa
  0082:43 25 02         callk Said 2 

  0085:31 0e              bnt code_0095 
  0087:7a               push2 
  0088:38 0107          pushi 107 // $107 south
  008b:78               push1 
  008c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0092:32 00ef            jmp code_0184 

        code_0095
  0095:78               push1 
  0096:74 0206          lofss $029f // /actress>
  0099:43 25 02         callk Said 2 

  009c:30 00e5            bnt code_0184 
  009f:78               push1 
  00a0:74 021c          lofss $02bf // abattre
  00a3:43 25 02         callk Said 2 

  00a6:31 0e              bnt code_00b6 
  00a8:7a               push2 
  00a9:38 0107          pushi 107 // $107 south
  00ac:7a               push2 
  00ad:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00b3:32 00ce            jmp code_0184 

        code_00b6
  00b6:78               push1 
  00b7:74 0208          lofss $02c2 // embrasser
  00ba:43 25 02         callk Said 2 

  00bd:31 0f              bnt code_00ce 
  00bf:7a               push2 
  00c0:38 0107          pushi 107 // $107 south
  00c3:39 03            pushi 3 // $3 y
  00c5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00cb:32 00b6            jmp code_0184 

        code_00ce
  00ce:78               push1 
  00cf:74 01d2          lofss $02a4 // embrace
  00d2:43 25 02         callk Said 2 

  00d5:31 0f              bnt code_00e6 
  00d7:7a               push2 
  00d8:38 0107          pushi 107 // $107 south
  00db:39 04            pushi 4 // $4 x
  00dd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00e3:32 009e            jmp code_0184 

        code_00e6
  00e6:78               push1 
  00e7:74 01bd          lofss $02a7 // get,attirer,attirer,appuyer,bouger
  00ea:43 25 02         callk Said 2 

  00ed:31 0f              bnt code_00fe 
  00ef:7a               push2 
  00f0:38 0107          pushi 107 // $107 south
  00f3:39 05            pushi 5 // $5 view
  00f5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00fb:32 0086            jmp code_0184 

        code_00fe
  00fe:78               push1 
  00ff:74 01c3          lofss $02c5 // look
  0102:43 25 02         callk Said 2 

  0105:31 0e              bnt code_0115 
  0107:7a               push2 
  0108:38 0107          pushi 107 // $107 south
  010b:39 06            pushi 6 // $6 loop
  010d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0113:33 6f              jmp code_0184 

        code_0115
  0115:78               push1 
  0116:74 017b          lofss $0294 // (look<dans),chercher
  0119:43 25 02         callk Said 2 

  011c:31 3a              bnt code_0158 
  011e:38 00ae          pushi ae // $ae distanceTo
  0121:78               push1 
  0122:74 01b9          lofss $02de // Body
  0125:81 00              lag gEgo 
  0127:4a 06             send 6 

  0129:36                push 
  012a:35 14              ldi 14 
  012c:22                 lt? 
  012d:31 23              bnt code_0152 
  012f:89 0b              lsg gCurRoomNum 
  0131:35 18              ldi 18 
  0133:1a                 eq? 
  0134:31 0e              bnt code_0144 
  0136:76               push0 
  0137:45 03 00         callb procedure_0003 0 // HandsOff 

  013a:39 7a            pushi 7a // $7a setScript
  013c:78               push1 
  013d:74 0274          lofss $03b4 // pickUp
  0140:54 06             self 6 

  0142:33 0c              jmp code_0150 

        code_0144
  0144:7a               push2 
  0145:38 0107          pushi 107 // $107 south
  0148:39 07            pushi 7 // $7 cel
  014a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0150
  0150:33 04              jmp code_0156 

        code_0152
  0152:76               push0 
  0153:45 09 00         callb procedure_0009 0 // NotClose 


        code_0156
  0156:33 2c              jmp code_0184 

        code_0158
  0158:78               push1 
  0159:74 0160          lofss $02bc // aider
  015c:43 25 02         callk Said 2 

  015f:31 0e              bnt code_016f 
  0161:7a               push2 
  0162:38 0107          pushi 107 // $107 south
  0165:39 08            pushi 8 // $8 underBits
  0167:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  016d:33 15              jmp code_0184 

        code_016f
  016f:78               push1 
  0170:74 015b          lofss $02ce // bonjour
  0173:43 25 02         callk Said 2 

  0176:31 0c              bnt code_0184 
  0178:7a               push2 
  0179:38 0107          pushi 107 // $107 south
  017c:39 09            pushi 9 // $9 nsTop
  017e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0184
  0184:48                 ret 
    )

)

// 037e
(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_0185
  0185:87 01              lap param1 
  0187:65 0a             aTop state 
  0189:36                push 
  018a:3c                 dup 
  018b:35 00              ldi 0 
  018d:1a                 eq? 
  018e:31 0a              bnt code_019a 
  0190:76               push0 
  0191:45 03 00         callb procedure_0003 0 // HandsOff 

  0194:35 02              ldi 2 
  0196:65 12             aTop seconds 
  0198:33 4f              jmp code_01e9 

        code_019a
  019a:3c                 dup 
  019b:35 01              ldi 1 
  019d:1a                 eq? 
  019e:31 06              bnt code_01a6 
  01a0:35 01              ldi 1 
  01a2:65 10             aTop cycles 
  01a4:33 43              jmp code_01e9 

        code_01a6
  01a6:3c                 dup 
  01a7:35 02              ldi 2 
  01a9:1a                 eq? 
  01aa:31 2b              bnt code_01d7 
  01ac:39 2a            pushi 2a // $2a play
  01ae:76               push0 
  01af:72 017a          lofsa $032c // myMusic
  01b2:4a 04             send 4 

  01b4:39 0b            pushi b // $b nsBottom
  01b6:38 0107          pushi 107 // $107 south
  01b9:39 0a            pushi a // $a nsLeft
  01bb:39 43            pushi 43 // $43 at
  01bd:39 0a            pushi a // $a nsLeft
  01bf:39 3c            pushi 3c // $3c doit
  01c1:39 52            pushi 52 // $52 icon
  01c3:38 016b          pushi 16b // $16b sel_363
  01c6:78               push1 
  01c7:76               push0 
  01c8:39 1e            pushi 1e // $1e mode
  01ca:78               push1 
  01cb:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  01d1:35 01              ldi 1 
  01d3:65 10             aTop cycles 
  01d5:33 12              jmp code_01e9 

        code_01d7
  01d7:3c                 dup 
  01d8:35 03              ldi 3 
  01da:1a                 eq? 
  01db:31 0c              bnt code_01e9 
  01dd:76               push0 
  01de:45 04 00         callb procedure_0004 0 // HandsOn 

  01e1:39 7a            pushi 7a // $7a setScript
  01e3:78               push1 
  01e4:76               push0 
  01e5:63 08             pToa client 
  01e7:4a 06             send 6 


        code_01e9
  01e9:3a                toss 
  01ea:48                 ret 
    )

)

// 03ae
(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_01eb
  01eb:87 01              lap param1 
  01ed:65 0a             aTop state 
  01ef:36                push 
  01f0:3c                 dup 
  01f1:35 00              ldi 0 
  01f3:1a                 eq? 
  01f4:31 17              bnt code_020d 
  01f6:38 00c8          pushi c8 // $c8 setLoop
  01f9:78               push1 
  01fa:39 06            pushi 6 // $6 loop
  01fc:76               push0 
  01fd:81 00              lag gEgo 
  01ff:4a 04             send 4 

  0201:36                push 
  0202:81 00              lag gEgo 
  0204:4a 06             send 6 

  0206:35 02              ldi 2 
  0208:65 10             aTop cycles 
  020a:32 0080            jmp code_028d 

        code_020d
  020d:3c                 dup 
  020e:35 01              ldi 1 
  0210:1a                 eq? 
  0211:31 22              bnt code_0235 
  0213:39 05            pushi 5 // $5 view
  0215:78               push1 
  0216:39 11            pushi 11 // $11 signal
  0218:39 07            pushi 7 // $7 cel
  021a:78               push1 
  021b:76               push0 
  021c:38 00d3          pushi d3 // $d3 setMotion
  021f:78               push1 
  0220:76               push0 
  0221:38 00d7          pushi d7 // $d7 ignoreControl
  0224:78               push1 
  0225:38 8000          pushi 8000 // $8000 sel_32768
  0228:39 7e            pushi 7e // $7e setCycle
  022a:7a               push2 
  022b:51 1a            class End 
  022d:36                push 
  022e:7c            pushSelf 
  022f:81 00              lag gEgo 
  0231:4a 20             send 20 

  0233:33 58              jmp code_028d 

        code_0235
  0235:3c                 dup 
  0236:35 02              ldi 2 
  0238:1a                 eq? 
  0239:31 12              bnt code_024d 
  023b:7a               push2 
  023c:38 0107          pushi 107 // $107 south
  023f:39 07            pushi 7 // $7 cel
  0241:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0247:35 01              ldi 1 
  0249:65 10             aTop cycles 
  024b:33 40              jmp code_028d 

        code_024d
  024d:3c                 dup 
  024e:35 03              ldi 3 
  0250:1a                 eq? 
  0251:31 0d              bnt code_0260 
  0253:39 7e            pushi 7e // $7e setCycle
  0255:7a               push2 
  0256:51 1b            class Beg 
  0258:36                push 
  0259:7c            pushSelf 
  025a:81 00              lag gEgo 
  025c:4a 08             send 8 

  025e:33 2d              jmp code_028d 

        code_0260
  0260:3c                 dup 
  0261:35 04              ldi 4 
  0263:1a                 eq? 
  0264:31 27              bnt code_028d 
  0266:39 05            pushi 5 // $5 view
  0268:78               push1 
  0269:76               push0 
  026a:38 00c8          pushi c8 // $c8 setLoop
  026d:78               push1 
  026e:39 ff            pushi ff // $ff checkAni
  0270:38 00d6          pushi d6 // $d6 observeControl
  0273:78               push1 
  0274:38 8000          pushi 8000 // $8000 sel_32768
  0277:39 7e            pushi 7e // $7e setCycle
  0279:78               push1 
  027a:51 17            class Walk 
  027c:36                push 
  027d:81 00              lag gEgo 
  027f:4a 18             send 18 

  0281:76               push0 
  0282:45 04 00         callb procedure_0004 0 // HandsOn 

  0285:39 7a            pushi 7a // $7a setScript
  0287:78               push1 
  0288:76               push0 
  0289:63 08             pToa client 
  028b:4a 06             send 6 


        code_028d
  028d:3a                toss 
  028e:48                 ret 
  028f:00                bnot 
    )

)



