(script 23)

(string
    string_14fa "BigBucket"
    string_1504 "BotLPath"
    string_150d "BotPath"
    string_1515 "Bucket"
    string_151c "House"
    string_1522 "Light1"
    string_1529 "Light2"
    string_1530 "Room23"
    string_1537 "Splash"
    string_153e "Thunder"
    string_1546 "TopLPath"
    string_154f "TopPath"
    string_1557 "WHandle"
    string_155f "Well"
    string_1564 "Windlass"
    string_156d "house"
    string_1573 "lookInWell"
    string_157e "lowerBucket"
    string_158a "myMusic"
    string_1592 "mySound"
    string_159a "raiseBucket"
    string_15a6 "showers"
    string_15ae "wellCage"
    string_15b7 ""
)

(said
    said_0e4c /(door<basement),basement
    said_0e58 /body,actress>
    said_0e60 /door,lamp
    said_0e67 /chanvre
    said_0e6b /monument
    said_0e6f /path
    said_0e73 <(dans,bas,dans)/puit
    said_0e82 <dans/doghouse
    said_0e89 [<around,at][/room]
    said_0e97 chop,delier/chanvre,bucket
    said_0ea3 debarrasser/control,fontainier,bucket
    said_0eaf embrace
    said_0eb2 enter,(aller,hop,climb,get,asseoir)<dans/bucket,puit
    said_0ecf enter,climb/puit,bucket
    said_0edb get/bucket
    said_0ee1 get/control
    said_0ee7 get/chanvre
    said_0eed aider
    said_0ef0 abattre
    said_0ef3 embrasser
    said_0ef6 laisser,lacher/aller,fontainier,control
    said_0f05 lift
    said_0f08 lift/bucket,chanvre
    said_0f11 look
    said_0f14 look/boa
    said_0f1a look/bucket
    said_0f20 look/cabin<beauregard
    said_0f29 look/control
    said_0f2f look/doghouse
    said_0f35 look<dans/bucket
    said_0f3e look>
    said_0f42 look[<at]/puit
    said_0f4d abaisser,detendre
    said_0f53 abaisser,detendre/bucket,chanvre
    said_0f5f open/(door[<basement]),basement
    said_0f6f chercher,get,attirer,attirer,appuyer,bouger,(look<dans)
    said_0f89 vent,rotate/control,fontainier,chanvre
)

(synonym
    lamp | lampe = allumer | ignite | illuminer | light
)

(local
    local0 = $0000
    local1 = $0000
    local2 = $0000
    local3 = $0000
    local4 = $0000
    local5 = $00de
    local6 = $0082
    local7 = $00ba
    local8 = $0089
    local9 = $00c1
    local10 = $008e
    local11 = $8000
    local12 = $00de
    local13 = $0095
    local14 = $00c1
    local15 = $008e
    local16 = $8000
    local17 = $00de
    local18 = $0082
    local19 = $00ba
    local20 = $0089
    local21 = $00d2
    local22 = $0093
    local23 = $8000
    local24 = $00de
    local25 = $0095
    local26 = $00c9
    local27 = $0093
    local28 = $8000
    local29 = $0000
)

