(script 53)

(string
    string_0a56 "Room53"
    string_0a5d "bed"
    string_0a61 "chair"
    string_0a67 "chest"
    string_0a6d "crackerBox"
    string_0a78 "door1"
    string_0a7e "door2"
    string_0a84 "dresser1"
    string_0a8d "lamp1"
    string_0a93 "sink"
    string_0a98 "sofa"
    string_0a9d "stairWell"
    string_0aa7 "toilet"
)

(said
    said_0608 /brick
    said_060c /closet
    said_0610 /commode
    said_0614 /escalier,upstair
    said_061b /mur
    said_061f <dans/closet
    said_0626 [<around,at][/room]
    said_0634 ask/butler/biscuit<for
    said_0640 flush,actionner/toilet,bathroom
    said_064c get,bouger/carpet
    said_0655 get/brick
    said_065b get/biscuit
    said_0661 get/boire
    said_0667 look/bathroom
    said_066d look/chair
    said_0673 look/canape
    said_0679 look/biscuit
    said_067f look/commode
    said_0685 look/lamp
    said_068b look/nightstand
    said_0691 look/evier
    said_0697 look/toilet
    said_069d look<dans/commode
    said_06a6 look<dans/evier
    said_06af look>
    said_06b3 look[<at]/bed
    said_06be open,(look<dans)/nightstand
    said_06cc open,(look<dans)/toilet
    said_06da open>
    said_06de attirer/chain,fontainier
    said_06e7 gommer
    said_06ea gommer,rotate/deliver,eau
    said_06f6 asseoir,aller,actionner/bathroom,toilet
    said_0705 asseoir/toilet
)

(synonym
    biscuit | cracker = boite | box | crate
    room = bedroom
)

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

