(script 31)

(string
    string_1b88 ","
    string_1b8a ", a pearl-handled dagger,"
    string_1ba4 "Bdoor"
    string_1baa "Desk"
    string_1baf "Fdoor"
    string_1bb5 "Room31"
    string_1bbc "Shadow"
    string_1bc3 "Spear"
    string_1bc9 "Window1"
    string_1bd1 "Window2"
    string_1bd9 "aligator"
    string_1be2 "bookcase"
    string_1beb "cabDoor"
    string_1bf3 "cabinetDrawer"
    string_1c01 "chair"
    string_1c07 "closeDoor"
    string_1c11 "crossbow"
    string_1c1a "derringer"
    string_1c24 "door"
    string_1c29 "fireplace"
    string_1c33 "firetools"
    string_1c3d "globe"
    string_1c43 "gundoor"
    string_1c4b "hawk"
    string_1c50 "lamp"
    string_1c55 "lamp1"
    string_1c5b "lamp2"
    string_1c61 "logs"
    string_1c66 "myDoor"
    string_1c6d "mySound"
    string_1c75 "rhino"
    string_1c7b "shadowWalk"
    string_1c86 "sofa"
    string_1c8b "sphere"
    string_1c92 "spin"
    string_1c97 "table"
    string_1c9d "table1"
    string_1ca4 "table2"
    string_1cab "tomahawk"
    string_1cb4 "window"
    string_1cbb "wingback"
)

(said
    said_11d8 (look<dans),open/armoire,(door<armoire)>
    said_11ef /armoire
    said_11f3 /boomerang[<australian]
    said_11fc /coutelas[<acier]
    said_1205 /couteau[<pearl]
    said_120e /derringer
    said_1212 /door
    said_1216 /mace[<antique]
    said_121f /manteau
    said_1223 /fusil
    said_1227 /top/armoire
    said_122e /arme
    said_1232 <above,above/fireplace
    said_123c [<around,at][/room]
    said_124a ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
    said_1269 break/glass,affaire
    said_1272 clore/armoire,(door<armoire)
    said_1280 feel<dans/affaire
    said_1289 find,look/derringer
    said_1292 get/ax[<feathered]
    said_129d get/aigle,alligator
    said_12a6 get/arbalete[<antique]
    said_12b1 get/glass,affaire
    said_12ba get/globe
    said_12c0 get/rhino,head
    said_12c9 get/lance
    said_12cf get>
    said_12d3 look/alligator
    said_12d9 look/ax[<feathered]
    said_12e4 look/aigle
    said_12ea look/affaire[<glass]
    said_12f5 look/arbalete[<antique]
    said_1300 look/bureau
    said_1306 look/globe
    said_130c look/rhino,head
    said_1315 look/lance
    said_131b look<below/globe
    said_1324 look<dans/globe
    said_132d look<dans/rhino,head
    said_1339 look>
    said_133d bouger/armoire
    said_1343 bouger/affaire
    said_1349 bouger/globe
    said_134f open
    said_1352 open,(look<dans)/bureau,(drawer[<bureau])
    said_136a open/affaire
    said_1370 open/globe
    said_1376 rotate,spin/globe
    said_137f debloquer/affaire
)

(synonym
    room = etudier | lire | read | study
)

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