// 0f9e
(instance public Room23 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $17
        style $ffff
        horizon $0
        controls $0
        north $0
        east $0
        south $0
        west $0
        curPic $0
        picAngle $0
        vanishingX $a0
        vanishingY $8ad0
        vertAngle $0
    )
    (method (init) // method_0016
  0016:35 1d              ldi 1d 
  0018:65 1e             aTop south 
  001a:35 16              ldi 16 
  001c:65 20             aTop west 
  001e:35 18              ldi 18 
  0020:65 1c             aTop east 
  0022:35 0c              ldi c 
  0024:65 1a             aTop north 
  0026:35 56              ldi 56 
  0028:65 16             aTop horizon 
  002a:39 57            pushi 57 // $57 init
  002c:76               push0 
  002d:57 37 04         super Rm 4 

  0030:39 61            pushi 61 // $61 add
  0032:78               push1 
  0033:74 107e          lofss $10b4 // Well
  0036:39 62            pushi 62 // $62 eachElementDo
  0038:78               push1 
  0039:39 57            pushi 57 // $57 init
  003b:39 3c            pushi 3c // $3c doit
  003d:76               push0 
  003e:81 0a              lag gAddToPics 
  0040:4a 10             send 10 

  0042:38 010a          pushi 10a // $10a setRegions
  0045:78               push1 
  0046:38 00ce          pushi ce // $ce yLast
  0049:38 010b          pushi 10b // $10b setFeatures
  004c:7a               push2 
  004d:74 1064          lofss $10b4 // Well
  0050:74 12bd          lofss $1310 // House
  0053:54 0e             self e 

  0055:88 00a5            lsg gAct 
  0058:35 01              ldi 1 
  005a:1a                 eq? 
  005b:31 09              bnt code_0066 
  005d:38 010a          pushi 10a // $10a setRegions
  0060:78               push1 
  0061:38 017d          pushi 17d // $17d sel_381
  0064:54 06             self 6 


        code_0066
  0066:7a               push2 
  0067:38 0082          pushi 82 // $82 owner
  006a:38 03d9          pushi 3d9 // $3d9 sel_985
  006d:43 00 04         callk Load 4 

  0070:7a               push2 
  0071:38 0081          pushi 81 // $81 prevSignal
  0074:39 46            pushi 46 // $46 width
  0076:43 00 04         callk Load 4 

  0079:39 04            pushi 4 // $4 x
  007b:38 0080          pushi 80 // $80 timeLeft
  007e:39 33            pushi 33 // $33 b-di
  0080:39 37            pushi 37 // $37 yStep
  0082:38 00aa          pushi aa // $aa triedToMove
  0085:45 15 08         callb procedure_0015 8 // LoadMany 

  0088:39 03            pushi 3 // $3 y
  008a:38 0084          pushi 84 // $84 stop
  008d:39 52            pushi 52 // $52 icon
  008f:39 78            pushi 78 // $78 changeState
  0091:45 15 06         callb procedure_0015 6 // LoadMany 

  0094:39 2b            pushi 2b // $2b number
  0096:78               push1 
  0097:39 11            pushi 11 // $11 signal
  0099:39 06            pushi 6 // $6 loop
  009b:78               push1 
  009c:76               push0 
  009d:72 129c          lofsa $133c // Thunder
  00a0:4a 0c             send c 

  00a2:39 2b            pushi 2b // $2b number
  00a4:78               push1 
  00a5:39 52            pushi 52 // $52 icon
  00a7:39 06            pushi 6 // $6 loop
  00a9:78               push1 
  00aa:76               push0 
  00ab:72 12b8          lofsa $1366 // mySound
  00ae:4a 0c             send c 

  00b0:39 57            pushi 57 // $57 init
  00b2:76               push0 
  00b3:39 42            pushi 42 // $42 setPri
  00b5:78               push1 
  00b6:39 0a            pushi a // $a nsLeft
  00b8:38 00c6          pushi c6 // $c6 stopUpd
  00bb:76               push0 
  00bc:72 1115          lofsa $11d4 // Bucket
  00bf:4a 0e             send e 

  00c1:39 57            pushi 57 // $57 init
  00c3:76               push0 
  00c4:39 42            pushi 42 // $42 setPri
  00c6:78               push1 
  00c7:39 0a            pushi a // $a nsLeft
  00c9:38 00c6          pushi c6 // $c6 stopUpd
  00cc:76               push0 
  00cd:72 10b6          lofsa $1186 // Windlass
  00d0:4a 0e             send e 

  00d2:39 57            pushi 57 // $57 init
  00d4:76               push0 
  00d5:39 42            pushi 42 // $42 setPri
  00d7:78               push1 
  00d8:39 0a            pushi a // $a nsLeft
  00da:38 00c6          pushi c6 // $c6 stopUpd
  00dd:76               push0 
  00de:72 1057          lofsa $1138 // WHandle
  00e1:4a 0e             send e 

  00e3:38 00c9          pushi c9 // $c9 ignoreActors
  00e6:78               push1 
  00e7:78               push1 
  00e8:39 57            pushi 57 // $57 init
  00ea:76               push0 
  00eb:38 0089          pushi 89 // $89 hide
  00ee:76               push0 
  00ef:72 0ff8          lofsa $10ea // BigBucket
  00f2:4a 0e             send e 

  00f4:38 00a4          pushi a4 // $a4 cycleSpeed
  00f7:78               push1 
  00f8:78               push1 
  00f9:39 42            pushi 42 // $42 setPri
  00fb:78               push1 
  00fc:39 0a            pushi a // $a nsLeft
  00fe:39 57            pushi 57 // $57 init
  0100:76               push0 
  0101:38 00c6          pushi c6 // $c6 stopUpd
  0104:76               push0 
  0105:38 0089          pushi 89 // $89 hide
  0108:76               push0 
  0109:72 111a          lofsa $1226 // Splash
  010c:4a 18             send 18 

  010e:80 00df            lag gDetailLevel 
  0111:31 20              bnt code_0133 
  0113:39 42            pushi 42 // $42 setPri
  0115:78               push1 
  0116:39 09            pushi 9 // $9 nsTop
  0118:39 57            pushi 57 // $57 init
  011a:76               push0 
  011b:39 7a            pushi 7a // $7a setScript
  011d:78               push1 
  011e:74 0f63          lofss $1084 // showers
  0121:72 1150          lofsa $1274 // Light1
  0124:4a 10             send 10 

  0126:39 42            pushi 42 // $42 setPri
  0128:78               push1 
  0129:39 09            pushi 9 // $9 nsTop
  012b:39 57            pushi 57 // $57 init
  012d:76               push0 
  012e:72 1191          lofsa $12c2 // Light2
  0131:4a 0a             send a 


        code_0133
  0133:88 00a5            lsg gAct 
  0136:35 03              ldi 3 
  0138:20                 ge? 
  0139:31 34              bnt code_016f 
  013b:89 7b              lsg gCorpseFlags 
  013d:35 04              ldi 4 
  013f:12                 and 
  0140:18                 not 
  0141:31 2c              bnt code_016f 
  0143:89 7a              lsg global122 
  0145:35 18              ldi 18 
  0147:1c                 ne? 
  0148:31 25              bnt code_016f 
  014a:89 7a              lsg global122 
  014c:81 0b              lag gCurRoomNum 
  014e:1c                 ne? 
  014f:31 1e              bnt code_016f 
  0151:7a               push2 
  0152:78               push1 
  0153:7a               push2 
  0154:43 40 04         callk Random 4 

  0157:36                push 
  0158:3c                 dup 
  0159:35 01              ldi 1 
  015b:1a                 eq? 
  015c:31 06              bnt code_0164 
  015e:81 0b              lag gCurRoomNum 
  0160:a1 7a              sag global122 
  0162:33 0a              jmp code_016e 

        code_0164
  0164:3c                 dup 
  0165:35 02              ldi 2 
  0167:1a                 eq? 
  0168:31 04              bnt code_016e 
  016a:35 18              ldi 18 
  016c:a1 7a              sag global122 

        code_016e
  016e:3a                toss 

        code_016f
  016f:88 00a5            lsg gAct 
  0172:35 03              ldi 3 
  0174:1a                 eq? 
  0175:31 14              bnt code_018b 
  0177:89 73              lsg gJeevesChoresState 
  0179:35 07              ldi 7 
  017b:22                 lt? 
  017c:31 0d              bnt code_018b 
  017e:38 010a          pushi 10a // $10a setRegions
  0181:78               push1 
  0182:38 00cb          pushi cb // $cb addToPic
  0185:54 06             self 6 

  0187:35 18              ldi 18 
  0189:a1 7a              sag global122 

        code_018b
  018b:89 0c              lsg gPrevRoomNum 
  018d:3c                 dup 
  018e:35 1d              ldi 1d 
  0190:1a                 eq? 
  0191:31 10              bnt code_01a3 
  0193:38 00c5          pushi c5 // $c5 posn
  0196:7a               push2 
  0197:39 7e            pushi 7e // $7e setCycle
  0199:38 00bc          pushi bc // $bc motionInited
  019c:81 00              lag gEgo 
  019e:4a 08             send 8 

  01a0:32 0092            jmp code_0235 

        code_01a3
  01a3:3c                 dup 
  01a4:35 12              ldi 12 
  01a6:1a                 eq? 
  01a7:31 10              bnt code_01b9 
  01a9:38 00c5          pushi c5 // $c5 posn
  01ac:7a               push2 
  01ad:38 00ba          pushi ba // $ba targetX
  01b0:38 0085          pushi 85 // $85 check
  01b3:81 00              lag gEgo 
  01b5:4a 08             send 8 

  01b7:33 7c              jmp code_0235 

        code_01b9
  01b9:3c                 dup 
  01ba:35 16              ldi 16 
  01bc:1a                 eq? 
  01bd:31 1c              bnt code_01db 
  01bf:39 03            pushi 3 // $3 y
  01c1:76               push0 
  01c2:81 00              lag gEgo 
  01c4:4a 04             send 4 

  01c6:36                push 
  01c7:34 0096            ldi 96 
  01ca:1e                 gt? 
  01cb:31 0c              bnt code_01d9 
  01cd:38 00c5          pushi c5 // $c5 posn
  01d0:7a               push2 
  01d1:78               push1 
  01d2:38 00aa          pushi aa // $aa triedToMove
  01d5:81 00              lag gEgo 
  01d7:4a 08             send 8 


        code_01d9
  01d9:33 5a              jmp code_0235 

        code_01db
  01db:3c                 dup 
  01dc:35 11              ldi 11 
  01de:1a                 eq? 
  01df:31 0f              bnt code_01f0 
  01e1:38 00c5          pushi c5 // $c5 posn
  01e4:7a               push2 
  01e5:39 46            pushi 46 // $46 width
  01e7:38 0087          pushi 87 // $87 clean
  01ea:81 00              lag gEgo 
  01ec:4a 08             send 8 

  01ee:33 45              jmp code_0235 

        code_01f0
  01f0:3c                 dup 
  01f1:35 0c              ldi c 
  01f3:1a                 eq? 
  01f4:31 0f              bnt code_0205 
  01f6:38 00c5          pushi c5 // $c5 posn
  01f9:7a               push2 
  01fa:39 46            pushi 46 // $46 width
  01fc:38 0087          pushi 87 // $87 clean
  01ff:81 00              lag gEgo 
  0201:4a 08             send 8 

  0203:33 30              jmp code_0235 

        code_0205
  0205:3c                 dup 
  0206:35 18              ldi 18 
  0208:1a                 eq? 
  0209:31 2a              bnt code_0235 
  020b:39 03            pushi 3 // $3 y
  020d:76               push0 
  020e:81 00              lag gEgo 
  0210:4a 04             send 4 

  0212:36                push 
  0213:34 00a3            ldi a3 
  0216:22                 lt? 
  0217:31 1c              bnt code_0235 
  0219:39 03            pushi 3 // $3 y
  021b:76               push0 
  021c:81 00              lag gEgo 
  021e:4a 04             send 4 

  0220:36                push 
  0221:34 009c            ldi 9c 
  0224:1e                 gt? 
  0225:31 0e              bnt code_0235 
  0227:38 00c5          pushi c5 // $c5 posn
  022a:7a               push2 
  022b:38 013e          pushi 13e // $13e elevY
  022e:38 00a5          pushi a5 // $a5 cycler
  0231:81 00              lag gEgo 
  0233:4a 08             send 8 


        code_0235
  0235:3a                toss 
  0236:39 12            pushi 12 // $12 illegalBits
  0238:78               push1 
  0239:38 8000          pushi 8000 // $8000 sel_32768
  023c:39 05            pushi 5 // $5 view
  023e:78               push1 
  023f:76               push0 
  0240:39 57            pushi 57 // $57 init
  0242:76               push0 
  0243:81 00              lag gEgo 
  0245:4a 10             send 10 

  0247:48                 ret 
    )

    (method (doit) // method_0248
  0248:76               push0 
  0249:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  024c:31 0a              bnt code_0258 
  024e:7a               push2 
  024f:39 17            pushi 17 // $17 name
  0251:76               push0 
  0252:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0258
  0258:38 00db          pushi db // $db onControl
  025b:78               push1 
  025c:76               push0 
  025d:81 00              lag gEgo 
  025f:4a 06             send 6 

  0261:36                push 
  0262:35 02              ldi 2 
  0264:12                 and 
  0265:31 0a              bnt code_0271 
  0267:38 00f8          pushi f8 // $f8 newRoom
  026a:78               push1 
  026b:39 0c            pushi c // $c nsRight
  026d:81 02              lag gCurRoom 
  026f:4a 06             send 6 


        code_0271
  0271:38 00db          pushi db // $db onControl
  0274:78               push1 
  0275:76               push0 
  0276:81 00              lag gEgo 
  0278:4a 06             send 6 

  027a:36                push 
  027b:35 04              ldi 4 
  027d:12                 and 
  027e:31 0a              bnt code_028a 
  0280:38 00f8          pushi f8 // $f8 newRoom
  0283:78               push1 
  0284:39 12            pushi 12 // $12 illegalBits
  0286:81 02              lag gCurRoom 
  0288:4a 06             send 6 


        code_028a
  028a:39 3c            pushi 3c // $3c doit
  028c:76               push0 
  028d:57 37 04         super Rm 4 

  0290:48                 ret 
    )

    (method (dispose) // method_0291
  0291:78               push1 
  0292:38 03d7          pushi 3d7 // $3d7 sel_983
  0295:43 03 02         callk DisposeScript 2 

  0298:78               push1 
  0299:38 03d9          pushi 3d9 // $3d9 sel_985
  029c:43 03 02         callk DisposeScript 2 

  029f:78               push1 
  02a0:38 03cd          pushi 3cd // $3cd sel_973
  02a3:43 03 02         callk DisposeScript 2 

  02a6:39 58            pushi 58 // $58 dispose
  02a8:76               push0 
  02a9:57 37 04         super Rm 4 

  02ac:48                 ret 
    )

    (method (newRoom) // method_02ad
  02ad:83 04              lal local4 
  02af:31 0b              bnt code_02bc 
  02b1:89 7b              lsg gCorpseFlags 
  02b3:35 04              ldi 4 
  02b5:14                  or 
  02b6:a1 7b              sag gCorpseFlags 
  02b8:35 00              ldi 0 
  02ba:a1 7a              sag global122 

        code_02bc
  02bc:38 00f8          pushi f8 // $f8 newRoom
  02bf:78               push1 
  02c0:8f 01              lsp param1 
  02c2:57 37 06         super Rm 6 

  02c5:48                 ret 
    )

    (method (handleEvent) // method_02c6
  02c6:3f 01             link 1 // (var $1)
  02c8:39 4c            pushi 4c // $4c claimed
  02ca:76               push0 
  02cb:87 01              lap param1 
  02cd:4a 04             send 4 

  02cf:31 03              bnt code_02d4 
  02d1:35 01              ldi 1 
  02d3:48                 ret 

        code_02d4
  02d4:39 22            pushi 22 // $22 type
  02d6:76               push0 
  02d7:87 01              lap param1 
  02d9:4a 04             send 4 

  02db:36                push 
  02dc:34 0080            ldi 80 
  02df:1a                 eq? 
  02e0:30 02f1            bnt code_05d4 
  02e3:78               push1 
  02e4:74 0b71          lofss $0e58 // /body,actress>
  02e7:43 25 02         callk Said 2 

  02ea:30 00ff            bnt code_03ec 
  02ed:89 7a              lsg global122 
  02ef:81 0b              lag gCurRoomNum 
  02f1:1c                 ne? 
  02f2:31 15              bnt code_0309 
  02f4:39 4c            pushi 4c // $4c claimed
  02f6:78               push1 
  02f7:78               push1 
  02f8:87 01              lap param1 
  02fa:4a 06             send 6 

  02fc:7a               push2 
  02fd:39 17            pushi 17 // $17 name
  02ff:78               push1 
  0300:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0306:32 00e0            jmp code_03e9 

        code_0309
  0309:78               push1 
  030a:74 0bf8          lofss $0f05 // lift
  030d:43 25 02         callk Said 2 

  0310:31 33              bnt code_0345 
  0312:83 01              lal local1 
  0314:31 0c              bnt code_0322 
  0316:7a               push2 
  0317:39 17            pushi 17 // $17 name
  0319:7a               push2 
  031a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0320:33 20              jmp code_0342 

        code_0322
  0322:38 00a5          pushi a5 // $a5 cycler
  0325:76               push0 
  0326:72 0e5d          lofsa $1186 // Windlass
  0329:4a 04             send 4 

  032b:31 0d              bnt code_033a 
  032d:7a               push2 
  032e:39 17            pushi 17 // $17 name
  0330:39 03            pushi 3 // $3 y
  0332:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0338:33 08              jmp code_0342 

        code_033a
  033a:39 7a            pushi 7a // $7a setScript
  033c:78               push1 
  033d:74 0cb4          lofss $0ff4 // raiseBucket
  0340:54 06             self 6 


        code_0342
  0342:32 00a4            jmp code_03e9 

        code_0345
  0345:78               push1 
  0346:74 0c04          lofss $0f4d // abaisser,detendre
  0349:43 25 02         callk Said 2 

  034c:31 19              bnt code_0367 
  034e:83 01              lal local1 
  0350:18                 not 
  0351:31 0d              bnt code_0360 
  0353:7a               push2 
  0354:39 17            pushi 17 // $17 name
  0356:39 04            pushi 4 // $4 x
  0358:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  035e:33 04              jmp code_0364 

        code_0360
  0360:35 01              ldi 1 
  0362:a3 00              sal local0 

        code_0364
  0364:32 0082            jmp code_03e9 

        code_0367
  0367:78               push1 
  0368:74 0b85          lofss $0ef0 // abattre
  036b:43 25 02         callk Said 2 

  036e:31 0d              bnt code_037d 
  0370:7a               push2 
  0371:39 17            pushi 17 // $17 name
  0373:39 05            pushi 5 // $5 view
  0375:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  037b:33 6c              jmp code_03e9 

        code_037d
  037d:78               push1 
  037e:74 0b72          lofss $0ef3 // embrasser
  0381:43 25 02         callk Said 2 

  0384:31 0d              bnt code_0393 
  0386:7a               push2 
  0387:39 17            pushi 17 // $17 name
  0389:39 06            pushi 6 // $6 loop
  038b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0391:33 56              jmp code_03e9 

        code_0393
  0393:78               push1 
  0394:74 0b18          lofss $0eaf // embrace
  0397:43 25 02         callk Said 2 

  039a:31 0d              bnt code_03a9 
  039c:7a               push2 
  039d:39 17            pushi 17 // $17 name
  039f:39 07            pushi 7 // $7 cel
  03a1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03a7:33 40              jmp code_03e9 

        code_03a9
  03a9:78               push1 
  03aa:74 0bc2          lofss $0f6f // chercher,get,attirer,attirer,appuyer,bouger,(look<dans)
  03ad:43 25 02         callk Said 2 

  03b0:31 0d              bnt code_03bf 
  03b2:7a               push2 
  03b3:39 17            pushi 17 // $17 name
  03b5:39 08            pushi 8 // $8 underBits
  03b7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03bd:33 2a              jmp code_03e9 

        code_03bf
  03bf:78               push1 
  03c0:74 0b4e          lofss $0f11 // look
  03c3:43 25 02         callk Said 2 

  03c6:31 0d              bnt code_03d5 
  03c8:7a               push2 
  03c9:39 17            pushi 17 // $17 name
  03cb:39 09            pushi 9 // $9 nsTop
  03cd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03d3:33 14              jmp code_03e9 

        code_03d5
  03d5:78               push1 
  03d6:74 0b14          lofss $0eed // aider
  03d9:43 25 02         callk Said 2 

  03dc:31 0b              bnt code_03e9 
  03de:7a               push2 
  03df:39 17            pushi 17 // $17 name
  03e1:39 0a            pushi a // $a nsLeft
  03e3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_03e9
  03e9:32 01e8            jmp code_05d4 

        code_03ec
  03ec:89 7a              lsg global122 
  03ee:81 0b              lag gCurRoomNum 
  03f0:1a                 eq? 
  03f1:31 17              bnt code_040a 
  03f3:78               push1 
  03f4:74 0b1d          lofss $0f14 // look/boa
  03f7:43 25 02         callk Said 2 

  03fa:31 0e              bnt code_040a 
  03fc:7a               push2 
  03fd:39 17            pushi 17 // $17 name
  03ff:39 0b            pushi b // $b nsBottom
  0401:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0407:32 01ca            jmp code_05d4 

        code_040a
  040a:78               push1 
  040b:74 0b30          lofss $0f3e // look>
  040e:43 25 02         callk Said 2 

  0411:30 00e3            bnt code_04f7 
  0414:78               push1 
  0415:74 0a71          lofss $0e89 // [<around,at][/room]
  0418:43 25 02         callk Said 2 

  041b:31 0d              bnt code_042a 
  041d:7a               push2 
  041e:39 17            pushi 17 // $17 name
  0420:76               push0 
  0421:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0427:32 00ca            jmp code_04f4 

        code_042a
  042a:78               push1 
  042b:74 0a41          lofss $0e6f // /path
  042e:43 25 02         callk Said 2 

  0431:31 0e              bnt code_0441 
  0433:7a               push2 
  0434:39 17            pushi 17 // $17 name
  0436:39 0c            pushi c // $c nsRight
  0438:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  043e:32 00b3            jmp code_04f4 

        code_0441
  0441:78               push1 
  0442:74 0a2e          lofss $0e73 // <(dans,bas,dans)/puit
  0445:43 25 02         callk Said 2 

  0448:31 26              bnt code_0470 
  044a:83 01              lal local1 
  044c:31 14              bnt code_0462 
  044e:89 7a              lsg global122 
  0450:81 0b              lag gCurRoomNum 
  0452:1a                 eq? 
  0453:31 0d              bnt code_0462 
  0455:7a               push2 
  0456:39 17            pushi 17 // $17 name
  0458:39 0d            pushi d // $d lsTop
  045a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0460:33 0b              jmp code_046d 

        code_0462
  0462:39 7a            pushi 7a // $7a setScript
  0464:78               push1 
  0465:74 0bec          lofss $1054 // lookInWell
  0468:72 0ccd          lofsa $1138 // WHandle
  046b:4a 06             send 6 


        code_046d
  046d:32 0084            jmp code_04f4 

        code_0470
  0470:78               push1 
  0471:74 0a0e          lofss $0e82 // <dans/doghouse
  0474:43 25 02         callk Said 2 

  0477:31 06              bnt code_047f 
  0479:76               push0 
  047a:45 09 00         callb procedure_0009 0 // NotClose 

  047d:33 75              jmp code_04f4 

        code_047f
  047f:78               push1 
  0480:74 09e4          lofss $0e67 // /chanvre
  0483:43 25 02         callk Said 2 

  0486:31 0d              bnt code_0495 
  0488:7a               push2 
  0489:39 17            pushi 17 // $17 name
  048b:39 0e            pushi e // $e lsLeft
  048d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0493:33 5f              jmp code_04f4 

        code_0495
  0495:78               push1 
  0496:74 09b3          lofss $0e4c // /(door<basement),basement
  0499:43 25 02         callk Said 2 

  049c:31 0d              bnt code_04ab 
  049e:7a               push2 
  049f:39 17            pushi 17 // $17 name
  04a1:39 0f            pushi f // $f lsBottom
  04a3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04a9:33 49              jmp code_04f4 

        code_04ab
  04ab:78               push1 
  04ac:74 09b1          lofss $0e60 // /door,lamp
  04af:43 25 02         callk Said 2 

  04b2:31 0d              bnt code_04c1 
  04b4:7a               push2 
  04b5:39 17            pushi 17 // $17 name
  04b7:39 10            pushi 10 // $10 lsRight
  04b9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04bf:33 33              jmp code_04f4 

        code_04c1
  04c1:78               push1 
  04c2:74 09a6          lofss $0e6b // /monument
  04c5:43 25 02         callk Said 2 

  04c8:31 0d              bnt code_04d7 
  04ca:7a               push2 
  04cb:39 17            pushi 17 // $17 name
  04cd:39 11            pushi 11 // $11 signal
  04cf:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04d5:33 1d              jmp code_04f4 

        code_04d7
  04d7:78               push1 
  04d8:74 0a54          lofss $0f2f // look/doghouse
  04db:43 25 02         callk Said 2 

  04de:2f 09               bt code_04e9 
  04e0:78               push1 
  04e1:74 0a3c          lofss $0f20 // look/cabin<beauregard
  04e4:43 25 02         callk Said 2 

  04e7:31 0b              bnt code_04f4 

        code_04e9
  04e9:7a               push2 
  04ea:39 17            pushi 17 // $17 name
  04ec:39 12            pushi 12 // $12 illegalBits
  04ee:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_04f4
  04f4:32 00dd            jmp code_05d4 

        code_04f7
  04f7:78               push1 
  04f8:74 09ec          lofss $0ee7 // get/chanvre
  04fb:43 25 02         callk Said 2 

  04fe:31 0e              bnt code_050e 
  0500:7a               push2 
  0501:39 17            pushi 17 // $17 name
  0503:39 13            pushi 13 // $13 brTop
  0505:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  050b:32 00c6            jmp code_05d4 

        code_050e
  050e:78               push1 
  050f:74 09cf          lofss $0ee1 // get/control
  0512:43 25 02         callk Said 2 

  0515:31 0e              bnt code_0525 
  0517:7a               push2 
  0518:39 17            pushi 17 // $17 name
  051a:39 14            pushi 14 // $14 brLeft
  051c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0522:32 00af            jmp code_05d4 

        code_0525
  0525:78               push1 
  0526:74 0a36          lofss $0f5f // open/(door[<basement]),basement
  0529:43 25 02         callk Said 2 

  052c:31 07              bnt code_0535 
  052e:76               push0 
  052f:45 09 00         callb procedure_0009 0 // NotClose 

  0532:32 009f            jmp code_05d4 

        code_0535
  0535:78               push1 
  0536:74 095e          lofss $0e97 // chop,delier/chanvre,bucket
  0539:43 25 02         callk Said 2 

  053c:31 0e              bnt code_054c 
  053e:7a               push2 
  053f:39 17            pushi 17 // $17 name
  0541:39 15            pushi 15 // $15 brBottom
  0543:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0549:32 0088            jmp code_05d4 

        code_054c
  054c:8b 02              lsl local2 
  054e:35 01              ldi 1 
  0550:1a                 eq? 
  0551:31 0f              bnt code_0562 
  0553:78               push1 
  0554:74 094c          lofss $0ea3 // debarrasser/control,fontainier,bucket
  0557:43 25 02         callk Said 2 

  055a:31 06              bnt code_0562 
  055c:35 00              ldi 0 
  055e:a3 02              sal local2 
  0560:33 72              jmp code_05d4 

        code_0562
  0562:78               push1 
  0563:74 0a23          lofss $0f89 // vent,rotate/control,fontainier,chanvre
  0566:43 25 02         callk Said 2 

  0569:31 2c              bnt code_0597 
  056b:83 01              lal local1 
  056d:31 06              bnt code_0575 
  056f:35 01              ldi 1 
  0571:a3 00              sal local0 
  0573:33 20              jmp code_0595 

        code_0575
  0575:38 00a5          pushi a5 // $a5 cycler
  0578:76               push0 
  0579:72 0c0a          lofsa $1186 // Windlass
  057c:4a 04             send 4 

  057e:31 0d              bnt code_058d 
  0580:7a               push2 
  0581:39 17            pushi 17 // $17 name
  0583:39 03            pushi 3 // $3 y
  0585:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  058b:33 08              jmp code_0595 

        code_058d
  058d:39 7a            pushi 7a // $7a setScript
  058f:78               push1 
  0590:74 0a61          lofss $0ff4 // raiseBucket
  0593:54 06             self 6 


        code_0595
  0595:33 3d              jmp code_05d4 

        code_0597
  0597:78               push1 
  0598:74 0934          lofss $0ecf // enter,climb/puit,bucket
  059b:43 25 02         callk Said 2 

  059e:31 0d              bnt code_05ad 
  05a0:7a               push2 
  05a1:39 17            pushi 17 // $17 name
  05a3:39 16            pushi 16 // $16 brRight
  05a5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05ab:33 27              jmp code_05d4 

        code_05ad
  05ad:83 01              lal local1 
  05af:31 23              bnt code_05d4 
  05b1:83 02              lal local2 
  05b3:31 1f              bnt code_05d4 
  05b5:78               push1 
  05b6:74 093d          lofss $0ef6 // laisser,lacher/aller,fontainier,control
  05b9:43 25 02         callk Said 2 

  05bc:31 16              bnt code_05d4 
  05be:39 04            pushi 4 // $4 x
  05c0:78               push1 
  05c1:39 04            pushi 4 // $4 x
  05c3:76               push0 
  05c4:81 00              lag gEgo 
  05c6:4a 04             send 4 

  05c8:16                 neg 
  05c9:36                push 
  05ca:39 3a            pushi 3a // $3a heading
  05cc:78               push1 
  05cd:38 00b4          pushi b4 // $b4 escaping
  05d0:81 00              lag gEgo 
  05d2:4a 0c             send c 


        code_05d4
  05d4:48                 ret 
    )

)

