(script 41)

(string
    string_0aa0 "Bed"
    string_0aa4 "Boxes"
    string_0aaa "Room41"
    string_0ab1 "bag"
    string_0ab5 "chair"
    string_0abb "chair1"
    string_0ac2 "chair2"
    string_0ac9 "dresser"
    string_0ad1 "lamp"
    string_0ad6 "lamp1"
    string_0adc "lamp2"
    string_0ae2 "myBed"
    string_0ae8 "wardrobe"
    string_0af1 ""
)

(said
    said_06c2 (look<dans),open/armoire
    said_06d0 (look<dans),open/boite
    said_06de */blind,curtain
    said_06e7 /bag
    said_06eb /closet
    said_06ef /furniture[<covered]
    said_06f8 <below/couvrir[<furniture]
    said_0704 <dans/closet
    said_070b [<around,at][/room]
    said_0719 clore,lift,lift,attach,appuyer/bed[<murphy,haut,away]
    said_0736 detach,get/couvrir
    said_073f get/couvrir[<furniture]
    said_074a look/armoire
    said_0750 look/bag
    said_0756 look/bed[<murphy]
    said_0761 look/boite
    said_0767 look<below/bed
    said_0770 look>
    said_0774 look[<!*]/drawer
    said_077f abaisser,attirer/bed[<murphy]
    said_078d bouger,get/boite
    said_0796 open/(bed[<murphy]),door
    said_07a6 open/closet
    said_07ac chercher,bouger,get,open,(look<dans)/bag
    said_07c3 devoiler/furniture
)

(synonym
    drawer | tiroir = chest | malle | poitrine | torse | torso | trunk
    drawer | tiroir = commode | dresser
    room = bedroom
    armoire | cabinet | cupboard | hutch | wardrobe = armoire | cabinet | cupboard | hutch | wardrobe
)

(local
    local0 = $0000
)

