(script 235)

(string
    string_042a "Body"
    string_042f "Dgert"
    string_0435 "myMusic"
    string_043d "pickUp"
    string_0444 "showCloseup"
)

(said
    said_02c4 (look<dans),chercher
    said_02cf (look<dans),chercher/cloth
    said_02dd /gertie>
    said_02e2 ask,hold,raconter,deliver
    said_02ee embrace
    said_02f1 get,attirer,attirer,appuyer,bouger
    said_0300 get/pearl,collier
    said_0309 aider
    said_030c abattre
    said_030f embrasser
    said_0312 look,find
    said_0318 bonjour
)

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

(local
)

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

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

// 039a
(instance public Dgert of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_001e
  001e:78               push1 
  001f:78               push1 
  0020:46 019f 0001 02  calle 19f procedure_0001 2 // proc415_1 

  0026:39 05            pushi 5 // $5 view
  0028:78               push1 
  0029:38 0157          pushi 157 // $157 converse
  002c:39 07            pushi 7 // $7 cel
  002e:78               push1 
  002f:76               push0 
  0030:38 00c5          pushi c5 // $c5 posn
  0033:7a               push2 
  0034:39 37            pushi 37 // $37 yStep
  0036:39 7e            pushi 7e // $7e setCycle
  0038:39 57            pushi 57 // $57 init
  003a:76               push0 
  003b:72 02ea          lofsa $0328 // Body
  003e:4a 18             send 18 

  0040:89 7b              lsg gCorpseFlags 
  0042:35 01              ldi 1 
  0044:14                  or 
  0045:a1 7b              sag gCorpseFlags 
  0047:35 01              ldi 1 
  0049:a0 00c3            sag global195 
  004c:39 7a            pushi 7a // $7a setScript
  004e:78               push1 
  004f:74 0380          lofss $03d2 // showCloseup
  0052:54 06             self 6 

  0054:48                 ret 
    )

    (method (doit) // method_0055
  0055:38 00d6          pushi d6 // $d6 observeControl
  0058:78               push1 
  0059:38 0100          pushi 100 // $100 notify
  005c:81 00              lag gEgo 
  005e:4a 06             send 6 

  0060:39 3c            pushi 3c // $3c doit
  0062:76               push0 
  0063:57 36 04         super Rgn 4 

  0066:48                 ret 
    )

    (method (dispose) // method_0067
  0067:39 58            pushi 58 // $58 dispose
  0069:76               push0 
  006a:57 36 04         super Rgn 4 

  006d:48                 ret 
    )

    (method (handleEvent) // method_006e
  006e:39 4c            pushi 4c // $4c claimed
  0070:76               push0 
  0071:87 01              lap param1 
  0073:4a 04             send 4 

  0075:31 03              bnt code_007a 
  0077:35 01              ldi 1 
  0079:48                 ret 

        code_007a
  007a:39 22            pushi 22 // $22 type
  007c:76               push0 
  007d:87 01              lap param1 
  007f:4a 04             send 4 

  0081:36                push 
  0082:34 0080            ldi 80 
  0085:1a                 eq? 
  0086:30 012c            bnt code_01b5 
  0089:78               push1 
  008a:74 0242          lofss $02cf // (look<dans),chercher/cloth
  008d:43 25 02         callk Said 2 

  0090:31 22              bnt code_00b4 
  0092:38 00ae          pushi ae // $ae distanceTo
  0095:78               push1 
  0096:74 028f          lofss $0328 // Body
  0099:81 00              lag gEgo 
  009b:4a 06             send 6 

  009d:36                push 
  009e:35 14              ldi 14 
  00a0:22                 lt? 
  00a1:31 0a              bnt code_00ad 
  00a3:39 7a            pushi 7a // $7a setScript
  00a5:78               push1 
  00a6:74 0359          lofss $0402 // pickUp
  00a9:54 06             self 6 

  00ab:33 04              jmp code_00b1 

        code_00ad
  00ad:76               push0 
  00ae:45 09 00         callb procedure_0009 0 // NotClose 


        code_00b1
  00b1:32 0101            jmp code_01b5 

        code_00b4
  00b4:78               push1 
  00b5:74 0225          lofss $02dd // /gertie>
  00b8:43 25 02         callk Said 2 

  00bb:30 00cb            bnt code_0189 
  00be:78               push1 
  00bf:74 024a          lofss $030c // abattre
  00c2:43 25 02         callk Said 2 

  00c5:31 0e              bnt code_00d5 
  00c7:7a               push2 
  00c8:38 00eb          pushi eb // $eb edgeHit
  00cb:76               push0 
  00cc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00d2:32 00b2            jmp code_0187 

        code_00d5
  00d5:78               push1 
  00d6:74 0236          lofss $030f // embrasser
  00d9:43 25 02         callk Said 2 

  00dc:31 0e              bnt code_00ec 
  00de:7a               push2 
  00df:38 00eb          pushi eb // $eb edgeHit
  00e2:78               push1 
  00e3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00e9:32 009b            jmp code_0187 

        code_00ec
  00ec:78               push1 
  00ed:74 01fe          lofss $02ee // embrace
  00f0:43 25 02         callk Said 2 

  00f3:31 0e              bnt code_0103 
  00f5:7a               push2 
  00f6:38 00eb          pushi eb // $eb edgeHit
  00f9:7a               push2 
  00fa:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0100:32 0084            jmp code_0187 

        code_0103
  0103:78               push1 
  0104:74 01ea          lofss $02f1 // get,attirer,attirer,appuyer,bouger
  0107:43 25 02         callk Said 2 

  010a:31 0e              bnt code_011a 
  010c:7a               push2 
  010d:38 00eb          pushi eb // $eb edgeHit
  0110:39 03            pushi 3 // $3 y
  0112:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0118:33 6d              jmp code_0187 

        code_011a
  011a:78               push1 
  011b:74 01a6          lofss $02c4 // (look<dans),chercher
  011e:43 25 02         callk Said 2 

  0121:31 21              bnt code_0144 
  0123:38 00ae          pushi ae // $ae distanceTo
  0126:78               push1 
  0127:74 01fe          lofss $0328 // Body
  012a:81 00              lag gEgo 
  012c:4a 06             send 6 

  012e:36                push 
  012f:35 14              ldi 14 
  0131:22                 lt? 
  0132:31 0a              bnt code_013e 
  0134:39 7a            pushi 7a // $7a setScript
  0136:78               push1 
  0137:74 02c8          lofss $0402 // pickUp
  013a:54 06             self 6 

  013c:33 04              jmp code_0142 

        code_013e
  013e:76               push0 
  013f:45 09 00         callb procedure_0009 0 // NotClose 


        code_0142
  0142:33 43              jmp code_0187 

        code_0144
  0144:78               push1 
  0145:74 01ca          lofss $0312 // look,find
  0148:43 25 02         callk Said 2 

  014b:31 0e              bnt code_015b 
  014d:7a               push2 
  014e:38 00eb          pushi eb // $eb edgeHit
  0151:39 04            pushi 4 // $4 x
  0153:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0159:33 2c              jmp code_0187 

        code_015b
  015b:78               push1 
  015c:74 01aa          lofss $0309 // aider
  015f:43 25 02         callk Said 2 

  0162:31 0e              bnt code_0172 
  0164:7a               push2 
  0165:38 00eb          pushi eb // $eb edgeHit
  0168:39 05            pushi 5 // $5 view
  016a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0170:33 15              jmp code_0187 

        code_0172
  0172:78               push1 
  0173:74 01a2          lofss $0318 // bonjour
  0176:43 25 02         callk Said 2 

  0179:31 0c              bnt code_0187 
  017b:7a               push2 
  017c:38 00eb          pushi eb // $eb edgeHit
  017f:39 06            pushi 6 // $6 loop
  0181:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0187
  0187:33 2c              jmp code_01b5 

        code_0189
  0189:78               push1 
  018a:74 0155          lofss $02e2 // ask,hold,raconter,deliver
  018d:43 25 02         callk Said 2 

  0190:31 0e              bnt code_01a0 
  0192:7a               push2 
  0193:38 00eb          pushi eb // $eb edgeHit
  0196:39 06            pushi 6 // $6 loop
  0198:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  019e:33 15              jmp code_01b5 

        code_01a0
  01a0:78               push1 
  01a1:74 015c          lofss $0300 // get/pearl,collier
  01a4:43 25 02         callk Said 2 

  01a7:31 0c              bnt code_01b5 
  01a9:7a               push2 
  01aa:38 00eb          pushi eb // $eb edgeHit
  01ad:39 07            pushi 7 // $7 cel
  01af:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_01b5
  01b5:48                 ret 
    )

)