// 0fee
(instance raiseBucket 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_05d5
  05d5:87 01              lap param1 
  05d7:65 0a             aTop state 
  05d9:36                push 
  05da:3c                 dup 
  05db:35 00              ldi 0 
  05dd:1a                 eq? 
  05de:31 77              bnt code_0657 
  05e0:76               push0 
  05e1:45 03 00         callb procedure_0003 0 // HandsOff 

  05e4:38 00d4          pushi d4 // $d4 setAvoider
  05e7:78               push1 
  05e8:39 56            pushi 56 // $56 new
  05ea:76               push0 
  05eb:51 21            class Avoid 
  05ed:4a 04             send 4 

  05ef:36                push 
  05f0:81 00              lag gEgo 
  05f2:4a 06             send 6 

  05f4:38 00da          pushi da // $da inRect
  05f7:39 04            pushi 4 // $4 x
  05f9:38 00de          pushi de // $de horizon
  05fc:39 73            pushi 73 // $73 seconds
  05fe:38 0140          pushi 140 // $140 upRoomNo
  0601:38 008b          pushi 8b // $8b select
  0604:81 00              lag gEgo 
  0606:4a 0c             send c 

  0608:31 0e              bnt code_0618 
  060a:38 00d3          pushi d3 // $d3 setMotion
  060d:7a               push2 
  060e:74 0da9          lofss $13ba // TopPath
  0611:7c            pushSelf 
  0612:81 00              lag gEgo 
  0614:4a 08             send 8 

  0616:33 38              jmp code_0650 

        code_0618
  0618:38 00da          pushi da // $da inRect
  061b:39 04            pushi 4 // $4 x
  061d:38 00de          pushi de // $de horizon
  0620:38 008b          pushi 8b // $8b select
  0623:38 0140          pushi 140 // $140 upRoomNo
  0626:38 009e          pushi 9e // $9e completed
  0629:81 00              lag gEgo 
  062b:4a 0c             send c 

  062d:31 0e              bnt code_063d 
  062f:38 00d3          pushi d3 // $d3 setMotion
  0632:7a               push2 
  0633:74 0dbe          lofss $13f4 // BotPath
  0636:7c            pushSelf 
  0637:81 00              lag gEgo 
  0639:4a 08             send 8 

  063b:33 13              jmp code_0650 

        code_063d
  063d:38 00d3          pushi d3 // $d3 setMotion
  0640:39 04            pushi 4 // $4 x
  0642:51 1d            class MoveTo 
  0644:36                push 
  0645:38 00c1          pushi c1 // $c1 gy
  0648:38 008e          pushi 8e // $8e move
  064b:7c            pushSelf 
  064c:81 00              lag gEgo 
  064e:4a 0c             send c 


        code_0650
  0650:35 01              ldi 1 
  0652:a3 02              sal local2 
  0654:32 02f2            jmp code_0949 

        code_0657
  0657:3c                 dup 
  0658:35 01              ldi 1 
  065a:1a                 eq? 
  065b:31 65              bnt code_06c2 
  065d:39 57            pushi 57 // $57 init
  065f:76               push0 
  0660:72 0e3f          lofsa $14a2 // wellCage
  0663:4a 04             send 4 

  0665:38 00d4          pushi d4 // $d4 setAvoider
  0668:78               push1 
  0669:76               push0 
  066a:38 00d8          pushi d8 // $d8 observeBlocks
  066d:78               push1 
  066e:74 0e31          lofss $14a2 // wellCage
  0671:38 0089          pushi 89 // $89 hide
  0674:76               push0 
  0675:81 00              lag gEgo 
  0677:4a 10             send 10 

  0679:39 06            pushi 6 // $6 loop
  067b:78               push1 
  067c:39 ff            pushi ff // $ff checkAni
  067e:39 2a            pushi 2a // $2a play
  0680:76               push0 
  0681:72 0d0c          lofsa $1390 // myMusic
  0684:4a 0a             send a 

  0686:39 05            pushi 5 // $5 view
  0688:78               push1 
  0689:39 33            pushi 33 // $33 b-di
  068b:39 06            pushi 6 // $6 loop
  068d:78               push1 
  068e:7a               push2 
  068f:39 07            pushi 7 // $7 cel
  0691:78               push1 
  0692:76               push0 
  0693:38 00c5          pushi c5 // $c5 posn
  0696:7a               push2 
  0697:38 00c1          pushi c1 // $c1 gy
  069a:38 008e          pushi 8e // $8e move
  069d:38 00a4          pushi a4 // $a4 cycleSpeed
  06a0:78               push1 
  06a1:78               push1 
  06a2:72 0a93          lofsa $1138 // WHandle
  06a5:4a 20             send 20 

  06a7:38 00a4          pushi a4 // $a4 cycleSpeed
  06aa:78               push1 
  06ab:78               push1 
  06ac:39 7e            pushi 7e // $7e setCycle
  06ae:78               push1 
  06af:51 16            class Fwd 
  06b1:36                push 
  06b2:72 0ad1          lofsa $1186 // Windlass
  06b5:4a 0c             send c 

  06b7:35 00              ldi 0 
  06b9:a3 03              sal local3 
  06bb:35 01              ldi 1 
  06bd:65 10             aTop cycles 
  06bf:32 0287            jmp code_0949 

        code_06c2
  06c2:3c                 dup 
  06c3:35 02              ldi 2 
  06c5:1a                 eq? 
  06c6:31 0f              bnt code_06d7 
  06c8:39 7e            pushi 7e // $7e setCycle
  06ca:7a               push2 
  06cb:51 1a            class End 
  06cd:36                push 
  06ce:7c            pushSelf 
  06cf:72 0a66          lofsa $1138 // WHandle
  06d2:4a 08             send 8 

  06d4:32 0272            jmp code_0949 

        code_06d7
  06d7:3c                 dup 
  06d8:35 03              ldi 3 
  06da:1a                 eq? 
  06db:31 12              bnt code_06ef 
  06dd:cb 03              +sl local3 
  06df:35 05              ldi 5 
  06e1:1c                 ne? 
  06e2:31 04              bnt code_06e8 
  06e4:35 01              ldi 1 
  06e6:65 0a             aTop state 

        code_06e8
  06e8:35 01              ldi 1 
  06ea:65 10             aTop cycles 
  06ec:32 025a            jmp code_0949 

        code_06ef
  06ef:3c                 dup 
  06f0:35 04              ldi 4 
  06f2:1a                 eq? 
  06f3:31 35              bnt code_072a 
  06f5:39 06            pushi 6 // $6 loop
  06f7:78               push1 
  06f8:89 7a              lsg global122 
  06fa:81 0b              lag gCurRoomNum 
  06fc:1a                 eq? 
  06fd:31 04              bnt code_0703 
  06ff:35 05              ldi 5 
  0701:33 02              jmp code_0705 

        code_0703
  0703:35 04              ldi 4 

        code_0705
  0705:36                push 
  0706:39 07            pushi 7 // $7 cel
  0708:78               push1 
  0709:76               push0 
  070a:38 00a4          pushi a4 // $a4 cycleSpeed
  070d:78               push1 
  070e:39 04            pushi 4 // $4 x
  0710:39 7e            pushi 7e // $7e setCycle
  0712:78               push1 
  0713:51 1a            class End 
  0715:36                push 
  0716:72 0abb          lofsa $11d4 // Bucket
  0719:4a 18             send 18 

  071b:39 7e            pushi 7e // $7e setCycle
  071d:7a               push2 
  071e:51 1a            class End 
  0720:36                push 
  0721:7c            pushSelf 
  0722:72 0a13          lofsa $1138 // WHandle
  0725:4a 08             send 8 

  0727:32 021f            jmp code_0949 

        code_072a
  072a:3c                 dup 
  072b:35 05              ldi 5 
  072d:1a                 eq? 
  072e:30 0148            bnt code_0879 
  0731:38 0084          pushi 84 // $84 stop
  0734:76               push0 
  0735:72 0c58          lofsa $1390 // myMusic
  0738:4a 04             send 4 

  073a:83 01              lal local1 
  073c:18                 not 
  073d:31 08              bnt code_0747 
  073f:35 01              ldi 1 
  0741:a3 01              sal local1 
  0743:76               push0 
  0744:45 04 00         callb procedure_0004 0 // HandsOn 


        code_0747
  0747:89 7a              lsg global122 
  0749:81 0b              lag gCurRoomNum 
  074b:1a                 eq? 
  074c:31 3e              bnt code_078c 
  074e:89 7b              lsg gCorpseFlags 
  0750:35 40              ldi 40 
  0752:12                 and 
  0753:18                 not 
  0754:31 36              bnt code_078c 
  0756:83 04              lal local4 
  0758:18                 not 
  0759:31 31              bnt code_078c 
  075b:39 2b            pushi 2b // $2b number
  075d:78               push1 
  075e:39 78            pushi 78 // $78 changeState
  0760:39 06            pushi 6 // $6 loop
  0762:78               push1 
  0763:78               push1 
  0764:39 2a            pushi 2a // $2a play
  0766:76               push0 
  0767:72 0bfc          lofsa $1366 // mySound
  076a:4a 10             send 10 

  076c:35 01              ldi 1 
  076e:a3 04              sal local4 
  0770:39 0b            pushi b // $b nsBottom
  0772:39 17            pushi 17 // $17 name
  0774:39 17            pushi 17 // $17 name
  0776:39 43            pushi 43 // $43 at
  0778:39 0a            pushi a // $a nsLeft
  077a:39 14            pushi 14 // $14 brLeft
  077c:39 52            pushi 52 // $52 icon
  077e:38 016b          pushi 16b // $16b sel_363
  0781:7a               push2 
  0782:76               push0 
  0783:39 1e            pushi 1e // $1e mode
  0785:78               push1 
  0786:46 00ff 0000 16  calle ff procedure_0000 16 // Print 


        code_078c
  078c:39 7e            pushi 7e // $7e setCycle
  078e:78               push1 
  078f:76               push0 
  0790:72 09f3          lofsa $1186 // Windlass
  0793:4a 06             send 6 

  0795:83 00              lal local0 
  0797:31 20              bnt code_07b9 
  0799:76               push0 
  079a:45 03 00         callb procedure_0003 0 // HandsOff 

  079d:35 00              ldi 0 
  079f:a3 00              sal local0 
  07a1:a3 01              sal local1 
  07a3:39 7a            pushi 7a // $7a setScript
  07a5:78               push1 
  07a6:74 087b          lofss $1024 // lowerBucket
  07a9:72 098c          lofsa $1138 // WHandle
  07ac:4a 06             send 6 

  07ae:35 09              ldi 9 
  07b0:65 0a             aTop state 
  07b2:35 01              ldi 1 
  07b4:65 10             aTop cycles 
  07b6:32 00bd            jmp code_0876 

        code_07b9
  07b9:83 02              lal local2 
  07bb:31 27              bnt code_07e4 
  07bd:39 04            pushi 4 // $4 x
  07bf:76               push0 
  07c0:81 00              lag gEgo 
  07c2:4a 04             send 4 

  07c4:36                push 
  07c5:34 00c1            ldi c1 
  07c8:1a                 eq? 
  07c9:31 19              bnt code_07e4 
  07cb:39 03            pushi 3 // $3 y
  07cd:76               push0 
  07ce:81 00              lag gEgo 
  07d0:4a 04             send 4 

  07d2:36                push 
  07d3:34 008e            ldi 8e 
  07d6:1a                 eq? 
  07d7:31 0b              bnt code_07e4 
  07d9:35 04              ldi 4 
  07db:65 0a             aTop state 
  07dd:35 01              ldi 1 
  07df:65 10             aTop cycles 
  07e1:32 0092            jmp code_0876 

        code_07e4
  07e4:35 00              ldi 0 
  07e6:a3 01              sal local1 
  07e8:39 06            pushi 6 // $6 loop
  07ea:78               push1 
  07eb:7a               push2 
  07ec:38 00c5          pushi c5 // $c5 posn
  07ef:7a               push2 
  07f0:38 00c1          pushi c1 // $c1 gy
  07f3:38 008e          pushi 8e // $8e move
  07f6:38 00d9          pushi d9 // $d9 ignoreBlocks
  07f9:78               push1 
  07fa:74 0ca5          lofss $14a2 // wellCage
  07fd:38 00ca          pushi ca // $ca show
  0800:76               push0 
  0801:39 7e            pushi 7e // $7e setCycle
  0803:78               push1 
  0804:51 17            class Walk 
  0806:36                push 
  0807:81 00              lag gEgo 
  0809:4a 1e             send 1e 

  080b:39 06            pushi 6 // $6 loop
  080d:78               push1 
  080e:39 ff            pushi ff // $ff checkAni
  0810:39 2a            pushi 2a // $2a play
  0812:76               push0 
  0813:72 0b7a          lofsa $1390 // myMusic
  0816:4a 0a             send a 

  0818:83 02              lal local2 
  081a:31 0e              bnt code_082a 
  081c:7a               push2 
  081d:89 00              lsg gEgo 
  081f:39 3a            pushi 3a // $3a heading
  0821:76               push0 
  0822:81 00              lag gEgo 
  0824:4a 04             send 4 

  0826:36                push 
  0827:43 50 04         callk DirLoop 4 


        code_082a
  082a:39 05            pushi 5 // $5 view
  082c:78               push1 
  082d:39 7b            pushi 7b // $7b cycleCnt
  082f:39 06            pushi 6 // $6 loop
  0831:78               push1 
  0832:39 06            pushi 6 // $6 loop
  0834:39 07            pushi 7 // $7 cel
  0836:78               push1 
  0837:76               push0 
  0838:38 00c5          pushi c5 // $c5 posn
  083b:7a               push2 
  083c:38 00cf          pushi cf // $cf blocks
  083f:39 6d            pushi 6d // $6d addAfter
  0841:38 00a4          pushi a4 // $a4 cycleSpeed
  0844:78               push1 
  0845:76               push0 
  0846:39 7e            pushi 7e // $7e setCycle
  0848:7a               push2 
  0849:51 1a            class End 
  084b:36                push 
  084c:7c            pushSelf 
  084d:72 08e8          lofsa $1138 // WHandle
  0850:4a 28             send 28 

  0852:38 00a4          pushi a4 // $a4 cycleSpeed
  0855:78               push1 
  0856:76               push0 
  0857:39 7e            pushi 7e // $7e setCycle
  0859:78               push1 
  085a:51 16            class Fwd 
  085c:36                push 
  085d:72 0926          lofsa $1186 // Windlass
  0860:4a 0c             send c 

  0862:38 00a4          pushi a4 // $a4 cycleSpeed
  0865:78               push1 
  0866:76               push0 
  0867:39 7e            pushi 7e // $7e setCycle
  0869:78               push1 
  086a:51 1b            class Beg 
  086c:36                push 
  086d:72 0964          lofsa $11d4 // Bucket
  0870:4a 0c             send c 

  0872:35 00              ldi 0 
  0874:a3 03              sal local3 

        code_0876
  0876:32 00d0            jmp code_0949 

        code_0879
  0879:3c                 dup 
  087a:35 06              ldi 6 
  087c:1a                 eq? 
  087d:31 25              bnt code_08a4 
  087f:39 06            pushi 6 // $6 loop
  0881:78               push1 
  0882:39 07            pushi 7 // $7 cel
  0884:39 07            pushi 7 // $7 cel
  0886:78               push1 
  0887:78               push1 
  0888:38 00c6          pushi c6 // $c6 stopUpd
  088b:76               push0 
  088c:72 0945          lofsa $11d4 // Bucket
  088f:4a 10             send 10 

  0891:39 07            pushi 7 // $7 cel
  0893:78               push1 
  0894:76               push0 
  0895:39 7e            pushi 7e // $7e setCycle
  0897:7a               push2 
  0898:51 1a            class End 
  089a:36                push 
  089b:7c            pushSelf 
  089c:72 0899          lofsa $1138 // WHandle
  089f:4a 0e             send e 

  08a1:32 00a5            jmp code_0949 

        code_08a4
  08a4:3c                 dup 
  08a5:35 07              ldi 7 
  08a7:1a                 eq? 
  08a8:31 12              bnt code_08bc 
  08aa:cb 03              +sl local3 
  08ac:35 05              ldi 5 
  08ae:1c                 ne? 
  08af:31 04              bnt code_08b5 
  08b1:35 05              ldi 5 
  08b3:65 0a             aTop state 

        code_08b5
  08b5:35 01              ldi 1 
  08b7:65 10             aTop cycles 
  08b9:32 008d            jmp code_0949 

        code_08bc
  08bc:3c                 dup 
  08bd:35 08              ldi 8 
  08bf:1a                 eq? 
  08c0:31 43              bnt code_0905 
  08c2:39 7e            pushi 7e // $7e setCycle
  08c4:78               push1 
  08c5:76               push0 
  08c6:72 08bd          lofsa $1186 // Windlass
  08c9:4a 06             send 6 

  08cb:39 07            pushi 7 // $7 cel
  08cd:78               push1 
  08ce:76               push0 
  08cf:38 00c6          pushi c6 // $c6 stopUpd
  08d2:76               push0 
  08d3:72 0862          lofsa $1138 // WHandle
  08d6:4a 0a             send a 

  08d8:38 0084          pushi 84 // $84 stop
  08db:76               push0 
  08dc:72 0ab1          lofsa $1390 // myMusic
  08df:4a 04             send 4 

  08e1:89 7a              lsg global122 
  08e3:81 0b              lag gCurRoomNum 
  08e5:1a                 eq? 
  08e6:31 06              bnt code_08ee 
  08e8:35 02              ldi 2 
  08ea:65 12             aTop seconds 
  08ec:33 15              jmp code_0903 

        code_08ee
  08ee:35 09              ldi 9 
  08f0:65 0a             aTop state 
  08f2:39 2b            pushi 2b // $2b number
  08f4:78               push1 
  08f5:39 52            pushi 52 // $52 icon
  08f7:39 2a            pushi 2a // $2a play
  08f9:76               push0 
  08fa:72 0a69          lofsa $1366 // mySound
  08fd:4a 0a             send a 

  08ff:35 01              ldi 1 
  0901:65 10             aTop cycles 

        code_0903
  0903:33 44              jmp code_0949 

        code_0905
  0905:3c                 dup 
  0906:35 09              ldi 9 
  0908:1a                 eq? 
  0909:31 1f              bnt code_092a 
  090b:39 2b            pushi 2b // $2b number
  090d:78               push1 
  090e:39 52            pushi 52 // $52 icon
  0910:39 2a            pushi 2a // $2a play
  0912:76               push0 
  0913:72 0a50          lofsa $1366 // mySound
  0916:4a 0a             send a 

  0918:39 7e            pushi 7e // $7e setCycle
  091a:7a               push2 
  091b:51 1a            class End 
  091d:36                push 
  091e:7c            pushSelf 
  091f:38 00ca          pushi ca // $ca show
  0922:76               push0 
  0923:72 0900          lofsa $1226 // Splash
  0926:4a 0c             send c 

  0928:33 1f              jmp code_0949 

        code_092a
  092a:3c                 dup 
  092b:35 0a              ldi a 
  092d:1a                 eq? 
  092e:31 19              bnt code_0949 
  0930:39 07            pushi 7 // $7 cel
  0932:78               push1 
  0933:76               push0 
  0934:38 0089          pushi 89 // $89 hide
  0937:76               push0 
  0938:72 08eb          lofsa $1226 // Splash
  093b:4a 0a             send a 

  093d:35 00              ldi 0 
  093f:a3 02              sal local2 
  0941:39 7a            pushi 7a // $7a setScript
  0943:78               push1 
  0944:76               push0 
  0945:63 08             pToa client 
  0947:4a 06             send 6 


        code_0949
  0949:3a                toss 
  094a:48                 ret 
    )

)