// 07d0
(instance public Room41 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $29
        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_0022
  0022:35 2a              ldi 2a 
  0024:65 1c             aTop east 
  0026:39 57            pushi 57 // $57 init
  0028:76               push0 
  0029:57 37 04         super Rm 4 

  002c:39 61            pushi 61 // $61 add
  002e:39 04            pushi 4 // $4 x
  0030:74 0823          lofss $0856 // wardrobe
  0033:74 0856          lofss $088c // chair1
  0036:74 08bf          lofss $08f8 // chair2
  0039:74 0886          lofss $08c2 // dresser
  003c:39 62            pushi 62 // $62 eachElementDo
  003e:78               push1 
  003f:39 57            pushi 57 // $57 init
  0041:39 3c            pushi 3c // $3c doit
  0043:76               push0 
  0044:81 0a              lag gAddToPics 
  0046:4a 16             send 16 

  0048:38 010b          pushi 10b // $10b setFeatures
  004b:39 07            pushi 7 // $7 cel
  004d:74 0982          lofss $09d2 // lamp1
  0050:74 09d1          lofss $0a24 // lamp2
  0053:74 0800          lofss $0856 // wardrobe
  0056:74 0869          lofss $08c2 // dresser
  0059:74 0830          lofss $088c // chair1
  005c:74 0899          lofss $08f8 // chair2
  005f:74 0a14          lofss $0a76 // Boxes
  0062:54 12             self 12 

  0064:88 00a5            lsg gAct 
  0067:35 01              ldi 1 
  0069:24                 le? 
  006a:31 14              bnt code_0080 
  006c:39 57            pushi 57 // $57 init
  006e:76               push0 
  006f:38 00c6          pushi c6 // $c6 stopUpd
  0072:76               push0 
  0073:72 090a          lofsa $0980 // bag
  0076:4a 08             send 8 

  0078:78               push1 
  0079:39 23            pushi 23 // $23 window
  007b:45 06 02         callb procedure_0006 2 // ClearFlag 

  007e:33 59              jmp code_00d9 

        code_0080
  0080:88 00a5            lsg gAct 
  0083:35 06              ldi 6 
  0085:20                 ge? 
  0086:31 51              bnt code_00d9 
  0088:89 7b              lsg gCorpseFlags 
  008a:35 20              ldi 20 
  008c:12                 and 
  008d:18                 not 
  008e:31 49              bnt code_00d9 
  0090:89 7b              lsg gCorpseFlags 
  0092:35 40              ldi 40 
  0094:12                 and 
  0095:18                 not 
  0096:31 41              bnt code_00d9 
  0098:89 6a              lsg global106 
  009a:35 29              ldi 29 
  009c:1a                 eq? 
  009d:31 0d              bnt code_00ac 
  009f:c3 00              +al local0 
  00a1:38 010a          pushi 10a // $10a setRegions
  00a4:78               push1 
  00a5:38 0116          pushi 116 // $116 minCycles
  00a8:54 06             self 6 

  00aa:33 2d              jmp code_00d9 

        code_00ac
  00ac:89 6a              lsg global106 
  00ae:35 49              ldi 49 
  00b0:1a                 eq? 
  00b1:18                 not 
  00b2:31 25              bnt code_00d9 
  00b4:7a               push2 
  00b5:78               push1 
  00b6:7a               push2 
  00b7:43 40 04         callk Random 4 

  00ba:36                push 
  00bb:3c                 dup 
  00bc:35 01              ldi 1 
  00be:1a                 eq? 
  00bf:31 0d              bnt code_00ce 
  00c1:c3 00              +al local0 
  00c3:38 010a          pushi 10a // $10a setRegions
  00c6:78               push1 
  00c7:38 0116          pushi 116 // $116 minCycles
  00ca:54 06             self 6 

  00cc:33 0a              jmp code_00d8 

        code_00ce
  00ce:3c                 dup 
  00cf:35 02              ldi 2 
  00d1:1a                 eq? 
  00d2:31 04              bnt code_00d8 
  00d4:35 49              ldi 49 
  00d6:a1 6a              sag global106 

        code_00d8
  00d8:3a                toss 

        code_00d9
  00d9:39 07            pushi 7 // $7 cel
  00db:78               push1 
  00dc:78               push1 
  00dd:39 23            pushi 23 // $23 window
  00df:45 07 02         callb procedure_0007 2 // IsFlag 

  00e2:31 04              bnt code_00e8 
  00e4:35 00              ldi 0 
  00e6:33 02              jmp code_00ea 

        code_00e8
  00e8:35 04              ldi 4 

        code_00ea
  00ea:36                push 
  00eb:38 00c9          pushi c9 // $c9 ignoreActors
  00ee:78               push1 
  00ef:78               push1 
  00f0:39 57            pushi 57 // $57 init
  00f2:76               push0 
  00f3:38 00c6          pushi c6 // $c6 stopUpd
  00f6:76               push0 
  00f7:72 0834          lofsa $092e // Bed
  00fa:4a 14             send 14 

  00fc:7a               push2 
  00fd:38 0080          pushi 80 // $80 timeLeft
  0100:39 1e            pushi 1e // $1e mode
  0102:43 00 04         callk Load 4 

  0105:80 00df            lag gDetailLevel 
  0108:31 1e              bnt code_0128 
  010a:39 7e            pushi 7e // $7e setCycle
  010c:78               push1 
  010d:51 16            class Fwd 
  010f:36                push 
  0110:39 57            pushi 57 // $57 init
  0112:76               push0 
  0113:72 08bc          lofsa $09d2 // lamp1
  0116:4a 0a             send a 

  0118:39 7e            pushi 7e // $7e setCycle
  011a:78               push1 
  011b:51 16            class Fwd 
  011d:36                push 
  011e:39 57            pushi 57 // $57 init
  0120:76               push0 
  0121:72 0900          lofsa $0a24 // lamp2
  0124:4a 0a             send a 

  0126:33 18              jmp code_0140 

        code_0128
  0128:39 57            pushi 57 // $57 init
  012a:76               push0 
  012b:38 00c6          pushi c6 // $c6 stopUpd
  012e:76               push0 
  012f:72 08a0          lofsa $09d2 // lamp1
  0132:4a 08             send 8 

  0134:39 57            pushi 57 // $57 init
  0136:76               push0 
  0137:38 00c6          pushi c6 // $c6 stopUpd
  013a:76               push0 
  013b:72 08e6          lofsa $0a24 // lamp2
  013e:4a 08             send 8 


        code_0140
  0140:39 05            pushi 5 // $5 view
  0142:78               push1 
  0143:76               push0 
  0144:38 00c5          pushi c5 // $c5 posn
  0147:7a               push2 
  0148:38 0130          pushi 130 // $130 loopIndex
  014b:39 7a            pushi 7a // $7a setScript
  014d:39 12            pushi 12 // $12 illegalBits
  014f:78               push1 
  0150:38 8008          pushi 8008 // $8008 sel_32776
  0153:39 57            pushi 57 // $57 init
  0155:76               push0 
  0156:81 00              lag gEgo 
  0158:4a 18             send 18 

  015a:48                 ret 
    )

    (method (doit) // method_015b
  015b:76               push0 
  015c:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  015f:31 0a              bnt code_016b 
  0161:7a               push2 
  0162:39 29            pushi 29 // $29 edit
  0164:76               push0 
  0165:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_016b
  016b:39 04            pushi 4 // $4 x
  016d:76               push0 
  016e:81 00              lag gEgo 
  0170:4a 04             send 4 

  0172:36                push 
  0173:34 00fa            ldi fa 
  0176:22                 lt? 
  0177:31 06              bnt code_017f 
  0179:35 2c              ldi 2c 
  017b:65 2a             aTop vertAngle 
  017d:33 04              jmp code_0183 

        code_017f
  017f:35 00              ldi 0 
  0181:65 2a             aTop vertAngle 

        code_0183
  0183:39 3c            pushi 3c // $3c doit
  0185:76               push0 
  0186:57 37 04         super Rm 4 

  0189:48                 ret 
    )

    (method (dispose) // method_018a
  018a:39 58            pushi 58 // $58 dispose
  018c:76               push0 
  018d:57 37 04         super Rm 4 

  0190:48                 ret 
    )

    (method (newRoom) // method_0191
  0191:78               push1 
  0192:38 03d9          pushi 3d9 // $3d9 sel_985
  0195:43 03 02         callk DisposeScript 2 

  0198:38 00f8          pushi f8 // $f8 newRoom
  019b:78               push1 
  019c:8f 01              lsp param1 
  019e:57 37 06         super Rm 6 

  01a1:48                 ret 
    )

    (method (handleEvent) // method_01a2
  01a2:3f 01             link 1 // (var $1)
  01a4:39 4c            pushi 4c // $4c claimed
  01a6:76               push0 
  01a7:87 01              lap param1 
  01a9:4a 04             send 4 

  01ab:31 03              bnt code_01b0 
  01ad:35 01              ldi 1 
  01af:48                 ret 

        code_01b0
  01b0:39 22            pushi 22 // $22 type
  01b2:76               push0 
  01b3:87 01              lap param1 
  01b5:4a 04             send 4 

  01b7:36                push 
  01b8:34 0080            ldi 80 
  01bb:1a                 eq? 
  01bc:30 0188            bnt code_0347 
  01bf:78               push1 
  01c0:74 051b          lofss $06de // */blind,curtain
  01c3:43 25 02         callk Said 2 

  01c6:31 0d              bnt code_01d5 
  01c8:7a               push2 
  01c9:39 29            pushi 29 // $29 edit
  01cb:78               push1 
  01cc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01d2:32 0172            jmp code_0347 

        code_01d5
  01d5:78               push1 
  01d6:74 0597          lofss $0770 // look>
  01d9:43 25 02         callk Said 2 

  01dc:30 0094            bnt code_0273 
  01df:39 65            pushi 65 // $65 contains
  01e1:78               push1 
  01e2:74 079b          lofss $0980 // bag
  01e5:81 05              lag gCast 
  01e7:4a 06             send 6 

  01e9:18                 not 
  01ea:31 0f              bnt code_01fb 
  01ec:78               push1 
  01ed:74 04f7          lofss $06e7 // /bag
  01f0:43 25 02         callk Said 2 

  01f3:31 06              bnt code_01fb 
  01f5:76               push0 
  01f6:45 12 00         callb procedure_0012 0 // NotHere 

  01f9:33 75              jmp code_0270 

        code_01fb
  01fb:78               push1 
  01fc:74 050c          lofss $070b // [<around,at][/room]
  01ff:43 25 02         callk Said 2 

  0202:31 0c              bnt code_0210 
  0204:7a               push2 
  0205:39 29            pushi 29 // $29 edit
  0207:76               push0 
  0208:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  020e:33 60              jmp code_0270 

        code_0210
  0210:78               push1 
  0211:74 04db          lofss $06ef // /furniture[<covered]
  0214:43 25 02         callk Said 2 

  0217:31 0c              bnt code_0225 
  0219:7a               push2 
  021a:39 29            pushi 29 // $29 edit
  021c:7a               push2 
  021d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0223:33 4b              jmp code_0270 

        code_0225
  0225:78               push1 
  0226:74 04db          lofss $0704 // <dans/closet
  0229:43 25 02         callk Said 2 

  022c:31 0d              bnt code_023b 
  022e:7a               push2 
  022f:39 29            pushi 29 // $29 edit
  0231:39 03            pushi 3 // $3 y
  0233:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0239:33 35              jmp code_0270 

        code_023b
  023b:78               push1 
  023c:74 04ac          lofss $06eb // /closet
  023f:43 25 02         callk Said 2 

  0242:31 0d              bnt code_0251 
  0244:7a               push2 
  0245:39 29            pushi 29 // $29 edit
  0247:39 04            pushi 4 // $4 x
  0249:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  024f:33 1f              jmp code_0270 

        code_0251
  0251:78               push1 
  0252:74 04a3          lofss $06f8 // <below/couvrir[<furniture]
  0255:43 25 02         callk Said 2 

  0258:31 16              bnt code_0270 
  025a:7a               push2 
  025b:39 29            pushi 29 // $29 edit
  025d:39 05            pushi 5 // $5 view
  025f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0265:7a               push2 
  0266:39 29            pushi 29 // $29 edit
  0268:39 06            pushi 6 // $6 loop
  026a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0270
  0270:32 00d4            jmp code_0347 

        code_0273
  0273:78               push1 
  0274:74 04c8          lofss $073f // get/couvrir[<furniture]
  0277:43 25 02         callk Said 2 

  027a:31 0e              bnt code_028a 
  027c:7a               push2 
  027d:39 29            pushi 29 // $29 edit
  027f:39 05            pushi 5 // $5 view
  0281:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0287:32 00bd            jmp code_0347 

        code_028a
  028a:78               push1 
  028b:74 0518          lofss $07a6 // open/closet
  028e:43 25 02         callk Said 2 

  0291:31 0e              bnt code_02a1 
  0293:7a               push2 
  0294:39 29            pushi 29 // $29 edit
  0296:39 07            pushi 7 // $7 cel
  0298:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  029e:32 00a6            jmp code_0347 

        code_02a1
  02a1:78               push1 
  02a2:74 051e          lofss $07c3 // devoiler/furniture
  02a5:43 25 02         callk Said 2 

  02a8:2f 09               bt code_02b3 
  02aa:78               push1 
  02ab:74 0488          lofss $0736 // detach,get/couvrir
  02ae:43 25 02         callk Said 2 

  02b1:31 0e              bnt code_02c1 

        code_02b3
  02b3:7a               push2 
  02b4:39 29            pushi 29 // $29 edit
  02b6:39 05            pushi 5 // $5 view
  02b8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02be:32 0086            jmp code_0347 

        code_02c1
  02c1:78               push1 
  02c2:74 04d1          lofss $0796 // open/(bed[<murphy]),door
  02c5:43 25 02         callk Said 2 

  02c8:2f 09               bt code_02d3 
  02ca:78               push1 
  02cb:74 04b1          lofss $077f // abaisser,attirer/bed[<murphy]
  02ce:43 25 02         callk Said 2 

  02d1:31 18              bnt code_02eb 

        code_02d3
  02d3:78               push1 
  02d4:39 23            pushi 23 // $23 window
  02d6:45 07 02         callb procedure_0007 2 // IsFlag 

  02d9:31 0a              bnt code_02e5 
  02db:39 7a            pushi 7a // $7a setScript
  02dd:78               push1 
  02de:74 0545          lofss $0826 // myBed
  02e1:54 06             self 6 

  02e3:33 04              jmp code_02e9 

        code_02e5
  02e5:76               push0 
  02e6:45 10 00         callb procedure_0010 0 // AlreadyOpen 


        code_02e9
  02e9:33 5c              jmp code_0347 

        code_02eb
  02eb:78               push1 
  02ec:74 042a          lofss $0719 // clore,lift,lift,attach,appuyer/bed[<murphy,haut,away]
  02ef:43 25 02         callk Said 2 

  02f2:31 53              bnt code_0347 
  02f4:39 65            pushi 65 // $65 contains
  02f6:78               push1 
  02f7:74 0686          lofss $0980 // bag
  02fa:81 05              lag gCast 
  02fc:4a 06             send 6 

  02fe:18                 not 
  02ff:31 35              bnt code_0336 
  0301:89 6a              lsg global106 
  0303:35 29              ldi 29 
  0305:1a                 eq? 
  0306:31 15              bnt code_031d 
  0308:89 7b              lsg gCorpseFlags 
  030a:35 20              ldi 20 
  030c:12                 and 
  030d:18                 not 
  030e:31 0d              bnt code_031d 
  0310:7a               push2 
  0311:39 29            pushi 29 // $29 edit
  0313:39 08            pushi 8 // $8 underBits
  0315:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  031b:33 17              jmp code_0334 

        code_031d
  031d:78               push1 
  031e:39 23            pushi 23 // $23 window
  0320:45 07 02         callb procedure_0007 2 // IsFlag 

  0323:18                 not 
  0324:31 0a              bnt code_0330 
  0326:39 7a            pushi 7a // $7a setScript
  0328:78               push1 
  0329:74 04fa          lofss $0826 // myBed
  032c:54 06             self 6 

  032e:33 04              jmp code_0334 

        code_0330
  0330:76               push0 
  0331:45 11 00         callb procedure_0011 0 // AlreadyClosed 


        code_0334
  0334:33 11              jmp code_0347 

        code_0336
  0336:78               push1 
  0337:39 1f            pushi 1f // $1f style
  0339:45 05 02         callb procedure_0005 2 // SetFlag 

  033c:7a               push2 
  033d:39 29            pushi 29 // $29 edit
  033f:39 09            pushi 9 // $9 nsTop
  0341:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0347
  0347:48                 ret 
    )

)

