(script 61)

(string
    string_0a08 "Boat"
    string_0a0d "Box"
    string_0a11 "Car"
    string_0a15 "OilCan"
    string_0a1c "Room61"
    string_0a23 "Table"
    string_0a29 "anchor"
    string_0a30 "getBar"
    string_0a37 "harness"
    string_0a3f "minnow"
    string_0a46 "preserver"
)

(said
    said_067a (aller,asseoir,climb,get)<dans/buggy
    said_068e (asseoir,aller,climb,get)<dans/bateau
    said_06a2 /ceiling
    said_06a6 /dirt
    said_06aa /door
    said_06ae /mur
    said_06b2 /fenetre
    said_06b6 <(exterieur,through)/fenetre
    said_06c2 <below/nightstand
    said_06c9 <bas
    said_06cd <haut
    said_06d1 [<around,at][/room]
    said_06df break/fenetre
    said_06e5 enter/bateau
    said_06eb enter/buggy
    said_06f1 get,bouger/boite,boite
    said_06fd get/anchor
    said_0703 get/bateau
    said_0709 get/buggy
    said_070f get/bidon
    said_0715 get/barre
    said_071b get/conservateur[<life]
    said_0726 look,get/oar
    said_072f look/anchor
    said_0735 look/bit
    said_073b look/bateau
    said_0741 look/boite
    said_0747 look/buggy
    said_074d look/bidon
    said_0753 look/nightstand
    said_0759 look/conservateur[<life]
    said_0764 look<below/bateau,buggy
    said_0770 look<dans/boite
    said_0779 look>
    said_077d open/boite,boite
    said_0786 open/door
    said_078c open/fenetre
    said_0792 chercher,(look<dans)/bateau
    said_07a0 chercher,(look<dans)/buggy
)

(synonym
    room = cabin | cottage | demeure | dwelling | home | house | logement | maison | manoir | manor | manor-house | shack
)

(local
    local0 = $0000
    local1 = $0000
)