// 101e
(instance lowerBucket 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_094b
  094b:87 01              lap param1 
  094d:65 0a             aTop state 
  094f:36                push 
  0950:3c                 dup 
  0951:35 00              ldi 0 
  0953:1a                 eq? 
  0954:31 3b              bnt code_0991 
  0956:38 00a4          pushi a4 // $a4 cycleSpeed
  0959:78               push1 
  095a:78               push1 
  095b:39 7e            pushi 7e // $7e setCycle
  095d:78               push1 
  095e:51 16            class Fwd 
  0960:36                push 
  0961:72 0822          lofsa $1186 // Windlass
  0964:4a 0c             send c 

  0966:39 7e            pushi 7e // $7e setCycle
  0968:7a               push2 
  0969:51 1b            class Beg 
  096b:36                push 
  096c:7c            pushSelf 
  096d:72 0864          lofsa $11d4 // Bucket
  0970:4a 08             send 8 

  0972:39 7e            pushi 7e // $7e setCycle
  0974:78               push1 
  0975:51 18            class Rev 
  0977:36                push 
  0978:72 07bd          lofsa $1138 // WHandle
  097b:4a 06             send 6 

  097d:39 06            pushi 6 // $6 loop
  097f:78               push1 
  0980:39 ff            pushi ff // $ff checkAni
  0982:39 2a            pushi 2a // $2a play
  0984:76               push0 
  0985:72 0a08          lofsa $1390 // myMusic
  0988:4a 0a             send a 

  098a:35 00              ldi 0 
  098c:a3 03              sal local3 
  098e:32 00b6            jmp code_0a47 

        code_0991
  0991:3c                 dup 
  0992:35 01              ldi 1 
  0994:1a                 eq? 
  0995:31 19              bnt code_09b0 
  0997:39 06            pushi 6 // $6 loop
  0999:78               push1 
  099a:39 07            pushi 7 // $7 cel
  099c:39 07            pushi 7 // $7 cel
  099e:78               push1 
  099f:78               push1 
  09a0:38 00c6          pushi c6 // $c6 stopUpd
  09a3:76               push0 
  09a4:72 082d          lofsa $11d4 // Bucket
  09a7:4a 10             send 10 

  09a9:35 01              ldi 1 
  09ab:65 10             aTop cycles 
  09ad:32 0097            jmp code_0a47 

        code_09b0
  09b0:3c                 dup 
  09b1:35 02              ldi 2 
  09b3:1a                 eq? 
  09b4:31 0f              bnt code_09c5 
  09b6:39 7e            pushi 7e // $7e setCycle
  09b8:7a               push2 
  09b9:51 1b            class Beg 
  09bb:36                push 
  09bc:7c            pushSelf 
  09bd:72 0778          lofsa $1138 // WHandle
  09c0:4a 08             send 8 

  09c2:32 0082            jmp code_0a47 

        code_09c5
  09c5:3c                 dup 
  09c6:35 03              ldi 3 
  09c8:1a                 eq? 
  09c9:31 11              bnt code_09dc 
  09cb:cb 03              +sl local3 
  09cd:35 05              ldi 5 
  09cf:1c                 ne? 
  09d0:31 04              bnt code_09d6 
  09d2:35 01              ldi 1 
  09d4:65 0a             aTop state 

        code_09d6
  09d6:35 01              ldi 1 
  09d8:65 10             aTop cycles 
  09da:33 6b              jmp code_0a47 

        code_09dc
  09dc:3c                 dup 
  09dd:35 04              ldi 4 
  09df:1a                 eq? 
  09e0:31 65              bnt code_0a47 
  09e2:38 0084          pushi 84 // $84 stop
  09e5:76               push0 
  09e6:72 09a7          lofsa $1390 // myMusic
  09e9:4a 04             send 4 

  09eb:39 7e            pushi 7e // $7e setCycle
  09ed:78               push1 
  09ee:76               push0 
  09ef:72 0794          lofsa $1186 // Windlass
  09f2:4a 06             send 6 

  09f4:39 06            pushi 6 // $6 loop
  09f6:78               push1 
  09f7:7a               push2 
  09f8:38 00c5          pushi c5 // $c5 posn
  09fb:7a               push2 
  09fc:38 00c1          pushi c1 // $c1 gy
  09ff:38 008e          pushi 8e // $8e move
  0a02:38 00d9          pushi d9 // $d9 ignoreBlocks
  0a05:78               push1 
  0a06:74 0a99          lofss $14a2 // wellCage
  0a09:38 00ca          pushi ca // $ca show
  0a0c:76               push0 
  0a0d:39 7e            pushi 7e // $7e setCycle
  0a0f:78               push1 
  0a10:51 17            class Walk 
  0a12:36                push 
  0a13:81 00              lag gEgo 
  0a15:4a 1e             send 1e 

  0a17:39 05            pushi 5 // $5 view
  0a19:78               push1 
  0a1a:39 7b            pushi 7b // $7b cycleCnt
  0a1c:39 06            pushi 6 // $6 loop
  0a1e:78               push1 
  0a1f:39 06            pushi 6 // $6 loop
  0a21:39 07            pushi 7 // $7 cel
  0a23:78               push1 
  0a24:76               push0 
  0a25:38 00c5          pushi c5 // $c5 posn
  0a28:7a               push2 
  0a29:38 00cf          pushi cf // $cf blocks
  0a2c:39 6d            pushi 6d // $6d addAfter
  0a2e:38 00c6          pushi c6 // $c6 stopUpd
  0a31:76               push0 
  0a32:72 0703          lofsa $1138 // WHandle
  0a35:4a 1e             send 1e 

  0a37:76               push0 
  0a38:45 04 00         callb procedure_0004 0 // HandsOn 

  0a3b:35 00              ldi 0 
  0a3d:a3 02              sal local2 
  0a3f:39 7a            pushi 7a // $7a setScript
  0a41:78               push1 
  0a42:76               push0 
  0a43:63 08             pToa client 
  0a45:4a 06             send 6 


        code_0a47
  0a47:3a                toss 
  0a48:48                 ret 
    )

)

