(script 46)

(string
    string_1086 "Bwindow"
    string_108e "Room46"
    string_1095 "Twindow"
    string_109d "bed"
    string_10a1 "bed1"
    string_10a6 "bed2"
    string_10ab "chest"
    string_10b1 "closeWindow"
    string_10bd "couch"
    string_10c3 "enterPanel"
    string_10ce "exiting"
    string_10d6 "horse"
    string_10dc "lamp"
    string_10e1 "lamp1"
    string_10e7 "lamp2"
    string_10ed "myMusic"
    string_10f5 "panel"
    string_10fb "plant"
    string_1101 "sofa"
    string_1106 "suit1"
    string_110c "suit2"
    string_1112 "table"
    string_1118 "table2"
    string_111f "window"
)

(said
    said_0a68 (aller,climb,hop)<exterieur/fenetre
    said_0a79 /panel,(door<cachoterie)>
    said_0a86 clore/fenetre
    said_0a8c get,arranger/nightstand,foliage
    said_0a98 get/bagage
    said_0a9e get/painting
    said_0aa4 look
    said_0aa7 look,find/gertie,body
    said_0ab3 look/curtain
    said_0ab9 look/dirt
    said_0abf look/eye,(painting<eye)
    said_0acd look/foliage
    said_0ad3 look/bagage
    said_0ad9 look/nightstand,foliage
    said_0ae2 look/painting
    said_0ae8 look/painting/painting
    said_0af1 look/fenetre
    said_0af7 look<(bas,exterieur)
    said_0b02 look<(exterieur,through)/fenetre
    said_0b10 look<behind,below/painting
    said_0b1c look<bas
    said_0b22 look[<!*]/drawer
    said_0b2d look[<around,at][/room]
    said_0b3d look[<bas]/dirt
    said_0b48 open,(look<dans)/bagage
    said_0b56 open,bouger
    said_0b5c open/painting
    said_0b62 open/fenetre
    said_0b68 sentir/fumee,butt
)

(synonym
    painting | peinture | picture | portrait | tableau | tableaux = blaze | cheval | horse | nag
    bagage | luggage | suitcase = affaire | cas | case | etui
    bagage | luggage | suitcase = bag | sac | sack | valise
    drawer | tiroir = commode | dresser
    room = bedroom
)

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

