(script 224)

(string
    string_038a "Gertie"
    string_0391 "gertie"
    string_0398 "sleeping"
    string_03a1 "snores"
    string_03a8 "snoring"
)

(said
    said_0240 /gertie>
    said_0245 ask,raconter//*<about
    said_0252 awaken,abattre,embrace,embrasser,get,cogner,bouger
    said_0267 deliver,hold/*
    said_0270 ecouter
    said_0273 look
    said_0276 look[<at]/bed
    said_0281 bonjour
)

(synonym
    gertie | gertrude = person | personne
    gertie | gertrude = dame | femme | fille | girl | lady | maiden | woman
)

(local
    local0 = $0000
)

// 028a
(instance snoring of Sound
    (properties
        state $0
        number $0
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)

// 02b4
(instance public sleeping of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_001a
  001a:39 57            pushi 57 // $57 init
  001c:76               push0 
  001d:57 36 04         super Rgn 4 

  0020:35 01              ldi 1 
  0022:a0 00c3            sag global195 
  0025:7a               push2 
  0026:38 0087          pushi 87 // $87 clean
  0029:39 29            pushi 29 // $29 edit
  002b:45 15 04         callb procedure_0015 4 // LoadMany 

  002e:39 03            pushi 3 // $3 y
  0030:38 0080          pushi 80 // $80 timeLeft
  0033:38 0282          pushi 282 // $282 sel_642
  0036:38 0384          pushi 384 // $384 sel_900
  0039:45 15 06         callb procedure_0015 6 // LoadMany 

  003c:39 07            pushi 7 // $7 cel
  003e:38 0084          pushi 84 // $84 stop
  0041:39 1d            pushi 1d // $1d back
  0043:39 5e            pushi 5e // $5e respondsTo
  0045:39 5f            pushi 5f // $5f yourself
  0047:39 60            pushi 60 // $60 size
  0049:39 72            pushi 72 // $72 cycles
  004b:39 73            pushi 73 // $73 seconds
  004d:45 15 0e         callb procedure_0015 e // LoadMany 

  0050:7a               push2 
  0051:38 008f          pushi 8f // $8f moveTo
  0054:38 0196          pushi 196 // $196 sel_406
  0057:45 15 04         callb procedure_0015 4 // LoadMany 

  005a:39 42            pushi 42 // $42 setPri
  005c:78               push1 
  005d:39 06            pushi 6 // $6 loop
  005f:39 7e            pushi 7e // $7e setCycle
  0061:78               push1 
  0062:51 16            class Fwd 
  0064:36                push 
  0065:39 57            pushi 57 // $57 init
  0067:76               push0 
  0068:72 0281          lofsa $02ec // Gertie
  006b:4a 10             send 10 

  006d:39 42            pushi 42 // $42 setPri
  006f:78               push1 
  0070:39 06            pushi 6 // $6 loop
  0072:39 57            pushi 57 // $57 init
  0074:76               push0 
  0075:72 02c6          lofsa $033e // snores
  0078:4a 0a             send a 

  007a:48                 ret 
    )

    (method (doit) // method_007b
  007b:39 3c            pushi 3c // $3c doit
  007d:76               push0 
  007e:57 36 04         super Rgn 4 

  0081:80 00d8            lag global216 
  0084:31 1d              bnt code_00a3 
  0086:89 76              lsg gMustDos 
  0088:35 04              ldi 4 
  008a:12                 and 
  008b:18                 not 
  008c:31 15              bnt code_00a3 
  008e:89 76              lsg gMustDos 
  0090:35 04              ldi 4 
  0092:14                  or 
  0093:a1 76              sag gMustDos 
  0095:39 7a            pushi 7a // $7a setScript
  0097:78               push1 
  0098:7a               push2 
  0099:38 0196          pushi 196 // $196 sel_406
  009c:76               push0 
  009d:43 02 04         callk ScriptID 4 

  00a0:36                push 
  00a1:54 06             self 6 


        code_00a3
  00a3:38 0081          pushi 81 // $81 prevSignal
  00a6:76               push0 
  00a7:72 01e6          lofsa $0290 // snoring
  00aa:4a 04             send 4 

  00ac:36                push 
  00ad:35 ff              ldi ff 
  00af:1a                 eq? 
  00b0:31 24              bnt code_00d6 
  00b2:39 2b            pushi 2b // $2b number
  00b4:76               push0 
  00b5:72 01d8          lofsa $0290 // snoring
  00b8:4a 04             send 4 

  00ba:36                push 
  00bb:35 72              ldi 72 
  00bd:1a                 eq? 
  00be:31 16              bnt code_00d6 
  00c0:39 2b            pushi 2b // $2b number
  00c2:78               push1 
  00c3:39 73            pushi 73 // $73 seconds
  00c5:39 06            pushi 6 // $6 loop
  00c7:78               push1 
  00c8:78               push1 
  00c9:38 0081          pushi 81 // $81 prevSignal
  00cc:78               push1 
  00cd:76               push0 
  00ce:39 2a            pushi 2a // $2a play
  00d0:76               push0 
  00d1:72 01bc          lofsa $0290 // snoring
  00d4:4a 16             send 16 


        code_00d6
  00d6:39 07            pushi 7 // $7 cel
  00d8:76               push0 
  00d9:72 0210          lofsa $02ec // Gertie
  00dc:4a 04             send 4 

  00de:36                push 
  00df:35 00              ldi 0 
  00e1:1a                 eq? 
  00e2:31 20              bnt code_0104 
  00e4:39 2b            pushi 2b // $2b number
  00e6:78               push1 
  00e7:39 72            pushi 72 // $72 cycles
  00e9:39 06            pushi 6 // $6 loop
  00eb:78               push1 
  00ec:78               push1 
  00ed:39 2a            pushi 2a // $2a play
  00ef:76               push0 
  00f0:72 019d          lofsa $0290 // snoring
  00f3:4a 10             send 10 

  00f5:39 07            pushi 7 // $7 cel
  00f7:78               push1 
  00f8:76               push0 
  00f9:39 7e            pushi 7e // $7e setCycle
  00fb:78               push1 
  00fc:51 1a            class End 
  00fe:36                push 
  00ff:72 023c          lofsa $033e // snores
  0102:4a 0c             send c 


        code_0104
  0104:48                 ret 
    )

    (method (dispose) // method_0105
  0105:39 58            pushi 58 // $58 dispose
  0107:76               push0 
  0108:57 36 04         super Rgn 4 

  010b:48                 ret 
    )

    (method (handleEvent) // method_010c
  010c:39 6f            pushi 6f // $6f handleEvent
  010e:78               push1 
  010f:8f 01              lsp param1 
  0111:57 36 06         super Rgn 6 

  0114:39 4c            pushi 4c // $4c claimed
  0116:76               push0 
  0117:87 01              lap param1 
  0119:4a 04             send 4 

  011b:31 01              bnt code_011e 
  011d:48                 ret 

        code_011e
  011e:39 22            pushi 22 // $22 type
  0120:76               push0 
  0121:87 01              lap param1 
  0123:4a 04             send 4 

  0125:36                push 
  0126:34 0080            ldi 80 
  0129:1a                 eq? 
  012a:30 00d9            bnt code_0206 
  012d:35 01              ldi 1 
  012f:a0 00d5            sag global213 
  0132:78               push1 
  0133:74 0131          lofss $0267 // deliver,hold/*
  0136:43 25 02         callk Said 2 

  0139:31 1e              bnt code_0159 
  013b:80 00db            lag global219 
  013e:31 12              bnt code_0152 
  0140:80 00e0            lag global224 
  0143:31 0d              bnt code_0152 
  0145:7a               push2 
  0146:38 00e0          pushi e0 // $e0 vanishingY
  0149:76               push0 
  014a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0150:33 04              jmp code_0156 

        code_0152
  0152:76               push0 
  0153:45 0d 00         callb procedure_000d 0 // DontHave 


        code_0156
  0156:32 00ad            jmp code_0206 

        code_0159
  0159:78               push1 
  015a:74 00e8          lofss $0245 // ask,raconter//*<about
  015d:43 25 02         callk Said 2 

  0160:2f 09               bt code_016b 
  0162:78               push1 
  0163:74 011b          lofss $0281 // bonjour
  0166:43 25 02         callk Said 2 

  0169:31 32              bnt code_019d 

        code_016b
  016b:8b 00              lsl local0 
  016d:3c                 dup 
  016e:35 00              ldi 0 
  0170:1a                 eq? 
  0171:31 0e              bnt code_0181 
  0173:39 03            pushi 3 // $3 y
  0175:78               push1 
  0176:38 00e0          pushi e0 // $e0 vanishingY
  0179:78               push1 
  017a:45 01 06         callb procedure_0001 6 // Say 

  017d:c3 00              +al local0 
  017f:33 11              jmp code_0192 

        code_0181
  0181:3c                 dup 
  0182:35 01              ldi 1 
  0184:1a                 eq? 
  0185:31 0b              bnt code_0192 
  0187:7a               push2 
  0188:38 00e0          pushi e0 // $e0 vanishingY
  018b:76               push0 
  018c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0192
  0192:3a                toss 
  0193:39 4c            pushi 4c // $4c claimed
  0195:78               push1 
  0196:78               push1 
  0197:87 01              lap param1 
  0199:4a 06             send 6 

  019b:33 69              jmp code_0206 

        code_019d
  019d:78               push1 
  019e:74 009f          lofss $0240 // /gertie>
  01a1:43 25 02         callk Said 2 

  01a4:31 60              bnt code_0206 
  01a6:78               push1 
  01a7:74 00c9          lofss $0273 // look
  01aa:43 25 02         callk Said 2 

  01ad:31 2b              bnt code_01da 
  01af:88 00cf            lsg global207 
  01b2:35 01              ldi 1 
  01b4:12                 and 
  01b5:31 0d              bnt code_01c4 
  01b7:7a               push2 
  01b8:38 00e0          pushi e0 // $e0 vanishingY
  01bb:7a               push2 
  01bc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01c2:33 14              jmp code_01d8 

        code_01c4
  01c4:88 00cf            lsg global207 
  01c7:35 01              ldi 1 
  01c9:14                  or 
  01ca:a0 00cf            sag global207 
  01cd:39 03            pushi 3 // $3 y
  01cf:76               push0 
  01d0:38 00e0          pushi e0 // $e0 vanishingY
  01d3:39 03            pushi 3 // $3 y
  01d5:45 01 06         callb procedure_0001 6 // Say 


        code_01d8
  01d8:33 2c              jmp code_0206 

        code_01da
  01da:78               push1 
  01db:74 0092          lofss $0270 // ecouter
  01de:43 25 02         callk Said 2 

  01e1:31 0e              bnt code_01f1 
  01e3:7a               push2 
  01e4:38 00e0          pushi e0 // $e0 vanishingY
  01e7:39 04            pushi 4 // $4 x
  01e9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01ef:33 15              jmp code_0206 

        code_01f1
  01f1:78               push1 
  01f2:74 005d          lofss $0252 // awaken,abattre,embrace,embrasser,get,cogner,bouger
  01f5:43 25 02         callk Said 2 

  01f8:31 0c              bnt code_0206 
  01fa:7a               push2 
  01fb:38 00e0          pushi e0 // $e0 vanishingY
  01fe:39 05            pushi 5 // $5 view
  0200:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0206
  0206:48                 ret 
    )

)

// 02e6
(instance Gertie of Prop
    (properties
        y $56
        x $d6
        z $0
        heading $0
        yStep $2
        view $158
        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 $10
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0207
  0207:78               push1 
  0208:74 006b          lofss $0276 // look[<at]/bed
  020b:43 25 02         callk Said 2 

  020e:31 0d              bnt code_021d 
  0210:7a               push2 
  0211:38 00e0          pushi e0 // $e0 vanishingY
  0214:7a               push2 
  0215:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  021b:33 1e              jmp code_023b 

        code_021d
  021d:39 03            pushi 3 // $3 y
  021f:7c            pushSelf 
  0220:8f 01              lsp param1 
  0222:39 03            pushi 3 // $3 y
  0224:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  022a:31 0f              bnt code_023b 
  022c:39 4c            pushi 4c // $4c claimed
  022e:78               push1 
  022f:78               push1 
  0230:87 01              lap param1 
  0232:4a 06             send 6 

  0234:78               push1 
  0235:74 0159          lofss $0391 // gertie
  0238:45 19 02         callb procedure_0019 2 // DoLook 


        code_023b
  023b:48                 ret 
    )

)

// 0338
(instance snores of Prop
    (properties
        y $44
        x $e4
        z $0
        heading $0
        yStep $2
        view $158
        loop $1
        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 $1
        script $0
        cycler $0
        timer $0
    )
)



