(script 994)

(string
    string_0c52 "Cancel"
    string_0c59 "Changer R{pertoire"
    string_0c6c "DNKR"
    string_0c71 "Free Heap: %u Bytes\nLargest ptr: %u Bytes\nFreeHunk: %u KBytes\nLargest hunk: %u Bytes"
    string_0cc6 "GAME"
    string_0ccb "Game"
    string_0cd0 "Locale"
    string_0cd7 "OK"
    string_0cda "RU"
    string_0cdd "Rgn"
    string_0ce1 "Rm"
    string_0ce4 "SAVE GAME"
    string_0cee "addToPics"
    string_0cf8 "cast"
    string_0cfd "features"
    string_0d06 "locales"
    string_0d0e "regions"
    string_0d16 "sFeatures"
    string_0d20 "sounds"
    string_0d27 "timers"
)

(said
)

(local
)

// 09a4
(class Game of Obj
    (properties
        script $0
    )
    (method (play) // method_00d6
  00d6:5c              selfID 
  00d7:a1 01              sag gGame 
  00d9:76               push0 
  00da:43 68 00         callk GetSaveDir 0 

  00dd:a1 1e              sag gCurSaveDir 
  00df:76               push0 
  00e0:43 30 00         callk GameIsRestarting 0 

  00e3:18                 not 
  00e4:31 06              bnt code_00ec 
  00e6:78               push1 
  00e7:89 1e              lsg gCurSaveDir 
  00e9:43 62 02         callk GetCWD 2 


        code_00ec
  00ec:38 00fe          pushi fe // $fe setCursor
  00ef:39 04            pushi 4 // $4 x
  00f1:89 15              lsg gWaitCursor 
  00f3:78               push1 
  00f4:38 0140          pushi 140 // $140 upRoomNo
  00f7:38 00c8          pushi c8 // $c8 setLoop
  00fa:54 0c             self c 

  00fc:39 57            pushi 57 // $57 init
  00fe:76               push0 
  00ff:54 04             self 4 

  0101:38 00fe          pushi fe // $fe setCursor
  0104:7a               push2 
  0105:89 14              lsg gNormalCursor 
  0107:76               push0 
  0108:43 27 00         callk HaveMouse 0 

  010b:36                push 
  010c:54 08             self 8 


        code_010e
  010e:81 04              lag gQuit 
  0110:18                 not 
  0111:31 0f              bnt code_0122 
  0113:39 3c            pushi 3c // $3c doit
  0115:76               push0 
  0116:54 04             self 4 

  0118:78               push1 
  0119:89 03              lsg gSpeed 
  011b:43 45 02         callk Wait 2 

  011e:a1 12              sag gAniInterval 
  0120:33 ec              jmp code_010e 

        code_0122
  0122:48                 ret 
    )

    (method (replay) // method_0123
  0123:81 18              lag gLastEvent 
  0125:31 07              bnt code_012e 
  0127:39 58            pushi 58 // $58 dispose
  0129:76               push0 
  012a:81 18              lag gLastEvent 
  012c:4a 04             send 4 


        code_012e
  012e:39 68            pushi 68 // $68 release
  0130:76               push0 
  0131:81 35              lag gSortedFeatures 
  0133:4a 04             send 4 

  0135:81 19              lag gModelessDialog 
  0137:31 07              bnt code_0140 
  0139:39 58            pushi 58 // $58 dispose
  013b:76               push0 
  013c:81 19              lag gModelessDialog 
  013e:4a 04             send 4 


        code_0140
  0140:39 62            pushi 62 // $62 eachElementDo
  0142:7a               push2 
  0143:39 5b            pushi 5b // $5b perform
  0145:74 0ada          lofss $0c22 // RU
  0148:81 05              lag gCast 
  014a:4a 08             send 8 

  014c:38 00fe          pushi fe // $fe setCursor
  014f:7a               push2 
  0150:89 15              lsg gWaitCursor 
  0152:78               push1 
  0153:81 01              lag gGame 
  0155:4a 08             send 8 

  0157:39 04            pushi 4 // $4 x
  0159:38 0101          pushi 101 // $101 curPic
  015c:76               push0 
  015d:81 02              lag gCurRoom 
  015f:4a 04             send 4 

  0161:36                push 
  0162:39 64            pushi 64 // $64 allTrue
  0164:78               push1 
  0165:89 3d              lsg global61 
  0167:43 08 08         callk DrawPic 8 

  016a:89 39              lsg global57 
  016c:35 ff              ldi ff 
  016e:1c                 ne? 
  016f:31 0c              bnt code_017d 
  0171:39 04            pushi 4 // $4 x
  0173:89 39              lsg global57 
  0175:39 64            pushi 64 // $64 allTrue
  0177:76               push0 
  0178:89 3d              lsg global61 
  017a:43 08 08         callk DrawPic 8 


        code_017d
  017d:38 00e3          pushi e3 // $e3 controls
  0180:76               push0 
  0181:81 02              lag gCurRoom 
  0183:4a 04             send 4 

  0185:31 0d              bnt code_0194 
  0187:39 53            pushi 53 // $53 draw
  0189:76               push0 
  018a:38 00e3          pushi e3 // $e3 controls
  018d:76               push0 
  018e:81 02              lag gCurRoom 
  0190:4a 04             send 4 

  0192:4a 04             send 4 


        code_0194
  0194:39 3c            pushi 3c // $3c doit
  0196:76               push0 
  0197:81 0a              lag gAddToPics 
  0199:4a 04             send 4 

  019b:38 00fe          pushi fe // $fe setCursor
  019e:7a               push2 
  019f:89 14              lsg gNormalCursor 
  01a1:76               push0 
  01a2:43 27 00         callk HaveMouse 0 

  01a5:36                push 
  01a6:81 01              lag gGame 
  01a8:4a 08             send 8 

  01aa:78               push1 
  01ab:39 07            pushi 7 // $7 cel
  01ad:43 31 02         callk DoSound 2 

  01b0:38 0086          pushi 86 // $86 pause
  01b3:78               push1 
  01b4:76               push0 
  01b5:51 0a            class Sound 
  01b7:4a 06             send 6 


        code_01b9
  01b9:81 04              lag gQuit 
  01bb:18                 not 
  01bc:31 0f              bnt code_01cd 
  01be:39 3c            pushi 3c // $3c doit
  01c0:76               push0 
  01c1:54 04             self 4 

  01c3:78               push1 
  01c4:89 03              lsg gSpeed 
  01c6:43 45 02         callk Wait 2 

  01c9:a1 12              sag gAniInterval 
  01cb:33 ec              jmp code_01b9 

        code_01cd
  01cd:48                 ret 
    )

    (method (init) // method_01ce
  01ce:3f 01             link 1 // (var $1)
  01d0:51 1c            class Motion 
  01d2:a5 00              sat temp0 
  01d4:51 0a            class Sound 
  01d6:a5 00              sat temp0 
  01d8:39 61            pushi 61 // $61 add
  01da:76               push0 
  01db:72 095c          lofsa $0b3a // cast
  01de:a1 05              sag gCast 
  01e0:4a 04             send 4 

  01e2:39 61            pushi 61 // $61 add
  01e4:76               push0 
  01e5:72 096e          lofsa $0b56 // features
  01e8:a1 34              sag gFeatures 
  01ea:4a 04             send 4 

  01ec:39 61            pushi 61 // $61 add
  01ee:76               push0 
  01ef:72 0980          lofsa $0b72 // sFeatures
  01f2:a1 35              sag gSortedFeatures 
  01f4:4a 04             send 4 

  01f6:39 61            pushi 61 // $61 add
  01f8:76               push0 
  01f9:72 0996          lofsa $0b92 // sounds
  01fc:a1 08              sag gSounds 
  01fe:4a 04             send 4 

  0200:39 61            pushi 61 // $61 add
  0202:76               push0 
  0203:72 09a8          lofsa $0bae // regions
  0206:a1 06              sag gRegions 
  0208:4a 04             send 4 

  020a:39 61            pushi 61 // $61 add
  020c:76               push0 
  020d:72 09ba          lofsa $0bca // locales
  0210:a1 1d              sag gLocales 
  0212:4a 04             send 4 

  0214:39 61            pushi 61 // $61 add
  0216:76               push0 
  0217:72 09cc          lofsa $0be6 // addToPics
  021a:a1 0a              sag gAddToPics 
  021c:4a 04             send 4 

  021e:39 61            pushi 61 // $61 add
  0220:76               push0 
  0221:72 09e2          lofsa $0c06 // timers
  0224:a1 07              sag gTimers 
  0226:4a 04             send 4 

  0228:76               push0 
  0229:43 68 00         callk GetSaveDir 0 

  022c:a1 1e              sag gCurSaveDir 
  022e:39 57            pushi 57 // $57 init
  0230:76               push0 
  0231:51 34            class Inv 
  0233:4a 04             send 4 

  0235:39 57            pushi 57 // $57 init
  0237:76               push0 
  0238:51 2b            class User 
  023a:4a 04             send 4 

  023c:48                 ret 
    )

    (method (doit) // method_023d
  023d:39 62            pushi 62 // $62 eachElementDo
  023f:78               push1 
  0240:38 0085          pushi 85 // $85 check
  0243:81 08              lag gSounds 
  0245:4a 06             send 6 

  0247:39 62            pushi 62 // $62 eachElementDo
  0249:78               push1 
  024a:39 3c            pushi 3c // $3c doit
  024c:81 07              lag gTimers 
  024e:4a 06             send 6 

  0250:7a               push2 
  0251:39 1b            pushi 1b // $1b elements
  0253:76               push0 
  0254:81 05              lag gCast 
  0256:4a 04             send 4 

  0258:36                push 
  0259:78               push1 
  025a:43 0b 04         callk Animate 4 

  025d:81 3a              lag global58 
  025f:31 0e              bnt code_026f 
  0261:35 00              ldi 0 
  0263:a1 3a              sag global58 
  0265:39 62            pushi 62 // $62 eachElementDo
  0267:78               push1 
  0268:38 00a1          pushi a1 // $a1 motionCue
  026b:81 05              lag gCast 
  026d:4a 06             send 6 


        code_026f
  026f:63 08             pToa script 
  0271:31 07              bnt code_027a 
  0273:39 3c            pushi 3c // $3c doit
  0275:76               push0 
  0276:63 08             pToa script 
  0278:4a 04             send 4 


        code_027a
  027a:39 62            pushi 62 // $62 eachElementDo
  027c:78               push1 
  027d:39 3c            pushi 3c // $3c doit
  027f:81 06              lag gRegions 
  0281:4a 06             send 6 

  0283:39 3c            pushi 3c // $3c doit
  0285:76               push0 
  0286:51 2b            class User 
  0288:4a 04             send 4 

  028a:89 0d              lsg gNewRoomNum 
  028c:81 0b              lag gCurRoomNum 
  028e:1c                 ne? 
  028f:31 08              bnt code_0299 
  0291:38 00f8          pushi f8 // $f8 newRoom
  0294:78               push1 
  0295:89 0d              lsg gNewRoomNum 
  0297:54 06             self 6 


        code_0299
  0299:39 62            pushi 62 // $62 eachElementDo
  029b:78               push1 
  029c:39 54            pushi 54 // $54 delete
  029e:81 07              lag gTimers 
  02a0:4a 06             send 6 

  02a2:78               push1 
  02a3:76               push0 
  02a4:43 30 02         callk GameIsRestarting 2 

  02a7:48                 ret 
    )

    (method (showSelf) // method_02a8
  02a8:39 5a            pushi 5a // $5a showSelf
  02aa:76               push0 
  02ab:81 06              lag gRegions 
  02ad:4a 04             send 4 

  02af:48                 ret 
    )

    (method (newRoom) // method_02b0
  02b0:3f 05             link 5 // (var $5)
  02b2:39 58            pushi 58 // $58 dispose
  02b4:76               push0 
  02b5:81 0a              lag gAddToPics 
  02b7:4a 04             send 4 

  02b9:39 62            pushi 62 // $62 eachElementDo
  02bb:78               push1 
  02bc:39 58            pushi 58 // $58 dispose
  02be:39 68            pushi 68 // $68 release
  02c0:76               push0 
  02c1:81 34              lag gFeatures 
  02c3:4a 0a             send a 

  02c5:39 62            pushi 62 // $62 eachElementDo
  02c7:78               push1 
  02c8:39 58            pushi 58 // $58 dispose
  02ca:39 62            pushi 62 // $62 eachElementDo
  02cc:78               push1 
  02cd:39 54            pushi 54 // $54 delete
  02cf:81 05              lag gCast 
  02d1:4a 0c             send c 

  02d3:39 62            pushi 62 // $62 eachElementDo
  02d5:78               push1 
  02d6:39 54            pushi 54 // $54 delete
  02d8:81 07              lag gTimers 
  02da:4a 06             send 6 

  02dc:39 62            pushi 62 // $62 eachElementDo
  02de:7a               push2 
  02df:39 5b            pushi 5b // $5b perform
  02e1:74 095a          lofss $0c3e // DNKR
  02e4:39 68            pushi 68 // $68 release
  02e6:76               push0 
  02e7:81 06              lag gRegions 
  02e9:4a 0c             send c 

  02eb:39 62            pushi 62 // $62 eachElementDo
  02ed:78               push1 
  02ee:39 58            pushi 58 // $58 dispose
  02f0:39 68            pushi 68 // $68 release
  02f2:76               push0 
  02f3:81 1d              lag gLocales 
  02f5:4a 0a             send a 

  02f7:78               push1 
  02f8:76               push0 
  02f9:43 0b 02         callk Animate 2 

  02fc:81 0b              lag gCurRoomNum 
  02fe:a1 0c              sag gPrevRoomNum 
  0300:87 01              lap param1 
  0302:a1 0b              sag gCurRoomNum 
  0304:87 01              lap param1 
  0306:a1 0d              sag gNewRoomNum 
  0308:78               push1 
  0309:8f 01              lsp param1 
  030b:43 6b 02         callk FlushResources 2 

  030e:38 00fe          pushi fe // $fe setCursor
  0311:7a               push2 
  0312:89 15              lsg gWaitCursor 
  0314:78               push1 
  0315:54 08             self 8 

  0317:a5 03              sat temp3 
  0319:38 00f9          pushi f9 // $f9 startRoom
  031c:78               push1 
  031d:89 0b              lsg gCurRoomNum 
  031f:38 00ff          pushi ff // $ff checkAni
  0322:76               push0 
  0323:38 00fe          pushi fe // $fe setCursor
  0326:7a               push2 
  0327:8d 03              lst temp3 
  0329:76               push0 
  032a:43 27 00         callk HaveMouse 0 

  032d:36                push 
  032e:54 12             self 12 

  0330:78               push1 
  0331:89 06              lsg gRegions 
  0333:43 26 02         callk SetSynonyms 2 


        code_0336
  0336:39 22            pushi 22 // $22 type
  0338:76               push0 
  0339:39 56            pushi 56 // $56 new
  033b:78               push1 
  033c:39 03            pushi 3 // $3 y
  033e:51 06            class Event 
  0340:4a 06             send 6 

  0342:a5 04              sat temp4 
  0344:4a 04             send 4 

  0346:31 09              bnt code_0351 
  0348:39 58            pushi 58 // $58 dispose
  034a:76               push0 
  034b:85 04              lat temp4 
  034d:4a 04             send 4 

  034f:33 e5              jmp code_0336 

        code_0351
  0351:39 58            pushi 58 // $58 dispose
  0353:76               push0 
  0354:85 04              lat temp4 
  0356:4a 04             send 4 

  0358:48                 ret 
    )

    (method (checkAni) // method_0359
  0359:3f 01             link 1 // (var $1)
  035b:7a               push2 
  035c:39 1b            pushi 1b // $1b elements
  035e:76               push0 
  035f:81 05              lag gCast 
  0361:4a 04             send 4 

  0363:36                push 
  0364:76               push0 
  0365:43 0b 04         callk Animate 4 

  0368:78               push1 
  0369:76               push0 
  036a:43 45 02         callk Wait 2 

  036d:7a               push2 
  036e:39 1b            pushi 1b // $1b elements
  0370:76               push0 
  0371:81 05              lag gCast 
  0373:4a 04             send 4 

  0375:36                push 
  0376:76               push0 
  0377:43 0b 04         callk Animate 4 


        code_037a
  037a:78               push1 
  037b:76               push0 
  037c:43 45 02         callk Wait 2 

  037f:36                push 
  0380:81 32              lag gAniThreshold 
  0382:1e                 gt? 
  0383:31 34              bnt code_03b9 
  0385:39 63            pushi 63 // $63 firstTrue
  0387:78               push1 
  0388:38 00cc          pushi cc // $cc isExtra
  038b:81 05              lag gCast 
  038d:4a 06             send 6 

  038f:a5 00              sat temp0 
  0391:36                push 
  0392:35 00              ldi 0 
  0394:1a                 eq? 
  0395:31 02              bnt code_0399 
  0397:33 20              jmp code_03b9 

        code_0399
  0399:38 00cb          pushi cb // $cb addToPic
  039c:76               push0 
  039d:85 00              lat temp0 
  039f:4a 04             send 4 

  03a1:7a               push2 
  03a2:39 1b            pushi 1b // $1b elements
  03a4:76               push0 
  03a5:81 05              lag gCast 
  03a7:4a 04             send 4 

  03a9:36                push 
  03aa:76               push0 
  03ab:43 0b 04         callk Animate 4 

  03ae:39 62            pushi 62 // $62 eachElementDo
  03b0:78               push1 
  03b1:39 54            pushi 54 // $54 delete
  03b3:81 05              lag gCast 
  03b5:4a 06             send 6 

  03b7:33 c1              jmp code_037a 

        code_03b9
  03b9:48                 ret 
    )

    (method (startRoom) // method_03ba
  03ba:81 0e              lag gDebugOn 
  03bc:31 04              bnt code_03c2 
  03be:76               push0 
  03bf:43 57 00         callk SetDebug 0 


        code_03c2
  03c2:39 6b            pushi 6b // $6b addToFront
  03c4:78               push1 
  03c5:39 57            pushi 57 // $57 init
  03c7:76               push0 
  03c8:39 5f            pushi 5f // $5f yourself
  03ca:76               push0 
  03cb:78               push1 
  03cc:8f 01              lsp param1 
  03ce:43 02 02         callk ScriptID 2 

  03d1:a1 02              sag gCurRoom 
  03d3:4a 08             send 8 

  03d5:36                push 
  03d6:81 06              lag gRegions 
  03d8:4a 06             send 6 

  03da:39 05            pushi 5 // $5 view
  03dc:76               push0 
  03dd:81 00              lag gEgo 
  03df:4a 04             send 4 

  03e1:36                push 
  03e2:35 00              ldi 0 
  03e4:1a                 eq? 
  03e5:31 09              bnt code_03f0 
  03e7:39 05            pushi 5 // $5 view
  03e9:78               push1 
  03ea:39 0b            pushi b // $b nsBottom
  03ec:81 00              lag gEgo 
  03ee:4a 06             send 6 


        code_03f0
  03f0:48                 ret 
    )

    (method (handleEvent) // method_03f1
  03f1:39 6f            pushi 6f // $6f handleEvent
  03f3:78               push1 
  03f4:8f 01              lsp param1 
  03f6:81 06              lag gRegions 
  03f8:4a 06             send 6 

  03fa:2f 1a               bt code_0416 
  03fc:39 6f            pushi 6f // $6f handleEvent
  03fe:78               push1 
  03ff:8f 01              lsp param1 
  0401:81 1d              lag gLocales 
  0403:4a 06             send 6 

  0405:2f 0f               bt code_0416 
  0407:63 08             pToa script 
  0409:31 0d              bnt code_0418 
  040b:39 6f            pushi 6f // $6f handleEvent
  040d:78               push1 
  040e:8f 01              lsp param1 
  0410:63 08             pToa script 
  0412:4a 06             send 6 

  0414:31 02              bnt code_0418 

        code_0416
  0416:35 01              ldi 1 

        code_0418
  0418:39 4c            pushi 4c // $4c claimed
  041a:76               push0 
  041b:87 01              lap param1 
  041d:4a 04             send 4 

  041f:48                 ret 
    )

    (method (changeScore) // method_0420
  0420:89 0f              lsg gScore 
  0422:87 01              lap param1 
  0424:02                 add 
  0425:a1 0f              sag gScore 
  0427:48                 ret 
    )

    (method (restart) // method_0428
  0428:81 19              lag gModelessDialog 
  042a:31 07              bnt code_0433 
  042c:39 58            pushi 58 // $58 dispose
  042e:76               push0 
  042f:81 19              lag gModelessDialog 
  0431:4a 04             send 4 


        code_0433
  0433:76               push0 
  0434:43 2f 00         callk RestartGame 0 

  0437:48                 ret 
    )

    (method (save) // method_0438
  0438:3f 17             link 17 // (var $17)
  043a:7a               push2 
  043b:38 0087          pushi 87 // $87 clean
  043e:89 17              lsg gSmallFont 
  0440:43 00 04         callk Load 4 

  0443:7a               push2 
  0444:38 0088          pushi 88 // $88 fade
  0447:89 15              lsg gWaitCursor 
  0449:43 00 04         callk Load 4 

  044c:38 0086          pushi 86 // $86 pause
  044f:78               push1 
  0450:78               push1 
  0451:51 0a            class Sound 
  0453:4a 06             send 6 

  0455:a5 16              sat temp22 
  0457:78               push1 
  0458:78               push1 
  0459:40 fba7 02        call proc_0004 2 

  045d:31 63              bnt code_04c2 
  045f:81 19              lag gModelessDialog 
  0461:31 07              bnt code_046a 
  0463:39 58            pushi 58 // $58 dispose
  0465:76               push0 
  0466:81 19              lag gModelessDialog 
  0468:4a 04             send 4 


        code_046a
  046a:39 3c            pushi 3c // $3c doit
  046c:78               push1 
  046d:5b 04 00           lea 4 0 
  0470:36                push 
  0471:51 32            class Save 
  0473:4a 06             send 6 

  0475:a5 14              sat temp20 
  0477:36                push 
  0478:35 ff              ldi ff 
  047a:1c                 ne? 
  047b:31 3f              bnt code_04bc 
  047d:38 00fe          pushi fe // $fe setCursor
  0480:7a               push2 
  0481:89 15              lsg gWaitCursor 
  0483:78               push1 
  0484:54 08             self 8 

  0486:a5 15              sat temp21 
  0488:39 04            pushi 4 // $4 x
  048a:67 06             pTos name 
  048c:8d 14              lst temp20 
  048e:5b 04 00           lea 4 0 
  0491:36                push 
  0492:89 1c              lsg gVersion 
  0494:43 2d 08         callk SaveGame 8 

  0497:18                 not 
  0498:31 15              bnt code_04af 
  049a:39 07            pushi 7 // $7 cel
  049c:38 03e2          pushi 3e2 // $3e2 sel_994
  049f:76               push0 
  04a0:39 21            pushi 21 // $21 font
  04a2:76               push0 
  04a3:39 51            pushi 51 // $51 button
  04a5:74 082f          lofss $0cd7 // OK
  04a8:78               push1 
  04a9:46 00ff 0000 0e  calle ff procedure_0000 e // Print 


        code_04af
  04af:38 00fe          pushi fe // $fe setCursor
  04b2:7a               push2 
  04b3:8d 15              lst temp21 
  04b5:76               push0 
  04b6:43 27 00         callk HaveMouse 0 

  04b9:36                push 
  04ba:54 08             self 8 


        code_04bc
  04bc:78               push1 
  04bd:76               push0 
  04be:40 fb42 02        call proc_0004 2 


        code_04c2
  04c2:38 0086          pushi 86 // $86 pause
  04c5:78               push1 
  04c6:8d 16              lst temp22 
  04c8:51 0a            class Sound 
  04ca:4a 06             send 6 

  04cc:48                 ret 
    )

    (method (restore) // method_04cd
  04cd:3f 17             link 17 // (var $17)
  04cf:7a               push2 
  04d0:38 0087          pushi 87 // $87 clean
  04d3:89 17              lsg gSmallFont 
  04d5:43 00 04         callk Load 4 

  04d8:38 00fe          pushi fe // $fe setCursor
  04db:78               push1 
  04dc:89 14              lsg gNormalCursor 
  04de:54 06             self 6 

  04e0:a5 15              sat temp21 
  04e2:38 0086          pushi 86 // $86 pause
  04e5:78               push1 
  04e6:78               push1 
  04e7:51 0a            class Sound 
  04e9:4a 06             send 6 

  04eb:a5 16              sat temp22 
  04ed:78               push1 
  04ee:78               push1 
  04ef:40 fb11 02        call proc_0004 2 

  04f3:31 79              bnt code_056e 
  04f5:81 19              lag gModelessDialog 
  04f7:31 07              bnt code_0500 
  04f9:39 58            pushi 58 // $58 dispose
  04fb:76               push0 
  04fc:81 19              lag gModelessDialog 
  04fe:4a 04             send 4 


        code_0500
  0500:39 3c            pushi 3c // $3c doit
  0502:76               push0 
  0503:59 01            &rest 1 
  0505:51 31            class Restore 
  0507:4a 04             send 4 

  0509:a5 14              sat temp20 
  050b:36                push 
  050c:35 ff              ldi ff 
  050e:1c                 ne? 
  050f:31 57              bnt code_0568 
  0511:38 00fe          pushi fe // $fe setCursor
  0514:7a               push2 
  0515:89 15              lsg gWaitCursor 
  0517:78               push1 
  0518:54 08             self 8 

  051a:39 03            pushi 3 // $3 y
  051c:67 06             pTos name 
  051e:8d 14              lst temp20 
  0520:89 1c              lsg gVersion 
  0522:43 69 06         callk CheckSaveGame 6 

  0525:31 1f              bnt code_0546 
  0527:39 62            pushi 62 // $62 eachElementDo
  0529:78               push1 
  052a:39 58            pushi 58 // $58 dispose
  052c:81 05              lag gCast 
  052e:4a 06             send 6 

  0530:39 62            pushi 62 // $62 eachElementDo
  0532:78               push1 
  0533:39 54            pushi 54 // $54 delete
  0535:81 05              lag gCast 
  0537:4a 06             send 6 

  0539:39 03            pushi 3 // $3 y
  053b:67 06             pTos name 
  053d:8d 14              lst temp20 
  053f:89 1c              lsg gVersion 
  0541:43 2e 06         callk RestoreGame 6 

  0544:33 22              jmp code_0568 

        code_0546
  0546:39 07            pushi 7 // $7 cel
  0548:38 03e2          pushi 3e2 // $3e2 sel_994
  054b:78               push1 
  054c:39 21            pushi 21 // $21 font
  054e:76               push0 
  054f:39 51            pushi 51 // $51 button
  0551:74 0783          lofss $0cd7 // OK
  0554:78               push1 
  0555:46 00ff 0000 0e  calle ff procedure_0000 e // Print 

  055b:38 00fe          pushi fe // $fe setCursor
  055e:7a               push2 
  055f:8d 15              lst temp21 
  0561:76               push0 
  0562:43 27 00         callk HaveMouse 0 

  0565:36                push 
  0566:54 08             self 8 


        code_0568
  0568:78               push1 
  0569:76               push0 
  056a:40 fa96 02        call proc_0004 2 


        code_056e
  056e:38 0086          pushi 86 // $86 pause
  0571:78               push1 
  0572:8d 16              lst temp22 
  0574:51 0a            class Sound 
  0576:4a 06             send 6 

  0578:48                 ret 
    )

    (method (setSpeed) // method_0579
  0579:3f 01             link 1 // (var $1)
  057b:81 03              lag gSpeed 
  057d:a5 00              sat temp0 
  057f:87 01              lap param1 
  0581:a1 03              sag gSpeed 
  0583:85 00              lat temp0 
  0585:48                 ret 
    )

    (method (setCursor) // method_0586
  0586:3f 01             link 1 // (var $1)
  0588:81 13              lag gTheCursor 
  058a:a5 00              sat temp0 
  058c:87 01              lap param1 
  058e:a1 13              sag gTheCursor 
  0590:8f 00              lsp paramTotal 
  0592:35 01              ldi 1 
  0594:1a                 eq? 
  0595:31 08              bnt code_059f 
  0597:78               push1 
  0598:8f 01              lsp param1 
  059a:43 28 02         callk SetCursor 2 

  059d:33 08              jmp code_05a7 

        code_059f
  059f:7a               push2 
  05a0:8f 01              lsp param1 
  05a2:8f 02              lsp param2 
  05a4:43 28 04         callk SetCursor 4 


        code_05a7
  05a7:85 00              lat temp0 
  05a9:48                 ret 
    )

    (method (showMem) // method_05aa
  05aa:39 05            pushi 5 // $5 view
  05ac:74 06c2          lofss $0c71 // Free Heap: %u Bytes
Largest ptr: %u Bytes
FreeHunk: %u KBytes
Largest hunk: %u Bytes
  05af:78               push1 
  05b0:78               push1 
  05b1:43 5c 02         callk MemoryInfo 2 

  05b4:36                push 
  05b5:78               push1 
  05b6:76               push0 
  05b7:43 5c 02         callk MemoryInfo 2 

  05ba:36                push 
  05bb:78               push1 
  05bc:39 03            pushi 3 // $3 y
  05be:43 5c 02         callk MemoryInfo 2 

  05c1:36                push 
  05c2:35 06              ldi 6 
  05c4:0c                 shr 
  05c5:36                push 
  05c6:78               push1 
  05c7:7a               push2 
  05c8:43 5c 02         callk MemoryInfo 2 

  05cb:36                push 
  05cc:46 00ff 0004 0a  calle ff procedure_0004 a // Printf 

  05d2:48                 ret 
    )

    (method (wordFail) // method_05d3
  05d3:3f 64             link 64 // (var $64)
  05d5:78               push1 
  05d6:39 04            pushi 4 // $4 x
  05d8:5b 04 00           lea 4 0 
  05db:36                push 
  05dc:38 03e2          pushi 3e2 // $3e2 sel_994
  05df:7a               push2 
  05e0:8f 01              lsp param1 
  05e2:43 4c 08         callk Format 8 

  05e5:36                push 
  05e6:46 00ff 0000 02  calle ff procedure_0000 2 // Print 

  05ec:35 00              ldi 0 
  05ee:48                 ret 
    )

    (method (syntaxFail) // method_05ef
  05ef:7a               push2 
  05f0:38 03e2          pushi 3e2 // $3e2 sel_994
  05f3:39 03            pushi 3 // $3 y
  05f5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05fb:48                 ret 
    )

    (method (semanticFail) // method_05fc
  05fc:7a               push2 
  05fd:38 03e2          pushi 3e2 // $3e2 sel_994
  0600:39 04            pushi 4 // $4 x
  0602:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0608:48                 ret 
    )

    (method (pragmaFail) // method_0609
  0609:7a               push2 
  060a:78               push1 
  060b:39 03            pushi 3 // $3 y
  060d:43 40 04         callk Random 4 

  0610:36                push 
  0611:3c                 dup 
  0612:35 01              ldi 1 
  0614:1a                 eq? 
  0615:31 0e              bnt code_0625 
  0617:7a               push2 
  0618:38 03e2          pushi 3e2 // $3e2 sel_994
  061b:39 05            pushi 5 // $5 view
  061d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0623:33 26              jmp code_064b 

        code_0625
  0625:3c                 dup 
  0626:35 02              ldi 2 
  0628:1a                 eq? 
  0629:31 0e              bnt code_0639 
  062b:7a               push2 
  062c:38 03e2          pushi 3e2 // $3e2 sel_994
  062f:39 06            pushi 6 // $6 loop
  0631:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0637:33 12              jmp code_064b 

        code_0639
  0639:3c                 dup 
  063a:35 03              ldi 3 
  063c:1a                 eq? 
  063d:31 0c              bnt code_064b 
  063f:7a               push2 
  0640:38 03e2          pushi 3e2 // $3e2 sel_994
  0643:39 07            pushi 7 // $7 cel
  0645:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_064b
  064b:3a                toss 
  064c:48                 ret 
    )

    (method (notify) // method_064d
  064d:48                 ret 
    )

    (method (setScript) // method_064e
  064e:63 08             pToa script 
  0650:31 07              bnt code_0659 
  0652:39 58            pushi 58 // $58 dispose
  0654:76               push0 
  0655:63 08             pToa script 
  0657:4a 04             send 4 


        code_0659
  0659:87 01              lap param1 
  065b:65 08             aTop script 
  065d:31 0a              bnt code_0669 
  065f:39 57            pushi 57 // $57 init
  0661:78               push1 
  0662:7c            pushSelf 
  0663:59 02            &rest 2 
  0665:63 08             pToa script 
  0667:4a 06             send 6 


        code_0669
  0669:48                 ret 
    )

    (method (cue) // method_066a
  066a:63 08             pToa script 
  066c:31 07              bnt code_0675 
  066e:39 79            pushi 79 // $79 cue
  0670:76               push0 
  0671:63 08             pToa script 
  0673:4a 04             send 4 


        code_0675
  0675:48                 ret 
    )

)