// 0b78
(instance myMusic of Sound
    (properties
        state $0
        number $0
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)

// 0ba2
(instance public Room46 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $2e
        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_0026
  0026:35 2f              ldi 2f 
  0028:65 1c             aTop east 
  002a:39 57            pushi 57 // $57 init
  002c:76               push0 
  002d:57 37 04         super Rm 4 

  0030:39 61            pushi 61 // $61 add
  0032:39 08            pushi 8 // $8 underBits
  0034:74 0d95          lofss $0dcc // suit1
  0037:74 0dc8          lofss $0e02 // suit2
  003a:74 0c4b          lofss $0c88 // horse
  003d:74 0c7e          lofss $0cbe // bed1
  0040:74 0ce7          lofss $0d2a // bed2
  0043:74 0cae          lofss $0cf4 // chest
  0046:74 0d17          lofss $0d60 // table2
  0049:74 0d4a          lofss $0d96 // sofa
  004c:39 62            pushi 62 // $62 eachElementDo
  004e:78               push1 
  004f:39 57            pushi 57 // $57 init
  0051:39 3c            pushi 3c // $3c doit
  0053:76               push0 
  0054:81 0a              lag gAddToPics 
  0056:4a 1e             send 1e 

  0058:38 010b          pushi 10b // $10b setFeatures
  005b:39 08            pushi 8 // $8 underBits
  005d:74 0d6c          lofss $0dcc // suit1
  0060:74 0d9f          lofss $0e02 // suit2
  0063:74 0c22          lofss $0c88 // horse
  0066:74 0cf7          lofss $0d60 // table2
  0069:74 0c52          lofss $0cbe // bed1
  006c:74 0cbb          lofss $0d2a // bed2
  006f:74 0d24          lofss $0d96 // sofa
  0072:74 0c7f          lofss $0cf4 // chest
  0075:54 14             self 14 

  0077:39 07            pushi 7 // $7 cel
  0079:78               push1 
  007a:88 00a5            lsg gAct 
  007d:3c                 dup 
  007e:35 01              ldi 1 
  0080:1a                 eq? 
  0081:31 04              bnt code_0087 
  0083:35 09              ldi 9 
  0085:33 02              jmp code_0089 

        code_0087
  0087:35 08              ldi 8 

        code_0089
  0089:3a                toss 
  008a:36                push 
  008b:39 42            pushi 42 // $42 setPri
  008d:78               push1 
  008e:39 06            pushi 6 // $6 loop
  0090:39 57            pushi 57 // $57 init
  0092:76               push0 
  0093:38 00c6          pushi c6 // $c6 stopUpd
  0096:76               push0 
  0097:72 0f46          lofsa $0fe0 // table
  009a:4a 14             send 14 

  009c:88 00b1            lsg gGertieRoomState 
  009f:35 02              ldi 2 
  00a1:1a                 eq? 
  00a2:31 0a              bnt code_00ae 
  00a4:39 07            pushi 7 // $7 cel
  00a6:78               push1 
  00a7:39 08            pushi 8 // $8 underBits
  00a9:72 0f34          lofsa $0fe0 // table
  00ac:4a 06             send 6 


        code_00ae
  00ae:88 00a5            lsg gAct 
  00b1:35 01              ldi 1 
  00b3:1a                 eq? 
  00b4:31 19              bnt code_00cf 
  00b6:88 00b1            lsg gGertieRoomState 
  00b9:35 02              ldi 2 
  00bb:1c                 ne? 
  00bc:31 11              bnt code_00cf 
  00be:39 42            pushi 42 // $42 setPri
  00c0:78               push1 
  00c1:39 06            pushi 6 // $6 loop
  00c3:39 57            pushi 57 // $57 init
  00c5:76               push0 
  00c6:38 00c6          pushi c6 // $c6 stopUpd
  00c9:76               push0 
  00ca:72 0f65          lofsa $1032 // plant
  00cd:4a 0e             send e 


        code_00cf
  00cf:80 00df            lag gDetailLevel 
  00d2:31 28              bnt code_00fc 
  00d4:39 42            pushi 42 // $42 setPri
  00d6:78               push1 
  00d7:39 06            pushi 6 // $6 loop
  00d9:39 7e            pushi 7e // $7e setCycle
  00db:78               push1 
  00dc:51 16            class Fwd 
  00de:36                push 
  00df:39 57            pushi 57 // $57 init
  00e1:76               push0 
  00e2:72 0df3          lofsa $0ed8 // lamp1
  00e5:4a 10             send 10 

  00e7:39 42            pushi 42 // $42 setPri
  00e9:78               push1 
  00ea:39 06            pushi 6 // $6 loop
  00ec:39 7e            pushi 7e // $7e setCycle
  00ee:78               push1 
  00ef:51 16            class Fwd 
  00f1:36                push 
  00f2:39 57            pushi 57 // $57 init
  00f4:76               push0 
  00f5:72 0e32          lofsa $0f2a // lamp2
  00f8:4a 10             send 10 

  00fa:33 22              jmp code_011e 

        code_00fc
  00fc:39 42            pushi 42 // $42 setPri
  00fe:78               push1 
  00ff:39 06            pushi 6 // $6 loop
  0101:39 57            pushi 57 // $57 init
  0103:76               push0 
  0104:38 00c6          pushi c6 // $c6 stopUpd
  0107:76               push0 
  0108:72 0dcd          lofsa $0ed8 // lamp1
  010b:4a 0e             send e 

  010d:39 42            pushi 42 // $42 setPri
  010f:78               push1 
  0110:39 06            pushi 6 // $6 loop
  0112:39 57            pushi 57 // $57 init
  0114:76               push0 
  0115:38 00c6          pushi c6 // $c6 stopUpd
  0118:76               push0 
  0119:72 0e0e          lofsa $0f2a // lamp2
  011c:4a 0e             send e 


        code_011e
  011e:38 00c9          pushi c9 // $c9 ignoreActors
  0121:78               push1 
  0122:78               push1 
  0123:39 42            pushi 42 // $42 setPri
  0125:78               push1 
  0126:39 07            pushi 7 // $7 cel
  0128:39 57            pushi 57 // $57 init
  012a:76               push0 
  012b:38 00c6          pushi c6 // $c6 stopUpd
  012e:76               push0 
  012f:72 0d54          lofsa $0e86 // Bwindow
  0132:4a 14             send 14 

  0134:38 00c8          pushi c8 // $c8 setLoop
  0137:78               push1 
  0138:78               push1 
  0139:38 00a2          pushi a2 // $a2 setCel
  013c:78               push1 
  013d:39 0b            pushi b // $b nsBottom
  013f:39 12            pushi 12 // $12 illegalBits
  0141:78               push1 
  0142:76               push0 
  0143:39 42            pushi 42 // $42 setPri
  0145:78               push1 
  0146:39 04            pushi 4 // $4 x
  0148:39 57            pushi 57 // $57 init
  014a:76               push0 
  014b:38 00c6          pushi c6 // $c6 stopUpd
  014e:76               push0 
  014f:72 0e2a          lofsa $0f7c // panel
  0152:4a 20             send 20 

  0154:39 03            pushi 3 // $3 y
  0156:38 0084          pushi 84 // $84 stop
  0159:39 4a            pushi 4a // $4a pragmaFail
  015b:39 4b            pushi 4b // $4b said
  015d:45 15 06         callb procedure_0015 6 // LoadMany 

  0160:88 00a5            lsg gAct 
  0163:3c                 dup 
  0164:35 00              ldi 0 
  0166:1a                 eq? 
  0167:31 1c              bnt code_0185 
  0169:88 00ad            lsg gSpyFlags 
  016c:35 02              ldi 2 
  016e:12                 and 
  016f:31 0d              bnt code_017e 
  0171:38 010a          pushi 10a // $10a setRegions
  0174:78               push1 
  0175:38 00e0          pushi e0 // $e0 vanishingY
  0178:54 06             self 6 

  017a:35 01              ldi 1 
  017c:a3 00              sal local0 

        code_017e
  017e:35 00              ldi 0 
  0180:a0 00b1            sag gGertieRoomState 
  0183:33 76              jmp code_01fb 

        code_0185
  0185:3c                 dup 
  0186:35 01              ldi 1 
  0188:1a                 eq? 
  0189:31 70              bnt code_01fb 
  018b:88 00b1            lsg gGertieRoomState 
  018e:35 02              ldi 2 
  0190:22                 lt? 
  0191:31 68              bnt code_01fb 
  0193:35 01              ldi 1 
  0195:a3 01              sal local1 
  0197:39 05            pushi 5 // $5 view
  0199:78               push1 
  019a:38 00f6          pushi f6 // $f6 carrying
  019d:39 42            pushi 42 // $42 setPri
  019f:78               push1 
  01a0:39 09            pushi 9 // $9 nsTop
  01a2:39 06            pushi 6 // $6 loop
  01a4:78               push1 
  01a5:7a               push2 
  01a6:39 07            pushi 7 // $7 cel
  01a8:78               push1 
  01a9:76               push0 
  01aa:38 00c5          pushi c5 // $c5 posn
  01ad:7a               push2 
  01ae:39 25            pushi 25 // $25 max
  01b0:39 7f            pushi 7f // $7f setReal
  01b2:38 00a4          pushi a4 // $a4 cycleSpeed
  01b5:78               push1 
  01b6:7a               push2 
  01b7:38 00c9          pushi c9 // $c9 ignoreActors
  01ba:78               push1 
  01bb:76               push0 
  01bc:39 7e            pushi 7e // $7e setCycle
  01be:78               push1 
  01bf:51 16            class Fwd 
  01c1:36                push 
  01c2:72 0cc1          lofsa $0e86 // Bwindow
  01c5:4a 32             send 32 

  01c7:38 00a4          pushi a4 // $a4 cycleSpeed
  01ca:78               push1 
  01cb:7a               push2 
  01cc:39 07            pushi 7 // $7 cel
  01ce:78               push1 
  01cf:78               push1 
  01d0:74 0cb3          lofss $0e86 // Bwindow
  01d3:43 0e 02         callk NumCels 2 

  01d6:36                push 
  01d7:35 02              ldi 2 
  01d9:04                 sub 
  01da:36                push 
  01db:39 7e            pushi 7e // $7e setCycle
  01dd:78               push1 
  01de:51 16            class Fwd 
  01e0:36                push 
  01e1:39 57            pushi 57 // $57 init
  01e3:76               push0 
  01e4:72 0c51          lofsa $0e38 // Twindow
  01e7:4a 16             send 16 

  01e9:39 2b            pushi 2b // $2b number
  01eb:78               push1 
  01ec:39 0c            pushi c // $c nsRight
  01ee:39 06            pushi 6 // $6 loop
  01f0:78               push1 
  01f1:39 ff            pushi ff // $ff checkAni
  01f3:39 2a            pushi 2a // $2a play
  01f5:76               push0 
  01f6:72 0985          lofsa $0b7e // myMusic
  01f9:4a 10             send 10 


        code_01fb
  01fb:3a                toss 
  01fc:89 0c              lsg gPrevRoomNum 
  01fe:35 31              ldi 31 
  0200:1c                 ne? 
  0201:31 1c              bnt code_021f 
  0203:39 05            pushi 5 // $5 view
  0205:78               push1 
  0206:76               push0 
  0207:39 12            pushi 12 // $12 illegalBits
  0209:78               push1 
  020a:38 8004          pushi 8004 // $8004 sel_32772
  020d:38 00c5          pushi c5 // $c5 posn
  0210:7a               push2 
  0211:38 0130          pushi 130 // $130 loopIndex
  0214:39 65            pushi 65 // $65 contains
  0216:39 57            pushi 57 // $57 init
  0218:76               push0 
  0219:81 00              lag gEgo 
  021b:4a 18             send 18 

  021d:33 3e              jmp code_025d 

        code_021f
  021f:39 05            pushi 5 // $5 view
  0221:78               push1 
  0222:76               push0 
  0223:39 12            pushi 12 // $12 illegalBits
  0225:78               push1 
  0226:38 8000          pushi 8000 // $8000 sel_32768
  0229:39 42            pushi 42 // $42 setPri
  022b:78               push1 
  022c:7a               push2 
  022d:39 06            pushi 6 // $6 loop
  022f:78               push1 
  0230:7a               push2 
  0231:38 00c5          pushi c5 // $c5 posn
  0234:7a               push2 
  0235:38 0098          pushi 98 // $98 center
  0238:39 4f            pushi 4f // $4f restore
  023a:39 57            pushi 57 // $57 init
  023c:76               push0 
  023d:81 00              lag gEgo 
  023f:4a 24             send 24 

  0241:8b 00              lsl local0 
  0243:35 00              ldi 0 
  0245:1a                 eq? 
  0246:31 15              bnt code_025d 
  0248:38 00c5          pushi c5 // $c5 posn
  024b:7a               push2 
  024c:38 0098          pushi 98 // $98 center
  024f:39 4f            pushi 4f // $4f restore
  0251:81 00              lag gEgo 
  0253:4a 08             send 8 

  0255:39 7a            pushi 7a // $7a setScript
  0257:78               push1 
  0258:74 099d          lofss $0bf8 // enterPanel
  025b:54 06             self 6 


        code_025d
  025d:48                 ret 
    )

    (method (doit) // method_025e
  025e:76               push0 
  025f:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  0262:31 0a              bnt code_026e 
  0264:7a               push2 
  0265:39 2e            pushi 2e // $2e dx
  0267:76               push0 
  0268:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_026e
  026e:88 00a5            lsg gAct 
  0271:35 01              ldi 1 
  0273:1a                 eq? 
  0274:31 2a              bnt code_02a0 
  0276:88 00b1            lsg gGertieRoomState 
  0279:35 00              ldi 0 
  027b:1a                 eq? 
  027c:31 22              bnt code_02a0 
  027e:39 04            pushi 4 // $4 x
  0280:39 2e            pushi 2e // $2e dx
  0282:78               push1 
  0283:39 2e            pushi 2e // $2e dx
  0285:7a               push2 
  0286:46 00ff 0004 08  calle ff procedure_0004 8 // Printf 

  028c:7a               push2 
  028d:39 2e            pushi 2e // $2e dx
  028f:39 03            pushi 3 // $3 y
  0291:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0297:35 01              ldi 1 
  0299:a0 00b1            sag gGertieRoomState 
  029c:35 01              ldi 1 
  029e:a3 02              sal local2 

        code_02a0
  02a0:38 00da          pushi da // $da inRect
  02a3:39 04            pushi 4 // $4 x
  02a5:39 3c            pushi 3c // $3c doit
  02a7:39 50            pushi 50 // $50 title
  02a9:39 74            pushi 74 // $74 lastSeconds
  02ab:39 68            pushi 68 // $68 release
  02ad:81 00              lag gEgo 
  02af:4a 0c             send c 

  02b1:2f 15               bt code_02c8 
  02b3:38 00da          pushi da // $da inRect
  02b6:39 04            pushi 4 // $4 x
  02b8:38 00b2          pushi b2 // $b2 lastBumped
  02bb:39 52            pushi 52 // $52 icon
  02bd:38 00d5          pushi d5 // $d5 ignoreHorizon
  02c0:39 69            pushi 69 // $69 last
  02c2:81 00              lag gEgo 
  02c4:4a 0c             send c 

  02c6:31 0b              bnt code_02d3 

        code_02c8
  02c8:39 42            pushi 42 // $42 setPri
  02ca:78               push1 
  02cb:39 05            pushi 5 // $5 view
  02cd:81 00              lag gEgo 
  02cf:4a 06             send 6 

  02d1:33 09              jmp code_02dc 

        code_02d3
  02d3:39 42            pushi 42 // $42 setPri
  02d5:78               push1 
  02d6:39 ff            pushi ff // $ff checkAni
  02d8:81 00              lag gEgo 
  02da:4a 06             send 6 


        code_02dc
  02dc:39 3c            pushi 3c // $3c doit
  02de:76               push0 
  02df:57 37 04         super Rm 4 

  02e2:48                 ret 
    )

    (method (dispose) // method_02e3
  02e3:39 58            pushi 58 // $58 dispose
  02e5:76               push0 
  02e6:57 37 04         super Rm 4 

  02e9:48                 ret 
    )

    (method (newRoom) // method_02ea
  02ea:38 00f8          pushi f8 // $f8 newRoom
  02ed:78               push1 
  02ee:8f 01              lsp param1 
  02f0:57 37 06         super Rm 6 

  02f3:48                 ret 
    )

    (method (handleEvent) // method_02f4
  02f4:3f 01             link 1 // (var $1)
  02f6:39 4c            pushi 4c // $4c claimed
  02f8:76               push0 
  02f9:87 01              lap param1 
  02fb:4a 04             send 4 

  02fd:31 03              bnt code_0302 
  02ff:35 01              ldi 1 
  0301:48                 ret 

        code_0302
  0302:39 22            pushi 22 // $22 type
  0304:76               push0 
  0305:87 01              lap param1 
  0307:4a 04             send 4 

  0309:36                push 
  030a:34 0080            ldi 80 
  030d:1a                 eq? 
  030e:30 0109            bnt code_041a 
  0311:78               push1 
  0312:74 0792          lofss $0aa7 // look,find/gertie,body
  0315:43 25 02         callk Said 2 

  0318:31 20              bnt code_033a 
  031a:88 00a5            lsg gAct 
  031d:35 00              ldi 0 
  031f:1a                 eq? 
  0320:31 0a              bnt code_032c 
  0322:39 4c            pushi 4c // $4c claimed
  0324:78               push1 
  0325:76               push0 
  0326:87 01              lap param1 
  0328:4a 06             send 6 

  032a:33 0b              jmp code_0337 

        code_032c
  032c:7a               push2 
  032d:39 2e            pushi 2e // $2e dx
  032f:39 04            pushi 4 // $4 x
  0331:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0337
  0337:32 00e0            jmp code_041a 

        code_033a
  033a:78               push1 
  033b:74 073b          lofss $0a79 // /panel,(door<cachoterie)>
  033e:43 25 02         callk Said 2 

  0341:31 71              bnt code_03b4 
  0343:88 00af            lsg global175 
  0346:35 40              ldi 40 
  0348:12                 and 
  0349:31 3e              bnt code_0389 
  034b:78               push1 
  034c:74 0807          lofss $0b56 // open,bouger
  034f:43 25 02         callk Said 2 

  0352:31 35              bnt code_0389 
  0354:83 00              lal local0 
  0356:18                 not 
  0357:31 23              bnt code_037c 
  0359:38 00db          pushi db // $db onControl
  035c:78               push1 
  035d:76               push0 
  035e:81 00              lag gEgo 
  0360:4a 06             send 6 

  0362:36                push 
  0363:35 10              ldi 10 
  0365:12                 and 
  0366:31 0e              bnt code_0376 
  0368:76               push0 
  0369:45 03 00         callb procedure_0003 0 // HandsOff 

  036c:39 7a            pushi 7a // $7a setScript
  036e:78               push1 
  036f:74 08b6          lofss $0c28 // exiting
  0372:54 06             self 6 

  0374:33 04              jmp code_037a 

        code_0376
  0376:76               push0 
  0377:45 09 00         callb procedure_0009 0 // NotClose 


        code_037a
  037a:33 0b              jmp code_0387 

        code_037c
  037c:7a               push2 
  037d:39 2e            pushi 2e // $2e dx
  037f:39 05            pushi 5 // $5 view
  0381:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0387
  0387:33 29              jmp code_03b2 

        code_0389
  0389:78               push1 
  038a:74 0717          lofss $0aa4 // look
  038d:43 25 02         callk Said 2 

  0390:31 20              bnt code_03b2 
  0392:88 00af            lsg global175 
  0395:35 40              ldi 40 
  0397:12                 and 
  0398:31 0d              bnt code_03a7 
  039a:7a               push2 
  039b:39 2e            pushi 2e // $2e dx
  039d:39 06            pushi 6 // $6 loop
  039f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03a5:33 0b              jmp code_03b2 

        code_03a7
  03a7:7a               push2 
  03a8:39 2e            pushi 2e // $2e dx
  03aa:39 07            pushi 7 // $7 cel
  03ac:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_03b2
  03b2:33 66              jmp code_041a 

        code_03b4
  03b4:78               push1 
  03b5:74 0775          lofss $0b2d // look[<around,at][/room]
  03b8:43 25 02         callk Said 2 

  03bb:31 33              bnt code_03f0 
  03bd:88 00a5            lsg gAct 
  03c0:35 01              ldi 1 
  03c2:1a                 eq? 
  03c3:31 1f              bnt code_03e4 
  03c5:83 01              lal local1 
  03c7:31 1b              bnt code_03e4 
  03c9:39 04            pushi 4 // $4 x
  03cb:39 2e            pushi 2e // $2e dx
  03cd:78               push1 
  03ce:39 2e            pushi 2e // $2e dx
  03d0:7a               push2 
  03d1:46 00ff 0004 08  calle ff procedure_0004 8 // Printf 

  03d7:7a               push2 
  03d8:39 2e            pushi 2e // $2e dx
  03da:39 03            pushi 3 // $3 y
  03dc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03e2:33 0a              jmp code_03ee 

        code_03e4
  03e4:7a               push2 
  03e5:39 2e            pushi 2e // $2e dx
  03e7:76               push0 
  03e8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_03ee
  03ee:33 2a              jmp code_041a 

        code_03f0
  03f0:78               push1 
  03f1:74 0774          lofss $0b68 // sentir/fumee,butt
  03f4:43 25 02         callk Said 2 

  03f7:31 21              bnt code_041a 
  03f9:88 00a5            lsg gAct 
  03fc:35 01              ldi 1 
  03fe:1a                 eq? 
  03ff:31 11              bnt code_0412 
  0401:83 02              lal local2 
  0403:31 0d              bnt code_0412 
  0405:7a               push2 
  0406:39 2e            pushi 2e // $2e dx
  0408:39 08            pushi 8 // $8 underBits
  040a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0410:33 08              jmp code_041a 

        code_0412
  0412:39 4c            pushi 4c // $4c claimed
  0414:78               push1 
  0415:76               push0 
  0416:87 01              lap param1 
  0418:4a 06             send 6 


        code_041a
  041a:48                 ret 
    )

)

