(script 69)

(string
    string_19c2 "Door"
    string_19c7 "Ears"
    string_19cc "Hay"
    string_19d0 "Head"
    string_19d5 "Horse"
    string_19db "Jeeves"
    string_19e2 "Lamp"
    string_19e7 "Leg"
    string_19eb "Mouth"
    string_19f1 "Room69"
    string_19f8 "Tail"
    string_19fd "bridle"
    string_1a04 "feedHorse"
    string_1a0e "feedNag"
    string_1a16 "hay1"
    string_1a1b "hay2"
    string_1a20 "kicked"
    string_1a27 "myDoor"
    string_1a2e "myEd"
    string_1a33 "myMusic"
    string_1a3b "petHorse"
    string_1a44 "saddle"
    string_1a4b "trough"
    string_1a52 "window1"
    string_1a5a "window2"
    string_1a62 "window3"
)

(said
    said_11a4 (feed,deliver,hold)>
    said_11b0 (get<on),chevaucher,chevaucher,climb
    said_11c1 */butler
    said_11c7 /(bale[<blaze]),blaze
    said_11d5 /*
    said_11d9 /blaze>
    said_11de /carotte
    said_11e2 /ceiling
    said_11e6 /dirt,dirt
    said_11ed /door
    said_11f1 /aliments
    said_11f5 /room
    said_11f9 /mur
    said_11fd /fenetre
    said_1201 <bas
    said_1205 <haut
    said_1209 [<around,at][/room]
    said_1217 ask,raconter[/blaze]/*<about
    said_1228 ask[/blaze]/c<about
    said_1236 attach,attach/bit/blaze
    said_1242 attach/saddle
    said_1248 bit/blaze
    said_124e break/fenetre
    said_1254 climb/mur,room
    said_125d clore/archway,room
    said_1266 detach,actionner,get/bit
    said_1272 detach,actionner,get/saddle
    said_127e boire[/eau]
    said_1286 enter,(aller<dans)/room,archway
    said_1297 feed,deliver/carotte
    said_12a0 feel,get/lantern/cane
    said_12ac get/bale
    said_12b2 get/boire
    said_12b8 get/lantern,allumer
    said_12c1 get/eau
    said_12c7 guide,bouger,appuyer,get,get
    said_12d6 abattre
    said_12d9 embrasser
    said_12dc look/archway,room
    said_12e5 look/bale
    said_12eb look/bit
    said_12f1 look/blaze
    said_12f7 look/butler
    said_12fd look/lantern,lamp,allumer
    said_1309 look/saddle
    said_130f look/auge,eau
    said_1318 look<dans/eau,auge
    said_1324 look>
    said_1328 open,enter,(aller<dans)/room,archway
    said_133c open/fenetre
    said_1342 caliner,caliner
    said_1348 saddle/blaze
    said_134e chercher,(look<dans)/bale
    said_135c bonjour
    said_135f appeler
)

(synonym
    butler | jeeves = fellow | gars | gentleman | guy | homme | man | type
    butler | jeeves = person | personne
    room = barn | ecurie | grange | stable | stall | stalle
)

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

// 1368
(instance public Room69 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $45
        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_001e
  001e:39 57            pushi 57 // $57 init
  0020:76               push0 
  0021:57 37 04         super Rm 4 

  0024:39 61            pushi 61 // $61 add
  0026:39 03            pushi 3 // $3 y
  0028:74 148b          lofss $14b6 // saddle
  002b:74 14be          lofss $14ec // trough
  002e:74 14f1          lofss $1522 // bridle
  0031:39 62            pushi 62 // $62 eachElementDo
  0033:78               push1 
  0034:39 57            pushi 57 // $57 init
  0036:39 3c            pushi 3c // $3c doit
  0038:76               push0 
  0039:81 0a              lag gAddToPics 
  003b:4a 14             send 14 

  003d:38 010b          pushi 10b // $10b setFeatures
  0040:39 08            pushi 8 // $8 underBits
  0042:74 1471          lofss $14b6 // saddle
  0045:74 14a4          lofss $14ec // trough
  0048:74 14d7          lofss $1522 // bridle
  004b:74 1890          lofss $18de // hay1
  004e:74 18b9          lofss $190a // hay2
  0051:74 18e2          lofss $1936 // window1
  0054:74 190b          lofss $1962 // window2
  0057:74 1934          lofss $198e // window3
  005a:54 14             self 14 

  005c:39 04            pushi 4 // $4 x
  005e:38 0084          pushi 84 // $84 stop
  0061:39 28            pushi 28 // $28 message
  0063:39 55            pushi 55 // $55 z
  0065:39 76            pushi 76 // $76 script
  0067:45 15 08         callb procedure_0015 8 // LoadMany 

  006a:39 03            pushi 3 // $3 y
  006c:38 0080          pushi 80 // $80 timeLeft
  006f:38 010d          pushi 10d // $10d drawPic
  0072:39 3f            pushi 3f // $3f priority
  0074:45 15 06         callb procedure_0015 6 // LoadMany 

  0077:38 00ee          pushi ee // $ee has
  007a:78               push1 
  007b:39 11            pushi 11 // $11 signal
  007d:81 00              lag gEgo 
  007f:4a 06             send 6 

  0081:31 09              bnt code_008c 
  0083:7a               push2 
  0084:38 0080          pushi 80 // $80 timeLeft
  0087:39 08            pushi 8 // $8 underBits
  0089:43 00 04         callk Load 4 


        code_008c
  008c:39 2b            pushi 2b // $2b number
  008e:78               push1 
  008f:39 28            pushi 28 // $28 message
  0091:39 06            pushi 6 // $6 loop
  0093:78               push1 
  0094:78               push1 
  0095:72 17f2          lofsa $188a // myMusic
  0098:4a 0c             send c 

  009a:81 79              lag gWilburCorpseRoomNum 
  009c:18                 not 
  009d:31 26              bnt code_00c5 
  009f:88 00a5            lsg gAct 
  00a2:35 02              ldi 2 
  00a4:20                 ge? 
  00a5:31 1e              bnt code_00c5 
  00a7:88 00a5            lsg gAct 
  00aa:35 06              ldi 6 
  00ac:1a                 eq? 
  00ad:2f 0c               bt code_00bb 
  00af:7a               push2 
  00b0:78               push1 
  00b1:7a               push2 
  00b2:43 40 04         callk Random 4 

  00b5:36                push 
  00b6:35 01              ldi 1 
  00b8:1a                 eq? 
  00b9:31 06              bnt code_00c1 

        code_00bb
  00bb:35 45              ldi 45 
  00bd:a1 79              sag gWilburCorpseRoomNum 
  00bf:33 04              jmp code_00c5 

        code_00c1
  00c1:35 3a              ldi 3a 
  00c3:a1 79              sag gWilburCorpseRoomNum 

        code_00c5
  00c5:89 79              lsg gWilburCorpseRoomNum 
  00c7:35 45              ldi 45 
  00c9:1a                 eq? 
  00ca:31 19              bnt code_00e5 
  00cc:89 7b              lsg gCorpseFlags 
  00ce:35 02              ldi 2 
  00d0:12                 and 
  00d1:18                 not 
  00d2:31 11              bnt code_00e5 
  00d4:89 7b              lsg gCorpseFlags 
  00d6:35 40              ldi 40 
  00d8:12                 and 
  00d9:18                 not 
  00da:31 09              bnt code_00e5 
  00dc:38 010a          pushi 10a // $10a setRegions
  00df:78               push1 
  00e0:38 0100          pushi 100 // $100 notify
  00e3:54 06             self 6 


        code_00e5
  00e5:39 57            pushi 57 // $57 init
  00e7:76               push0 
  00e8:38 00c9          pushi c9 // $c9 ignoreActors
  00eb:78               push1 
  00ec:78               push1 
  00ed:38 00c6          pushi c6 // $c6 stopUpd
  00f0:76               push0 
  00f1:72 1464          lofsa $1558 // Door
  00f4:4a 0e             send e 

  00f6:38 0082          pushi 82 // $82 owner
  00f9:76               push0 
  00fa:39 43            pushi 43 // $43 at
  00fc:78               push1 
  00fd:7a               push2 
  00fe:81 09              lag gInventory 
  0100:4a 06             send 6 

  0102:4a 04             send 4 

  0104:36                push 
  0105:35 45              ldi 45 
  0107:1a                 eq? 
  0108:31 0c              bnt code_0116 
  010a:39 57            pushi 57 // $57 init
  010c:76               push0 
  010d:38 00c6          pushi c6 // $c6 stopUpd
  0110:76               push0 
  0111:72 1496          lofsa $15aa // Lamp
  0114:4a 08             send 8 


        code_0116
  0116:88 00a5            lsg gAct 
  0119:35 01              ldi 1 
  011b:1a                 eq? 
  011c:31 26              bnt code_0144 
  011e:88 009b            lsg global155 
  0121:35 06              ldi 6 
  0123:1a                 eq? 
  0124:2f 08               bt code_012e 
  0126:88 009b            lsg global155 
  0129:35 07              ldi 7 
  012b:1a                 eq? 
  012c:31 16              bnt code_0144 

        code_012e
  012e:39 57            pushi 57 // $57 init
  0130:76               push0 
  0131:72 16ee          lofsa $1822 // Jeeves
  0134:4a 04             send 4 

  0136:76               push0 
  0137:45 03 00         callb procedure_0003 0 // HandsOff 

  013a:39 7a            pushi 7a // $7a setScript
  013c:78               push1 
  013d:74 1312          lofss $1452 // feedNag
  0140:54 06             self 6 

  0142:33 04              jmp code_0148 

        code_0144
  0144:76               push0 
  0145:45 04 00         callb procedure_0004 0 // HandsOn 


        code_0148
  0148:39 42            pushi 42 // $42 setPri
  014a:78               push1 
  014b:39 09            pushi 9 // $9 nsTop
  014d:39 57            pushi 57 // $57 init
  014f:76               push0 
  0150:38 00c6          pushi c6 // $c6 stopUpd
  0153:76               push0 
  0154:72 1679          lofsa $17d0 // Horse
  0157:4a 0e             send e 

  0159:39 42            pushi 42 // $42 setPri
  015b:78               push1 
  015c:39 09            pushi 9 // $9 nsTop
  015e:39 57            pushi 57 // $57 init
  0160:76               push0 
  0161:72 1582          lofsa $16e6 // Ears
  0164:4a 0a             send a 

  0166:39 42            pushi 42 // $42 setPri
  0168:78               push1 
  0169:39 09            pushi 9 // $9 nsTop
  016b:39 57            pushi 57 // $57 init
  016d:76               push0 
  016e:38 00c6          pushi c6 // $c6 stopUpd
  0171:76               push0 
  0172:72 14d5          lofsa $164a // Leg
  0175:4a 0e             send e 

  0177:39 42            pushi 42 // $42 setPri
  0179:78               push1 
  017a:39 09            pushi 9 // $9 nsTop
  017c:39 57            pushi 57 // $57 init
  017e:76               push0 
  017f:38 00c6          pushi c6 // $c6 stopUpd
  0182:76               push0 
  0183:72 1512          lofsa $1698 // Tail
  0186:4a 0e             send e 

  0188:39 42            pushi 42 // $42 setPri
  018a:78               push1 
  018b:39 09            pushi 9 // $9 nsTop
  018d:39 57            pushi 57 // $57 init
  018f:76               push0 
  0190:38 00c6          pushi c6 // $c6 stopUpd
  0193:76               push0 
  0194:72 15eb          lofsa $1782 // Head
  0197:4a 0e             send e 

  0199:39 05            pushi 5 // $5 view
  019b:78               push1 
  019c:76               push0 
  019d:38 00c5          pushi c5 // $c5 posn
  01a0:7a               push2 
  01a1:38 00d3          pushi d3 // $d3 setMotion
  01a4:38 00aa          pushi aa // $aa triedToMove
  01a7:39 12            pushi 12 // $12 illegalBits
  01a9:78               push1 
  01aa:38 8010          pushi 8010 // $8010 sel_32784
  01ad:39 57            pushi 57 // $57 init
  01af:76               push0 
  01b0:81 00              lag gEgo 
  01b2:4a 18             send 18 

  01b4:88 00a5            lsg gAct 
  01b7:35 01              ldi 1 
  01b9:1a                 eq? 
  01ba:31 26              bnt code_01e2 
  01bc:7a               push2 
  01bd:38 0080          pushi 80 // $80 timeLeft
  01c0:38 01b8          pushi 1b8 // $1b8 sel_440
  01c3:43 00 04         callk Load 4 

  01c6:7a               push2 
  01c7:38 0080          pushi 80 // $80 timeLeft
  01ca:38 01bd          pushi 1bd // $1bd sel_445
  01cd:43 00 04         callk Load 4 

  01d0:7a               push2 
  01d1:38 0080          pushi 80 // $80 timeLeft
  01d4:38 01c4          pushi 1c4 // $1c4 sel_452
  01d7:43 00 04         callk Load 4 

  01da:39 57            pushi 57 // $57 init
  01dc:76               push0 
  01dd:72 141c          lofsa $15fc // Hay
  01e0:4a 04             send 4 


        code_01e2
  01e2:48                 ret 
    )

    (method (newRoom) // method_01e3
  01e3:39 65            pushi 65 // $65 contains
  01e5:78               push1 
  01e6:74 1639          lofss $1822 // Jeeves
  01e9:81 05              lag gCast 
  01eb:4a 06             send 6 

  01ed:31 0b              bnt code_01fa 
  01ef:34 041a            ldi 41a 
  01f2:a0 0172            sag global370 
  01f5:35 07              ldi 7 
  01f7:a0 009b            sag global155 

        code_01fa
  01fa:38 00f8          pushi f8 // $f8 newRoom
  01fd:78               push1 
  01fe:8f 01              lsp param1 
  0200:57 37 06         super Rm 6 

  0203:48                 ret 
    )

    (method (doit) // method_0204
  0204:3f 01             link 1 // (var $1)
  0206:76               push0 
  0207:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  020a:31 0a              bnt code_0216 
  020c:7a               push2 
  020d:39 45            pushi 45 // $45 done
  020f:76               push0 
  0210:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0216
  0216:83 00              lal local0 
  0218:31 1f              bnt code_0239 
  021a:38 00db          pushi db // $db onControl
  021d:78               push1 
  021e:78               push1 
  021f:81 00              lag gEgo 
  0221:4a 06             send 6 

  0223:36                push 
  0224:35 01              ldi 1 
  0226:12                 and 
  0227:31 10              bnt code_0239 
  0229:63 08             pToa script 
  022b:18                 not 
  022c:31 0b              bnt code_0239 
  022e:39 7a            pushi 7a // $7a setScript
  0230:78               push1 
  0231:74 11ba          lofss $13ee // myDoor
  0234:72 1137          lofsa $136e // Room69
  0237:4a 06             send 6 


        code_0239
  0239:88 0172            lsg global370 
  023c:34 044c            ldi 44c 
  023f:1a                 eq? 
  0240:31 25              bnt code_0267 
  0242:88 00a5            lsg gAct 
  0245:35 01              ldi 1 
  0247:1a                 eq? 
  0248:31 1d              bnt code_0267 
  024a:63 08             pToa script 
  024c:18                 not 
  024d:31 12              bnt code_0261 
  024f:35 01              ldi 1 
  0251:a3 04              sal local4 
  0253:76               push0 
  0254:45 03 00         callb procedure_0003 0 // HandsOff 

  0257:39 7a            pushi 7a // $7a setScript
  0259:78               push1 
  025a:74 11f5          lofss $1452 // feedNag
  025d:54 06             self 6 

  025f:33 06              jmp code_0267 

        code_0261
  0261:34 0456            ldi 456 
  0264:a0 0172            sag global370 

        code_0267
  0267:83 01              lal local1 
  0269:18                 not 
  026a:30 00f1            bnt code_035e 
  026d:7a               push2 
  026e:78               push1 
  026f:39 19            pushi 19 // $19 time
  0271:43 40 04         callk Random 4 

  0274:a5 00              sat temp0 
  0276:36                push 
  0277:35 01              ldi 1 
  0279:1a                 eq? 
  027a:31 40              bnt code_02bc 
  027c:39 07            pushi 7 // $7 cel
  027e:76               push0 
  027f:72 1464          lofsa $16e6 // Ears
  0282:4a 04             send 4 

  0284:36                push 
  0285:35 00              ldi 0 
  0287:1a                 eq? 
  0288:31 0d              bnt code_0297 
  028a:39 7e            pushi 7e // $7e setCycle
  028c:78               push1 
  028d:51 1a            class End 
  028f:36                push 
  0290:72 1453          lofsa $16e6 // Ears
  0293:4a 06             send 6 

  0295:33 22              jmp code_02b9 

        code_0297
  0297:39 07            pushi 7 // $7 cel
  0299:76               push0 
  029a:72 1449          lofsa $16e6 // Ears
  029d:4a 04             send 4 

  029f:36                push 
  02a0:78               push1 
  02a1:74 1442          lofss $16e6 // Ears
  02a4:43 0e 02         callk NumCels 2 

  02a7:36                push 
  02a8:35 01              ldi 1 
  02aa:04                 sub 
  02ab:1a                 eq? 
  02ac:31 0b              bnt code_02b9 
  02ae:39 7e            pushi 7e // $7e setCycle
  02b0:78               push1 
  02b1:51 1b            class Beg 
  02b3:36                push 
  02b4:72 142f          lofsa $16e6 // Ears
  02b7:4a 06             send 6 


        code_02b9
  02b9:32 00a2            jmp code_035e 

        code_02bc
  02bc:80 00df            lag gDetailLevel 
  02bf:31 4d              bnt code_030e 
  02c1:8d 00              lst temp0 
  02c3:35 02              ldi 2 
  02c5:1e                 gt? 
  02c6:31 46              bnt code_030e 
  02c8:8d 00              lst temp0 
  02ca:35 06              ldi 6 
  02cc:22                 lt? 
  02cd:31 3f              bnt code_030e 
  02cf:39 07            pushi 7 // $7 cel
  02d1:76               push0 
  02d2:72 13c3          lofsa $1698 // Tail
  02d5:4a 04             send 4 

  02d7:36                push 
  02d8:35 00              ldi 0 
  02da:1a                 eq? 
  02db:31 0d              bnt code_02ea 
  02dd:39 7e            pushi 7e // $7e setCycle
  02df:78               push1 
  02e0:51 1a            class End 
  02e2:36                push 
  02e3:72 13b2          lofsa $1698 // Tail
  02e6:4a 06             send 6 

  02e8:33 22              jmp code_030c 

        code_02ea
  02ea:39 07            pushi 7 // $7 cel
  02ec:76               push0 
  02ed:72 13a8          lofsa $1698 // Tail
  02f0:4a 04             send 4 

  02f2:36                push 
  02f3:78               push1 
  02f4:74 13a1          lofss $1698 // Tail
  02f7:43 0e 02         callk NumCels 2 

  02fa:36                push 
  02fb:35 01              ldi 1 
  02fd:04                 sub 
  02fe:1a                 eq? 
  02ff:31 0b              bnt code_030c 
  0301:39 7e            pushi 7e // $7e setCycle
  0303:78               push1 
  0304:51 1b            class Beg 
  0306:36                push 
  0307:72 138e          lofsa $1698 // Tail
  030a:4a 06             send 6 


        code_030c
  030c:33 50              jmp code_035e 

        code_030e
  030e:80 00df            lag gDetailLevel 
  0311:31 4b              bnt code_035e 
  0313:8d 00              lst temp0 
  0315:35 05              ldi 5 
  0317:1e                 gt? 
  0318:31 44              bnt code_035e 
  031a:8d 00              lst temp0 
  031c:35 08              ldi 8 
  031e:22                 lt? 
  031f:31 3d              bnt code_035e 
  0321:39 07            pushi 7 // $7 cel
  0323:76               push0 
  0324:72 1323          lofsa $164a // Leg
  0327:4a 04             send 4 

  0329:36                push 
  032a:35 00              ldi 0 
  032c:1a                 eq? 
  032d:31 0d              bnt code_033c 
  032f:39 7e            pushi 7e // $7e setCycle
  0331:78               push1 
  0332:51 1a            class End 
  0334:36                push 
  0335:72 1312          lofsa $164a // Leg
  0338:4a 06             send 6 

  033a:33 22              jmp code_035e 

        code_033c
  033c:39 07            pushi 7 // $7 cel
  033e:76               push0 
  033f:72 1308          lofsa $164a // Leg
  0342:4a 04             send 4 

  0344:36                push 
  0345:78               push1 
  0346:74 1301          lofss $164a // Leg
  0349:43 0e 02         callk NumCels 2 

  034c:36                push 
  034d:35 01              ldi 1 
  034f:04                 sub 
  0350:1a                 eq? 
  0351:31 0b              bnt code_035e 
  0353:39 7e            pushi 7e // $7e setCycle
  0355:78               push1 
  0356:51 1b            class Beg 
  0358:36                push 
  0359:72 12ee          lofsa $164a // Leg
  035c:4a 06             send 6 


        code_035e
  035e:83 01              lal local1 
  0360:18                 not 
  0361:31 20              bnt code_0383 
  0363:83 03              lal local3 
  0365:18                 not 
  0366:31 1b              bnt code_0383 
  0368:7a               push2 
  0369:39 1e            pushi 1e // $1e mode
  036b:39 50            pushi 50 // $50 title
  036d:43 40 04         callk Random 4 

  0370:a3 03              sal local3 
  0372:39 2b            pushi 2b // $2b number
  0374:78               push1 
  0375:39 28            pushi 28 // $28 message
  0377:39 06            pushi 6 // $6 loop
  0379:78               push1 
  037a:78               push1 
  037b:39 2a            pushi 2a // $2a play
  037d:76               push0 
  037e:72 1509          lofsa $188a // myMusic
  0381:4a 10             send 10 


        code_0383
  0383:e3 03              -al local3 
  0385:38 00db          pushi db // $db onControl
  0388:78               push1 
  0389:76               push0 
  038a:81 00              lag gEgo 
  038c:4a 06             send 6 

  038e:36                push 
  038f:35 02              ldi 2 
  0391:12                 and 
  0392:31 0e              bnt code_03a2 
  0394:76               push0 
  0395:45 03 00         callb procedure_0003 0 // HandsOff 

  0398:38 00f8          pushi f8 // $f8 newRoom
  039b:78               push1 
  039c:39 0d            pushi d // $d lsTop
  039e:81 02              lag gCurRoom 
  03a0:4a 06             send 6 


        code_03a2
  03a2:38 00ae          pushi ae // $ae distanceTo
  03a5:78               push1 
  03a6:74 1427          lofss $17d0 // Horse
  03a9:81 00              lag gEgo 
  03ab:4a 06             send 6 

  03ad:36                push 
  03ae:35 41              ldi 41 
  03b0:22                 lt? 
  03b1:31 3d              bnt code_03f0 
  03b3:39 03            pushi 3 // $3 y
  03b5:76               push0 
  03b6:81 00              lag gEgo 
  03b8:4a 04             send 4 

  03ba:36                push 
  03bb:34 008c            ldi 8c 
  03be:1e                 gt? 
  03bf:31 2f              bnt code_03f0 
  03c1:38 0082          pushi 82 // $82 owner
  03c4:76               push0 
  03c5:39 43            pushi 43 // $43 at
  03c7:78               push1 
  03c8:39 11            pushi 11 // $11 signal
  03ca:81 09              lag gInventory 
  03cc:4a 06             send 6 

  03ce:4a 04             send 4 

  03d0:36                push 
  03d1:35 45              ldi 45 
  03d3:1c                 ne? 
  03d4:31 1a              bnt code_03f0 
  03d6:8b 00              lsl local0 
  03d8:35 01              ldi 1 
  03da:1a                 eq? 
  03db:31 13              bnt code_03f0 
  03dd:8b 01              lsl local1 
  03df:35 00              ldi 0 
  03e1:1a                 eq? 
  03e2:31 0c              bnt code_03f0 
  03e4:35 01              ldi 1 
  03e6:a3 01              sal local1 
  03e8:39 7a            pushi 7a // $7a setScript
  03ea:78               push1 
  03eb:74 1030          lofss $141e // kicked
  03ee:54 06             self 6 


        code_03f0
  03f0:39 3c            pushi 3c // $3c doit
  03f2:76               push0 
  03f3:57 37 04         super Rm 4 

  03f6:48                 ret 
    )

    (method (dispose) // method_03f7
  03f7:78               push1 
  03f8:38 03d9          pushi 3d9 // $3d9 sel_985
  03fb:43 03 02         callk DisposeScript 2 

  03fe:39 58            pushi 58 // $58 dispose
  0400:76               push0 
  0401:57 37 04         super Rm 4 

  0404:48                 ret 
    )

    (method (handleEvent) // method_0405
  0405:39 4c            pushi 4c // $4c claimed
  0407:76               push0 
  0408:87 01              lap param1 
  040a:4a 04             send 4 

  040c:31 03              bnt code_0411 
  040e:35 01              ldi 1 
  0410:48                 ret 

        code_0411
  0411:39 22            pushi 22 // $22 type
  0413:76               push0 
  0414:87 01              lap param1 
  0416:4a 04             send 4 

  0418:36                push 
  0419:34 0080            ldi 80 
  041c:1a                 eq? 
  041d:30 0149            bnt code_0569 
  0420:78               push1 
  0421:74 0f00          lofss $1324 // look>
  0424:43 25 02         callk Said 2 

  0427:30 00d7            bnt code_0501 
  042a:78               push1 
  042b:74 0ddb          lofss $1209 // [<around,at][/room]
  042e:43 25 02         callk Said 2 

  0431:31 0d              bnt code_0440 
  0433:7a               push2 
  0434:39 45            pushi 45 // $45 done
  0436:76               push0 
  0437:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  043d:32 00bf            jmp code_04ff 

        code_0440
  0440:78               push1 
  0441:74 0da9          lofss $11ed // /door
  0444:43 25 02         callk Said 2 

  0447:31 0d              bnt code_0456 
  0449:7a               push2 
  044a:39 45            pushi 45 // $45 done
  044c:78               push1 
  044d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0453:32 00a9            jmp code_04ff 

        code_0456
  0456:78               push1 
  0457:74 0d9b          lofss $11f5 // /room
  045a:43 25 02         callk Said 2 

  045d:31 2d              bnt code_048c 
  045f:38 0082          pushi 82 // $82 owner
  0462:76               push0 
  0463:39 43            pushi 43 // $43 at
  0465:78               push1 
  0466:7a               push2 
  0467:81 09              lag gInventory 
  0469:4a 06             send 6 

  046b:4a 04             send 4 

  046d:36                push 
  046e:35 45              ldi 45 
  0470:1a                 eq? 
  0471:31 0c              bnt code_047f 
  0473:7a               push2 
  0474:39 45            pushi 45 // $45 done
  0476:7a               push2 
  0477:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  047d:33 0b              jmp code_048a 

        code_047f
  047f:7a               push2 
  0480:39 45            pushi 45 // $45 done
  0482:39 03            pushi 3 // $3 y
  0484:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_048a
  048a:33 73              jmp code_04ff 

        code_048c
  048c:78               push1 
  048d:74 0d56          lofss $11e6 // /dirt,dirt
  0490:43 25 02         callk Said 2 

  0493:2f 09               bt code_049e 
  0495:78               push1 
  0496:74 0d68          lofss $1201 // <bas
  0499:43 25 02         callk Said 2 

  049c:31 0d              bnt code_04ab 

        code_049e
  049e:7a               push2 
  049f:39 45            pushi 45 // $45 done
  04a1:39 04            pushi 4 // $4 x
  04a3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04a9:33 54              jmp code_04ff 

        code_04ab
  04ab:78               push1 
  04ac:74 0d4a          lofss $11f9 // /mur
  04af:43 25 02         callk Said 2 

  04b2:31 2e              bnt code_04e2 
  04b4:38 0082          pushi 82 // $82 owner
  04b7:76               push0 
  04b8:39 43            pushi 43 // $43 at
  04ba:78               push1 
  04bb:7a               push2 
  04bc:81 09              lag gInventory 
  04be:4a 06             send 6 

  04c0:4a 04             send 4 

  04c2:36                push 
  04c3:35 45              ldi 45 
  04c5:1a                 eq? 
  04c6:31 0d              bnt code_04d5 
  04c8:7a               push2 
  04c9:39 45            pushi 45 // $45 done
  04cb:39 05            pushi 5 // $5 view
  04cd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04d3:33 0b              jmp code_04e0 

        code_04d5
  04d5:7a               push2 
  04d6:39 45            pushi 45 // $45 done
  04d8:39 06            pushi 6 // $6 loop
  04da:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_04e0
  04e0:33 1d              jmp code_04ff 

        code_04e2
  04e2:78               push1 
  04e3:74 0cfc          lofss $11e2 // /ceiling
  04e6:43 25 02         callk Said 2 

  04e9:2f 09               bt code_04f4 
  04eb:78               push1 
  04ec:74 0d16          lofss $1205 // <haut
  04ef:43 25 02         callk Said 2 

  04f2:31 0b              bnt code_04ff 

        code_04f4
  04f4:7a               push2 
  04f5:39 45            pushi 45 // $45 done
  04f7:39 07            pushi 7 // $7 cel
  04f9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_04ff
  04ff:33 68              jmp code_0569 

        code_0501
  0501:78               push1 
  0502:74 0d9b          lofss $12a0 // feel,get/lantern/cane
  0505:43 25 02         callk Said 2 

  0508:31 1f              bnt code_0529 
  050a:38 00ee          pushi ee // $ee has
  050d:78               push1 
  050e:39 15            pushi 15 // $15 brBottom
  0510:81 00              lag gEgo 
  0512:4a 06             send 6 

  0514:31 0d              bnt code_0523 
  0516:7a               push2 
  0517:39 45            pushi 45 // $45 done
  0519:39 08            pushi 8 // $8 underBits
  051b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0521:33 04              jmp code_0527 

        code_0523
  0523:76               push0 
  0524:45 0d 00         callb procedure_000d 0 // DontHave 


        code_0527
  0527:33 40              jmp code_0569 

        code_0529
  0529:78               push1 
  052a:74 0d27          lofss $1254 // climb/mur,room
  052d:43 25 02         callk Said 2 

  0530:31 0d              bnt code_053f 
  0532:7a               push2 
  0533:39 45            pushi 45 // $45 done
  0535:39 09            pushi 9 // $9 nsTop
  0537:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  053d:33 2a              jmp code_0569 

        code_053f
  053f:78               push1 
  0540:74 0df9          lofss $133c // open/fenetre
  0543:43 25 02         callk Said 2 

  0546:31 0d              bnt code_0555 
  0548:7a               push2 
  0549:39 45            pushi 45 // $45 done
  054b:39 0a            pushi a // $a nsLeft
  054d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0553:33 14              jmp code_0569 

        code_0555
  0555:78               push1 
  0556:74 0cf5          lofss $124e // break/fenetre
  0559:43 25 02         callk Said 2 

  055c:31 0b              bnt code_0569 
  055e:7a               push2 
  055f:39 45            pushi 45 // $45 done
  0561:39 0b            pushi b // $b nsBottom
  0563:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0569
  0569:48                 ret 
    )

)

// 13b8
(instance feedHorse 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_056a
  056a:87 01              lap param1 
  056c:65 0a             aTop state 
  056e:36                push 
  056f:3c                 dup 
  0570:35 00              ldi 0 
  0572:1a                 eq? 
  0573:31 26              bnt code_059b 
  0575:76               push0 
  0576:45 03 00         callb procedure_0003 0 // HandsOff 

  0579:38 00d4          pushi d4 // $d4 setAvoider
  057c:78               push1 
  057d:39 56            pushi 56 // $56 new
  057f:76               push0 
  0580:51 21            class Avoid 
  0582:4a 04             send 4 

  0584:36                push 
  0585:38 00d3          pushi d3 // $d3 setMotion
  0588:39 04            pushi 4 // $4 x
  058a:51 1d            class MoveTo 
  058c:36                push 
  058d:38 0096          pushi 96 // $96 busy
  0590:38 008a          pushi 8a // $8a enable
  0593:7c            pushSelf 
  0594:81 00              lag gEgo 
  0596:4a 12             send 12 

  0598:32 00cd            jmp code_0668 

        code_059b
  059b:3c                 dup 
  059c:35 01              ldi 1 
  059e:1a                 eq? 
  059f:31 29              bnt code_05ca 
  05a1:7a               push2 
  05a2:89 00              lsg gEgo 
  05a4:74 1229          lofss $17d0 // Horse
  05a7:45 02 04         callb procedure_0002 4 // LookAt 

  05aa:39 05            pushi 5 // $5 view
  05ac:78               push1 
  05ad:39 08            pushi 8 // $8 underBits
  05af:39 07            pushi 7 // $7 cel
  05b1:78               push1 
  05b2:76               push0 
  05b3:39 06            pushi 6 // $6 loop
  05b5:78               push1 
  05b6:76               push0 
  05b7:38 00d4          pushi d4 // $d4 setAvoider
  05ba:78               push1 
  05bb:76               push0 
  05bc:39 7e            pushi 7e // $7e setCycle
  05be:7a               push2 
  05bf:51 1a            class End 
  05c1:36                push 
  05c2:7c            pushSelf 
  05c3:81 00              lag gEgo 
  05c5:4a 20             send 20 

  05c7:32 009e            jmp code_0668 

        code_05ca
  05ca:3c                 dup 
  05cb:35 02              ldi 2 
  05cd:1a                 eq? 
  05ce:31 20              bnt code_05f0 
  05d0:7a               push2 
  05d1:39 45            pushi 45 // $45 done
  05d3:39 0c            pushi c // $c nsRight
  05d5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05db:39 07            pushi 7 // $7 cel
  05dd:78               push1 
  05de:76               push0 
  05df:39 06            pushi 6 // $6 loop
  05e1:78               push1 
  05e2:78               push1 
  05e3:39 7e            pushi 7e // $7e setCycle
  05e5:7a               push2 
  05e6:51 1a            class End 
  05e8:36                push 
  05e9:7c            pushSelf 
  05ea:81 00              lag gEgo 
  05ec:4a 14             send 14 

  05ee:33 78              jmp code_0668 

        code_05f0
  05f0:3c                 dup 
  05f1:35 03              ldi 3 
  05f3:1a                 eq? 
  05f4:31 2e              bnt code_0624 
  05f6:39 07            pushi 7 // $7 cel
  05f8:78               push1 
  05f9:76               push0 
  05fa:39 06            pushi 6 // $6 loop
  05fc:78               push1 
  05fd:7a               push2 
  05fe:39 7e            pushi 7e // $7e setCycle
  0600:7a               push2 
  0601:51 1a            class End 
  0603:36                push 
  0604:7c            pushSelf 
  0605:81 00              lag gEgo 
  0607:4a 14             send 14 

  0609:39 42            pushi 42 // $42 setPri
  060b:78               push1 
  060c:39 09            pushi 9 // $9 nsTop
  060e:38 00a4          pushi a4 // $a4 cycleSpeed
  0611:78               push1 
  0612:39 03            pushi 3 // $3 y
  0614:39 7e            pushi 7e // $7e setCycle
  0616:78               push1 
  0617:51 16            class Fwd 
  0619:36                push 
  061a:39 57            pushi 57 // $57 init
  061c:76               push0 
  061d:72 1114          lofsa $1734 // Mouth
  0620:4a 16             send 16 

  0622:33 44              jmp code_0668 

        code_0624
  0624:3c                 dup 
  0625:35 04              ldi 4 
  0627:1a                 eq? 
  0628:31 28              bnt code_0652 
  062a:38 00ed          pushi ed // $ed put
  062d:7a               push2 
  062e:39 11            pushi 11 // $11 signal
  0630:39 45            pushi 45 // $45 done
  0632:81 00              lag gEgo 
  0634:4a 08             send 8 

  0636:39 05            pushi 5 // $5 view
  0638:78               push1 
  0639:76               push0 
  063a:39 06            pushi 6 // $6 loop
  063c:78               push1 
  063d:78               push1 
  063e:39 7e            pushi 7e // $7e setCycle
  0640:78               push1 
  0641:51 17            class Walk 
  0643:36                push 
  0644:81 00              lag gEgo 
  0646:4a 12             send 12 

  0648:76               push0 
  0649:45 04 00         callb procedure_0004 0 // HandsOn 

  064c:35 05              ldi 5 
  064e:65 12             aTop seconds 
  0650:33 16              jmp code_0668 

        code_0652
  0652:3c                 dup 
  0653:35 05              ldi 5 
  0655:1a                 eq? 
  0656:31 10              bnt code_0668 
  0658:39 58            pushi 58 // $58 dispose
  065a:76               push0 
  065b:72 10d6          lofsa $1734 // Mouth
  065e:4a 04             send 4 

  0660:39 7a            pushi 7a // $7a setScript
  0662:78               push1 
  0663:76               push0 
  0664:63 08             pToa client 
  0666:4a 06             send 6 


        code_0668
  0668:3a                toss 
  0669:48                 ret 
    )

)

// 13e8
(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_066a
  066a:87 01              lap param1 
  066c:65 0a             aTop state 
  066e:36                push 
  066f:3c                 dup 
  0670:35 00              ldi 0 
  0672:1a                 eq? 
  0673:31 2b              bnt code_06a0 
  0675:76               push0 
  0676:45 03 00         callb procedure_0003 0 // HandsOff 

  0679:38 00c9          pushi c9 // $c9 ignoreActors
  067c:78               push1 
  067d:76               push0 
  067e:38 00d4          pushi d4 // $d4 setAvoider
  0681:78               push1 
  0682:39 56            pushi 56 // $56 new
  0684:76               push0 
  0685:51 21            class Avoid 
  0687:4a 04             send 4 

  0689:36                push 
  068a:38 00d3          pushi d3 // $d3 setMotion
  068d:39 04            pushi 4 // $4 x
  068f:51 1d            class MoveTo 
  0691:36                push 
  0692:38 008c          pushi 8c // $8c track
  0695:38 008e          pushi 8e // $8e move
  0698:7c            pushSelf 
  0699:81 00              lag gEgo 
  069b:4a 18             send 18 

  069d:32 00b6            jmp code_0756 

        code_06a0
  06a0:3c                 dup 
  06a1:35 01              ldi 1 
  06a3:1a                 eq? 
  06a4:31 6a              bnt code_0710 
  06a6:7a               push2 
  06a7:89 00              lsg gEgo 
  06a9:74 1124          lofss $17d0 // Horse
  06ac:45 02 04         callb procedure_0002 4 // LookAt 

  06af:8b 00              lsl local0 
  06b1:35 00              ldi 0 
  06b3:1a                 eq? 
  06b4:31 2d              bnt code_06e3 
  06b6:35 01              ldi 1 
  06b8:a3 00              sal local0 
  06ba:39 42            pushi 42 // $42 setPri
  06bc:78               push1 
  06bd:39 0d            pushi d // $d lsTop
  06bf:38 00a4          pushi a4 // $a4 cycleSpeed
  06c2:78               push1 
  06c3:39 03            pushi 3 // $3 y
  06c5:39 7e            pushi 7e // $7e setCycle
  06c7:7a               push2 
  06c8:51 1a            class End 
  06ca:36                push 
  06cb:7c            pushSelf 
  06cc:72 0e89          lofsa $1558 // Door
  06cf:4a 14             send 14 

  06d1:38 00d7          pushi d7 // $d7 ignoreControl
  06d4:78               push1 
  06d5:39 10            pushi 10 // $10 lsRight
  06d7:38 00d6          pushi d6 // $d6 observeControl
  06da:78               push1 
  06db:39 20            pushi 20 // $20 state
  06dd:81 00              lag gEgo 
  06df:4a 0c             send c 

  06e1:33 2b              jmp code_070e 

        code_06e3
  06e3:35 00              ldi 0 
  06e5:a3 00              sal local0 
  06e7:39 42            pushi 42 // $42 setPri
  06e9:78               push1 
  06ea:39 0a            pushi a // $a nsLeft
  06ec:38 00a4          pushi a4 // $a4 cycleSpeed
  06ef:78               push1 
  06f0:39 03            pushi 3 // $3 y
  06f2:39 7e            pushi 7e // $7e setCycle
  06f4:7a               push2 
  06f5:51 1b            class Beg 
  06f7:36                push 
  06f8:7c            pushSelf 
  06f9:72 0e5c          lofsa $1558 // Door
  06fc:4a 14             send 14 

  06fe:38 00d7          pushi d7 // $d7 ignoreControl
  0701:78               push1 
  0702:39 20            pushi 20 // $20 state
  0704:38 00d6          pushi d6 // $d6 observeControl
  0707:78               push1 
  0708:39 10            pushi 10 // $10 lsRight
  070a:81 00              lag gEgo 
  070c:4a 0c             send c 


        code_070e
  070e:33 46              jmp code_0756 

        code_0710
  0710:3c                 dup 
  0711:35 02              ldi 2 
  0713:1a                 eq? 
  0714:31 40              bnt code_0756 
  0716:38 00d4          pushi d4 // $d4 setAvoider
  0719:78               push1 
  071a:76               push0 
  071b:81 00              lag gEgo 
  071d:4a 06             send 6 

  071f:38 00c6          pushi c6 // $c6 stopUpd
  0722:76               push0 
  0723:72 0e32          lofsa $1558 // Door
  0726:4a 04             send 4 

  0728:38 0082          pushi 82 // $82 owner
  072b:76               push0 
  072c:39 43            pushi 43 // $43 at
  072e:78               push1 
  072f:39 11            pushi 11 // $11 signal
  0731:81 09              lag gInventory 
  0733:4a 06             send 6 

  0735:4a 04             send 4 

  0737:36                push 
  0738:35 45              ldi 45 
  073a:1c                 ne? 
  073b:31 0d              bnt code_074a 
  073d:39 7a            pushi 7a // $7a setScript
  073f:78               push1 
  0740:74 0cdb          lofss $141e // kicked
  0743:72 0c28          lofsa $136e // Room69
  0746:4a 06             send 6 

  0748:33 0c              jmp code_0756 

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

  074e:39 7a            pushi 7a // $7a setScript
  0750:78               push1 
  0751:76               push0 
  0752:63 08             pToa client 
  0754:4a 06             send 6 


        code_0756
  0756:3a                toss 
  0757:48                 ret 
    )

)

// 1418
(instance kicked of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (doit) // method_0758
  0758:39 3c            pushi 3c // $3c doit
  075a:76               push0 
  075b:57 05 04         super Script 4 

  075e:67 0a             pTos state 
  0760:35 01              ldi 1 
  0762:1a                 eq? 
  0763:31 3b              bnt code_07a0 
  0765:8b 02              lsl local2 
  0767:35 00              ldi 0 
  0769:1a                 eq? 
  076a:31 34              bnt code_07a0 
  076c:39 07            pushi 7 // $7 cel
  076e:76               push0 
  076f:72 105e          lofsa $17d0 // Horse
  0772:4a 04             send 4 

  0774:36                push 
  0775:35 04              ldi 4 
  0777:1a                 eq? 
  0778:31 26              bnt code_07a0 
  077a:35 01              ldi 1 
  077c:a3 02              sal local2 
  077e:39 05            pushi 5 // $5 view
  0780:78               push1 
  0781:38 010d          pushi 10d // $10d drawPic
  0784:38 00c8          pushi c8 // $c8 setLoop
  0787:78               push1 
  0788:78               push1 
  0789:39 07            pushi 7 // $7 cel
  078b:78               push1 
  078c:76               push0 
  078d:39 12            pushi 12 // $12 illegalBits
  078f:78               push1 
  0790:76               push0 
  0791:38 00a4          pushi a4 // $a4 cycleSpeed
  0794:78               push1 
  0795:78               push1 
  0796:39 7e            pushi 7e // $7e setCycle
  0798:78               push1 
  0799:51 1a            class End 
  079b:36                push 
  079c:81 00              lag gEgo 
  079e:4a 24             send 24 


        code_07a0
  07a0:48                 ret 
    )

    (method (changeState) // method_07a1
  07a1:87 01              lap param1 
  07a3:65 0a             aTop state 
  07a5:36                push 
  07a6:3c                 dup 
  07a7:35 00              ldi 0 
  07a9:1a                 eq? 
  07aa:31 16              bnt code_07c2 
  07ac:38 00d3          pushi d3 // $d3 setMotion
  07af:39 04            pushi 4 // $4 x
  07b1:51 1d            class MoveTo 
  07b3:36                push 
  07b4:38 0082          pushi 82 // $82 owner
  07b7:38 008e          pushi 8e // $8e move
  07ba:7c            pushSelf 
  07bb:81 00              lag gEgo 
  07bd:4a 0c             send c 

  07bf:32 00ad            jmp code_086f 

        code_07c2
  07c2:3c                 dup 
  07c3:35 01              ldi 1 
  07c5:1a                 eq? 
  07c6:31 63              bnt code_082b 
  07c8:76               push0 
  07c9:45 03 00         callb procedure_0003 0 // HandsOff 

  07cc:38 0089          pushi 89 // $89 hide
  07cf:76               push0 
  07d0:72 0ec5          lofsa $1698 // Tail
  07d3:4a 04             send 4 

  07d5:38 0089          pushi 89 // $89 hide
  07d8:76               push0 
  07d9:72 0e6e          lofsa $164a // Leg
  07dc:4a 04             send 4 

  07de:38 0089          pushi 89 // $89 hide
  07e1:76               push0 
  07e2:72 0f9d          lofsa $1782 // Head
  07e5:4a 04             send 4 

  07e7:38 0089          pushi 89 // $89 hide
  07ea:76               push0 
  07eb:72 0ef8          lofsa $16e6 // Ears
  07ee:4a 04             send 4 

  07f0:39 05            pushi 5 // $5 view
  07f2:78               push1 
  07f3:38 010d          pushi 10d // $10d drawPic
  07f6:39 06            pushi 6 // $6 loop
  07f8:78               push1 
  07f9:76               push0 
  07fa:39 07            pushi 7 // $7 cel
  07fc:78               push1 
  07fd:76               push0 
  07fe:38 00a4          pushi a4 // $a4 cycleSpeed
  0801:78               push1 
  0802:78               push1 
  0803:39 42            pushi 42 // $42 setPri
  0805:78               push1 
  0806:39 0c            pushi c // $c nsRight
  0808:38 00a3          pushi a3 // $a3 startUpd
  080b:76               push0 
  080c:39 7e            pushi 7e // $7e setCycle
  080e:7a               push2 
  080f:51 1a            class End 
  0811:36                push 
  0812:7c            pushSelf 
  0813:72 0fba          lofsa $17d0 // Horse
  0816:4a 2a             send 2a 

  0818:39 2b            pushi 2b // $2b number
  081a:78               push1 
  081b:39 55            pushi 55 // $55 z
  081d:39 06            pushi 6 // $6 loop
  081f:78               push1 
  0820:78               push1 
  0821:39 2a            pushi 2a // $2a play
  0823:76               push0 
  0824:72 1063          lofsa $188a // myMusic
  0827:4a 10             send 10 

  0829:33 44              jmp code_086f 

        code_082b
  082b:3c                 dup 
  082c:35 02              ldi 2 
  082e:1a                 eq? 
  082f:31 14              bnt code_0845 
  0831:39 42            pushi 42 // $42 setPri
  0833:78               push1 
  0834:39 09            pushi 9 // $9 nsTop
  0836:38 00c6          pushi c6 // $c6 stopUpd
  0839:76               push0 
  083a:72 0f93          lofsa $17d0 // Horse
  083d:4a 0a             send a 

  083f:35 15              ldi 15 
  0841:65 10             aTop cycles 
  0843:33 2a              jmp code_086f 

        code_0845
  0845:3c                 dup 
  0846:35 03              ldi 3 
  0848:1a                 eq? 
  0849:31 24              bnt code_086f 
  084b:34 010d            ldi 10d 
  084e:a0 0080            sag global128 
  0851:35 02              ldi 2 
  0853:a0 0081            sag global129 
  0856:35 02              ldi 2 
  0858:a0 0082            sag global130 
  085b:35 01              ldi 1 
  085d:a1 7f              sag global127 
  085f:7a               push2 
  0860:39 45            pushi 45 // $45 done
  0862:39 0d            pushi d // $d lsTop
  0864:45 13 04         callb procedure_0013 4 // EgoDead 

  0867:39 7a            pushi 7a // $7a setScript
  0869:78               push1 
  086a:76               push0 
  086b:63 08             pToa client 
  086d:4a 06             send 6 


        code_086f
  086f:3a                toss 
  0870:48                 ret 
    )

)

// 144c
(instance feedNag of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (doit) // method_0871
  0871:67 0a             pTos state 
  0873:35 03              ldi 3 
  0875:1a                 eq? 
  0876:31 2b              bnt code_08a3 
  0878:39 07            pushi 7 // $7 cel
  087a:76               push0 
  087b:72 0fa4          lofsa $1822 // Jeeves
  087e:4a 04             send 4 

  0880:36                push 
  0881:35 03              ldi 3 
  0883:1a                 eq? 
  0884:31 1d              bnt code_08a3 
  0886:38 00c5          pushi c5 // $c5 posn
  0889:7a               push2 
  088a:39 68            pushi 68 // $68 release
  088c:38 0091          pushi 91 // $91 isType
  088f:39 42            pushi 42 // $42 setPri
  0891:78               push1 
  0892:39 09            pushi 9 // $9 nsTop
  0894:39 7e            pushi 7e // $7e setCycle
  0896:78               push1 
  0897:51 1a            class End 
  0899:36                push 
  089a:38 00ca          pushi ca // $ca show
  089d:76               push0 
  089e:72 0d5b          lofsa $15fc // Hay
  08a1:4a 18             send 18 


        code_08a3
  08a3:67 0a             pTos state 
  08a5:35 01              ldi 1 
  08a7:1a                 eq? 
  08a8:31 17              bnt code_08c1 
  08aa:39 07            pushi 7 // $7 cel
  08ac:76               push0 
  08ad:72 0f72          lofsa $1822 // Jeeves
  08b0:4a 04             send 4 

  08b2:36                push 
  08b3:35 04              ldi 4 
  08b5:1a                 eq? 
  08b6:31 09              bnt code_08c1 
  08b8:38 0089          pushi 89 // $89 hide
  08bb:76               push0 
  08bc:72 0d3d          lofsa $15fc // Hay
  08bf:4a 04             send 4 


        code_08c1
  08c1:39 3c            pushi 3c // $3c doit
  08c3:76               push0 
  08c4:57 05 04         super Script 4 

  08c7:48                 ret 
    )

    (method (changeState) // method_08c8
  08c8:87 01              lap param1 
  08ca:65 0a             aTop state 
  08cc:36                push 
  08cd:3c                 dup 
  08ce:35 00              ldi 0 
  08d0:1a                 eq? 
  08d1:30 00b4            bnt code_0988 
  08d4:38 00da          pushi da // $da inRect
  08d7:39 04            pushi 4 // $4 x
  08d9:39 6d            pushi 6d // $6d addAfter
  08db:38 008a          pushi 8a // $8a enable
  08de:38 00c8          pushi c8 // $c8 setLoop
  08e1:38 0096          pushi 96 // $96 busy
  08e4:81 00              lag gEgo 
  08e6:4a 0c             send c 

  08e8:31 12              bnt code_08fc 
  08ea:38 00d3          pushi d3 // $d3 setMotion
  08ed:39 03            pushi 3 // $3 y
  08ef:51 1d            class MoveTo 
  08f1:36                push 
  08f2:38 00a0          pushi a0 // $a0 cycleDone
  08f5:38 0087          pushi 87 // $87 clean
  08f8:81 00              lag gEgo 
  08fa:4a 0a             send a 


        code_08fc
  08fc:38 00da          pushi da // $da inRect
  08ff:39 04            pushi 4 // $4 x
  0901:38 00c8          pushi c8 // $c8 setLoop
  0904:38 008b          pushi 8b // $8b select
  0907:38 0103          pushi 103 // $103 initialized
  090a:38 0096          pushi 96 // $96 busy
  090d:81 00              lag gEgo 
  090f:4a 0c             send c 

  0911:31 12              bnt code_0925 
  0913:38 00d3          pushi d3 // $d3 setMotion
  0916:39 03            pushi 3 // $3 y
  0918:51 1d            class MoveTo 
  091a:36                push 
  091b:38 0103          pushi 103 // $103 initialized
  091e:38 008f          pushi 8f // $8f moveTo
  0921:81 00              lag gEgo 
  0923:4a 0a             send a 


        code_0925
  0925:38 00da          pushi da // $da inRect
  0928:39 04            pushi 4 // $4 x
  092a:38 00cc          pushi cc // $cc isExtra
  092d:38 0097          pushi 97 // $97 open
  0930:38 0107          pushi 107 // $107 south
  0933:38 00c8          pushi c8 // $c8 setLoop
  0936:81 00              lag gEgo 
  0938:4a 0c             send c 

  093a:31 12              bnt code_094e 
  093c:38 00d3          pushi d3 // $d3 setMotion
  093f:39 03            pushi 3 // $3 y
  0941:51 1d            class MoveTo 
  0943:36                push 
  0944:38 00bd          pushi bd // $bd outOfTouch
  0947:38 0099          pushi 99 // $99 top
  094a:81 00              lag gEgo 
  094c:4a 0a             send a 


        code_094e
  094e:83 04              lal local4 
  0950:31 2f              bnt code_0981 
  0952:39 05            pushi 5 // $5 view
  0954:78               push1 
  0955:38 01b8          pushi 1b8 // $1b8 sel_440
  0958:38 00c5          pushi c5 // $c5 posn
  095b:7a               push2 
  095c:38 00dc          pushi dc // $dc setStep
  095f:38 00aa          pushi aa // $aa triedToMove
  0962:39 7e            pushi 7e // $7e setCycle
  0964:78               push1 
  0965:51 17            class Walk 
  0967:36                push 
  0968:38 00d3          pushi d3 // $d3 setMotion
  096b:39 04            pushi 4 // $4 x
  096d:51 1d            class MoveTo 
  096f:36                push 
  0970:38 00ee          pushi ee // $ee has
  0973:38 0091          pushi 91 // $91 isType
  0976:7c            pushSelf 
  0977:39 57            pushi 57 // $57 init
  0979:76               push0 
  097a:72 0ea5          lofsa $1822 // Jeeves
  097d:4a 24             send 24 

  097f:33 04              jmp code_0985 

        code_0981
  0981:35 01              ldi 1 
  0983:65 10             aTop cycles 

        code_0985
  0985:32 0118            jmp code_0aa0 

        code_0988
  0988:3c                 dup 
  0989:35 01              ldi 1 
  098b:1a                 eq? 
  098c:31 1d              bnt code_09ab 
  098e:39 05            pushi 5 // $5 view
  0990:78               push1 
  0991:38 01bd          pushi 1bd // $1bd sel_445
  0994:39 06            pushi 6 // $6 loop
  0996:78               push1 
  0997:78               push1 
  0998:39 07            pushi 7 // $7 cel
  099a:78               push1 
  099b:76               push0 
  099c:39 7e            pushi 7e // $7e setCycle
  099e:7a               push2 
  099f:51 1a            class End 
  09a1:36                push 
  09a2:7c            pushSelf 
  09a3:72 0e7c          lofsa $1822 // Jeeves
  09a6:4a 1a             send 1a 

  09a8:32 00f5            jmp code_0aa0 

        code_09ab
  09ab:3c                 dup 
  09ac:35 02              ldi 2 
  09ae:1a                 eq? 
  09af:31 27              bnt code_09d8 
  09b1:39 05            pushi 5 // $5 view
  09b3:78               push1 
  09b4:38 01c4          pushi 1c4 // $1c4 sel_452
  09b7:39 7e            pushi 7e // $7e setCycle
  09b9:78               push1 
  09ba:51 17            class Walk 
  09bc:36                push 
  09bd:38 00c8          pushi c8 // $c8 setLoop
  09c0:78               push1 
  09c1:76               push0 
  09c2:38 00d3          pushi d3 // $d3 setMotion
  09c5:39 04            pushi 4 // $4 x
  09c7:51 1d            class MoveTo 
  09c9:36                push 
  09ca:39 7c            pushi 7c // $7c lastTime
  09cc:38 0091          pushi 91 // $91 isType
  09cf:7c            pushSelf 
  09d0:72 0e4f          lofsa $1822 // Jeeves
  09d3:4a 1e             send 1e 

  09d5:32 00c8            jmp code_0aa0 

        code_09d8
  09d8:3c                 dup 
  09d9:35 03              ldi 3 
  09db:1a                 eq? 
  09dc:31 1e              bnt code_09fc 
  09de:39 05            pushi 5 // $5 view
  09e0:78               push1 
  09e1:38 01bd          pushi 1bd // $1bd sel_445
  09e4:38 00c8          pushi c8 // $c8 setLoop
  09e7:78               push1 
  09e8:7a               push2 
  09e9:39 07            pushi 7 // $7 cel
  09eb:78               push1 
  09ec:76               push0 
  09ed:39 7e            pushi 7e // $7e setCycle
  09ef:7a               push2 
  09f0:51 1a            class End 
  09f2:36                push 
  09f3:7c            pushSelf 
  09f4:72 0e2b          lofsa $1822 // Jeeves
  09f7:4a 1a             send 1a 

  09f9:32 00a4            jmp code_0aa0 

        code_09fc
  09fc:3c                 dup 
  09fd:35 04              ldi 4 
  09ff:1a                 eq? 
  0a00:31 5d              bnt code_0a5f 
  0a02:39 05            pushi 5 // $5 view
  0a04:78               push1 
  0a05:38 01b8          pushi 1b8 // $1b8 sel_440
  0a08:38 00c8          pushi c8 // $c8 setLoop
  0a0b:78               push1 
  0a0c:39 ff            pushi ff // $ff checkAni
  0a0e:39 7e            pushi 7e // $7e setCycle
  0a10:78               push1 
  0a11:51 17            class Walk 
  0a13:36                push 
  0a14:38 00d4          pushi d4 // $d4 setAvoider
  0a17:78               push1 
  0a18:39 56            pushi 56 // $56 new
  0a1a:76               push0 
  0a1b:51 21            class Avoid 
  0a1d:4a 04             send 4 

  0a1f:36                push 
  0a20:38 00d3          pushi d3 // $d3 setMotion
  0a23:39 04            pushi 4 // $4 x
  0a25:51 1d            class MoveTo 
  0a27:36                push 
  0a28:38 00c1          pushi c1 // $c1 gy
  0a2b:38 0091          pushi 91 // $91 isType
  0a2e:7c            pushSelf 
  0a2f:72 0df0          lofsa $1822 // Jeeves
  0a32:4a 24             send 24 

  0a34:38 00da          pushi da // $da inRect
  0a37:39 04            pushi 4 // $4 x
  0a39:38 00c8          pushi c8 // $c8 setLoop
  0a3c:38 00a2          pushi a2 // $a2 setCel
  0a3f:38 00e3          pushi e3 // $e3 controls
  0a42:38 00b0          pushi b0 // $b0 pickLoop
  0a45:81 00              lag gEgo 
  0a47:4a 0c             send c 

  0a49:31 12              bnt code_0a5d 
  0a4b:38 00d3          pushi d3 // $d3 setMotion
  0a4e:39 03            pushi 3 // $3 y
  0a50:51 1d            class MoveTo 
  0a52:36                push 
  0a53:38 00ba          pushi ba // $ba targetX
  0a56:38 00aa          pushi aa // $aa triedToMove
  0a59:81 00              lag gEgo 
  0a5b:4a 0a             send a 


        code_0a5d
  0a5d:33 41              jmp code_0aa0 

        code_0a5f
  0a5f:3c                 dup 
  0a60:35 05              ldi 5 
  0a62:1a                 eq? 
  0a63:31 16              bnt code_0a7b 
  0a65:38 00d3          pushi d3 // $d3 setMotion
  0a68:39 04            pushi 4 // $4 x
  0a6a:51 1d            class MoveTo 
  0a6c:36                push 
  0a6d:38 00dc          pushi dc // $dc setStep
  0a70:38 00aa          pushi aa // $aa triedToMove
  0a73:7c            pushSelf 
  0a74:72 0dab          lofsa $1822 // Jeeves
  0a77:4a 0c             send c 

  0a79:33 25              jmp code_0aa0 

        code_0a7b
  0a7b:3c                 dup 
  0a7c:35 06              ldi 6 
  0a7e:1a                 eq? 
  0a7f:31 1f              bnt code_0aa0 
  0a81:76               push0 
  0a82:45 04 00         callb procedure_0004 0 // HandsOn 

  0a85:35 08              ldi 8 
  0a87:a0 009b            sag global155 
  0a8a:34 0384            ldi 384 
  0a8d:a0 0172            sag global370 
  0a90:39 58            pushi 58 // $58 dispose
  0a92:76               push0 
  0a93:72 0d8c          lofsa $1822 // Jeeves
  0a96:4a 04             send 4 

  0a98:39 7a            pushi 7a // $7a setScript
  0a9a:78               push1 
  0a9b:76               push0 
  0a9c:63 08             pToa client 
  0a9e:4a 06             send 6 


        code_0aa0
  0aa0:3a                toss 
  0aa1:48                 ret 
    )

)

// 1480
(instance petHorse 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_0aa2
  0aa2:87 01              lap param1 
  0aa4:65 0a             aTop state 
  0aa6:36                push 
  0aa7:3c                 dup 
  0aa8:35 00              ldi 0 
  0aaa:1a                 eq? 
  0aab:31 26              bnt code_0ad3 
  0aad:76               push0 
  0aae:45 03 00         callb procedure_0003 0 // HandsOff 

  0ab1:38 00d4          pushi d4 // $d4 setAvoider
  0ab4:78               push1 
  0ab5:39 56            pushi 56 // $56 new
  0ab7:76               push0 
  0ab8:51 21            class Avoid 
  0aba:4a 04             send 4 

  0abc:36                push 
  0abd:38 00d3          pushi d3 // $d3 setMotion
  0ac0:39 04            pushi 4 // $4 x
  0ac2:51 1d            class MoveTo 
  0ac4:36                push 
  0ac5:38 0091          pushi 91 // $91 isType
  0ac8:38 008a          pushi 8a // $8a enable
  0acb:7c            pushSelf 
  0acc:81 00              lag gEgo 
  0ace:4a 12             send 12 

  0ad0:32 00c4            jmp code_0b97 

        code_0ad3
  0ad3:3c                 dup 
  0ad4:35 01              ldi 1 
  0ad6:1a                 eq? 
  0ad7:31 29              bnt code_0b02 
  0ad9:7a               push2 
  0ada:89 00              lsg gEgo 
  0adc:74 0cf1          lofss $17d0 // Horse
  0adf:45 02 04         callb procedure_0002 4 // LookAt 

  0ae2:39 05            pushi 5 // $5 view
  0ae4:78               push1 
  0ae5:39 3f            pushi 3f // $3f priority
  0ae7:39 07            pushi 7 // $7 cel
  0ae9:78               push1 
  0aea:76               push0 
  0aeb:39 06            pushi 6 // $6 loop
  0aed:78               push1 
  0aee:76               push0 
  0aef:38 00d4          pushi d4 // $d4 setAvoider
  0af2:78               push1 
  0af3:76               push0 
  0af4:39 7e            pushi 7e // $7e setCycle
  0af6:7a               push2 
  0af7:51 1a            class End 
  0af9:36                push 
  0afa:7c            pushSelf 
  0afb:81 00              lag gEgo 
  0afd:4a 20             send 20 

  0aff:32 0095            jmp code_0b97 

        code_0b02
  0b02:3c                 dup 
  0b03:35 02              ldi 2 
  0b05:1a                 eq? 
  0b06:31 18              bnt code_0b20 
  0b08:39 07            pushi 7 // $7 cel
  0b0a:78               push1 
  0b0b:76               push0 
  0b0c:39 06            pushi 6 // $6 loop
  0b0e:78               push1 
  0b0f:7a               push2 
  0b10:39 7e            pushi 7e // $7e setCycle
  0b12:78               push1 
  0b13:51 16            class Fwd 
  0b15:36                push 
  0b16:81 00              lag gEgo 
  0b18:4a 12             send 12 

  0b1a:35 03              ldi 3 
  0b1c:65 12             aTop seconds 
  0b1e:33 77              jmp code_0b97 

        code_0b20
  0b20:3c                 dup 
  0b21:35 03              ldi 3 
  0b23:1a                 eq? 
  0b24:31 4d              bnt code_0b73 
  0b26:38 0082          pushi 82 // $82 owner
  0b29:76               push0 
  0b2a:39 43            pushi 43 // $43 at
  0b2c:78               push1 
  0b2d:39 11            pushi 11 // $11 signal
  0b2f:81 09              lag gInventory 
  0b31:4a 06             send 6 

  0b33:4a 04             send 4 

  0b35:36                push 
  0b36:35 45              ldi 45 
  0b38:1a                 eq? 
  0b39:31 0d              bnt code_0b48 
  0b3b:7a               push2 
  0b3c:39 45            pushi 45 // $45 done
  0b3e:39 0e            pushi e // $e lsLeft
  0b40:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0b46:33 16              jmp code_0b5e 

        code_0b48
  0b48:7a               push2 
  0b49:39 45            pushi 45 // $45 done
  0b4b:39 0f            pushi f // $f lsBottom
  0b4d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0b53:39 7e            pushi 7e // $7e setCycle
  0b55:78               push1 
  0b56:51 1a            class End 
  0b58:36                push 
  0b59:72 0b8a          lofsa $16e6 // Ears
  0b5c:4a 06             send 6 


        code_0b5e
  0b5e:39 07            pushi 7 // $7 cel
  0b60:78               push1 
  0b61:76               push0 
  0b62:39 06            pushi 6 // $6 loop
  0b64:78               push1 
  0b65:7a               push2 
  0b66:39 7e            pushi 7e // $7e setCycle
  0b68:7a               push2 
  0b69:51 1a            class End 
  0b6b:36                push 
  0b6c:7c            pushSelf 
  0b6d:81 00              lag gEgo 
  0b6f:4a 14             send 14 

  0b71:33 24              jmp code_0b97 

        code_0b73
  0b73:3c                 dup 
  0b74:35 04              ldi 4 
  0b76:1a                 eq? 
  0b77:31 1e              bnt code_0b97 
  0b79:39 05            pushi 5 // $5 view
  0b7b:78               push1 
  0b7c:76               push0 
  0b7d:39 06            pushi 6 // $6 loop
  0b7f:78               push1 
  0b80:78               push1 
  0b81:39 7e            pushi 7e // $7e setCycle
  0b83:78               push1 
  0b84:51 17            class Walk 
  0b86:36                push 
  0b87:81 00              lag gEgo 
  0b89:4a 12             send 12 

  0b8b:76               push0 
  0b8c:45 04 00         callb procedure_0004 0 // HandsOn 

  0b8f:39 7a            pushi 7a // $7a setScript
  0b91:78               push1 
  0b92:76               push0 
  0b93:63 08             pToa client 
  0b95:4a 06             send 6 


        code_0b97
  0b97:3a                toss 
  0b98:48                 ret 
    )

)

// 14b0
(instance saddle of RPicView
    (properties
        y $6d
        x $10c
        z $0
        heading $0
        view $a9
        loop $1
        cel $2
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0b99
  0b99:78               push1 
  0b9a:74 06d5          lofss $1272 // detach,actionner,get/saddle
  0b9d:43 25 02         callk Said 2 

  0ba0:2f 12               bt code_0bb4 
  0ba2:78               push1 
  0ba3:74 069c          lofss $1242 // attach/saddle
  0ba6:43 25 02         callk Said 2 

  0ba9:2f 09               bt code_0bb4 
  0bab:78               push1 
  0bac:74 0799          lofss $1348 // saddle/blaze
  0baf:43 25 02         callk Said 2 

  0bb2:31 0d              bnt code_0bc1 

        code_0bb4
  0bb4:7a               push2 
  0bb5:39 45            pushi 45 // $45 done
  0bb7:39 10            pushi 10 // $10 lsRight
  0bb9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0bbf:33 2b              jmp code_0bec 

        code_0bc1
  0bc1:39 03            pushi 3 // $3 y
  0bc3:7c            pushSelf 
  0bc4:8f 01              lsp param1 
  0bc6:39 03            pushi 3 // $3 y
  0bc8:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0bce:2f 09               bt code_0bd9 
  0bd0:78               push1 
  0bd1:74 0735          lofss $1309 // look/saddle
  0bd4:43 25 02         callk Said 2 

  0bd7:31 13              bnt code_0bec 

        code_0bd9
  0bd9:39 4c            pushi 4c // $4c claimed
  0bdb:78               push1 
  0bdc:78               push1 
  0bdd:87 01              lap param1 
  0bdf:4a 06             send 6 

  0be1:7a               push2 
  0be2:39 45            pushi 45 // $45 done
  0be4:39 11            pushi 11 // $11 signal
  0be6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0bec
  0bec:48                 ret 
    )

)

// 14e6
(instance trough of RPicView
    (properties
        y $99
        x $49
        z $0
        heading $0
        view $a9
        loop $1
        cel $1
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0bed
  0bed:39 03            pushi 3 // $3 y
  0bef:7c            pushSelf 
  0bf0:8f 01              lsp param1 
  0bf2:39 03            pushi 3 // $3 y
  0bf4:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0bfa:2f 09               bt code_0c05 
  0bfc:78               push1 
  0bfd:74 070f          lofss $130f // look/auge,eau
  0c00:43 25 02         callk Said 2 

  0c03:31 13              bnt code_0c18 

        code_0c05
  0c05:39 4c            pushi 4c // $4c claimed
  0c07:78               push1 
  0c08:78               push1 
  0c09:87 01              lap param1 
  0c0b:4a 06             send 6 

  0c0d:7a               push2 
  0c0e:39 45            pushi 45 // $45 done
  0c10:39 12            pushi 12 // $12 illegalBits
  0c12:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0c18
  0c18:48                 ret 
    )

)

// 151c
(instance bridle of RPicView
    (properties
        y $60
        x $8e
        z $0
        heading $0
        view $a9
        loop $1
        cel $3
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0c19
  0c19:78               push1 
  0c1a:74 0649          lofss $1266 // detach,actionner,get/bit
  0c1d:43 25 02         callk Said 2 

  0c20:31 0d              bnt code_0c2f 
  0c22:7a               push2 
  0c23:39 45            pushi 45 // $45 done
  0c25:39 13            pushi 13 // $13 brTop
  0c27:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0c2d:33 2b              jmp code_0c5a 

        code_0c2f
  0c2f:39 03            pushi 3 // $3 y
  0c31:7c            pushSelf 
  0c32:8f 01              lsp param1 
  0c34:39 03            pushi 3 // $3 y
  0c36:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0c3c:2f 09               bt code_0c47 
  0c3e:78               push1 
  0c3f:74 06a9          lofss $12eb // look/bit
  0c42:43 25 02         callk Said 2 

  0c45:31 13              bnt code_0c5a 

        code_0c47
  0c47:39 4c            pushi 4c // $4c claimed
  0c49:78               push1 
  0c4a:78               push1 
  0c4b:87 01              lap param1 
  0c4d:4a 06             send 6 

  0c4f:7a               push2 
  0c50:39 45            pushi 45 // $45 done
  0c52:39 14            pushi 14 // $14 brLeft
  0c54:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0c5a
  0c5a:48                 ret 
    )

)

// 1552
(instance Door of Prop
    (properties
        y $93
        x $64
        z $0
        heading $0
        yStep $2
        view $a9
        loop $0
        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_0c5b
  0c5b:78               push1 
  0c5c:74 0627          lofss $1286 // enter,(aller<dans)/room,archway
  0c5f:43 25 02         callk Said 2 

  0c62:31 0e              bnt code_0c72 
  0c64:7a               push2 
  0c65:39 45            pushi 45 // $45 done
  0c67:39 15            pushi 15 // $15 brBottom
  0c69:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0c6f:32 008d            jmp code_0cff 

        code_0c72
  0c72:78               push1 
  0c73:74 06b2          lofss $1328 // open,enter,(aller<dans)/room,archway
  0c76:43 25 02         callk Said 2 

  0c79:31 36              bnt code_0cb1 
  0c7b:38 00db          pushi db // $db onControl
  0c7e:78               push1 
  0c7f:76               push0 
  0c80:81 00              lag gEgo 
  0c82:4a 06             send 6 

  0c84:36                push 
  0c85:35 04              ldi 4 
  0c87:12                 and 
  0c88:31 1a              bnt code_0ca4 
  0c8a:8b 00              lsl local0 
  0c8c:35 00              ldi 0 
  0c8e:1a                 eq? 
  0c8f:31 0d              bnt code_0c9e 
  0c91:39 7a            pushi 7a // $7a setScript
  0c93:78               push1 
  0c94:74 0757          lofss $13ee // myDoor
  0c97:72 06d4          lofsa $136e // Room69
  0c9a:4a 06             send 6 

  0c9c:33 04              jmp code_0ca2 

        code_0c9e
  0c9e:76               push0 
  0c9f:45 10 00         callb procedure_0010 0 // AlreadyOpen 


        code_0ca2
  0ca2:33 0b              jmp code_0caf 

        code_0ca4
  0ca4:7a               push2 
  0ca5:39 45            pushi 45 // $45 done
  0ca7:39 16            pushi 16 // $16 brRight
  0ca9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0caf
  0caf:33 4e              jmp code_0cff 

        code_0cb1
  0cb1:78               push1 
  0cb2:74 05a8          lofss $125d // clore/archway,room
  0cb5:43 25 02         callk Said 2 

  0cb8:31 1a              bnt code_0cd4 
  0cba:8b 00              lsl local0 
  0cbc:35 01              ldi 1 
  0cbe:1a                 eq? 
  0cbf:31 0d              bnt code_0cce 
  0cc1:39 7a            pushi 7a // $7a setScript
  0cc3:78               push1 
  0cc4:74 0727          lofss $13ee // myDoor
  0cc7:72 06a4          lofsa $136e // Room69
  0cca:4a 06             send 6 

  0ccc:33 04              jmp code_0cd2 

        code_0cce
  0cce:76               push0 
  0ccf:45 11 00         callb procedure_0011 0 // AlreadyClosed 


        code_0cd2
  0cd2:33 2b              jmp code_0cff 

        code_0cd4
  0cd4:39 03            pushi 3 // $3 y
  0cd6:7c            pushSelf 
  0cd7:8f 01              lsp param1 
  0cd9:39 03            pushi 3 // $3 y
  0cdb:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0ce1:2f 09               bt code_0cec 
  0ce3:78               push1 
  0ce4:74 05f5          lofss $12dc // look/archway,room
  0ce7:43 25 02         callk Said 2 

  0cea:31 13              bnt code_0cff 

        code_0cec
  0cec:39 4c            pushi 4c // $4c claimed
  0cee:78               push1 
  0cef:78               push1 
  0cf0:87 01              lap param1 
  0cf2:4a 06             send 6 

  0cf4:7a               push2 
  0cf5:39 45            pushi 45 // $45 done
  0cf7:39 17            pushi 17 // $17 name
  0cf9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0cff
  0cff:48                 ret 
    )

)

// 15a4
(instance Lamp of Prop
    (properties
        y $6e
        x $2a
        z $0
        heading $0
        yStep $2
        view $a9
        loop $1
        cel $0
        priority $7
        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_0d00
  0d00:39 03            pushi 3 // $3 y
  0d02:7c            pushSelf 
  0d03:8f 01              lsp param1 
  0d05:39 03            pushi 3 // $3 y
  0d07:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0d0d:2f 09               bt code_0d18 
  0d0f:78               push1 
  0d10:74 05ea          lofss $12fd // look/lantern,lamp,allumer
  0d13:43 25 02         callk Said 2 

  0d16:31 15              bnt code_0d2d 

        code_0d18
  0d18:39 4c            pushi 4c // $4c claimed
  0d1a:78               push1 
  0d1b:78               push1 
  0d1c:87 01              lap param1 
  0d1e:4a 06             send 6 

  0d20:7a               push2 
  0d21:39 45            pushi 45 // $45 done
  0d23:39 05            pushi 5 // $5 view
  0d25:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d2b:33 36              jmp code_0d63 

        code_0d2d
  0d2d:78               push1 
  0d2e:74 0587          lofss $12b8 // get/lantern,allumer
  0d31:43 25 02         callk Said 2 

  0d34:31 2d              bnt code_0d63 
  0d36:38 00ae          pushi ae // $ae distanceTo
  0d39:78               push1 
  0d3a:74 086d          lofss $15aa // Lamp
  0d3d:81 00              lag gEgo 
  0d3f:4a 06             send 6 

  0d41:36                push 
  0d42:35 2d              ldi 2d 
  0d44:22                 lt? 
  0d45:31 18              bnt code_0d5f 
  0d47:39 58            pushi 58 // $58 dispose
  0d49:76               push0 
  0d4a:72 085d          lofsa $15aa // Lamp
  0d4d:4a 04             send 4 

  0d4f:35 01              ldi 1 
  0d51:a0 00b6            sag global182 
  0d54:38 00ec          pushi ec // $ec get
  0d57:78               push1 
  0d58:7a               push2 
  0d59:81 00              lag gEgo 
  0d5b:4a 06             send 6 

  0d5d:33 04              jmp code_0d63 

        code_0d5f
  0d5f:76               push0 
  0d60:45 09 00         callb procedure_0009 0 // NotClose 


        code_0d63
  0d63:48                 ret 
    )

)

// 15f6
(instance Hay of Prop
    (properties
        y $8d
        x $e4
        z $0
        heading $0
        yStep $2
        view $1bd
        loop $3
        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
    )
)

// 1644
(instance Leg of Prop
    (properties
        y $8d
        x $68
        z $0
        heading $0
        yStep $2
        view $a9
        loop $4
        cel $0
        priority $0
        underBits $0
        signal $4000
        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 $2
        script $0
        cycler $0
        timer $0
    )
)

// 1692
(instance Tail of Prop
    (properties
        y $68
        x $3e
        z $0
        heading $0
        yStep $2
        view $a9
        loop $3
        cel $0
        priority $0
        underBits $0
        signal $4000
        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 $2
        script $0
        cycler $0
        timer $0
    )
)

// 16e0
(instance Ears of Prop
    (properties
        y $5e
        x $77
        z $0
        heading $0
        yStep $2
        view $a9
        loop $5
        cel $0
        priority $0
        underBits $0
        signal $4000
        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
    )
)

// 172e
(instance Mouth of Prop
    (properties
        y $69
        x $69
        z $0
        heading $0
        yStep $2
        view $8
        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
    )
)

// 177c
(instance Head of Prop
    (properties
        y $6c
        x $63
        z $0
        heading $0
        yStep $2
        view $a9
        loop $2
        cel $1
        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
    )
)

// 17ca
(instance Horse of Prop
    (properties
        y $8c
        x $33
        z $0
        heading $0
        yStep $2
        view $a9
        loop $2
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0d64
  0d64:39 03            pushi 3 // $3 y
  0d66:7c            pushSelf 
  0d67:8f 01              lsp param1 
  0d69:39 03            pushi 3 // $3 y
  0d6b:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0d71:2f 09               bt code_0d7c 
  0d73:78               push1 
  0d74:74 057a          lofss $12f1 // look/blaze
  0d77:43 25 02         callk Said 2 

  0d7a:31 16              bnt code_0d92 

        code_0d7c
  0d7c:39 4c            pushi 4c // $4c claimed
  0d7e:78               push1 
  0d7f:78               push1 
  0d80:87 01              lap param1 
  0d82:4a 06             send 6 

  0d84:7a               push2 
  0d85:39 45            pushi 45 // $45 done
  0d87:39 18            pushi 18 // $18 key
  0d89:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d8f:32 028a            jmp code_101c 

        code_0d92
  0d92:78               push1 
  0d93:74 04b2          lofss $1248 // bit/blaze
  0d96:43 25 02         callk Said 2 

  0d99:2f 09               bt code_0da4 
  0d9b:78               push1 
  0d9c:74 0497          lofss $1236 // attach,attach/bit/blaze
  0d9f:43 25 02         callk Said 2 

  0da2:31 0e              bnt code_0db2 

        code_0da4
  0da4:7a               push2 
  0da5:39 45            pushi 45 // $45 done
  0da7:39 19            pushi 19 // $19 time
  0da9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0daf:32 026a            jmp code_101c 

        code_0db2
  0db2:78               push1 
  0db3:74 03ee          lofss $11a4 // (feed,deliver,hold)>
  0db6:43 25 02         callk Said 2 

  0db9:30 00ba            bnt code_0e76 
  0dbc:78               push1 
  0dbd:74 041e          lofss $11de // /carotte
  0dc0:43 25 02         callk Said 2 

  0dc3:31 56              bnt code_0e1b 
  0dc5:38 0082          pushi 82 // $82 owner
  0dc8:76               push0 
  0dc9:39 43            pushi 43 // $43 at
  0dcb:78               push1 
  0dcc:39 11            pushi 11 // $11 signal
  0dce:81 09              lag gInventory 
  0dd0:4a 06             send 6 

  0dd2:4a 04             send 4 

  0dd4:36                push 
  0dd5:35 45              ldi 45 
  0dd7:1a                 eq? 
  0dd8:31 0d              bnt code_0de7 
  0dda:7a               push2 
  0ddb:39 45            pushi 45 // $45 done
  0ddd:39 1a            pushi 1a // $1a text
  0ddf:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0de5:33 32              jmp code_0e19 

        code_0de7
  0de7:38 00ee          pushi ee // $ee has
  0dea:78               push1 
  0deb:39 11            pushi 11 // $11 signal
  0ded:81 00              lag gEgo 
  0def:4a 06             send 6 

  0df1:31 22              bnt code_0e15 
  0df3:38 00db          pushi db // $db onControl
  0df6:78               push1 
  0df7:76               push0 
  0df8:81 00              lag gEgo 
  0dfa:4a 06             send 6 

  0dfc:36                push 
  0dfd:35 04              ldi 4 
  0dff:12                 and 
  0e00:31 0d              bnt code_0e0f 
  0e02:39 7a            pushi 7a // $7a setScript
  0e04:78               push1 
  0e05:74 05b6          lofss $13be // feedHorse
  0e08:72 0563          lofsa $136e // Room69
  0e0b:4a 06             send 6 

  0e0d:33 04              jmp code_0e13 

        code_0e0f
  0e0f:76               push0 
  0e10:45 09 00         callb procedure_0009 0 // NotClose 


        code_0e13
  0e13:33 04              jmp code_0e19 

        code_0e15
  0e15:76               push0 
  0e16:45 0d 00         callb procedure_000d 0 // DontHave 


        code_0e19
  0e19:33 58              jmp code_0e73 

        code_0e1b
  0e1b:78               push1 
  0e1c:74 03a8          lofss $11c7 // /(bale[<blaze]),blaze
  0e1f:43 25 02         callk Said 2 

  0e22:31 0d              bnt code_0e31 
  0e24:7a               push2 
  0e25:39 45            pushi 45 // $45 done
  0e27:39 1b            pushi 1b // $1b elements
  0e29:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0e2f:33 42              jmp code_0e73 

        code_0e31
  0e31:78               push1 
  0e32:74 03bc          lofss $11f1 // /aliments
  0e35:43 25 02         callk Said 2 

  0e38:31 0d              bnt code_0e47 
  0e3a:7a               push2 
  0e3b:39 45            pushi 45 // $45 done
  0e3d:39 1c            pushi 1c // $1c color
  0e3f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0e45:33 2c              jmp code_0e73 

        code_0e47
  0e47:78               push1 
  0e48:74 038a          lofss $11d5 // /*
  0e4b:43 25 02         callk Said 2 

  0e4e:31 23              bnt code_0e73 
  0e50:39 4c            pushi 4c // $4c claimed
  0e52:78               push1 
  0e53:78               push1 
  0e54:87 01              lap param1 
  0e56:4a 06             send 6 

  0e58:80 00db            lag global219 
  0e5b:31 12              bnt code_0e6f 
  0e5d:80 00e0            lag global224 
  0e60:31 0d              bnt code_0e6f 
  0e62:7a               push2 
  0e63:39 45            pushi 45 // $45 done
  0e65:39 1d            pushi 1d // $1d back
  0e67:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0e6d:33 04              jmp code_0e73 

        code_0e6f
  0e6f:76               push0 
  0e70:45 0d 00         callb procedure_000d 0 // DontHave 


        code_0e73
  0e73:32 01a6            jmp code_101c 

        code_0e76
  0e76:78               push1 
  0e77:74 03ae          lofss $1228 // ask[/blaze]/c<about
  0e7a:43 25 02         callk Said 2 

  0e7d:31 1f              bnt code_0e9e 
  0e7f:39 2b            pushi 2b // $2b number
  0e81:78               push1 
  0e82:39 76            pushi 76 // $76 script
  0e84:39 06            pushi 6 // $6 loop
  0e86:78               push1 
  0e87:78               push1 
  0e88:39 2a            pushi 2a // $2a play
  0e8a:76               push0 
  0e8b:72 0a26          lofsa $18b4 // myEd
  0e8e:4a 10             send 10 

  0e90:7a               push2 
  0e91:39 45            pushi 45 // $45 done
  0e93:39 1e            pushi 1e // $1e mode
  0e95:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0e9b:32 017e            jmp code_101c 

        code_0e9e
  0e9e:78               push1 
  0e9f:74 0375          lofss $1217 // ask,raconter[/blaze]/*<about
  0ea2:43 25 02         callk Said 2 

  0ea5:31 0e              bnt code_0eb5 
  0ea7:7a               push2 
  0ea8:39 45            pushi 45 // $45 done
  0eaa:39 1f            pushi 1f // $1f style
  0eac:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0eb2:32 0167            jmp code_101c 

        code_0eb5
  0eb5:78               push1 
  0eb6:74 0320          lofss $11d9 // /blaze>
  0eb9:43 25 02         callk Said 2 

  0ebc:30 015d            bnt code_101c 
  0ebf:78               push1 
  0ec0:74 0499          lofss $135c // bonjour
  0ec3:43 25 02         callk Said 2 

  0ec6:31 0e              bnt code_0ed6 
  0ec8:7a               push2 
  0ec9:39 45            pushi 45 // $45 done
  0ecb:39 20            pushi 20 // $20 state
  0ecd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0ed3:32 0146            jmp code_101c 

        code_0ed6
  0ed6:78               push1 
  0ed7:74 02d6          lofss $11b0 // (get<on),chevaucher,chevaucher,climb
  0eda:43 25 02         callk Said 2 

  0edd:31 0e              bnt code_0eed 
  0edf:7a               push2 
  0ee0:39 45            pushi 45 // $45 done
  0ee2:39 21            pushi 21 // $21 font
  0ee4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0eea:32 012f            jmp code_101c 

        code_0eed
  0eed:78               push1 
  0eee:74 03d6          lofss $12c7 // guide,bouger,appuyer,get,get
  0ef1:43 25 02         callk Said 2 

  0ef4:31 30              bnt code_0f26 
  0ef6:38 0082          pushi 82 // $82 owner
  0ef9:76               push0 
  0efa:39 43            pushi 43 // $43 at
  0efc:78               push1 
  0efd:39 11            pushi 11 // $11 signal
  0eff:81 09              lag gInventory 
  0f01:4a 06             send 6 

  0f03:4a 04             send 4 

  0f05:36                push 
  0f06:35 45              ldi 45 
  0f08:1a                 eq? 
  0f09:31 0d              bnt code_0f18 
  0f0b:7a               push2 
  0f0c:39 45            pushi 45 // $45 done
  0f0e:39 22            pushi 22 // $22 type
  0f10:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0f16:33 0b              jmp code_0f23 

        code_0f18
  0f18:7a               push2 
  0f19:39 45            pushi 45 // $45 done
  0f1b:39 15            pushi 15 // $15 brBottom
  0f1d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0f23
  0f23:32 00f6            jmp code_101c 

        code_0f26
  0f26:78               push1 
  0f27:74 036d          lofss $1297 // feed,deliver/carotte
  0f2a:43 25 02         callk Said 2 

  0f2d:31 5e              bnt code_0f8d 
  0f2f:38 0082          pushi 82 // $82 owner
  0f32:76               push0 
  0f33:39 43            pushi 43 // $43 at
  0f35:78               push1 
  0f36:39 11            pushi 11 // $11 signal
  0f38:81 09              lag gInventory 
  0f3a:4a 06             send 6 

  0f3c:4a 04             send 4 

  0f3e:36                push 
  0f3f:35 45              ldi 45 
  0f41:1a                 eq? 
  0f42:31 0d              bnt code_0f51 
  0f44:7a               push2 
  0f45:39 45            pushi 45 // $45 done
  0f47:39 1a            pushi 1a // $1a text
  0f49:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0f4f:33 39              jmp code_0f8a 

        code_0f51
  0f51:38 00ee          pushi ee // $ee has
  0f54:78               push1 
  0f55:39 11            pushi 11 // $11 signal
  0f57:81 00              lag gEgo 
  0f59:4a 06             send 6 

  0f5b:31 22              bnt code_0f7f 
  0f5d:38 00db          pushi db // $db onControl
  0f60:78               push1 
  0f61:76               push0 
  0f62:81 00              lag gEgo 
  0f64:4a 06             send 6 

  0f66:36                push 
  0f67:35 04              ldi 4 
  0f69:12                 and 
  0f6a:31 0d              bnt code_0f79 
  0f6c:39 7a            pushi 7a // $7a setScript
  0f6e:78               push1 
  0f6f:74 044c          lofss $13be // feedHorse
  0f72:72 03f9          lofsa $136e // Room69
  0f75:4a 06             send 6 

  0f77:33 04              jmp code_0f7d 

        code_0f79
  0f79:76               push0 
  0f7a:45 09 00         callb procedure_0009 0 // NotClose 


        code_0f7d
  0f7d:33 0b              jmp code_0f8a 

        code_0f7f
  0f7f:7a               push2 
  0f80:39 45            pushi 45 // $45 done
  0f82:39 1c            pushi 1c // $1c color
  0f84:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0f8a
  0f8a:32 008f            jmp code_101c 

        code_0f8d
  0f8d:78               push1 
  0f8e:74 03ce          lofss $135f // appeler
  0f91:43 25 02         callk Said 2 

  0f94:31 0d              bnt code_0fa3 
  0f96:7a               push2 
  0f97:39 45            pushi 45 // $45 done
  0f99:39 23            pushi 23 // $23 window
  0f9b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0fa1:33 79              jmp code_101c 

        code_0fa3
  0fa3:78               push1 
  0fa4:74 0332          lofss $12d9 // embrasser
  0fa7:43 25 02         callk Said 2 

  0faa:31 2f              bnt code_0fdb 
  0fac:38 0082          pushi 82 // $82 owner
  0faf:76               push0 
  0fb0:39 43            pushi 43 // $43 at
  0fb2:78               push1 
  0fb3:39 11            pushi 11 // $11 signal
  0fb5:81 09              lag gInventory 
  0fb7:4a 06             send 6 

  0fb9:4a 04             send 4 

  0fbb:36                push 
  0fbc:35 45              ldi 45 
  0fbe:1a                 eq? 
  0fbf:31 0d              bnt code_0fce 
  0fc1:7a               push2 
  0fc2:39 45            pushi 45 // $45 done
  0fc4:39 24            pushi 24 // $24 cursor
  0fc6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0fcc:33 0b              jmp code_0fd9 

        code_0fce
  0fce:7a               push2 
  0fcf:39 45            pushi 45 // $45 done
  0fd1:39 25            pushi 25 // $25 max
  0fd3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0fd9
  0fd9:33 41              jmp code_101c 

        code_0fdb
  0fdb:78               push1 
  0fdc:74 02f7          lofss $12d6 // abattre
  0fdf:43 25 02         callk Said 2 

  0fe2:31 0d              bnt code_0ff1 
  0fe4:7a               push2 
  0fe5:39 45            pushi 45 // $45 done
  0fe7:39 26            pushi 26 // $26 mark
  0fe9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0fef:33 2b              jmp code_101c 

        code_0ff1
  0ff1:78               push1 
  0ff2:74 034d          lofss $1342 // caliner,caliner
  0ff5:43 25 02         callk Said 2 

  0ff8:31 22              bnt code_101c 
  0ffa:38 00ae          pushi ae // $ae distanceTo
  0ffd:78               push1 
  0ffe:74 07cf          lofss $17d0 // Horse
  1001:81 00              lag gEgo 
  1003:4a 06             send 6 

  1005:36                push 
  1006:35 69              ldi 69 
  1008:22                 lt? 
  1009:31 0d              bnt code_1018 
  100b:39 7a            pushi 7a // $7a setScript
  100d:78               push1 
  100e:74 0475          lofss $1486 // petHorse
  1011:72 035a          lofsa $136e // Room69
  1014:4a 06             send 6 

  1016:33 04              jmp code_101c 

        code_1018
  1018:76               push0 
  1019:45 09 00         callb procedure_0009 0 // NotClose 


        code_101c
  101c:48                 ret 
    )

)

// 181c
(instance Jeeves of Act
    (properties
        y $91
        x $ee
        z $0
        heading $0
        yStep $2
        view $1b8
        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
    )
    (method (handleEvent) // method_101d
  101d:78               push1 
  101e:74 02d6          lofss $12f7 // look/butler
  1021:43 25 02         callk Said 2 

  1024:31 0d              bnt code_1033 
  1026:7a               push2 
  1027:39 45            pushi 45 // $45 done
  1029:39 27            pushi 27 // $27 who
  102b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1031:33 14              jmp code_1047 

        code_1033
  1033:78               push1 
  1034:74 018a          lofss $11c1 // */butler
  1037:43 25 02         callk Said 2 

  103a:31 0b              bnt code_1047 
  103c:7a               push2 
  103d:39 45            pushi 45 // $45 done
  103f:39 28            pushi 28 // $28 message
  1041:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_1047
  1047:48                 ret 
    )

)

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