// 138c
(instance public Room31 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $1f
        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_0016
  0016:35 20              ldi 20 
  0018:65 1c             aTop east 
  001a:39 57            pushi 57 // $57 init
  001c:76               push0 
  001d:57 37 04         super Rm 4 

  0020:76               push0 
  0021:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  0024:a3 08              sal local8 
  0026:39 61            pushi 61 // $61 add
  0028:39 0e            pushi e // $e lsLeft
  002a:74 16e5          lofss $1712 // crossbow
  002d:74 1472          lofss $14a2 // rhino
  0030:74 17b9          lofss $17ec // tomahawk
  0033:74 152c          lofss $1562 // aligator
  0036:74 166d          lofss $16a6 // hawk
  0039:74 16a0          lofss $16dc // globe
  003c:74 1499          lofss $14d8 // firetools
  003f:74 14c0          lofss $1502 // logs
  0042:74 14f3          lofss $1538 // bookcase
  0045:74 1550          lofss $1598 // sofa
  0048:74 1583          lofss $15ce // wingback
  004b:74 15b6          lofss $1604 // chair
  004e:74 15e9          lofss $163a // table1
  0051:74 161c          lofss $1670 // table2
  0054:39 62            pushi 62 // $62 eachElementDo
  0056:78               push1 
  0057:39 57            pushi 57 // $57 init
  0059:39 3c            pushi 3c // $3c doit
  005b:76               push0 
  005c:81 0a              lag gAddToPics 
  005e:4a 2a             send 2a 

  0060:39 03            pushi 3 // $3 y
  0062:38 0084          pushi 84 // $84 stop
  0065:39 2b            pushi 2b // $2b number
  0067:39 2c            pushi 2c // $2c handle
  0069:45 15 06         callb procedure_0015 6 // LoadMany 

  006c:38 010a          pushi 10a // $10a setRegions
  006f:78               push1 
  0070:38 00d5          pushi d5 // $d5 ignoreHorizon
  0073:38 010b          pushi 10b // $10b setFeatures
  0076:39 12            pushi 12 // $12 illegalBits
  0078:74 1697          lofss $1712 // crossbow
  007b:74 1424          lofss $14a2 // rhino
  007e:74 1481          lofss $1502 // logs
  0081:74 1514          lofss $1598 // sofa
  0084:74 1547          lofss $15ce // wingback
  0087:74 157a          lofss $1604 // chair
  008a:74 15ad          lofss $163a // table1
  008d:74 15e0          lofss $1670 // table2
  0090:74 16b5          lofss $1748 // lamp1
  0093:74 1704          lofss $179a // lamp2
  0096:74 14c9          lofss $1562 // aligator
  0099:74 160a          lofss $16a6 // hawk
  009c:74 163d          lofss $16dc // globe
  009f:74 174a          lofss $17ec // tomahawk
  00a2:74 17a9          lofss $184e // Desk
  00a5:74 177a          lofss $1822 // Spear
  00a8:74 17cf          lofss $187a // Window1
  00ab:74 17f8          lofss $18a6 // Window2
  00ae:54 2e             self 2e 

  00b0:80 00df            lag gDetailLevel 
  00b3:31 28              bnt code_00dd 
  00b5:39 42            pushi 42 // $42 setPri
  00b7:78               push1 
  00b8:39 05            pushi 5 // $5 view
  00ba:39 7e            pushi 7e // $7e setCycle
  00bc:78               push1 
  00bd:51 16            class Fwd 
  00bf:36                push 
  00c0:39 57            pushi 57 // $57 init
  00c2:76               push0 
  00c3:72 1682          lofsa $1748 // lamp1
  00c6:4a 10             send 10 

  00c8:39 42            pushi 42 // $42 setPri
  00ca:78               push1 
  00cb:39 0b            pushi b // $b nsBottom
  00cd:39 7e            pushi 7e // $7e setCycle
  00cf:78               push1 
  00d0:51 16            class Fwd 
  00d2:36                push 
  00d3:39 57            pushi 57 // $57 init
  00d5:76               push0 
  00d6:72 16c1          lofsa $179a // lamp2
  00d9:4a 10             send 10 

  00db:33 22              jmp code_00ff 

        code_00dd
  00dd:39 42            pushi 42 // $42 setPri
  00df:78               push1 
  00e0:39 05            pushi 5 // $5 view
  00e2:39 57            pushi 57 // $57 init
  00e4:76               push0 
  00e5:38 00c6          pushi c6 // $c6 stopUpd
  00e8:76               push0 
  00e9:72 165c          lofsa $1748 // lamp1
  00ec:4a 0e             send e 

  00ee:39 42            pushi 42 // $42 setPri
  00f0:78               push1 
  00f1:39 0b            pushi b // $b nsBottom
  00f3:39 57            pushi 57 // $57 init
  00f5:76               push0 
  00f6:38 00c6          pushi c6 // $c6 stopUpd
  00f9:76               push0 
  00fa:72 169d          lofsa $179a // lamp2
  00fd:4a 0e             send e 


        code_00ff
  00ff:39 07            pushi 7 // $7 cel
  0101:78               push1 
  0102:88 00a5            lsg gAct 
  0105:35 06              ldi 6 
  0107:22                 lt? 
  0108:31 04              bnt code_010e 
  010a:35 03              ldi 3 
  010c:33 02              jmp code_0110 

        code_010e
  010e:35 04              ldi 4 

        code_0110
  0110:36                push 
  0111:39 42            pushi 42 // $42 setPri
  0113:78               push1 
  0114:39 0b            pushi b // $b nsBottom
  0116:38 00c9          pushi c9 // $c9 ignoreActors
  0119:78               push1 
  011a:78               push1 
  011b:39 57            pushi 57 // $57 init
  011d:76               push0 
  011e:38 00c6          pushi c6 // $c6 stopUpd
  0121:76               push0 
  0122:72 1943          lofsa $1a68 // derringer
  0125:4a 1a             send 1a 

  0127:39 07            pushi 7 // $7 cel
  0129:78               push1 
  012a:89 0c              lsg gPrevRoomNum 
  012c:35 0a              ldi a 
  012e:1a                 eq? 
  012f:31 04              bnt code_0135 
  0131:35 02              ldi 2 
  0133:33 02              jmp code_0137 

        code_0135
  0135:35 00              ldi 0 

        code_0137
  0137:36                push 
  0138:39 3f            pushi 3f // $3f priority
  013a:78               push1 
  013b:39 07            pushi 7 // $7 cel
  013d:38 00c9          pushi c9 // $c9 ignoreActors
  0140:78               push1 
  0141:78               push1 
  0142:39 57            pushi 57 // $57 init
  0144:76               push0 
  0145:38 00c6          pushi c6 // $c6 stopUpd
  0148:76               push0 
  0149:72 17d8          lofsa $1924 // Fdoor
  014c:4a 1a             send 1a 

  014e:39 07            pushi 7 // $7 cel
  0150:78               push1 
  0151:89 0c              lsg gPrevRoomNum 
  0153:35 0a              ldi a 
  0155:1a                 eq? 
  0156:31 04              bnt code_015c 
  0158:35 02              ldi 2 
  015a:33 02              jmp code_015e 

        code_015c
  015c:35 00              ldi 0 

        code_015e
  015e:36                push 
  015f:38 00c9          pushi c9 // $c9 ignoreActors
  0162:78               push1 
  0163:78               push1 
  0164:39 57            pushi 57 // $57 init
  0166:76               push0 
  0167:38 00c6          pushi c6 // $c6 stopUpd
  016a:76               push0 
  016b:72 1764          lofsa $18d2 // Bdoor
  016e:4a 14             send 14 

  0170:72 17b1          lofsa $1924 // Fdoor
  0173:a0 0176            sag global374 
  0176:72 1759          lofsa $18d2 // Bdoor
  0179:a0 0177            sag global375 
  017c:39 42            pushi 42 // $42 setPri
  017e:78               push1 
  017f:39 0d            pushi d // $d lsTop
  0181:39 57            pushi 57 // $57 init
  0183:76               push0 
  0184:38 00c6          pushi c6 // $c6 stopUpd
  0187:76               push0 
  0188:72 17eb          lofsa $1976 // sphere
  018b:4a 0e             send e 

  018d:39 07            pushi 7 // $7 cel
  018f:78               push1 
  0190:78               push1 
  0191:39 2f            pushi 2f // $2f dy
  0193:45 07 02         callb procedure_0007 2 // IsFlag 

  0196:31 04              bnt code_019c 
  0198:35 01              ldi 1 
  019a:33 02              jmp code_019e 

        code_019c
  019c:35 00              ldi 0 

        code_019e
  019e:36                push 
  019f:39 42            pushi 42 // $42 setPri
  01a1:78               push1 
  01a2:39 05            pushi 5 // $5 view
  01a4:39 57            pushi 57 // $57 init
  01a6:76               push0 
  01a7:38 00c6          pushi c6 // $c6 stopUpd
  01aa:76               push0 
  01ab:72 1816          lofsa $19c4 // gundoor
  01ae:4a 14             send 14 

  01b0:72 1811          lofsa $19c4 // gundoor
  01b3:a0 0175            sag global373 
  01b6:39 42            pushi 42 // $42 setPri
  01b8:78               push1 
  01b9:39 05            pushi 5 // $5 view
  01bb:39 57            pushi 57 // $57 init
  01bd:76               push0 
  01be:38 00c6          pushi c6 // $c6 stopUpd
  01c1:76               push0 
  01c2:72 1851          lofsa $1a16 // cabDoor
  01c5:4a 0e             send e 

  01c7:88 00a5            lsg gAct 
  01ca:3c                 dup 
  01cb:35 00              ldi 0 
  01cd:1a                 eq? 
  01ce:31 1a              bnt code_01ea 
  01d0:88 0173            lsg global371 
  01d3:35 01              ldi 1 
  01d5:1a                 eq? 
  01d6:2f 07               bt code_01df 
  01d8:89 7c              lsg global124 
  01da:35 01              ldi 1 
  01dc:1a                 eq? 
  01dd:31 09              bnt code_01e8 

        code_01df
  01df:38 010a          pushi 10a // $10a setRegions
  01e2:78               push1 
  01e3:38 017c          pushi 17c // $17c sel_380
  01e6:54 06             self 6 


        code_01e8
  01e8:33 41              jmp code_022b 

        code_01ea
  01ea:3c                 dup 
  01eb:35 01              ldi 1 
  01ed:1a                 eq? 
  01ee:31 13              bnt code_0203 
  01f0:88 009a            lsg gClarenceWilburState 
  01f3:35 01              ldi 1 
  01f5:1a                 eq? 
  01f6:31 09              bnt code_0201 
  01f8:38 010a          pushi 10a // $10a setRegions
  01fb:78               push1 
  01fc:38 0180          pushi 180 // $180 sel_384
  01ff:54 06             self 6 


        code_0201
  0201:33 28              jmp code_022b 

        code_0203
  0203:3c                 dup 
  0204:35 03              ldi 3 
  0206:1a                 eq? 
  0207:31 22              bnt code_022b 
  0209:89 76              lsg gMustDos 
  020b:35 02              ldi 2 
  020d:12                 and 
  020e:18                 not 
  020f:31 1a              bnt code_022b 
  0211:76               push0 
  0212:45 03 00         callb procedure_0003 0 // HandsOff 

  0215:38 010a          pushi 10a // $10a setRegions
  0218:78               push1 
  0219:38 0108          pushi 108 // $108 west
  021c:54 06             self 6 

  021e:39 07            pushi 7 // $7 cel
  0220:78               push1 
  0221:78               push1 
  0222:72 179f          lofsa $19c4 // gundoor
  0225:4a 06             send 6 

  0227:35 01              ldi 1 
  0229:a3 06              sal local6 

        code_022b
  022b:3a                toss 
  022c:7a               push2 
  022d:78               push1 
  022e:39 64            pushi 64 // $64 allTrue
  0230:43 40 04         callk Random 4 

  0233:36                push 
  0234:35 23              ldi 23 
  0236:24                 le? 
  0237:31 3e              bnt code_0277 
  0239:88 00a5            lsg gAct 
  023c:35 00              ldi 0 
  023e:1e                 gt? 
  023f:31 36              bnt code_0277 
  0241:88 00a5            lsg gAct 
  0244:35 07              ldi 7 
  0246:22                 lt? 
  0247:31 2e              bnt code_0277 
  0249:83 06              lal local6 
  024b:31 06              bnt code_0253 
  024d:35 00              ldi 0 
  024f:a3 00              sal local0 
  0251:33 24              jmp code_0277 

        code_0253
  0253:39 12            pushi 12 // $12 illegalBits
  0255:78               push1 
  0256:76               push0 
  0257:38 00c5          pushi c5 // $c5 posn
  025a:7a               push2 
  025b:38 0085          pushi 85 // $85 check
  025e:39 52            pushi 52 // $52 icon
  0260:39 42            pushi 42 // $42 setPri
  0262:78               push1 
  0263:7a               push2 
  0264:39 57            pushi 57 // $57 init
  0266:76               push0 
  0267:72 1850          lofsa $1aba // Shadow
  026a:4a 18             send 18 

  026c:39 7a            pushi 7a // $7a setScript
  026e:78               push1 
  026f:74 11a0          lofss $1412 // shadowWalk
  0272:72 1845          lofsa $1aba // Shadow
  0275:4a 06             send 6 


        code_0277
  0277:89 0c              lsg gPrevRoomNum 
  0279:35 20              ldi 20 
  027b:1a                 eq? 
  027c:31 0f              bnt code_028d 
  027e:38 00c5          pushi c5 // $c5 posn
  0281:7a               push2 
  0282:38 0136          pushi 136 // $136 elevatorID
  0285:39 7b            pushi 7b // $7b cycleCnt
  0287:81 00              lag gEgo 
  0289:4a 08             send 8 

  028b:33 1c              jmp code_02a9 

        code_028d
  028d:38 00c5          pushi c5 // $c5 posn
  0290:7a               push2 
  0291:39 54            pushi 54 // $54 delete
  0293:39 7c            pushi 7c // $7c lastTime
  0295:81 00              lag gEgo 
  0297:4a 08             send 8 

  0299:83 08              lal local8 
  029b:18                 not 
  029c:31 0b              bnt code_02a9 
  029e:39 7a            pushi 7a // $7a setScript
  02a0:78               push1 
  02a1:74 18a4          lofss $1b48 // closeDoor
  02a4:72 167d          lofsa $1924 // Fdoor
  02a7:4a 06             send 6 


        code_02a9
  02a9:39 05            pushi 5 // $5 view
  02ab:78               push1 
  02ac:76               push0 
  02ad:39 12            pushi 12 // $12 illegalBits
  02af:78               push1 
  02b0:38 8004          pushi 8004 // $8004 sel_32772
  02b3:39 57            pushi 57 // $57 init
  02b5:76               push0 
  02b6:81 00              lag gEgo 
  02b8:4a 10             send 10 

  02ba:48                 ret 
    )

    (method (doit) // method_02bb
  02bb:83 08              lal local8 
  02bd:31 20              bnt code_02df 
  02bf:7a               push2 
  02c0:39 1f            pushi 1f // $1f style
  02c2:76               push0 
  02c3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02c9:89 0c              lsg gPrevRoomNum 
  02cb:35 0a              ldi a 
  02cd:1a                 eq? 
  02ce:31 0b              bnt code_02db 
  02d0:39 7a            pushi 7a // $7a setScript
  02d2:78               push1 
  02d3:74 1872          lofss $1b48 // closeDoor
  02d6:72 164b          lofsa $1924 // Fdoor
  02d9:4a 06             send 6 


        code_02db
  02db:35 00              ldi 0 
  02dd:a3 08              sal local8 

        code_02df
  02df:38 00db          pushi db // $db onControl
  02e2:78               push1 
  02e3:76               push0 
  02e4:81 00              lag gEgo 
  02e6:4a 06             send 6 

  02e8:36                push 
  02e9:35 10              ldi 10 
  02eb:12                 and 
  02ec:31 1e              bnt code_030c 
  02ee:39 06            pushi 6 // $6 loop
  02f0:76               push0 
  02f1:81 00              lag gEgo 
  02f3:4a 04             send 4 

  02f5:36                push 
  02f6:35 01              ldi 1 
  02f8:1a                 eq? 
  02f9:31 11              bnt code_030c 
  02fb:63 08             pToa script 
  02fd:18                 not 
  02fe:31 0c              bnt code_030c 
  0300:76               push0 
  0301:45 03 00         callb procedure_0003 0 // HandsOff 

  0304:39 7a            pushi 7a // $7a setScript
  0306:78               push1 
  0307:74 1168          lofss $1472 // myDoor
  030a:54 06             self 6 


        code_030c
  030c:38 00da          pushi da // $da inRect
  030f:39 04            pushi 4 // $4 x
  0311:38 00eb          pushi eb // $eb edgeHit
  0314:39 66            pushi 66 // $66 isEmpty
  0316:38 010b          pushi 10b // $10b setFeatures
  0319:39 76            pushi 76 // $76 script
  031b:81 00              lag gEgo 
  031d:4a 0c             send c 

  031f:31 0b              bnt code_032c 
  0321:39 42            pushi 42 // $42 setPri
  0323:78               push1 
  0324:39 08            pushi 8 // $8 underBits
  0326:81 00              lag gEgo 
  0328:4a 06             send 6 

  032a:33 09              jmp code_0335 

        code_032c
  032c:39 42            pushi 42 // $42 setPri
  032e:78               push1 
  032f:39 ff            pushi ff // $ff checkAni
  0331:81 00              lag gEgo 
  0333:4a 06             send 6 


        code_0335
  0335:38 00db          pushi db // $db onControl
  0338:78               push1 
  0339:78               push1 
  033a:81 00              lag gEgo 
  033c:4a 06             send 6 

  033e:36                push 
  033f:35 04              ldi 4 
  0341:12                 and 
  0342:31 1f              bnt code_0363 
  0344:38 00f8          pushi f8 // $f8 newRoom
  0347:78               push1 
  0348:39 0a            pushi a // $a nsLeft
  034a:81 02              lag gCurRoom 
  034c:4a 06             send 6 

  034e:88 009a            lsg gClarenceWilburState 
  0351:35 01              ldi 1 
  0353:1a                 eq? 
  0354:2f 08               bt code_035e 
  0356:88 009a            lsg gClarenceWilburState 
  0359:35 02              ldi 2 
  035b:1a                 eq? 
  035c:31 05              bnt code_0363 

        code_035e
  035e:35 03              ldi 3 
  0360:a0 009a            sag gClarenceWilburState 

        code_0363
  0363:39 04            pushi 4 // $4 x
  0365:76               push0 
  0366:81 00              lag gEgo 
  0368:4a 04             send 4 

  036a:36                push 
  036b:34 00be            ldi be 
  036e:22                 lt? 
  036f:31 06              bnt code_0377 
  0371:35 2c              ldi 2c 
  0373:65 2a             aTop vertAngle 
  0375:33 04              jmp code_037b 

        code_0377
  0377:35 00              ldi 0 
  0379:65 2a             aTop vertAngle 

        code_037b
  037b:39 3c            pushi 3c // $3c doit
  037d:76               push0 
  037e:57 37 04         super Rm 4 

  0381:48                 ret 
    )

    (method (dispose) // method_0382
  0382:78               push1 
  0383:38 03ce          pushi 3ce // $3ce sel_974
  0386:43 03 02         callk DisposeScript 2 

  0389:78               push1 
  038a:38 03d9          pushi 3d9 // $3d9 sel_985
  038d:43 03 02         callk DisposeScript 2 

  0390:39 58            pushi 58 // $58 dispose
  0392:76               push0 
  0393:57 37 04         super Rm 4 

  0396:48                 ret 
    )

    (method (newRoom) // method_0397
  0397:38 00f8          pushi f8 // $f8 newRoom
  039a:78               push1 
  039b:8f 01              lsp param1 
  039d:57 37 06         super Rm 6 

  03a0:48                 ret 
    )

    (method (handleEvent) // method_03a1
  03a1:39 6f            pushi 6f // $6f handleEvent
  03a3:78               push1 
  03a4:8f 01              lsp param1 
  03a6:57 37 06         super Rm 6 

  03a9:39 4c            pushi 4c // $4c claimed
  03ab:76               push0 
  03ac:87 01              lap param1 
  03ae:4a 04             send 4 

  03b0:31 01              bnt code_03b3 
  03b2:48                 ret 

        code_03b3
  03b3:78               push1 
  03b4:38 03de          pushi 3de // $3de sel_990
  03b7:43 03 02         callk DisposeScript 2 

  03ba:39 22            pushi 22 // $22 type
  03bc:76               push0 
  03bd:87 01              lap param1 
  03bf:4a 04             send 4 

  03c1:36                push 
  03c2:34 0080            ldi 80 
  03c5:1a                 eq? 
  03c6:30 03a1            bnt code_076a 
  03c9:80 00d0            lag global208 
  03cc:31 34              bnt code_0402 
  03ce:78               push1 
  03cf:74 0e78          lofss $124a // ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
  03d2:43 25 02         callk Said 2 

  03d5:31 2b              bnt code_0402 
  03d7:78               push1 
  03d8:38 03de          pushi 3de // $3de sel_990
  03db:43 03 02         callk DisposeScript 2 

  03de:39 7a            pushi 7a // $7a setScript
  03e0:78               push1 
  03e1:7a               push2 
  03e2:38 00f3          pushi f3 // $f3 close
  03e5:76               push0 
  03e6:43 02 04         callk ScriptID 4 

  03e9:36                push 
  03ea:54 06             self 6 

  03ec:39 6f            pushi 6f // $6f handleEvent
  03ee:78               push1 
  03ef:8f 01              lsp param1 
  03f1:39 76            pushi 76 // $76 script
  03f3:76               push0 
  03f4:54 04             self 4 

  03f6:4a 06             send 6 

  03f8:39 4c            pushi 4c // $4c claimed
  03fa:76               push0 
  03fb:87 01              lap param1 
  03fd:4a 04             send 4 

  03ff:31 01              bnt code_0402 
  0401:48                 ret 

        code_0402
  0402:78               push1 
  0403:74 0f33          lofss $1339 // look>
  0406:43 25 02         callk Said 2 

  0409:30 0207            bnt code_0613 
  040c:78               push1 
  040d:74 0e2c          lofss $123c // [<around,at][/room]
  0410:43 25 02         callk Said 2 

  0413:31 0d              bnt code_0422 
  0415:7a               push2 
  0416:39 1f            pushi 1f // $1f style
  0418:76               push0 
  0419:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  041f:32 01ee            jmp code_0610 

        code_0422
  0422:78               push1 
  0423:74 0dcd          lofss $11f3 // /boomerang[<australian]
  0426:43 25 02         callk Said 2 

  0429:31 29              bnt code_0454 
  042b:38 00ae          pushi ae // $ae distanceTo
  042e:78               push1 
  042f:74 1592          lofss $19c4 // gundoor
  0432:81 00              lag gEgo 
  0434:4a 06             send 6 

  0436:36                push 
  0437:35 1e              ldi 1e 
  0439:22                 lt? 
  043a:31 11              bnt code_044d 
  043c:35 01              ldi 1 
  043e:a3 04              sal local4 
  0440:39 7a            pushi 7a // $7a setScript
  0442:78               push1 
  0443:74 0ffc          lofss $1442 // cabinetDrawer
  0446:72 157b          lofsa $19c4 // gundoor
  0449:4a 06             send 6 

  044b:33 04              jmp code_0451 

        code_044d
  044d:76               push0 
  044e:45 09 00         callb procedure_0009 0 // NotClose 


        code_0451
  0451:32 01bc            jmp code_0610 

        code_0454
  0454:78               push1 
  0455:74 0da4          lofss $11fc // /coutelas[<acier]
  0458:43 25 02         callk Said 2 

  045b:31 29              bnt code_0486 
  045d:38 00ae          pushi ae // $ae distanceTo
  0460:78               push1 
  0461:74 1560          lofss $19c4 // gundoor
  0464:81 00              lag gEgo 
  0466:4a 06             send 6 

  0468:36                push 
  0469:35 1e              ldi 1e 
  046b:22                 lt? 
  046c:31 11              bnt code_047f 
  046e:35 02              ldi 2 
  0470:a3 04              sal local4 
  0472:39 7a            pushi 7a // $7a setScript
  0474:78               push1 
  0475:74 0fca          lofss $1442 // cabinetDrawer
  0478:72 1549          lofsa $19c4 // gundoor
  047b:4a 06             send 6 

  047d:33 04              jmp code_0483 

        code_047f
  047f:76               push0 
  0480:45 09 00         callb procedure_0009 0 // NotClose 


        code_0483
  0483:32 018a            jmp code_0610 

        code_0486
  0486:78               push1 
  0487:74 0d8c          lofss $1216 // /mace[<antique]
  048a:43 25 02         callk Said 2 

  048d:31 29              bnt code_04b8 
  048f:38 00ae          pushi ae // $ae distanceTo
  0492:78               push1 
  0493:74 152e          lofss $19c4 // gundoor
  0496:81 00              lag gEgo 
  0498:4a 06             send 6 

  049a:36                push 
  049b:35 1e              ldi 1e 
  049d:22                 lt? 
  049e:31 11              bnt code_04b1 
  04a0:35 03              ldi 3 
  04a2:a3 04              sal local4 
  04a4:39 7a            pushi 7a // $7a setScript
  04a6:78               push1 
  04a7:74 0f98          lofss $1442 // cabinetDrawer
  04aa:72 1517          lofsa $19c4 // gundoor
  04ad:4a 06             send 6 

  04af:33 04              jmp code_04b5 

        code_04b1
  04b1:76               push0 
  04b2:45 09 00         callb procedure_0009 0 // NotClose 


        code_04b5
  04b5:32 0158            jmp code_0610 

        code_04b8
  04b8:78               push1 
  04b9:74 0d49          lofss $1205 // /couteau[<pearl]
  04bc:43 25 02         callk Said 2 

  04bf:31 37              bnt code_04f8 
  04c1:38 00ae          pushi ae // $ae distanceTo
  04c4:78               push1 
  04c5:74 14fc          lofss $19c4 // gundoor
  04c8:81 00              lag gEgo 
  04ca:4a 06             send 6 

  04cc:36                push 
  04cd:35 1e              ldi 1e 
  04cf:22                 lt? 
  04d0:31 1f              bnt code_04f1 
  04d2:88 00a5            lsg gAct 
  04d5:35 05              ldi 5 
  04d7:20                 ge? 
  04d8:31 06              bnt code_04e0 
  04da:35 05              ldi 5 
  04dc:a3 04              sal local4 
  04de:33 04              jmp code_04e4 

        code_04e0
  04e0:35 04              ldi 4 
  04e2:a3 04              sal local4 

        code_04e4
  04e4:39 7a            pushi 7a // $7a setScript
  04e6:78               push1 
  04e7:74 0f58          lofss $1442 // cabinetDrawer
  04ea:72 14d7          lofsa $19c4 // gundoor
  04ed:4a 06             send 6 

  04ef:33 04              jmp code_04f5 

        code_04f1
  04f1:76               push0 
  04f2:45 09 00         callb procedure_0009 0 // NotClose 


        code_04f5
  04f5:32 0118            jmp code_0610 

        code_04f8
  04f8:78               push1 
  04f9:74 0d27          lofss $1223 // /fusil
  04fc:43 25 02         callk Said 2 

  04ff:31 29              bnt code_052a 
  0501:38 00ae          pushi ae // $ae distanceTo
  0504:78               push1 
  0505:74 150e          lofss $1a16 // cabDoor
  0508:81 00              lag gEgo 
  050a:4a 06             send 6 

  050c:36                push 
  050d:35 1e              ldi 1e 
  050f:22                 lt? 
  0510:31 11              bnt code_0523 
  0512:35 01              ldi 1 
  0514:a3 05              sal local5 
  0516:39 7a            pushi 7a // $7a setScript
  0518:78               push1 
  0519:74 0f26          lofss $1442 // cabinetDrawer
  051c:72 14f7          lofsa $1a16 // cabDoor
  051f:4a 06             send 6 

  0521:33 04              jmp code_0527 

        code_0523
  0523:76               push0 
  0524:45 09 00         callb procedure_0009 0 // NotClose 


        code_0527
  0527:32 00e6            jmp code_0610 

        code_052a
  052a:78               push1 
  052b:74 0cf9          lofss $1227 // /top/armoire
  052e:43 25 02         callk Said 2 

  0531:31 27              bnt code_055a 
  0533:39 04            pushi 4 // $4 x
  0535:76               push0 
  0536:81 00              lag gEgo 
  0538:4a 04             send 4 

  053a:36                push 
  053b:34 00a0            ldi a0 
  053e:22                 lt? 
  053f:31 0c              bnt code_054d 
  0541:7a               push2 
  0542:39 1f            pushi 1f // $1f style
  0544:78               push1 
  0545:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  054b:33 0a              jmp code_0557 

        code_054d
  054d:7a               push2 
  054e:39 1f            pushi 1f // $1f style
  0550:7a               push2 
  0551:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0557
  0557:32 00b6            jmp code_0610 

        code_055a
  055a:78               push1 
  055b:74 0c91          lofss $11ef // /armoire
  055e:43 25 02         callk Said 2 

  0561:31 57              bnt code_05ba 
  0563:38 00ae          pushi ae // $ae distanceTo
  0566:78               push1 
  0567:74 145a          lofss $19c4 // gundoor
  056a:81 00              lag gEgo 
  056c:4a 06             send 6 

  056e:36                push 
  056f:35 50              ldi 50 
  0571:22                 lt? 
  0572:31 22              bnt code_0596 
  0574:78               push1 
  0575:39 2f            pushi 2f // $2f dy
  0577:45 07 02         callb procedure_0007 2 // IsFlag 

  057a:31 0d              bnt code_0589 
  057c:7a               push2 
  057d:39 1f            pushi 1f // $1f style
  057f:39 03            pushi 3 // $3 y
  0581:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0587:33 0b              jmp code_0594 

        code_0589
  0589:7a               push2 
  058a:39 1f            pushi 1f // $1f style
  058c:39 04            pushi 4 // $4 x
  058e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0594
  0594:33 22              jmp code_05b8 

        code_0596
  0596:38 00ae          pushi ae // $ae distanceTo
  0599:78               push1 
  059a:74 1479          lofss $1a16 // cabDoor
  059d:81 00              lag gEgo 
  059f:4a 06             send 6 

  05a1:36                push 
  05a2:35 50              ldi 50 
  05a4:22                 lt? 
  05a5:31 0d              bnt code_05b4 
  05a7:7a               push2 
  05a8:39 1f            pushi 1f // $1f style
  05aa:39 05            pushi 5 // $5 view
  05ac:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05b2:33 04              jmp code_05b8 

        code_05b4
  05b4:76               push0 
  05b5:45 09 00         callb procedure_0009 0 // NotClose 


        code_05b8
  05b8:33 56              jmp code_0610 

        code_05ba
  05ba:78               push1 
  05bb:74 0c70          lofss $122e // /arme
  05be:43 25 02         callk Said 2 

  05c1:31 0d              bnt code_05d0 
  05c3:7a               push2 
  05c4:39 1f            pushi 1f // $1f style
  05c6:39 06            pushi 6 // $6 loop
  05c8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05ce:33 40              jmp code_0610 

        code_05d0
  05d0:78               push1 
  05d1:74 0c3e          lofss $1212 // /door
  05d4:43 25 02         callk Said 2 

  05d7:31 0d              bnt code_05e6 
  05d9:7a               push2 
  05da:39 1f            pushi 1f // $1f style
  05dc:39 07            pushi 7 // $7 cel
  05de:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05e4:33 2a              jmp code_0610 

        code_05e6
  05e6:78               push1 
  05e7:74 0c48          lofss $1232 // <above,above/fireplace
  05ea:43 25 02         callk Said 2 

  05ed:31 0d              bnt code_05fc 
  05ef:7a               push2 
  05f0:39 1f            pushi 1f // $1f style
  05f2:39 08            pushi 8 // $8 underBits
  05f4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05fa:33 14              jmp code_0610 

        code_05fc
  05fc:78               push1 
  05fd:74 0c1f          lofss $121f // /manteau
  0600:43 25 02         callk Said 2 

  0603:31 0b              bnt code_0610 
  0605:7a               push2 
  0606:39 1f            pushi 1f // $1f style
  0608:39 09            pushi 9 // $9 nsTop
  060a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0610
  0610:32 0157            jmp code_076a 

        code_0613
  0613:78               push1 
  0614:74 0d2c          lofss $1343 // bouger/affaire
  0617:43 25 02         callk Said 2 

  061a:31 0e              bnt code_062a 
  061c:7a               push2 
  061d:39 1f            pushi 1f // $1f style
  061f:39 0a            pushi a // $a nsLeft
  0621:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0627:32 0140            jmp code_076a 

        code_062a
  062a:78               push1 
  062b:74 0d3c          lofss $136a // open/affaire
  062e:43 25 02         callk Said 2 

  0631:31 23              bnt code_0656 
  0633:88 00a5            lsg gAct 
  0636:35 06              ldi 6 
  0638:22                 lt? 
  0639:31 0d              bnt code_0648 
  063b:7a               push2 
  063c:39 1f            pushi 1f // $1f style
  063e:39 0b            pushi b // $b nsBottom
  0640:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0646:33 0b              jmp code_0653 

        code_0648
  0648:7a               push2 
  0649:39 1f            pushi 1f // $1f style
  064b:39 0c            pushi c // $c nsRight
  064d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0653
  0653:32 0114            jmp code_076a 

        code_0656
  0656:78               push1 
  0657:74 0d25          lofss $137f // debloquer/affaire
  065a:43 25 02         callk Said 2 

  065d:31 23              bnt code_0682 
  065f:88 00a5            lsg gAct 
  0662:35 06              ldi 6 
  0664:22                 lt? 
  0665:31 0d              bnt code_0674 
  0667:7a               push2 
  0668:39 1f            pushi 1f // $1f style
  066a:39 0d            pushi d // $d lsTop
  066c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0672:33 0b              jmp code_067f 

        code_0674
  0674:7a               push2 
  0675:39 1f            pushi 1f // $1f style
  0677:39 0e            pushi e // $e lsLeft
  0679:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_067f
  067f:32 00e8            jmp code_076a 

        code_0682
  0682:78               push1 
  0683:74 0c49          lofss $12cf // get>
  0686:43 25 02         callk Said 2 

  0689:30 00de            bnt code_076a 
  068c:78               push1 
  068d:74 0b9e          lofss $122e // /arme
  0690:43 25 02         callk Said 2 

  0693:31 0e              bnt code_06a3 
  0695:7a               push2 
  0696:39 1f            pushi 1f // $1f style
  0698:39 0f            pushi f // $f lsBottom
  069a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06a0:32 00c7            jmp code_076a 

        code_06a3
  06a3:78               push1 
  06a4:74 0b4c          lofss $11f3 // /boomerang[<australian]
  06a7:43 25 02         callk Said 2 

  06aa:31 0e              bnt code_06ba 
  06ac:7a               push2 
  06ad:39 1f            pushi 1f // $1f style
  06af:39 10            pushi 10 // $10 lsRight
  06b1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06b7:32 00b0            jmp code_076a 

        code_06ba
  06ba:78               push1 
  06bb:74 0b3e          lofss $11fc // /coutelas[<acier]
  06be:43 25 02         callk Said 2 

  06c1:31 0e              bnt code_06d1 
  06c3:7a               push2 
  06c4:39 1f            pushi 1f // $1f style
  06c6:39 10            pushi 10 // $10 lsRight
  06c8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06ce:32 0099            jmp code_076a 

        code_06d1
  06d1:78               push1 
  06d2:74 0b41          lofss $1216 // /mace[<antique]
  06d5:43 25 02         callk Said 2 

  06d8:31 0e              bnt code_06e8 
  06da:7a               push2 
  06db:39 1f            pushi 1f // $1f style
  06dd:39 10            pushi 10 // $10 lsRight
  06df:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06e5:32 0082            jmp code_076a 

        code_06e8
  06e8:78               push1 
  06e9:74 0b19          lofss $1205 // /couteau[<pearl]
  06ec:43 25 02         callk Said 2 

  06ef:31 2e              bnt code_071f 
  06f1:88 00a5            lsg gAct 
  06f4:35 05              ldi 5 
  06f6:20                 ge? 
  06f7:31 13              bnt code_070c 
  06f9:78               push1 
  06fa:39 1c            pushi 1c // $1c color
  06fc:45 05 02         callb procedure_0005 2 // SetFlag 

  06ff:7a               push2 
  0700:39 1f            pushi 1f // $1f style
  0702:39 11            pushi 11 // $11 signal
  0704:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  070a:33 11              jmp code_071d 

        code_070c
  070c:78               push1 
  070d:39 1b            pushi 1b // $1b elements
  070f:45 05 02         callb procedure_0005 2 // SetFlag 

  0712:7a               push2 
  0713:39 1f            pushi 1f // $1f style
  0715:39 10            pushi 10 // $10 lsRight
  0717:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_071d
  071d:33 4b              jmp code_076a 

        code_071f
  071f:78               push1 
  0720:74 0b00          lofss $1223 // /fusil
  0723:43 25 02         callk Said 2 

  0726:31 0d              bnt code_0735 
  0728:7a               push2 
  0729:39 1f            pushi 1f // $1f style
  072b:39 12            pushi 12 // $12 illegalBits
  072d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0733:33 35              jmp code_076a 

        code_0735
  0735:78               push1 
  0736:74 0ad5          lofss $120e // /derringer
  0739:43 25 02         callk Said 2 

  073c:31 2c              bnt code_076a 
  073e:88 00a5            lsg gAct 
  0741:35 06              ldi 6 
  0743:22                 lt? 
  0744:31 13              bnt code_0759 
  0746:78               push1 
  0747:39 19            pushi 19 // $19 time
  0749:45 05 02         callb procedure_0005 2 // SetFlag 

  074c:7a               push2 
  074d:39 1f            pushi 1f // $1f style
  074f:39 13            pushi 13 // $13 brTop
  0751:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0757:33 11              jmp code_076a 

        code_0759
  0759:78               push1 
  075a:39 1a            pushi 1a // $1a text
  075c:45 05 02         callb procedure_0005 2 // SetFlag 

  075f:7a               push2 
  0760:39 1f            pushi 1f // $1f style
  0762:39 11            pushi 11 // $11 signal
  0764:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_076a
  076a:48                 ret 
    )

)