// 0a24
(class Rgn of Obj
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_0676
  0676:63 10             pToa initialized 
  0678:18                 not 
  0679:31 1d              bnt code_0698 
  067b:35 01              ldi 1 
  067d:65 10             aTop initialized 
  067f:39 65            pushi 65 // $65 contains
  0681:78               push1 
  0682:7c            pushSelf 
  0683:81 06              lag gRegions 
  0685:4a 06             send 6 

  0687:18                 not 
  0688:31 08              bnt code_0692 
  068a:39 6c            pushi 6c // $6c addToEnd
  068c:78               push1 
  068d:7c            pushSelf 
  068e:81 06              lag gRegions 
  0690:4a 06             send 6 


        code_0692
  0692:39 57            pushi 57 // $57 init
  0694:76               push0 
  0695:57 00 04         super Obj 4 


        code_0698
  0698:48                 ret 
    )

    (method (doit) // method_0699
  0699:63 08             pToa script 
  069b:31 07              bnt code_06a4 
  069d:39 3c            pushi 3c // $3c doit
  069f:76               push0 
  06a0:63 08             pToa script 
  06a2:4a 04             send 4 


        code_06a4
  06a4:48                 ret 
    )

    (method (handleEvent) // method_06a5
  06a5:63 08             pToa script 
  06a7:31 09              bnt code_06b2 
  06a9:39 6f            pushi 6f // $6f handleEvent
  06ab:78               push1 
  06ac:8f 01              lsp param1 
  06ae:63 08             pToa script 
  06b0:4a 06             send 6 


        code_06b2
  06b2:39 4c            pushi 4c // $4c claimed
  06b4:76               push0 
  06b5:87 01              lap param1 
  06b7:4a 04             send 4 

  06b9:48                 ret 
    )

    (method (dispose) // method_06ba
  06ba:39 54            pushi 54 // $54 delete
  06bc:78               push1 
  06bd:7c            pushSelf 
  06be:81 06              lag gRegions 
  06c0:4a 06             send 6 

  06c2:78               push1 
  06c3:67 08             pTos script 
  06c5:43 06 02         callk IsObject 2 

  06c8:31 07              bnt code_06d1 
  06ca:39 58            pushi 58 // $58 dispose
  06cc:76               push0 
  06cd:63 08             pToa script 
  06cf:4a 04             send 4 


        code_06d1
  06d1:78               push1 
  06d2:67 0c             pTos timer 
  06d4:43 06 02         callk IsObject 2 

  06d7:31 07              bnt code_06e0 
  06d9:39 58            pushi 58 // $58 dispose
  06db:76               push0 
  06dc:63 0c             pToa timer 
  06de:4a 04             send 4 


        code_06e0
  06e0:39 62            pushi 62 // $62 eachElementDo
  06e2:7a               push2 
  06e3:38 0087          pushi 87 // $87 clean
  06e6:7c            pushSelf 
  06e7:81 08              lag gSounds 
  06e9:4a 08             send 8 

  06eb:78               push1 
  06ec:67 0a             pTos number 
  06ee:43 03 02         callk DisposeScript 2 

  06f1:48                 ret 
    )

    (method (setScript) // method_06f2
  06f2:78               push1 
  06f3:67 08             pTos script 
  06f5:43 06 02         callk IsObject 2 

  06f8:31 07              bnt code_0701 
  06fa:39 58            pushi 58 // $58 dispose
  06fc:76               push0 
  06fd:63 08             pToa script 
  06ff:4a 04             send 4 


        code_0701
  0701:87 01              lap param1 
  0703:65 08             aTop script 
  0705:31 0a              bnt code_0711 
  0707:39 57            pushi 57 // $57 init
  0709:78               push1 
  070a:7c            pushSelf 
  070b:59 02            &rest 2 
  070d:63 08             pToa script 
  070f:4a 06             send 6 


        code_0711
  0711:48                 ret 
    )

    (method (cue) // method_0712
  0712:63 08             pToa script 
  0714:31 07              bnt code_071d 
  0716:39 79            pushi 79 // $79 cue
  0718:76               push0 
  0719:63 08             pToa script 
  071b:4a 04             send 4 


        code_071d
  071d:48                 ret 
    )

    (method (newRoom) // method_071e
  071e:48                 ret 
    )

    (method (notify) // method_071f
  071f:48                 ret 
    )

)