// 07b4
(instance public Room61 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $3d
        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:39 57            pushi 57 // $57 init
  0018:76               push0 
  0019:57 37 04         super Rm 4 

  001c:38 0082          pushi 82 // $82 owner
  001f:76               push0 
  0020:39 43            pushi 43 // $43 at
  0022:78               push1 
  0023:39 03            pushi 3 // $3 y
  0025:81 09              lag gInventory 
  0027:4a 06             send 6 

  0029:4a 04             send 4 

  002b:36                push 
  002c:35 3d              ldi 3d 
  002e:1a                 eq? 
  002f:a3 00              sal local0 
  0031:31 0c              bnt code_003f 
  0033:39 57            pushi 57 // $57 init
  0035:76               push0 
  0036:38 00c6          pushi c6 // $c6 stopUpd
  0039:76               push0 
  003a:72 094d          lofsa $098a // OilCan
  003d:4a 08             send 8 


        code_003f
  003f:39 61            pushi 61 // $61 add
  0041:39 04            pushi 4 // $4 x
  0043:74 07f4          lofss $083a // anchor
  0046:74 0827          lofss $0870 // harness
  0049:74 085a          lofss $08a6 // preserver
  004c:74 088d          lofss $08dc // minnow
  004f:39 62            pushi 62 // $62 eachElementDo
  0051:78               push1 
  0052:39 57            pushi 57 // $57 init
  0054:39 3c            pushi 3c // $3c doit
  0056:76               push0 
  0057:81 0a              lag gAddToPics 
  0059:4a 16             send 16 

  005b:38 010b          pushi 10b // $10b setFeatures
  005e:39 07            pushi 7 // $7 cel
  0060:74 080d          lofss $0870 // harness
  0063:74 07d4          lofss $083a // anchor
  0066:74 083d          lofss $08a6 // preserver
  0069:74 08f2          lofss $095e // Car
  006c:74 08c3          lofss $0932 // Box
  006f:74 0894          lofss $0906 // Boat
  0072:74 0967          lofss $09dc // Table
  0075:54 12             self 12 

  0077:7a               push2 
  0078:38 0080          pushi 80 // $80 timeLeft
  007b:39 3c            pushi 3c // $3c doit
  007d:43 00 04         callk Load 4 

  0080:88 00a5            lsg gAct 
  0083:35 04              ldi 4 
  0085:20                 ge? 
  0086:31 58              bnt code_00e0 
  0088:89 7b              lsg gCorpseFlags 
  008a:35 40              ldi 40 
  008c:12                 and 
  008d:18                 not 
  008e:31 50              bnt code_00e0 
  0090:88 00c8            lsg gEthelState 
  0093:35 65              ldi 65 
  0095:1c                 ne? 
  0096:31 48              bnt code_00e0 
  0098:88 00aa            lsg gEthelCorpseRoomNum 
  009b:35 3d              ldi 3d 
  009d:1a                 eq? 
  009e:31 0f              bnt code_00af 
  00a0:38 010a          pushi 10a // $10a setRegions
  00a3:78               push1 
  00a4:38 010c          pushi 10c // $10c setLocales
  00a7:54 06             self 6 

  00a9:35 01              ldi 1 
  00ab:a3 01              sal local1 
  00ad:33 31              jmp code_00e0 

        code_00af
  00af:88 00aa            lsg gEthelCorpseRoomNum 
  00b2:35 05              ldi 5 
  00b4:1a                 eq? 
  00b5:18                 not 
  00b6:31 28              bnt code_00e0 
  00b8:7a               push2 
  00b9:78               push1 
  00ba:7a               push2 
  00bb:43 40 04         callk Random 4 

  00be:36                push 
  00bf:3c                 dup 
  00c0:35 01              ldi 1 
  00c2:1a                 eq? 
  00c3:31 0f              bnt code_00d4 
  00c5:35 01              ldi 1 
  00c7:a3 01              sal local1 
  00c9:38 010a          pushi 10a // $10a setRegions
  00cc:78               push1 
  00cd:38 010c          pushi 10c // $10c setLocales
  00d0:54 06             self 6 

  00d2:33 0b              jmp code_00df 

        code_00d4
  00d4:3c                 dup 
  00d5:35 02              ldi 2 
  00d7:1a                 eq? 
  00d8:31 05              bnt code_00df 
  00da:35 05              ldi 5 
  00dc:a0 00aa            sag gEthelCorpseRoomNum 

        code_00df
  00df:3a                toss 

        code_00e0
  00e0:39 05            pushi 5 // $5 view
  00e2:78               push1 
  00e3:76               push0 
  00e4:39 12            pushi 12 // $12 illegalBits
  00e6:78               push1 
  00e7:38 8000          pushi 8000 // $8000 sel_32768
  00ea:38 00c5          pushi c5 // $c5 posn
  00ed:7a               push2 
  00ee:39 66            pushi 66 // $66 isEmpty
  00f0:38 00ad          pushi ad // $ad distance
  00f3:39 57            pushi 57 // $57 init
  00f5:76               push0 
  00f6:81 00              lag gEgo 
  00f8:4a 18             send 18 

  00fa:48                 ret 
    )

    (method (doit) // method_00fb
  00fb:76               push0 
  00fc:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  00ff:31 0a              bnt code_010b 
  0101:7a               push2 
  0102:39 3d            pushi 3d // $3d isBlocked
  0104:76               push0 
  0105:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_010b
  010b:38 00db          pushi db // $db onControl
  010e:78               push1 
  010f:78               push1 
  0110:81 00              lag gEgo 
  0112:4a 06             send 6 

  0114:36                push 
  0115:35 02              ldi 2 
  0117:12                 and 
  0118:31 0a              bnt code_0124 
  011a:38 00f8          pushi f8 // $f8 newRoom
  011d:78               push1 
  011e:39 14            pushi 14 // $14 brLeft
  0120:81 02              lag gCurRoom 
  0122:4a 06             send 6 


        code_0124
  0124:39 3c            pushi 3c // $3c doit
  0126:76               push0 
  0127:57 37 04         super Rm 4 

  012a:48                 ret 
    )

    (method (dispose) // method_012b
  012b:39 58            pushi 58 // $58 dispose
  012d:76               push0 
  012e:57 37 04         super Rm 4 

  0131:48                 ret 
    )

    (method (newRoom) // method_0132
  0132:38 00f8          pushi f8 // $f8 newRoom
  0135:78               push1 
  0136:8f 01              lsp param1 
  0138:57 37 06         super Rm 6 

  013b:48                 ret 
    )

    (method (handleEvent) // method_013c
  013c:3f 01             link 1 // (var $1)
  013e:39 6f            pushi 6f // $6f handleEvent
  0140:78               push1 
  0141:8f 01              lsp param1 
  0143:57 37 06         super Rm 6 

  0146:39 4c            pushi 4c // $4c claimed
  0148:76               push0 
  0149:87 01              lap param1 
  014b:4a 04             send 4 

  014d:31 03              bnt code_0152 
  014f:35 01              ldi 1 
  0151:48                 ret 

        code_0152
  0152:39 22            pushi 22 // $22 type
  0154:76               push0 
  0155:87 01              lap param1 
  0157:4a 04             send 4 

  0159:36                push 
  015a:34 0080            ldi 80 
  015d:1a                 eq? 
  015e:30 0156            bnt code_02b7 
  0161:78               push1 
  0162:74 0614          lofss $0779 // look>
  0165:43 25 02         callk Said 2 

  0168:30 00c2            bnt code_022d 
  016b:78               push1 
  016c:74 0562          lofss $06d1 // [<around,at][/room]
  016f:43 25 02         callk Said 2 

  0172:31 0d              bnt code_0181 
  0174:7a               push2 
  0175:39 3d            pushi 3d // $3d isBlocked
  0177:76               push0 
  0178:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  017e:32 00a9            jmp code_022a 

        code_0181
  0181:78               push1 
  0182:74 0521          lofss $06a6 // /dirt
  0185:43 25 02         callk Said 2 

  0188:2f 09               bt code_0193 
  018a:78               push1 
  018b:74 053b          lofss $06c9 // <bas
  018e:43 25 02         callk Said 2 

  0191:31 0d              bnt code_01a0 

        code_0193
  0193:7a               push2 
  0194:39 3d            pushi 3d // $3d isBlocked
  0196:78               push1 
  0197:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  019d:32 008a            jmp code_022a 

        code_01a0
  01a0:78               push1 
  01a1:74 050a          lofss $06ae // /mur
  01a4:43 25 02         callk Said 2 

  01a7:31 0c              bnt code_01b5 
  01a9:7a               push2 
  01aa:39 3d            pushi 3d // $3d isBlocked
  01ac:7a               push2 
  01ad:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01b3:33 75              jmp code_022a 

        code_01b5
  01b5:78               push1 
  01b6:74 04e9          lofss $06a2 // /ceiling
  01b9:43 25 02         callk Said 2 

  01bc:2f 09               bt code_01c7 
  01be:78               push1 
  01bf:74 050b          lofss $06cd // <haut
  01c2:43 25 02         callk Said 2 

  01c5:31 0d              bnt code_01d4 

        code_01c7
  01c7:7a               push2 
  01c8:39 3d            pushi 3d // $3d isBlocked
  01ca:39 03            pushi 3 // $3 y
  01cc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01d2:33 56              jmp code_022a 

        code_01d4
  01d4:78               push1 
  01d5:74 04de          lofss $06b6 // <(exterieur,through)/fenetre
  01d8:43 25 02         callk Said 2 

  01db:31 0d              bnt code_01ea 
  01dd:7a               push2 
  01de:39 3d            pushi 3d // $3d isBlocked
  01e0:39 04            pushi 4 // $4 x
  01e2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01e8:33 40              jmp code_022a 

        code_01ea
  01ea:78               push1 
  01eb:74 04c4          lofss $06b2 // /fenetre
  01ee:43 25 02         callk Said 2 

  01f1:31 0d              bnt code_0200 
  01f3:7a               push2 
  01f4:39 3d            pushi 3d // $3d isBlocked
  01f6:39 05            pushi 5 // $5 view
  01f8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01fe:33 2a              jmp code_022a 

        code_0200
  0200:78               push1 
  0201:74 04a6          lofss $06aa // /door
  0204:43 25 02         callk Said 2 

  0207:31 0d              bnt code_0216 
  0209:7a               push2 
  020a:39 3d            pushi 3d // $3d isBlocked
  020c:39 06            pushi 6 // $6 loop
  020e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0214:33 14              jmp code_022a 

        code_0216
  0216:78               push1 
  0217:74 04a8          lofss $06c2 // <below/nightstand
  021a:43 25 02         callk Said 2 

  021d:31 0b              bnt code_022a 
  021f:7a               push2 
  0220:39 3d            pushi 3d // $3d isBlocked
  0222:39 07            pushi 7 // $7 cel
  0224:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_022a
  022a:32 008a            jmp code_02b7 

        code_022d
  022d:78               push1 
  022e:74 04ae          lofss $06df // break/fenetre
  0231:43 25 02         callk Said 2 

  0234:31 0d              bnt code_0243 
  0236:7a               push2 
  0237:39 3d            pushi 3d // $3d isBlocked
  0239:39 08            pushi 8 // $8 underBits
  023b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0241:33 74              jmp code_02b7 

        code_0243
  0243:78               push1 
  0244:74 0545          lofss $078c // open/fenetre
  0247:43 25 02         callk Said 2 

  024a:31 0d              bnt code_0259 
  024c:7a               push2 
  024d:39 3d            pushi 3d // $3d isBlocked
  024f:39 09            pushi 9 // $9 nsTop
  0251:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0257:33 5e              jmp code_02b7 

        code_0259
  0259:78               push1 
  025a:74 0529          lofss $0786 // open/door
  025d:43 25 02         callk Said 2 

  0260:31 0d              bnt code_026f 
  0262:7a               push2 
  0263:39 3d            pushi 3d // $3d isBlocked
  0265:39 0a            pushi a // $a nsLeft
  0267:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  026d:33 48              jmp code_02b7 

        code_026f
  026f:78               push1 
  0270:74 04a2          lofss $0715 // get/barre
  0273:43 25 02         callk Said 2 

  0276:31 3f              bnt code_02b7 
  0278:38 00db          pushi db // $db onControl
  027b:78               push1 
  027c:76               push0 
  027d:81 00              lag gEgo 
  027f:4a 06             send 6 

  0281:36                push 
  0282:35 04              ldi 4 
  0284:12                 and 
  0285:31 2c              bnt code_02b3 
  0287:38 0082          pushi 82 // $82 owner
  028a:76               push0 
  028b:39 43            pushi 43 // $43 at
  028d:78               push1 
  028e:39 07            pushi 7 // $7 cel
  0290:81 09              lag gInventory 
  0292:4a 06             send 6 

  0294:4a 04             send 4 

  0296:36                push 
  0297:35 3d              ldi 3d 
  0299:1a                 eq? 
  029a:31 0a              bnt code_02a6 
  029c:39 7a            pushi 7a // $7a setScript
  029e:78               push1 
  029f:74 0568          lofss $080a // getBar
  02a2:54 06             self 6 

  02a4:33 0b              jmp code_02b1 

        code_02a6
  02a6:7a               push2 
  02a7:39 3d            pushi 3d // $3d isBlocked
  02a9:39 0b            pushi b // $b nsBottom
  02ab:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02b1
  02b1:33 04              jmp code_02b7 

        code_02b3
  02b3:76               push0 
  02b4:45 09 00         callb procedure_0009 0 // NotClose 


        code_02b7
  02b7:48                 ret 
    )

)