// 13dc
(instance spin 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_076b
  076b:87 01              lap param1 
  076d:65 0a             aTop state 
  076f:36                push 
  0770:3c                 dup 
  0771:35 00              ldi 0 
  0773:1a                 eq? 
  0774:31 1e              bnt code_0794 
  0776:76               push0 
  0777:45 03 00         callb procedure_0003 0 // HandsOff 

  077a:35 01              ldi 1 
  077c:a3 00              sal local0 
  077e:38 00a4          pushi a4 // $a4 cycleSpeed
  0781:78               push1 
  0782:76               push0 
  0783:39 7e            pushi 7e // $7e setCycle
  0785:78               push1 
  0786:51 16            class Fwd 
  0788:36                push 
  0789:72 11ea          lofsa $1976 // sphere
  078c:4a 0c             send c 

  078e:35 04              ldi 4 
  0790:65 12             aTop seconds 
  0792:33 5b              jmp code_07ef 

        code_0794
  0794:3c                 dup 
  0795:35 01              ldi 1 
  0797:1a                 eq? 
  0798:31 10              bnt code_07aa 
  079a:38 00a4          pushi a4 // $a4 cycleSpeed
  079d:78               push1 
  079e:78               push1 
  079f:72 11d4          lofsa $1976 // sphere
  07a2:4a 06             send 6 

  07a4:35 02              ldi 2 
  07a6:65 12             aTop seconds 
  07a8:33 45              jmp code_07ef 

        code_07aa
  07aa:3c                 dup 
  07ab:35 02              ldi 2 
  07ad:1a                 eq? 
  07ae:31 10              bnt code_07c0 
  07b0:38 00a4          pushi a4 // $a4 cycleSpeed
  07b3:78               push1 
  07b4:7a               push2 
  07b5:72 11be          lofsa $1976 // sphere
  07b8:4a 06             send 6 

  07ba:35 02              ldi 2 
  07bc:65 12             aTop seconds 
  07be:33 2f              jmp code_07ef 

        code_07c0
  07c0:3c                 dup 
  07c1:35 03              ldi 3 
  07c3:1a                 eq? 
  07c4:31 29              bnt code_07ef 
  07c6:39 7e            pushi 7e // $7e setCycle
  07c8:78               push1 
  07c9:76               push0 
  07ca:38 00c6          pushi c6 // $c6 stopUpd
  07cd:76               push0 
  07ce:72 11a5          lofsa $1976 // sphere
  07d1:4a 0a             send a 

  07d3:7a               push2 
  07d4:39 1f            pushi 1f // $1f style
  07d6:39 14            pushi 14 // $14 brLeft
  07d8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07de:35 00              ldi 0 
  07e0:a3 00              sal local0 
  07e2:76               push0 
  07e3:45 04 00         callb procedure_0004 0 // HandsOn 

  07e6:39 7a            pushi 7a // $7a setScript
  07e8:78               push1 
  07e9:76               push0 
  07ea:72 1189          lofsa $1976 // sphere
  07ed:4a 06             send 6 


        code_07ef
  07ef:3a                toss 
  07f0:48                 ret 
    )

)