// 0820
(instance myBed 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_0348
  0348:87 01              lap param1 
  034a:65 0a             aTop state 
  034c:36                push 
  034d:3c                 dup 
  034e:35 00              ldi 0 
  0350:1a                 eq? 
  0351:31 4d              bnt code_03a0 
  0353:76               push0 
  0354:45 03 00         callb procedure_0003 0 // HandsOff 

  0357:78               push1 
  0358:39 23            pushi 23 // $23 window
  035a:45 07 02         callb procedure_0007 2 // IsFlag 

  035d:31 20              bnt code_037f 
  035f:38 00d4          pushi d4 // $d4 setAvoider
  0362:78               push1 
  0363:39 56            pushi 56 // $56 new
  0365:76               push0 
  0366:51 21            class Avoid 
  0368:4a 04             send 4 

  036a:36                push 
  036b:38 00d3          pushi d3 // $d3 setMotion
  036e:39 04            pushi 4 // $4 x
  0370:51 1d            class MoveTo 
  0372:36                push 
  0373:38 00f3          pushi f3 // $f3 close
  0376:39 5a            pushi 5a // $5a showSelf
  0378:7c            pushSelf 
  0379:81 00              lag gEgo 
  037b:4a 12             send 12 

  037d:33 1e              jmp code_039d 

        code_037f
  037f:38 00d4          pushi d4 // $d4 setAvoider
  0382:78               push1 
  0383:39 56            pushi 56 // $56 new
  0385:76               push0 
  0386:51 21            class Avoid 
  0388:4a 04             send 4 

  038a:36                push 
  038b:38 00d3          pushi d3 // $d3 setMotion
  038e:39 04            pushi 4 // $4 x
  0390:51 1d            class MoveTo 
  0392:36                push 
  0393:38 00bd          pushi bd // $bd outOfTouch
  0396:39 63            pushi 63 // $63 firstTrue
  0398:7c            pushSelf 
  0399:81 00              lag gEgo 
  039b:4a 12             send 12 


        code_039d
  039d:32 00af            jmp code_044f 

        code_03a0
  03a0:3c                 dup 
  03a1:35 01              ldi 1 
  03a3:1a                 eq? 
  03a4:31 67              bnt code_040d 
  03a6:78               push1 
  03a7:39 23            pushi 23 // $23 window
  03a9:45 07 02         callb procedure_0007 2 // IsFlag 

  03ac:31 28              bnt code_03d6 
  03ae:78               push1 
  03af:39 23            pushi 23 // $23 window
  03b1:45 06 02         callb procedure_0006 2 // ClearFlag 

  03b4:39 06            pushi 6 // $6 loop
  03b6:78               push1 
  03b7:78               push1 
  03b8:38 00d6          pushi d6 // $d6 observeControl
  03bb:78               push1 
  03bc:39 08            pushi 8 // $8 underBits
  03be:81 00              lag gEgo 
  03c0:4a 0c             send c 

  03c2:38 00a4          pushi a4 // $a4 cycleSpeed
  03c5:78               push1 
  03c6:39 03            pushi 3 // $3 y
  03c8:39 7e            pushi 7e // $7e setCycle
  03ca:7a               push2 
  03cb:51 1a            class End 
  03cd:36                push 
  03ce:7c            pushSelf 
  03cf:72 055c          lofsa $092e // Bed
  03d2:4a 0e             send e 

  03d4:33 35              jmp code_040b 

        code_03d6
  03d6:78               push1 
  03d7:39 23            pushi 23 // $23 window
  03d9:45 05 02         callb procedure_0005 2 // SetFlag 

  03dc:39 05            pushi 5 // $5 view
  03de:78               push1 
  03df:39 1e            pushi 1e // $1e mode
  03e1:39 07            pushi 7 // $7 cel
  03e3:78               push1 
  03e4:76               push0 
  03e5:39 06            pushi 6 // $6 loop
  03e7:78               push1 
  03e8:78               push1 
  03e9:39 7e            pushi 7e // $7e setCycle
  03eb:78               push1 
  03ec:51 1a            class End 
  03ee:36                push 
  03ef:38 00d7          pushi d7 // $d7 ignoreControl
  03f2:78               push1 
  03f3:39 08            pushi 8 // $8 underBits
  03f5:81 00              lag gEgo 
  03f7:4a 1e             send 1e 

  03f9:38 00a4          pushi a4 // $a4 cycleSpeed
  03fc:78               push1 
  03fd:39 03            pushi 3 // $3 y
  03ff:39 7e            pushi 7e // $7e setCycle
  0401:7a               push2 
  0402:51 1b            class Beg 
  0404:36                push 
  0405:7c            pushSelf 
  0406:72 0525          lofsa $092e // Bed
  0409:4a 0e             send e 


        code_040b
  040b:33 42              jmp code_044f 

        code_040d
  040d:3c                 dup 
  040e:35 02              ldi 2 
  0410:1a                 eq? 
  0411:31 3c              bnt code_044f 
  0413:38 00c6          pushi c6 // $c6 stopUpd
  0416:76               push0 
  0417:72 0514          lofsa $092e // Bed
  041a:4a 04             send 4 

  041c:78               push1 
  041d:39 23            pushi 23 // $23 window
  041f:45 07 02         callb procedure_0007 2 // IsFlag 

  0422:31 21              bnt code_0445 
  0424:39 05            pushi 5 // $5 view
  0426:78               push1 
  0427:76               push0 
  0428:39 06            pushi 6 // $6 loop
  042a:78               push1 
  042b:39 03            pushi 3 // $3 y
  042d:38 00c5          pushi c5 // $c5 posn
  0430:7a               push2 
  0431:38 00b3          pushi b3 // $b3 thisTurn
  0434:39 63            pushi 63 // $63 firstTrue
  0436:38 00d4          pushi d4 // $d4 setAvoider
  0439:78               push1 
  043a:76               push0 
  043b:39 7e            pushi 7e // $7e setCycle
  043d:78               push1 
  043e:51 17            class Walk 
  0440:36                push 
  0441:81 00              lag gEgo 
  0443:4a 20             send 20 


        code_0445
  0445:76               push0 
  0446:45 04 00         callb procedure_0004 0 // HandsOn 

  0449:39 7a            pushi 7a // $7a setScript
  044b:78               push1 
  044c:76               push0 
  044d:54 06             self 6 


        code_044f
  044f:3a                toss 
  0450:48                 ret 
    )

)