// 0a78
(class Rm of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $0
        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_0720
  0720:3f 02             link 2 // (var $2)
  0722:81 0b              lag gCurRoomNum 
  0724:65 0a             aTop number 
  0726:63 18             pToa controls 
  0728:65 18             aTop controls 
  072a:63 24             pToa picAngle 
  072c:a1 33              sag gPerspective 
  072e:63 12             pToa picture 
  0730:31 08              bnt code_073a 
  0732:38 010d          pushi 10d // $10d drawPic
  0735:78               push1 
  0736:67 12             pTos picture 
  0738:54 06             self 6 


        code_073a
  073a:38 00eb          pushi eb // $eb edgeHit
  073d:76               push0 
  073e:38 00e1          pushi e1 // $e1 alterEgo
  0741:76               push0 
  0742:51 2b            class User 
  0744:4a 04             send 4 

  0746:a5 01              sat temp1 
  0748:4a 04             send 4 

  074a:36                push 
  074b:3c                 dup 
  074c:35 01              ldi 1 
  074e:1a                 eq? 
  074f:31 0c              bnt code_075d 
  0751:39 03            pushi 3 // $3 y
  0753:78               push1 
  0754:38 00bc          pushi bc // $bc motionInited
  0757:85 01              lat temp1 
  0759:4a 06             send 6 

  075b:33 43              jmp code_07a0 

        code_075d
  075d:3c                 dup 
  075e:35 04              ldi 4 
  0760:1a                 eq? 
  0761:31 15              bnt code_0778 
  0763:39 04            pushi 4 // $4 x
  0765:78               push1 
  0766:38 013f          pushi 13f // $13f chainY
  0769:39 36            pushi 36 // $36 xStep
  076b:76               push0 
  076c:85 01              lat temp1 
  076e:4a 04             send 4 

  0770:04                 sub 
  0771:36                push 
  0772:85 01              lat temp1 
  0774:4a 06             send 6 

  0776:33 28              jmp code_07a0 

        code_0778
  0778:3c                 dup 
  0779:35 03              ldi 3 
  077b:1a                 eq? 
  077c:31 14              bnt code_0792 
  077e:39 03            pushi 3 // $3 y
  0780:78               push1 
  0781:67 16             pTos horizon 
  0783:39 37            pushi 37 // $37 yStep
  0785:76               push0 
  0786:85 01              lat temp1 
  0788:4a 04             send 4 

  078a:02                 add 
  078b:36                push 
  078c:85 01              lat temp1 
  078e:4a 06             send 6 

  0790:33 0e              jmp code_07a0 

        code_0792
  0792:3c                 dup 
  0793:35 02              ldi 2 
  0795:1a                 eq? 
  0796:31 08              bnt code_07a0 
  0798:39 04            pushi 4 // $4 x
  079a:78               push1 
  079b:78               push1 
  079c:85 01              lat temp1 
  079e:4a 06             send 6 


        code_07a0
  07a0:3a                toss 
  07a1:38 00eb          pushi eb // $eb edgeHit
  07a4:78               push1 
  07a5:76               push0 
  07a6:85 01              lat temp1 
  07a8:4a 06             send 6 

  07aa:48                 ret 
    )

    (method (doit) // method_07ab
  07ab:3f 01             link 1 // (var $1)
  07ad:63 08             pToa script 
  07af:31 07              bnt code_07b8 
  07b1:39 3c            pushi 3c // $3c doit
  07b3:76               push0 
  07b4:63 08             pToa script 
  07b6:4a 04             send 4 


        code_07b8
  07b8:38 00eb          pushi eb // $eb edgeHit
  07bb:76               push0 
  07bc:38 00e1          pushi e1 // $e1 alterEgo
  07bf:76               push0 
  07c0:51 2b            class User 
  07c2:4a 04             send 4 

  07c4:4a 04             send 4 

  07c6:36                push 
  07c7:3c                 dup 
  07c8:35 01              ldi 1 
  07ca:1a                 eq? 
  07cb:31 04              bnt code_07d1 
  07cd:63 1a             pToa north 
  07cf:33 1c              jmp code_07ed 

        code_07d1
  07d1:3c                 dup 
  07d2:35 02              ldi 2 
  07d4:1a                 eq? 
  07d5:31 04              bnt code_07db 
  07d7:63 1c             pToa east 
  07d9:33 12              jmp code_07ed 

        code_07db
  07db:3c                 dup 
  07dc:35 03              ldi 3 
  07de:1a                 eq? 
  07df:31 04              bnt code_07e5 
  07e1:63 1e             pToa south 
  07e3:33 08              jmp code_07ed 

        code_07e5
  07e5:3c                 dup 
  07e6:35 04              ldi 4 
  07e8:1a                 eq? 
  07e9:31 02              bnt code_07ed 
  07eb:63 20             pToa west 

        code_07ed
  07ed:3a                toss 
  07ee:a5 00              sat temp0 
  07f0:31 08              bnt code_07fa 
  07f2:38 00f8          pushi f8 // $f8 newRoom
  07f5:78               push1 
  07f6:8d 00              lst temp0 
  07f8:54 06             self 6 


        code_07fa
  07fa:48                 ret 
    )

    (method (dispose) // method_07fb
  07fb:63 18             pToa controls 
  07fd:31 07              bnt code_0806 
  07ff:39 58            pushi 58 // $58 dispose
  0801:76               push0 
  0802:63 18             pToa controls 
  0804:4a 04             send 4 


        code_0806
  0806:39 58            pushi 58 // $58 dispose
  0808:76               push0 
  0809:57 36 04         super Rgn 4 

  080c:48                 ret 
    )

    (method (handleEvent) // method_080d
  080d:39 6f            pushi 6f // $6f handleEvent
  080f:78               push1 
  0810:8f 01              lsp param1 
  0812:57 36 06         super Rgn 6 

  0815:2f 0f               bt code_0826 
  0817:63 18             pToa controls 
  0819:31 0d              bnt code_0828 
  081b:39 6f            pushi 6f // $6f handleEvent
  081d:78               push1 
  081e:8f 01              lsp param1 
  0820:63 18             pToa controls 
  0822:4a 06             send 6 

  0824:31 02              bnt code_0828 

        code_0826
  0826:35 01              ldi 1 

        code_0828
  0828:39 4c            pushi 4c // $4c claimed
  082a:76               push0 
  082b:87 01              lap param1 
  082d:4a 04             send 4 

  082f:48                 ret 
    )

    (method (setRegions) // method_0830
  0830:3f 03             link 3 // (var $3)
  0832:35 00              ldi 0 
  0834:a5 00              sat temp0 

        code_0836
  0836:8d 00              lst temp0 
  0838:87 00              lap paramTotal 
  083a:22                 lt? 
  083b:31 36              bnt code_0873 
  083d:85 00              lat temp0 
  083f:97 01             lapi param1 
  0841:a5 01              sat temp1 
  0843:78               push1 
  0844:8d 01              lst temp1 
  0846:43 02 02         callk ScriptID 2 

  0849:a5 02              sat temp2 
  084b:39 2b            pushi 2b // $2b number
  084d:78               push1 
  084e:8d 01              lst temp1 
  0850:85 02              lat temp2 
  0852:4a 06             send 6 

  0854:39 61            pushi 61 // $61 add
  0856:78               push1 
  0857:8d 02              lst temp2 
  0859:81 06              lag gRegions 
  085b:4a 06             send 6 

  085d:38 0103          pushi 103 // $103 initialized
  0860:76               push0 
  0861:85 02              lat temp2 
  0863:4a 04             send 4 

  0865:18                 not 
  0866:31 07              bnt code_086f 
  0868:39 57            pushi 57 // $57 init
  086a:76               push0 
  086b:85 02              lat temp2 
  086d:4a 04             send 4 


        code_086f
  086f:c5 00              +at temp0 
  0871:33 c3              jmp code_0836 

        code_0873
  0873:48                 ret 
    )

    (method (setLocales) // method_0874
  0874:3f 03             link 3 // (var $3)
  0876:35 00              ldi 0 
  0878:a5 00              sat temp0 

        code_087a
  087a:8d 00              lst temp0 
  087c:87 00              lap paramTotal 
  087e:22                 lt? 
  087f:31 29              bnt code_08aa 
  0881:85 00              lat temp0 
  0883:97 01             lapi param1 
  0885:a5 01              sat temp1 
  0887:39 2b            pushi 2b // $2b number
  0889:78               push1 
  088a:8d 01              lst temp1 
  088c:78               push1 
  088d:8d 01              lst temp1 
  088f:43 02 02         callk ScriptID 2 

  0892:a5 02              sat temp2 
  0894:4a 06             send 6 

  0896:39 61            pushi 61 // $61 add
  0898:78               push1 
  0899:8d 02              lst temp2 
  089b:81 1d              lag gLocales 
  089d:4a 06             send 6 

  089f:39 57            pushi 57 // $57 init
  08a1:76               push0 
  08a2:85 02              lat temp2 
  08a4:4a 04             send 4 

  08a6:c5 00              +at temp0 
  08a8:33 d0              jmp code_087a 

        code_08aa
  08aa:48                 ret 
    )

    (method (setFeatures) // method_08ab
  08ab:3f 03             link 3 // (var $3)
  08ad:35 00              ldi 0 
  08af:a5 00              sat temp0 

        code_08b1
  08b1:8d 00              lst temp0 
  08b3:87 00              lap paramTotal 
  08b5:22                 lt? 
  08b6:31 0f              bnt code_08c7 
  08b8:39 61            pushi 61 // $61 add
  08ba:78               push1 
  08bb:85 00              lat temp0 
  08bd:9f 01             lspi param1 
  08bf:81 34              lag gFeatures 
  08c1:4a 06             send 6 

  08c3:c5 00              +at temp0 
  08c5:33 ea              jmp code_08b1 

        code_08c7
  08c7:48                 ret 
    )

    (method (newRoom) // method_08c8
  08c8:39 54            pushi 54 // $54 delete
  08ca:78               push1 
  08cb:7c            pushSelf 
  08cc:39 62            pushi 62 // $62 eachElementDo
  08ce:7a               push2 
  08cf:38 00f8          pushi f8 // $f8 newRoom
  08d2:8f 01              lsp param1 
  08d4:39 6b            pushi 6b // $6b addToFront
  08d6:78               push1 
  08d7:7c            pushSelf 
  08d8:81 06              lag gRegions 
  08da:4a 14             send 14 

  08dc:87 01              lap param1 
  08de:a1 0d              sag gNewRoomNum 
  08e0:38 00f8          pushi f8 // $f8 newRoom
  08e3:78               push1 
  08e4:8f 01              lsp param1 
  08e6:57 36 06         super Rgn 6 

  08e9:48                 ret 
    )

    (method (drawPic) // method_08ea
  08ea:39 58            pushi 58 // $58 dispose
  08ec:76               push0 
  08ed:72 02f6          lofsa $0be6 // addToPics
  08f0:4a 04             send 4 

  08f2:87 01              lap param1 
  08f4:65 22             aTop curPic 
  08f6:35 ff              ldi ff 
  08f8:a1 39              sag global57 
  08fa:39 04            pushi 4 // $4 x
  08fc:8f 01              lsp param1 
  08fe:8f 00              lsp paramTotal 
  0900:35 02              ldi 2 
  0902:1a                 eq? 
  0903:31 04              bnt code_0909 
  0905:87 02              lap param2 
  0907:33 0d              jmp code_0916 

        code_0909
  0909:67 14             pTos style 
  090b:35 ff              ldi ff 
  090d:1c                 ne? 
  090e:31 04              bnt code_0914 
  0910:63 14             pToa style 
  0912:33 02              jmp code_0916 

        code_0914
  0914:81 11              lag gShowStyle 

        code_0916
  0916:36                push 
  0917:78               push1 
  0918:89 3d              lsg global61 
  091a:43 08 08         callk DrawPic 8 

  091d:48                 ret 
    )

    (method (overlay) // method_091e
  091e:87 01              lap param1 
  0920:a1 39              sag global57 
  0922:39 04            pushi 4 // $4 x
  0924:8f 01              lsp param1 
  0926:8f 00              lsp paramTotal 
  0928:35 02              ldi 2 
  092a:1a                 eq? 
  092b:31 04              bnt code_0931 
  092d:87 02              lap param2 
  092f:33 0d              jmp code_093e 

        code_0931
  0931:67 14             pTos style 
  0933:35 ff              ldi ff 
  0935:1c                 ne? 
  0936:31 04              bnt code_093c 
  0938:63 14             pToa style 
  093a:33 02              jmp code_093e 

        code_093c
  093c:81 11              lag gShowStyle 

        code_093e
  093e:36                push 
  093f:78               push1 
  0940:89 3d              lsg global61 
  0942:43 08 08         callk DrawPic 8 

  0945:48                 ret 
    )

)