// 140c
(instance shadowWalk 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_07f1
  07f1:87 01              lap param1 
  07f3:65 0a             aTop state 
  07f5:36                push 
  07f6:3c                 dup 
  07f7:35 00              ldi 0 
  07f9:1a                 eq? 
  07fa:31 06              bnt code_0802 
  07fc:35 08              ldi 8 
  07fe:65 12             aTop seconds 
  0800:33 31              jmp code_0833 

        code_0802
  0802:3c                 dup 
  0803:35 01              ldi 1 
  0805:1a                 eq? 
  0806:31 15              bnt code_081d 
  0808:38 00d3          pushi d3 // $d3 setMotion
  080b:39 04            pushi 4 // $4 x
  080d:51 1d            class MoveTo 
  080f:36                push 
  0810:38 0127          pushi 127 // $127 intermediate
  0813:39 52            pushi 52 // $52 icon
  0815:7c            pushSelf 
  0816:72 12a1          lofsa $1aba // Shadow
  0819:4a 0c             send c 

  081b:33 16              jmp code_0833 

        code_081d
  081d:3c                 dup 
  081e:35 02              ldi 2 
  0820:1a                 eq? 
  0821:31 10              bnt code_0833 
  0823:39 58            pushi 58 // $58 dispose
  0825:76               push0 
  0826:72 1291          lofsa $1aba // Shadow
  0829:4a 04             send 4 

  082b:39 7a            pushi 7a // $7a setScript
  082d:78               push1 
  082e:76               push0 
  082f:63 08             pToa client 
  0831:4a 06             send 6 


        code_0833
  0833:3a                toss 
  0834:48                 ret 
    )

)

// 143c
(instance cabinetDrawer 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_0835
  0835:87 01              lap param1 
  0837:65 0a             aTop state 
  0839:36                push 
  083a:3c                 dup 
  083b:35 00              ldi 0 
  083d:1a                 eq? 
  083e:31 6e              bnt code_08ae 
  0840:83 06              lal local6 
  0842:31 30              bnt code_0874 
  0844:35 06              ldi 6 
  0846:a0 00d5            sag global213 
  0849:8b 07              lsl local7 
  084b:3c                 dup 
  084c:35 00              ldi 0 
  084e:1a                 eq? 
  084f:31 0c              bnt code_085d 
  0851:39 03            pushi 3 // $3 y
  0853:78               push1 
  0854:39 1f            pushi 1f // $1f style
  0856:39 15            pushi 15 // $15 brBottom
  0858:45 01 06         callb procedure_0001 6 // Say 

  085b:33 0a              jmp code_0867 

        code_085d
  085d:39 03            pushi 3 // $3 y
  085f:78               push1 
  0860:39 1f            pushi 1f // $1f style
  0862:39 16            pushi 16 // $16 brRight
  0864:45 01 06         callb procedure_0001 6 // Say 


        code_0867
  0867:3a                toss 
  0868:c3 07              +al local7 
  086a:39 7a            pushi 7a // $7a setScript
  086c:78               push1 
  086d:76               push0 
  086e:63 08             pToa client 
  0870:4a 06             send 6 

  0872:33 37              jmp code_08ab 

        code_0874
  0874:76               push0 
  0875:45 03 00         callb procedure_0003 0 // HandsOff 

  0878:39 06            pushi 6 // $6 loop
  087a:78               push1 
  087b:39 03            pushi 3 // $3 y
  087d:81 00              lag gEgo 
  087f:4a 06             send 6 

  0881:83 09              lal local9 
  0883:31 0a              bnt code_088f 
  0885:35 02              ldi 2 
  0887:65 0a             aTop state 
  0889:35 01              ldi 1 
  088b:65 10             aTop cycles 
  088d:33 1c              jmp code_08ab 

        code_088f
  088f:78               push1 
  0890:39 2f            pushi 2f // $2f dy
  0892:45 07 02         callb procedure_0007 2 // IsFlag 

  0895:18                 not 
  0896:31 0d              bnt code_08a5 
  0898:39 7e            pushi 7e // $7e setCycle
  089a:7a               push2 
  089b:51 1a            class End 
  089d:36                push 
  089e:7c            pushSelf 
  089f:63 08             pToa client 
  08a1:4a 08             send 8 

  08a3:33 06              jmp code_08ab 

        code_08a5
  08a5:35 01              ldi 1 
  08a7:65 0a             aTop state 
  08a9:65 10             aTop cycles 

        code_08ab
  08ab:32 012c            jmp code_09da 

        code_08ae
  08ae:3c                 dup 
  08af:35 01              ldi 1 
  08b1:1a                 eq? 
  08b2:31 07              bnt code_08bb 
  08b4:35 08              ldi 8 
  08b6:65 10             aTop cycles 
  08b8:32 011f            jmp code_09da 

        code_08bb
  08bb:3c                 dup 
  08bc:35 02              ldi 2 
  08be:1a                 eq? 
  08bf:30 00df            bnt code_09a1 
  08c2:39 04            pushi 4 // $4 x
  08c4:76               push0 
  08c5:81 00              lag gEgo 
  08c7:4a 04             send 4 

  08c9:36                push 
  08ca:34 00a0            ldi a0 
  08cd:22                 lt? 
  08ce:30 00aa            bnt code_097b 
  08d1:8b 04              lsl local4 
  08d3:3c                 dup 
  08d4:35 01              ldi 1 
  08d6:1a                 eq? 
  08d7:31 0e              bnt code_08e7 
  08d9:7a               push2 
  08da:39 1f            pushi 1f // $1f style
  08dc:39 17            pushi 17 // $17 name
  08de:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08e4:32 0091            jmp code_0978 

        code_08e7
  08e7:3c                 dup 
  08e8:35 02              ldi 2 
  08ea:1a                 eq? 
  08eb:31 0d              bnt code_08fa 
  08ed:7a               push2 
  08ee:39 1f            pushi 1f // $1f style
  08f0:39 18            pushi 18 // $18 key
  08f2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08f8:33 7e              jmp code_0978 

        code_08fa
  08fa:3c                 dup 
  08fb:35 03              ldi 3 
  08fd:1a                 eq? 
  08fe:31 0d              bnt code_090d 
  0900:7a               push2 
  0901:39 1f            pushi 1f // $1f style
  0903:39 19            pushi 19 // $19 time
  0905:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  090b:33 6b              jmp code_0978 

        code_090d
  090d:3c                 dup 
  090e:35 04              ldi 4 
  0910:1a                 eq? 
  0911:31 13              bnt code_0926 
  0913:78               push1 
  0914:39 1b            pushi 1b // $1b elements
  0916:45 05 02         callb procedure_0005 2 // SetFlag 

  0919:7a               push2 
  091a:39 1f            pushi 1f // $1f style
  091c:39 1a            pushi 1a // $1a text
  091e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0924:33 52              jmp code_0978 

        code_0926
  0926:3c                 dup 
  0927:35 05              ldi 5 
  0929:1a                 eq? 
  092a:31 13              bnt code_093f 
  092c:78               push1 
  092d:39 1c            pushi 1c // $1c color
  092f:45 05 02         callb procedure_0005 2 // SetFlag 

  0932:7a               push2 
  0933:39 1f            pushi 1f // $1f style
  0935:39 11            pushi 11 // $11 signal
  0937:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  093d:33 39              jmp code_0978 

        code_093f
  093f:3c                 dup 
  0940:35 00              ldi 0 
  0942:1a                 eq? 
  0943:31 33              bnt code_0978 
  0945:39 03            pushi 3 // $3 y
  0947:39 1f            pushi 1f // $1f style
  0949:39 1b            pushi 1b // $1b elements
  094b:88 00a5            lsg gAct 
  094e:35 05              ldi 5 
  0950:20                 ge? 
  0951:31 05              bnt code_0958 
  0953:72 1232          lofsa $1b88 // ,
  0956:33 03              jmp code_095b 

        code_0958
  0958:72 122f          lofsa $1b8a // , a pearl-handled dagger,

        code_095b
  095b:36                push 
  095c:46 00ff 0004 06  calle ff procedure_0004 6 // Printf 

  0962:88 00a5            lsg gAct 
  0965:35 05              ldi 5 
  0967:20                 ge? 
  0968:31 08              bnt code_0972 
  096a:78               push1 
  096b:39 1c            pushi 1c // $1c color
  096d:45 05 02         callb procedure_0005 2 // SetFlag 

  0970:33 06              jmp code_0978 

        code_0972
  0972:78               push1 
  0973:39 1b            pushi 1b // $1b elements
  0975:45 05 02         callb procedure_0005 2 // SetFlag 


        code_0978
  0978:3a                toss 
  0979:33 20              jmp code_099b 

        code_097b
  097b:83 05              lal local5 
  097d:31 11              bnt code_0990 
  097f:7a               push2 
  0980:39 1f            pushi 1f // $1f style
  0982:39 1c            pushi 1c // $1c color
  0984:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  098a:35 00              ldi 0 
  098c:a3 05              sal local5 
  098e:33 0b              jmp code_099b 

        code_0990
  0990:7a               push2 
  0991:39 1f            pushi 1f // $1f style
  0993:39 1d            pushi 1d // $1d back
  0995:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_099b
  099b:35 01              ldi 1 
  099d:65 10             aTop cycles 
  099f:33 39              jmp code_09da 

        code_09a1
  09a1:3c                 dup 
  09a2:35 03              ldi 3 
  09a4:1a                 eq? 
  09a5:31 0d              bnt code_09b4 
  09a7:39 7e            pushi 7e // $7e setCycle
  09a9:7a               push2 
  09aa:51 1b            class Beg 
  09ac:36                push 
  09ad:7c            pushSelf 
  09ae:63 08             pToa client 
  09b0:4a 08             send 8 

  09b2:33 26              jmp code_09da 

        code_09b4
  09b4:3c                 dup 
  09b5:35 04              ldi 4 
  09b7:1a                 eq? 
  09b8:31 20              bnt code_09da 
  09ba:38 00c6          pushi c6 // $c6 stopUpd
  09bd:76               push0 
  09be:63 08             pToa client 
  09c0:4a 04             send 4 

  09c2:35 00              ldi 0 
  09c4:a3 01              sal local1 
  09c6:a3 09              sal local9 
  09c8:78               push1 
  09c9:39 2f            pushi 2f // $2f dy
  09cb:45 06 02         callb procedure_0006 2 // ClearFlag 

  09ce:76               push0 
  09cf:45 04 00         callb procedure_0004 0 // HandsOn 

  09d2:39 7a            pushi 7a // $7a setScript
  09d4:78               push1 
  09d5:76               push0 
  09d6:63 08             pToa client 
  09d8:4a 06             send 6 


        code_09da
  09da:3a                toss 
  09db:48                 ret 
    )

)