// 0804
(instance getBar 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_02b8
  02b8:87 01              lap param1 
  02ba:65 0a             aTop state 
  02bc:36                push 
  02bd:3c                 dup 
  02be:35 00              ldi 0 
  02c0:1a                 eq? 
  02c1:31 1d              bnt code_02e0 
  02c3:76               push0 
  02c4:45 03 00         callb procedure_0003 0 // HandsOff 

  02c7:39 12            pushi 12 // $12 illegalBits
  02c9:78               push1 
  02ca:76               push0 
  02cb:38 00d3          pushi d3 // $d3 setMotion
  02ce:39 04            pushi 4 // $4 x
  02d0:51 1d            class MoveTo 
  02d2:36                push 
  02d3:38 00ad          pushi ad // $ad distance
  02d6:38 0081          pushi 81 // $81 prevSignal
  02d9:7c            pushSelf 
  02da:81 00              lag gEgo 
  02dc:4a 12             send 12 

  02de:33 54              jmp code_0334 

        code_02e0
  02e0:3c                 dup 
  02e1:35 01              ldi 1 
  02e3:1a                 eq? 
  02e4:31 27              bnt code_030d 
  02e6:7a               push2 
  02e7:39 3d            pushi 3d // $3d isBlocked
  02e9:39 0c            pushi c // $c nsRight
  02eb:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02f1:38 00ec          pushi ec // $ec get
  02f4:78               push1 
  02f5:39 07            pushi 7 // $7 cel
  02f7:39 05            pushi 5 // $5 view
  02f9:78               push1 
  02fa:39 3c            pushi 3c // $3c doit
  02fc:39 07            pushi 7 // $7 cel
  02fe:78               push1 
  02ff:76               push0 
  0300:39 7e            pushi 7e // $7e setCycle
  0302:7a               push2 
  0303:51 1a            class End 
  0305:36                push 
  0306:7c            pushSelf 
  0307:81 00              lag gEgo 
  0309:4a 1a             send 1a 

  030b:33 27              jmp code_0334 

        code_030d
  030d:3c                 dup 
  030e:35 02              ldi 2 
  0310:1a                 eq? 
  0311:31 21              bnt code_0334 
  0313:35 01              ldi 1 
  0315:a0 00b6            sag global182 
  0318:39 05            pushi 5 // $5 view
  031a:78               push1 
  031b:76               push0 
  031c:39 06            pushi 6 // $6 loop
  031e:78               push1 
  031f:76               push0 
  0320:39 7e            pushi 7e // $7e setCycle
  0322:78               push1 
  0323:51 17            class Walk 
  0325:36                push 
  0326:39 12            pushi 12 // $12 illegalBits
  0328:78               push1 
  0329:38 8000          pushi 8000 // $8000 sel_32768
  032c:81 00              lag gEgo 
  032e:4a 18             send 18 

  0330:76               push0 
  0331:45 04 00         callb procedure_0004 0 // HandsOn 


        code_0334
  0334:3a                toss 
  0335:48                 ret 
    )

)