// 0850
(instance wardrobe of RPicView
    (properties
        y $5f
        x $70
        z $0
        heading $0
        view $8d
        loop $1
        cel $0
        priority $3
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0451
  0451:78               push1 
  0452:74 026d          lofss $06c2 // (look<dans),open/armoire
  0455:43 25 02         callk Said 2 

  0458:31 0d              bnt code_0467 
  045a:7a               push2 
  045b:39 29            pushi 29 // $29 edit
  045d:39 07            pushi 7 // $7 cel
  045f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0465:33 2b              jmp code_0492 

        code_0467
  0467:39 03            pushi 3 // $3 y
  0469:7c            pushSelf 
  046a:8f 01              lsp param1 
  046c:39 03            pushi 3 // $3 y
  046e:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0474:2f 09               bt code_047f 
  0476:78               push1 
  0477:74 02d0          lofss $074a // look/armoire
  047a:43 25 02         callk Said 2 

  047d:31 13              bnt code_0492 

        code_047f
  047f:39 4c            pushi 4c // $4c claimed
  0481:78               push1 
  0482:78               push1 
  0483:87 01              lap param1 
  0485:4a 06             send 6 

  0487:7a               push2 
  0488:39 29            pushi 29 // $29 edit
  048a:39 04            pushi 4 // $4 x
  048c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0492
  0492:48                 ret 
    )

)