// 146c
(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_09dc
  09dc:87 01              lap param1 
  09de:65 0a             aTop state 
  09e0:36                push 
  09e1:3c                 dup 
  09e2:35 00              ldi 0 
  09e4:1a                 eq? 
  09e5:31 0f              bnt code_09f6 
  09e7:39 12            pushi 12 // $12 illegalBits
  09e9:78               push1 
  09ea:76               push0 
  09eb:81 00              lag gEgo 
  09ed:4a 06             send 6 

  09ef:35 02              ldi 2 
  09f1:65 10             aTop cycles 
  09f3:32 008c            jmp code_0a82 

        code_09f6
  09f6:3c                 dup 
  09f7:35 01              ldi 1 
  09f9:1a                 eq? 
  09fa:31 26              bnt code_0a22 
  09fc:39 04            pushi 4 // $4 x
  09fe:76               push0 
  09ff:81 00              lag gEgo 
  0a01:4a 04             send 4 

  0a03:36                push 
  0a04:35 57              ldi 57 
  0a06:22                 lt? 
  0a07:31 13              bnt code_0a1c 
  0a09:38 00d3          pushi d3 // $d3 setMotion
  0a0c:39 04            pushi 4 // $4 x
  0a0e:51 1d            class MoveTo 
  0a10:36                push 
  0a11:39 5f            pushi 5f // $5f yourself
  0a13:39 79            pushi 79 // $79 cue
  0a15:7c            pushSelf 
  0a16:81 00              lag gEgo 
  0a18:4a 0c             send c 

  0a1a:33 04              jmp code_0a20 

        code_0a1c
  0a1c:35 01              ldi 1 
  0a1e:65 10             aTop cycles 

        code_0a20
  0a20:33 60              jmp code_0a82 

        code_0a22
  0a22:3c                 dup 
  0a23:35 02              ldi 2 
  0a25:1a                 eq? 
  0a26:31 3a              bnt code_0a62 
  0a28:38 00a4          pushi a4 // $a4 cycleSpeed
  0a2b:78               push1 
  0a2c:78               push1 
  0a2d:38 00c9          pushi c9 // $c9 ignoreActors
  0a30:78               push1 
  0a31:78               push1 
  0a32:39 7e            pushi 7e // $7e setCycle
  0a34:78               push1 
  0a35:51 1a            class End 
  0a37:36                push 
  0a38:72 0e97          lofsa $18d2 // Bdoor
  0a3b:4a 12             send 12 

  0a3d:38 00a4          pushi a4 // $a4 cycleSpeed
  0a40:78               push1 
  0a41:78               push1 
  0a42:38 00c9          pushi c9 // $c9 ignoreActors
  0a45:78               push1 
  0a46:78               push1 
  0a47:39 7e            pushi 7e // $7e setCycle
  0a49:7a               push2 
  0a4a:51 1a            class End 
  0a4c:36                push 
  0a4d:7c            pushSelf 
  0a4e:72 0ed3          lofsa $1924 // Fdoor
  0a51:4a 14             send 14 

  0a53:39 2b            pushi 2b // $2b number
  0a55:78               push1 
  0a56:39 2b            pushi 2b // $2b number
  0a58:39 2a            pushi 2a // $2a play
  0a5a:76               push0 
  0a5b:72 10c0          lofsa $1b1e // mySound
  0a5e:4a 0a             send a 

  0a60:33 20              jmp code_0a82 

        code_0a62
  0a62:3c                 dup 
  0a63:35 03              ldi 3 
  0a65:1a                 eq? 
  0a66:31 1a              bnt code_0a82 
  0a68:38 00d3          pushi d3 // $d3 setMotion
  0a6b:39 03            pushi 3 // $3 y
  0a6d:51 1d            class MoveTo 
  0a6f:36                push 
  0a70:39 04            pushi 4 // $4 x
  0a72:76               push0 
  0a73:81 00              lag gEgo 
  0a75:4a 04             send 4 

  0a77:36                push 
  0a78:35 32              ldi 32 
  0a7a:04                 sub 
  0a7b:36                push 
  0a7c:39 79            pushi 79 // $79 cue
  0a7e:81 00              lag gEgo 
  0a80:4a 0a             send a 


        code_0a82
  0a82:3a                toss 
  0a83:48                 ret 
    )

)

// 149c
(instance rhino of RPicView
    (properties
        y $20
        x $cf
        z $0
        heading $0
        view $83
        loop $0
        cel $0
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0a84
  0a84:39 6f            pushi 6f // $6f handleEvent
  0a86:78               push1 
  0a87:8f 01              lsp param1 
  0a89:57 42 06         super RPicView 6 

  0a8c:31 02              bnt code_0a90 
  0a8e:33 57              jmp code_0ae7 

        code_0a90
  0a90:78               push1 
  0a91:74 0899          lofss $132d // look<dans/rhino,head
  0a94:43 25 02         callk Said 2 

  0a97:31 0d              bnt code_0aa6 
  0a99:7a               push2 
  0a9a:39 1f            pushi 1f // $1f style
  0a9c:39 1e            pushi 1e // $1e mode
  0a9e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0aa4:33 41              jmp code_0ae7 

        code_0aa6
  0aa6:39 03            pushi 3 // $3 y
  0aa8:7c            pushSelf 
  0aa9:8f 01              lsp param1 
  0aab:39 03            pushi 3 // $3 y
  0aad:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0ab3:2f 09               bt code_0abe 
  0ab5:78               push1 
  0ab6:74 0853          lofss $130c // look/rhino,head
  0ab9:43 25 02         callk Said 2 

  0abc:31 15              bnt code_0ad3 

        code_0abe
  0abe:39 4c            pushi 4c // $4c claimed
  0ac0:78               push1 
  0ac1:78               push1 
  0ac2:87 01              lap param1 
  0ac4:4a 06             send 6 

  0ac6:7a               push2 
  0ac7:39 1f            pushi 1f // $1f style
  0ac9:39 08            pushi 8 // $8 underBits
  0acb:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0ad1:33 14              jmp code_0ae7 

        code_0ad3
  0ad3:78               push1 
  0ad4:74 07e9          lofss $12c0 // get/rhino,head
  0ad7:43 25 02         callk Said 2 

  0ada:31 0b              bnt code_0ae7 
  0adc:7a               push2 
  0add:39 1f            pushi 1f // $1f style
  0adf:39 1f            pushi 1f // $1f style
  0ae1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0ae7
  0ae7:48                 ret 
    )

)

// 14d2
(instance firetools of PV
    (properties
        y $57
        x $e2
        z $0
        heading $0
        view $83
        loop $0
        cel $a
        priority $5
        signal $0
    )
)

// 14fc
(instance logs of RPicView
    (properties
        y $56
        x $ce
        z $0
        heading $0
        view $83
        loop $0
        cel $9
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0ae8
  0ae8:39 03            pushi 3 // $3 y
  0aea:7c            pushSelf 
  0aeb:8f 01              lsp param1 
  0aed:39 03            pushi 3 // $3 y
  0aef:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0af5:31 0f              bnt code_0b06 
  0af7:39 4c            pushi 4c // $4c claimed
  0af9:78               push1 
  0afa:78               push1 
  0afb:87 01              lap param1 
  0afd:4a 06             send 6 

  0aff:78               push1 
  0b00:74 1126          lofss $1c29 // fireplace
  0b03:45 19 02         callb procedure_0019 2 // DoLook 


        code_0b06
  0b06:48                 ret 
    )

)

// 1532
(instance bookcase of PV
    (properties
        y $72
        x $58
        z $0
        heading $0
        view $83
        loop $0
        cel $6
        priority $7
        signal $4000
    )
)

// 155c
(instance aligator of RPicView
    (properties
        y $2a
        x $7f
        z $0
        heading $0
        view $83
        loop $0
        cel $1
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0b07
  0b07:39 6f            pushi 6f // $6f handleEvent
  0b09:78               push1 
  0b0a:8f 01              lsp param1 
  0b0c:57 42 06         super RPicView 6 

  0b0f:31 02              bnt code_0b13 
  0b11:33 40              jmp code_0b53 

        code_0b13
  0b13:39 03            pushi 3 // $3 y
  0b15:7c            pushSelf 
  0b16:8f 01              lsp param1 
  0b18:39 03            pushi 3 // $3 y
  0b1a:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0b20:2f 09               bt code_0b2b 
  0b22:78               push1 
  0b23:74 07ad          lofss $12d3 // look/alligator
  0b26:43 25 02         callk Said 2 

  0b29:31 14              bnt code_0b3f 

        code_0b2b
  0b2b:39 4c            pushi 4c // $4c claimed
  0b2d:78               push1 
  0b2e:78               push1 
  0b2f:87 01              lap param1 
  0b31:4a 06             send 6 

  0b33:7a               push2 
  0b34:39 1f            pushi 1f // $1f style
  0b36:78               push1 
  0b37:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0b3d:33 14              jmp code_0b53 

        code_0b3f
  0b3f:78               push1 
  0b40:74 075a          lofss $129d // get/aigle,alligator
  0b43:43 25 02         callk Said 2 

  0b46:31 0b              bnt code_0b53 
  0b48:7a               push2 
  0b49:39 1f            pushi 1f // $1f style
  0b4b:39 20            pushi 20 // $20 state
  0b4d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0b53
  0b53:48                 ret 
    )

)