// 0834
(instance anchor of RPicView
    (properties
        y $6e
        x $1a
        z $0
        heading $0
        view $a1
        loop $0
        cel $0
        priority $7
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0336
  0336:78               push1 
  0337:74 03c3          lofss $06fd // get/anchor
  033a:43 25 02         callk Said 2 

  033d:31 0d              bnt code_034c 
  033f:7a               push2 
  0340:39 3d            pushi 3d // $3d isBlocked
  0342:39 0d            pushi d // $d lsTop
  0344:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  034a:33 2b              jmp code_0377 

        code_034c
  034c:39 03            pushi 3 // $3 y
  034e:7c            pushSelf 
  034f:8f 01              lsp param1 
  0351:39 03            pushi 3 // $3 y
  0353:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0359:2f 09               bt code_0364 
  035b:78               push1 
  035c:74 03d0          lofss $072f // look/anchor
  035f:43 25 02         callk Said 2 

  0362:31 13              bnt code_0377 

        code_0364
  0364:39 4c            pushi 4c // $4c claimed
  0366:78               push1 
  0367:78               push1 
  0368:87 01              lap param1 
  036a:4a 06             send 6 

  036c:7a               push2 
  036d:39 3d            pushi 3d // $3d isBlocked
  036f:39 0e            pushi e // $e lsLeft
  0371:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0377
  0377:48                 ret 
    )

)