// 0886
(instance chair1 of RPicView
    (properties
        y $5a
        x $84
        z $0
        heading $0
        view $8d
        loop $1
        cel $3
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0493
  0493:39 03            pushi 3 // $3 y
  0495:7c            pushSelf 
  0496:8f 01              lsp param1 
  0498:39 03            pushi 3 // $3 y
  049a:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  04a0:31 0f              bnt code_04b1 
  04a2:39 4c            pushi 4c // $4c claimed
  04a4:78               push1 
  04a5:78               push1 
  04a6:87 01              lap param1 
  04a8:4a 06             send 6 

  04aa:78               push1 
  04ab:74 0607          lofss $0ab5 // chair
  04ae:45 19 02         callb procedure_0019 2 // DoLook 


        code_04b1
  04b1:48                 ret 
    )

)

// 08bc
(instance dresser of RPicView
    (properties
        y $59
        x $124
        z $0
        heading $0
        view $8d
        loop $1
        cel $1
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_04b2
  04b2:39 03            pushi 3 // $3 y
  04b4:7c            pushSelf 
  04b5:8f 01              lsp param1 
  04b7:39 03            pushi 3 // $3 y
  04b9:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  04bf:2f 09               bt code_04ca 
  04c1:78               push1 
  04c2:74 02af          lofss $0774 // look[<!*]/drawer
  04c5:43 25 02         callk Said 2 

  04c8:31 13              bnt code_04dd 

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

  04d2:7a               push2 
  04d3:39 29            pushi 29 // $29 edit
  04d5:39 0a            pushi a // $a nsLeft
  04d7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_04dd
  04dd:48                 ret 
    )

)