// 0712
(instance public Room53 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $35
        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_001a
  001a:35 3c              ldi 3c 
  001c:65 16             aTop horizon 
  001e:35 0c              ldi c 
  0020:65 1a             aTop north 
  0022:39 57            pushi 57 // $57 init
  0024:76               push0 
  0025:57 37 04         super Rm 4 

  0028:7a               push2 
  0029:38 0080          pushi 80 // $80 timeLeft
  002c:38 038e          pushi 38e // $38e sel_910
  002f:43 00 04         callk Load 4 

  0032:39 61            pushi 61 // $61 add
  0034:39 07            pushi 7 // $7 cel
  0036:74 0765          lofss $079e // bed
  0039:74 0798          lofss $07d4 // chair
  003c:74 07cb          lofss $080a // sofa
  003f:74 07fe          lofss $0840 // chest
  0042:74 0723          lofss $0768 // dresser1
  0045:74 082e          lofss $0876 // sink
  0048:74 0861          lofss $08ac // toilet
  004b:39 62            pushi 62 // $62 eachElementDo
  004d:78               push1 
  004e:39 57            pushi 57 // $57 init
  0050:39 3c            pushi 3c // $3c doit
  0052:76               push0 
  0053:81 0a              lag gAddToPics 
  0055:4a 1c             send 1c 

  0057:38 010a          pushi 10a // $10a setRegions
  005a:78               push1 
  005b:38 00f6          pushi f6 // $f6 carrying
  005e:38 010b          pushi 10b // $10b setFeatures
  0061:39 07            pushi 7 // $7 cel
  0063:74 0738          lofss $079e // bed
  0066:74 07d7          lofss $0840 // chest
  0069:74 080a          lofss $0876 // sink
  006c:74 083d          lofss $08ac // toilet
  006f:74 0798          lofss $080a // sofa
  0072:74 075f          lofss $07d4 // chair
  0075:74 06f0          lofss $0768 // dresser1
  0078:54 18             self 18 

  007a:80 00df            lag gDetailLevel 
  007d:31 10              bnt code_008f 
  007f:39 7e            pushi 7e // $7e setCycle
  0081:78               push1 
  0082:51 16            class Fwd 
  0084:36                push 
  0085:39 57            pushi 57 // $57 init
  0087:76               push0 
  0088:72 08f3          lofsa $097e // lamp1
  008b:4a 0a             send a 

  008d:33 0c              jmp code_009b 

        code_008f
  008f:39 57            pushi 57 // $57 init
  0091:76               push0 
  0092:38 00c6          pushi c6 // $c6 stopUpd
  0095:76               push0 
  0096:72 08e5          lofsa $097e // lamp1
  0099:4a 08             send 8 


        code_009b
  009b:39 57            pushi 57 // $57 init
  009d:76               push0 
  009e:38 00c6          pushi c6 // $c6 stopUpd
  00a1:76               push0 
  00a2:72 083d          lofsa $08e2 // door1
  00a5:4a 08             send 8 

  00a7:39 57            pushi 57 // $57 init
  00a9:76               push0 
  00aa:38 00c6          pushi c6 // $c6 stopUpd
  00ad:76               push0 
  00ae:72 087f          lofsa $0930 // door2
  00b1:4a 08             send 8 

  00b3:38 00ee          pushi ee // $ee has
  00b6:78               push1 
  00b7:39 0b            pushi b // $b nsBottom
  00b9:81 00              lag gEgo 
  00bb:4a 06             send 6 

  00bd:18                 not 
  00be:31 11              bnt code_00d1 
  00c0:39 42            pushi 42 // $42 setPri
  00c2:78               push1 
  00c3:39 0a            pushi a // $a nsLeft
  00c5:39 57            pushi 57 // $57 init
  00c7:76               push0 
  00c8:38 00c6          pushi c6 // $c6 stopUpd
  00cb:76               push0 
  00cc:72 0901          lofsa $09d0 // crackerBox
  00cf:4a 0e             send e 


        code_00d1
  00d1:39 05            pushi 5 // $5 view
  00d3:78               push1 
  00d4:76               push0 
  00d5:39 12            pushi 12 // $12 illegalBits
  00d7:78               push1 
  00d8:38 8000          pushi 8000 // $8000 sel_32768
  00db:38 00c5          pushi c5 // $c5 posn
  00de:7a               push2 
  00df:38 009b          pushi 9b // $9b bottom
  00e2:39 40            pushi 40 // $40 modifiers
  00e4:39 57            pushi 57 // $57 init
  00e6:76               push0 
  00e7:81 00              lag gEgo 
  00e9:4a 18             send 18 

  00eb:39 7a            pushi 7a // $7a setScript
  00ed:78               push1 
  00ee:74 0931          lofss $0a22 // stairWell
  00f1:54 06             self 6 

  00f3:48                 ret 
    )

    (method (newRoom) // method_00f4
  00f4:38 00f8          pushi f8 // $f8 newRoom
  00f7:78               push1 
  00f8:8f 01              lsp param1 
  00fa:57 37 06         super Rm 6 

  00fd:48                 ret 
    )

    (method (doit) // method_00fe
  00fe:76               push0 
  00ff:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  0102:31 0a              bnt code_010e 
  0104:7a               push2 
  0105:39 35            pushi 35 // $35 b-incr
  0107:76               push0 
  0108:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_010e
  010e:39 3c            pushi 3c // $3c doit
  0110:76               push0 
  0111:57 37 04         super Rm 4 

  0114:38 00db          pushi db // $db onControl
  0117:76               push0 
  0118:81 00              lag gEgo 
  011a:4a 04             send 4 

  011c:36                push 
  011d:35 02              ldi 2 
  011f:12                 and 
  0120:31 20              bnt code_0142 
  0122:39 06            pushi 6 // $6 loop
  0124:76               push0 
  0125:81 00              lag gEgo 
  0127:4a 04             send 4 

  0129:36                push 
  012a:35 00              ldi 0 
  012c:1a                 eq? 
  012d:31 13              bnt code_0142 
  012f:8b 02              lsl local2 
  0131:35 00              ldi 0 
  0133:1a                 eq? 
  0134:31 0c              bnt code_0142 
  0136:35 01              ldi 1 
  0138:a3 02              sal local2 
  013a:39 7a            pushi 7a // $7a setScript
  013c:78               push1 
  013d:74 08e2          lofss $0a22 // stairWell
  0140:54 06             self 6 


        code_0142
  0142:48                 ret 
    )

    (method (dispose) // method_0143
  0143:39 58            pushi 58 // $58 dispose
  0145:76               push0 
  0146:57 37 04         super Rm 4 

  0149:48                 ret 
    )

    (method (handleEvent) // method_014a
  014a:39 6f            pushi 6f // $6f handleEvent
  014c:78               push1 
  014d:8f 01              lsp param1 
  014f:57 37 06         super Rm 6 

  0152:39 4c            pushi 4c // $4c claimed
  0154:76               push0 
  0155:87 01              lap param1 
  0157:4a 04             send 4 

  0159:31 03              bnt code_015e 
  015b:35 01              ldi 1 
  015d:48                 ret 

        code_015e
  015e:39 22            pushi 22 // $22 type
  0160:76               push0 
  0161:87 01              lap param1 
  0163:4a 04             send 4 

  0165:36                push 
  0166:34 0080            ldi 80 
  0169:1a                 eq? 
  016a:30 0117            bnt code_0284 
  016d:78               push1 
  016e:74 053e          lofss $06af // look>
  0171:43 25 02         callk Said 2 

  0174:30 0082            bnt code_01f9 
  0177:78               push1 
  0178:74 04ab          lofss $0626 // [<around,at][/room]
  017b:43 25 02         callk Said 2 

  017e:31 0c              bnt code_018c 
  0180:7a               push2 
  0181:39 35            pushi 35 // $35 b-incr
  0183:76               push0 
  0184:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  018a:33 6a              jmp code_01f6 

        code_018c
  018c:78               push1 
  018d:74 0478          lofss $0608 // /brick
  0190:43 25 02         callk Said 2 

  0193:31 0c              bnt code_01a1 
  0195:7a               push2 
  0196:39 35            pushi 35 // $35 b-incr
  0198:78               push1 
  0199:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  019f:33 55              jmp code_01f6 

        code_01a1
  01a1:78               push1 
  01a2:74 046f          lofss $0614 // /escalier,upstair
  01a5:43 25 02         callk Said 2 

  01a8:31 0c              bnt code_01b6 
  01aa:7a               push2 
  01ab:39 35            pushi 35 // $35 b-incr
  01ad:7a               push2 
  01ae:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01b4:33 40              jmp code_01f6 

        code_01b6
  01b6:78               push1 
  01b7:74 0461          lofss $061b // /mur
  01ba:43 25 02         callk Said 2 

  01bd:31 0d              bnt code_01cc 
  01bf:7a               push2 
  01c0:39 35            pushi 35 // $35 b-incr
  01c2:39 03            pushi 3 // $3 y
  01c4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01ca:33 2a              jmp code_01f6 

        code_01cc
  01cc:78               push1 
  01cd:74 044f          lofss $061f // <dans/closet
  01d0:43 25 02         callk Said 2 

  01d3:31 0d              bnt code_01e2 
  01d5:7a               push2 
  01d6:39 35            pushi 35 // $35 b-incr
  01d8:39 04            pushi 4 // $4 x
  01da:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01e0:33 14              jmp code_01f6 

        code_01e2
  01e2:78               push1 
  01e3:74 0426          lofss $060c // /closet
  01e6:43 25 02         callk Said 2 

  01e9:31 0b              bnt code_01f6 
  01eb:7a               push2 
  01ec:39 35            pushi 35 // $35 b-incr
  01ee:39 05            pushi 5 // $5 view
  01f0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_01f6
  01f6:32 008b            jmp code_0284 

        code_01f9
  01f9:78               push1 
  01fa:74 04dd          lofss $06da // open>
  01fd:43 25 02         callk Said 2 

  0200:31 2c              bnt code_022e 
  0202:78               push1 
  0203:74 040a          lofss $0610 // /commode
  0206:43 25 02         callk Said 2 

  0209:31 0d              bnt code_0218 
  020b:7a               push2 
  020c:39 35            pushi 35 // $35 b-incr
  020e:39 06            pushi 6 // $6 loop
  0210:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0216:33 14              jmp code_022c 

        code_0218
  0218:78               push1 
  0219:74 03f0          lofss $060c // /closet
  021c:43 25 02         callk Said 2 

  021f:31 0b              bnt code_022c 
  0221:7a               push2 
  0222:39 35            pushi 35 // $35 b-incr
  0224:39 04            pushi 4 // $4 x
  0226:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_022c
  022c:33 56              jmp code_0284 

        code_022e
  022e:78               push1 
  022f:74 0423          lofss $0655 // get/brick
  0232:43 25 02         callk Said 2 

  0235:31 0d              bnt code_0244 
  0237:7a               push2 
  0238:39 35            pushi 35 // $35 b-incr
  023a:39 07            pushi 7 // $7 cel
  023c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0242:33 40              jmp code_0284 

        code_0244
  0244:78               push1 
  0245:74 0419          lofss $0661 // get/boire
  0248:43 25 02         callk Said 2 

  024b:31 0d              bnt code_025a 
  024d:7a               push2 
  024e:39 35            pushi 35 // $35 b-incr
  0250:39 08            pushi 8 // $8 underBits
  0252:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0258:33 2a              jmp code_0284 

        code_025a
  025a:78               push1 
  025b:74 03ee          lofss $064c // get,bouger/carpet
  025e:43 25 02         callk Said 2 

  0261:31 0d              bnt code_0270 
  0263:7a               push2 
  0264:39 35            pushi 35 // $35 b-incr
  0266:39 09            pushi 9 // $9 nsTop
  0268:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  026e:33 14              jmp code_0284 

        code_0270
  0270:78               push1 
  0271:74 0482          lofss $06f6 // asseoir,aller,actionner/bathroom,toilet
  0274:43 25 02         callk Said 2 

  0277:31 0b              bnt code_0284 
  0279:7a               push2 
  027a:39 35            pushi 35 // $35 b-incr
  027c:39 0a            pushi a // $a nsLeft
  027e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0284
  0284:48                 ret 
    )

)