// 086a
(instance harness of RPicView
    (properties
        y $4f
        x $12d
        z $0
        heading $0
        view $a1
        loop $0
        cel $1
        priority $4
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0378
  0378:39 03            pushi 3 // $3 y
  037a:7c            pushSelf 
  037b:8f 01              lsp param1 
  037d:39 03            pushi 3 // $3 y
  037f:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0385:2f 09               bt code_0390 
  0387:78               push1 
  0388:74 03aa          lofss $0735 // look/bit
  038b:43 25 02         callk Said 2 

  038e:31 13              bnt code_03a3 

        code_0390
  0390:39 4c            pushi 4c // $4c claimed
  0392:78               push1 
  0393:78               push1 
  0394:87 01              lap param1 
  0396:4a 06             send 6 

  0398:7a               push2 
  0399:39 3d            pushi 3d // $3d isBlocked
  039b:39 0f            pushi f // $f lsBottom
  039d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_03a3
  03a3:48                 ret 
    )

)

// 08a0
(instance preserver of RPicView
    (properties
        y $4b
        x $17
        z $0
        heading $0
        view $a1
        loop $0
        cel $2
        priority $4
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_03a4
  03a4:78               push1 
  03a5:74 0373          lofss $071b // get/conservateur[<life]
  03a8:43 25 02         callk Said 2 

  03ab:31 0d              bnt code_03ba 
  03ad:7a               push2 
  03ae:39 3d            pushi 3d // $3d isBlocked
  03b0:39 10            pushi 10 // $10 lsRight
  03b2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03b8:33 2b              jmp code_03e5 

        code_03ba
  03ba:39 03            pushi 3 // $3 y
  03bc:7c            pushSelf 
  03bd:8f 01              lsp param1 
  03bf:39 03            pushi 3 // $3 y
  03c1:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  03c7:2f 09               bt code_03d2 
  03c9:78               push1 
  03ca:74 038c          lofss $0759 // look/conservateur[<life]
  03cd:43 25 02         callk Said 2 

  03d0:31 13              bnt code_03e5 

        code_03d2
  03d2:39 4c            pushi 4c // $4c claimed
  03d4:78               push1 
  03d5:78               push1 
  03d6:87 01              lap param1 
  03d8:4a 06             send 6 

  03da:7a               push2 
  03db:39 3d            pushi 3d // $3d isBlocked
  03dd:39 11            pushi 11 // $11 signal
  03df:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_03e5
  03e5:48                 ret 
    )

)