// 08f2
(instance chair2 of RPicView
    (properties
        y $71
        x $5d
        z $0
        heading $0
        view $8d
        loop $1
        cel $2
        priority $7
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_04de
  04de:39 03            pushi 3 // $3 y
  04e0:7c            pushSelf 
  04e1:8f 01              lsp param1 
  04e3:39 03            pushi 3 // $3 y
  04e5:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  04eb:31 11              bnt code_04fe 
  04ed:39 4c            pushi 4c // $4c claimed
  04ef:78               push1 
  04f0:78               push1 
  04f1:87 01              lap param1 
  04f3:4a 06             send 6 

  04f5:78               push1 
  04f6:74 05bc          lofss $0ab5 // chair
  04f9:45 19 02         callb procedure_0019 2 // DoLook 

  04fc:33 40              jmp code_053e 

        code_04fe
  04fe:78               push1 
  04ff:74 01ce          lofss $06d0 // (look<dans),open/boite
  0502:43 25 02         callk Said 2 

  0505:31 0d              bnt code_0514 
  0507:7a               push2 
  0508:39 29            pushi 29 // $29 edit
  050a:39 0b            pushi b // $b nsBottom
  050c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0512:33 2a              jmp code_053e 

        code_0514
  0514:78               push1 
  0515:74 0249          lofss $0761 // look/boite
  0518:43 25 02         callk Said 2 

  051b:31 0d              bnt code_052a 
  051d:7a               push2 
  051e:39 29            pushi 29 // $29 edit
  0520:39 0c            pushi c // $c nsRight
  0522:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0528:33 14              jmp code_053e 

        code_052a
  052a:78               push1 
  052b:74 025f          lofss $078d // bouger,get/boite
  052e:43 25 02         callk Said 2 

  0531:31 0b              bnt code_053e 
  0533:7a               push2 
  0534:39 29            pushi 29 // $29 edit
  0536:39 0d            pushi d // $d lsTop
  0538:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_053e
  053e:48                 ret 
    )

)