// 0b08
(class Locale of Obj
    (properties
        number $0
    )
    (method (handleEvent) // method_0946
  0946:39 4c            pushi 4c // $4c claimed
  0948:76               push0 
  0949:87 01              lap param1 
  094b:4a 04             send 4 

  094d:48                 ret 
    )

    (method (dispose) // method_094e
  094e:39 54            pushi 54 // $54 delete
  0950:78               push1 
  0951:7c            pushSelf 
  0952:81 1d              lag gLocales 
  0954:4a 06             send 6 

  0956:78               push1 
  0957:67 08             pTos number 
  0959:43 03 02         callk DisposeScript 2 

  095c:48                 ret 
    )

)

// 0b34
(instance cast of EventHandler
    (properties
        elements $0
        size $0
    )
)

// 0b50
(instance features of EventHandler
    (properties
        elements $0
        size $0
    )
)

// 0b6c
(instance sFeatures of EventHandler
    (properties
        elements $0
        size $0
    )
    (method (delete) // method_00ac
  00ac:39 54            pushi 54 // $54 delete
  00ae:78               push1 
  00af:8f 01              lsp param1 
  00b1:57 04 06         super EventHandler 6 

  00b4:81 36              lag global54 
  00b6:31 16              bnt code_00ce 
  00b8:39 5c            pushi 5c // $5c isKindOf
  00ba:78               push1 
  00bb:51 02            class Collect 
  00bd:36                push 
  00be:87 01              lap param1 
  00c0:4a 06             send 6 

  00c2:31 0a              bnt code_00ce 
  00c4:39 68            pushi 68 // $68 release
  00c6:76               push0 
  00c7:39 58            pushi 58 // $58 dispose
  00c9:76               push0 
  00ca:87 01              lap param1 
  00cc:4a 08             send 8 


        code_00ce
  00ce:48                 ret 
    )

)