// 0762
(instance dresser1 of RPicView
    (properties
        y $83
        x $10f
        z $0
        heading $0
        view $99
        loop $1
        cel $2
        priority $9
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0285
  0285:39 03            pushi 3 // $3 y
  0287:7c            pushSelf 
  0288:8f 01              lsp param1 
  028a:39 03            pushi 3 // $3 y
  028c:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0292:31 13              bnt code_02a7 
  0294:39 4c            pushi 4c // $4c claimed
  0296:78               push1 
  0297:78               push1 
  0298:87 01              lap param1 
  029a:4a 06             send 6 

  029c:7a               push2 
  029d:39 35            pushi 35 // $35 b-incr
  029f:39 0b            pushi b // $b nsBottom
  02a1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02a7
  02a7:48                 ret 
    )

)

// 0798
(instance bed of RPicView
    (properties
        y $a2
        x $fe
        z $0
        heading $0
        view $99
        loop $1
        cel $0
        priority $c
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_02a8
  02a8:39 03            pushi 3 // $3 y
  02aa:7c            pushSelf 
  02ab:8f 01              lsp param1 
  02ad:39 03            pushi 3 // $3 y
  02af:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  02b5:2f 09               bt code_02c0 
  02b7:78               push1 
  02b8:74 03f8          lofss $06b3 // look[<at]/bed
  02bb:43 25 02         callk Said 2 

  02be:31 3d              bnt code_02fd 

        code_02c0
  02c0:88 00a5            lsg gAct 
  02c3:35 04              ldi 4 
  02c5:1a                 eq? 
  02c6:31 0d              bnt code_02d5 
  02c8:7a               push2 
  02c9:39 35            pushi 35 // $35 b-incr
  02cb:39 0c            pushi c // $c nsRight
  02cd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02d3:33 20              jmp code_02f5 

        code_02d5
  02d5:88 00a5            lsg gAct 
  02d8:35 04              ldi 4 
  02da:1a                 eq? 
  02db:31 0d              bnt code_02ea 
  02dd:7a               push2 
  02de:39 35            pushi 35 // $35 b-incr
  02e0:39 0d            pushi d // $d lsTop
  02e2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02e8:33 0b              jmp code_02f5 

        code_02ea
  02ea:7a               push2 
  02eb:39 35            pushi 35 // $35 b-incr
  02ed:39 0e            pushi e // $e lsLeft
  02ef:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02f5
  02f5:39 4c            pushi 4c // $4c claimed
  02f7:78               push1 
  02f8:78               push1 
  02f9:87 01              lap param1 
  02fb:4a 06             send 6 


        code_02fd
  02fd:48                 ret 
    )

)