// 0928
(instance Bed of Prop
    (properties
        y $1d
        x $e8
        z $0
        heading $0
        yStep $2
        view $8d
        loop $2
        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_053f
  053f:78               push1 
  0540:74 0224          lofss $0767 // look<below/bed
  0543:43 25 02         callk Said 2 

  0546:31 0d              bnt code_0555 
  0548:7a               push2 
  0549:39 29            pushi 29 // $29 edit
  054b:39 0e            pushi e // $e lsLeft
  054d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0553:33 76              jmp code_05cb 

        code_0555
  0555:39 03            pushi 3 // $3 y
  0557:7c            pushSelf 
  0558:8f 01              lsp param1 
  055a:39 03            pushi 3 // $3 y
  055c:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0562:2f 09               bt code_056d 
  0564:78               push1 
  0565:74 01ee          lofss $0756 // look/bed[<murphy]
  0568:43 25 02         callk Said 2 

  056b:31 5e              bnt code_05cb 

        code_056d
  056d:39 4c            pushi 4c // $4c claimed
  056f:78               push1 
  0570:78               push1 
  0571:87 01              lap param1 
  0573:4a 06             send 6 

  0575:83 00              lal local0 
  0577:31 0d              bnt code_0586 
  0579:7a               push2 
  057a:39 29            pushi 29 // $29 edit
  057c:39 0f            pushi f // $f lsBottom
  057e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0584:33 45              jmp code_05cb 

        code_0586
  0586:39 07            pushi 7 // $7 cel
  0588:76               push0 
  0589:72 03a2          lofsa $092e // Bed
  058c:4a 04             send 4 

  058e:36                push 
  058f:35 00              ldi 0 
  0591:1a                 eq? 
  0592:31 0d              bnt code_05a1 
  0594:7a               push2 
  0595:39 29            pushi 29 // $29 edit
  0597:39 10            pushi 10 // $10 lsRight
  0599:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  059f:33 2a              jmp code_05cb 

        code_05a1
  05a1:39 65            pushi 65 // $65 contains
  05a3:78               push1 
  05a4:74 03d9          lofss $0980 // bag
  05a7:81 05              lag gCast 
  05a9:4a 06             send 6 

  05ab:31 13              bnt code_05c0 
  05ad:78               push1 
  05ae:39 1f            pushi 1f // $1f style
  05b0:45 05 02         callb procedure_0005 2 // SetFlag 

  05b3:7a               push2 
  05b4:39 29            pushi 29 // $29 edit
  05b6:39 11            pushi 11 // $11 signal
  05b8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05be:33 0b              jmp code_05cb 

        code_05c0
  05c0:7a               push2 
  05c1:39 29            pushi 29 // $29 edit
  05c3:39 12            pushi 12 // $12 illegalBits
  05c5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_05cb
  05cb:48                 ret 
    )

)