// 0b8c
(instance sounds of EventHandler
    (properties
        elements $0
        size $0
    )
)

// 0ba8
(instance regions of EventHandler
    (properties
        elements $0
        size $0
    )
)

// 0bc4
(instance locales of EventHandler
    (properties
        elements $0
        size $0
    )
)

// 0be0
(instance addToPics of EventHandler
    (properties
        elements $0
        size $0
    )
    (method (doit) // method_00cf
  00cf:78               push1 
  00d0:67 08             pTos elements 
  00d2:43 12 02         callk AddToPic 2 

  00d5:48                 ret 
    )

)

// 0c00
(instance timers of Set
    (properties
        elements $0
        size $0
    )
)

// 0c1c
(instance RU of Code
    (properties
    )
    (method (doit) // method_095d
  095d:3f 01             link 1 // (var $1)
  095f:39 08            pushi 8 // $8 underBits
  0961:76               push0 
  0962:87 01              lap param1 
  0964:4a 04             send 4 

  0966:31 22              bnt code_098a 
  0968:39 11            pushi 11 // $11 signal
  096a:76               push0 
  096b:87 01              lap param1 
  096d:4a 04             send 4 

  096f:a5 00              sat temp0 
  0971:36                push 
  0972:35 01              ldi 1 
  0974:14                  or 
  0975:a5 00              sat temp0 
  0977:36                push 
  0978:35 fb              ldi fb 
  097a:12                 and 
  097b:a5 00              sat temp0 
  097d:39 08            pushi 8 // $8 underBits
  097f:78               push1 
  0980:76               push0 
  0981:39 11            pushi 11 // $11 signal
  0983:78               push1 
  0984:8d 00              lst temp0 
  0986:87 01              lap param1 
  0988:4a 0c             send c 


        code_098a
  098a:48                 ret 
    )

)