// 104e
(instance lookInWell 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_0a49
  0a49:87 01              lap param1 
  0a4b:65 0a             aTop state 
  0a4d:36                push 
  0a4e:3c                 dup 
  0a4f:35 00              ldi 0 
  0a51:1a                 eq? 
  0a52:30 0092            bnt code_0ae7 
  0a55:76               push0 
  0a56:45 03 00         callb procedure_0003 0 // HandsOff 

  0a59:83 01              lal local1 
  0a5b:31 07              bnt code_0a64 
  0a5d:35 01              ldi 1 
  0a5f:65 10             aTop cycles 
  0a61:32 0080            jmp code_0ae4 

        code_0a64
  0a64:38 00da          pushi da // $da inRect
  0a67:39 04            pushi 4 // $4 x
  0a69:38 00de          pushi de // $de horizon
  0a6c:39 73            pushi 73 // $73 seconds
  0a6e:38 0140          pushi 140 // $140 upRoomNo
  0a71:38 008b          pushi 8b // $8b select
  0a74:81 00              lag gEgo 
  0a76:4a 0c             send c 

  0a78:31 1a              bnt code_0a94 
  0a7a:38 00d4          pushi d4 // $d4 setAvoider
  0a7d:78               push1 
  0a7e:39 56            pushi 56 // $56 new
  0a80:76               push0 
  0a81:51 21            class Avoid 
  0a83:4a 04             send 4 

  0a85:36                push 
  0a86:38 00d3          pushi d3 // $d3 setMotion
  0a89:7a               push2 
  0a8a:74 09a1          lofss $142e // TopLPath
  0a8d:7c            pushSelf 
  0a8e:81 00              lag gEgo 
  0a90:4a 0e             send e 

  0a92:33 50              jmp code_0ae4 

        code_0a94
  0a94:38 00da          pushi da // $da inRect
  0a97:39 04            pushi 4 // $4 x
  0a99:38 00de          pushi de // $de horizon
  0a9c:38 008b          pushi 8b // $8b select
  0a9f:38 0140          pushi 140 // $140 upRoomNo
  0aa2:38 009e          pushi 9e // $9e completed
  0aa5:81 00              lag gEgo 
  0aa7:4a 0c             send c 

  0aa9:31 1a              bnt code_0ac5 
  0aab:38 00d4          pushi d4 // $d4 setAvoider
  0aae:78               push1 
  0aaf:39 56            pushi 56 // $56 new
  0ab1:76               push0 
  0ab2:51 21            class Avoid 
  0ab4:4a 04             send 4 

  0ab6:36                push 
  0ab7:38 00d3          pushi d3 // $d3 setMotion
  0aba:7a               push2 
  0abb:74 09aa          lofss $1468 // BotLPath
  0abe:7c            pushSelf 
  0abf:81 00              lag gEgo 
  0ac1:4a 0e             send e 

  0ac3:33 1f              jmp code_0ae4 

        code_0ac5
  0ac5:38 00d4          pushi d4 // $d4 setAvoider
  0ac8:78               push1 
  0ac9:39 56            pushi 56 // $56 new
  0acb:76               push0 
  0acc:51 21            class Avoid 
  0ace:4a 04             send 4 

  0ad0:36                push 
  0ad1:38 00d3          pushi d3 // $d3 setMotion
  0ad4:39 04            pushi 4 // $4 x
  0ad6:51 1d            class MoveTo 
  0ad8:36                push 
  0ad9:38 00d3          pushi d3 // $d3 setMotion
  0adc:38 0093          pushi 93 // $93 advance
  0adf:7c            pushSelf 
  0ae0:81 00              lag gEgo 
  0ae2:4a 12             send 12 


        code_0ae4
  0ae4:32 0130            jmp code_0c17 

        code_0ae7
  0ae7:3c                 dup 
  0ae8:35 01              ldi 1 
  0aea:1a                 eq? 
  0aeb:31 25              bnt code_0b12 
  0aed:83 01              lal local1 
  0aef:31 06              bnt code_0af7 
  0af1:35 01              ldi 1 
  0af3:65 10             aTop cycles 
  0af5:33 18              jmp code_0b0f 

        code_0af7
  0af7:39 05            pushi 5 // $5 view
  0af9:78               push1 
  0afa:39 37            pushi 37 // $37 yStep
  0afc:39 06            pushi 6 // $6 loop
  0afe:78               push1 
  0aff:76               push0 
  0b00:39 07            pushi 7 // $7 cel
  0b02:78               push1 
  0b03:76               push0 
  0b04:39 7e            pushi 7e // $7e setCycle
  0b06:7a               push2 
  0b07:51 1a            class End 
  0b09:36                push 
  0b0a:7c            pushSelf 
  0b0b:81 00              lag gEgo 
  0b0d:4a 1a             send 1a 


        code_0b0f
  0b0f:32 0105            jmp code_0c17 

        code_0b12
  0b12:3c                 dup 
  0b13:35 02              ldi 2 
  0b15:1a                 eq? 
  0b16:31 68              bnt code_0b80 
  0b18:39 62            pushi 62 // $62 eachElementDo
  0b1a:78               push1 
  0b1b:38 0089          pushi 89 // $89 hide
  0b1e:81 05              lag gCast 
  0b20:4a 06             send 6 

  0b22:83 01              lal local1 
  0b24:31 09              bnt code_0b2f 
  0b26:38 00ca          pushi ca // $ca show
  0b29:76               push0 
  0b2a:72 05bd          lofsa $10ea // BigBucket
  0b2d:4a 04             send 4 


        code_0b2f
  0b2f:7a               push2 
  0b30:39 46            pushi 46 // $46 width
  0b32:39 07            pushi 7 // $7 cel
  0b34:43 08 04         callk DrawPic 4 

  0b37:83 1d              lal local29 
  0b39:31 25              bnt code_0b60 
  0b3b:83 01              lal local1 
  0b3d:31 1b              bnt code_0b5a 
  0b3f:39 07            pushi 7 // $7 cel
  0b41:39 17            pushi 17 // $17 name
  0b43:39 18            pushi 18 // $18 key
  0b45:39 43            pushi 43 // $43 at
  0b47:38 00a0          pushi a0 // $a0 cycleDone
  0b4a:38 0084          pushi 84 // $84 stop
  0b4d:39 46            pushi 46 // $46 width
  0b4f:38 008c          pushi 8c // $8c track
  0b52:46 00ff 0000 0e  calle ff procedure_0000 e // Print 

  0b58:33 04              jmp code_0b5e 

        code_0b5a
  0b5a:76               push0 
  0b5b:45 12 00         callb procedure_0012 0 // NotHere 


        code_0b5e
  0b5e:33 19              jmp code_0b79 

        code_0b60
  0b60:39 07            pushi 7 // $7 cel
  0b62:39 17            pushi 17 // $17 name
  0b64:39 19            pushi 19 // $19 time
  0b66:39 43            pushi 43 // $43 at
  0b68:38 00a0          pushi a0 // $a0 cycleDone
  0b6b:38 0084          pushi 84 // $84 stop
  0b6e:39 46            pushi 46 // $46 width
  0b70:38 008c          pushi 8c // $8c track
  0b73:46 00ff 0000 0e  calle ff procedure_0000 e // Print 


        code_0b79
  0b79:35 01              ldi 1 
  0b7b:65 10             aTop cycles 
  0b7d:32 0097            jmp code_0c17 

        code_0b80
  0b80:3c                 dup 
  0b81:35 03              ldi 3 
  0b83:1a                 eq? 
  0b84:31 6c              bnt code_0bf2 
  0b86:35 00              ldi 0 
  0b88:a3 1d              sal local29 
  0b8a:76               push0 
  0b8b:45 0f 00         callb procedure_000f 0 // cls 

  0b8e:7a               push2 
  0b8f:89 0b              lsg gCurRoomNum 
  0b91:39 06            pushi 6 // $6 loop
  0b93:43 08 04         callk DrawPic 4 

  0b96:39 3c            pushi 3c // $3c doit
  0b98:76               push0 
  0b99:81 0a              lag gAddToPics 
  0b9b:4a 04             send 4 

  0b9d:39 62            pushi 62 // $62 eachElementDo
  0b9f:78               push1 
  0ba0:38 00ca          pushi ca // $ca show
  0ba3:81 05              lag gCast 
  0ba5:4a 06             send 6 

  0ba7:38 0089          pushi 89 // $89 hide
  0baa:76               push0 
  0bab:72 0678          lofsa $1226 // Splash
  0bae:4a 04             send 4 

  0bb0:38 0089          pushi 89 // $89 hide
  0bb3:76               push0 
  0bb4:72 0533          lofsa $10ea // BigBucket
  0bb7:4a 04             send 4 

  0bb9:76               push0 
  0bba:45 04 00         callb procedure_0004 0 // HandsOn 

  0bbd:83 01              lal local1 
  0bbf:31 1f              bnt code_0be0 
  0bc1:38 00c5          pushi c5 // $c5 posn
  0bc4:7a               push2 
  0bc5:38 00c1          pushi c1 // $c1 gy
  0bc8:38 008e          pushi 8e // $8e move
  0bcb:38 00d8          pushi d8 // $d8 observeBlocks
  0bce:78               push1 
  0bcf:74 08d0          lofss $14a2 // wellCage
  0bd2:38 0089          pushi 89 // $89 hide
  0bd5:76               push0 
  0bd6:81 00              lag gEgo 
  0bd8:4a 12             send 12 

  0bda:35 01              ldi 1 
  0bdc:65 10             aTop cycles 
  0bde:33 10              jmp code_0bf0 

        code_0be0
  0be0:38 00d4          pushi d4 // $d4 setAvoider
  0be3:78               push1 
  0be4:76               push0 
  0be5:39 7e            pushi 7e // $7e setCycle
  0be7:7a               push2 
  0be8:51 1b            class Beg 
  0bea:36                push 
  0beb:7c            pushSelf 
  0bec:81 00              lag gEgo 
  0bee:4a 0e             send e 


        code_0bf0
  0bf0:33 25              jmp code_0c17 

        code_0bf2
  0bf2:3c                 dup 
  0bf3:35 04              ldi 4 
  0bf5:1a                 eq? 
  0bf6:31 1f              bnt code_0c17 
  0bf8:83 01              lal local1 
  0bfa:18                 not 
  0bfb:31 0e              bnt code_0c0b 
  0bfd:39 05            pushi 5 // $5 view
  0bff:78               push1 
  0c00:76               push0 
  0c01:39 7e            pushi 7e // $7e setCycle
  0c03:78               push1 
  0c04:51 17            class Walk 
  0c06:36                push 
  0c07:81 00              lag gEgo 
  0c09:4a 0c             send c 


        code_0c0b
  0c0b:76               push0 
  0c0c:45 04 00         callb procedure_0004 0 // HandsOn 

  0c0f:39 7a            pushi 7a // $7a setScript
  0c11:78               push1 
  0c12:76               push0 
  0c13:63 08             pToa client 
  0c15:4a 06             send 6 


        code_0c17
  0c17:3a                toss 
  0c18:48                 ret 
    )

)