// 07ce
(instance chair of RPicView
    (properties
        y $78
        x $104
        z $0
        heading $0
        view $99
        loop $1
        cel $3
        priority $8
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_02fe
  02fe:39 03            pushi 3 // $3 y
  0300:7c            pushSelf 
  0301:8f 01              lsp param1 
  0303:39 03            pushi 3 // $3 y
  0305:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  030b:2f 09               bt code_0316 
  030d:78               push1 
  030e:74 035c          lofss $066d // look/chair
  0311:43 25 02         callk Said 2 

  0314:31 13              bnt code_0329 

        code_0316
  0316:39 4c            pushi 4c // $4c claimed
  0318:78               push1 
  0319:78               push1 
  031a:87 01              lap param1 
  031c:4a 06             send 6 

  031e:7a               push2 
  031f:39 35            pushi 35 // $35 b-incr
  0321:39 0f            pushi f // $f lsBottom
  0323:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0329
  0329:48                 ret 
    )

)

// 0804
(instance sofa of RPicView
    (properties
        y $a2
        x $5e
        z $0
        heading $0
        view $99
        loop $1
        cel $4
        priority $c
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_032a
  032a:39 03            pushi 3 // $3 y
  032c:7c            pushSelf 
  032d:8f 01              lsp param1 
  032f:39 03            pushi 3 // $3 y
  0331:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0337:2f 09               bt code_0342 
  0339:78               push1 
  033a:74 0336          lofss $0673 // look/canape
  033d:43 25 02         callk Said 2 

  0340:31 13              bnt code_0355 

        code_0342
  0342:39 4c            pushi 4c // $4c claimed
  0344:78               push1 
  0345:78               push1 
  0346:87 01              lap param1 
  0348:4a 06             send 6 

  034a:7a               push2 
  034b:39 35            pushi 35 // $35 b-incr
  034d:39 10            pushi 10 // $10 lsRight
  034f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0355
  0355:48                 ret 
    )

)

