(script 63)

(string
    string_0598 "Bear"
    string_059d "BigDoll"
    string_05a5 "Chalk"
    string_05ab "MedDoll"
    string_05b3 "Poster"
    string_05ba "Room63"
    string_05c1 "SmallDoll"
    string_05cb "chair1"
    string_05d2 "chair2"
    string_05d9 "table"
    string_05df ""
)

(said
    said_0316 /cabin<little
    said_031d /cabin<jouer
    said_0324 /door
    said_0328 /cabane
    said_032c /mur
    said_0330 /fenetre
    said_0334 [<around,at][/room,dock]
    said_0345 ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
    said_0364 get/doll
    said_036a look/chair
    said_0370 look/doll
    said_0376 look/nightstand
    said_037c look>
    said_0380 open/fenetre
    said_0386 jouer[/doll]
    said_038e ecrire,dessiner,effacer/blackboard
)

(synonym
    blackboard | chalk | chalkboard | slate = board | planche
    doll | poupee = bear | ours | ourson | teddy
    doll | poupee = jouet | toy
)

(local
)

// 03a0
(instance public Room63 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $3f
        style $ffff
        horizon $0
        controls $0
        north $0
        east $0
        south $0
        west $0
        curPic $0
        picAngle $0
        vanishingX $a0
        vanishingY $8ad0
        vertAngle $0
    )
    (method (init) // method_001e
  001e:39 57            pushi 57 // $57 init
  0020:76               push0 
  0021:57 37 04         super Rm 4 

  0024:88 00a5            lsg gAct 
  0027:35 06              ldi 6 
  0029:20                 ge? 
  002a:31 0a              bnt code_0036 
  002c:39 61            pushi 61 // $61 add
  002e:78               push1 
  002f:74 0544          lofss $0576 // Chalk
  0032:81 0a              lag gAddToPics 
  0034:4a 06             send 6 


        code_0036
  0036:88 00a5            lsg gAct 
  0039:35 02              ldi 2 
  003b:1a                 eq? 
  003c:18                 not 
  003d:31 1b              bnt code_005a 
  003f:88 00a5            lsg gAct 
  0042:35 06              ldi 6 
  0044:1a                 eq? 
  0045:18                 not 
  0046:31 12              bnt code_005a 
  0048:89 76              lsg gMustDos 
  004a:35 02              ldi 2 
  004c:12                 and 
  004d:18                 not 
  004e:31 0a              bnt code_005a 
  0050:39 61            pushi 61 // $61 add
  0052:78               push1 
  0053:74 040c          lofss $0462 // chair2
  0056:81 0a              lag gAddToPics 
  0058:4a 06             send 6 


        code_005a
  005a:39 61            pushi 61 // $61 add
  005c:39 07            pushi 7 // $7 cel
  005e:74 0395          lofss $03f6 // table
  0061:74 03c8          lofss $042c // chair1
  0064:74 0431          lofss $0498 // BigDoll
  0067:74 0464          lofss $04ce // SmallDoll
  006a:74 048b          lofss $04f8 // MedDoll
  006d:74 04b2          lofss $0522 // Bear
  0070:74 04d9          lofss $054c // Poster
  0073:39 62            pushi 62 // $62 eachElementDo
  0075:78               push1 
  0076:39 57            pushi 57 // $57 init
  0078:39 3c            pushi 3c // $3c doit
  007a:76               push0 
  007b:81 0a              lag gAddToPics 
  007d:4a 1c             send 1c 

  007f:38 010b          pushi 10b // $10b setFeatures
  0082:39 04            pushi 4 // $4 x
  0084:74 0411          lofss $0498 // BigDoll
  0087:74 03d8          lofss $0462 // chair2
  008a:74 039f          lofss $042c // chair1
  008d:74 0366          lofss $03f6 // table
  0090:54 0c             self c 

  0092:39 05            pushi 5 // $5 view
  0094:78               push1 
  0095:76               push0 
  0096:39 06            pushi 6 // $6 loop
  0098:78               push1 
  0099:78               push1 
  009a:38 00c5          pushi c5 // $c5 posn
  009d:7a               push2 
  009e:38 00c8          pushi c8 // $c8 setLoop
  00a1:38 0099          pushi 99 // $99 top
  00a4:39 12            pushi 12 // $12 illegalBits
  00a6:78               push1 
  00a7:38 8000          pushi 8000 // $8000 sel_32768
  00aa:39 57            pushi 57 // $57 init
  00ac:76               push0 
  00ad:81 00              lag gEgo 
  00af:4a 1e             send 1e 

  00b1:88 00a5            lsg gAct 
  00b4:3c                 dup 
  00b5:35 02              ldi 2 
  00b7:1a                 eq? 
  00b8:31 0b              bnt code_00c5 
  00ba:38 010a          pushi 10a // $10a setRegions
  00bd:78               push1 
  00be:38 0101          pushi 101 // $101 curPic
  00c1:54 06             self 6 

  00c3:33 17              jmp code_00dc 

        code_00c5
  00c5:3c                 dup 
  00c6:35 06              ldi 6 
  00c8:1a                 eq? 
  00c9:31 11              bnt code_00dc 
  00cb:89 76              lsg gMustDos 
  00cd:35 02              ldi 2 
  00cf:12                 and 
  00d0:18                 not 
  00d1:31 09              bnt code_00dc 
  00d3:38 010a          pushi 10a // $10a setRegions
  00d6:78               push1 
  00d7:38 011a          pushi 11a // $11a higher
  00da:54 06             self 6 


        code_00dc
  00dc:3a                toss 
  00dd:48                 ret 
    )

    (method (newRoom) // method_00de
  00de:38 00f8          pushi f8 // $f8 newRoom
  00e1:78               push1 
  00e2:8f 01              lsp param1 
  00e4:57 37 06         super Rm 6 

  00e7:48                 ret 
    )

    (method (doit) // method_00e8
  00e8:76               push0 
  00e9:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  00ec:31 0a              bnt code_00f8 
  00ee:7a               push2 
  00ef:39 3f            pushi 3f // $3f priority
  00f1:76               push0 
  00f2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_00f8
  00f8:38 00db          pushi db // $db onControl
  00fb:78               push1 
  00fc:76               push0 
  00fd:81 00              lag gEgo 
  00ff:4a 06             send 6 

  0101:36                push 
  0102:35 02              ldi 2 
  0104:12                 and 
  0105:31 0a              bnt code_0111 
  0107:38 00f8          pushi f8 // $f8 newRoom
  010a:78               push1 
  010b:39 0e            pushi e // $e lsLeft
  010d:81 02              lag gCurRoom 
  010f:4a 06             send 6 


        code_0111
  0111:39 3c            pushi 3c // $3c doit
  0113:76               push0 
  0114:57 37 04         super Rm 4 

  0117:48                 ret 
    )

    (method (dispose) // method_0118
  0118:39 58            pushi 58 // $58 dispose
  011a:76               push0 
  011b:57 37 04         super Rm 4 

  011e:48                 ret 
    )

    (method (handleEvent) // method_011f
  011f:39 4c            pushi 4c // $4c claimed
  0121:76               push0 
  0122:87 01              lap param1 
  0124:4a 04             send 4 

  0126:31 01              bnt code_0129 
  0128:48                 ret 

        code_0129
  0129:39 22            pushi 22 // $22 type
  012b:76               push0 
  012c:87 01              lap param1 
  012e:4a 04             send 4 

  0130:36                push 
  0131:34 0080            ldi 80 
  0134:1a                 eq? 
  0135:30 0102            bnt code_023a 
  0138:80 00d0            lag global208 
  013b:31 34              bnt code_0171 
  013d:78               push1 
  013e:74 0204          lofss $0345 // ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
  0141:43 25 02         callk Said 2 

  0144:31 2b              bnt code_0171 
  0146:78               push1 
  0147:38 03de          pushi 3de // $3de sel_990
  014a:43 03 02         callk DisposeScript 2 

  014d:39 7a            pushi 7a // $7a setScript
  014f:78               push1 
  0150:7a               push2 
  0151:38 00f3          pushi f3 // $f3 close
  0154:76               push0 
  0155:43 02 04         callk ScriptID 4 

  0158:36                push 
  0159:54 06             self 6 

  015b:39 6f            pushi 6f // $6f handleEvent
  015d:78               push1 
  015e:8f 01              lsp param1 
  0160:39 76            pushi 76 // $76 script
  0162:76               push0 
  0163:54 04             self 4 

  0165:4a 06             send 6 

  0167:39 4c            pushi 4c // $4c claimed
  0169:76               push0 
  016a:87 01              lap param1 
  016c:4a 04             send 4 

  016e:31 01              bnt code_0171 
  0170:48                 ret 

        code_0171
  0171:78               push1 
  0172:74 0207          lofss $037c // look>
  0175:43 25 02         callk Said 2 

  0178:30 0083            bnt code_01fe 
  017b:78               push1 
  017c:74 01b5          lofss $0334 // [<around,at][/room,dock]
  017f:43 25 02         callk Said 2 

  0182:2f 1b               bt code_019f 
  0184:78               push1 
  0185:74 018e          lofss $0316 // /cabin<little
  0188:43 25 02         callk Said 2 

  018b:2f 12               bt code_019f 
  018d:78               push1 
  018e:74 0197          lofss $0328 // /cabane
  0191:43 25 02         callk Said 2 

  0194:2f 09               bt code_019f 
  0196:78               push1 
  0197:74 0183          lofss $031d // /cabin<jouer
  019a:43 25 02         callk Said 2 

  019d:31 0c              bnt code_01ab 

        code_019f
  019f:7a               push2 
  01a0:39 3f            pushi 3f // $3f priority
  01a2:78               push1 
  01a3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01a9:33 51              jmp code_01fc 

        code_01ab
  01ab:78               push1 
  01ac:74 0175          lofss $0324 // /door
  01af:43 25 02         callk Said 2 

  01b2:31 0c              bnt code_01c0 
  01b4:7a               push2 
  01b5:39 3f            pushi 3f // $3f priority
  01b7:7a               push2 
  01b8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01be:33 3c              jmp code_01fc 

        code_01c0
  01c0:78               push1 
  01c1:74 016c          lofss $0330 // /fenetre
  01c4:43 25 02         callk Said 2 

  01c7:31 0d              bnt code_01d6 
  01c9:7a               push2 
  01ca:39 3f            pushi 3f // $3f priority
  01cc:39 03            pushi 3 // $3 y
  01ce:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01d4:33 26              jmp code_01fc 

        code_01d6
  01d6:78               push1 
  01d7:74 0152          lofss $032c // /mur
  01da:43 25 02         callk Said 2 

  01dd:31 1d              bnt code_01fc 
  01df:88 00a5            lsg gAct 
  01e2:35 05              ldi 5 
  01e4:20                 ge? 
  01e5:31 0d              bnt code_01f4 
  01e7:7a               push2 
  01e8:39 3f            pushi 3f // $3f priority
  01ea:39 04            pushi 4 // $4 x
  01ec:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01f2:33 08              jmp code_01fc 

        code_01f4
  01f4:39 4c            pushi 4c // $4c claimed
  01f6:78               push1 
  01f7:76               push0 
  01f8:87 01              lap param1 
  01fa:4a 06             send 6 


        code_01fc
  01fc:33 3c              jmp code_023a 

        code_01fe
  01fe:78               push1 
  01ff:74 018c          lofss $038e // ecrire,dessiner,effacer/blackboard
  0202:43 25 02         callk Said 2 

  0205:31 1f              bnt code_0226 
  0207:88 00a5            lsg gAct 
  020a:35 05              ldi 5 
  020c:20                 ge? 
  020d:31 0d              bnt code_021c 
  020f:7a               push2 
  0210:39 3f            pushi 3f // $3f priority
  0212:39 05            pushi 5 // $5 view
  0214:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  021a:33 08              jmp code_0224 

        code_021c
  021c:39 4c            pushi 4c // $4c claimed
  021e:78               push1 
  021f:76               push0 
  0220:87 01              lap param1 
  0222:4a 06             send 6 


        code_0224
  0224:33 14              jmp code_023a 

        code_0226
  0226:78               push1 
  0227:74 0156          lofss $0380 // open/fenetre
  022a:43 25 02         callk Said 2 

  022d:31 0b              bnt code_023a 
  022f:7a               push2 
  0230:39 3f            pushi 3f // $3f priority
  0232:39 06            pushi 6 // $6 loop
  0234:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_023a
  023a:48                 ret 
    )

)