// 107e
(instance showers 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_0c19
  0c19:87 01              lap param1 
  0c1b:65 0a             aTop state 
  0c1d:36                push 
  0c1e:3c                 dup 
  0c1f:35 00              ldi 0 
  0c21:1a                 eq? 
  0c22:31 09              bnt code_0c2d 
  0c24:35 03              ldi 3 
  0c26:65 0a             aTop state 
  0c28:65 12             aTop seconds 
  0c2a:32 0081            jmp code_0cae 

        code_0c2d
  0c2d:3c                 dup 
  0c2e:35 01              ldi 1 
  0c30:1a                 eq? 
  0c31:31 1c              bnt code_0c4f 
  0c33:39 7e            pushi 7e // $7e setCycle
  0c35:78               push1 
  0c36:51 16            class Fwd 
  0c38:36                push 
  0c39:72 0638          lofsa $1274 // Light1
  0c3c:4a 06             send 6 

  0c3e:39 7e            pushi 7e // $7e setCycle
  0c40:78               push1 
  0c41:51 16            class Fwd 
  0c43:36                push 
  0c44:72 067b          lofsa $12c2 // Light2
  0c47:4a 06             send 6 

  0c49:35 07              ldi 7 
  0c4b:65 10             aTop cycles 
  0c4d:33 5f              jmp code_0cae 

        code_0c4f
  0c4f:3c                 dup 
  0c50:35 02              ldi 2 
  0c52:1a                 eq? 
  0c53:31 19              bnt code_0c6e 
  0c55:39 7e            pushi 7e // $7e setCycle
  0c57:78               push1 
  0c58:51 1a            class End 
  0c5a:36                push 
  0c5b:72 0616          lofsa $1274 // Light1
  0c5e:4a 06             send 6 

  0c60:39 7e            pushi 7e // $7e setCycle
  0c62:7a               push2 
  0c63:51 1a            class End 
  0c65:36                push 
  0c66:7c            pushSelf 
  0c67:72 0658          lofsa $12c2 // Light2
  0c6a:4a 08             send 8 

  0c6c:33 40              jmp code_0cae 

        code_0c6e
  0c6e:3c                 dup 
  0c6f:35 03              ldi 3 
  0c71:1a                 eq? 
  0c72:31 0f              bnt code_0c83 
  0c74:39 06            pushi 6 // $6 loop
  0c76:78               push1 
  0c77:78               push1 
  0c78:39 2a            pushi 2a // $2a play
  0c7a:78               push1 
  0c7b:7c            pushSelf 
  0c7c:72 06bd          lofsa $133c // Thunder
  0c7f:4a 0c             send c 

  0c81:33 2b              jmp code_0cae 

        code_0c83
  0c83:3c                 dup 
  0c84:35 04              ldi 4 
  0c86:1a                 eq? 
  0c87:31 17              bnt code_0ca0 
  0c89:7a               push2 
  0c8a:78               push1 
  0c8b:39 64            pushi 64 // $64 allTrue
  0c8d:43 40 04         callk Random 4 

  0c90:36                push 
  0c91:35 19              ldi 19 
  0c93:22                 lt? 
  0c94:31 04              bnt code_0c9a 
  0c96:35 00              ldi 0 
  0c98:65 0a             aTop state 

        code_0c9a
  0c9a:35 07              ldi 7 
  0c9c:65 10             aTop cycles 
  0c9e:33 0e              jmp code_0cae 

        code_0ca0
  0ca0:3c                 dup 
  0ca1:35 05              ldi 5 
  0ca3:1a                 eq? 
  0ca4:31 08              bnt code_0cae 
  0ca6:35 03              ldi 3 
  0ca8:65 0a             aTop state 
  0caa:35 05              ldi 5 
  0cac:65 12             aTop seconds 

        code_0cae
  0cae:3a                toss 
  0caf:48                 ret 
    )

)