// 08d6
(instance minnow of PV
    (properties
        y $8d
        x $45
        z $0
        heading $0
        view $a1
        loop $0
        cel $3
        priority $b
        signal $0
    )
)

// 0900
(instance Boat of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $78
        nsLeft $0
        nsBottom $9c
        nsRight $58
    )
    (method (handleEvent) // method_03e6
  03e6:78               push1 
  03e7:74 02a4          lofss $068e // (asseoir,aller,climb,get)<dans/bateau
  03ea:43 25 02         callk Said 2 

  03ed:2f 09               bt code_03f8 
  03ef:78               push1 
  03f0:74 02f2          lofss $06e5 // enter/bateau
  03f3:43 25 02         callk Said 2 

  03f6:31 0e              bnt code_0406 

        code_03f8
  03f8:7a               push2 
  03f9:39 3d            pushi 3d // $3d isBlocked
  03fb:39 12            pushi 12 // $12 illegalBits
  03fd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0403:32 0093            jmp code_0499 

        code_0406
  0406:78               push1 
  0407:74 02f9          lofss $0703 // get/bateau
  040a:43 25 02         callk Said 2 

  040d:31 0d              bnt code_041c 
  040f:7a               push2 
  0410:39 3d            pushi 3d // $3d isBlocked
  0412:39 13            pushi 13 // $13 brTop
  0414:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  041a:33 7d              jmp code_0499 

        code_041c
  041c:78               push1 
  041d:74 0344          lofss $0764 // look<below/bateau,buggy
  0420:43 25 02         callk Said 2 

  0423:31 0d              bnt code_0432 
  0425:7a               push2 
  0426:39 3d            pushi 3d // $3d isBlocked
  0428:39 14            pushi 14 // $14 brLeft
  042a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0430:33 67              jmp code_0499 

        code_0432
  0432:78               push1 
  0433:74 035c          lofss $0792 // chercher,(look<dans)/bateau
  0436:43 25 02         callk Said 2 

  0439:31 33              bnt code_046e 
  043b:38 00db          pushi db // $db onControl
  043e:78               push1 
  043f:76               push0 
  0440:81 00              lag gEgo 
  0442:4a 06             send 6 

  0444:36                push 
  0445:35 08              ldi 8 
  0447:12                 and 
  0448:31 1e              bnt code_0468 
  044a:83 01              lal local1 
  044c:31 0d              bnt code_045b 
  044e:7a               push2 
  044f:39 3d            pushi 3d // $3d isBlocked
  0451:39 15            pushi 15 // $15 brBottom
  0453:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0459:33 0b              jmp code_0466 

        code_045b
  045b:7a               push2 
  045c:39 3d            pushi 3d // $3d isBlocked
  045e:39 16            pushi 16 // $16 brRight
  0460:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0466
  0466:33 04              jmp code_046c 

        code_0468
  0468:76               push0 
  0469:45 09 00         callb procedure_0009 0 // NotClose 


        code_046c
  046c:33 2b              jmp code_0499 

        code_046e
  046e:39 03            pushi 3 // $3 y
  0470:7c            pushSelf 
  0471:8f 01              lsp param1 
  0473:39 03            pushi 3 // $3 y
  0475:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  047b:2f 09               bt code_0486 
  047d:78               push1 
  047e:74 02ba          lofss $073b // look/bateau
  0481:43 25 02         callk Said 2 

  0484:31 13              bnt code_0499 

        code_0486
  0486:39 4c            pushi 4c // $4c claimed
  0488:78               push1 
  0489:78               push1 
  048a:87 01              lap param1 
  048c:4a 06             send 6 

  048e:7a               push2 
  048f:39 3d            pushi 3d // $3d isBlocked
  0491:39 17            pushi 17 // $17 name
  0493:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0499
  0499:48                 ret 
    )

)