// 083a
(instance chest of RPicView
    (properties
        y $60
        x $bd
        z $0
        heading $0
        view $99
        loop $1
        cel $1
        priority $6
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0356
  0356:78               push1 
  0357:74 0364          lofss $06be // open,(look<dans)/nightstand
  035a:43 25 02         callk Said 2 

  035d:31 0d              bnt code_036c 
  035f:7a               push2 
  0360:39 35            pushi 35 // $35 b-incr
  0362:39 11            pushi 11 // $11 signal
  0364:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  036a:33 6d              jmp code_03d9 

        code_036c
  036c:78               push1 
  036d:74 031b          lofss $068b // look/nightstand
  0370:43 25 02         callk Said 2 

  0373:31 23              bnt code_0398 
  0375:38 00ee          pushi ee // $ee has
  0378:78               push1 
  0379:39 0b            pushi b // $b nsBottom
  037b:81 00              lag gEgo 
  037d:4a 06             send 6 

  037f:31 0d              bnt code_038e 
  0381:7a               push2 
  0382:39 35            pushi 35 // $35 b-incr
  0384:39 12            pushi 12 // $12 illegalBits
  0386:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  038c:33 08              jmp code_0396 

        code_038e
  038e:39 4c            pushi 4c // $4c claimed
  0390:78               push1 
  0391:76               push0 
  0392:87 01              lap param1 
  0394:4a 06             send 6 


        code_0396
  0396:33 41              jmp code_03d9 

        code_0398
  0398:78               push1 
  0399:74 0301          lofss $069d // look<dans/commode
  039c:43 25 02         callk Said 2 

  039f:31 0d              bnt code_03ae 
  03a1:7a               push2 
  03a2:39 35            pushi 35 // $35 b-incr
  03a4:39 06            pushi 6 // $6 loop
  03a6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03ac:33 2b              jmp code_03d9 

        code_03ae
  03ae:39 03            pushi 3 // $3 y
  03b0:7c            pushSelf 
  03b1:8f 01              lsp param1 
  03b3:39 03            pushi 3 // $3 y
  03b5:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  03bb:2f 09               bt code_03c6 
  03bd:78               push1 
  03be:74 02be          lofss $067f // look/commode
  03c1:43 25 02         callk Said 2 

  03c4:31 13              bnt code_03d9 

        code_03c6
  03c6:39 4c            pushi 4c // $4c claimed
  03c8:78               push1 
  03c9:78               push1 
  03ca:87 01              lap param1 
  03cc:4a 06             send 6 

  03ce:7a               push2 
  03cf:39 35            pushi 35 // $35 b-incr
  03d1:39 0b            pushi b // $b nsBottom
  03d3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_03d9
  03d9:48                 ret 
    )

)