// 10ae
(instance Well of RPicView
    (properties
        y $90
        x $df
        z $0
        heading $0
        view $7b
        loop $2
        cel $0
        priority $ffff
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0cb0
  0cb0:39 03            pushi 3 // $3 y
  0cb2:7c            pushSelf 
  0cb3:8f 01              lsp param1 
  0cb5:39 03            pushi 3 // $3 y
  0cb7:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0cbd:2f 09               bt code_0cc8 
  0cbf:78               push1 
  0cc0:74 027f          lofss $0f42 // look[<at]/puit
  0cc3:43 25 02         callk Said 2 

  0cc6:31 13              bnt code_0cdb 

        code_0cc8
  0cc8:39 4c            pushi 4c // $4c claimed
  0cca:78               push1 
  0ccb:78               push1 
  0ccc:87 01              lap param1 
  0cce:4a 06             send 6 

  0cd0:7a               push2 
  0cd1:39 17            pushi 17 // $17 name
  0cd3:39 1a            pushi 1a // $1a text
  0cd5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0cdb
  0cdb:48                 ret 
    )

)

// 10e4
(instance BigBucket of Prop
    (properties
        y $72
        x $9a
        z $0
        heading $0
        yStep $2
        view $aa
        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
    )
)

// 1132
(instance WHandle of Prop
    (properties
        y $6d
        x $cf
        z $0
        heading $0
        yStep $2
        view $7b
        loop $6
        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
    )
)