// 1592
(instance sofa of RPicView
    (properties
        y $76
        x $107
        z $0
        heading $0
        view $83
        loop $1
        cel $1
        priority $8
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0b54
  0b54:39 03            pushi 3 // $3 y
  0b56:7c            pushSelf 
  0b57:8f 01              lsp param1 
  0b59:39 03            pushi 3 // $3 y
  0b5b:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0b61:31 0f              bnt code_0b72 
  0b63:39 4c            pushi 4c // $4c claimed
  0b65:78               push1 
  0b66:78               push1 
  0b67:87 01              lap param1 
  0b69:4a 06             send 6 

  0b6b:78               push1 
  0b6c:74 1092          lofss $1c01 // chair
  0b6f:45 19 02         callb procedure_0019 2 // DoLook 


        code_0b72
  0b72:48                 ret 
    )

)

// 15c8
(instance wingback of RPicView
    (properties
        y $70
        x $8a
        z $0
        heading $0
        view $83
        loop $1
        cel $2
        priority $7
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0b73
  0b73:39 03            pushi 3 // $3 y
  0b75:7c            pushSelf 
  0b76:8f 01              lsp param1 
  0b78:39 03            pushi 3 // $3 y
  0b7a:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0b80:31 0f              bnt code_0b91 
  0b82:39 4c            pushi 4c // $4c claimed
  0b84:78               push1 
  0b85:78               push1 
  0b86:87 01              lap param1 
  0b88:4a 06             send 6 

  0b8a:78               push1 
  0b8b:74 1073          lofss $1c01 // chair
  0b8e:45 19 02         callb procedure_0019 2 // DoLook 


        code_0b91
  0b91:48                 ret 
    )

)

// 15fe
(instance chair of RPicView
    (properties
        y $a5
        x $a9
        z $0
        heading $0
        view $83
        loop $1
        cel $0
        priority $c
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0b92
  0b92:39 03            pushi 3 // $3 y
  0b94:7c            pushSelf 
  0b95:8f 01              lsp param1 
  0b97:39 03            pushi 3 // $3 y
  0b99:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0b9f:31 0f              bnt code_0bb0 
  0ba1:39 4c            pushi 4c // $4c claimed
  0ba3:78               push1 
  0ba4:78               push1 
  0ba5:87 01              lap param1 
  0ba7:4a 06             send 6 

  0ba9:78               push1 
  0baa:74 1054          lofss $1c01 // chair
  0bad:45 19 02         callb procedure_0019 2 // DoLook 


        code_0bb0
  0bb0:48                 ret 
    )

)

// 1634
(instance table1 of RPicView
    (properties
        y $69
        x $a7
        z $0
        heading $0
        view $83
        loop $0
        cel $5
        priority $7
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0bb1
  0bb1:39 03            pushi 3 // $3 y
  0bb3:7c            pushSelf 
  0bb4:8f 01              lsp param1 
  0bb6:39 03            pushi 3 // $3 y
  0bb8:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0bbe:31 0f              bnt code_0bcf 
  0bc0:39 4c            pushi 4c // $4c claimed
  0bc2:78               push1 
  0bc3:78               push1 
  0bc4:87 01              lap param1 
  0bc6:4a 06             send 6 

  0bc8:78               push1 
  0bc9:74 10cb          lofss $1c97 // table
  0bcc:45 19 02         callb procedure_0019 2 // DoLook 


        code_0bcf
  0bcf:48                 ret 
    )

)

// 166a
(instance table2 of RPicView
    (properties
        y $69
        x $f1
        z $0
        heading $0
        view $83
        loop $0
        cel $5
        priority $6
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0bd0
  0bd0:39 03            pushi 3 // $3 y
  0bd2:7c            pushSelf 
  0bd3:8f 01              lsp param1 
  0bd5:39 03            pushi 3 // $3 y
  0bd7:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0bdd:31 0f              bnt code_0bee 
  0bdf:39 4c            pushi 4c // $4c claimed
  0be1:78               push1 
  0be2:78               push1 
  0be3:87 01              lap param1 
  0be5:4a 06             send 6 

  0be7:78               push1 
  0be8:74 10ac          lofss $1c97 // table
  0beb:45 19 02         callb procedure_0019 2 // DoLook 


        code_0bee
  0bee:48                 ret 
    )

)

// 16a0
(instance hawk of RPicView
    (properties
        y $2b
        x $127
        z $0
        heading $0
        view $83
        loop $0
        cel $2
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0bef
  0bef:39 6f            pushi 6f // $6f handleEvent
  0bf1:78               push1 
  0bf2:8f 01              lsp param1 
  0bf4:57 42 06         super RPicView 6 

  0bf7:31 02              bnt code_0bfb 
  0bf9:33 2a              jmp code_0c25 

        code_0bfb
  0bfb:39 03            pushi 3 // $3 y
  0bfd:7c            pushSelf 
  0bfe:8f 01              lsp param1 
  0c00:39 03            pushi 3 // $3 y
  0c02:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0c08:2f 09               bt code_0c13 
  0c0a:78               push1 
  0c0b:74 06d6          lofss $12e4 // look/aigle
  0c0e:43 25 02         callk Said 2 

  0c11:31 12              bnt code_0c25 

        code_0c13
  0c13:39 4c            pushi 4c // $4c claimed
  0c15:78               push1 
  0c16:78               push1 
  0c17:87 01              lap param1 
  0c19:4a 06             send 6 

  0c1b:7a               push2 
  0c1c:39 1f            pushi 1f // $1f style
  0c1e:7a               push2 
  0c1f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0c25
  0c25:48                 ret 
    )

)

// 16d6
(instance globe of RPicView
    (properties
        y $a6
        x $23
        z $0
        heading $0
        view $83
        loop $0
        cel $8
        priority $d
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0c26
  0c26:39 6f            pushi 6f // $6f handleEvent
  0c28:78               push1 
  0c29:8f 01              lsp param1 
  0c2b:57 42 06         super RPicView 6 

  0c2e:31 03              bnt code_0c33 
  0c30:32 00dd            jmp code_0d10 

        code_0c33
  0c33:78               push1 
  0c34:74 0712          lofss $1349 // bouger/globe
  0c37:43 25 02         callk Said 2 

  0c3a:31 0e              bnt code_0c4a 
  0c3c:7a               push2 
  0c3d:39 1f            pushi 1f // $1f style
  0c3f:39 21            pushi 21 // $21 font
  0c41:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0c47:32 00c6            jmp code_0d10 

        code_0c4a
  0c4a:78               push1 
  0c4b:74 06cd          lofss $131b // look<below/globe
  0c4e:43 25 02         callk Said 2 

  0c51:31 0e              bnt code_0c61 
  0c53:7a               push2 
  0c54:39 1f            pushi 1f // $1f style
  0c56:39 22            pushi 22 // $22 type
  0c58:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0c5e:32 00af            jmp code_0d10 

        code_0c61
  0c61:78               push1 
  0c62:74 06bf          lofss $1324 // look<dans/globe
  0c65:43 25 02         callk Said 2 

  0c68:31 0e              bnt code_0c78 
  0c6a:7a               push2 
  0c6b:39 1f            pushi 1f // $1f style
  0c6d:39 23            pushi 23 // $23 window
  0c6f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0c75:32 0098            jmp code_0d10 

        code_0c78
  0c78:39 03            pushi 3 // $3 y
  0c7a:7c            pushSelf 
  0c7b:8f 01              lsp param1 
  0c7d:39 03            pushi 3 // $3 y
  0c7f:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0c85:2f 09               bt code_0c90 
  0c87:78               push1 
  0c88:74 067b          lofss $1306 // look/globe
  0c8b:43 25 02         callk Said 2 

  0c8e:31 15              bnt code_0ca5 

        code_0c90
  0c90:39 4c            pushi 4c // $4c claimed
  0c92:78               push1 
  0c93:78               push1 
  0c94:87 01              lap param1 
  0c96:4a 06             send 6 

  0c98:7a               push2 
  0c99:39 1f            pushi 1f // $1f style
  0c9b:39 24            pushi 24 // $24 cursor
  0c9d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0ca3:33 6b              jmp code_0d10 

        code_0ca5
  0ca5:78               push1 
  0ca6:74 0611          lofss $12ba // get/globe
  0ca9:43 25 02         callk Said 2 

  0cac:31 0d              bnt code_0cbb 
  0cae:7a               push2 
  0caf:39 1f            pushi 1f // $1f style
  0cb1:39 25            pushi 25 // $25 max
  0cb3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0cb9:33 55              jmp code_0d10 

        code_0cbb
  0cbb:78               push1 
  0cbc:74 06b1          lofss $1370 // open/globe
  0cbf:43 25 02         callk Said 2 

  0cc2:31 0d              bnt code_0cd1 
  0cc4:7a               push2 
  0cc5:39 1f            pushi 1f // $1f style
  0cc7:39 23            pushi 23 // $23 window
  0cc9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0ccf:33 3f              jmp code_0d10 

        code_0cd1
  0cd1:78               push1 
  0cd2:74 06a1          lofss $1376 // rotate,spin/globe
  0cd5:43 25 02         callk Said 2 

  0cd8:31 36              bnt code_0d10 
  0cda:8b 00              lsl local0 
  0cdc:35 00              ldi 0 
  0cde:1a                 eq? 
  0cdf:31 24              bnt code_0d05 
  0ce1:38 00ae          pushi ae // $ae distanceTo
  0ce4:78               push1 
  0ce5:74 0c8e          lofss $1976 // sphere
  0ce8:81 00              lag gEgo 
  0cea:4a 06             send 6 

  0cec:36                push 
  0ced:35 1e              ldi 1e 
  0cef:22                 lt? 
  0cf0:31 0d              bnt code_0cff 
  0cf2:39 7a            pushi 7a // $7a setScript
  0cf4:78               push1 
  0cf5:74 06ea          lofss $13e2 // spin
  0cf8:72 0c7b          lofsa $1976 // sphere
  0cfb:4a 06             send 6 

  0cfd:33 04              jmp code_0d03 

        code_0cff
  0cff:76               push0 
  0d00:45 09 00         callb procedure_0009 0 // NotClose 


        code_0d03
  0d03:33 0b              jmp code_0d10 

        code_0d05
  0d05:7a               push2 
  0d06:39 1f            pushi 1f // $1f style
  0d08:39 26            pushi 26 // $26 mark
  0d0a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0d10
  0d10:48                 ret 
    )

)

// 170c
(instance crossbow of RPicView
    (properties
        y $4d
        x $55
        z $0
        heading $0
        view $83
        loop $0
        cel $3
        priority $7
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0d11
  0d11:39 6f            pushi 6f // $6f handleEvent
  0d13:78               push1 
  0d14:8f 01              lsp param1 
  0d16:57 42 06         super RPicView 6 

  0d19:31 02              bnt code_0d1d 
  0d1b:33 41              jmp code_0d5e 

        code_0d1d
  0d1d:39 03            pushi 3 // $3 y
  0d1f:7c            pushSelf 
  0d20:8f 01              lsp param1 
  0d22:39 03            pushi 3 // $3 y
  0d24:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0d2a:2f 09               bt code_0d35 
  0d2c:78               push1 
  0d2d:74 05c5          lofss $12f5 // look/arbalete[<antique]
  0d30:43 25 02         callk Said 2 

  0d33:31 15              bnt code_0d4a 

        code_0d35
  0d35:39 4c            pushi 4c // $4c claimed
  0d37:78               push1 
  0d38:78               push1 
  0d39:87 01              lap param1 
  0d3b:4a 06             send 6 

  0d3d:7a               push2 
  0d3e:39 1f            pushi 1f // $1f style
  0d40:39 27            pushi 27 // $27 who
  0d42:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d48:33 14              jmp code_0d5e 

        code_0d4a
  0d4a:78               push1 
  0d4b:74 0558          lofss $12a6 // get/arbalete[<antique]
  0d4e:43 25 02         callk Said 2 

  0d51:31 0b              bnt code_0d5e 
  0d53:7a               push2 
  0d54:39 1f            pushi 1f // $1f style
  0d56:39 10            pushi 10 // $10 lsRight
  0d58:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0d5e
  0d5e:48                 ret 
    )

)

