(script 279)

(string
    string_03a6 "Celie"
    string_03ac "pray"
    string_03b1 "praying"
    string_03b9 ""
)

(said
    said_02b8 /celie>
    said_02bd ask,raconter//*<about
    said_02ca embrace
    said_02cd get
    said_02d0 deliver,hold/*
    said_02d9 abattre
    said_02dc embrasser
    said_02df look/celie
    said_02e5 bonjour
)

(synonym
    celie | cook = person | personne
    celie | cook = dame | femme | fille | girl | lady | maiden | woman
)

(local
    local0 = $0000
)

// 02ee
(instance Celie 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
    )
    (method (handleEvent) // method_001a
  001a:39 03            pushi 3 // $3 y
  001c:7c            pushSelf 
  001d:8f 01              lsp param1 
  001f:39 03            pushi 3 // $3 y
  0021:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0027:31 2c              bnt code_0055 
  0029:88 00cf            lsg global207 
  002c:35 02              ldi 2 
  002e:12                 and 
  002f:18                 not 
  0030:31 23              bnt code_0055 
  0032:88 00cf            lsg global207 
  0035:35 02              ldi 2 
  0037:14                  or 
  0038:a0 00cf            sag global207 
  003b:35 02              ldi 2 
  003d:a0 00d5            sag global213 
  0040:39 4c            pushi 4c // $4c claimed
  0042:78               push1 
  0043:78               push1 
  0044:87 01              lap param1 
  0046:4a 06             send 6 

  0048:39 03            pushi 3 // $3 y
  004a:76               push0 
  004b:38 0117          pushi 117 // $117 maxCycles
  004e:76               push0 
  004f:45 01 06         callb procedure_0001 6 // Say 

  0052:32 0120            jmp code_0175 

        code_0055
  0055:88 00cf            lsg global207 
  0058:35 02              ldi 2 
  005a:12                 and 
  005b:31 2e              bnt code_008b 
  005d:39 03            pushi 3 // $3 y
  005f:7c            pushSelf 
  0060:8f 01              lsp param1 
  0062:39 03            pushi 3 // $3 y
  0064:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  006a:2f 09               bt code_0075 
  006c:78               push1 
  006d:74 026f          lofss $02df // look/celie
  0070:43 25 02         callk Said 2 

  0073:31 16              bnt code_008b 

        code_0075
  0075:39 4c            pushi 4c // $4c claimed
  0077:78               push1 
  0078:78               push1 
  0079:87 01              lap param1 
  007b:4a 06             send 6 

  007d:7a               push2 
  007e:38 0117          pushi 117 // $117 maxCycles
  0081:78               push1 
  0082:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0088:32 00ea            jmp code_0175 

        code_008b
  008b:78               push1 
  008c:74 022e          lofss $02bd // ask,raconter//*<about
  008f:43 25 02         callk Said 2 

  0092:31 0e              bnt code_00a2 
  0094:7a               push2 
  0095:38 0117          pushi 117 // $117 maxCycles
  0098:7a               push2 
  0099:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  009f:32 00d3            jmp code_0175 

        code_00a2
  00a2:78               push1 
  00a3:74 022a          lofss $02d0 // deliver,hold/*
  00a6:43 25 02         callk Said 2 

  00a9:31 1f              bnt code_00ca 
  00ab:80 00db            lag global219 
  00ae:31 13              bnt code_00c3 
  00b0:80 00e0            lag global224 
  00b3:31 0e              bnt code_00c3 
  00b5:7a               push2 
  00b6:38 0117          pushi 117 // $117 maxCycles
  00b9:39 03            pushi 3 // $3 y
  00bb:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00c1:33 04              jmp code_00c7 

        code_00c3
  00c3:76               push0 
  00c4:45 0d 00         callb procedure_000d 0 // DontHave 


        code_00c7
  00c7:32 00ab            jmp code_0175 

        code_00ca
  00ca:78               push1 
  00cb:74 01ea          lofss $02b8 // /celie>
  00ce:43 25 02         callk Said 2 

  00d1:30 00a1            bnt code_0175 
  00d4:78               push1 
  00d5:74 020d          lofss $02e5 // bonjour
  00d8:43 25 02         callk Said 2 

  00db:31 3e              bnt code_011b 
  00dd:35 02              ldi 2 
  00df:a0 00d5            sag global213 
  00e2:8b 00              lsl local0 
  00e4:3c                 dup 
  00e5:35 00              ldi 0 
  00e7:1a                 eq? 
  00e8:31 0d              bnt code_00f7 
  00ea:39 03            pushi 3 // $3 y
  00ec:78               push1 
  00ed:38 0117          pushi 117 // $117 maxCycles
  00f0:39 04            pushi 4 // $4 x
  00f2:45 01 06         callb procedure_0001 6 // Say 

  00f5:33 1f              jmp code_0116 

        code_00f7
  00f7:3c                 dup 
  00f8:35 01              ldi 1 
  00fa:1a                 eq? 
  00fb:31 0d              bnt code_010a 
  00fd:39 03            pushi 3 // $3 y
  00ff:78               push1 
  0100:38 0117          pushi 117 // $117 maxCycles
  0103:39 05            pushi 5 // $5 view
  0105:45 01 06         callb procedure_0001 6 // Say 

  0108:33 0c              jmp code_0116 

        code_010a
  010a:7a               push2 
  010b:38 0117          pushi 117 // $117 maxCycles
  010e:39 06            pushi 6 // $6 loop
  0110:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0116
  0116:3a                toss 
  0117:c3 00              +al local0 
  0119:33 5a              jmp code_0175 

        code_011b
  011b:78               push1 
  011c:74 01ae          lofss $02cd // get
  011f:43 25 02         callk Said 2 

  0122:31 0e              bnt code_0132 
  0124:7a               push2 
  0125:38 0117          pushi 117 // $117 maxCycles
  0128:39 07            pushi 7 // $7 cel
  012a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0130:33 43              jmp code_0175 

        code_0132
  0132:78               push1 
  0133:74 01a3          lofss $02d9 // abattre
  0136:43 25 02         callk Said 2 

  0139:31 0e              bnt code_0149 
  013b:7a               push2 
  013c:38 0117          pushi 117 // $117 maxCycles
  013f:39 08            pushi 8 // $8 underBits
  0141:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0147:33 2c              jmp code_0175 

        code_0149
  0149:78               push1 
  014a:74 018f          lofss $02dc // embrasser
  014d:43 25 02         callk Said 2 

  0150:31 0e              bnt code_0160 
  0152:7a               push2 
  0153:38 0117          pushi 117 // $117 maxCycles
  0156:39 09            pushi 9 // $9 nsTop
  0158:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  015e:33 15              jmp code_0175 

        code_0160
  0160:78               push1 
  0161:74 0166          lofss $02ca // embrace
  0164:43 25 02         callk Said 2 

  0167:31 0c              bnt code_0175 
  0169:7a               push2 
  016a:38 0117          pushi 117 // $117 maxCycles
  016d:39 0a            pushi a // $a nsLeft
  016f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0175
  0175:48                 ret 
    )

)

// 0340
(instance public pray of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_0176
  0176:39 57            pushi 57 // $57 init
  0178:76               push0 
  0179:57 36 04         super Rgn 4 

  017c:7a               push2 
  017d:38 0087          pushi 87 // $87 clean
  0180:39 04            pushi 4 // $4 x
  0182:43 00 04         callk Load 4 

  0185:35 02              ldi 2 
  0187:a0 00c3            sag global195 
  018a:89 76              lsg gMustDos 
  018c:35 08              ldi 8 
  018e:12                 and 
  018f:18                 not 
  0190:31 2d              bnt code_01bf 
  0192:7a               push2 
  0193:38 0087          pushi 87 // $87 clean
  0196:39 29            pushi 29 // $29 edit
  0198:43 00 04         callk Load 4 

  019b:39 05            pushi 5 // $5 view
  019d:38 0084          pushi 84 // $84 stop
  01a0:39 1d            pushi 1d // $1d back
  01a2:39 5e            pushi 5e // $5e respondsTo
  01a4:39 5f            pushi 5f // $5f yourself
  01a6:39 60            pushi 60 // $60 size
  01a8:45 15 0a         callb procedure_0015 a // LoadMany 

  01ab:7a               push2 
  01ac:38 0082          pushi 82 // $82 owner
  01af:38 0196          pushi 196 // $196 sel_406
  01b2:43 00 04         callk Load 4 

  01b5:7a               push2 
  01b6:38 0080          pushi 80 // $80 timeLeft
  01b9:38 0282          pushi 282 // $282 sel_642
  01bc:43 00 04         callk Load 4 


        code_01bf
  01bf:39 05            pushi 5 // $5 view
  01c1:78               push1 
  01c2:38 01e1          pushi 1e1 // $1e1 sel_481
  01c5:39 06            pushi 6 // $6 loop
  01c7:78               push1 
  01c8:76               push0 
  01c9:38 00c5          pushi c5 // $c5 posn
  01cc:7a               push2 
  01cd:38 008e          pushi 8e // $8e move
  01d0:39 69            pushi 69 // $69 last
  01d2:39 57            pushi 57 // $57 init
  01d4:76               push0 
  01d5:72 011c          lofsa $02f4 // Celie
  01d8:4a 18             send 18 

  01da:39 7a            pushi 7a // $7a setScript
  01dc:78               push1 
  01dd:74 0198          lofss $0378 // praying
  01e0:54 06             self 6 

  01e2:48                 ret 
    )

    (method (doit) // method_01e3
  01e3:39 3c            pushi 3c // $3c doit
  01e5:76               push0 
  01e6:57 36 04         super Rgn 4 

  01e9:48                 ret 
    )

    (method (dispose) // method_01ea
  01ea:39 58            pushi 58 // $58 dispose
  01ec:76               push0 
  01ed:57 36 04         super Rgn 4 

  01f0:48                 ret 
    )

    (method (handleEvent) // method_01f1
  01f1:3f 01             link 1 // (var $1)
  01f3:39 6f            pushi 6f // $6f handleEvent
  01f5:78               push1 
  01f6:8f 01              lsp param1 
  01f8:57 36 06         super Rgn 6 

  01fb:39 4c            pushi 4c // $4c claimed
  01fd:76               push0 
  01fe:87 01              lap param1 
  0200:4a 04             send 4 

  0202:31 03              bnt code_0207 
  0204:35 01              ldi 1 
  0206:48                 ret 

        code_0207
  0207:48                 ret 
    )

)

// 0372
(instance praying 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_0208
  0208:87 01              lap param1 
  020a:65 0a             aTop state 
  020c:36                push 
  020d:3c                 dup 
  020e:35 00              ldi 0 
  0210:1a                 eq? 
  0211:31 40              bnt code_0253 
  0213:80 00d8            lag global216 
  0216:18                 not 
  0217:31 06              bnt code_021f 
  0219:35 ff              ldi ff 
  021b:65 0a             aTop state 
  021d:33 2e              jmp code_024d 

        code_021f
  021f:89 76              lsg gMustDos 
  0221:35 08              ldi 8 
  0223:12                 and 
  0224:18                 not 
  0225:31 1b              bnt code_0242 
  0227:89 76              lsg gMustDos 
  0229:35 08              ldi 8 
  022b:14                  or 
  022c:a1 76              sag gMustDos 
  022e:39 7a            pushi 7a // $7a setScript
  0230:78               push1 
  0231:7a               push2 
  0232:38 0196          pushi 196 // $196 sel_406
  0235:76               push0 
  0236:43 02 04         callk ScriptID 4 

  0239:36                push 
  023a:54 06             self 6 

  023c:35 ff              ldi ff 
  023e:65 0a             aTop state 
  0240:33 0b              jmp code_024d 

        code_0242
  0242:39 76            pushi 76 // $76 script
  0244:76               push0 
  0245:54 04             self 4 

  0247:31 04              bnt code_024d 
  0249:35 ff              ldi ff 
  024b:65 0a             aTop state 

        code_024d
  024d:35 01              ldi 1 
  024f:65 10             aTop cycles 
  0251:33 5e              jmp code_02b1 

        code_0253
  0253:3c                 dup 
  0254:35 01              ldi 1 
  0256:1a                 eq? 
  0257:31 1e              bnt code_0277 
  0259:76               push0 
  025a:45 0f 00         callb procedure_000f 0 // cls 

  025d:38 00e2          pushi e2 // $e2 canInput
  0260:78               push1 
  0261:78               push1 
  0262:51 2b            class User 
  0264:4a 06             send 6 

  0266:39 06            pushi 6 // $6 loop
  0268:78               push1 
  0269:76               push0 
  026a:39 7e            pushi 7e // $7e setCycle
  026c:78               push1 
  026d:51 1a            class End 
  026f:36                push 
  0270:72 0081          lofsa $02f4 // Celie
  0273:4a 0c             send c 

  0275:33 3a              jmp code_02b1 

        code_0277
  0277:3c                 dup 
  0278:35 02              ldi 2 
  027a:1a                 eq? 
  027b:31 17              bnt code_0294 
  027d:38 00e2          pushi e2 // $e2 canInput
  0280:78               push1 
  0281:76               push0 
  0282:51 2b            class User 
  0284:4a 06             send 6 

  0286:39 7e            pushi 7e // $7e setCycle
  0288:7a               push2 
  0289:51 1b            class Beg 
  028b:36                push 
  028c:7c            pushSelf 
  028d:72 0064          lofsa $02f4 // Celie
  0290:4a 08             send 8 

  0292:33 1d              jmp code_02b1 

        code_0294
  0294:3c                 dup 
  0295:35 03              ldi 3 
  0297:1a                 eq? 
  0298:31 17              bnt code_02b1 
  029a:39 06            pushi 6 // $6 loop
  029c:78               push1 
  029d:78               push1 
  029e:39 7e            pushi 7e // $7e setCycle
  02a0:78               push1 
  02a1:51 16            class Fwd 
  02a3:36                push 
  02a4:72 004d          lofsa $02f4 // Celie
  02a7:4a 0c             send c 

  02a9:35 00              ldi 0 
  02ab:65 0a             aTop state 
  02ad:35 05              ldi 5 
  02af:65 12             aTop seconds 

        code_02b1
  02b1:3a                toss 
  02b2:48                 ret 
  02b3:00                bnot 
    )

)