// 0870
(instance sink of RPicView
    (properties
        y $a0
        x $23
        z $0
        heading $0
        view $99
        loop $0
        cel $4
        priority $f
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_03da
  03da:78               push1 
  03db:74 030c          lofss $06ea // gommer,rotate/deliver,eau
  03de:43 25 02         callk Said 2 

  03e1:2f 09               bt code_03ec 
  03e3:78               push1 
  03e4:74 0300          lofss $06e7 // gommer
  03e7:43 25 02         callk Said 2 

  03ea:31 0d              bnt code_03f9 

        code_03ec
  03ec:7a               push2 
  03ed:39 35            pushi 35 // $35 b-incr
  03ef:39 13            pushi 13 // $13 brTop
  03f1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03f7:33 41              jmp code_043a 

        code_03f9
  03f9:78               push1 
  03fa:74 02a9          lofss $06a6 // look<dans/evier
  03fd:43 25 02         callk Said 2 

  0400:31 0d              bnt code_040f 
  0402:7a               push2 
  0403:39 35            pushi 35 // $35 b-incr
  0405:39 14            pushi 14 // $14 brLeft
  0407:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  040d:33 2b              jmp code_043a 

        code_040f
  040f:39 03            pushi 3 // $3 y
  0411:7c            pushSelf 
  0412:8f 01              lsp param1 
  0414:39 03            pushi 3 // $3 y
  0416:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  041c:2f 09               bt code_0427 
  041e:78               push1 
  041f:74 026f          lofss $0691 // look/evier
  0422:43 25 02         callk Said 2 

  0425:31 13              bnt code_043a 

        code_0427
  0427:39 4c            pushi 4c // $4c claimed
  0429:78               push1 
  042a:78               push1 
  042b:87 01              lap param1 
  042d:4a 06             send 6 

  042f:7a               push2 
  0430:39 35            pushi 35 // $35 b-incr
  0432:39 15            pushi 15 // $15 brBottom
  0434:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_043a
  043a:48                 ret 
    )

)

// 08a6
(instance toilet of RPicView
    (properties
        y $73
        x $4e
        z $0
        heading $0
        view $99
        loop $0
        cel $5
        priority $7
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_043b
  043b:78               push1 
  043c:74 0228          lofss $0667 // look/bathroom
  043f:43 25 02         callk Said 2 

  0442:31 0d              bnt code_0451 
  0444:7a               push2 
  0445:39 35            pushi 35 // $35 b-incr
  0447:39 16            pushi 16 // $16 brRight
  0449:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  044f:33 69              jmp code_04ba 

        code_0451
  0451:78               push1 
  0452:74 01eb          lofss $0640 // flush,actionner/toilet,bathroom
  0455:43 25 02         callk Said 2 

  0458:2f 09               bt code_0463 
  045a:78               push1 
  045b:74 0280          lofss $06de // attirer/chain,fontainier
  045e:43 25 02         callk Said 2 

  0461:31 0d              bnt code_0470 

        code_0463
  0463:7a               push2 
  0464:39 35            pushi 35 // $35 b-incr
  0466:39 17            pushi 17 // $17 name
  0468:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  046e:33 4a              jmp code_04ba 

        code_0470
  0470:78               push1 
  0471:74 0258          lofss $06cc // open,(look<dans)/toilet
  0474:43 25 02         callk Said 2 

  0477:31 0d              bnt code_0486 
  0479:7a               push2 
  047a:39 35            pushi 35 // $35 b-incr
  047c:39 18            pushi 18 // $18 key
  047e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0484:33 34              jmp code_04ba 

        code_0486
  0486:39 03            pushi 3 // $3 y
  0488:7c            pushSelf 
  0489:8f 01              lsp param1 
  048b:39 03            pushi 3 // $3 y
  048d:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0493:2f 12               bt code_04a7 
  0495:78               push1 
  0496:74 01fe          lofss $0697 // look/toilet
  0499:43 25 02         callk Said 2 

  049c:2f 09               bt code_04a7 
  049e:78               push1 
  049f:74 0263          lofss $0705 // asseoir/toilet
  04a2:43 25 02         callk Said 2 

  04a5:31 13              bnt code_04ba 

        code_04a7
  04a7:39 4c            pushi 4c // $4c claimed
  04a9:78               push1 
  04aa:78               push1 
  04ab:87 01              lap param1 
  04ad:4a 06             send 6 

  04af:7a               push2 
  04b0:39 35            pushi 35 // $35 b-incr
  04b2:39 17            pushi 17 // $17 name
  04b4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_04ba
  04ba:48                 ret 
    )

)