// 1742
(instance lamp1 of Prop
    (properties
        y $35
        x $57
        z $0
        heading $0
        yStep $2
        view $83
        loop $2
        cel $0
        priority $5
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0d5f
  0d5f:39 03            pushi 3 // $3 y
  0d61:7c            pushSelf 
  0d62:8f 01              lsp param1 
  0d64:39 03            pushi 3 // $3 y
  0d66:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0d6c:31 0f              bnt code_0d7d 
  0d6e:39 4c            pushi 4c // $4c claimed
  0d70:78               push1 
  0d71:78               push1 
  0d72:87 01              lap param1 
  0d74:4a 06             send 6 

  0d76:78               push1 
  0d77:74 0ed6          lofss $1c50 // lamp
  0d7a:45 19 02         callb procedure_0019 2 // DoLook 


        code_0d7d
  0d7d:48                 ret 
    )

)

// 1794
(instance lamp2 of Prop
    (properties
        y $41
        x $3f
        z $0
        heading $0
        yStep $2
        view $83
        loop $2
        cel $0
        priority $b
        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_0d7e
  0d7e:39 03            pushi 3 // $3 y
  0d80:7c            pushSelf 
  0d81:8f 01              lsp param1 
  0d83:39 03            pushi 3 // $3 y
  0d85:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0d8b:31 0f              bnt code_0d9c 
  0d8d:39 4c            pushi 4c // $4c claimed
  0d8f:78               push1 
  0d90:78               push1 
  0d91:87 01              lap param1 
  0d93:4a 06             send 6 

  0d95:78               push1 
  0d96:74 0eb7          lofss $1c50 // lamp
  0d99:45 19 02         callb procedure_0019 2 // DoLook 


        code_0d9c
  0d9c:48                 ret 
    )

)

// 17e6
(instance tomahawk of RPicView
    (properties
        y $59
        x $3b
        z $0
        heading $0
        view $83
        loop $0
        cel $4
        priority $9
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0d9d
  0d9d:39 6f            pushi 6f // $6f handleEvent
  0d9f:78               push1 
  0da0:8f 01              lsp param1 
  0da2:57 42 06         super RPicView 6 

  0da5:31 02              bnt code_0da9 
  0da7:33 41              jmp code_0dea 

        code_0da9
  0da9:39 03            pushi 3 // $3 y
  0dab:7c            pushSelf 
  0dac:8f 01              lsp param1 
  0dae:39 03            pushi 3 // $3 y
  0db0:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0db6:2f 09               bt code_0dc1 
  0db8:78               push1 
  0db9:74 051d          lofss $12d9 // look/ax[<feathered]
  0dbc:43 25 02         callk Said 2 

  0dbf:31 15              bnt code_0dd6 

        code_0dc1
  0dc1:39 4c            pushi 4c // $4c claimed
  0dc3:78               push1 
  0dc4:78               push1 
  0dc5:87 01              lap param1 
  0dc7:4a 06             send 6 

  0dc9:7a               push2 
  0dca:39 1f            pushi 1f // $1f style
  0dcc:39 28            pushi 28 // $28 message
  0dce:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0dd4:33 14              jmp code_0dea 

        code_0dd6
  0dd6:78               push1 
  0dd7:74 04b8          lofss $1292 // get/ax[<feathered]
  0dda:43 25 02         callk Said 2 

  0ddd:31 0b              bnt code_0dea 
  0ddf:7a               push2 
  0de0:39 1f            pushi 1f // $1f style
  0de2:39 10            pushi 10 // $10 lsRight
  0de4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0dea
  0dea:48                 ret 
    )

)

// 181c
(instance Spear of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $1d
        nsLeft $ba
        nsBottom $31
        nsRight $e8
    )
    (method (handleEvent) // method_0deb
  0deb:78               push1 
  0dec:74 04da          lofss $12c9 // get/lance
  0def:43 25 02         callk Said 2 

  0df2:31 0d              bnt code_0e01 
  0df4:7a               push2 
  0df5:39 1f            pushi 1f // $1f style
  0df7:39 29            pushi 29 // $29 edit
  0df9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0dff:33 2b              jmp code_0e2c 

        code_0e01
  0e01:39 03            pushi 3 // $3 y
  0e03:7c            pushSelf 
  0e04:8f 01              lsp param1 
  0e06:39 03            pushi 3 // $3 y
  0e08:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0e0e:2f 09               bt code_0e19 
  0e10:78               push1 
  0e11:74 0501          lofss $1315 // look/lance
  0e14:43 25 02         callk Said 2 

  0e17:31 13              bnt code_0e2c 

        code_0e19
  0e19:39 4c            pushi 4c // $4c claimed
  0e1b:78               push1 
  0e1c:78               push1 
  0e1d:87 01              lap param1 
  0e1f:4a 06             send 6 

  0e21:7a               push2 
  0e22:39 1f            pushi 1f // $1f style
  0e24:39 2a            pushi 2a // $2a play
  0e26:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0e2c
  0e2c:48                 ret 
    )

)

// 1848
(instance Desk of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $76
        nsLeft $92
        nsBottom $96
        nsRight $d0
    )
    (method (handleEvent) // method_0e2d
  0e2d:78               push1 
  0e2e:74 0521          lofss $1352 // open,(look<dans)/bureau,(drawer[<bureau])
  0e31:43 25 02         callk Said 2 

  0e34:31 0d              bnt code_0e43 
  0e36:7a               push2 
  0e37:39 1f            pushi 1f // $1f style
  0e39:39 2b            pushi 2b // $2b number
  0e3b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0e41:33 40              jmp code_0e83 

        code_0e43
  0e43:39 03            pushi 3 // $3 y
  0e45:7c            pushSelf 
  0e46:8f 01              lsp param1 
  0e48:39 03            pushi 3 // $3 y
  0e4a:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0e50:2f 09               bt code_0e5b 
  0e52:78               push1 
  0e53:74 04aa          lofss $1300 // look/bureau
  0e56:43 25 02         callk Said 2 

  0e59:31 28              bnt code_0e83 

        code_0e5b
  0e5b:39 4c            pushi 4c // $4c claimed
  0e5d:78               push1 
  0e5e:78               push1 
  0e5f:87 01              lap param1 
  0e61:4a 06             send 6 

  0e63:88 00a5            lsg gAct 
  0e66:35 06              ldi 6 
  0e68:22                 lt? 
  0e69:31 0d              bnt code_0e78 
  0e6b:7a               push2 
  0e6c:39 1f            pushi 1f // $1f style
  0e6e:39 2c            pushi 2c // $2c handle
  0e70:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0e76:33 0b              jmp code_0e83 

        code_0e78
  0e78:7a               push2 
  0e79:39 1f            pushi 1f // $1f style
  0e7b:39 2d            pushi 2d // $2d client
  0e7d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0e83
  0e83:48                 ret 
    )

)

// 1874
(instance Window1 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $14
        nsLeft $92
        nsBottom $55
        nsRight $b2
    )
    (method (handleEvent) // method_0e84
  0e84:39 03            pushi 3 // $3 y
  0e86:7c            pushSelf 
  0e87:8f 01              lsp param1 
  0e89:39 03            pushi 3 // $3 y
  0e8b:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0e91:31 0f              bnt code_0ea2 
  0e93:39 4c            pushi 4c // $4c claimed
  0e95:78               push1 
  0e96:78               push1 
  0e97:87 01              lap param1 
  0e99:4a 06             send 6 

  0e9b:78               push1 
  0e9c:74 0e15          lofss $1cb4 // window
  0e9f:45 19 02         callb procedure_0019 2 // DoLook 


        code_0ea2
  0ea2:48                 ret 
    )

)

// 18a0
(instance Window2 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $14
        nsLeft $f7
        nsBottom $55
        nsRight $115
    )
    (method (handleEvent) // method_0ea3
  0ea3:39 03            pushi 3 // $3 y
  0ea5:7c            pushSelf 
  0ea6:8f 01              lsp param1 
  0ea8:39 03            pushi 3 // $3 y
  0eaa:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0eb0:31 0f              bnt code_0ec1 
  0eb2:39 4c            pushi 4c // $4c claimed
  0eb4:78               push1 
  0eb5:78               push1 
  0eb6:87 01              lap param1 
  0eb8:4a 06             send 6 

  0eba:78               push1 
  0ebb:74 0df6          lofss $1cb4 // window
  0ebe:45 19 02         callb procedure_0019 2 // DoLook 


        code_0ec1
  0ec1:48                 ret 
    )

)

// 18cc
(instance Bdoor of Prop
    (properties
        y $7f
        x $42
        z $0
        heading $0
        yStep $2
        view $c9
        loop $2
        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
    )
    (method (handleEvent) // method_0ec2
  0ec2:39 03            pushi 3 // $3 y
  0ec4:7c            pushSelf 
  0ec5:8f 01              lsp param1 
  0ec7:39 03            pushi 3 // $3 y
  0ec9:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0ecf:31 0f              bnt code_0ee0 
  0ed1:39 4c            pushi 4c // $4c claimed
  0ed3:78               push1 
  0ed4:78               push1 
  0ed5:87 01              lap param1 
  0ed7:4a 06             send 6 

  0ed9:78               push1 
  0eda:74 0d47          lofss $1c24 // door
  0edd:45 19 02         callb procedure_0019 2 // DoLook 


        code_0ee0
  0ee0:48                 ret 
    )

)

// 191e
(instance Fdoor of Prop
    (properties
        y $74
        x $4c
        z $0
        heading $0
        yStep $2
        view $c9
        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_0ee1
  0ee1:39 03            pushi 3 // $3 y
  0ee3:7c            pushSelf 
  0ee4:8f 01              lsp param1 
  0ee6:39 03            pushi 3 // $3 y
  0ee8:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0eee:31 0f              bnt code_0eff 
  0ef0:39 4c            pushi 4c // $4c claimed
  0ef2:78               push1 
  0ef3:78               push1 
  0ef4:87 01              lap param1 
  0ef6:4a 06             send 6 

  0ef8:78               push1 
  0ef9:74 0d28          lofss $1c24 // door
  0efc:45 19 02         callb procedure_0019 2 // DoLook 


        code_0eff
  0eff:48                 ret 
    )

)