// 0bf2
(instance enterPanel 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_041b
  041b:87 01              lap param1 
  041d:65 0a             aTop state 
  041f:36                push 
  0420:3c                 dup 
  0421:35 00              ldi 0 
  0423:1a                 eq? 
  0424:31 30              bnt code_0456 
  0426:76               push0 
  0427:45 03 00         callb procedure_0003 0 // HandsOff 

  042a:35 01              ldi 1 
  042c:a0 00cc            sag global204 
  042f:38 00d3          pushi d3 // $d3 setMotion
  0432:39 04            pushi 4 // $4 x
  0434:51 1d            class MoveTo 
  0436:36                push 
  0437:38 00b4          pushi b4 // $b4 escaping
  043a:39 54            pushi 54 // $54 delete
  043c:7c            pushSelf 
  043d:72 0b3c          lofsa $0f7c // panel
  0440:4a 0c             send c 

  0442:39 2b            pushi 2b // $2b number
  0444:78               push1 
  0445:39 4a            pushi 4a // $4a pragmaFail
  0447:39 06            pushi 6 // $6 loop
  0449:78               push1 
  044a:78               push1 
  044b:39 2a            pushi 2a // $2a play
  044d:76               push0 
  044e:72 072d          lofsa $0b7e // myMusic
  0451:4a 10             send 10 

  0453:32 0086            jmp code_04dc 

        code_0456
  0456:3c                 dup 
  0457:35 01              ldi 1 
  0459:1a                 eq? 
  045a:31 23              bnt code_047f 
  045c:38 00d3          pushi d3 // $d3 setMotion
  045f:39 04            pushi 4 // $4 x
  0461:51 1d            class MoveTo 
  0463:36                push 
  0464:39 04            pushi 4 // $4 x
  0466:76               push0 
  0467:81 00              lag gEgo 
  0469:4a 04             send 4 

  046b:36                push 
  046c:39 03            pushi 3 // $3 y
  046e:76               push0 
  046f:81 00              lag gEgo 
  0471:4a 04             send 4 

  0473:36                push 
  0474:35 0f              ldi f 
  0476:02                 add 
  0477:36                push 
  0478:7c            pushSelf 
  0479:81 00              lag gEgo 
  047b:4a 0c             send c 

  047d:33 5d              jmp code_04dc 

        code_047f
  047f:3c                 dup 
  0480:35 02              ldi 2 
  0482:1a                 eq? 
  0483:31 35              bnt code_04ba 
  0485:39 42            pushi 42 // $42 setPri
  0487:78               push1 
  0488:39 ff            pushi ff // $ff checkAni
  048a:39 12            pushi 12 // $12 illegalBits
  048c:78               push1 
  048d:38 8004          pushi 8004 // $8004 sel_32772
  0490:81 00              lag gEgo 
  0492:4a 0c             send c 

  0494:38 00d3          pushi d3 // $d3 setMotion
  0497:39 04            pushi 4 // $4 x
  0499:51 1d            class MoveTo 
  049b:36                push 
  049c:38 009b          pushi 9b // $9b bottom
  049f:39 54            pushi 54 // $54 delete
  04a1:7c            pushSelf 
  04a2:72 0ad7          lofsa $0f7c // panel
  04a5:4a 0c             send c 

  04a7:39 2b            pushi 2b // $2b number
  04a9:78               push1 
  04aa:39 4b            pushi 4b // $4b said
  04ac:39 06            pushi 6 // $6 loop
  04ae:78               push1 
  04af:78               push1 
  04b0:39 2a            pushi 2a // $2a play
  04b2:76               push0 
  04b3:72 06c8          lofsa $0b7e // myMusic
  04b6:4a 10             send 10 

  04b8:33 22              jmp code_04dc 

        code_04ba
  04ba:3c                 dup 
  04bb:35 03              ldi 3 
  04bd:1a                 eq? 
  04be:31 1c              bnt code_04dc 
  04c0:76               push0 
  04c1:45 04 00         callb procedure_0004 0 // HandsOn 

  04c4:7a               push2 
  04c5:39 2e            pushi 2e // $2e dx
  04c7:39 09            pushi 9 // $9 nsTop
  04c9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04cf:35 00              ldi 0 
  04d1:a0 00cc            sag global204 
  04d4:39 7a            pushi 7a // $7a setScript
  04d6:78               push1 
  04d7:76               push0 
  04d8:63 08             pToa client 
  04da:4a 06             send 6 


        code_04dc
  04dc:3a                toss 
  04dd:48                 ret 
    )

)