// 18ae
(instance myEd of Sound
    (properties
        state $0
        number $0
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)

// 18d8
(instance hay1 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $91
        nsLeft $89
        nsBottom $a3
        nsRight $a9
    )
    (method (handleEvent) // method_1048
  1048:78               push1 
  1049:74 0232          lofss $127e // boire[/eau]
  104c:43 25 02         callk Said 2 

  104f:2f 09               bt code_105a 
  1051:78               push1 
  1052:74 025d          lofss $12b2 // get/boire
  1055:43 25 02         callk Said 2 

  1058:31 0e              bnt code_1068 

        code_105a
  105a:7a               push2 
  105b:39 45            pushi 45 // $45 done
  105d:39 29            pushi 29 // $29 edit
  105f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1065:32 00a1            jmp code_1109 

        code_1068
  1068:78               push1 
  1069:74 0255          lofss $12c1 // get/eau
  106c:43 25 02         callk Said 2 

  106f:31 0e              bnt code_107f 
  1071:7a               push2 
  1072:39 45            pushi 45 // $45 done
  1074:39 2a            pushi 2a // $2a play
  1076:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  107c:32 008a            jmp code_1109 

        code_107f
  107f:78               push1 
  1080:74 0295          lofss $1318 // look<dans/eau,auge
  1083:43 25 02         callk Said 2 

  1086:31 0d              bnt code_1095 
  1088:7a               push2 
  1089:39 45            pushi 45 // $45 done
  108b:39 2b            pushi 2b // $2b number
  108d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  1093:33 74              jmp code_1109 

        code_1095
  1095:78               push1 
  1096:74 0213          lofss $12ac // get/bale
  1099:43 25 02         callk Said 2 

  109c:31 0d              bnt code_10ab 
  109e:7a               push2 
  109f:39 45            pushi 45 // $45 done
  10a1:39 2c            pushi 2c // $2c handle
  10a3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  10a9:33 5e              jmp code_1109 

        code_10ab
  10ab:78               push1 
  10ac:74 029f          lofss $134e // chercher,(look<dans)/bale
  10af:43 25 02         callk Said 2 

  10b2:31 2a              bnt code_10de 
  10b4:38 00da          pushi da // $da inRect
  10b7:39 04            pushi 4 // $4 x
  10b9:38 00c1          pushi c1 // $c1 gy
  10bc:38 0080          pushi 80 // $80 timeLeft
  10bf:38 00f1          pushi f1 // $f1 write
  10c2:38 008e          pushi 8e // $8e move
  10c5:81 00              lag gEgo 
  10c7:4a 0c             send c 

  10c9:31 0d              bnt code_10d8 
  10cb:7a               push2 
  10cc:39 45            pushi 45 // $45 done
  10ce:39 2d            pushi 2d // $2d client
  10d0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  10d6:33 04              jmp code_10dc 

        code_10d8
  10d8:76               push0 
  10d9:45 09 00         callb procedure_0009 0 // NotClose 


        code_10dc
  10dc:33 2b              jmp code_1109 

        code_10de
  10de:39 03            pushi 3 // $3 y
  10e0:7c            pushSelf 
  10e1:8f 01              lsp param1 
  10e3:39 03            pushi 3 // $3 y
  10e5:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  10eb:2f 09               bt code_10f6 
  10ed:78               push1 
  10ee:74 01f4          lofss $12e5 // look/bale
  10f1:43 25 02         callk Said 2 

  10f4:31 13              bnt code_1109 

        code_10f6
  10f6:39 4c            pushi 4c // $4c claimed
  10f8:78               push1 
  10f9:78               push1 
  10fa:87 01              lap param1 
  10fc:4a 06             send 6 

  10fe:7a               push2 
  10ff:39 45            pushi 45 // $45 done
  1101:39 2e            pushi 2e // $2e dx
  1103:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_1109
  1109:48                 ret 
    )

)