// 1970
(instance sphere of Prop
    (properties
        y $9a
        x $24
        z $0
        heading $0
        yStep $2
        view $83
        loop $3
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 19be
(instance gundoor of Prop
    (properties
        y $53
        x $83
        z $0
        heading $0
        yStep $2
        view $83
        loop $4
        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_0f00
  0f00:78               push1 
  0f01:74 0439          lofss $133d // bouger/armoire
  0f04:43 25 02         callk Said 2 

  0f07:31 0d              bnt code_0f16 
  0f09:7a               push2 
  0f0a:39 1f            pushi 1f // $1f style
  0f0c:39 2e            pushi 2e // $2e dx
  0f0e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0f14:33 37              jmp code_0f4d 

        code_0f16
  0f16:39 03            pushi 3 // $3 y
  0f18:7c            pushSelf 
  0f19:8f 01              lsp param1 
  0f1b:39 03            pushi 3 // $3 y
  0f1d:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

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

  0f2d:78               push1 
  0f2e:39 2f            pushi 2f // $2f dy
  0f30:45 07 02         callb procedure_0007 2 // IsFlag 

  0f33:31 0d              bnt code_0f42 
  0f35:7a               push2 
  0f36:39 1f            pushi 1f // $1f style
  0f38:39 03            pushi 3 // $3 y
  0f3a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0f40:33 0b              jmp code_0f4d 

        code_0f42
  0f42:7a               push2 
  0f43:39 1f            pushi 1f // $1f style
  0f45:39 04            pushi 4 // $4 x
  0f47:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0f4d
  0f4d:48                 ret 
    )

)

// 1a10
(instance cabDoor of Prop
    (properties
        y $59
        x $11e
        z $0
        heading $0
        yStep $2
        view $83
        loop $5
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0f4e
  0f4e:78               push1 
  0f4f:74 0286          lofss $11d8 // (look<dans),open/armoire,(door<armoire)>
  0f52:43 25 02         callk Said 2 

  0f55:31 65              bnt code_0fbc 
  0f57:35 00              ldi 0 
  0f59:a3 04              sal local4 
  0f5b:38 00ae          pushi ae // $ae distanceTo
  0f5e:78               push1 
  0f5f:74 0a62          lofss $19c4 // gundoor
  0f62:81 00              lag gEgo 
  0f64:4a 06             send 6 

  0f66:36                push 
  0f67:35 1e              ldi 1e 
  0f69:22                 lt? 
  0f6a:31 24              bnt code_0f90 
  0f6c:78               push1 
  0f6d:74 03df          lofss $134f // open
  0f70:43 25 02         callk Said 2 

  0f73:31 0e              bnt code_0f83 
  0f75:78               push1 
  0f76:39 2f            pushi 2f // $2f dy
  0f78:45 07 02         callb procedure_0007 2 // IsFlag 

  0f7b:31 06              bnt code_0f83 
  0f7d:76               push0 
  0f7e:45 10 00         callb procedure_0010 0 // AlreadyOpen 

  0f81:33 0b              jmp code_0f8e 

        code_0f83
  0f83:39 7a            pushi 7a // $7a setScript
  0f85:78               push1 
  0f86:74 04b9          lofss $1442 // cabinetDrawer
  0f89:72 0a38          lofsa $19c4 // gundoor
  0f8c:4a 06             send 6 


        code_0f8e
  0f8e:33 22              jmp code_0fb2 

        code_0f90
  0f90:38 00ae          pushi ae // $ae distanceTo
  0f93:78               push1 
  0f94:74 0a7f          lofss $1a16 // cabDoor
  0f97:81 00              lag gEgo 
  0f99:4a 06             send 6 

  0f9b:36                push 
  0f9c:35 1e              ldi 1e 
  0f9e:22                 lt? 
  0f9f:31 0d              bnt code_0fae 
  0fa1:39 7a            pushi 7a // $7a setScript
  0fa3:78               push1 
  0fa4:74 049b          lofss $1442 // cabinetDrawer
  0fa7:72 0a6c          lofsa $1a16 // cabDoor
  0faa:4a 06             send 6 

  0fac:33 04              jmp code_0fb2 

        code_0fae
  0fae:76               push0 
  0faf:45 09 00         callb procedure_0009 0 // NotClose 


        code_0fb2
  0fb2:39 4c            pushi 4c // $4c claimed
  0fb4:78               push1 
  0fb5:78               push1 
  0fb6:87 01              lap param1 
  0fb8:4a 06             send 6 

  0fba:33 73              jmp code_102f 

        code_0fbc
  0fbc:39 03            pushi 3 // $3 y
  0fbe:7c            pushSelf 
  0fbf:8f 01              lsp param1 
  0fc1:39 03            pushi 3 // $3 y
  0fc3:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0fc9:31 15              bnt code_0fe0 
  0fcb:39 4c            pushi 4c // $4c claimed
  0fcd:78               push1 
  0fce:78               push1 
  0fcf:87 01              lap param1 
  0fd1:4a 06             send 6 

  0fd3:7a               push2 
  0fd4:39 1f            pushi 1f // $1f style
  0fd6:39 05            pushi 5 // $5 view
  0fd8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0fde:33 4f              jmp code_102f 

        code_0fe0
  0fe0:78               push1 
  0fe1:74 028e          lofss $1272 // clore/armoire,(door<armoire)
  0fe4:43 25 02         callk Said 2 

  0fe7:31 46              bnt code_102f 
  0fe9:38 00ae          pushi ae // $ae distanceTo
  0fec:78               push1 
  0fed:74 0a26          lofss $1a16 // cabDoor
  0ff0:81 00              lag gEgo 
  0ff2:4a 06             send 6 

  0ff4:36                push 
  0ff5:35 1e              ldi 1e 
  0ff7:22                 lt? 
  0ff8:2f 09               bt code_1003 
  0ffa:78               push1 
  0ffb:39 2f            pushi 2f // $2f dy
  0ffd:45 07 02         callb procedure_0007 2 // IsFlag 

  1000:18                 not 
  1001:31 06              bnt code_1009 

        code_1003
  1003:76               push0 
  1004:45 11 00         callb procedure_0011 0 // AlreadyClosed 

  1007:33 26              jmp code_102f 

        code_1009
  1009:38 00ae          pushi ae // $ae distanceTo
  100c:78               push1 
  100d:74 09b4          lofss $19c4 // gundoor
  1010:81 00              lag gEgo 
  1012:4a 06             send 6 

  1014:36                push 
  1015:35 1e              ldi 1e 
  1017:22                 lt? 
  1018:31 11              bnt code_102b 
  101a:35 01              ldi 1 
  101c:a3 09              sal local9 
  101e:39 7a            pushi 7a // $7a setScript
  1020:78               push1 
  1021:74 041e          lofss $1442 // cabinetDrawer
  1024:72 099d          lofsa $19c4 // gundoor
  1027:4a 06             send 6 

  1029:33 04              jmp code_102f 

        code_102b
  102b:76               push0 
  102c:45 09 00         callb procedure_0009 0 // NotClose 


        code_102f
  102f:48                 ret 
    )

)

// 1a62
(instance derringer of Prop
    (properties
        y $7c
        x $c3
        z $0
        heading $0
        yStep $2
        view $83
        loop $1
        cel $3
        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_1030
  1030:78               push1 
  1031:74 0235          lofss $1269 // break/glass,affaire
  1034:43 25 02         callk Said 2 

  1037:31 2f              bnt code_1068 
  1039:88 00a5            lsg gAct 
  103c:35 06              ldi 6 
  103e:22                 lt? 
  103f:31 13              bnt code_1054 
  1041:78               push1 
  1042:39 19            pushi 19 // $19 time
  1044:45 05 02         callb procedure_0005 2 // SetFlag 

  1047:7a               push2 
  1048:39 1f            pushi 1f // $1f style
  104a:39 2f            pushi 2f // $2f dy
  104c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1052:33 11              jmp code_1065 

        code_1054
  1054:78               push1 
  1055:39 1a            pushi 1a // $1a text
  1057:45 05 02         callb procedure_0005 2 // SetFlag 

  105a:7a               push2 
  105b:39 1f            pushi 1f // $1f style
  105d:39 0e            pushi e // $e lsLeft
  105f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_1065
  1065:32 00d2            jmp code_113a 

        code_1068
  1068:78               push1 
  1069:74 0214          lofss $1280 // feel<dans/affaire
  106c:43 25 02         callk Said 2 

  106f:31 14              bnt code_1085 
  1071:78               push1 
  1072:39 19            pushi 19 // $19 time
  1074:45 05 02         callb procedure_0005 2 // SetFlag 

  1077:7a               push2 
  1078:39 1f            pushi 1f // $1f style
  107a:39 30            pushi 30 // $30 b-moveCnt
  107c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1082:32 00b5            jmp code_113a 

        code_1085
  1085:78               push1 
  1086:74 0228          lofss $12b1 // get/glass,affaire
  1089:43 25 02         callk Said 2 

  108c:31 29              bnt code_10b7 
  108e:88 00a5            lsg gAct 
  1091:35 06              ldi 6 
  1093:22                 lt? 
  1094:31 13              bnt code_10a9 
  1096:78               push1 
  1097:39 19            pushi 19 // $19 time
  1099:45 05 02         callb procedure_0005 2 // SetFlag 

  109c:7a               push2 
  109d:39 1f            pushi 1f // $1f style
  109f:39 31            pushi 31 // $31 b-i1
  10a1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  10a7:33 0b              jmp code_10b4 

        code_10a9
  10a9:7a               push2 
  10aa:39 1f            pushi 1f // $1f style
  10ac:39 32            pushi 32 // $32 b-i2
  10ae:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_10b4
  10b4:32 0083            jmp code_113a 

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

  10c4:2f 09               bt code_10cf 
  10c6:78               push1 
  10c7:74 0220          lofss $12ea // look/affaire[<glass]
  10ca:43 25 02         callk Said 2 

  10cd:31 36              bnt code_1105 

        code_10cf
  10cf:39 4c            pushi 4c // $4c claimed
  10d1:78               push1 
  10d2:78               push1 
  10d3:87 01              lap param1 
  10d5:4a 06             send 6 

  10d7:88 00a5            lsg gAct 
  10da:35 06              ldi 6 
  10dc:22                 lt? 
  10dd:31 13              bnt code_10f2 
  10df:78               push1 
  10e0:39 19            pushi 19 // $19 time
  10e2:45 05 02         callb procedure_0005 2 // SetFlag 

  10e5:7a               push2 
  10e6:39 1f            pushi 1f // $1f style
  10e8:39 33            pushi 33 // $33 b-di
  10ea:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  10f0:33 11              jmp code_1103 

        code_10f2
  10f2:78               push1 
  10f3:39 1a            pushi 1a // $1a text
  10f5:45 05 02         callb procedure_0005 2 // SetFlag 

  10f8:7a               push2 
  10f9:39 1f            pushi 1f // $1f style
  10fb:39 34            pushi 34 // $34 b-xAxis
  10fd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_1103
  1103:33 35              jmp code_113a 

        code_1105
  1105:78               push1 
  1106:74 0180          lofss $1289 // find,look/derringer
  1109:43 25 02         callk Said 2 

  110c:31 2c              bnt code_113a 
  110e:88 00a5            lsg gAct 
  1111:35 06              ldi 6 
  1113:22                 lt? 
  1114:31 13              bnt code_1129 
  1116:78               push1 
  1117:39 19            pushi 19 // $19 time
  1119:45 05 02         callb procedure_0005 2 // SetFlag 

  111c:7a               push2 
  111d:39 1f            pushi 1f // $1f style
  111f:39 35            pushi 35 // $35 b-incr
  1121:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1127:33 11              jmp code_113a 

        code_1129
  1129:78               push1 
  112a:39 1a            pushi 1a // $1a text
  112c:45 05 02         callb procedure_0005 2 // SetFlag 

  112f:7a               push2 
  1130:39 1f            pushi 1f // $1f style
  1132:39 11            pushi 11 // $11 signal
  1134:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_113a
  113a:48                 ret 
    )

)

// 1ab4
(instance Shadow of Act
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $6e
        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
    )
)

// 1b18
(instance mySound of Sound
    (properties
        state $0
        number $2b
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)

// 1b42
(instance closeDoor 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_113b
  113b:87 01              lap param1 
  113d:65 0a             aTop state 
  113f:36                push 
  1140:3c                 dup 
  1141:35 00              ldi 0 
  1143:1a                 eq? 
  1144:31 0b              bnt code_1151 
  1146:76               push0 
  1147:45 03 00         callb procedure_0003 0 // HandsOff 

  114a:35 03              ldi 3 
  114c:65 10             aTop cycles 
  114e:32 0080            jmp code_11d1 

        code_1151
  1151:3c                 dup 
  1152:35 01              ldi 1 
  1154:1a                 eq? 
  1155:31 3b              bnt code_1192 
  1157:38 00c9          pushi c9 // $c9 ignoreActors
  115a:78               push1 
  115b:76               push0 
  115c:38 00d3          pushi d3 // $d3 setMotion
  115f:39 03            pushi 3 // $3 y
  1161:51 1d            class MoveTo 
  1163:36                push 
  1164:39 63            pushi 63 // $63 firstTrue
  1166:39 7a            pushi 7a // $7a setScript
  1168:81 00              lag gEgo 
  116a:4a 10             send 10 

  116c:39 7e            pushi 7e // $7e setCycle
  116e:78               push1 
  116f:51 1b            class Beg 
  1171:36                push 
  1172:72 07af          lofsa $1924 // Fdoor
  1175:4a 06             send 6 

  1177:39 7e            pushi 7e // $7e setCycle
  1179:7a               push2 
  117a:51 1b            class Beg 
  117c:36                push 
  117d:7c            pushSelf 
  117e:72 0751          lofsa $18d2 // Bdoor
  1181:4a 08             send 8 

  1183:39 2b            pushi 2b // $2b number
  1185:78               push1 
  1186:39 2c            pushi 2c // $2c handle
  1188:39 2a            pushi 2a // $2a play
  118a:76               push0 
  118b:72 0990          lofsa $1b1e // mySound
  118e:4a 0a             send a 

  1190:33 3f              jmp code_11d1 

        code_1192
  1192:3c                 dup 
  1193:35 02              ldi 2 
  1195:1a                 eq? 
  1196:31 39              bnt code_11d1 
  1198:88 009a            lsg gClarenceWilburState 
  119b:35 01              ldi 1 
  119d:1c                 ne? 
  119e:31 0e              bnt code_11ae 
  11a0:83 06              lal local6 
  11a2:18                 not 
  11a3:31 09              bnt code_11ae 
  11a5:38 00e2          pushi e2 // $e2 canInput
  11a8:78               push1 
  11a9:78               push1 
  11aa:51 2b            class User 
  11ac:4a 06             send 6 


        code_11ae
  11ae:38 00e9          pushi e9 // $e9 canControl
  11b1:78               push1 
  11b2:78               push1 
  11b3:51 2b            class User 
  11b5:4a 06             send 6 

  11b7:38 00c6          pushi c6 // $c6 stopUpd
  11ba:76               push0 
  11bb:72 0714          lofsa $18d2 // Bdoor
  11be:4a 04             send 4 

  11c0:38 00c6          pushi c6 // $c6 stopUpd
  11c3:76               push0 
  11c4:72 075d          lofsa $1924 // Fdoor
  11c7:4a 04             send 4 

  11c9:39 7a            pushi 7a // $7a setScript
  11cb:78               push1 
  11cc:76               push0 
  11cd:63 08             pToa client 
  11cf:4a 06             send 6 


        code_11d1
  11d1:3a                toss 
  11d2:48                 ret 
  11d3:00                bnot 
    )

)