// 0c22
(instance exiting 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_04de
  04de:87 01              lap param1 
  04e0:65 0a             aTop state 
  04e2:36                push 
  04e3:3c                 dup 
  04e4:35 00              ldi 0 
  04e6:1a                 eq? 
  04e7:31 2c              bnt code_0515 
  04e9:35 01              ldi 1 
  04eb:a0 00cc            sag global204 
  04ee:38 00d3          pushi d3 // $d3 setMotion
  04f1:39 04            pushi 4 // $4 x
  04f3:51 1d            class MoveTo 
  04f5:36                push 
  04f6:38 00b4          pushi b4 // $b4 escaping
  04f9:39 54            pushi 54 // $54 delete
  04fb:7c            pushSelf 
  04fc:72 0a7d          lofsa $0f7c // panel
  04ff:4a 0c             send c 

  0501:39 2b            pushi 2b // $2b number
  0503:78               push1 
  0504:39 4a            pushi 4a // $4a pragmaFail
  0506:39 06            pushi 6 // $6 loop
  0508:78               push1 
  0509:78               push1 
  050a:39 2a            pushi 2a // $2a play
  050c:76               push0 
  050d:72 066e          lofsa $0b7e // myMusic
  0510:4a 10             send 10 

  0512:32 00b0            jmp code_05c5 

        code_0515
  0515:3c                 dup 
  0516:35 01              ldi 1 
  0518:1a                 eq? 
  0519:31 35              bnt code_0550 
  051b:38 00da          pushi da // $da inRect
  051e:39 04            pushi 4 // $4 x
  0520:38 0096          pushi 96 // $96 busy
  0523:39 57            pushi 57 // $57 init
  0525:38 009a          pushi 9a // $9a left
  0528:39 5a            pushi 5a // $5a showSelf
  052a:81 00              lag gEgo 
  052c:4a 0c             send c 

  052e:31 06              bnt code_0536 
  0530:35 01              ldi 1 
  0532:65 10             aTop cycles 
  0534:33 18              jmp code_054e 

        code_0536
  0536:39 12            pushi 12 // $12 illegalBits
  0538:78               push1 
  0539:38 8000          pushi 8000 // $8000 sel_32768
  053c:38 00d3          pushi d3 // $d3 setMotion
  053f:39 04            pushi 4 // $4 x
  0541:51 1d            class MoveTo 
  0543:36                push 
  0544:38 0098          pushi 98 // $98 center
  0547:39 55            pushi 55 // $55 z
  0549:7c            pushSelf 
  054a:81 00              lag gEgo 
  054c:4a 12             send 12 


        code_054e
  054e:33 75              jmp code_05c5 

        code_0550
  0550:3c                 dup 
  0551:35 02              ldi 2 
  0553:1a                 eq? 
  0554:31 1a              bnt code_0570 
  0556:39 12            pushi 12 // $12 illegalBits
  0558:78               push1 
  0559:38 8000          pushi 8000 // $8000 sel_32768
  055c:38 00d3          pushi d3 // $d3 setMotion
  055f:39 04            pushi 4 // $4 x
  0561:51 1d            class MoveTo 
  0563:36                push 
  0564:38 009a          pushi 9a // $9a left
  0567:39 4f            pushi 4f // $4f restore
  0569:7c            pushSelf 
  056a:81 00              lag gEgo 
  056c:4a 12             send 12 

  056e:33 55              jmp code_05c5 

        code_0570
  0570:3c                 dup 
  0571:35 03              ldi 3 
  0573:1a                 eq? 
  0574:31 2e              bnt code_05a4 
  0576:39 42            pushi 42 // $42 setPri
  0578:78               push1 
  0579:7a               push2 
  057a:81 00              lag gEgo 
  057c:4a 06             send 6 

  057e:38 00d3          pushi d3 // $d3 setMotion
  0581:39 04            pushi 4 // $4 x
  0583:51 1d            class MoveTo 
  0585:36                push 
  0586:38 009b          pushi 9b // $9b bottom
  0589:39 54            pushi 54 // $54 delete
  058b:7c            pushSelf 
  058c:72 09ed          lofsa $0f7c // panel
  058f:4a 0c             send c 

  0591:39 2b            pushi 2b // $2b number
  0593:78               push1 
  0594:39 4b            pushi 4b // $4b said
  0596:39 06            pushi 6 // $6 loop
  0598:78               push1 
  0599:78               push1 
  059a:39 2a            pushi 2a // $2a play
  059c:76               push0 
  059d:72 05de          lofsa $0b7e // myMusic
  05a0:4a 10             send 10 

  05a2:33 21              jmp code_05c5 

        code_05a4
  05a4:3c                 dup 
  05a5:35 04              ldi 4 
  05a7:1a                 eq? 
  05a8:31 1b              bnt code_05c5 
  05aa:76               push0 
  05ab:45 04 00         callb procedure_0004 0 // HandsOn 

  05ae:35 00              ldi 0 
  05b0:a0 00cc            sag global204 
  05b3:38 00f8          pushi f8 // $f8 newRoom
  05b6:78               push1 
  05b7:39 31            pushi 31 // $31 b-i1
  05b9:81 02              lag gCurRoom 
  05bb:4a 06             send 6 

  05bd:39 7a            pushi 7a // $7a setScript
  05bf:78               push1 
  05c0:76               push0 
  05c1:63 08             pToa client 
  05c3:4a 06             send 6 


        code_05c5
  05c5:3a                toss 
  05c6:48                 ret 
    )

)