// 1904
(instance hay2 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $76
        nsLeft $cf
        nsBottom $87
        nsRight $ee
    )
    (method (handleEvent) // method_110a
  110a:39 03            pushi 3 // $3 y
  110c:7c            pushSelf 
  110d:8f 01              lsp param1 
  110f:39 03            pushi 3 // $3 y
  1111:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  1117:31 13              bnt code_112c 
  1119:39 4c            pushi 4c // $4c claimed
  111b:78               push1 
  111c:78               push1 
  111d:87 01              lap param1 
  111f:4a 06             send 6 

  1121:7a               push2 
  1122:39 45            pushi 45 // $45 done
  1124:39 2e            pushi 2e // $2e dx
  1126:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_112c
  112c:48                 ret 
    )

)

// 1930
(instance window1 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $3e
        nsLeft $ab
        nsBottom $51
        nsRight $c6
    )
    (method (handleEvent) // method_112d
  112d:39 03            pushi 3 // $3 y
  112f:7c            pushSelf 
  1130:8f 01              lsp param1 
  1132:39 03            pushi 3 // $3 y
  1134:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  113a:2f 09               bt code_1145 
  113c:78               push1 
  113d:74 00bd          lofss $11fd // /fenetre
  1140:43 25 02         callk Said 2 

  1143:31 13              bnt code_1158 

        code_1145
  1145:39 4c            pushi 4c // $4c claimed
  1147:78               push1 
  1148:78               push1 
  1149:87 01              lap param1 
  114b:4a 06             send 6 

  114d:7a               push2 
  114e:39 45            pushi 45 // $45 done
  1150:39 2f            pushi 2f // $2f dy
  1152:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_1158
  1158:48                 ret 
    )

)