// 092c
(instance Box of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $59
        nsLeft $f3
        nsBottom $8e
        nsRight $134
    )
    (method (handleEvent) // method_049a
  049a:78               push1 
  049b:74 0288          lofss $0726 // look,get/oar
  049e:43 25 02         callk Said 2 

  04a1:31 0d              bnt code_04b0 
  04a3:7a               push2 
  04a4:39 3d            pushi 3d // $3d isBlocked
  04a6:39 18            pushi 18 // $18 key
  04a8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04ae:33 6d              jmp code_051d 

        code_04b0
  04b0:78               push1 
  04b1:74 02c9          lofss $077d // open/boite,boite
  04b4:43 25 02         callk Said 2 

  04b7:31 0d              bnt code_04c6 
  04b9:7a               push2 
  04ba:39 3d            pushi 3d // $3d isBlocked
  04bc:39 19            pushi 19 // $19 time
  04be:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04c4:33 57              jmp code_051d 

        code_04c6
  04c6:78               push1 
  04c7:74 0227          lofss $06f1 // get,bouger/boite,boite
  04ca:43 25 02         callk Said 2 

  04cd:31 0d              bnt code_04dc 
  04cf:7a               push2 
  04d0:39 3d            pushi 3d // $3d isBlocked
  04d2:39 1a            pushi 1a // $1a text
  04d4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04da:33 41              jmp code_051d 

        code_04dc
  04dc:78               push1 
  04dd:74 0290          lofss $0770 // look<dans/boite
  04e0:43 25 02         callk Said 2 

  04e3:31 0d              bnt code_04f2 
  04e5:7a               push2 
  04e6:39 3d            pushi 3d // $3d isBlocked
  04e8:39 19            pushi 19 // $19 time
  04ea:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04f0:33 2b              jmp code_051d 

        code_04f2
  04f2:39 03            pushi 3 // $3 y
  04f4:7c            pushSelf 
  04f5:8f 01              lsp param1 
  04f7:39 03            pushi 3 // $3 y
  04f9:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  04ff:2f 09               bt code_050a 
  0501:78               push1 
  0502:74 023c          lofss $0741 // look/boite
  0505:43 25 02         callk Said 2 

  0508:31 13              bnt code_051d 

        code_050a
  050a:39 4c            pushi 4c // $4c claimed
  050c:78               push1 
  050d:78               push1 
  050e:87 01              lap param1 
  0510:4a 06             send 6 

  0512:7a               push2 
  0513:39 3d            pushi 3d // $3d isBlocked
  0515:39 1b            pushi 1b // $1b elements
  0517:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_051d
  051d:48                 ret 
    )

)

// 0958
(instance Car of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $49
        nsLeft $aa
        nsBottom $78
        nsRight $e3
    )
    (method (handleEvent) // method_051e
  051e:78               push1 
  051f:74 0158          lofss $067a // (aller,asseoir,climb,get)<dans/buggy
  0522:43 25 02         callk Said 2 

  0525:2f 09               bt code_0530 
  0527:78               push1 
  0528:74 01c0          lofss $06eb // enter/buggy
  052b:43 25 02         callk Said 2 

  052e:31 0e              bnt code_053e 

        code_0530
  0530:7a               push2 
  0531:39 3d            pushi 3d // $3d isBlocked
  0533:39 1c            pushi 1c // $1c color
  0535:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  053b:32 008e            jmp code_05cc 

        code_053e
  053e:78               push1 
  053f:74 01c7          lofss $0709 // get/buggy
  0542:43 25 02         callk Said 2 

  0545:31 0d              bnt code_0554 
  0547:7a               push2 
  0548:39 3d            pushi 3d // $3d isBlocked
  054a:39 1d            pushi 1d // $1d back
  054c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0552:33 78              jmp code_05cc 

        code_0554
  0554:78               push1 
  0555:74 0248          lofss $07a0 // chercher,(look<dans)/buggy
  0558:43 25 02         callk Said 2 

  055b:31 44              bnt code_05a1 
  055d:38 00db          pushi db // $db onControl
  0560:78               push1 
  0561:76               push0 
  0562:81 00              lag gEgo 
  0564:4a 06             send 6 

  0566:36                push 
  0567:35 04              ldi 4 
  0569:12                 and 
  056a:31 2f              bnt code_059b 
  056c:38 0082          pushi 82 // $82 owner
  056f:76               push0 
  0570:39 43            pushi 43 // $43 at
  0572:78               push1 
  0573:39 07            pushi 7 // $7 cel
  0575:81 09              lag gInventory 
  0577:4a 06             send 6 

  0579:4a 04             send 4 

  057b:36                push 
  057c:35 3d              ldi 3d 
  057e:1a                 eq? 
  057f:31 0d              bnt code_058e 
  0581:39 7a            pushi 7a // $7a setScript
  0583:78               push1 
  0584:74 0283          lofss $080a // getBar
  0587:72 0230          lofsa $07ba // Room61
  058a:4a 06             send 6 

  058c:33 0b              jmp code_0599 

        code_058e
  058e:7a               push2 
  058f:39 3d            pushi 3d // $3d isBlocked
  0591:39 0b            pushi b // $b nsBottom
  0593:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0599
  0599:33 04              jmp code_059f 

        code_059b
  059b:76               push0 
  059c:45 09 00         callb procedure_0009 0 // NotClose 


        code_059f
  059f:33 2b              jmp code_05cc 

        code_05a1
  05a1:39 03            pushi 3 // $3 y
  05a3:7c            pushSelf 
  05a4:8f 01              lsp param1 
  05a6:39 03            pushi 3 // $3 y
  05a8:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  05ae:2f 09               bt code_05b9 
  05b0:78               push1 
  05b1:74 0193          lofss $0747 // look/buggy
  05b4:43 25 02         callk Said 2 

  05b7:31 13              bnt code_05cc 

        code_05b9
  05b9:39 4c            pushi 4c // $4c claimed
  05bb:78               push1 
  05bc:78               push1 
  05bd:87 01              lap param1 
  05bf:4a 06             send 6 

  05c1:7a               push2 
  05c2:39 3d            pushi 3d // $3d isBlocked
  05c4:39 1e            pushi 1e // $1e mode
  05c6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_05cc
  05cc:48                 ret 
    )

)