// 0c52
(instance closeWindow 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_05c7
  05c7:87 01              lap param1 
  05c9:65 0a             aTop state 
  05cb:36                push 
  05cc:3c                 dup 
  05cd:35 00              ldi 0 
  05cf:1a                 eq? 
  05d0:31 17              bnt code_05e9 
  05d2:76               push0 
  05d3:45 03 00         callb procedure_0003 0 // HandsOff 

  05d6:38 00d3          pushi d3 // $d3 setMotion
  05d9:39 04            pushi 4 // $4 x
  05db:51 1d            class MoveTo 
  05dd:36                push 
  05de:39 4b            pushi 4b // $4b said
  05e0:39 78            pushi 78 // $78 changeState
  05e2:7c            pushSelf 
  05e3:81 00              lag gEgo 
  05e5:4a 0c             send c 

  05e7:33 72              jmp code_065b 

        code_05e9
  05e9:3c                 dup 
  05ea:35 01              ldi 1 
  05ec:1a                 eq? 
  05ed:31 35              bnt code_0624 
  05ef:39 06            pushi 6 // $6 loop
  05f1:78               push1 
  05f2:78               push1 
  05f3:81 00              lag gEgo 
  05f5:4a 06             send 6 

  05f7:38 0089          pushi 89 // $89 hide
  05fa:76               push0 
  05fb:72 083a          lofsa $0e38 // Twindow
  05fe:4a 04             send 4 

  0600:38 00c5          pushi c5 // $c5 posn
  0603:7a               push2 
  0604:39 25            pushi 25 // $25 max
  0606:39 7f            pushi 7f // $7f setReal
  0608:39 06            pushi 6 // $6 loop
  060a:78               push1 
  060b:76               push0 
  060c:39 07            pushi 7 // $7 cel
  060e:78               push1 
  060f:39 03            pushi 3 // $3 y
  0611:39 42            pushi 42 // $42 setPri
  0613:78               push1 
  0614:39 07            pushi 7 // $7 cel
  0616:39 7e            pushi 7e // $7e setCycle
  0618:7a               push2 
  0619:51 1b            class Beg 
  061b:36                push 
  061c:7c            pushSelf 
  061d:72 0866          lofsa $0e86 // Bwindow
  0620:4a 22             send 22 

  0622:33 37              jmp code_065b 

        code_0624
  0624:3c                 dup 
  0625:35 02              ldi 2 
  0627:1a                 eq? 
  0628:31 31              bnt code_065b 
  062a:38 0084          pushi 84 // $84 stop
  062d:76               push0 
  062e:72 054d          lofsa $0b7e // myMusic
  0631:4a 04             send 4 

  0633:38 00c9          pushi c9 // $c9 ignoreActors
  0636:78               push1 
  0637:78               push1 
  0638:39 42            pushi 42 // $42 setPri
  063a:78               push1 
  063b:39 07            pushi 7 // $7 cel
  063d:38 00c6          pushi c6 // $c6 stopUpd
  0640:76               push0 
  0641:72 0842          lofsa $0e86 // Bwindow
  0644:4a 10             send 10 

  0646:35 00              ldi 0 
  0648:a3 01              sal local1 
  064a:35 03              ldi 3 
  064c:a0 00b1            sag gGertieRoomState 
  064f:76               push0 
  0650:45 04 00         callb procedure_0004 0 // HandsOn 

  0653:39 7a            pushi 7a // $7a setScript
  0655:78               push1 
  0656:76               push0 
  0657:63 08             pToa client 
  0659:4a 06             send 6 


        code_065b
  065b:3a                toss 
  065c:48                 ret 
    )

)