// 08dc
(instance door1 of Prop
    (properties
        y $59
        x $d8
        z $0
        heading $0
        yStep $2
        view $99
        loop $0
        cel $2
        priority $5
        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
    )
)

// 092a
(instance door2 of Prop
    (properties
        y $59
        x $ee
        z $0
        heading $0
        yStep $2
        view $99
        loop $0
        cel $2
        priority $5
        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
    )
)

// 0978
(instance lamp1 of Prop
    (properties
        y $56
        x $11a
        z $0
        heading $0
        yStep $2
        view $99
        loop $5
        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_04bb
  04bb:39 03            pushi 3 // $3 y
  04bd:7c            pushSelf 
  04be:8f 01              lsp param1 
  04c0:39 03            pushi 3 // $3 y
  04c2:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  04c8:2f 09               bt code_04d3 
  04ca:78               push1 
  04cb:74 01b7          lofss $0685 // look/lamp
  04ce:43 25 02         callk Said 2 

  04d1:31 13              bnt code_04e6 

        code_04d3
  04d3:39 4c            pushi 4c // $4c claimed
  04d5:78               push1 
  04d6:78               push1 
  04d7:87 01              lap param1 
  04d9:4a 06             send 6 

  04db:7a               push2 
  04dc:39 35            pushi 35 // $35 b-incr
  04de:39 19            pushi 19 // $19 time
  04e0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_04e6
  04e6:48                 ret 
    )

)