// 195c
(instance window2 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $45
        nsLeft $d5
        nsBottom $57
        nsRight $f1
    )
    (method (handleEvent) // method_1159
  1159:39 03            pushi 3 // $3 y
  115b:7c            pushSelf 
  115c:8f 01              lsp param1 
  115e:39 03            pushi 3 // $3 y
  1160:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  1166:31 13              bnt code_117b 
  1168:39 4c            pushi 4c // $4c claimed
  116a:78               push1 
  116b:78               push1 
  116c:87 01              lap param1 
  116e:4a 06             send 6 

  1170:7a               push2 
  1171:39 45            pushi 45 // $45 done
  1173:39 2f            pushi 2f // $2f dy
  1175:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_117b
  117b:48                 ret 
    )

)

// 1988
(instance window3 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $8
        nsLeft $45
        nsBottom $1a
        nsRight $5f
    )
    (method (handleEvent) // method_117c
  117c:39 03            pushi 3 // $3 y
  117e:7c            pushSelf 
  117f:8f 01              lsp param1 
  1181:39 03            pushi 3 // $3 y
  1183:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  1189:31 13              bnt code_119e 
  118b:39 4c            pushi 4c // $4c claimed
  118d:78               push1 
  118e:78               push1 
  118f:87 01              lap param1 
  1191:4a 06             send 6 

  1193:7a               push2 
  1194:39 45            pushi 45 // $45 done
  1196:39 2f            pushi 2f // $2f dy
  1198:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_119e
  119e:48                 ret 
  119f:00                bnot 
    )

)