// 0c82
(instance horse of RPicView
    (properties
        y $35
        x $b7
        z $0
        heading $0
        view $92
        loop $0
        cel $0
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_065d
  065d:78               push1 
  065e:74 04af          lofss $0b10 // look<behind,below/painting
  0661:43 25 02         callk Said 2 

  0664:31 0d              bnt code_0673 
  0666:7a               push2 
  0667:39 2e            pushi 2e // $2e dx
  0669:39 0a            pushi a // $a nsLeft
  066b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0671:33 76              jmp code_06e9 

        code_0673
  0673:78               push1 
  0674:74 0427          lofss $0a9e // get/painting
  0677:43 25 02         callk Said 2 

  067a:31 0d              bnt code_0689 
  067c:7a               push2 
  067d:39 2e            pushi 2e // $2e dx
  067f:39 0b            pushi b // $b nsBottom
  0681:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0687:33 60              jmp code_06e9 

        code_0689
  0689:78               push1 
  068a:74 04cf          lofss $0b5c // open/painting
  068d:43 25 02         callk Said 2 

  0690:31 0d              bnt code_069f 
  0692:7a               push2 
  0693:39 2e            pushi 2e // $2e dx
  0695:39 0c            pushi c // $c nsRight
  0697:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  069d:33 4a              jmp code_06e9 

        code_069f
  069f:78               push1 
  06a0:74 041c          lofss $0abf // look/eye,(painting<eye)
  06a3:43 25 02         callk Said 2 

  06a6:31 0d              bnt code_06b5 
  06a8:7a               push2 
  06a9:39 2e            pushi 2e // $2e dx
  06ab:39 0d            pushi d // $d lsTop
  06ad:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06b3:33 34              jmp code_06e9 

        code_06b5
  06b5:39 03            pushi 3 // $3 y
  06b7:7c            pushSelf 
  06b8:8f 01              lsp param1 
  06ba:39 03            pushi 3 // $3 y
  06bc:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  06c2:2f 12               bt code_06d6 
  06c4:78               push1 
  06c5:74 041a          lofss $0ae2 // look/painting
  06c8:43 25 02         callk Said 2 

  06cb:2f 09               bt code_06d6 
  06cd:78               push1 
  06ce:74 0417          lofss $0ae8 // look/painting/painting
  06d1:43 25 02         callk Said 2 

  06d4:31 13              bnt code_06e9 

        code_06d6
  06d6:39 4c            pushi 4c // $4c claimed
  06d8:78               push1 
  06d9:78               push1 
  06da:87 01              lap param1 
  06dc:4a 06             send 6 

  06de:7a               push2 
  06df:39 2e            pushi 2e // $2e dx
  06e1:39 0e            pushi e // $e lsLeft
  06e3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06e9
  06e9:48                 ret 
    )

)

// 0cb8
(instance bed1 of RPicView
    (properties
        y $6a
        x $6e
        z $0
        heading $0
        view $92
        loop $0
        cel $4
        priority $6
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_06ea
  06ea:39 03            pushi 3 // $3 y
  06ec:7c            pushSelf 
  06ed:8f 01              lsp param1 
  06ef:39 03            pushi 3 // $3 y
  06f1:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  06f7:31 13              bnt code_070c 
  06f9:39 4c            pushi 4c // $4c claimed
  06fb:78               push1 
  06fc:78               push1 
  06fd:87 01              lap param1 
  06ff:4a 06             send 6 

  0701:7a               push2 
  0702:39 2e            pushi 2e // $2e dx
  0704:39 0f            pushi f // $f lsBottom
  0706:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_070c
  070c:48                 ret 
    )

)

// 0cee
(instance chest of RPicView
    (properties
        y $5d
        x $b6
        z $0
        heading $0
        view $92
        loop $0
        cel $1
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_070d
  070d:39 03            pushi 3 // $3 y
  070f:7c            pushSelf 
  0710:8f 01              lsp param1 
  0712:39 03            pushi 3 // $3 y
  0714:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  071a:2f 09               bt code_0725 
  071c:78               push1 
  071d:74 0402          lofss $0b22 // look[<!*]/drawer
  0720:43 25 02         callk Said 2 

  0723:31 13              bnt code_0738 

        code_0725
  0725:39 4c            pushi 4c // $4c claimed
  0727:78               push1 
  0728:78               push1 
  0729:87 01              lap param1 
  072b:4a 06             send 6 

  072d:7a               push2 
  072e:39 2e            pushi 2e // $2e dx
  0730:39 10            pushi 10 // $10 lsRight
  0732:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0738
  0738:48                 ret 
    )

)

// 0d24
(instance bed2 of RPicView
    (properties
        y $6b
        x $d7
        z $0
        heading $0
        view $92
        loop $0
        cel $5
        priority $6
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0739
  0739:83 00              lal local0 
  073b:18                 not 
  073c:31 1e              bnt code_075c 
  073e:39 03            pushi 3 // $3 y
  0740:7c            pushSelf 
  0741:8f 01              lsp param1 
  0743:39 03            pushi 3 // $3 y
  0745:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  074b:31 0f              bnt code_075c 
  074d:39 4c            pushi 4c // $4c claimed
  074f:78               push1 
  0750:78               push1 
  0751:87 01              lap param1 
  0753:4a 06             send 6 

  0755:78               push1 
  0756:74 0944          lofss $109d // bed
  0759:45 19 02         callb procedure_0019 2 // DoLook 


        code_075c
  075c:48                 ret 
    )

)

// 0d5a
(instance table2 of RPicView
    (properties
        y $5e
        x $100
        z $0
        heading $0
        view $92
        loop $0
        cel $2
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_075d
  075d:39 03            pushi 3 // $3 y
  075f:7c            pushSelf 
  0760:8f 01              lsp param1 
  0762:39 03            pushi 3 // $3 y
  0764:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  076a:31 0f              bnt code_077b 
  076c:39 4c            pushi 4c // $4c claimed
  076e:78               push1 
  076f:78               push1 
  0770:87 01              lap param1 
  0772:4a 06             send 6 

  0774:78               push1 
  0775:74 099a          lofss $1112 // table
  0778:45 19 02         callb procedure_0019 2 // DoLook 


        code_077b
  077b:48                 ret 
    )

)

// 0d90
(instance sofa of RPicView
    (properties
        y $9d
        x $85
        z $0
        heading $0
        view $92
        loop $0
        cel $7
        priority $b
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_077c
  077c:39 03            pushi 3 // $3 y
  077e:7c            pushSelf 
  077f:8f 01              lsp param1 
  0781:39 03            pushi 3 // $3 y
  0783:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0789:31 0f              bnt code_079a 
  078b:39 4c            pushi 4c // $4c claimed
  078d:78               push1 
  078e:78               push1 
  078f:87 01              lap param1 
  0791:4a 06             send 6 

  0793:78               push1 
  0794:74 0926          lofss $10bd // couch
  0797:45 19 02         callb procedure_0019 2 // DoLook 


        code_079a
  079a:48                 ret 
    )

)