// 1180
(instance Windlass of Prop
    (properties
        y $71
        x $da
        z $0
        heading $0
        yStep $2
        view $7b
        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
    )
)

// 11ce
(instance Bucket of Prop
    (properties
        y $71
        x $df
        z $0
        heading $0
        yStep $2
        view $7b
        loop $7
        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
    )
    (method (handleEvent) // method_0cdc
  0cdc:78               push1 
  0cdd:74 0249          lofss $0f29 // look/control
  0ce0:43 25 02         callk Said 2 

  0ce3:31 24              bnt code_0d09 
  0ce5:38 00ee          pushi ee // $ee has
  0ce8:78               push1 
  0ce9:39 14            pushi 14 // $14 brLeft
  0ceb:81 00              lag gEgo 
  0ced:4a 06             send 6 

  0cef:31 0a              bnt code_0cfb 
  0cf1:39 4c            pushi 4c // $4c claimed
  0cf3:78               push1 
  0cf4:76               push0 
  0cf5:87 01              lap param1 
  0cf7:4a 06             send 6 

  0cf9:33 0b              jmp code_0d06 

        code_0cfb
  0cfb:7a               push2 
  0cfc:39 17            pushi 17 // $17 name
  0cfe:39 1b            pushi 1b // $1b elements
  0d00:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0d06
  0d06:32 010a            jmp code_0e13 

        code_0d09
  0d09:78               push1 
  0d0a:74 01a5          lofss $0eb2 // enter,(aller,hop,climb,get,asseoir)<dans/bucket,puit
  0d0d:43 25 02         callk Said 2 

  0d10:31 0e              bnt code_0d20 
  0d12:7a               push2 
  0d13:39 17            pushi 17 // $17 name
  0d15:39 1c            pushi 1c // $1c color
  0d17:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d1d:32 00f3            jmp code_0e13 

        code_0d20
  0d20:78               push1 
  0d21:74 0211          lofss $0f35 // look<dans/bucket
  0d24:43 25 02         callk Said 2 

  0d27:31 2a              bnt code_0d53 
  0d29:83 01              lal local1 
  0d2b:31 14              bnt code_0d41 
  0d2d:89 7a              lsg global122 
  0d2f:81 0b              lag gCurRoomNum 
  0d31:1a                 eq? 
  0d32:31 0d              bnt code_0d41 
  0d34:7a               push2 
  0d35:39 17            pushi 17 // $17 name
  0d37:39 0d            pushi d // $d lsTop
  0d39:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d3f:33 0f              jmp code_0d50 

        code_0d41
  0d41:35 01              ldi 1 
  0d43:a3 1d              sal local29 
  0d45:39 7a            pushi 7a // $7a setScript
  0d47:78               push1 
  0d48:74 0309          lofss $1054 // lookInWell
  0d4b:72 0486          lofsa $11d4 // Bucket
  0d4e:4a 06             send 6 


        code_0d50
  0d50:32 00c0            jmp code_0e13 

        code_0d53
  0d53:78               push1 
  0d54:74 01b1          lofss $0f08 // lift/bucket,chanvre
  0d57:43 25 02         callk Said 2 

  0d5a:31 36              bnt code_0d92 
  0d5c:83 01              lal local1 
  0d5e:31 0c              bnt code_0d6c 
  0d60:7a               push2 
  0d61:39 17            pushi 17 // $17 name
  0d63:7a               push2 
  0d64:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d6a:33 23              jmp code_0d8f 

        code_0d6c
  0d6c:38 00a5          pushi a5 // $a5 cycler
  0d6f:76               push0 
  0d70:72 0413          lofsa $1186 // Windlass
  0d73:4a 04             send 4 

  0d75:31 0d              bnt code_0d84 
  0d77:7a               push2 
  0d78:39 17            pushi 17 // $17 name
  0d7a:39 03            pushi 3 // $3 y
  0d7c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d82:33 0b              jmp code_0d8f 

        code_0d84
  0d84:39 7a            pushi 7a // $7a setScript
  0d86:78               push1 
  0d87:74 026a          lofss $0ff4 // raiseBucket
  0d8a:72 0217          lofsa $0fa4 // Room23
  0d8d:4a 06             send 6 


        code_0d8f
  0d8f:32 0081            jmp code_0e13 

        code_0d92
  0d92:78               push1 
  0d93:74 01bd          lofss $0f53 // abaisser,detendre/bucket,chanvre
  0d96:43 25 02         callk Said 2 

  0d99:31 18              bnt code_0db3 
  0d9b:83 01              lal local1 
  0d9d:18                 not 
  0d9e:31 0d              bnt code_0dad 
  0da0:7a               push2 
  0da1:39 17            pushi 17 // $17 name
  0da3:39 04            pushi 4 // $4 x
  0da5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0dab:33 04              jmp code_0db1 

        code_0dad
  0dad:35 01              ldi 1 
  0daf:a3 00              sal local0 

        code_0db1
  0db1:33 60              jmp code_0e13 

        code_0db3
  0db3:78               push1 
  0db4:74 0124          lofss $0edb // get/bucket
  0db7:43 25 02         callk Said 2 

  0dba:31 0d              bnt code_0dc9 
  0dbc:7a               push2 
  0dbd:39 17            pushi 17 // $17 name
  0dbf:39 1d            pushi 1d // $1d back
  0dc1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0dc7:33 4a              jmp code_0e13 

        code_0dc9
  0dc9:39 03            pushi 3 // $3 y
  0dcb:7c            pushSelf 
  0dcc:8f 01              lsp param1 
  0dce:39 03            pushi 3 // $3 y
  0dd0:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0dd6:2f 09               bt code_0de1 
  0dd8:78               push1 
  0dd9:74 013e          lofss $0f1a // look/bucket
  0ddc:43 25 02         callk Said 2 

  0ddf:31 32              bnt code_0e13 

        code_0de1
  0de1:39 4c            pushi 4c // $4c claimed
  0de3:78               push1 
  0de4:78               push1 
  0de5:87 01              lap param1 
  0de7:4a 06             send 6 

  0de9:83 01              lal local1 
  0deb:18                 not 
  0dec:31 06              bnt code_0df4 
  0dee:76               push0 
  0def:45 12 00         callb procedure_0012 0 // NotHere 

  0df2:33 1f              jmp code_0e13 

        code_0df4
  0df4:89 7a              lsg global122 
  0df6:81 0b              lag gCurRoomNum 
  0df8:1a                 eq? 
  0df9:31 0d              bnt code_0e08 
  0dfb:7a               push2 
  0dfc:39 17            pushi 17 // $17 name
  0dfe:39 1e            pushi 1e // $1e mode
  0e00:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0e06:33 0b              jmp code_0e13 

        code_0e08
  0e08:7a               push2 
  0e09:39 17            pushi 17 // $17 name
  0e0b:39 18            pushi 18 // $18 key
  0e0d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0e13
  0e13:48                 ret 
    )

)

// 1220
(instance Splash of Prop
    (properties
        y $7c
        x $df
        z $0
        heading $0
        yStep $2
        view $7b
        loop $8
        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
    )
)

// 126e
(instance Light1 of Prop
    (properties
        y $d
        x $105
        z $0
        heading $0
        yStep $2
        view $7b
        loop $0
        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
    )
)

// 12bc
(instance Light2 of Prop
    (properties
        y $12
        x $fb
        z $0
        heading $0
        yStep $2
        view $7b
        loop $1
        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
    )
)

// 130a
(instance House of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $6
        nsLeft $0
        nsBottom $62
        nsRight $e
    )
    (method (handleEvent) // method_0e14
  0e14:39 03            pushi 3 // $3 y
  0e16:7c            pushSelf 
  0e17:8f 01              lsp param1 
  0e19:39 03            pushi 3 // $3 y
  0e1b:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0e21:31 0f              bnt code_0e32 
  0e23:39 4c            pushi 4c // $4c claimed
  0e25:78               push1 
  0e26:78               push1 
  0e27:87 01              lap param1 
  0e29:4a 06             send 6 

  0e2b:78               push1 
  0e2c:74 073e          lofss $156d // house
  0e2f:45 19 02         callb procedure_0019 2 // DoLook 


        code_0e32
  0e32:48                 ret 
    )

)

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

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

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

// 13b4
(instance TopPath of Path
    (properties
        client $0
        caller $0
        x $0
        y $0
        dx $0
        dy $0
        b-moveCnt $0
        b-i1 $0
        b-i2 $0
        b-di $0
        b-xAxis $0
        b-incr $0
        completed $0
        intermediate $0
        value $0
    )
    (method (at) // method_0e33
  0e33:87 01              lap param1 
  0e35:93 05             lali local5 
  0e37:48                 ret 
    )

)

// 13ee
(instance BotPath of Path
    (properties
        client $0
        caller $0
        x $0
        y $0
        dx $0
        dy $0
        b-moveCnt $0
        b-i1 $0
        b-i2 $0
        b-di $0
        b-xAxis $0
        b-incr $0
        completed $0
        intermediate $0
        value $0
    )
    (method (at) // method_0e38
  0e38:87 01              lap param1 
  0e3a:93 0c             lali local12 
  0e3c:48                 ret 
    )

)

// 1428
(instance TopLPath of Path
    (properties
        client $0
        caller $0
        x $0
        y $0
        dx $0
        dy $0
        b-moveCnt $0
        b-i1 $0
        b-i2 $0
        b-di $0
        b-xAxis $0
        b-incr $0
        completed $0
        intermediate $0
        value $0
    )
    (method (at) // method_0e3d
  0e3d:87 01              lap param1 
  0e3f:93 11             lali local17 
  0e41:48                 ret 
    )

)

// 1462
(instance BotLPath of Path
    (properties
        client $0
        caller $0
        x $0
        y $0
        dx $0
        dy $0
        b-moveCnt $0
        b-i1 $0
        b-i2 $0
        b-di $0
        b-xAxis $0
        b-incr $0
        completed $0
        intermediate $0
        value $0
    )
    (method (at) // method_0e42
  0e42:87 01              lap param1 
  0e44:93 18             lali local24 
  0e46:48                 ret 
  0e47:00                bnot 
    )

)

// 149c
(instance wellCage of Cage
    (properties
        top $7d
        left $96
        bottom $a0
        right $eb
    )
)



