(script 38)

(string
    string_1b58 "Bdoor"
    string_1b5e "Door"
    string_1b63 "Fdoor"
    string_1b69 "Room38"
    string_1b70 "bar"
    string_1b74 "chair"
    string_1b7a "chair1"
    string_1b81 "chair2"
    string_1b88 "chair3"
    string_1b8f "chair4"
    string_1b96 "couch"
    string_1b9c "decantar"
    string_1ba5 "enterPanel"
    string_1bb0 "exiting"
    string_1bb8 "feedParrot"
    string_1bc3 "glass"
    string_1bc9 "horse"
    string_1bcf "lamp"
    string_1bd4 "lamp1"
    string_1bda "lamp2"
    string_1be0 "myDoor"
    string_1be7 "parrot"
    string_1bee "portrait"
    string_1bf7 "sofa"
    string_1bfc "sofa1"
    string_1c02 "sofa2"
    string_1c08 "soundFX"
    string_1c10 "stand"
    string_1c16 "statue"
    string_1c1d "stool1"
    string_1c24 "stool2"
    string_1c2b "table"
    string_1c31 "table1"
    string_1c38 "table2"
    string_1c3f "table3"
)

(said
    said_1204 /*/!*>
    said_120c /*/parrot>
    said_1214 /*<parrot>
    said_121c //biscuit
    said_1221 /biscuit
    said_1225 /aliments
    said_1229 /painting>
    said_122e /panel,(door<cachoterie)>
    said_123b /parrot/*>
    said_1243 /parrot>
    said_1248 /parrot[/!*]
    said_1251 ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
    said_1270 attraper,get,caliner
    said_1279 boire,for,get/carafe,alcohol,boire
    said_128b boire/[<alcohol]
    said_1294 get
    said_1297 get,bouger,rotate/monument
    said_12a3 get/blaze
    said_12a9 get/glass
    said_12af abattre
    said_12b2 embrasser
    said_12b5 look
    said_12b8 look,look[<at]/glass/monocle<avec
    said_12cc look/alcohol
    said_12d2 look/bar
    said_12d8 look/blaze
    said_12de look/carafe
    said_12e4 look/door
    said_12ea look/eye/gertie,dame
    said_12f6 look/eye>
    said_12fd look/eye[<gertie,dame,painting]
    said_130e look/empreinte/glass
    said_1317 look/gertie,dame
    said_1320 look/gertie,dame/painting
    said_132c look/glass
    said_1332 look/glass/monocle>
    said_133c look/monument
    said_1342 look/painting
    said_1348 look/parrot,birdstand,debout
    said_1354 look<behind,below/painting
    said_1360 look<below,behind,dans/bar
    said_136f look<dans/carafe
    said_1378 look<dans/glass
    said_1381 look<actionner<monocle/glass
    said_138d look[<around,at][/room]
    said_139d open
    said_13a0 open,bouger
    said_13a6 open/carafe,alcohol
    said_13af appuyer,(look<below)/monument
    said_13bd hold,feed,deliver>
    said_13c7 asseoir/bar,barstool
    said_13d0 bonjour
)

(synonym
    parrot | perroquet | polly = aigle | bird | eagle | oiseau
    room = parlor | salon
)

(local
    local0 = $0000
    local1 = $0000
    local2 = $0000
    local3 = $0000
    local4 = $0000
    local5 = $0000
    local6 = $0000
)

// 13da
(instance public Room38 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $26
        style $ffff
        horizon $0
        controls $0
        north $0
        east $0
        south $0
        west $0
        curPic $0
        picAngle $0
        vanishingX $a0
        vanishingY $8ad0
        vertAngle $0
    )
    (method (init) // method_001a
  001a:39 57            pushi 57 // $57 init
  001c:76               push0 
  001d:57 37 04         super Rm 4 

  0020:35 25              ldi 25 
  0022:65 20             aTop west 
  0024:35 00              ldi 0 
  0026:a3 00              sal local0 
  0028:76               push0 
  0029:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  002c:a3 06              sal local6 
  002e:88 00a5            lsg gAct 
  0031:35 05              ldi 5 
  0033:20                 ge? 
  0034:31 1d              bnt code_0053 
  0036:39 61            pushi 61 // $61 add
  0038:78               push1 
  0039:74 184c          lofss $1888 // glass
  003c:81 0a              lag gAddToPics 
  003e:4a 06             send 6 

  0040:38 010b          pushi 10b // $10b setFeatures
  0043:78               push1 
  0044:74 1841          lofss $1888 // glass
  0047:54 06             self 6 

  0049:7a               push2 
  004a:38 0080          pushi 80 // $80 timeLeft
  004d:38 027e          pushi 27e // $27e sel_638
  0050:43 00 04         callk Load 4 


        code_0053
  0053:88 00a5            lsg gAct 
  0056:35 00              ldi 0 
  0058:1c                 ne? 
  0059:31 12              bnt code_006d 
  005b:88 00a5            lsg gAct 
  005e:35 04              ldi 4 
  0060:1c                 ne? 
  0061:31 0a              bnt code_006d 
  0063:39 61            pushi 61 // $61 add
  0065:78               push1 
  0066:74 1855          lofss $18be // stool1
  0069:81 0a              lag gAddToPics 
  006b:4a 06             send 6 


        code_006d
  006d:88 00a5            lsg gAct 
  0070:35 02              ldi 2 
  0072:22                 lt? 
  0073:31 0c              bnt code_0081 
  0075:39 57            pushi 57 // $57 init
  0077:76               push0 
  0078:38 00c6          pushi c6 // $c6 stopUpd
  007b:76               push0 
  007c:72 17b7          lofsa $1836 // decantar
  007f:4a 08             send 8 


        code_0081
  0081:39 61            pushi 61 // $61 add
  0083:39 0f            pushi f // $f lsBottom
  0085:74 146c          lofss $14f4 // bar
  0088:74 14d5          lofss $1560 // statue
  008b:74 1508          lofss $1596 // sofa1
  008e:74 153b          lofss $15cc // sofa2
  0091:74 1610          lofss $16a4 // table1
  0094:74 16af          lofss $1746 // table2
  0097:74 1490          lofss $152a // table3
  009a:74 1565          lofss $1602 // portrait
  009d:74 1598          lofss $1638 // horse
  00a0:74 15cb          lofss $166e // chair1
  00a3:74 1634          lofss $16da // chair2
  00a6:74 1667          lofss $1710 // chair3
  00a9:74 1722          lofss $17ce // stand
  00ac:74 1845          lofss $18f4 // stool2
  00af:74 174e          lofss $1800 // couch
  00b2:39 62            pushi 62 // $62 eachElementDo
  00b4:78               push1 
  00b5:39 57            pushi 57 // $57 init
  00b7:39 3c            pushi 3c // $3c doit
  00b9:76               push0 
  00ba:81 0a              lag gAddToPics 
  00bc:4a 2c             send 2c 

  00be:38 010b          pushi 10b // $10b setFeatures
  00c1:39 0d            pushi d // $d lsTop
  00c3:74 14d0          lofss $1596 // sofa1
  00c6:74 1503          lofss $15cc // sofa2
  00c9:74 15d8          lofss $16a4 // table1
  00cc:74 1677          lofss $1746 // table2
  00cf:74 1458          lofss $152a // table3
  00d2:74 152d          lofss $1602 // portrait
  00d5:74 1596          lofss $166e // chair1
  00d8:74 15ff          lofss $16da // chair2
  00db:74 1632          lofss $1710 // chair3
  00de:74 171f          lofss $1800 // couch
  00e1:74 1554          lofss $1638 // horse
  00e4:74 1479          lofss $1560 // statue
  00e7:74 140a          lofss $14f4 // bar
  00ea:54 1e             self 1e 

  00ec:39 57            pushi 57 // $57 init
  00ee:76               push0 
  00ef:38 00c6          pushi c6 // $c6 stopUpd
  00f2:76               push0 
  00f3:72 1686          lofsa $177c // chair4
  00f6:4a 08             send 8 

  00f8:80 00df            lag gDetailLevel 
  00fb:31 3b              bnt code_0138 
  00fd:39 7e            pushi 7e // $7e setCycle
  00ff:78               push1 
  0100:51 16            class Fwd 
  0102:36                push 
  0103:39 57            pushi 57 // $57 init
  0105:76               push0 
  0106:72 1913          lofsa $1a1c // lamp1
  0109:4a 0a             send a 

  010b:39 42            pushi 42 // $42 setPri
  010d:78               push1 
  010e:39 04            pushi 4 // $4 x
  0110:39 7e            pushi 7e // $7e setCycle
  0112:78               push1 
  0113:51 16            class Fwd 
  0115:36                push 
  0116:39 57            pushi 57 // $57 init
  0118:76               push0 
  0119:72 1952          lofsa $1a6e // lamp2
  011c:4a 10             send 10 

  011e:38 00a4          pushi a4 // $a4 cycleSpeed
  0121:78               push1 
  0122:78               push1 
  0123:39 42            pushi 42 // $42 setPri
  0125:78               push1 
  0126:39 06            pushi 6 // $6 loop
  0128:39 7e            pushi 7e // $7e setCycle
  012a:78               push1 
  012b:51 16            class Fwd 
  012d:36                push 
  012e:39 57            pushi 57 // $57 init
  0130:76               push0 
  0131:72 1896          lofsa $19ca // parrot
  0134:4a 16             send 16 

  0136:33 33              jmp code_016b 

        code_0138
  0138:38 00a4          pushi a4 // $a4 cycleSpeed
  013b:78               push1 
  013c:78               push1 
  013d:39 42            pushi 42 // $42 setPri
  013f:78               push1 
  0140:39 06            pushi 6 // $6 loop
  0142:39 57            pushi 57 // $57 init
  0144:76               push0 
  0145:38 00c6          pushi c6 // $c6 stopUpd
  0148:76               push0 
  0149:72 187e          lofsa $19ca // parrot
  014c:4a 14             send 14 

  014e:39 57            pushi 57 // $57 init
  0150:76               push0 
  0151:38 00c6          pushi c6 // $c6 stopUpd
  0154:76               push0 
  0155:72 18c4          lofsa $1a1c // lamp1
  0158:4a 08             send 8 

  015a:39 42            pushi 42 // $42 setPri
  015c:78               push1 
  015d:39 04            pushi 4 // $4 x
  015f:39 57            pushi 57 // $57 init
  0161:76               push0 
  0162:38 00c6          pushi c6 // $c6 stopUpd
  0165:76               push0 
  0166:72 1905          lofsa $1a6e // lamp2
  0169:4a 0e             send e 


        code_016b
  016b:39 07            pushi 7 // $7 cel
  016d:78               push1 
  016e:89 0c              lsg gPrevRoomNum 
  0170:35 11              ldi 11 
  0172:1a                 eq? 
  0173:31 04              bnt code_0179 
  0175:35 02              ldi 2 
  0177:33 02              jmp code_017b 

        code_0179
  0179:35 00              ldi 0 

        code_017b
  017b:36                push 
  017c:38 00c9          pushi c9 // $c9 ignoreActors
  017f:78               push1 
  0180:78               push1 
  0181:39 57            pushi 57 // $57 init
  0183:76               push0 
  0184:38 00c6          pushi c6 // $c6 stopUpd
  0187:76               push0 
  0188:72 179f          lofsa $192a // Fdoor
  018b:4a 14             send 14 

  018d:39 07            pushi 7 // $7 cel
  018f:78               push1 
  0190:89 0c              lsg gPrevRoomNum 
  0192:35 11              ldi 11 
  0194:1a                 eq? 
  0195:31 04              bnt code_019b 
  0197:35 02              ldi 2 
  0199:33 02              jmp code_019d 

        code_019b
  019b:35 00              ldi 0 

        code_019d
  019d:36                push 
  019e:38 00c9          pushi c9 // $c9 ignoreActors
  01a1:78               push1 
  01a2:78               push1 
  01a3:39 57            pushi 57 // $57 init
  01a5:76               push0 
  01a6:38 00c6          pushi c6 // $c6 stopUpd
  01a9:76               push0 
  01aa:72 17cf          lofsa $197c // Bdoor
  01ad:4a 14             send 14 

  01af:38 00c8          pushi c8 // $c8 setLoop
  01b2:78               push1 
  01b3:39 04            pushi 4 // $4 x
  01b5:39 12            pushi 12 // $12 illegalBits
  01b7:78               push1 
  01b8:76               push0 
  01b9:39 04            pushi 4 // $4 x
  01bb:78               push1 
  01bc:89 0c              lsg gPrevRoomNum 
  01be:35 32              ldi 32 
  01c0:1a                 eq? 
  01c1:31 05              bnt code_01c8 
  01c3:34 00af            ldi af 
  01c6:33 03              jmp code_01cb 

        code_01c8
  01c8:34 00b4            ldi b4 

        code_01cb
  01cb:36                push 
  01cc:39 42            pushi 42 // $42 setPri
  01ce:78               push1 
  01cf:39 04            pushi 4 // $4 x
  01d1:39 57            pushi 57 // $57 init
  01d3:76               push0 
  01d4:38 00c6          pushi c6 // $c6 stopUpd
  01d7:76               push0 
  01d8:72 18e5          lofsa $1ac0 // Door
  01db:4a 20             send 20 

  01dd:88 00a5            lsg gAct 
  01e0:3c                 dup 
  01e1:35 00              ldi 0 
  01e3:1a                 eq? 
  01e4:31 44              bnt code_022a 
  01e6:35 01              ldi 1 
  01e8:a3 03              sal local3 
  01ea:88 00ad            lsg gSpyFlags 
  01ed:35 02              ldi 2 
  01ef:12                 and 
  01f0:18                 not 
  01f1:31 2c              bnt code_021f 
  01f3:88 0171            lsg global369 
  01f6:35 01              ldi 1 
  01f8:1a                 eq? 
  01f9:31 19              bnt code_0214 
  01fb:88 00ad            lsg gSpyFlags 
  01fe:35 02              ldi 2 
  0200:14                  or 
  0201:a0 00ad            sag gSpyFlags 
  0204:35 00              ldi 0 
  0206:a0 0171            sag global369 
  0209:38 010a          pushi 10a // $10a setRegions
  020c:78               push1 
  020d:38 017a          pushi 17a // $17a sel_378
  0210:54 06             self 6 

  0212:33 09              jmp code_021d 

        code_0214
  0214:38 010a          pushi 10a // $10a setRegions
  0217:78               push1 
  0218:38 00d9          pushi d9 // $d9 ignoreBlocks
  021b:54 06             self 6 


        code_021d
  021d:33 09              jmp code_0228 

        code_021f
  021f:38 010a          pushi 10a // $10a setRegions
  0222:78               push1 
  0223:38 017a          pushi 17a // $17a sel_378
  0226:54 06             self 6 


        code_0228
  0228:33 41              jmp code_026b 

        code_022a
  022a:3c                 dup 
  022b:35 01              ldi 1 
  022d:1a                 eq? 
  022e:31 0b              bnt code_023b 
  0230:38 010a          pushi 10a // $10a setRegions
  0233:78               push1 
  0234:38 00ee          pushi ee // $ee has
  0237:54 06             self 6 

  0239:33 30              jmp code_026b 

        code_023b
  023b:3c                 dup 
  023c:35 03              ldi 3 
  023e:1a                 eq? 
  023f:31 1b              bnt code_025c 
  0241:88 00bb            lsg gMinute 
  0244:35 03              ldi 3 
  0246:22                 lt? 
  0247:31 11              bnt code_025a 
  0249:88 00c0            lsg gFifiState 
  024c:35 02              ldi 2 
  024e:22                 lt? 
  024f:31 09              bnt code_025a 
  0251:38 010a          pushi 10a // $10a setRegions
  0254:78               push1 
  0255:38 010b          pushi 10b // $10b setFeatures
  0258:54 06             self 6 


        code_025a
  025a:33 0f              jmp code_026b 

        code_025c
  025c:3c                 dup 
  025d:35 04              ldi 4 
  025f:1a                 eq? 
  0260:31 09              bnt code_026b 
  0262:38 010a          pushi 10a // $10a setRegions
  0265:78               push1 
  0266:38 0110          pushi 110 // $110 disable
  0269:54 06             self 6 


        code_026b
  026b:3a                toss 
  026c:89 0c              lsg gPrevRoomNum 
  026e:35 32              ldi 32 
  0270:1c                 ne? 
  0271:31 7d              bnt code_02f0 
  0273:89 0c              lsg gPrevRoomNum 
  0275:35 25              ldi 25 
  0277:1a                 eq? 
  0278:31 0e              bnt code_0288 
  027a:38 00c5          pushi c5 // $c5 posn
  027d:7a               push2 
  027e:39 0f            pushi f // $f lsBottom
  0280:39 62            pushi 62 // $62 eachElementDo
  0282:81 00              lag gEgo 
  0284:4a 08             send 8 

  0286:33 50              jmp code_02d8 

        code_0288
  0288:38 00c5          pushi c5 // $c5 posn
  028b:7a               push2 
  028c:38 0105          pushi 105 // $105 north
  028f:39 78            pushi 78 // $78 changeState
  0291:81 00              lag gEgo 
  0293:4a 08             send 8 

  0295:83 06              lal local6 
  0297:18                 not 
  0298:31 3e              bnt code_02d8 
  029a:38 00a4          pushi a4 // $a4 cycleSpeed
  029d:78               push1 
  029e:78               push1 
  029f:39 7e            pushi 7e // $7e setCycle
  02a1:78               push1 
  02a2:51 1b            class Beg 
  02a4:36                push 
  02a5:72 1682          lofsa $192a // Fdoor
  02a8:4a 0c             send c 

  02aa:38 00a4          pushi a4 // $a4 cycleSpeed
  02ad:78               push1 
  02ae:78               push1 
  02af:39 7e            pushi 7e // $7e setCycle
  02b1:78               push1 
  02b2:51 1b            class Beg 
  02b4:36                push 
  02b5:72 16c4          lofsa $197c // Bdoor
  02b8:4a 0c             send c 

  02ba:38 00d3          pushi d3 // $d3 setMotion
  02bd:39 03            pushi 3 // $3 y
  02bf:51 1d            class MoveTo 
  02c1:36                push 
  02c2:38 00f7          pushi f7 // $f7 empty
  02c5:39 78            pushi 78 // $78 changeState
  02c7:81 00              lag gEgo 
  02c9:4a 0a             send a 

  02cb:39 2b            pushi 2b // $2b number
  02cd:78               push1 
  02ce:39 2c            pushi 2c // $2c handle
  02d0:39 2a            pushi 2a // $2a play
  02d2:76               push0 
  02d3:72 184e          lofsa $1b24 // soundFX
  02d6:4a 0a             send a 


        code_02d8
  02d8:39 05            pushi 5 // $5 view
  02da:78               push1 
  02db:76               push0 
  02dc:39 12            pushi 12 // $12 illegalBits
  02de:78               push1 
  02df:38 8024          pushi 8024 // $8024 sel_32804
  02e2:39 42            pushi 42 // $42 setPri
  02e4:78               push1 
  02e5:39 ff            pushi ff // $ff checkAni
  02e7:39 57            pushi 57 // $57 init
  02e9:76               push0 
  02ea:81 00              lag gEgo 
  02ec:4a 16             send 16 

  02ee:33 3e              jmp code_032e 

        code_02f0
  02f0:39 05            pushi 5 // $5 view
  02f2:78               push1 
  02f3:76               push0 
  02f4:39 12            pushi 12 // $12 illegalBits
  02f6:78               push1 
  02f7:38 8000          pushi 8000 // $8000 sel_32768
  02fa:39 42            pushi 42 // $42 setPri
  02fc:78               push1 
  02fd:7a               push2 
  02fe:38 00c5          pushi c5 // $c5 posn
  0301:7a               push2 
  0302:38 00bc          pushi bc // $bc motionInited
  0305:39 50            pushi 50 // $50 title
  0307:39 06            pushi 6 // $6 loop
  0309:78               push1 
  030a:7a               push2 
  030b:39 57            pushi 57 // $57 init
  030d:76               push0 
  030e:81 00              lag gEgo 
  0310:4a 24             send 24 

  0312:8b 03              lsl local3 
  0314:35 00              ldi 0 
  0316:1a                 eq? 
  0317:31 15              bnt code_032e 
  0319:38 00c5          pushi c5 // $c5 posn
  031c:7a               push2 
  031d:38 00b3          pushi b3 // $b3 thisTurn
  0320:39 50            pushi 50 // $50 title
  0322:81 00              lag gEgo 
  0324:4a 08             send 8 

  0326:39 7a            pushi 7a // $7a setScript
  0328:78               push1 
  0329:74 1134          lofss $1460 // enterPanel
  032c:54 06             self 6 


        code_032e
  032e:48                 ret 
    )

    (method (doit) // method_032f
  032f:83 06              lal local6 
  0331:31 53              bnt code_0386 
  0333:7a               push2 
  0334:39 26            pushi 26 // $26 mark
  0336:76               push0 
  0337:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  033d:89 0c              lsg gPrevRoomNum 
  033f:35 11              ldi 11 
  0341:1a                 eq? 
  0342:31 3e              bnt code_0382 
  0344:38 00a4          pushi a4 // $a4 cycleSpeed
  0347:78               push1 
  0348:78               push1 
  0349:39 7e            pushi 7e // $7e setCycle
  034b:78               push1 
  034c:51 1b            class Beg 
  034e:36                push 
  034f:72 15d8          lofsa $192a // Fdoor
  0352:4a 0c             send c 

  0354:38 00a4          pushi a4 // $a4 cycleSpeed
  0357:78               push1 
  0358:78               push1 
  0359:39 7e            pushi 7e // $7e setCycle
  035b:78               push1 
  035c:51 1b            class Beg 
  035e:36                push 
  035f:72 161a          lofsa $197c // Bdoor
  0362:4a 0c             send c 

  0364:38 00d3          pushi d3 // $d3 setMotion
  0367:39 03            pushi 3 // $3 y
  0369:51 1d            class MoveTo 
  036b:36                push 
  036c:38 00fa          pushi fa // $fa restart
  036f:39 78            pushi 78 // $78 changeState
  0371:81 00              lag gEgo 
  0373:4a 0a             send a 

  0375:39 2b            pushi 2b // $2b number
  0377:78               push1 
  0378:39 2c            pushi 2c // $2c handle
  037a:39 2a            pushi 2a // $2a play
  037c:76               push0 
  037d:72 17a4          lofsa $1b24 // soundFX
  0380:4a 0a             send a 


        code_0382
  0382:35 00              ldi 0 
  0384:a3 06              sal local6 

        code_0386
  0386:89 0c              lsg gPrevRoomNum 
  0388:35 11              ldi 11 
  038a:1a                 eq? 
  038b:31 37              bnt code_03c4 
  038d:83 05              lal local5 
  038f:18                 not 
  0390:31 32              bnt code_03c4 
  0392:39 07            pushi 7 // $7 cel
  0394:76               push0 
  0395:72 1592          lofsa $192a // Fdoor
  0398:4a 04             send 4 

  039a:36                push 
  039b:35 00              ldi 0 
  039d:1a                 eq? 
  039e:31 24              bnt code_03c4 
  03a0:39 07            pushi 7 // $7 cel
  03a2:76               push0 
  03a3:72 15d6          lofsa $197c // Bdoor
  03a6:4a 04             send 4 

  03a8:36                push 
  03a9:35 00              ldi 0 
  03ab:1a                 eq? 
  03ac:31 16              bnt code_03c4 
  03ae:35 01              ldi 1 
  03b0:a3 05              sal local5 
  03b2:38 00c6          pushi c6 // $c6 stopUpd
  03b5:76               push0 
  03b6:72 1571          lofsa $192a // Fdoor
  03b9:4a 04             send 4 

  03bb:38 00c6          pushi c6 // $c6 stopUpd
  03be:76               push0 
  03bf:72 15ba          lofsa $197c // Bdoor
  03c2:4a 04             send 4 


        code_03c4
  03c4:38 00da          pushi da // $da inRect
  03c7:39 04            pushi 4 // $4 x
  03c9:38 0109          pushi 109 // $109 picAngle
  03cc:39 7a            pushi 7a // $7a setScript
  03ce:38 0122          pushi 122 // $122 xTilt
  03d1:38 0082          pushi 82 // $82 owner
  03d4:81 00              lag gEgo 
  03d6:4a 0c             send c 

  03d8:31 14              bnt code_03ee 
  03da:39 42            pushi 42 // $42 setPri
  03dc:78               push1 
  03dd:39 0a            pushi a // $a nsLeft
  03df:81 00              lag gEgo 
  03e1:4a 06             send 6 

  03e3:38 00a3          pushi a3 // $a3 startUpd
  03e6:76               push0 
  03e7:72 1392          lofsa $177c // chair4
  03ea:4a 04             send 4 

  03ec:33 5a              jmp code_0448 

        code_03ee
  03ee:38 00c6          pushi c6 // $c6 stopUpd
  03f1:76               push0 
  03f2:72 1387          lofsa $177c // chair4
  03f5:4a 04             send 4 

  03f7:38 00db          pushi db // $db onControl
  03fa:78               push1 
  03fb:76               push0 
  03fc:81 00              lag gEgo 
  03fe:4a 06             send 6 

  0400:36                push 
  0401:35 08              ldi 8 
  0403:12                 and 
  0404:31 29              bnt code_042f 
  0406:63 08             pToa script 
  0408:18                 not 
  0409:31 19              bnt code_0424 
  040b:39 06            pushi 6 // $6 loop
  040d:76               push0 
  040e:81 00              lag gEgo 
  0410:4a 04             send 4 

  0412:36                push 
  0413:35 00              ldi 0 
  0415:1a                 eq? 
  0416:31 0c              bnt code_0424 
  0418:76               push0 
  0419:45 03 00         callb procedure_0003 0 // HandsOff 

  041c:39 7a            pushi 7a // $7a setScript
  041e:78               push1 
  041f:74 10a2          lofss $14c4 // myDoor
  0422:54 06             self 6 


        code_0424
  0424:39 42            pushi 42 // $42 setPri
  0426:78               push1 
  0427:39 08            pushi 8 // $8 underBits
  0429:81 00              lag gEgo 
  042b:4a 06             send 6 

  042d:33 19              jmp code_0448 

        code_042f
  042f:67 08             pTos script 
  0431:72 0ffc          lofsa $1430 // exiting
  0434:1c                 ne? 
  0435:2f 08               bt code_043f 
  0437:67 08             pTos script 
  0439:72 1024          lofsa $1460 // enterPanel
  043c:1c                 ne? 
  043d:31 09              bnt code_0448 

        code_043f
  043f:39 42            pushi 42 // $42 setPri
  0441:78               push1 
  0442:39 ff            pushi ff // $ff checkAni
  0444:81 00              lag gEgo 
  0446:4a 06             send 6 


        code_0448
  0448:38 00db          pushi db // $db onControl
  044b:78               push1 
  044c:78               push1 
  044d:81 00              lag gEgo 
  044f:4a 06             send 6 

  0451:36                push 
  0452:35 04              ldi 4 
  0454:12                 and 
  0455:31 0a              bnt code_0461 
  0457:38 00f8          pushi f8 // $f8 newRoom
  045a:78               push1 
  045b:39 11            pushi 11 // $11 signal
  045d:81 02              lag gCurRoom 
  045f:4a 06             send 6 


        code_0461
  0461:38 00db          pushi db // $db onControl
  0464:78               push1 
  0465:78               push1 
  0466:81 00              lag gEgo 
  0468:4a 06             send 6 

  046a:36                push 
  046b:35 20              ldi 20 
  046d:12                 and 
  046e:31 19              bnt code_0489 
  0470:8b 03              lsl local3 
  0472:35 00              ldi 0 
  0474:1a                 eq? 
  0475:31 12              bnt code_0489 
  0477:88 00cc            lsg global204 
  047a:35 00              ldi 0 
  047c:1a                 eq? 
  047d:31 0a              bnt code_0489 
  047f:38 00f8          pushi f8 // $f8 newRoom
  0482:78               push1 
  0483:39 32            pushi 32 // $32 b-i2
  0485:81 02              lag gCurRoom 
  0487:4a 06             send 6 


        code_0489
  0489:39 04            pushi 4 // $4 x
  048b:76               push0 
  048c:81 00              lag gEgo 
  048e:4a 04             send 4 

  0490:36                push 
  0491:34 008c            ldi 8c 
  0494:22                 lt? 
  0495:31 07              bnt code_049e 
  0497:34 00a3            ldi a3 
  049a:65 2a             aTop vertAngle 
  049c:33 05              jmp code_04a3 

        code_049e
  049e:34 0089            ldi 89 
  04a1:65 2a             aTop vertAngle 

        code_04a3
  04a3:39 3c            pushi 3c // $3c doit
  04a5:76               push0 
  04a6:57 37 04         super Rm 4 

  04a9:48                 ret 
    )

    (method (dispose) // method_04aa
  04aa:76               push0 
  04ab:45 0f 00         callb procedure_000f 0 // cls 

  04ae:78               push1 
  04af:38 03d9          pushi 3d9 // $3d9 sel_985
  04b2:43 03 02         callk DisposeScript 2 

  04b5:78               push1 
  04b6:38 00cc          pushi cc // $cc isExtra
  04b9:43 03 02         callk DisposeScript 2 

  04bc:39 58            pushi 58 // $58 dispose
  04be:76               push0 
  04bf:57 37 04         super Rm 4 

  04c2:48                 ret 
    )

    (method (newRoom) // method_04c3
  04c3:38 00f8          pushi f8 // $f8 newRoom
  04c6:78               push1 
  04c7:8f 01              lsp param1 
  04c9:57 37 06         super Rm 6 

  04cc:48                 ret 
    )

    (method (handleEvent) // method_04cd
  04cd:3f 01             link 1 // (var $1)
  04cf:39 4c            pushi 4c // $4c claimed
  04d1:76               push0 
  04d2:87 01              lap param1 
  04d4:4a 04             send 4 

  04d6:31 03              bnt code_04db 
  04d8:35 01              ldi 1 
  04da:48                 ret 

        code_04db
  04db:39 22            pushi 22 // $22 type
  04dd:76               push0 
  04de:87 01              lap param1 
  04e0:4a 04             send 4 

  04e2:36                push 
  04e3:34 0080            ldi 80 
  04e6:1a                 eq? 
  04e7:30 00f2            bnt code_05dc 
  04ea:78               push1 
  04eb:38 03de          pushi 3de // $3de sel_990
  04ee:43 03 02         callk DisposeScript 2 

  04f1:80 00d0            lag global208 
  04f4:31 2f              bnt code_0525 
  04f6:78               push1 
  04f7:74 0d57          lofss $1251 // ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
  04fa:43 25 02         callk Said 2 

  04fd:31 26              bnt code_0525 
  04ff:39 7a            pushi 7a // $7a setScript
  0501:78               push1 
  0502:7a               push2 
  0503:38 00f3          pushi f3 // $f3 close
  0506:76               push0 
  0507:43 02 04         callk ScriptID 4 

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

  050d:39 6f            pushi 6f // $6f handleEvent
  050f:78               push1 
  0510:8f 01              lsp param1 
  0512:39 76            pushi 76 // $76 script
  0514:76               push0 
  0515:54 04             self 4 

  0517:4a 06             send 6 

  0519:39 4c            pushi 4c // $4c claimed
  051b:76               push0 
  051c:87 01              lap param1 
  051e:4a 04             send 4 

  0520:31 03              bnt code_0525 
  0522:35 01              ldi 1 
  0524:48                 ret 

        code_0525
  0525:78               push1 
  0526:74 0d05          lofss $122e // /panel,(door<cachoterie)>
  0529:43 25 02         callk Said 2 

  052c:31 6f              bnt code_059d 
  052e:88 00af            lsg global175 
  0531:35 08              ldi 8 
  0533:12                 and 
  0534:31 3d              bnt code_0573 
  0536:78               push1 
  0537:74 0e66          lofss $13a0 // open,bouger
  053a:43 25 02         callk Said 2 

  053d:31 34              bnt code_0573 
  053f:83 03              lal local3 
  0541:18                 not 
  0542:31 23              bnt code_0567 
  0544:38 00db          pushi db // $db onControl
  0547:78               push1 
  0548:76               push0 
  0549:81 00              lag gEgo 
  054b:4a 06             send 6 

  054d:36                push 
  054e:35 10              ldi 10 
  0550:12                 and 
  0551:31 0e              bnt code_0561 
  0553:76               push0 
  0554:45 03 00         callb procedure_0003 0 // HandsOff 

  0557:39 7a            pushi 7a // $7a setScript
  0559:78               push1 
  055a:74 0ed3          lofss $1430 // exiting
  055d:54 06             self 6 

  055f:33 04              jmp code_0565 

        code_0561
  0561:76               push0 
  0562:45 09 00         callb procedure_0009 0 // NotClose 


        code_0565
  0565:33 0a              jmp code_0571 

        code_0567
  0567:7a               push2 
  0568:39 26            pushi 26 // $26 mark
  056a:78               push1 
  056b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0571
  0571:33 28              jmp code_059b 

        code_0573
  0573:78               push1 
  0574:74 0d3e          lofss $12b5 // look
  0577:43 25 02         callk Said 2 

  057a:31 1f              bnt code_059b 
  057c:88 00af            lsg global175 
  057f:35 08              ldi 8 
  0581:12                 and 
  0582:31 0c              bnt code_0590 
  0584:7a               push2 
  0585:39 26            pushi 26 // $26 mark
  0587:7a               push2 
  0588:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  058e:33 0b              jmp code_059b 

        code_0590
  0590:7a               push2 
  0591:39 26            pushi 26 // $26 mark
  0593:39 03            pushi 3 // $3 y
  0595:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_059b
  059b:33 3f              jmp code_05dc 

        code_059d
  059d:78               push1 
  059e:74 0dec          lofss $138d // look[<around,at][/room]
  05a1:43 25 02         callk Said 2 

  05a4:31 0c              bnt code_05b2 
  05a6:7a               push2 
  05a7:39 26            pushi 26 // $26 mark
  05a9:76               push0 
  05aa:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05b0:33 2a              jmp code_05dc 

        code_05b2
  05b2:78               push1 
  05b3:74 0e11          lofss $13c7 // asseoir/bar,barstool
  05b6:43 25 02         callk Said 2 

  05b9:31 0d              bnt code_05c8 
  05bb:7a               push2 
  05bc:39 26            pushi 26 // $26 mark
  05be:39 04            pushi 4 // $4 x
  05c0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05c6:33 14              jmp code_05dc 

        code_05c8
  05c8:78               push1 
  05c9:74 0de3          lofss $13af // appuyer,(look<below)/monument
  05cc:43 25 02         callk Said 2 

  05cf:31 0b              bnt code_05dc 
  05d1:7a               push2 
  05d2:39 26            pushi 26 // $26 mark
  05d4:39 05            pushi 5 // $5 view
  05d6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_05dc
  05dc:39 6f            pushi 6f // $6f handleEvent
  05de:78               push1 
  05df:8f 01              lsp param1 
  05e1:57 37 06         super Rm 6 

  05e4:48                 ret 
    )

)

// 142a
(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_05e5
  05e5:87 01              lap param1 
  05e7:65 0a             aTop state 
  05e9:36                push 
  05ea:3c                 dup 
  05eb:35 00              ldi 0 
  05ed:1a                 eq? 
  05ee:31 2c              bnt code_061c 
  05f0:76               push0 
  05f1:45 03 00         callb procedure_0003 0 // HandsOff 

  05f4:35 01              ldi 1 
  05f6:a0 00cc            sag global204 
  05f9:38 00d3          pushi d3 // $d3 setMotion
  05fc:39 04            pushi 4 // $4 x
  05fe:51 1d            class MoveTo 
  0600:36                push 
  0601:38 008c          pushi 8c // $8c track
  0604:39 54            pushi 54 // $54 delete
  0606:7c            pushSelf 
  0607:72 14b6          lofsa $1ac0 // Door
  060a:4a 0c             send c 

  060c:39 2b            pushi 2b // $2b number
  060e:78               push1 
  060f:39 4a            pushi 4a // $4a pragmaFail
  0611:39 2a            pushi 2a // $2a play
  0613:76               push0 
  0614:72 150d          lofsa $1b24 // soundFX
  0617:4a 0a             send a 

  0619:32 00a2            jmp code_06be 

        code_061c
  061c:3c                 dup 
  061d:35 01              ldi 1 
  061f:1a                 eq? 
  0620:31 35              bnt code_0657 
  0622:38 00da          pushi da // $da inRect
  0625:39 04            pushi 4 // $4 x
  0627:38 00b3          pushi b3 // $b3 thisTurn
  062a:39 57            pushi 57 // $57 init
  062c:38 00b5          pushi b5 // $b5 escapes
  062f:39 59            pushi 59 // $59 showStr
  0631:81 00              lag gEgo 
  0633:4a 0c             send c 

  0635:31 06              bnt code_063d 
  0637:35 01              ldi 1 
  0639:65 10             aTop cycles 
  063b:33 18              jmp code_0655 

        code_063d
  063d:39 12            pushi 12 // $12 illegalBits
  063f:78               push1 
  0640:38 8000          pushi 8000 // $8000 sel_32768
  0643:38 00d3          pushi d3 // $d3 setMotion
  0646:39 04            pushi 4 // $4 x
  0648:51 1d            class MoveTo 
  064a:36                push 
  064b:38 00b4          pushi b4 // $b4 escaping
  064e:39 58            pushi 58 // $58 dispose
  0650:7c            pushSelf 
  0651:81 00              lag gEgo 
  0653:4a 12             send 12 


        code_0655
  0655:33 67              jmp code_06be 

        code_0657
  0657:3c                 dup 
  0658:35 02              ldi 2 
  065a:1a                 eq? 
  065b:31 1a              bnt code_0677 
  065d:39 12            pushi 12 // $12 illegalBits
  065f:78               push1 
  0660:38 8000          pushi 8000 // $8000 sel_32768
  0663:38 00d3          pushi d3 // $d3 setMotion
  0666:39 04            pushi 4 // $4 x
  0668:51 1d            class MoveTo 
  066a:36                push 
  066b:38 00b4          pushi b4 // $b4 escaping
  066e:39 52            pushi 52 // $52 icon
  0670:7c            pushSelf 
  0671:81 00              lag gEgo 
  0673:4a 12             send 12 

  0675:33 47              jmp code_06be 

        code_0677
  0677:3c                 dup 
  0678:35 03              ldi 3 
  067a:1a                 eq? 
  067b:31 2a              bnt code_06a7 
  067d:39 42            pushi 42 // $42 setPri
  067f:78               push1 
  0680:7a               push2 
  0681:81 00              lag gEgo 
  0683:4a 06             send 6 

  0685:38 00d3          pushi d3 // $d3 setMotion
  0688:39 04            pushi 4 // $4 x
  068a:51 1d            class MoveTo 
  068c:36                push 
  068d:38 00b4          pushi b4 // $b4 escaping
  0690:39 54            pushi 54 // $54 delete
  0692:7c            pushSelf 
  0693:72 142a          lofsa $1ac0 // Door
  0696:4a 0c             send c 

  0698:39 2b            pushi 2b // $2b number
  069a:78               push1 
  069b:39 4b            pushi 4b // $4b said
  069d:39 2a            pushi 2a // $2a play
  069f:76               push0 
  06a0:72 1481          lofsa $1b24 // soundFX
  06a3:4a 0a             send a 

  06a5:33 17              jmp code_06be 

        code_06a7
  06a7:3c                 dup 
  06a8:35 04              ldi 4 
  06aa:1a                 eq? 
  06ab:31 11              bnt code_06be 
  06ad:76               push0 
  06ae:45 04 00         callb procedure_0004 0 // HandsOn 

  06b1:35 00              ldi 0 
  06b3:a0 00cc            sag global204 
  06b6:39 7a            pushi 7a // $7a setScript
  06b8:78               push1 
  06b9:76               push0 
  06ba:63 08             pToa client 
  06bc:4a 06             send 6 


        code_06be
  06be:3a                toss 
  06bf:48                 ret 
    )

)

// 145a
(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_06c0
  06c0:87 01              lap param1 
  06c2:65 0a             aTop state 
  06c4:36                push 
  06c5:3c                 dup 
  06c6:35 00              ldi 0 
  06c8:1a                 eq? 
  06c9:31 2b              bnt code_06f6 
  06cb:76               push0 
  06cc:45 03 00         callb procedure_0003 0 // HandsOff 

  06cf:35 01              ldi 1 
  06d1:a0 00cc            sag global204 
  06d4:38 00d3          pushi d3 // $d3 setMotion
  06d7:39 04            pushi 4 // $4 x
  06d9:51 1d            class MoveTo 
  06db:36                push 
  06dc:38 008c          pushi 8c // $8c track
  06df:39 54            pushi 54 // $54 delete
  06e1:7c            pushSelf 
  06e2:72 13db          lofsa $1ac0 // Door
  06e5:4a 0c             send c 

  06e7:39 2b            pushi 2b // $2b number
  06e9:78               push1 
  06ea:39 4a            pushi 4a // $4a pragmaFail
  06ec:39 2a            pushi 2a // $2a play
  06ee:76               push0 
  06ef:72 1432          lofsa $1b24 // soundFX
  06f2:4a 0a             send a 

  06f4:33 73              jmp code_0769 

        code_06f6
  06f6:3c                 dup 
  06f7:35 01              ldi 1 
  06f9:1a                 eq? 
  06fa:31 14              bnt code_0710 
  06fc:38 00d3          pushi d3 // $d3 setMotion
  06ff:39 04            pushi 4 // $4 x
  0701:51 1d            class MoveTo 
  0703:36                push 
  0704:38 00b3          pushi b3 // $b3 thisTurn
  0707:39 5a            pushi 5a // $5a showSelf
  0709:7c            pushSelf 
  070a:81 00              lag gEgo 
  070c:4a 0c             send c 

  070e:33 59              jmp code_0769 

        code_0710
  0710:3c                 dup 
  0711:35 02              ldi 2 
  0713:1a                 eq? 
  0714:31 31              bnt code_0747 
  0716:39 42            pushi 42 // $42 setPri
  0718:78               push1 
  0719:39 ff            pushi ff // $ff checkAni
  071b:39 12            pushi 12 // $12 illegalBits
  071d:78               push1 
  071e:38 8024          pushi 8024 // $8024 sel_32804
  0721:81 00              lag gEgo 
  0723:4a 0c             send c 

  0725:38 00d3          pushi d3 // $d3 setMotion
  0728:39 04            pushi 4 // $4 x
  072a:51 1d            class MoveTo 
  072c:36                push 
  072d:38 00b4          pushi b4 // $b4 escaping
  0730:39 54            pushi 54 // $54 delete
  0732:7c            pushSelf 
  0733:72 138a          lofsa $1ac0 // Door
  0736:4a 0c             send c 

  0738:39 2b            pushi 2b // $2b number
  073a:78               push1 
  073b:39 4b            pushi 4b // $4b said
  073d:39 2a            pushi 2a // $2a play
  073f:76               push0 
  0740:72 13e1          lofsa $1b24 // soundFX
  0743:4a 0a             send a 

  0745:33 22              jmp code_0769 

        code_0747
  0747:3c                 dup 
  0748:35 03              ldi 3 
  074a:1a                 eq? 
  074b:31 1c              bnt code_0769 
  074d:76               push0 
  074e:45 04 00         callb procedure_0004 0 // HandsOn 

  0751:7a               push2 
  0752:39 26            pushi 26 // $26 mark
  0754:39 06            pushi 6 // $6 loop
  0756:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  075c:35 00              ldi 0 
  075e:a0 00cc            sag global204 
  0761:39 7a            pushi 7a // $7a setScript
  0763:78               push1 
  0764:76               push0 
  0765:63 08             pToa client 
  0767:4a 06             send 6 


        code_0769
  0769:3a                toss 
  076a:48                 ret 
    )

)

// 148a
(instance feedParrot of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (doit) // method_076b
  076b:39 3c            pushi 3c // $3c doit
  076d:76               push0 
  076e:57 05 04         super Script 4 

  0771:83 04              lal local4 
  0773:18                 not 
  0774:31 30              bnt code_07a6 
  0776:67 0a             pTos state 
  0778:35 02              ldi 2 
  077a:1a                 eq? 
  077b:31 27              bnt code_07a4 
  077d:39 07            pushi 7 // $7 cel
  077f:76               push0 
  0780:72 1247          lofsa $19ca // parrot
  0783:4a 04             send 4 

  0785:36                push 
  0786:35 02              ldi 2 
  0788:1a                 eq? 
  0789:31 19              bnt code_07a4 
  078b:39 06            pushi 6 // $6 loop
  078d:78               push1 
  078e:39 04            pushi 4 // $4 x
  0790:39 07            pushi 7 // $7 cel
  0792:78               push1 
  0793:76               push0 
  0794:38 00a4          pushi a4 // $a4 cycleSpeed
  0797:78               push1 
  0798:78               push1 
  0799:39 7e            pushi 7e // $7e setCycle
  079b:7a               push2 
  079c:51 1a            class End 
  079e:36                push 
  079f:7c            pushSelf 
  07a0:81 00              lag gEgo 
  07a2:4a 1a             send 1a 


        code_07a4
  07a4:33 2f              jmp code_07d5 

        code_07a6
  07a6:67 0a             pTos state 
  07a8:35 04              ldi 4 
  07aa:1a                 eq? 
  07ab:31 28              bnt code_07d5 
  07ad:39 07            pushi 7 // $7 cel
  07af:76               push0 
  07b0:72 1217          lofsa $19ca // parrot
  07b3:4a 04             send 4 

  07b5:36                push 
  07b6:35 03              ldi 3 
  07b8:1a                 eq? 
  07b9:31 1a              bnt code_07d5 
  07bb:39 06            pushi 6 // $6 loop
  07bd:78               push1 
  07be:7a               push2 
  07bf:39 07            pushi 7 // $7 cel
  07c1:78               push1 
  07c2:38 00a6          pushi a6 // $a6 lastCel
  07c5:76               push0 
  07c6:81 00              lag gEgo 
  07c8:4a 04             send 4 

  07ca:36                push 
  07cb:39 7e            pushi 7e // $7e setCycle
  07cd:78               push1 
  07ce:51 1b            class Beg 
  07d0:36                push 
  07d1:81 00              lag gEgo 
  07d3:4a 12             send 12 


        code_07d5
  07d5:48                 ret 
    )

    (method (changeState) // method_07d6
  07d6:87 01              lap param1 
  07d8:65 0a             aTop state 
  07da:36                push 
  07db:3c                 dup 
  07dc:35 00              ldi 0 
  07de:1a                 eq? 
  07df:31 46              bnt code_0827 
  07e1:76               push0 
  07e2:45 03 00         callb procedure_0003 0 // HandsOff 

  07e5:39 04            pushi 4 // $4 x
  07e7:76               push0 
  07e8:81 00              lag gEgo 
  07ea:4a 04             send 4 

  07ec:36                push 
  07ed:34 00c6            ldi c6 
  07f0:1c                 ne? 
  07f1:2f 0d               bt code_0800 
  07f3:39 03            pushi 3 // $3 y
  07f5:76               push0 
  07f6:81 00              lag gEgo 
  07f8:4a 04             send 4 

  07fa:36                push 
  07fb:35 59              ldi 59 
  07fd:1c                 ne? 
  07fe:31 20              bnt code_0820 

        code_0800
  0800:38 00d4          pushi d4 // $d4 setAvoider
  0803:78               push1 
  0804:39 56            pushi 56 // $56 new
  0806:76               push0 
  0807:51 21            class Avoid 
  0809:4a 04             send 4 

  080b:36                push 
  080c:38 00d3          pushi d3 // $d3 setMotion
  080f:39 04            pushi 4 // $4 x
  0811:51 1d            class MoveTo 
  0813:36                push 
  0814:38 00c6          pushi c6 // $c6 stopUpd
  0817:39 59            pushi 59 // $59 showStr
  0819:7c            pushSelf 
  081a:81 00              lag gEgo 
  081c:4a 12             send 12 

  081e:33 04              jmp code_0824 

        code_0820
  0820:35 01              ldi 1 
  0822:65 10             aTop cycles 

        code_0824
  0824:32 01bf            jmp code_09e6 

        code_0827
  0827:3c                 dup 
  0828:35 01              ldi 1 
  082a:1a                 eq? 
  082b:31 2b              bnt code_0858 
  082d:39 05            pushi 5 // $5 view
  082f:78               push1 
  0830:39 39            pushi 39 // $39 canBeHere
  0832:39 06            pushi 6 // $6 loop
  0834:78               push1 
  0835:7a               push2 
  0836:8b 04              lsl local4 
  0838:35 01              ldi 1 
  083a:0e                 shl 
  083b:04                 sub 
  083c:36                push 
  083d:39 07            pushi 7 // $7 cel
  083f:78               push1 
  0840:76               push0 
  0841:39 12            pushi 12 // $12 illegalBits
  0843:78               push1 
  0844:76               push0 
  0845:38 00d4          pushi d4 // $d4 setAvoider
  0848:78               push1 
  0849:76               push0 
  084a:39 7e            pushi 7e // $7e setCycle
  084c:7a               push2 
  084d:51 1a            class End 
  084f:36                push 
  0850:7c            pushSelf 
  0851:81 00              lag gEgo 
  0853:4a 26             send 26 

  0855:32 018e            jmp code_09e6 

        code_0858
  0858:3c                 dup 
  0859:35 02              ldi 2 
  085b:1a                 eq? 
  085c:31 4f              bnt code_08ad 
  085e:39 2b            pushi 2b // $2b number
  0860:78               push1 
  0861:39 6f            pushi 6f // $6f handleEvent
  0863:39 2a            pushi 2a // $2a play
  0865:76               push0 
  0866:72 12bb          lofsa $1b24 // soundFX
  0869:4a 0a             send a 

  086b:39 06            pushi 6 // $6 loop
  086d:78               push1 
  086e:39 03            pushi 3 // $3 y
  0870:8b 04              lsl local4 
  0872:35 01              ldi 1 
  0874:0e                 shl 
  0875:04                 sub 
  0876:36                push 
  0877:39 07            pushi 7 // $7 cel
  0879:78               push1 
  087a:76               push0 
  087b:39 7e            pushi 7e // $7e setCycle
  087d:78               push1 
  087e:51 1a            class End 
  0880:36                push 
  0881:72 1146          lofsa $19ca // parrot
  0884:4a 12             send 12 

  0886:83 04              lal local4 
  0888:31 20              bnt code_08aa 
  088a:39 06            pushi 6 // $6 loop
  088c:39 26            pushi 26 // $26 mark
  088e:39 07            pushi 7 // $7 cel
  0890:39 43            pushi 43 // $43 at
  0892:39 50            pushi 50 // $50 title
  0894:38 00a0          pushi a0 // $a0 cycleDone
  0897:39 58            pushi 58 // $58 dispose
  0899:46 00ff 0000 0c  calle ff procedure_0000 c // Print 

  089f:e0 0088            -ag global136 
  08a2:35 04              ldi 4 
  08a4:65 0a             aTop state 
  08a6:35 0f              ldi f 
  08a8:65 10             aTop cycles 

        code_08aa
  08aa:32 0139            jmp code_09e6 

        code_08ad
  08ad:3c                 dup 
  08ae:35 03              ldi 3 
  08b0:1a                 eq? 
  08b1:31 1c              bnt code_08cf 
  08b3:39 06            pushi 6 // $6 loop
  08b5:39 26            pushi 26 // $26 mark
  08b7:39 08            pushi 8 // $8 underBits
  08b9:39 43            pushi 43 // $43 at
  08bb:39 50            pushi 50 // $50 title
  08bd:38 00a0          pushi a0 // $a0 cycleDone
  08c0:39 58            pushi 58 // $58 dispose
  08c2:46 00ff 0000 0c  calle ff procedure_0000 c // Print 

  08c8:35 0e              ldi e 
  08ca:65 10             aTop cycles 
  08cc:32 0117            jmp code_09e6 

        code_08cf
  08cf:3c                 dup 
  08d0:35 04              ldi 4 
  08d2:1a                 eq? 
  08d3:31 44              bnt code_0919 
  08d5:35 00              ldi 0 
  08d7:a3 04              sal local4 
  08d9:76               push0 
  08da:45 0f 00         callb procedure_000f 0 // cls 

  08dd:39 06            pushi 6 // $6 loop
  08df:78               push1 
  08e0:76               push0 
  08e1:39 7e            pushi 7e // $7e setCycle
  08e3:78               push1 
  08e4:51 16            class Fwd 
  08e6:36                push 
  08e7:72 10e0          lofsa $19ca // parrot
  08ea:4a 0c             send c 

  08ec:39 05            pushi 5 // $5 view
  08ee:78               push1 
  08ef:39 0b            pushi b // $b nsBottom
  08f1:39 06            pushi 6 // $6 loop
  08f3:78               push1 
  08f4:76               push0 
  08f5:39 12            pushi 12 // $12 illegalBits
  08f7:78               push1 
  08f8:38 8024          pushi 8024 // $8024 sel_32804
  08fb:38 00a4          pushi a4 // $a4 cycleSpeed
  08fe:78               push1 
  08ff:76               push0 
  0900:39 7e            pushi 7e // $7e setCycle
  0902:78               push1 
  0903:51 17            class Walk 
  0905:36                push 
  0906:81 00              lag gEgo 
  0908:4a 1e             send 1e 

  090a:76               push0 
  090b:45 04 00         callb procedure_0004 0 // HandsOn 

  090e:39 7a            pushi 7a // $7a setScript
  0910:78               push1 
  0911:76               push0 
  0912:63 08             pToa client 
  0914:4a 06             send 6 

  0916:32 00cd            jmp code_09e6 

        code_0919
  0919:3c                 dup 
  091a:35 05              ldi 5 
  091c:1a                 eq? 
  091d:31 1b              bnt code_093a 
  091f:76               push0 
  0920:45 0f 00         callb procedure_000f 0 // cls 

  0923:39 06            pushi 6 // $6 loop
  0925:78               push1 
  0926:7a               push2 
  0927:39 07            pushi 7 // $7 cel
  0929:78               push1 
  092a:76               push0 
  092b:39 7e            pushi 7e // $7e setCycle
  092d:7a               push2 
  092e:51 1a            class End 
  0930:36                push 
  0931:7c            pushSelf 
  0932:72 1095          lofsa $19ca // parrot
  0935:4a 14             send 14 

  0937:32 00ac            jmp code_09e6 

        code_093a
  093a:3c                 dup 
  093b:35 06              ldi 6 
  093d:1a                 eq? 
  093e:30 00a5            bnt code_09e6 
  0941:81 74              lag global116 
  0943:31 0e              bnt code_0953 
  0945:7a               push2 
  0946:39 26            pushi 26 // $26 mark
  0948:39 09            pushi 9 // $9 nsTop
  094a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0950:32 008b            jmp code_09de 

        code_0953
  0953:88 00a5            lsg gAct 
  0956:3c                 dup 
  0957:35 01              ldi 1 
  0959:1a                 eq? 
  095a:31 0d              bnt code_0969 
  095c:7a               push2 
  095d:39 26            pushi 26 // $26 mark
  095f:39 0a            pushi a // $a nsLeft
  0961:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0967:33 70              jmp code_09d9 

        code_0969
  0969:3c                 dup 
  096a:35 02              ldi 2 
  096c:1a                 eq? 
  096d:31 0d              bnt code_097c 
  096f:7a               push2 
  0970:39 26            pushi 26 // $26 mark
  0972:39 0b            pushi b // $b nsBottom
  0974:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  097a:33 5d              jmp code_09d9 

        code_097c
  097c:3c                 dup 
  097d:35 03              ldi 3 
  097f:1a                 eq? 
  0980:31 0d              bnt code_098f 
  0982:7a               push2 
  0983:39 26            pushi 26 // $26 mark
  0985:39 0c            pushi c // $c nsRight
  0987:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  098d:33 4a              jmp code_09d9 

        code_098f
  098f:3c                 dup 
  0990:35 04              ldi 4 
  0992:1a                 eq? 
  0993:31 0d              bnt code_09a2 
  0995:7a               push2 
  0996:39 26            pushi 26 // $26 mark
  0998:39 0d            pushi d // $d lsTop
  099a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  09a0:33 37              jmp code_09d9 

        code_09a2
  09a2:3c                 dup 
  09a3:35 05              ldi 5 
  09a5:1a                 eq? 
  09a6:31 0d              bnt code_09b5 
  09a8:7a               push2 
  09a9:39 26            pushi 26 // $26 mark
  09ab:39 0e            pushi e // $e lsLeft
  09ad:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  09b3:33 24              jmp code_09d9 

        code_09b5
  09b5:3c                 dup 
  09b6:35 06              ldi 6 
  09b8:1a                 eq? 
  09b9:31 0d              bnt code_09c8 
  09bb:7a               push2 
  09bc:39 26            pushi 26 // $26 mark
  09be:39 0f            pushi f // $f lsBottom
  09c0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  09c6:33 11              jmp code_09d9 

        code_09c8
  09c8:3c                 dup 
  09c9:35 07              ldi 7 
  09cb:1a                 eq? 
  09cc:31 0b              bnt code_09d9 
  09ce:7a               push2 
  09cf:39 26            pushi 26 // $26 mark
  09d1:39 10            pushi 10 // $10 lsRight
  09d3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_09d9
  09d9:3a                toss 
  09da:35 01              ldi 1 
  09dc:a1 74              sag global116 

        code_09de
  09de:35 03              ldi 3 
  09e0:65 0a             aTop state 
  09e2:35 01              ldi 1 
  09e4:65 10             aTop cycles 

        code_09e6
  09e6:3a                toss 
  09e7:48                 ret 
    )

)

// 14be
(instance myDoor 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_09e8
  09e8:87 01              lap param1 
  09ea:65 0a             aTop state 
  09ec:36                push 
  09ed:3c                 dup 
  09ee:35 00              ldi 0 
  09f0:1a                 eq? 
  09f1:31 07              bnt code_09fa 
  09f3:35 02              ldi 2 
  09f5:65 10             aTop cycles 
  09f7:32 009c            jmp code_0a96 

        code_09fa
  09fa:3c                 dup 
  09fb:35 01              ldi 1 
  09fd:1a                 eq? 
  09fe:31 36              bnt code_0a36 
  0a00:39 12            pushi 12 // $12 illegalBits
  0a02:78               push1 
  0a03:76               push0 
  0a04:81 00              lag gEgo 
  0a06:4a 06             send 6 

  0a08:39 04            pushi 4 // $4 x
  0a0a:76               push0 
  0a0b:81 00              lag gEgo 
  0a0d:4a 04             send 4 

  0a0f:36                push 
  0a10:34 00fa            ldi fa 
  0a13:1e                 gt? 
  0a14:31 1a              bnt code_0a30 
  0a16:38 00d3          pushi d3 // $d3 setMotion
  0a19:39 04            pushi 4 // $4 x
  0a1b:51 1d            class MoveTo 
  0a1d:36                push 
  0a1e:38 00fa          pushi fa // $fa restart
  0a21:39 03            pushi 3 // $3 y
  0a23:76               push0 
  0a24:81 00              lag gEgo 
  0a26:4a 04             send 4 

  0a28:36                push 
  0a29:7c            pushSelf 
  0a2a:81 00              lag gEgo 
  0a2c:4a 0c             send c 

  0a2e:33 04              jmp code_0a34 

        code_0a30
  0a30:35 01              ldi 1 
  0a32:65 10             aTop cycles 

        code_0a34
  0a34:33 60              jmp code_0a96 

        code_0a36
  0a36:3c                 dup 
  0a37:35 02              ldi 2 
  0a39:1a                 eq? 
  0a3a:31 3a              bnt code_0a76 
  0a3c:38 00a4          pushi a4 // $a4 cycleSpeed
  0a3f:78               push1 
  0a40:78               push1 
  0a41:38 00c9          pushi c9 // $c9 ignoreActors
  0a44:78               push1 
  0a45:78               push1 
  0a46:39 7e            pushi 7e // $7e setCycle
  0a48:78               push1 
  0a49:51 1a            class End 
  0a4b:36                push 
  0a4c:72 0f2d          lofsa $197c // Bdoor
  0a4f:4a 12             send 12 

  0a51:38 00a4          pushi a4 // $a4 cycleSpeed
  0a54:78               push1 
  0a55:78               push1 
  0a56:38 00c9          pushi c9 // $c9 ignoreActors
  0a59:78               push1 
  0a5a:78               push1 
  0a5b:39 7e            pushi 7e // $7e setCycle
  0a5d:7a               push2 
  0a5e:51 1a            class End 
  0a60:36                push 
  0a61:7c            pushSelf 
  0a62:72 0ec5          lofsa $192a // Fdoor
  0a65:4a 14             send 14 

  0a67:39 2b            pushi 2b // $2b number
  0a69:78               push1 
  0a6a:39 2b            pushi 2b // $2b number
  0a6c:39 2a            pushi 2a // $2a play
  0a6e:76               push0 
  0a6f:72 10b2          lofsa $1b24 // soundFX
  0a72:4a 0a             send a 

  0a74:33 20              jmp code_0a96 

        code_0a76
  0a76:3c                 dup 
  0a77:35 03              ldi 3 
  0a79:1a                 eq? 
  0a7a:31 1a              bnt code_0a96 
  0a7c:38 00d3          pushi d3 // $d3 setMotion
  0a7f:39 03            pushi 3 // $3 y
  0a81:51 1d            class MoveTo 
  0a83:36                push 
  0a84:39 04            pushi 4 // $4 x
  0a86:76               push0 
  0a87:81 00              lag gEgo 
  0a89:4a 04             send 4 

  0a8b:36                push 
  0a8c:35 32              ldi 32 
  0a8e:02                 add 
  0a8f:36                push 
  0a90:39 76            pushi 76 // $76 script
  0a92:81 00              lag gEgo 
  0a94:4a 0a             send a 


        code_0a96
  0a96:3a                toss 
  0a97:48                 ret 
    )

)

// 14ee
(instance bar of RPicView
    (properties
        y $62
        x $93
        z $0
        heading $0
        view $8a
        loop $1
        cel $0
        priority $6
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0a98
  0a98:3f 4b             link 4b // (var $4b)
  0a9a:78               push1 
  0a9b:74 08c2          lofss $1360 // look<below,behind,dans/bar
  0a9e:43 25 02         callk Said 2 

  0aa1:31 0d              bnt code_0ab0 
  0aa3:7a               push2 
  0aa4:39 26            pushi 26 // $26 mark
  0aa6:39 11            pushi 11 // $11 signal
  0aa8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0aae:33 79              jmp code_0b29 

        code_0ab0
  0ab0:39 03            pushi 3 // $3 y
  0ab2:7c            pushSelf 
  0ab3:8f 01              lsp param1 
  0ab5:39 03            pushi 3 // $3 y
  0ab7:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0abd:2f 09               bt code_0ac8 
  0abf:78               push1 
  0ac0:74 080f          lofss $12d2 // look/bar
  0ac3:43 25 02         callk Said 2 

  0ac6:31 61              bnt code_0b29 

        code_0ac8
  0ac8:39 4c            pushi 4c // $4c claimed
  0aca:78               push1 
  0acb:78               push1 
  0acc:87 01              lap param1 
  0ace:4a 06             send 6 

  0ad0:88 00a5            lsg gAct 
  0ad3:35 05              ldi 5 
  0ad5:20                 ge? 
  0ad6:31 1f              bnt code_0af7 
  0ad8:78               push1 
  0ad9:39 07            pushi 7 // $7 cel
  0adb:5b 04 00           lea 4 0 
  0ade:36                push 
  0adf:39 26            pushi 26 // $26 mark
  0ae1:39 12            pushi 12 // $12 illegalBits
  0ae3:39 26            pushi 26 // $26 mark
  0ae5:39 13            pushi 13 // $13 brTop
  0ae7:39 26            pushi 26 // $26 mark
  0ae9:39 14            pushi 14 // $14 brLeft
  0aeb:43 4c 0e         callk Format e 

  0aee:36                push 
  0aef:46 00ff 0000 02  calle ff procedure_0000 2 // Print 

  0af5:33 32              jmp code_0b29 

        code_0af7
  0af7:88 00a5            lsg gAct 
  0afa:35 02              ldi 2 
  0afc:22                 lt? 
  0afd:31 1f              bnt code_0b1e 
  0aff:78               push1 
  0b00:39 07            pushi 7 // $7 cel
  0b02:5b 04 00           lea 4 0 
  0b05:36                push 
  0b06:39 26            pushi 26 // $26 mark
  0b08:39 12            pushi 12 // $12 illegalBits
  0b0a:39 26            pushi 26 // $26 mark
  0b0c:39 13            pushi 13 // $13 brTop
  0b0e:39 26            pushi 26 // $26 mark
  0b10:39 15            pushi 15 // $15 brBottom
  0b12:43 4c 0e         callk Format e 

  0b15:36                push 
  0b16:46 00ff 0000 02  calle ff procedure_0000 2 // Print 

  0b1c:33 0b              jmp code_0b29 

        code_0b1e
  0b1e:7a               push2 
  0b1f:39 26            pushi 26 // $26 mark
  0b21:39 13            pushi 13 // $13 brTop
  0b23:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0b29
  0b29:48                 ret 
    )

)

// 1524
(instance table3 of RPicView
    (properties
        y $a7
        x $b9
        z $0
        heading $0
        view $8a
        loop $1
        cel $1
        priority $c
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0b2a
  0b2a:39 03            pushi 3 // $3 y
  0b2c:7c            pushSelf 
  0b2d:8f 01              lsp param1 
  0b2f:39 03            pushi 3 // $3 y
  0b31:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0b37:31 0f              bnt code_0b48 
  0b39:39 4c            pushi 4c // $4c claimed
  0b3b:78               push1 
  0b3c:78               push1 
  0b3d:87 01              lap param1 
  0b3f:4a 06             send 6 

  0b41:78               push1 
  0b42:74 10e6          lofss $1c2b // table
  0b45:45 19 02         callb procedure_0019 2 // DoLook 


        code_0b48
  0b48:48                 ret 
    )

)

// 155a
(instance statue of RPicView
    (properties
        y $5a
        x $13
        z $0
        heading $0
        view $8a
        loop $1
        cel $2
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0b49
  0b49:78               push1 
  0b4a:74 074a          lofss $1297 // get,bouger,rotate/monument
  0b4d:43 25 02         callk Said 2 

  0b50:31 0d              bnt code_0b5f 
  0b52:7a               push2 
  0b53:39 26            pushi 26 // $26 mark
  0b55:39 16            pushi 16 // $16 brRight
  0b57:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0b5d:33 45              jmp code_0ba4 

        code_0b5f
  0b5f:39 03            pushi 3 // $3 y
  0b61:7c            pushSelf 
  0b62:8f 01              lsp param1 
  0b64:39 03            pushi 3 // $3 y
  0b66:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0b6c:2f 09               bt code_0b77 
  0b6e:78               push1 
  0b6f:74 07ca          lofss $133c // look/monument
  0b72:43 25 02         callk Said 2 

  0b75:31 2d              bnt code_0ba4 

        code_0b77
  0b77:39 4c            pushi 4c // $4c claimed
  0b79:78               push1 
  0b7a:78               push1 
  0b7b:87 01              lap param1 
  0b7d:4a 06             send 6 

  0b7f:38 00ae          pushi ae // $ae distanceTo
  0b82:78               push1 
  0b83:74 09da          lofss $1560 // statue
  0b86:81 00              lag gEgo 
  0b88:4a 06             send 6 

  0b8a:36                push 
  0b8b:35 64              ldi 64 
  0b8d:22                 lt? 
  0b8e:31 0d              bnt code_0b9d 
  0b90:7a               push2 
  0b91:39 26            pushi 26 // $26 mark
  0b93:39 17            pushi 17 // $17 name
  0b95:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0b9b:33 07              jmp code_0ba4 

        code_0b9d
  0b9d:78               push1 
  0b9e:74 1028          lofss $1bc9 // horse
  0ba1:45 19 02         callb procedure_0019 2 // DoLook 


        code_0ba4
  0ba4:48                 ret 
    )

)

// 1590
(instance sofa1 of RPicView
    (properties
        y $a6
        x $70
        z $0
        heading $0
        view $8a
        loop $3
        cel $0
        priority $c
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0ba5
  0ba5:39 03            pushi 3 // $3 y
  0ba7:7c            pushSelf 
  0ba8:8f 01              lsp param1 
  0baa:39 03            pushi 3 // $3 y
  0bac:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0bb2:31 0f              bnt code_0bc3 
  0bb4:39 4c            pushi 4c // $4c claimed
  0bb6:78               push1 
  0bb7:78               push1 
  0bb8:87 01              lap param1 
  0bba:4a 06             send 6 

  0bbc:78               push1 
  0bbd:74 1037          lofss $1bf7 // sofa
  0bc0:45 19 02         callb procedure_0019 2 // DoLook 


        code_0bc3
  0bc3:48                 ret 
    )

)

// 15c6
(instance sofa2 of RPicView
    (properties
        y $a7
        x $101
        z $0
        heading $0
        view $8a
        loop $3
        cel $0
        priority $c
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0bc4
  0bc4:39 03            pushi 3 // $3 y
  0bc6:7c            pushSelf 
  0bc7:8f 01              lsp param1 
  0bc9:39 03            pushi 3 // $3 y
  0bcb:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0bd1:31 0f              bnt code_0be2 
  0bd3:39 4c            pushi 4c // $4c claimed
  0bd5:78               push1 
  0bd6:78               push1 
  0bd7:87 01              lap param1 
  0bd9:4a 06             send 6 

  0bdb:78               push1 
  0bdc:74 1018          lofss $1bf7 // sofa
  0bdf:45 19 02         callb procedure_0019 2 // DoLook 


        code_0be2
  0be2:48                 ret 
    )

)

// 15fc
(instance portrait of RPicView
    (properties
        y $36
        x $89
        z $0
        heading $0
        view $8a
        loop $2
        cel $0
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0be3
  0be3:78               push1 
  0be4:74 076d          lofss $1354 // look<behind,below/painting
  0be7:43 25 02         callk Said 2 

  0bea:31 0e              bnt code_0bfa 
  0bec:7a               push2 
  0bed:39 26            pushi 26 // $26 mark
  0bef:39 18            pushi 18 // $18 key
  0bf1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0bf7:32 009a            jmp code_0c94 

        code_0bfa
  0bfa:39 03            pushi 3 // $3 y
  0bfc:7c            pushSelf 
  0bfd:8f 01              lsp param1 
  0bff:39 03            pushi 3 // $3 y
  0c01:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0c07:2f 12               bt code_0c1b 
  0c09:78               push1 
  0c0a:74 0735          lofss $1342 // look/painting
  0c0d:43 25 02         callk Said 2 

  0c10:2f 09               bt code_0c1b 
  0c12:78               push1 
  0c13:74 070a          lofss $1320 // look/gertie,dame/painting
  0c16:43 25 02         callk Said 2 

  0c19:31 15              bnt code_0c30 

        code_0c1b
  0c1b:39 4c            pushi 4c // $4c claimed
  0c1d:78               push1 
  0c1e:78               push1 
  0c1f:87 01              lap param1 
  0c21:4a 06             send 6 

  0c23:7a               push2 
  0c24:39 26            pushi 26 // $26 mark
  0c26:39 19            pushi 19 // $19 time
  0c28:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0c2e:33 64              jmp code_0c94 

        code_0c30
  0c30:78               push1 
  0c31:74 05f5          lofss $1229 // /painting>
  0c34:43 25 02         callk Said 2 

  0c37:31 2c              bnt code_0c65 
  0c39:78               push1 
  0c3a:74 0657          lofss $1294 // get
  0c3d:43 25 02         callk Said 2 

  0c40:31 0d              bnt code_0c4f 
  0c42:7a               push2 
  0c43:39 26            pushi 26 // $26 mark
  0c45:39 1a            pushi 1a // $1a text
  0c47:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0c4d:33 14              jmp code_0c63 

        code_0c4f
  0c4f:78               push1 
  0c50:74 074a          lofss $139d // open
  0c53:43 25 02         callk Said 2 

  0c56:31 0b              bnt code_0c63 
  0c58:7a               push2 
  0c59:39 26            pushi 26 // $26 mark
  0c5b:39 1b            pushi 1b // $1b elements
  0c5d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0c63
  0c63:33 2f              jmp code_0c94 

        code_0c65
  0c65:78               push1 
  0c66:74 068d          lofss $12f6 // look/eye>
  0c69:43 25 02         callk Said 2 

  0c6c:31 09              bnt code_0c77 
  0c6e:78               push1 
  0c6f:74 06a5          lofss $1317 // look/gertie,dame
  0c72:43 25 02         callk Said 2 

  0c75:2f 12               bt code_0c89 

        code_0c77
  0c77:78               push1 
  0c78:74 0682          lofss $12fd // look/eye[<gertie,dame,painting]
  0c7b:43 25 02         callk Said 2 

  0c7e:2f 09               bt code_0c89 
  0c80:78               push1 
  0c81:74 0666          lofss $12ea // look/eye/gertie,dame
  0c84:43 25 02         callk Said 2 

  0c87:31 0b              bnt code_0c94 

        code_0c89
  0c89:7a               push2 
  0c8a:39 26            pushi 26 // $26 mark
  0c8c:39 1c            pushi 1c // $1c color
  0c8e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0c94
  0c94:48                 ret 
    )

)

// 1632
(instance horse of RPicView
    (properties
        y $93
        x $ba
        z $0
        heading $0
        view $8a
        loop $1
        cel $3
        priority $d
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0c95
  0c95:78               push1 
  0c96:74 060a          lofss $12a3 // get/blaze
  0c99:43 25 02         callk Said 2 

  0c9c:31 0d              bnt code_0cab 
  0c9e:7a               push2 
  0c9f:39 26            pushi 26 // $26 mark
  0ca1:39 1d            pushi 1d // $1d back
  0ca3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0ca9:33 2b              jmp code_0cd6 

        code_0cab
  0cab:39 03            pushi 3 // $3 y
  0cad:7c            pushSelf 
  0cae:8f 01              lsp param1 
  0cb0:39 03            pushi 3 // $3 y
  0cb2:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0cb8:2f 09               bt code_0cc3 
  0cba:78               push1 
  0cbb:74 061a          lofss $12d8 // look/blaze
  0cbe:43 25 02         callk Said 2 

  0cc1:31 13              bnt code_0cd6 

        code_0cc3
  0cc3:39 4c            pushi 4c // $4c claimed
  0cc5:78               push1 
  0cc6:78               push1 
  0cc7:87 01              lap param1 
  0cc9:4a 06             send 6 

  0ccb:7a               push2 
  0ccc:39 26            pushi 26 // $26 mark
  0cce:39 1e            pushi 1e // $1e mode
  0cd0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0cd6
  0cd6:48                 ret 
    )

)

// 1668
(instance chair1 of RPicView
    (properties
        y $8a
        x $57
        z $0
        heading $0
        view $8a
        loop $2
        cel $1
        priority $a
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0cd7
  0cd7:39 03            pushi 3 // $3 y
  0cd9:7c            pushSelf 
  0cda:8f 01              lsp param1 
  0cdc:39 03            pushi 3 // $3 y
  0cde:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0ce4:31 0f              bnt code_0cf5 
  0ce6:39 4c            pushi 4c // $4c claimed
  0ce8:78               push1 
  0ce9:78               push1 
  0cea:87 01              lap param1 
  0cec:4a 06             send 6 

  0cee:78               push1 
  0cef:74 0e82          lofss $1b74 // chair
  0cf2:45 19 02         callb procedure_0019 2 // DoLook 


        code_0cf5
  0cf5:48                 ret 
    )

)

// 169e
(instance table1 of RPicView
    (properties
        y $89
        x $70
        z $0
        heading $0
        view $8a
        loop $2
        cel $3
        priority $a
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0cf6
  0cf6:39 03            pushi 3 // $3 y
  0cf8:7c            pushSelf 
  0cf9:8f 01              lsp param1 
  0cfb:39 03            pushi 3 // $3 y
  0cfd:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0d03:31 0f              bnt code_0d14 
  0d05:39 4c            pushi 4c // $4c claimed
  0d07:78               push1 
  0d08:78               push1 
  0d09:87 01              lap param1 
  0d0b:4a 06             send 6 

  0d0d:78               push1 
  0d0e:74 0f1a          lofss $1c2b // table
  0d11:45 19 02         callb procedure_0019 2 // DoLook 


        code_0d14
  0d14:48                 ret 
    )

)

// 16d4
(instance chair2 of RPicView
    (properties
        y $8a
        x $d3
        z $0
        heading $0
        view $8a
        loop $2
        cel $2
        priority $a
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0d15
  0d15:39 03            pushi 3 // $3 y
  0d17:7c            pushSelf 
  0d18:8f 01              lsp param1 
  0d1a:39 03            pushi 3 // $3 y
  0d1c:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0d22:31 0f              bnt code_0d33 
  0d24:39 4c            pushi 4c // $4c claimed
  0d26:78               push1 
  0d27:78               push1 
  0d28:87 01              lap param1 
  0d2a:4a 06             send 6 

  0d2c:78               push1 
  0d2d:74 0e44          lofss $1b74 // chair
  0d30:45 19 02         callb procedure_0019 2 // DoLook 


        code_0d33
  0d33:48                 ret 
    )

)

// 170a
(instance chair3 of RPicView
    (properties
        y $89
        x $89
        z $0
        heading $0
        view $8a
        loop $2
        cel $1
        priority $a
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0d34
  0d34:39 03            pushi 3 // $3 y
  0d36:7c            pushSelf 
  0d37:8f 01              lsp param1 
  0d39:39 03            pushi 3 // $3 y
  0d3b:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0d41:31 0f              bnt code_0d52 
  0d43:39 4c            pushi 4c // $4c claimed
  0d45:78               push1 
  0d46:78               push1 
  0d47:87 01              lap param1 
  0d49:4a 06             send 6 

  0d4b:78               push1 
  0d4c:74 0e25          lofss $1b74 // chair
  0d4f:45 19 02         callb procedure_0019 2 // DoLook 


        code_0d52
  0d52:48                 ret 
    )

)

// 1740
(instance table2 of RPicView
    (properties
        y $8a
        x $ea
        z $0
        heading $0
        view $8a
        loop $2
        cel $3
        priority $a
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0d53
  0d53:39 03            pushi 3 // $3 y
  0d55:7c            pushSelf 
  0d56:8f 01              lsp param1 
  0d58:39 03            pushi 3 // $3 y
  0d5a:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0d60:31 0f              bnt code_0d71 
  0d62:39 4c            pushi 4c // $4c claimed
  0d64:78               push1 
  0d65:78               push1 
  0d66:87 01              lap param1 
  0d68:4a 06             send 6 

  0d6a:78               push1 
  0d6b:74 0ebd          lofss $1c2b // table
  0d6e:45 19 02         callb procedure_0019 2 // DoLook 


        code_0d71
  0d71:48                 ret 
    )

)

// 1776
(instance chair4 of Prop
    (properties
        y $8a
        x $109
        z $0
        heading $0
        yStep $2
        view $8a
        loop $2
        cel $1
        priority $a
        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_0d72
  0d72:39 03            pushi 3 // $3 y
  0d74:7c            pushSelf 
  0d75:8f 01              lsp param1 
  0d77:39 03            pushi 3 // $3 y
  0d79:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0d7f:31 0f              bnt code_0d90 
  0d81:39 4c            pushi 4c // $4c claimed
  0d83:78               push1 
  0d84:78               push1 
  0d85:87 01              lap param1 
  0d87:4a 06             send 6 

  0d89:78               push1 
  0d8a:74 0de7          lofss $1b74 // chair
  0d8d:45 19 02         callb procedure_0019 2 // DoLook 


        code_0d90
  0d90:48                 ret 
    )

)

// 17c8
(instance stand of RPicView
    (properties
        y $5d
        x $de
        z $0
        heading $0
        view $8a
        loop $1
        cel $7
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
)

// 17fa
(instance couch of RPicView
    (properties
        y $59
        x $43
        z $0
        heading $0
        view $8a
        loop $3
        cel $2
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0d91
  0d91:39 03            pushi 3 // $3 y
  0d93:7c            pushSelf 
  0d94:8f 01              lsp param1 
  0d96:39 03            pushi 3 // $3 y
  0d98:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0d9e:31 0f              bnt code_0daf 
  0da0:39 4c            pushi 4c // $4c claimed
  0da2:78               push1 
  0da3:78               push1 
  0da4:87 01              lap param1 
  0da6:4a 06             send 6 

  0da8:78               push1 
  0da9:74 0dea          lofss $1b96 // couch
  0dac:45 19 02         callb procedure_0019 2 // DoLook 


        code_0daf
  0daf:48                 ret 
    )

)

// 1830
(instance decantar of Prop
    (properties
        y $62
        x $74
        z $20
        heading $0
        yStep $2
        view $8a
        loop $1
        cel $5
        priority $6
        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_0db0
  0db0:39 4c            pushi 4c // $4c claimed
  0db2:76               push0 
  0db3:87 01              lap param1 
  0db5:4a 04             send 4 

  0db7:18                 not 
  0db8:30 008e            bnt code_0e49 
  0dbb:78               push1 
  0dbc:74 04cc          lofss $128b // boire/[<alcohol]
  0dbf:43 25 02         callk Said 2 

  0dc2:2f 12               bt code_0dd6 
  0dc4:78               push1 
  0dc5:74 04b1          lofss $1279 // boire,for,get/carafe,alcohol,boire
  0dc8:43 25 02         callk Said 2 

  0dcb:2f 09               bt code_0dd6 
  0dcd:78               push1 
  0dce:74 05d5          lofss $13a6 // open/carafe,alcohol
  0dd1:43 25 02         callk Said 2 

  0dd4:31 0d              bnt code_0de3 

        code_0dd6
  0dd6:7a               push2 
  0dd7:39 26            pushi 26 // $26 mark
  0dd9:39 1f            pushi 1f // $1f style
  0ddb:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0de1:33 57              jmp code_0e3a 

        code_0de3
  0de3:78               push1 
  0de4:74 0588          lofss $136f // look<dans/carafe
  0de7:43 25 02         callk Said 2 

  0dea:31 0d              bnt code_0df9 
  0dec:7a               push2 
  0ded:39 26            pushi 26 // $26 mark
  0def:39 20            pushi 20 // $20 state
  0df1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0df7:33 41              jmp code_0e3a 

        code_0df9
  0df9:78               push1 
  0dfa:74 04cf          lofss $12cc // look/alcohol
  0dfd:43 25 02         callk Said 2 

  0e00:31 0d              bnt code_0e0f 
  0e02:7a               push2 
  0e03:39 26            pushi 26 // $26 mark
  0e05:39 21            pushi 21 // $21 font
  0e07:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0e0d:33 2b              jmp code_0e3a 

        code_0e0f
  0e0f:39 03            pushi 3 // $3 y
  0e11:7c            pushSelf 
  0e12:8f 01              lsp param1 
  0e14:39 03            pushi 3 // $3 y
  0e16:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0e1c:2f 09               bt code_0e27 
  0e1e:78               push1 
  0e1f:74 04bc          lofss $12de // look/carafe
  0e22:43 25 02         callk Said 2 

  0e25:31 13              bnt code_0e3a 

        code_0e27
  0e27:39 4c            pushi 4c // $4c claimed
  0e29:78               push1 
  0e2a:78               push1 
  0e2b:87 01              lap param1 
  0e2d:4a 06             send 6 

  0e2f:7a               push2 
  0e30:39 26            pushi 26 // $26 mark
  0e32:39 15            pushi 15 // $15 brBottom
  0e34:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0e3a
  0e3a:39 4c            pushi 4c // $4c claimed
  0e3c:76               push0 
  0e3d:87 01              lap param1 
  0e3f:4a 04             send 4 

  0e41:31 06              bnt code_0e49 
  0e43:78               push1 
  0e44:39 1d            pushi 1d // $1d back
  0e46:45 05 02         callb procedure_0005 2 // SetFlag 


        code_0e49
  0e49:48                 ret 
    )

)

// 1882
(instance glass of RPicView
    (properties
        y $66
        x $a7
        z $20
        heading $0
        view $8a
        loop $1
        cel $4
        priority $6
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0e4a
  0e4a:78               push1 
  0e4b:74 052a          lofss $1378 // look<dans/glass
  0e4e:43 25 02         callk Said 2 

  0e51:31 0e              bnt code_0e61 
  0e53:7a               push2 
  0e54:39 26            pushi 26 // $26 mark
  0e56:39 22            pushi 22 // $22 type
  0e58:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0e5e:32 00f9            jmp code_0f5a 

        code_0e61
  0e61:78               push1 
  0e62:74 0444          lofss $12a9 // get/glass
  0e65:43 25 02         callk Said 2 

  0e68:31 0e              bnt code_0e78 
  0e6a:7a               push2 
  0e6b:39 26            pushi 26 // $26 mark
  0e6d:39 23            pushi 23 // $23 window
  0e6f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0e75:32 00e2            jmp code_0f5a 

        code_0e78
  0e78:78               push1 
  0e79:74 0505          lofss $1381 // look<actionner<monocle/glass
  0e7c:43 25 02         callk Said 2 

  0e7f:2f 09               bt code_0e8a 
  0e81:78               push1 
  0e82:74 0433          lofss $12b8 // look,look[<at]/glass/monocle<avec
  0e85:43 25 02         callk Said 2 

  0e88:31 48              bnt code_0ed2 

        code_0e8a
  0e8a:38 00ee          pushi ee // $ee has
  0e8d:78               push1 
  0e8e:78               push1 
  0e8f:81 00              lag gEgo 
  0e91:4a 06             send 6 

  0e93:31 36              bnt code_0ecb 
  0e95:38 00da          pushi da // $da inRect
  0e98:39 04            pushi 4 // $4 x
  0e9a:38 009b          pushi 9b // $9b bottom
  0e9d:39 5b            pushi 5b // $5b perform
  0e9f:38 00b9          pushi b9 // $b9 nonBumps
  0ea2:39 6c            pushi 6c // $6c addToEnd
  0ea4:81 00              lag gEgo 
  0ea6:4a 0c             send c 

  0ea8:31 1b              bnt code_0ec5 
  0eaa:39 06            pushi 6 // $6 loop
  0eac:39 26            pushi 26 // $26 mark
  0eae:39 24            pushi 24 // $24 cursor
  0eb0:39 52            pushi 52 // $52 icon
  0eb2:38 027e          pushi 27e // $27e sel_638
  0eb5:76               push0 
  0eb6:76               push0 
  0eb7:46 00ff 0000 0c  calle ff procedure_0000 c // Print 

  0ebd:78               push1 
  0ebe:39 0a            pushi a // $a nsLeft
  0ec0:45 05 02         callb procedure_0005 2 // SetFlag 

  0ec3:33 04              jmp code_0ec9 

        code_0ec5
  0ec5:76               push0 
  0ec6:45 09 00         callb procedure_0009 0 // NotClose 


        code_0ec9
  0ec9:33 04              jmp code_0ecf 

        code_0ecb
  0ecb:76               push0 
  0ecc:45 0d 00         callb procedure_000d 0 // DontHave 


        code_0ecf
  0ecf:32 0088            jmp code_0f5a 

        code_0ed2
  0ed2:78               push1 
  0ed3:74 0438          lofss $130e // look/empreinte/glass
  0ed6:43 25 02         callk Said 2 

  0ed9:31 28              bnt code_0f03 
  0edb:38 00da          pushi da // $da inRect
  0ede:39 04            pushi 4 // $4 x
  0ee0:38 009b          pushi 9b // $9b bottom
  0ee3:39 5b            pushi 5b // $5b perform
  0ee5:38 00b9          pushi b9 // $b9 nonBumps
  0ee8:39 69            pushi 69 // $69 last
  0eea:81 00              lag gEgo 
  0eec:4a 0c             send c 

  0eee:31 0d              bnt code_0efd 
  0ef0:7a               push2 
  0ef1:39 26            pushi 26 // $26 mark
  0ef3:39 25            pushi 25 // $25 max
  0ef5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0efb:33 04              jmp code_0f01 

        code_0efd
  0efd:76               push0 
  0efe:45 09 00         callb procedure_0009 0 // NotClose 


        code_0f01
  0f01:33 57              jmp code_0f5a 

        code_0f03
  0f03:39 03            pushi 3 // $3 y
  0f05:7c            pushSelf 
  0f06:8f 01              lsp param1 
  0f08:39 03            pushi 3 // $3 y
  0f0a:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0f10:2f 13               bt code_0f25 
  0f12:78               push1 
  0f13:74 041c          lofss $1332 // look/glass/monocle>
  0f16:43 25 02         callk Said 2 

  0f19:18                 not 
  0f1a:31 3e              bnt code_0f5a 
  0f1c:78               push1 
  0f1d:74 040c          lofss $132c // look/glass
  0f20:43 25 02         callk Said 2 

  0f23:31 35              bnt code_0f5a 

        code_0f25
  0f25:39 4c            pushi 4c // $4c claimed
  0f27:78               push1 
  0f28:78               push1 
  0f29:87 01              lap param1 
  0f2b:4a 06             send 6 

  0f2d:38 00da          pushi da // $da inRect
  0f30:39 04            pushi 4 // $4 x
  0f32:38 009b          pushi 9b // $9b bottom
  0f35:39 5b            pushi 5b // $5b perform
  0f37:38 00b9          pushi b9 // $b9 nonBumps
  0f3a:39 69            pushi 69 // $69 last
  0f3c:81 00              lag gEgo 
  0f3e:4a 0c             send c 

  0f40:31 0d              bnt code_0f4f 
  0f42:7a               push2 
  0f43:39 26            pushi 26 // $26 mark
  0f45:39 26            pushi 26 // $26 mark
  0f47:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0f4d:33 0b              jmp code_0f5a 

        code_0f4f
  0f4f:7a               push2 
  0f50:39 26            pushi 26 // $26 mark
  0f52:39 27            pushi 27 // $27 who
  0f54:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0f5a
  0f5a:48                 ret 
    )

)

// 18b8
(instance stool1 of RPicView
    (properties
        y $66
        x $a8
        z $0
        heading $0
        view $8a
        loop $3
        cel $1
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0f5b
  0f5b:39 03            pushi 3 // $3 y
  0f5d:7c            pushSelf 
  0f5e:8f 01              lsp param1 
  0f60:39 03            pushi 3 // $3 y
  0f62:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0f68:31 0f              bnt code_0f79 
  0f6a:39 4c            pushi 4c // $4c claimed
  0f6c:78               push1 
  0f6d:78               push1 
  0f6e:87 01              lap param1 
  0f70:4a 06             send 6 

  0f72:78               push1 
  0f73:74 0bfe          lofss $1b74 // chair
  0f76:45 19 02         callb procedure_0019 2 // DoLook 


        code_0f79
  0f79:48                 ret 
    )

)

// 18ee
(instance stool2 of RPicView
    (properties
        y $66
        x $8a
        z $0
        heading $0
        view $8a
        loop $3
        cel $1
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0f7a
  0f7a:39 03            pushi 3 // $3 y
  0f7c:7c            pushSelf 
  0f7d:8f 01              lsp param1 
  0f7f:39 03            pushi 3 // $3 y
  0f81:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0f87:31 0f              bnt code_0f98 
  0f89:39 4c            pushi 4c // $4c claimed
  0f8b:78               push1 
  0f8c:78               push1 
  0f8d:87 01              lap param1 
  0f8f:4a 06             send 6 

  0f91:78               push1 
  0f92:74 0bdf          lofss $1b74 // chair
  0f95:45 19 02         callb procedure_0019 2 // DoLook 


        code_0f98
  0f98:48                 ret 
    )

)

// 1924
(instance Fdoor of Prop
    (properties
        y $74
        x $10b
        z $0
        heading $0
        yStep $2
        view $c9
        loop $1
        cel $0
        priority $8
        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_0f99
  0f99:39 03            pushi 3 // $3 y
  0f9b:7c            pushSelf 
  0f9c:8f 01              lsp param1 
  0f9e:39 03            pushi 3 // $3 y
  0fa0:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0fa6:2f 09               bt code_0fb1 
  0fa8:78               push1 
  0fa9:74 0338          lofss $12e4 // look/door
  0fac:43 25 02         callk Said 2 

  0faf:31 13              bnt code_0fc4 

        code_0fb1
  0fb1:39 4c            pushi 4c // $4c claimed
  0fb3:78               push1 
  0fb4:78               push1 
  0fb5:87 01              lap param1 
  0fb7:4a 06             send 6 

  0fb9:7a               push2 
  0fba:39 26            pushi 26 // $26 mark
  0fbc:39 28            pushi 28 // $28 message
  0fbe:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0fc4
  0fc4:48                 ret 
    )

)

// 1976
(instance Bdoor of Prop
    (properties
        y $7f
        x $115
        z $0
        heading $0
        yStep $2
        view $c9
        loop $3
        cel $0
        priority $9
        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
    )
)

// 19c4
(instance parrot of Prop
    (properties
        y $27
        x $dd
        z $0
        heading $0
        yStep $2
        view $ee
        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_0fc5
  0fc5:78               push1 
  0fc6:74 03f4          lofss $13bd // hold,feed,deliver>
  0fc9:43 25 02         callk Said 2 

  0fcc:30 00fb            bnt code_10ca 
  0fcf:78               push1 
  0fd0:74 0275          lofss $1248 // /parrot[/!*]
  0fd3:43 25 02         callk Said 2 

  0fd6:2f 1e               bt code_0ff6 
  0fd8:78               push1 
  0fd9:74 0249          lofss $1225 // /aliments
  0fdc:43 25 02         callk Said 2 

  0fdf:31 23              bnt code_1004 
  0fe1:38 00da          pushi da // $da inRect
  0fe4:39 04            pushi 4 // $4 x
  0fe6:38 00c5          pushi c5 // $c5 posn
  0fe9:39 58            pushi 58 // $58 dispose
  0feb:38 00f0          pushi f0 // $f0 targetObj
  0fee:39 62            pushi 62 // $62 eachElementDo
  0ff0:81 00              lag gEgo 
  0ff2:4a 0c             send c 

  0ff4:31 0e              bnt code_1004 

        code_0ff6
  0ff6:7a               push2 
  0ff7:39 26            pushi 26 // $26 mark
  0ff9:39 29            pushi 29 // $29 edit
  0ffb:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1001:32 00c3            jmp code_10c7 

        code_1004
  1004:78               push1 
  1005:74 0233          lofss $123b // /parrot/*>
  1008:43 25 02         callk Said 2 

  100b:2f 32               bt code_103f 
  100d:78               push1 
  100e:74 01fb          lofss $120c // /*/parrot>
  1011:43 25 02         callk Said 2 

  1014:2f 29               bt code_103f 
  1016:78               push1 
  1017:74 01fa          lofss $1214 // /*<parrot>
  101a:43 25 02         callk Said 2 

  101d:2f 20               bt code_103f 
  101f:78               push1 
  1020:74 01e1          lofss $1204 // /*/!*>
  1023:43 25 02         callk Said 2 

  1026:30 009e            bnt code_10c7 
  1029:38 00da          pushi da // $da inRect
  102c:39 04            pushi 4 // $4 x
  102e:38 00c5          pushi c5 // $c5 posn
  1031:39 58            pushi 58 // $58 dispose
  1033:38 00f0          pushi f0 // $f0 targetObj
  1036:39 62            pushi 62 // $62 eachElementDo
  1038:81 00              lag gEgo 
  103a:4a 0c             send c 

  103c:30 0088            bnt code_10c7 

        code_103f
  103f:78               push1 
  1040:74 01de          lofss $1221 // /biscuit
  1043:43 25 02         callk Said 2 

  1046:2f 09               bt code_1051 
  1048:78               push1 
  1049:74 01d0          lofss $121c // //biscuit
  104c:43 25 02         callk Said 2 

  104f:31 53              bnt code_10a4 

        code_1051
  1051:38 00ee          pushi ee // $ee has
  1054:78               push1 
  1055:39 0b            pushi b // $b nsBottom
  1057:81 00              lag gEgo 
  1059:4a 06             send 6 

  105b:31 41              bnt code_109e 
  105d:88 0088            lsg global136 
  1060:35 00              ldi 0 
  1062:1e                 gt? 
  1063:31 2c              bnt code_1091 
  1065:38 00da          pushi da // $da inRect
  1068:39 04            pushi 4 // $4 x
  106a:38 00c5          pushi c5 // $c5 posn
  106d:39 58            pushi 58 // $58 dispose
  106f:38 00f0          pushi f0 // $f0 targetObj
  1072:39 62            pushi 62 // $62 eachElementDo
  1074:81 00              lag gEgo 
  1076:4a 0c             send c 

  1078:31 11              bnt code_108b 
  107a:35 01              ldi 1 
  107c:a3 04              sal local4 
  107e:39 7a            pushi 7a // $7a setScript
  1080:78               push1 
  1081:74 040c          lofss $1490 // feedParrot
  1084:72 0943          lofsa $19ca // parrot
  1087:4a 06             send 6 

  1089:33 04              jmp code_108f 

        code_108b
  108b:76               push0 
  108c:45 09 00         callb procedure_0009 0 // NotClose 


        code_108f
  108f:33 0b              jmp code_109c 

        code_1091
  1091:7a               push2 
  1092:39 26            pushi 26 // $26 mark
  1094:39 2a            pushi 2a // $2a play
  1096:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_109c
  109c:33 04              jmp code_10a2 

        code_109e
  109e:76               push0 
  109f:45 0d 00         callb procedure_000d 0 // DontHave 


        code_10a2
  10a2:33 1b              jmp code_10bf 

        code_10a4
  10a4:80 00db            lag global219 
  10a7:31 12              bnt code_10bb 
  10a9:80 00e0            lag global224 
  10ac:31 0d              bnt code_10bb 
  10ae:7a               push2 
  10af:39 26            pushi 26 // $26 mark
  10b1:39 2b            pushi 2b // $2b number
  10b3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  10b9:33 04              jmp code_10bf 

        code_10bb
  10bb:76               push0 
  10bc:45 0d 00         callb procedure_000d 0 // DontHave 


        code_10bf
  10bf:39 4c            pushi 4c // $4c claimed
  10c1:78               push1 
  10c2:78               push1 
  10c3:87 01              lap param1 
  10c5:4a 06             send 6 


        code_10c7
  10c7:32 00f6            jmp code_11c0 

        code_10ca
  10ca:39 03            pushi 3 // $3 y
  10cc:7c            pushSelf 
  10cd:8f 01              lsp param1 
  10cf:39 03            pushi 3 // $3 y
  10d1:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  10d7:2f 09               bt code_10e2 
  10d9:78               push1 
  10da:74 026b          lofss $1348 // look/parrot,birdstand,debout
  10dd:43 25 02         callk Said 2 

  10e0:31 16              bnt code_10f8 

        code_10e2
  10e2:7a               push2 
  10e3:39 26            pushi 26 // $26 mark
  10e5:39 2c            pushi 2c // $2c handle
  10e7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  10ed:39 4c            pushi 4c // $4c claimed
  10ef:78               push1 
  10f0:78               push1 
  10f1:87 01              lap param1 
  10f3:4a 06             send 6 

  10f5:32 00c8            jmp code_11c0 

        code_10f8
  10f8:78               push1 
  10f9:74 0147          lofss $1243 // /parrot>
  10fc:43 25 02         callk Said 2 

  10ff:30 00be            bnt code_11c0 
  1102:78               push1 
  1103:74 016a          lofss $1270 // attraper,get,caliner
  1106:43 25 02         callk Said 2 

  1109:31 2d              bnt code_1138 
  110b:38 00da          pushi da // $da inRect
  110e:39 04            pushi 4 // $4 x
  1110:38 00c5          pushi c5 // $c5 posn
  1113:39 58            pushi 58 // $58 dispose
  1115:38 00f0          pushi f0 // $f0 targetObj
  1118:39 62            pushi 62 // $62 eachElementDo
  111a:81 00              lag gEgo 
  111c:4a 0c             send c 

  111e:31 11              bnt code_1131 
  1120:35 00              ldi 0 
  1122:a3 04              sal local4 
  1124:39 7a            pushi 7a // $7a setScript
  1126:78               push1 
  1127:74 0366          lofss $1490 // feedParrot
  112a:72 089d          lofsa $19ca // parrot
  112d:4a 06             send 6 

  112f:33 04              jmp code_1135 

        code_1131
  1131:76               push0 
  1132:45 09 00         callb procedure_0009 0 // NotClose 


        code_1135
  1135:32 0088            jmp code_11c0 

        code_1138
  1138:78               push1 
  1139:74 0294          lofss $13d0 // bonjour
  113c:43 25 02         callk Said 2 

  113f:31 55              bnt code_1196 
  1141:7a               push2 
  1142:76               push0 
  1143:39 03            pushi 3 // $3 y
  1145:43 40 04         callk Random 4 

  1148:36                push 
  1149:3c                 dup 
  114a:35 00              ldi 0 
  114c:1a                 eq? 
  114d:31 0d              bnt code_115c 
  114f:7a               push2 
  1150:39 26            pushi 26 // $26 mark
  1152:39 2d            pushi 2d // $2d client
  1154:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  115a:33 37              jmp code_1193 

        code_115c
  115c:3c                 dup 
  115d:35 01              ldi 1 
  115f:1a                 eq? 
  1160:31 0d              bnt code_116f 
  1162:7a               push2 
  1163:39 26            pushi 26 // $26 mark
  1165:39 2e            pushi 2e // $2e dx
  1167:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  116d:33 24              jmp code_1193 

        code_116f
  116f:3c                 dup 
  1170:35 02              ldi 2 
  1172:1a                 eq? 
  1173:31 0d              bnt code_1182 
  1175:7a               push2 
  1176:39 26            pushi 26 // $26 mark
  1178:39 2f            pushi 2f // $2f dy
  117a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1180:33 11              jmp code_1193 

        code_1182
  1182:3c                 dup 
  1183:35 03              ldi 3 
  1185:1a                 eq? 
  1186:31 0b              bnt code_1193 
  1188:7a               push2 
  1189:39 26            pushi 26 // $26 mark
  118b:39 30            pushi 30 // $30 b-moveCnt
  118d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_1193
  1193:3a                toss 
  1194:33 2a              jmp code_11c0 

        code_1196
  1196:78               push1 
  1197:74 0118          lofss $12b2 // embrasser
  119a:43 25 02         callk Said 2 

  119d:31 0d              bnt code_11ac 
  119f:7a               push2 
  11a0:39 26            pushi 26 // $26 mark
  11a2:39 31            pushi 31 // $31 b-i1
  11a4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  11aa:33 14              jmp code_11c0 

        code_11ac
  11ac:78               push1 
  11ad:74 00ff          lofss $12af // abattre
  11b0:43 25 02         callk Said 2 

  11b3:31 0b              bnt code_11c0 
  11b5:7a               push2 
  11b6:39 26            pushi 26 // $26 mark
  11b8:39 32            pushi 32 // $32 b-i2
  11ba:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_11c0
  11c0:48                 ret 
    )

)