// 0dc6
(instance suit1 of RPicView
    (properties
        y $77
        x $d3
        z $0
        heading $0
        view $92
        loop $0
        cel $3
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_079b
  079b:78               push1 
  079c:74 03a9          lofss $0b48 // open,(look<dans)/bagage
  079f:43 25 02         callk Said 2 

  07a2:31 0d              bnt code_07b1 
  07a4:7a               push2 
  07a5:39 2e            pushi 2e // $2e dx
  07a7:39 11            pushi 11 // $11 signal
  07a9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07af:33 41              jmp code_07f2 

        code_07b1
  07b1:78               push1 
  07b2:74 02e3          lofss $0a98 // get/bagage
  07b5:43 25 02         callk Said 2 

  07b8:31 0d              bnt code_07c7 
  07ba:7a               push2 
  07bb:39 2e            pushi 2e // $2e dx
  07bd:39 12            pushi 12 // $12 illegalBits
  07bf:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07c5:33 2b              jmp code_07f2 

        code_07c7
  07c7:39 03            pushi 3 // $3 y
  07c9:7c            pushSelf 
  07ca:8f 01              lsp param1 
  07cc:39 03            pushi 3 // $3 y
  07ce:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  07d4:2f 09               bt code_07df 
  07d6:78               push1 
  07d7:74 02f9          lofss $0ad3 // look/bagage
  07da:43 25 02         callk Said 2 

  07dd:31 13              bnt code_07f2 

        code_07df
  07df:39 4c            pushi 4c // $4c claimed
  07e1:78               push1 
  07e2:78               push1 
  07e3:87 01              lap param1 
  07e5:4a 06             send 6 

  07e7:7a               push2 
  07e8:39 2e            pushi 2e // $2e dx
  07ea:39 13            pushi 13 // $13 brTop
  07ec:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_07f2
  07f2:48                 ret 
    )

)

// 0dfc
(instance suit2 of RPicView
    (properties
        y $56
        x $6a
        z $0
        heading $0
        view $92
        loop $0
        cel $6
        priority $7
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_07f3
  07f3:39 03            pushi 3 // $3 y
  07f5:7c            pushSelf 
  07f6:8f 01              lsp param1 
  07f8:39 03            pushi 3 // $3 y
  07fa:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0800:31 13              bnt code_0815 
  0802:39 4c            pushi 4c // $4c claimed
  0804:78               push1 
  0805:78               push1 
  0806:87 01              lap param1 
  0808:4a 06             send 6 

  080a:7a               push2 
  080b:39 2e            pushi 2e // $2e dx
  080d:39 13            pushi 13 // $13 brTop
  080f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0815
  0815:48                 ret 
    )

)

// 0e32
(instance Twindow of Prop
    (properties
        y $25
        x $3c
        z $0
        heading $0
        yStep $2
        view $f6
        loop $1
        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
    )
)

// 0e80
(instance Bwindow of Prop
    (properties
        y $7f
        x $25
        z $0
        heading $0
        yStep $2
        view $f6
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0816
  0816:78               push1 
  0817:74 0299          lofss $0ab3 // look/curtain
  081a:43 25 02         callk Said 2 

  081d:31 1c              bnt code_083b 
  081f:83 01              lal local1 
  0821:31 0d              bnt code_0830 
  0823:7a               push2 
  0824:39 2e            pushi 2e // $2e dx
  0826:39 14            pushi 14 // $14 brLeft
  0828:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  082e:33 08              jmp code_0838 

        code_0830
  0830:39 4c            pushi 4c // $4c claimed
  0832:78               push1 
  0833:76               push0 
  0834:87 01              lap param1 
  0836:4a 06             send 6 


        code_0838
  0838:32 0128            jmp code_0963 

        code_083b
  083b:78               push1 
  083c:74 0229          lofss $0a68 // (aller,climb,hop)<exterieur/fenetre
  083f:43 25 02         callk Said 2 

  0842:31 1f              bnt code_0863 
  0844:83 01              lal local1 
  0846:31 0d              bnt code_0855 
  0848:7a               push2 
  0849:39 2e            pushi 2e // $2e dx
  084b:39 15            pushi 15 // $15 brBottom
  084d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0853:33 0b              jmp code_0860 

        code_0855
  0855:7a               push2 
  0856:39 2e            pushi 2e // $2e dx
  0858:39 16            pushi 16 // $16 brRight
  085a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0860
  0860:32 0100            jmp code_0963 

        code_0863
  0863:78               push1 
  0864:74 02fb          lofss $0b62 // open/fenetre
  0867:43 25 02         callk Said 2 

  086a:31 1f              bnt code_088b 
  086c:83 01              lal local1 
  086e:31 0d              bnt code_087d 
  0870:7a               push2 
  0871:39 2e            pushi 2e // $2e dx
  0873:39 17            pushi 17 // $17 name
  0875:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  087b:33 0b              jmp code_0888 

        code_087d
  087d:7a               push2 
  087e:39 2e            pushi 2e // $2e dx
  0880:39 18            pushi 18 // $18 key
  0882:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0888
  0888:32 00d8            jmp code_0963 

        code_088b
  088b:78               push1 
  088c:74 01f7          lofss $0a86 // clore/fenetre
  088f:43 25 02         callk Said 2 

  0892:31 31              bnt code_08c5 
  0894:83 01              lal local1 
  0896:31 1f              bnt code_08b7 
  0898:38 00db          pushi db // $db onControl
  089b:78               push1 
  089c:76               push0 
  089d:81 00              lag gEgo 
  089f:4a 06             send 6 

  08a1:36                push 
  08a2:35 08              ldi 8 
  08a4:12                 and 
  08a5:31 0a              bnt code_08b1 
  08a7:39 7a            pushi 7a // $7a setScript
  08a9:78               push1 
  08aa:74 03ab          lofss $0c58 // closeWindow
  08ad:54 06             self 6 

  08af:33 04              jmp code_08b5 

        code_08b1
  08b1:76               push0 
  08b2:45 09 00         callb procedure_0009 0 // NotClose 


        code_08b5
  08b5:33 0b              jmp code_08c2 

        code_08b7
  08b7:7a               push2 
  08b8:39 2e            pushi 2e // $2e dx
  08ba:39 19            pushi 19 // $19 time
  08bc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_08c2
  08c2:32 009e            jmp code_0963 

        code_08c5
  08c5:78               push1 
  08c6:74 0274          lofss $0b3d // look[<bas]/dirt
  08c9:43 25 02         callk Said 2 

  08cc:2f 12               bt code_08e0 
  08ce:78               push1 
  08cf:74 0225          lofss $0af7 // look<(bas,exterieur)
  08d2:43 25 02         callk Said 2 

  08d5:2f 09               bt code_08e0 
  08d7:78               push1 
  08d8:74 0227          lofss $0b02 // look<(exterieur,through)/fenetre
  08db:43 25 02         callk Said 2 

  08de:31 30              bnt code_0910 

        code_08e0
  08e0:83 01              lal local1 
  08e2:31 22              bnt code_0906 
  08e4:38 00db          pushi db // $db onControl
  08e7:78               push1 
  08e8:76               push0 
  08e9:81 00              lag gEgo 
  08eb:4a 06             send 6 

  08ed:36                push 
  08ee:35 08              ldi 8 
  08f0:12                 and 
  08f1:31 0d              bnt code_0900 
  08f3:7a               push2 
  08f4:39 2e            pushi 2e // $2e dx
  08f6:39 1a            pushi 1a // $1a text
  08f8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08fe:33 04              jmp code_0904 

        code_0900
  0900:76               push0 
  0901:45 09 00         callb procedure_0009 0 // NotClose 


        code_0904
  0904:33 08              jmp code_090e 

        code_0906
  0906:39 4c            pushi 4c // $4c claimed
  0908:78               push1 
  0909:76               push0 
  090a:87 01              lap param1 
  090c:4a 06             send 6 


        code_090e
  090e:33 53              jmp code_0963 

        code_0910
  0910:39 03            pushi 3 // $3 y
  0912:7c            pushSelf 
  0913:8f 01              lsp param1 
  0915:39 03            pushi 3 // $3 y
  0917:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  091d:31 22              bnt code_0941 
  091f:39 4c            pushi 4c // $4c claimed
  0921:78               push1 
  0922:78               push1 
  0923:87 01              lap param1 
  0925:4a 06             send 6 

  0927:83 01              lal local1 
  0929:31 0d              bnt code_0938 
  092b:7a               push2 
  092c:39 2e            pushi 2e // $2e dx
  092e:39 1b            pushi 1b // $1b elements
  0930:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0936:33 07              jmp code_093f 

        code_0938
  0938:78               push1 
  0939:74 07e3          lofss $111f // window
  093c:45 19 02         callb procedure_0019 2 // DoLook 


        code_093f
  093f:33 22              jmp code_0963 

        code_0941
  0941:78               push1 
  0942:74 01ac          lofss $0af1 // look/fenetre
  0945:43 25 02         callk Said 2 

  0948:31 19              bnt code_0963 
  094a:83 01              lal local1 
  094c:31 0d              bnt code_095b 
  094e:7a               push2 
  094f:39 2e            pushi 2e // $2e dx
  0951:39 1b            pushi 1b // $1b elements
  0953:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0959:33 08              jmp code_0963 

        code_095b
  095b:39 4c            pushi 4c // $4c claimed
  095d:78               push1 
  095e:76               push0 
  095f:87 01              lap param1 
  0961:4a 06             send 6 


        code_0963
  0963:48                 ret 
    )

)