// 09ca
(instance crackerBox of Prop
    (properties
        y $75
        x $10e
        z $0
        heading $0
        yStep $2
        view $99
        loop $3
        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_04e7
  04e7:38 00ee          pushi ee // $ee has
  04ea:78               push1 
  04eb:39 0b            pushi b // $b nsBottom
  04ed:81 00              lag gEgo 
  04ef:4a 06             send 6 

  04f1:18                 not 
  04f2:30 00a8            bnt code_059d 
  04f5:39 03            pushi 3 // $3 y
  04f7:7c            pushSelf 
  04f8:8f 01              lsp param1 
  04fa:39 03            pushi 3 // $3 y
  04fc:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0502:2f 09               bt code_050d 
  0504:78               push1 
  0505:74 0171          lofss $0679 // look/biscuit
  0508:43 25 02         callk Said 2 

  050b:31 15              bnt code_0522 

        code_050d
  050d:39 4c            pushi 4c // $4c claimed
  050f:78               push1 
  0510:78               push1 
  0511:87 01              lap param1 
  0513:4a 06             send 6 

  0515:7a               push2 
  0516:39 35            pushi 35 // $35 b-incr
  0518:39 1a            pushi 1a // $1a text
  051a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0520:33 79              jmp code_059b 

        code_0522
  0522:78               push1 
  0523:74 010e          lofss $0634 // ask/butler/biscuit<for
  0526:43 25 02         callk Said 2 

  0529:31 13              bnt code_053e 
  052b:35 0b              ldi b 
  052d:a0 00d5            sag global213 
  0530:39 03            pushi 3 // $3 y
  0532:78               push1 
  0533:39 35            pushi 35 // $35 b-incr
  0535:39 1b            pushi 1b // $1b elements
  0537:45 01 06         callb procedure_0001 6 // Say 

  053a:c3 03              +al local3 
  053c:33 5d              jmp code_059b 

        code_053e
  053e:78               push1 
  053f:74 0119          lofss $065b // get/biscuit
  0542:43 25 02         callk Said 2 

  0545:31 40              bnt code_0587 
  0547:38 00ae          pushi ae // $ae distanceTo
  054a:78               push1 
  054b:74 0482          lofss $09d0 // crackerBox
  054e:81 00              lag gEgo 
  0550:4a 06             send 6 

  0552:36                push 
  0553:35 1e              ldi 1e 
  0555:22                 lt? 
  0556:31 29              bnt code_0581 
  0558:83 03              lal local3 
  055a:18                 not 
  055b:31 0b              bnt code_0568 
  055d:7a               push2 
  055e:39 35            pushi 35 // $35 b-incr
  0560:39 1c            pushi 1c // $1c color
  0562:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0568
  0568:35 01              ldi 1 
  056a:a0 00b6            sag global182 
  056d:38 00ec          pushi ec // $ec get
  0570:78               push1 
  0571:39 0b            pushi b // $b nsBottom
  0573:81 00              lag gEgo 
  0575:4a 06             send 6 

  0577:39 58            pushi 58 // $58 dispose
  0579:76               push0 
  057a:72 0453          lofsa $09d0 // crackerBox
  057d:4a 04             send 4 

  057f:33 04              jmp code_0585 

        code_0581
  0581:76               push0 
  0582:45 09 00         callb procedure_0009 0 // NotClose 


        code_0585
  0585:33 14              jmp code_059b 

        code_0587
  0587:78               push1 
  0588:74 0100          lofss $068b // look/nightstand
  058b:43 25 02         callk Said 2 

  058e:31 0b              bnt code_059b 
  0590:7a               push2 
  0591:39 35            pushi 35 // $35 b-incr
  0593:39 1d            pushi 1d // $1d back
  0595:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_059b
  059b:33 14              jmp code_05b1 

        code_059d
  059d:78               push1 
  059e:74 00ba          lofss $065b // get/biscuit
  05a1:43 25 02         callk Said 2 

  05a4:31 0b              bnt code_05b1 
  05a6:7a               push2 
  05a7:39 35            pushi 35 // $35 b-incr
  05a9:39 1e            pushi 1e // $1e mode
  05ab:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_05b1
  05b1:48                 ret 
    )

)

// 0a1c
(instance stairWell 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_05b2
  05b2:87 01              lap param1 
  05b4:65 0a             aTop state 
  05b6:36                push 
  05b7:3c                 dup 
  05b8:35 00              ldi 0 
  05ba:1a                 eq? 
  05bb:31 33              bnt code_05f0 
  05bd:76               push0 
  05be:45 03 00         callb procedure_0003 0 // HandsOff 

  05c1:83 02              lal local2 
  05c3:31 18              bnt code_05dd 
  05c5:39 12            pushi 12 // $12 illegalBits
  05c7:78               push1 
  05c8:76               push0 
  05c9:38 00d3          pushi d3 // $d3 setMotion
  05cc:39 04            pushi 4 // $4 x
  05ce:51 1d            class MoveTo 
  05d0:36                push 
  05d1:38 00bb          pushi bb // $bb targetY
  05d4:39 25            pushi 25 // $25 max
  05d6:7c            pushSelf 
  05d7:81 00              lag gEgo 
  05d9:4a 12             send 12 

  05db:33 11              jmp code_05ee 

        code_05dd
  05dd:38 00d3          pushi d3 // $d3 setMotion
  05e0:39 04            pushi 4 // $4 x
  05e2:51 1d            class MoveTo 
  05e4:36                push 
  05e5:39 79            pushi 79 // $79 cue
  05e7:39 52            pushi 52 // $52 icon
  05e9:7c            pushSelf 
  05ea:81 00              lag gEgo 
  05ec:4a 0c             send c 


        code_05ee
  05ee:33 12              jmp code_0602 

        code_05f0
  05f0:3c                 dup 
  05f1:35 01              ldi 1 
  05f3:1a                 eq? 
  05f4:31 0c              bnt code_0602 
  05f6:76               push0 
  05f7:45 04 00         callb procedure_0004 0 // HandsOn 

  05fa:39 7a            pushi 7a // $7a setScript
  05fc:78               push1 
  05fd:76               push0 
  05fe:63 08             pToa client 
  0600:4a 06             send 6 


        code_0602
  0602:3a                toss 
  0603:48                 ret 
    )

)



