(script 282)

(string
    string_0564 "Lillian"
    string_056c "lillRead"
    string_0575 "reading"
    string_057d ""
)

(said
    said_045e /lil>
    said_0463 embrace
    said_0466 get
    said_0469 get/blackboard
    said_046f deliver,hold/*
    said_0478 abattre
    said_047b embrasser
    said_047e look/blackboard
    said_0484 look/lil
    said_048a jouer[/doll]
    said_0492 bonjour
    said_0495 raconter,ask//*<about
)

(synonym
    lil | lill | lillian | lilly = person | personne
    lil | lill | lillian | lilly = dame | femme | fille | girl | lady | maiden | woman
)

(local
    local0 = $0000
    local1 = $0000
    local2 = $0000
)

// 04a8
(instance public lillRead of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_003a
  003a:39 57            pushi 57 // $57 init
  003c:76               push0 
  003d:57 36 04         super Rgn 4 

  0040:7a               push2 
  0041:38 0087          pushi 87 // $87 clean
  0044:39 04            pushi 4 // $4 x
  0046:43 00 04         callk Load 4 

  0049:35 20              ldi 20 
  004b:a0 00c3            sag global195 
  004e:89 76              lsg gMustDos 
  0050:35 02              ldi 2 
  0052:12                 and 
  0053:18                 not 
  0054:31 2d              bnt code_0083 
  0056:7a               push2 
  0057:38 0087          pushi 87 // $87 clean
  005a:39 29            pushi 29 // $29 edit
  005c:43 00 04         callk Load 4 

  005f:39 05            pushi 5 // $5 view
  0061:38 0084          pushi 84 // $84 stop
  0064:39 1d            pushi 1d // $1d back
  0066:39 5e            pushi 5e // $5e respondsTo
  0068:39 5f            pushi 5f // $5f yourself
  006a:39 60            pushi 60 // $60 size
  006c:45 15 0a         callb procedure_0015 a // LoadMany 

  006f:7a               push2 
  0070:38 0082          pushi 82 // $82 owner
  0073:38 0196          pushi 196 // $196 sel_406
  0076:43 00 04         callk Load 4 

  0079:7a               push2 
  007a:38 0080          pushi 80 // $80 timeLeft
  007d:38 0282          pushi 282 // $282 sel_642
  0080:43 00 04         callk Load 4 


        code_0083
  0083:39 57            pushi 57 // $57 init
  0085:76               push0 
  0086:38 00c6          pushi c6 // $c6 stopUpd
  0089:76               push0 
  008a:72 0483          lofsa $0510 // Lillian
  008d:4a 08             send 8 

  008f:39 7a            pushi 7a // $7a setScript
  0091:78               push1 
  0092:74 044b          lofss $04e0 // reading
  0095:54 06             self 6 

  0097:48                 ret 
    )

    (method (doit) // method_0098
  0098:39 3c            pushi 3c // $3c doit
  009a:76               push0 
  009b:57 36 04         super Rgn 4 

  009e:48                 ret 
    )

    (method (dispose) // method_009f
  009f:39 58            pushi 58 // $58 dispose
  00a1:76               push0 
  00a2:57 36 04         super Rgn 4 

  00a5:48                 ret 
    )

    (method (handleEvent) // method_00a6
  00a6:39 6f            pushi 6f // $6f handleEvent
  00a8:78               push1 
  00a9:8f 01              lsp param1 
  00ab:57 36 06         super Rgn 6 

  00ae:39 4c            pushi 4c // $4c claimed
  00b0:76               push0 
  00b1:87 01              lap param1 
  00b3:4a 04             send 4 

  00b5:31 03              bnt code_00ba 
  00b7:35 01              ldi 1 
  00b9:48                 ret 

        code_00ba
  00ba:39 22            pushi 22 // $22 type
  00bc:76               push0 
  00bd:87 01              lap param1 
  00bf:4a 04             send 4 

  00c1:36                push 
  00c2:34 0080            ldi 80 
  00c5:1a                 eq? 
  00c6:31 40              bnt code_0108 
  00c8:78               push1 
  00c9:74 03be          lofss $048a // jouer[/doll]
  00cc:43 25 02         callk Said 2 

  00cf:31 0d              bnt code_00de 
  00d1:7a               push2 
  00d2:38 011a          pushi 11a // $11a higher
  00d5:76               push0 
  00d6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00dc:33 2a              jmp code_0108 

        code_00de
  00de:78               push1 
  00df:74 039c          lofss $047e // look/blackboard
  00e2:43 25 02         callk Said 2 

  00e5:31 0d              bnt code_00f4 
  00e7:7a               push2 
  00e8:38 011a          pushi 11a // $11a higher
  00eb:78               push1 
  00ec:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00f2:33 14              jmp code_0108 

        code_00f4
  00f4:78               push1 
  00f5:74 0371          lofss $0469 // get/blackboard
  00f8:43 25 02         callk Said 2 

  00fb:31 0b              bnt code_0108 
  00fd:7a               push2 
  00fe:38 011a          pushi 11a // $11a higher
  0101:7a               push2 
  0102:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0108
  0108:48                 ret 
    )

)

// 04da
(instance reading 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_0109
  0109:87 01              lap param1 
  010b:65 0a             aTop state 
  010d:36                push 
  010e:3c                 dup 
  010f:35 00              ldi 0 
  0111:1a                 eq? 
  0112:31 41              bnt code_0155 
  0114:80 00d8            lag global216 
  0117:18                 not 
  0118:31 06              bnt code_0120 
  011a:35 ff              ldi ff 
  011c:65 0a             aTop state 
  011e:33 2e              jmp code_014e 

        code_0120
  0120:89 76              lsg gMustDos 
  0122:35 02              ldi 2 
  0124:12                 and 
  0125:18                 not 
  0126:31 1b              bnt code_0143 
  0128:89 76              lsg gMustDos 
  012a:35 02              ldi 2 
  012c:14                  or 
  012d:a1 76              sag gMustDos 
  012f:39 7a            pushi 7a // $7a setScript
  0131:78               push1 
  0132:7a               push2 
  0133:38 0196          pushi 196 // $196 sel_406
  0136:76               push0 
  0137:43 02 04         callk ScriptID 4 

  013a:36                push 
  013b:54 06             self 6 

  013d:35 ff              ldi ff 
  013f:65 0a             aTop state 
  0141:33 0b              jmp code_014e 

        code_0143
  0143:39 76            pushi 76 // $76 script
  0145:76               push0 
  0146:54 04             self 4 

  0148:31 04              bnt code_014e 
  014a:35 ff              ldi ff 
  014c:65 0a             aTop state 

        code_014e
  014e:35 01              ldi 1 
  0150:65 10             aTop cycles 
  0152:32 0161            jmp code_02b6 

        code_0155
  0155:3c                 dup 
  0156:35 01              ldi 1 
  0158:1a                 eq? 
  0159:31 49              bnt code_01a4 
  015b:39 06            pushi 6 // $6 loop
  015d:78               push1 
  015e:39 08            pushi 8 // $8 underBits
  0160:38 00a4          pushi a4 // $a4 cycleSpeed
  0163:78               push1 
  0164:78               push1 
  0165:39 7e            pushi 7e // $7e setCycle
  0167:78               push1 
  0168:51 16            class Fwd 
  016a:36                push 
  016b:72 03a2          lofsa $0510 // Lillian
  016e:4a 12             send 12 

  0170:83 01              lal local1 
  0172:18                 not 
  0173:31 11              bnt code_0186 
  0175:c3 01              +al local1 
  0177:39 03            pushi 3 // $3 y
  0179:38 011a          pushi 11a // $11a higher
  017c:39 03            pushi 3 // $3 y
  017e:39 58            pushi 58 // $58 dispose
  0180:46 00ff 0000 06  calle ff procedure_0000 6 // Print 


        code_0186
  0186:7a               push2 
  0187:78               push1 
  0188:39 64            pushi 64 // $64 allTrue
  018a:43 40 04         callk Random 4 

  018d:36                push 
  018e:35 33              ldi 33 
  0190:22                 lt? 
  0191:31 04              bnt code_0197 
  0193:35 04              ldi 4 
  0195:65 0a             aTop state 

        code_0197
  0197:7a               push2 
  0198:39 03            pushi 3 // $3 y
  019a:39 0c            pushi c // $c nsRight
  019c:43 40 04         callk Random 4 

  019f:65 12             aTop seconds 
  01a1:32 0112            jmp code_02b6 

        code_01a4
  01a4:3c                 dup 
  01a5:35 02              ldi 2 
  01a7:1a                 eq? 
  01a8:31 31              bnt code_01db 
  01aa:76               push0 
  01ab:45 0f 00         callb procedure_000f 0 // cls 

  01ae:39 06            pushi 6 // $6 loop
  01b0:78               push1 
  01b1:78               push1 
  01b2:39 7e            pushi 7e // $7e setCycle
  01b4:78               push1 
  01b5:51 1a            class End 
  01b7:36                push 
  01b8:72 0355          lofsa $0510 // Lillian
  01bb:4a 0c             send c 

  01bd:7a               push2 
  01be:78               push1 
  01bf:39 64            pushi 64 // $64 allTrue
  01c1:43 40 04         callk Random 4 

  01c4:36                push 
  01c5:35 33              ldi 33 
  01c7:22                 lt? 
  01c8:31 04              bnt code_01ce 
  01ca:35 05              ldi 5 
  01cc:65 0a             aTop state 

        code_01ce
  01ce:7a               push2 
  01cf:39 03            pushi 3 // $3 y
  01d1:39 0c            pushi c // $c nsRight
  01d3:43 40 04         callk Random 4 

  01d6:65 12             aTop seconds 
  01d8:32 00db            jmp code_02b6 

        code_01db
  01db:3c                 dup 
  01dc:35 03              ldi 3 
  01de:1a                 eq? 
  01df:31 2b              bnt code_020c 
  01e1:39 06            pushi 6 // $6 loop
  01e3:78               push1 
  01e4:76               push0 
  01e5:39 7e            pushi 7e // $7e setCycle
  01e7:78               push1 
  01e8:51 16            class Fwd 
  01ea:36                push 
  01eb:72 0322          lofsa $0510 // Lillian
  01ee:4a 0c             send c 

  01f0:39 03            pushi 3 // $3 y
  01f2:38 011a          pushi 11a // $11a higher
  01f5:39 04            pushi 4 // $4 x
  01f7:39 58            pushi 58 // $58 dispose
  01f9:46 00ff 0000 06  calle ff procedure_0000 6 // Print 

  01ff:7a               push2 
  0200:39 03            pushi 3 // $3 y
  0202:39 0c            pushi c // $c nsRight
  0204:43 40 04         callk Random 4 

  0207:65 12             aTop seconds 
  0209:32 00aa            jmp code_02b6 

        code_020c
  020c:3c                 dup 
  020d:35 04              ldi 4 
  020f:1a                 eq? 
  0210:31 43              bnt code_0255 
  0212:76               push0 
  0213:45 0f 00         callb procedure_000f 0 // cls 

  0216:39 06            pushi 6 // $6 loop
  0218:78               push1 
  0219:78               push1 
  021a:39 07            pushi 7 // $7 cel
  021c:78               push1 
  021d:7a               push2 
  021e:39 7e            pushi 7e // $7e setCycle
  0220:78               push1 
  0221:51 1b            class Beg 
  0223:36                push 
  0224:72 02e9          lofsa $0510 // Lillian
  0227:4a 12             send 12 

  0229:7a               push2 
  022a:78               push1 
  022b:39 64            pushi 64 // $64 allTrue
  022d:43 40 04         callk Random 4 

  0230:a3 02              sal local2 
  0232:36                push 
  0233:35 1f              ldi 1f 
  0235:22                 lt? 
  0236:31 06              bnt code_023e 
  0238:35 00              ldi 0 
  023a:65 0a             aTop state 
  023c:33 0b              jmp code_0249 

        code_023e
  023e:8b 02              lsl local2 
  0240:35 46              ldi 46 
  0242:1e                 gt? 
  0243:31 04              bnt code_0249 
  0245:35 01              ldi 1 
  0247:65 0a             aTop state 

        code_0249
  0249:7a               push2 
  024a:39 03            pushi 3 // $3 y
  024c:39 0c            pushi c // $c nsRight
  024e:43 40 04         callk Random 4 

  0251:65 12             aTop seconds 
  0253:33 61              jmp code_02b6 

        code_0255
  0255:3c                 dup 
  0256:35 05              ldi 5 
  0258:1a                 eq? 
  0259:31 37              bnt code_0292 
  025b:76               push0 
  025c:45 0f 00         callb procedure_000f 0 // cls 

  025f:39 06            pushi 6 // $6 loop
  0261:78               push1 
  0262:39 07            pushi 7 // $7 cel
  0264:39 7e            pushi 7e // $7e setCycle
  0266:78               push1 
  0267:51 16            class Fwd 
  0269:36                push 
  026a:72 02a3          lofsa $0510 // Lillian
  026d:4a 0c             send c 

  026f:7a               push2 
  0270:78               push1 
  0271:39 64            pushi 64 // $64 allTrue
  0273:43 40 04         callk Random 4 

  0276:36                push 
  0277:35 33              ldi 33 
  0279:22                 lt? 
  027a:31 06              bnt code_0282 
  027c:35 00              ldi 0 
  027e:65 0a             aTop state 
  0280:33 04              jmp code_0286 

        code_0282
  0282:35 01              ldi 1 
  0284:65 0a             aTop state 

        code_0286
  0286:7a               push2 
  0287:39 03            pushi 3 // $3 y
  0289:39 0c            pushi c // $c nsRight
  028b:43 40 04         callk Random 4 

  028e:65 12             aTop seconds 
  0290:33 24              jmp code_02b6 

        code_0292
  0292:3c                 dup 
  0293:35 06              ldi 6 
  0295:1a                 eq? 
  0296:31 1e              bnt code_02b6 
  0298:39 06            pushi 6 // $6 loop
  029a:78               push1 
  029b:39 04            pushi 4 // $4 x
  029d:39 7e            pushi 7e // $7e setCycle
  029f:78               push1 
  02a0:51 16            class Fwd 
  02a2:36                push 
  02a3:72 026a          lofsa $0510 // Lillian
  02a6:4a 0c             send c 

  02a8:35 03              ldi 3 
  02aa:65 0a             aTop state 
  02ac:7a               push2 
  02ad:39 03            pushi 3 // $3 y
  02af:39 0c            pushi c // $c nsRight
  02b1:43 40 04         callk Random 4 

  02b4:65 12             aTop seconds 

        code_02b6
  02b6:3a                toss 
  02b7:48                 ret 
    )

)

// 050a
(instance Lillian of Prop
    (properties
        y $8d
        x $bb
        z $0
        heading $0
        yStep $2
        view $1fa
        loop $8
        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_02b8
  02b8:88 00cf            lsg global207 
  02bb:35 20              ldi 20 
  02bd:12                 and 
  02be:18                 not 
  02bf:31 3c              bnt code_02fd 
  02c1:39 03            pushi 3 // $3 y
  02c3:7c            pushSelf 
  02c4:8f 01              lsp param1 
  02c6:39 03            pushi 3 // $3 y
  02c8:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  02ce:2f 09               bt code_02d9 
  02d0:78               push1 
  02d1:74 01b0          lofss $0484 // look/lil
  02d4:43 25 02         callk Said 2 

  02d7:31 24              bnt code_02fd 

        code_02d9
  02d9:88 00cf            lsg global207 
  02dc:35 20              ldi 20 
  02de:14                  or 
  02df:a0 00cf            sag global207 
  02e2:35 06              ldi 6 
  02e4:a0 00d5            sag global213 
  02e7:39 4c            pushi 4c // $4c claimed
  02e9:78               push1 
  02ea:78               push1 
  02eb:87 01              lap param1 
  02ed:4a 06             send 6 

  02ef:39 03            pushi 3 // $3 y
  02f1:76               push0 
  02f2:38 011a          pushi 11a // $11a higher
  02f5:39 05            pushi 5 // $5 view
  02f7:45 01 06         callb procedure_0001 6 // Say 

  02fa:32 015b            jmp code_0458 

        code_02fd
  02fd:88 00cf            lsg global207 
  0300:35 20              ldi 20 
  0302:12                 and 
  0303:31 2f              bnt code_0334 
  0305:39 03            pushi 3 // $3 y
  0307:7c            pushSelf 
  0308:8f 01              lsp param1 
  030a:39 03            pushi 3 // $3 y
  030c:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0312:2f 09               bt code_031d 
  0314:78               push1 
  0315:74 016c          lofss $0484 // look/lil
  0318:43 25 02         callk Said 2 

  031b:31 17              bnt code_0334 

        code_031d
  031d:39 4c            pushi 4c // $4c claimed
  031f:78               push1 
  0320:78               push1 
  0321:87 01              lap param1 
  0323:4a 06             send 6 

  0325:7a               push2 
  0326:38 011a          pushi 11a // $11a higher
  0329:39 06            pushi 6 // $6 loop
  032b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0331:32 0124            jmp code_0458 

        code_0334
  0334:78               push1 
  0335:74 015d          lofss $0495 // raconter,ask//*<about
  0338:43 25 02         callk Said 2 

  033b:31 0f              bnt code_034c 
  033d:7a               push2 
  033e:38 011a          pushi 11a // $11a higher
  0341:39 07            pushi 7 // $7 cel
  0343:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0349:32 010c            jmp code_0458 

        code_034c
  034c:78               push1 
  034d:74 011f          lofss $046f // deliver,hold/*
  0350:43 25 02         callk Said 2 

  0353:31 1f              bnt code_0374 
  0355:80 00db            lag global219 
  0358:31 13              bnt code_036d 
  035a:80 00e0            lag global224 
  035d:31 0e              bnt code_036d 
  035f:7a               push2 
  0360:38 011a          pushi 11a // $11a higher
  0363:39 08            pushi 8 // $8 underBits
  0365:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  036b:33 04              jmp code_0371 

        code_036d
  036d:76               push0 
  036e:45 0d 00         callb procedure_000d 0 // DontHave 


        code_0371
  0371:32 00e4            jmp code_0458 

        code_0374
  0374:78               push1 
  0375:74 00e6          lofss $045e // /lil>
  0378:43 25 02         callk Said 2 

  037b:30 00da            bnt code_0458 
  037e:78               push1 
  037f:74 0110          lofss $0492 // bonjour
  0382:43 25 02         callk Said 2 

  0385:31 77              bnt code_03fe 
  0387:35 06              ldi 6 
  0389:a0 00d5            sag global213 
  038c:8b 00              lsl local0 
  038e:3c                 dup 
  038f:35 00              ldi 0 
  0391:1a                 eq? 
  0392:31 0d              bnt code_03a1 
  0394:39 03            pushi 3 // $3 y
  0396:78               push1 
  0397:38 011a          pushi 11a // $11a higher
  039a:39 09            pushi 9 // $9 nsTop
  039c:45 01 06         callb procedure_0001 6 // Say 

  039f:33 58              jmp code_03f9 

        code_03a1
  03a1:3c                 dup 
  03a2:35 01              ldi 1 
  03a4:1a                 eq? 
  03a5:31 0d              bnt code_03b4 
  03a7:39 03            pushi 3 // $3 y
  03a9:78               push1 
  03aa:38 011a          pushi 11a // $11a higher
  03ad:39 0a            pushi a // $a nsLeft
  03af:45 01 06         callb procedure_0001 6 // Say 

  03b2:33 45              jmp code_03f9 

        code_03b4
  03b4:3c                 dup 
  03b5:35 02              ldi 2 
  03b7:1a                 eq? 
  03b8:31 0d              bnt code_03c7 
  03ba:39 03            pushi 3 // $3 y
  03bc:78               push1 
  03bd:38 011a          pushi 11a // $11a higher
  03c0:39 0b            pushi b // $b nsBottom
  03c2:45 01 06         callb procedure_0001 6 // Say 

  03c5:33 32              jmp code_03f9 

        code_03c7
  03c7:3c                 dup 
  03c8:35 03              ldi 3 
  03ca:1a                 eq? 
  03cb:31 0d              bnt code_03da 
  03cd:39 03            pushi 3 // $3 y
  03cf:78               push1 
  03d0:38 011a          pushi 11a // $11a higher
  03d3:39 0c            pushi c // $c nsRight
  03d5:45 01 06         callb procedure_0001 6 // Say 

  03d8:33 1f              jmp code_03f9 

        code_03da
  03da:3c                 dup 
  03db:35 04              ldi 4 
  03dd:1a                 eq? 
  03de:31 0d              bnt code_03ed 
  03e0:39 03            pushi 3 // $3 y
  03e2:78               push1 
  03e3:38 011a          pushi 11a // $11a higher
  03e6:39 0d            pushi d // $d lsTop
  03e8:45 01 06         callb procedure_0001 6 // Say 

  03eb:33 0c              jmp code_03f9 

        code_03ed
  03ed:7a               push2 
  03ee:38 011a          pushi 11a // $11a higher
  03f1:39 0e            pushi e // $e lsLeft
  03f3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_03f9
  03f9:3a                toss 
  03fa:c3 00              +al local0 
  03fc:33 5a              jmp code_0458 

        code_03fe
  03fe:78               push1 
  03ff:74 0064          lofss $0466 // get
  0402:43 25 02         callk Said 2 

  0405:31 0e              bnt code_0415 
  0407:7a               push2 
  0408:38 011a          pushi 11a // $11a higher
  040b:39 0f            pushi f // $f lsBottom
  040d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0413:33 43              jmp code_0458 

        code_0415
  0415:78               push1 
  0416:74 005f          lofss $0478 // abattre
  0419:43 25 02         callk Said 2 

  041c:31 0e              bnt code_042c 
  041e:7a               push2 
  041f:38 011a          pushi 11a // $11a higher
  0422:39 10            pushi 10 // $10 lsRight
  0424:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  042a:33 2c              jmp code_0458 

        code_042c
  042c:78               push1 
  042d:74 004b          lofss $047b // embrasser
  0430:43 25 02         callk Said 2 

  0433:31 0e              bnt code_0443 
  0435:7a               push2 
  0436:38 011a          pushi 11a // $11a higher
  0439:39 11            pushi 11 // $11 signal
  043b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0441:33 15              jmp code_0458 

        code_0443
  0443:78               push1 
  0444:74 001c          lofss $0463 // embrace
  0447:43 25 02         callk Said 2 

  044a:31 0c              bnt code_0458 
  044c:7a               push2 
  044d:38 011a          pushi 11a // $11a higher
  0450:39 12            pushi 12 // $12 illegalBits
  0452:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0458
  0458:48                 ret 
  0459:00                bnot 
    )

)