// 03cc
(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 06              bnt code_01c7 
  01c1:35 02              ldi 2 
  01c3:65 10             aTop cycles 
  01c5:33 73              jmp code_023a 

        code_01c7
  01c7:3c                 dup 
  01c8:35 01              ldi 1 
  01ca:1a                 eq? 
  01cb:31 1a              bnt code_01e7 
  01cd:38 00db          pushi db // $db onControl
  01d0:78               push1 
  01d1:78               push1 
  01d2:81 00              lag gEgo 
  01d4:4a 06             send 6 

  01d6:36                push 
  01d7:35 01              ldi 1 
  01d9:12                 and 
  01da:18                 not 
  01db:31 04              bnt code_01e1 
  01dd:35 00              ldi 0 
  01df:65 0a             aTop state 

        code_01e1
  01e1:35 01              ldi 1 
  01e3:65 10             aTop cycles 
  01e5:33 53              jmp code_023a 

        code_01e7
  01e7:3c                 dup 
  01e8:35 02              ldi 2 
  01ea:1a                 eq? 
  01eb:31 0a              bnt code_01f7 
  01ed:76               push0 
  01ee:45 03 00         callb procedure_0003 0 // HandsOff 

  01f1:35 03              ldi 3 
  01f3:65 12             aTop seconds 
  01f5:33 43              jmp code_023a 

        code_01f7
  01f7:3c                 dup 
  01f8:35 03              ldi 3 
  01fa:1a                 eq? 
  01fb:31 2b              bnt code_0228 
  01fd:39 2a            pushi 2a // $2a play
  01ff:76               push0 
  0200:72 0173          lofsa $0376 // myMusic
  0203:4a 04             send 4 

  0205:39 0b            pushi b // $b nsBottom
  0207:38 00eb          pushi eb // $eb edgeHit
  020a:39 08            pushi 8 // $8 underBits
  020c:39 43            pushi 43 // $43 at
  020e:39 0a            pushi a // $a nsLeft
  0210:39 4b            pushi 4b // $4b said
  0212:39 52            pushi 52 // $52 icon
  0214:38 0157          pushi 157 // $157 converse
  0217:78               push1 
  0218:76               push0 
  0219:39 1e            pushi 1e // $1e mode
  021b:78               push1 
  021c:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  0222:35 01              ldi 1 
  0224:65 10             aTop cycles 
  0226:33 12              jmp code_023a 

        code_0228
  0228:3c                 dup 
  0229:35 04              ldi 4 
  022b:1a                 eq? 
  022c:31 0c              bnt code_023a 
  022e:76               push0 
  022f:45 04 00         callb procedure_0004 0 // HandsOn 

  0232:39 7a            pushi 7a // $7a setScript
  0234:78               push1 
  0235:76               push0 
  0236:63 08             pToa client 
  0238:4a 06             send 6 


        code_023a
  023a:3a                toss 
  023b:48                 ret 
    )

)