// 0ed2
(instance lamp1 of Prop
    (properties
        y $2d
        x $78
        z $0
        heading $0
        yStep $2
        view $94
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0964
  0964:39 03            pushi 3 // $3 y
  0966:7c            pushSelf 
  0967:8f 01              lsp param1 
  0969:39 03            pushi 3 // $3 y
  096b:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0971:31 0f              bnt code_0982 
  0973:39 4c            pushi 4c // $4c claimed
  0975:78               push1 
  0976:78               push1 
  0977:87 01              lap param1 
  0979:4a 06             send 6 

  097b:78               push1 
  097c:74 075d          lofss $10dc // lamp
  097f:45 19 02         callb procedure_0019 2 // DoLook 


        code_0982
  0982:48                 ret 
    )

)

// 0f24
(instance lamp2 of Prop
    (properties
        y $2e
        x $fa
        z $0
        heading $0
        yStep $2
        view $94
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0983
  0983:39 03            pushi 3 // $3 y
  0985:7c            pushSelf 
  0986:8f 01              lsp param1 
  0988:39 03            pushi 3 // $3 y
  098a:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0990:31 0f              bnt code_09a1 
  0992:39 4c            pushi 4c // $4c claimed
  0994:78               push1 
  0995:78               push1 
  0996:87 01              lap param1 
  0998:4a 06             send 6 

  099a:78               push1 
  099b:74 073e          lofss $10dc // lamp
  099e:45 19 02         callb procedure_0019 2 // DoLook 


        code_09a1
  09a1:48                 ret 
    )

)

// 0f76
(instance panel of Act
    (properties
        y $54
        x $9b
        z $0
        heading $0
        yStep $2
        view $92
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)

// 0fda
(instance table of Prop
    (properties
        y $6f
        x $48
        z $0
        heading $0
        yStep $2
        view $92
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_09a2
  09a2:88 00a5            lsg gAct 
  09a5:35 01              ldi 1 
  09a7:1a                 eq? 
  09a8:31 6a              bnt code_0a14 
  09aa:88 00b1            lsg gGertieRoomState 
  09ad:35 02              ldi 2 
  09af:1c                 ne? 
  09b0:31 62              bnt code_0a14 
  09b2:78               push1 
  09b3:74 0103          lofss $0ab9 // look/dirt
  09b6:43 25 02         callk Said 2 

  09b9:2f 09               bt code_09c4 
  09bb:78               push1 
  09bc:74 015d          lofss $0b1c // look<bas
  09bf:43 25 02         callk Said 2 

  09c2:31 0d              bnt code_09d1 

        code_09c4
  09c4:7a               push2 
  09c5:39 2e            pushi 2e // $2e dx
  09c7:39 1c            pushi 1c // $1c color
  09c9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  09cf:33 41              jmp code_0a12 

        code_09d1
  09d1:78               push1 
  09d2:74 00b7          lofss $0a8c // get,arranger/nightstand,foliage
  09d5:43 25 02         callk Said 2 

  09d8:31 0d              bnt code_09e7 
  09da:7a               push2 
  09db:39 2e            pushi 2e // $2e dx
  09dd:39 1d            pushi 1d // $1d back
  09df:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  09e5:33 2b              jmp code_0a12 

        code_09e7
  09e7:78               push1 
  09e8:74 00ee          lofss $0ad9 // look/nightstand,foliage
  09eb:43 25 02         callk Said 2 

  09ee:2f 0f               bt code_09ff 
  09f0:39 03            pushi 3 // $3 y
  09f2:7c            pushSelf 
  09f3:8f 01              lsp param1 
  09f5:39 03            pushi 3 // $3 y
  09f7:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  09fd:31 13              bnt code_0a12 

        code_09ff
  09ff:7a               push2 
  0a00:39 2e            pushi 2e // $2e dx
  0a02:39 1e            pushi 1e // $1e mode
  0a04:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a0a:39 4c            pushi 4c // $4c claimed
  0a0c:78               push1 
  0a0d:78               push1 
  0a0e:87 01              lap param1 
  0a10:4a 06             send 6 


        code_0a12
  0a12:33 23              jmp code_0a37 

        code_0a14
  0a14:78               push1 
  0a15:74 00b5          lofss $0acd // look/foliage
  0a18:43 25 02         callk Said 2 

  0a1b:2f 0f               bt code_0a2c 
  0a1d:39 03            pushi 3 // $3 y
  0a1f:7c            pushSelf 
  0a20:8f 01              lsp param1 
  0a22:39 03            pushi 3 // $3 y
  0a24:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0a2a:31 0b              bnt code_0a37 

        code_0a2c
  0a2c:7a               push2 
  0a2d:39 2e            pushi 2e // $2e dx
  0a2f:39 1f            pushi 1f // $1f style
  0a31:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0a37
  0a37:48                 ret 
    )

)

// 102c
(instance plant of Prop
    (properties
        y $6d
        x $63
        z $0
        heading $0
        yStep $2
        view $92
        loop $0
        cel $a
        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_0a38
  0a38:39 03            pushi 3 // $3 y
  0a3a:7c            pushSelf 
  0a3b:8f 01              lsp param1 
  0a3d:39 03            pushi 3 // $3 y
  0a3f:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0a45:2f 09               bt code_0a50 
  0a47:78               push1 
  0a48:74 0082          lofss $0acd // look/foliage
  0a4b:43 25 02         callk Said 2 

  0a4e:31 13              bnt code_0a63 

        code_0a50
  0a50:39 4c            pushi 4c // $4c claimed
  0a52:78               push1 
  0a53:78               push1 
  0a54:87 01              lap param1 
  0a56:4a 06             send 6 

  0a58:7a               push2 
  0a59:39 2e            pushi 2e // $2e dx
  0a5b:39 20            pushi 20 // $20 state
  0a5d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0a63
  0a63:48                 ret 
    )

)