// 1a16
(instance lamp1 of Prop
    (properties
        y $29
        x $48
        z $0
        heading $0
        yStep $2
        view $8a
        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_11c1
  11c1:39 03            pushi 3 // $3 y
  11c3:7c            pushSelf 
  11c4:8f 01              lsp param1 
  11c6:39 03            pushi 3 // $3 y
  11c8:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  11ce:31 0f              bnt code_11df 
  11d0:39 4c            pushi 4c // $4c claimed
  11d2:78               push1 
  11d3:78               push1 
  11d4:87 01              lap param1 
  11d6:4a 06             send 6 

  11d8:78               push1 
  11d9:74 09f3          lofss $1bcf // lamp
  11dc:45 19 02         callb procedure_0019 2 // DoLook 


        code_11df
  11df:48                 ret 
    )

)

// 1a68
(instance lamp2 of Prop
    (properties
        y $29
        x $ca
        z $0
        heading $0
        yStep $2
        view $8a
        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_11e0
  11e0:39 03            pushi 3 // $3 y
  11e2:7c            pushSelf 
  11e3:8f 01              lsp param1 
  11e5:39 03            pushi 3 // $3 y
  11e7:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  11ed:31 0f              bnt code_11fe 
  11ef:39 4c            pushi 4c // $4c claimed
  11f1:78               push1 
  11f2:78               push1 
  11f3:87 01              lap param1 
  11f5:4a 06             send 6 

  11f7:78               push1 
  11f8:74 09d4          lofss $1bcf // lamp
  11fb:45 19 02         callb procedure_0019 2 // DoLook 


        code_11fe
  11fe:48                 ret 
  11ff:00                bnot 
    )

)

// 1aba
(instance Door of Act
    (properties
        y $54
        x $0
        z $0
        heading $0
        yStep $2
        view $8a
        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
    )
)

// 1b1e
(instance soundFX of Sound
    (properties
        state $0
        number $0
        priority $5
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)