// 03f0
(instance table of RPicView
    (properties
        y $85
        x $aa
        z $0
        heading $0
        view $a3
        loop $0
        cel $0
        priority $2
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_023b
  023b:39 03            pushi 3 // $3 y
  023d:7c            pushSelf 
  023e:8f 01              lsp param1 
  0240:39 03            pushi 3 // $3 y
  0242:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0248:2f 09               bt code_0253 
  024a:78               push1 
  024b:74 0128          lofss $0376 // look/nightstand
  024e:43 25 02         callk Said 2 

  0251:31 13              bnt code_0266 

        code_0253
  0253:7a               push2 
  0254:39 3f            pushi 3f // $3f priority
  0256:39 07            pushi 7 // $7 cel
  0258:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  025e:39 4c            pushi 4c // $4c claimed
  0260:78               push1 
  0261:78               push1 
  0262:87 01              lap param1 
  0264:4a 06             send 6 


        code_0266
  0266:48                 ret 
    )

)

// 0426
(instance chair1 of RPicView
    (properties
        y $8d
        x $cd
        z $0
        heading $0
        view $a3
        loop $0
        cel $2
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0267
  0267:39 03            pushi 3 // $3 y
  0269:7c            pushSelf 
  026a:8f 01              lsp param1 
  026c:39 03            pushi 3 // $3 y
  026e:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0274:2f 09               bt code_027f 
  0276:78               push1 
  0277:74 00f0          lofss $036a // look/chair
  027a:43 25 02         callk Said 2 

  027d:31 13              bnt code_0292 

        code_027f
  027f:7a               push2 
  0280:39 3f            pushi 3f // $3f priority
  0282:39 08            pushi 8 // $8 underBits
  0284:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  028a:39 4c            pushi 4c // $4c claimed
  028c:78               push1 
  028d:78               push1 
  028e:87 01              lap param1 
  0290:4a 06             send 6 


        code_0292
  0292:48                 ret 
    )

)