// 03fc
(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_023c
  023c:87 01              lap param1 
  023e:65 0a             aTop state 
  0240:36                push 
  0241:3c                 dup 
  0242:35 00              ldi 0 
  0244:1a                 eq? 
  0245:31 0f              bnt code_0256 
  0247:7a               push2 
  0248:89 00              lsg gEgo 
  024a:74 00db          lofss $0328 // Body
  024d:45 02 04         callb procedure_0002 4 // LookAt 

  0250:35 02              ldi 2 
  0252:65 10             aTop cycles 
  0254:33 68              jmp code_02be 

        code_0256
  0256:3c                 dup 
  0257:35 01              ldi 1 
  0259:1a                 eq? 
  025a:31 1b              bnt code_0277 
  025c:39 05            pushi 5 // $5 view
  025e:78               push1 
  025f:39 11            pushi 11 // $11 signal
  0261:39 07            pushi 7 // $7 cel
  0263:78               push1 
  0264:76               push0 
  0265:38 00d3          pushi d3 // $d3 setMotion
  0268:78               push1 
  0269:76               push0 
  026a:39 7e            pushi 7e // $7e setCycle
  026c:7a               push2 
  026d:51 1a            class End 
  026f:36                push 
  0270:7c            pushSelf 
  0271:81 00              lag gEgo 
  0273:4a 1a             send 1a 

  0275:33 47              jmp code_02be 

        code_0277
  0277:3c                 dup 
  0278:35 02              ldi 2 
  027a:1a                 eq? 
  027b:31 12              bnt code_028f 
  027d:7a               push2 
  027e:38 00eb          pushi eb // $eb edgeHit
  0281:39 09            pushi 9 // $9 nsTop
  0283:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0289:35 01              ldi 1 
  028b:65 10             aTop cycles 
  028d:33 2f              jmp code_02be 

        code_028f
  028f:3c                 dup 
  0290:35 03              ldi 3 
  0292:1a                 eq? 
  0293:31 0d              bnt code_02a2 
  0295:39 7e            pushi 7e // $7e setCycle
  0297:7a               push2 
  0298:51 1b            class Beg 
  029a:36                push 
  029b:7c            pushSelf 
  029c:81 00              lag gEgo 
  029e:4a 08             send 8 

  02a0:33 1c              jmp code_02be 

        code_02a2
  02a2:3c                 dup 
  02a3:35 04              ldi 4 
  02a5:1a                 eq? 
  02a6:31 16              bnt code_02be 
  02a8:39 05            pushi 5 // $5 view
  02aa:78               push1 
  02ab:76               push0 
  02ac:39 7e            pushi 7e // $7e setCycle
  02ae:78               push1 
  02af:51 17            class Walk 
  02b1:36                push 
  02b2:81 00              lag gEgo 
  02b4:4a 0c             send c 

  02b6:39 7a            pushi 7a // $7a setScript
  02b8:78               push1 
  02b9:76               push0 
  02ba:63 08             pToa client 
  02bc:4a 06             send 6 


        code_02be
  02be:3a                toss 
  02bf:48                 ret 
    )

)