// 097a
(instance bag of Prop
    (properties
        y $4f
        x $d4
        z $0
        heading $0
        yStep $2
        view $8d
        loop $1
        cel $4
        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_05cc
  05cc:39 4c            pushi 4c // $4c claimed
  05ce:76               push0 
  05cf:87 01              lap param1 
  05d1:4a 04             send 4 

  05d3:18                 not 
  05d4:31 50              bnt code_0626 
  05d6:78               push1 
  05d7:74 01d2          lofss $07ac // chercher,bouger,get,open,(look<dans)/bag
  05da:43 25 02         callk Said 2 

  05dd:31 0d              bnt code_05ec 
  05df:7a               push2 
  05e0:39 29            pushi 29 // $29 edit
  05e2:39 13            pushi 13 // $13 brTop
  05e4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05ea:33 2b              jmp code_0617 

        code_05ec
  05ec:39 03            pushi 3 // $3 y
  05ee:7c            pushSelf 
  05ef:8f 01              lsp param1 
  05f1:39 03            pushi 3 // $3 y
  05f3:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  05f9:2f 09               bt code_0604 
  05fb:78               push1 
  05fc:74 0151          lofss $0750 // look/bag
  05ff:43 25 02         callk Said 2 

  0602:31 13              bnt code_0617 

        code_0604
  0604:39 4c            pushi 4c // $4c claimed
  0606:78               push1 
  0607:78               push1 
  0608:87 01              lap param1 
  060a:4a 06             send 6 

  060c:7a               push2 
  060d:39 29            pushi 29 // $29 edit
  060f:39 14            pushi 14 // $14 brLeft
  0611:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0617
  0617:39 4c            pushi 4c // $4c claimed
  0619:76               push0 
  061a:87 01              lap param1 
  061c:4a 04             send 4 

  061e:31 06              bnt code_0626 
  0620:78               push1 
  0621:39 1f            pushi 1f // $1f style
  0623:45 05 02         callb procedure_0005 2 // SetFlag 


        code_0626
  0626:48                 ret 
    )

)

// 09cc
(instance lamp1 of Prop
    (properties
        y $33
        x $59
        z $0
        heading $0
        yStep $2
        view $8d
        loop $0
        cel $0
        priority $1
        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_0627
  0627:39 03            pushi 3 // $3 y
  0629:7c            pushSelf 
  062a:8f 01              lsp param1 
  062c:39 03            pushi 3 // $3 y
  062e:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0634:31 0f              bnt code_0645 
  0636:39 4c            pushi 4c // $4c claimed
  0638:78               push1 
  0639:78               push1 
  063a:87 01              lap param1 
  063c:4a 06             send 6 

  063e:78               push1 
  063f:74 048f          lofss $0ad1 // lamp
  0642:45 19 02         callb procedure_0019 2 // DoLook 


        code_0645
  0645:48                 ret 
    )

)

// 0a1e
(instance lamp2 of Prop
    (properties
        y $3f
        x $3d
        z $0
        heading $0
        yStep $2
        view $8d
        loop $0
        cel $1
        priority $2
        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_0646
  0646:39 03            pushi 3 // $3 y
  0648:7c            pushSelf 
  0649:8f 01              lsp param1 
  064b:39 03            pushi 3 // $3 y
  064d:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0653:31 0f              bnt code_0664 
  0655:39 4c            pushi 4c // $4c claimed
  0657:78               push1 
  0658:78               push1 
  0659:87 01              lap param1 
  065b:4a 06             send 6 

  065d:78               push1 
  065e:74 0470          lofss $0ad1 // lamp
  0661:45 19 02         callb procedure_0019 2 // DoLook 


        code_0664
  0664:48                 ret 
    )

)

// 0a70
(instance Boxes of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $6c
        nsLeft $32
        nsBottom $a9
        nsRight $134
    )
    (method (handleEvent) // method_0665
  0665:78               push1 
  0666:74 0067          lofss $06d0 // (look<dans),open/boite
  0669:43 25 02         callk Said 2 

  066c:31 0d              bnt code_067b 
  066e:7a               push2 
  066f:39 29            pushi 29 // $29 edit
  0671:39 0b            pushi b // $b nsBottom
  0673:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0679:33 41              jmp code_06bc 

        code_067b
  067b:78               push1 
  067c:74 010e          lofss $078d // bouger,get/boite
  067f:43 25 02         callk Said 2 

  0682:31 0d              bnt code_0691 
  0684:7a               push2 
  0685:39 29            pushi 29 // $29 edit
  0687:39 0d            pushi d // $d lsTop
  0689:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  068f:33 2b              jmp code_06bc 

        code_0691
  0691:39 03            pushi 3 // $3 y
  0693:7c            pushSelf 
  0694:8f 01              lsp param1 
  0696:39 03            pushi 3 // $3 y
  0698:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  069e:2f 09               bt code_06a9 
  06a0:78               push1 
  06a1:74 00bd          lofss $0761 // look/boite
  06a4:43 25 02         callk Said 2 

  06a7:31 13              bnt code_06bc 

        code_06a9
  06a9:39 4c            pushi 4c // $4c claimed
  06ab:78               push1 
  06ac:78               push1 
  06ad:87 01              lap param1 
  06af:4a 06             send 6 

  06b1:7a               push2 
  06b2:39 29            pushi 29 // $29 edit
  06b4:39 0c            pushi c // $c nsRight
  06b6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06bc
  06bc:48                 ret 
  06bd:00                bnot 
    )

)