// 0c38
(instance DNKR of Code
    (properties
    )
    (method (doit) // method_098b
  098b:38 0102          pushi 102 // $102 keep
  098e:76               push0 
  098f:87 01              lap param1 
  0991:4a 04             send 4 

  0993:18                 not 
  0994:31 07              bnt code_099d 
  0996:39 58            pushi 58 // $58 dispose
  0998:76               push0 
  0999:87 01              lap param1 
  099b:4a 04             send 4 


        code_099d
  099d:48                 ret 
    )

)



(procedure proc_0004
  0004:3f 79             link 79 // (var $79)
  0006:35 01              ldi 1 
  0008:a5 00              sat temp0 
  000a:39 03            pushi 3 // $3 y
  000c:76               push0 
  000d:89 1e              lsg gCurSaveDir 
  000f:5b 04 01           lea 4 1 
  0012:36                push 
  0013:43 67 06         callk DeviceInfo 6 

  0016:7a               push2 
  0017:78               push1 
  0018:5b 04 29           lea 4 29 
  001b:36                push 
  001c:43 67 04         callk DeviceInfo 4 

  001f:39 03            pushi 3 // $3 y
  0021:7a               push2 
  0022:5b 04 01           lea 4 1 
  0025:36                push 
  0026:5b 04 29           lea 4 29 
  0029:36                push 
  002a:43 67 06         callk DeviceInfo 6 

  002d:31 7a              bnt code_00a9 
  002f:7a               push2 
  0030:39 03            pushi 3 // $3 y
  0032:5b 04 29           lea 4 29 
  0035:36                push 
  0036:43 67 04         callk DeviceInfo 4 

  0039:31 6e              bnt code_00a9 
  003b:39 05            pushi 5 // $5 view
  003d:5b 04 51           lea 4 51 
  0040:36                push 
  0041:38 03e2          pushi 3e2 // $3e2 sel_994
  0044:39 08            pushi 8 // $8 underBits
  0046:87 01              lap param1 
  0048:31 05              bnt code_004f 
  004a:72 0c97          lofsa $0ce4 // SAVE GAME
  004d:33 03              jmp code_0052 

        code_004f
  004f:72 0c74          lofsa $0cc6 // GAME

        code_0052
  0052:36                push 
  0053:5b 04 29           lea 4 29 
  0056:36                push 
  0057:43 4c 0a         callk Format a 

  005a:87 01              lap param1 
  005c:31 23              bnt code_0081 
  005e:39 0c            pushi c // $c nsRight
  0060:5b 04 51           lea 4 51 
  0063:36                push 
  0064:39 21            pushi 21 // $21 font
  0066:76               push0 
  0067:39 51            pushi 51 // $51 button
  0069:74 0c6b          lofss $0cd7 // OK
  006c:78               push1 
  006d:39 51            pushi 51 // $51 button
  006f:74 0be0          lofss $0c52 // Cancel
  0072:76               push0 
  0073:39 51            pushi 51 // $51 button
  0075:74 0be1          lofss $0c59 // Changer R{pertoire
  0078:7a               push2 
  0079:46 00ff 0000 18  calle ff procedure_0000 18 // Print 

  007f:33 15              jmp code_0096 

        code_0081
  0081:39 06            pushi 6 // $6 loop
  0083:5b 04 51           lea 4 51 
  0086:36                push 
  0087:39 21            pushi 21 // $21 font
  0089:76               push0 
  008a:39 51            pushi 51 // $51 button
  008c:74 0c48          lofss $0cd7 // OK
  008f:78               push1 
  0090:46 00ff 0000 0c  calle ff procedure_0000 c // Print 


        code_0096
  0096:a5 00              sat temp0 
  0098:36                push 
  0099:35 02              ldi 2 
  009b:1a                 eq? 
  009c:31 0b              bnt code_00a9 
  009e:78               push1 
  009f:89 1e              lsg gCurSaveDir 
  00a1:46 03de 0000 02  calle 3de procedure_0000 2 // GetDirectory 

  00a7:a5 00              sat temp0 

        code_00a9
  00a9:85 00              lat temp0 
  00ab:48                 ret 
)