// 045c
(instance chair2 of RPicView
    (properties
        y $8d
        x $bb
        z $0
        heading $0
        view $a3
        loop $0
        cel $3
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0293
  0293:39 03            pushi 3 // $3 y
  0295:7c            pushSelf 
  0296:8f 01              lsp param1 
  0298:39 03            pushi 3 // $3 y
  029a:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  02a0:31 13              bnt code_02b5 
  02a2:7a               push2 
  02a3:39 3f            pushi 3f // $3f priority
  02a5:39 09            pushi 9 // $9 nsTop
  02a7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02ad:39 4c            pushi 4c // $4c claimed
  02af:78               push1 
  02b0:78               push1 
  02b1:87 01              lap param1 
  02b3:4a 06             send 6 


        code_02b5
  02b5:48                 ret 
    )

)

// 0492
(instance BigDoll of RPicView
    (properties
        y $90
        x $71
        z $0
        heading $0
        view $a3
        loop $1
        cel $0
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_02b6
  02b6:78               push1 
  02b7:74 00cc          lofss $0386 // jouer[/doll]
  02ba:43 25 02         callk Said 2 

  02bd:31 15              bnt code_02d4 
  02bf:7a               push2 
  02c0:39 3f            pushi 3f // $3f priority
  02c2:39 0a            pushi a // $a nsLeft
  02c4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02ca:39 4c            pushi 4c // $4c claimed
  02cc:78               push1 
  02cd:78               push1 
  02ce:87 01              lap param1 
  02d0:4a 06             send 6 

  02d2:33 3c              jmp code_0310 

        code_02d4
  02d4:78               push1 
  02d5:74 0098          lofss $0370 // look/doll
  02d8:43 25 02         callk Said 2 

  02db:31 1f              bnt code_02fc 
  02dd:88 00a5            lsg gAct 
  02e0:35 02              ldi 2 
  02e2:1a                 eq? 
  02e3:31 0a              bnt code_02ef 
  02e5:39 4c            pushi 4c // $4c claimed
  02e7:78               push1 
  02e8:78               push1 
  02e9:87 01              lap param1 
  02eb:4a 06             send 6 

  02ed:33 0b              jmp code_02fa 

        code_02ef
  02ef:7a               push2 
  02f0:39 3f            pushi 3f // $3f priority
  02f2:39 0b            pushi b // $b nsBottom
  02f4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02fa
  02fa:33 14              jmp code_0310 

        code_02fc
  02fc:78               push1 
  02fd:74 0064          lofss $0364 // get/doll
  0300:43 25 02         callk Said 2 

  0303:31 0b              bnt code_0310 
  0305:7a               push2 
  0306:39 3f            pushi 3f // $3f priority
  0308:39 0c            pushi c // $c nsRight
  030a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0310
  0310:48                 ret 
  0311:00                bnot 
    )

)

// 04c8
(instance SmallDoll of PV
    (properties
        y $8d
        x $cc
        z $a
        heading $0
        view $a3
        loop $1
        cel $1
        priority $a
        signal $0
    )
)

// 04f2
(instance MedDoll of PV
    (properties
        y $8a
        x $86
        z $0
        heading $0
        view $a3
        loop $1
        cel $2
        priority $ffff
        signal $0
    )
)

// 051c
(instance Bear of PV
    (properties
        y $89
        x $96
        z $0
        heading $0
        view $a3
        loop $1
        cel $4
        priority $ffff
        signal $0
    )
)

// 0546
(instance Poster of PV
    (properties
        y $8b
        x $d0
        z $0
        heading $0
        view $a3
        loop $2
        cel $0
        priority $2
        signal $0
    )
)

// 0570
(instance Chalk of PV
    (properties
        y $8b
        x $eb
        z $0
        heading $0
        view $a3
        loop $2
        cel $1
        priority $ffff
        signal $0
    )
)