// 0984
(instance OilCan of Prop
    (properties
        y $64
        x $5a
        z $0
        heading $0
        yStep $2
        view $a1
        loop $0
        cel $4
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_05cd
  05cd:39 03            pushi 3 // $3 y
  05cf:7c            pushSelf 
  05d0:8f 01              lsp param1 
  05d2:39 03            pushi 3 // $3 y
  05d4:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  05da:2f 09               bt code_05e5 
  05dc:78               push1 
  05dd:74 016d          lofss $074d // look/bidon
  05e0:43 25 02         callk Said 2 

  05e3:31 15              bnt code_05fa 

        code_05e5
  05e5:39 4c            pushi 4c // $4c claimed
  05e7:78               push1 
  05e8:78               push1 
  05e9:87 01              lap param1 
  05eb:4a 06             send 6 

  05ed:7a               push2 
  05ee:39 3d            pushi 3d // $3d isBlocked
  05f0:39 1f            pushi 1f // $1f style
  05f2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05f8:33 3d              jmp code_0637 

        code_05fa
  05fa:78               push1 
  05fb:74 0111          lofss $070f // get/bidon
  05fe:43 25 02         callk Said 2 

  0601:31 34              bnt code_0637 
  0603:38 00db          pushi db // $db onControl
  0606:78               push1 
  0607:78               push1 
  0608:81 00              lag gEgo 
  060a:4a 06             send 6 

  060c:36                push 
  060d:35 10              ldi 10 
  060f:12                 and 
  0610:31 21              bnt code_0633 
  0612:76               push0 
  0613:45 16 00         callb procedure_0016 0 // Ok 

  0616:38 00ec          pushi ec // $ec get
  0619:78               push1 
  061a:39 03            pushi 3 // $3 y
  061c:81 00              lag gEgo 
  061e:4a 06             send 6 

  0620:35 00              ldi 0 
  0622:a3 00              sal local0 
  0624:35 01              ldi 1 
  0626:a0 00b6            sag global182 
  0629:39 58            pushi 58 // $58 dispose
  062b:76               push0 
  062c:72 035b          lofsa $098a // OilCan
  062f:4a 04             send 4 

  0631:33 04              jmp code_0637 

        code_0633
  0633:76               push0 
  0634:45 09 00         callb procedure_0009 0 // NotClose 


        code_0637
  0637:48                 ret 
    )

)

// 09d6
(instance Table of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $5c
        nsLeft $41
        nsBottom $67
        nsRight $86
    )
    (method (handleEvent) // method_0638
  0638:39 03            pushi 3 // $3 y
  063a:7c            pushSelf 
  063b:8f 01              lsp param1 
  063d:39 03            pushi 3 // $3 y
  063f:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0645:2f 09               bt code_0650 
  0647:78               push1 
  0648:74 0108          lofss $0753 // look/nightstand
  064b:43 25 02         callk Said 2 

  064e:31 24              bnt code_0674 

        code_0650
  0650:83 00              lal local0 
  0652:31 0d              bnt code_0661 
  0654:7a               push2 
  0655:39 3d            pushi 3d // $3d isBlocked
  0657:39 20            pushi 20 // $20 state
  0659:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  065f:33 0b              jmp code_066c 

        code_0661
  0661:7a               push2 
  0662:39 3d            pushi 3d // $3d isBlocked
  0664:39 21            pushi 21 // $21 font
  0666:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_066c
  066c:39 4c            pushi 4c // $4c claimed
  066e:78               push1 
  066f:78               push1 
  0670:87 01              lap param1 
  0672:4a 06             send 6 


        code_0674
  0674:48                 ret 
  0675:00                bnot 
    )

)



