(script 0)


(local
    var global0
    var global1
    var global2
    var global3
    var global4
    var global5
    var global6[3]
    var global9
    var global10
    var global11
    var global12[3]
    var global15
    var global16
    var global17[2]
    var global19
    var global20 = 999
    var global21 = 997
    var global22
    var global23[2] = (4 )
    var global25
    var global26 = 1
    var global27
    var global28
    var global29
    var global30[4]
    var global34
    var global35[3] = (0 65535 )
    var global38
    var global39[24]
    var global63
    var global64
    var global65
    var global66
    var global67[2] = (1 )
    var global69
    var global70[7]
    var global77
    var global78
    var global79 = 60
    var global80
    var global81[3]
    var global84
    var global85[4]
    var global89
    var global90 = 1
    var global91
    var global92[2]
    var global94
    var global95[7] = (0 0 0 0 0 0 1234 )
    var global102
    var global103
    var global104 = 100
    var global105
    var global106
    var global107
    var global108
    var global109
    var global110
    var global111
    var global112[4]
    var global116
    var global117
    var global118
    var global119
    var global120
    var global121
    var global122
    var global123
    var global124[35]
    var global159
    var global160
    var global161
    var global162[8]
    var global170
    var global171[12]
    var global183[18]

)
(procedure public (proc0_1 param1)
    (asm
        lsp     param1
        ldi     16
        div     
        lsgi    global183
        pushi   32768
        lsp     param1
        ldi     16
        mod     
        shr     
        and     
        ret     
    )
)


(procedure public (proc0_2 param1)
    (var temp0)
    (asm
        pushi   1
        lsp     param1
        call    localproc_6317, 2
        sat     temp0
        lsp     param1
        ldi     16
        div     
        lsgi    global183
        pushi   32768
        lsp     param1
        ldi     16
        mod     
        shr     
        or      
        push    
        lsp     param1
        ldi     16
        div     
        sagi    global183
        lat     temp0
        ret     
    )
)


(procedure public (proc0_3 param1)
    (var temp0)
    (asm
        pushi   1
        lsp     param1
        call    localproc_6317, 2
        sat     temp0
        lsp     param1
        ldi     16
        div     
        lsgi    global183
        pushi   32768
        lsp     param1
        ldi     16
        mod     
        shr     
        bnot    
        and     
        push    
        lsp     param1
        ldi     16
        div     
        sagi    global183
        lat     temp0
        ret     
    )
)


(procedure public (proc0_4)
    (var temp0)
    (asm
        pushi   #canControl
        pushi   1
        lsg     global109
        pushi   247
        pushi   1
        lsg     global110
        lag     global80
        send    12
        ldi     0
        sat     temp0
code_1822:lst     temp0
        ldi     8
        lt?     
        bnt     code_1844
        lsg     global111
        pushi   32768
        lat     temp0
        shr     
        and     
        bnt     code_1840
        pushi   #disable
        pushi   1
        lst     temp0
        lag     global159
        send    6
code_1840:+at     temp0
        jmp     code_1822
code_1844:ret     
    )
)


(procedure public (proc0_5 param1 param2)
    (asm
        pushi   #onControl
        pushi   1
        pushi   1
        lap     param1
        send    6
        push    
        lap     param2
        and     
        bnt     code_1857
        ldi     1
        ret     
code_1857:ret     
    )
)


(procedure public (proc0_6 param1 param2)
    (asm
        lsp     paramTotal
        ldi     0
        gt?     
        bnt     code_188c
        lsp     param1
        ldi     65535
        ne?     
        bnt     code_188c
        pushi   #view
        pushi   1
        lsp     param1
        lag     global0
        send    6
        lsp     paramTotal
        ldi     1
        gt?     
        bnt     code_18ad
        lsp     param2
        ldi     65535
        ne?     
        bnt     code_18ad
        pushi   #loop
        pushi   1
        lsp     param2
        lag     global0
        send    6
        jmp     code_18ad
code_188c:pushi   #view
        pushi   1
        lsg     global161
        lag     global0
        send    6
        lsp     paramTotal
        ldi     1
        gt?     
        bnt     code_18ad
        lsp     param2
        ldi     65535
        ne?     
        bnt     code_18ad
        pushi   #loop
        pushi   1
        lsp     param2
        lag     global0
        send    6
code_18ad:pushi   #looper
        pushi   0
        lag     global0
        send    4
        bnt     code_18c3
        pushi   #dispose
        pushi   0
        pushi   #looper
        pushi   0
        lag     global0
        send    4
        send    4
code_18c3:pushi   322
        pushi   2
        pushi   5
        pushi   2
        pushi   15
        pushi   1
        pushi   0
        pushi   302
        pushi   1
        pushi   0
        pushi   324
        pushi   1
        lsg     global123
        pushi   14
        pushi   1
        pushi   #signal
        pushi   0
        lag     global0
        send    4
        push    
        ldi     4096
        or      
        push    
        pushi   55
        pushi   1
        pushi   #loop
        pushi   0
        lag     global0
        send    4
        push    
        dup     
        ldi     0
        eq?     
        bnt     code_1900
        ldi     90
        jmp     code_1956
code_1900:dup     
        ldi     1
        eq?     
        bnt     code_190d
        ldi     270
        jmp     code_1956
code_190d:dup     
        ldi     2
        eq?     
        bnt     code_191a
        ldi     180
        jmp     code_1956
code_191a:dup     
        ldi     3
        eq?     
        bnt     code_1926
        ldi     0
        jmp     code_1956
code_1926:dup     
        ldi     4
        eq?     
        bnt     code_1933
        ldi     135
        jmp     code_1956
code_1933:dup     
        ldi     5
        eq?     
        bnt     code_1940
        ldi     225
        jmp     code_1956
code_1940:dup     
        ldi     6
        eq?     
        bnt     code_194c
        ldi     45
        jmp     code_1956
code_194c:dup     
        ldi     7
        eq?     
        bnt     code_1956
        ldi     315
code_1956:toss    
        push    
        lag     global0
        send    38
        pushi   155
        pushi   #x
        pushi   65535
        pushi   155
        pushi   1
        lofsa   stopGroop
        push    
        pushi   161
        pushi   4
        lofsa   egoStopWalk
        push    
        pushi   65535
        pushi   2
        pushi   0
        pushi   63
        pushi   1
        pushi   65535
        pushi   298
        pushi   1
        pushi   0
        pushi   29
        pushi   1
        pushi   #state
        pushi   0
        lag     global0
        send    4
        push    
        ldi     2
        or      
        push    
        lag     global0
        send    42
        ret     
    )
)


(procedure public (proc0_8 param1 param2 param3 param4)
    (var temp0, var temp1, var temp2, var temp3, var temp4)
    (asm
        ldi     0
        sat     temp3
        ldi     0
        sat     temp4
        pushi   1
        lsp     param2
        callk   IsObject, 2
        bnt     code_19e3
        pushi   #x
        pushi   0
        lap     param2
        send    4
        sat     temp1
        pushi   #y
        pushi   0
        lap     param2
        send    4
        sat     temp2
        lsp     paramTotal
        ldi     2
        gt?     
        bnt     code_19f7
        pushi   1
        lsp     param3
        callk   IsObject, 2
        bnt     code_19d0
        lap     param3
        sat     temp3
        jmp     code_19d4
code_19d0:lap     param3
        sat     temp4
code_19d4:lsp     paramTotal
        ldi     4
        eq?     
        bnt     code_19f7
        lap     param4
        sat     temp3
        jmp     code_19f7
code_19e3:lap     param2
        sat     temp1
        lap     param3
        sat     temp2
        lsp     paramTotal
        ldi     4
        eq?     
        bnt     code_19f7
        lap     param4
        sat     temp3
code_19f7:lat     temp4
        bnt     code_1a04
        pushi   2
        lsp     param2
        lsp     param1
        call    localproc_6805, 4
code_1a04:pushi   4
        pushi   #x
        pushi   0
        lap     param1
        send    4
        push    
        pushi   #y
        pushi   0
        lap     param1
        send    4
        push    
        lst     temp1
        lst     temp2
        callk   GetAngle, 8
        sat     temp0
        pushi   263
        pushi   2
        push    
        pushi   1
        lst     temp3
        callk   IsObject, 2
        bnt     code_1a2c
        lat     temp3
code_1a2c:push    
        lap     param1
        send    8
        ret     
    )
)


(procedure public (proc0_9 param1)
    (asm
        lap     paramTotal
        not     
        bnt     code_1a3f
        ldi     1
        sag     global119
        jmp     code_1a43
code_1a3f:lap     param1
        sag     global119
code_1a43:pushi   #newRoom
        pushi   1
        pushi   20
        lag     global2
        send    6
        ret     
    )
)


(procedure public (proc0_10 param1 param2)
    (asm
        pushi   1
        lsp     param1
        call    localproc_6061, 2
        not     
        bnt     code_1a8a
        lsg     global20
        lap     param2
        add     
        sag     global20
        pushi   #doit
        pushi   0
        lofsa   sq5StatusLineCode
        send    4
        pushi   1
        lsp     param1
        call    localproc_6079, 2
        pushi   #priority
        pushi   1
        pushi   15
        pushi   40
        pushi   1
        pushi   1000
        pushi   3
        pushi   1
        pushi   1
        pushi   99
        pushi   1
        pushi   1
        pushi   39
        pushi   0
        lofsa   rm0Sound
        send    28
code_1a8a:ret     
    )
)


(procedure public (proc0_11)
    (var temp0)
    (asm
        pushi   0
        callk   GetPort, 0
        sat     temp0
        pushi   1
        pushi   65535
        callk   SetPort, 2
        pushi   9
        pushi   11
        pushi   0
        pushi   0
        pushi   10
        pushi   320
        pushi   1
        pushi   0
        pushi   65535
        dup     
        callk   Graph, 18
        pushi   6
        pushi   12
        pushi   0
        pushi   0
        pushi   10
        pushi   320
        pushi   1
        callk   Graph, 12
        pushi   1
        lst     temp0
        callk   SetPort, 2
        ret     
    )
)


(procedure public (proc0_12 param1 param2 param3 param4 param5)
    (asm
        pushi   #printLang
        pushi   0
        lag     global1
        send    4
        push    
        dup     
        ldi     49
        eq?     
        bnt     code_1788
        lap     param1
        jmp     code_17ab
code_1788:dup     
        ldi     34
        eq?     
        bnt     code_1793
        lap     param2
        jmp     code_17ab
code_1793:dup     
        ldi     33
        eq?     
        bnt     code_179e
        lap     param3
        jmp     code_17ab
code_179e:dup     
        ldi     39
        eq?     
        bnt     code_17a9
        lap     param4
        jmp     code_17ab
code_17a9:lap     param5
code_17ab:toss    
        ret     
    )
)


(instance rm0Sound of Sound
    (properties
        priority 15
    )
)
(instance sq5Music1 of Sound
    (properties
        flags 1
    )
)
(instance sq5Music2 of Sound
    (properties
        flags 1
    )
)
(instance stopGroop of Grooper
    (properties)
)
(instance egoStopWalk of FiddleStopWalk
    (properties)
)
(instance ego of SQEgo
    (properties)
)
(instance sq5StatusLineCode of Code
    (properties)

    (method (doit)
        (var temp0[50], var temp50[50], var temp100)
        (asm
            pushi   0
            callk   GetPort, 0
            sat     temp100
            pushi   1
            pushi   65535
            callk   SetPort, 2
            pushi   9
            pushi   11
            pushi   0
            pushi   0
            pushi   10
            pushi   320
            pushi   1
            pushi   5
            pushi   65535
            dup     
            callk   Graph, 18
            pushi   6
            pushi   12
            pushi   0
            pushi   0
            pushi   10
            pushi   320
            pushi   1
            callk   Graph, 12
            pushi   7
            pushi   0
            pushi   0
            pushi   29
            pushi   0
            pushi   0
            pushi   1
            lea     @temp0
            push    
            callk   GetMessage, 14
            pushi   4
            lea     @temp50
            push    
            lofsa   "%s %d"
            push    
            lea     @temp0
            push    
            lsg     global20
            callk   Format, 8
            pushi   8
            lea     @temp50
            push    
            pushi   100
            pushi   4
            pushi   1
            pushi   105
            lsg     global28
            pushi   102
            pushi   6
            callk   Display, 16
            pushi   8
            lea     @temp50
            push    
            pushi   100
            pushi   6
            pushi   3
            pushi   105
            lsg     global28
            pushi   102
            pushi   4
            callk   Display, 16
            pushi   8
            lea     @temp50
            push    
            pushi   100
            pushi   5
            pushi   2
            pushi   105
            lsg     global28
            pushi   102
            pushi   0
            callk   Display, 16
            pushi   8
            pushi   4
            pushi   0
            pushi   0
            pushi   0
            pushi   319
            pushi   7
            pushi   65535
            dup     
            callk   Graph, 16
            pushi   8
            pushi   4
            pushi   0
            pushi   0
            pushi   9
            pushi   0
            pushi   6
            pushi   65535
            dup     
            callk   Graph, 16
            pushi   8
            pushi   4
            pushi   9
            pushi   0
            pushi   9
            pushi   319
            pushi   4
            pushi   65535
            dup     
            callk   Graph, 16
            pushi   8
            pushi   4
            pushi   0
            pushi   319
            pushi   9
            pushi   319
            pushi   3
            pushi   65535
            dup     
            callk   Graph, 16
            pushi   6
            pushi   12
            pushi   0
            pushi   0
            pushi   10
            pushi   319
            pushi   1
            callk   Graph, 12
            pushi   1
            lst     temp100
            callk   SetPort, 2
            ret     
        )
    )

)
(instance sq5IconBar of IconBar
    (properties)

    (method (show)
        (asm
            pushi   1
            pTos    curInvIcon
            callk   IsObject, 2
            bnt     code_0354
            pushi   #loop
            pushi   1
            pushi   2
            pToa    curInvIcon
            send    6
code_0354:  pushi   #show
            pushi   0
            super   IconBar, 4
            pushi   1
            pTos    curInvIcon
            callk   IsObject, 2
            bnt     code_036b
            pushi   #loop
            pushi   1
            pushi   1
            pToa    curInvIcon
            send    6
code_036b:  ret     
        )
    )


    (method (hide)
        (asm
            pushi   #hide
            pushi   0
            &rest   param1
            super   IconBar, 4
            pushi   #setCursor
            pushi   2
            lsg     global25
            pushi   1
            lag     global1
            send    8
            ret     
        )
    )


    (method (noClickHelp)
        (var temp0, var temp1, var temp2, var temp3, var temp4)
        (asm
            ldi     0
            sat     temp2
            sat     temp1
            pushi   0
            callk   GetPort, 0
            sat     temp3
            pushi   #eraseOnly
            pushi   0
            lag     global79
            send    4
            sat     temp4
            pushi   #eraseOnly
            pushi   1
            pushi   1
            lag     global79
            send    6
code_022f:  pushi   #type
            pushi   0
            pushi   #new
            pushi   0
            pushi   #curEvent
            pushi   0
            lag     global80
            send    4
            send    4
            sat     temp0
            send    4
            not     
            bnt     code_02fc
            pushi   #isMemberOf
            pushi   1
            class   IconBar
            push    
            self    6
            not     
            bnt     code_025a
            pushi   #localize
            pushi   0
            lat     temp0
            send    4
code_025a:  pushi   #firstTrue
            pushi   2
            pushi   226
            lst     temp0
            self    8
            sat     temp2
            bnt     code_02d6
            push    
            lat     temp1
            ne?     
            bnt     code_02f2
            pushi   #helpVerb
            pushi   0
            lat     temp2
            send    4
            bnt     code_02f2
            lat     temp2
            sat     temp1
            lag     global34
            bnt     code_0286
            pushi   #dispose
            pushi   0
            send    4
code_0286:  pushi   #font
            pushi   1
            lsg     global28
            pushi   67
            pushi   1
            pushi   250
            pushi   205
            pushi   7
            pushi   #noun
            pushi   0
            lat     temp2
            send    4
            push    
            pushi   #helpVerb
            pushi   0
            lat     temp2
            send    4
            push    
            pushi   0
            pushi   1
            pushi   0
            pushi   0
            pushi   #modNum
            pushi   0
            lat     temp2
            send    4
            push    
            pushi   210
            pushi   1
            pushi   1
            pushi   110
            pushi   0
            class   Print
            send    40
            pushi   2
            pushi   #elements
            pushi   0
            lag     global5
            send    4
            push    
            pushi   0
            callk   Animate, 4
            pushi   1
            lst     temp3
            callk   SetPort, 2
            jmp     code_02f2
code_02d6:  lag     global34
            bnt     code_02ee
            pushi   #dispose
            pushi   0
            send    4
            pushi   2
            pushi   #elements
            pushi   0
            lag     global5
            send    4
            push    
            pushi   0
            callk   Animate, 4
            jmp     code_02f2
code_02ee:  ldi     0
            sat     temp1
code_02f2:  pushi   #dispose
            pushi   0
            lat     temp0
            send    4
            jmp     code_022f
code_02fc:  pushi   #eraseOnly
            pushi   1
            lst     temp4
            lag     global79
            send    6
            pushi   #setCursor
            pushi   2
            pushi   999
            pushi   1
            lag     global1
            send    8
            lag     global34
            bnt     code_0328
            pushi   #dispose
            pushi   0
            send    4
            pushi   2
            pushi   #elements
            pushi   0
            lag     global5
            send    4
            push    
            pushi   0
            callk   Animate, 4
code_0328:  pushi   1
            lst     temp3
            callk   SetPort, 2
            pushi   #onMe
            pushi   1
            lst     temp0
            pToa    helpIconItem
            send    6
            not     
            bnt     code_0343
            pushi   #dispatchEvent
            pushi   1
            lst     temp0
            self    6
code_0343:  ret     
        )
    )

)
(class SQ5 of Game
    (properties
        script 0
        printLang 1
        _detailLevel 3
        panelObj 0
        panelSelector 0
        handsOffCode 0
        handsOnCode 0
    )

    (method (init)
        (var temp0[7], var temp7)
        (asm
            class   Print
            class   DButton
            class   DColorButton
            class   Smopper
            class   SQEgo
            class   StopWalk
            class   BorderWindow
            class   SpeakWindow
            class   Polygon
            class   PolyPath
            class   Timer
            class   IconBar
            class   ScrollInsetWindow
            class   ScrollableInventory
            pushi   1
            pushi   982
            callk   ScriptID, 2
            class   RTRandCycle
            class   Scaler
            class   Narrator
            pushi   #init
            pushi   0
            pushi   2
            pushi   15
            pushi   0
            callk   ScriptID, 4
            send    4
            pushi   #init
            pushi   0
            super   Game, 4
            lofsa   ego
            sag     global0
            pushi   #alterEgo
            pushi   1
            push    
            pushi   246
            pushi   1
            pushi   0
            pushi   247
            pushi   1
            pushi   0
            class   User
            send    18
            ldi     1
            sag     global90
            ldi     1
            sag     global69
            pushi   1
            pushi   3
            callk   DoSound, 2
            sag     global103
            ldi     5000
            sag     global21
            ldi     1605
            sag     global28
            ldi     6
            sag     global123
            ldi     30
            sag     global79
            ldi     2
            sag     global94
            pushi   1
            pushi   2
            callk   Graph, 2
            sag     global102
            lofsa   stopGroop
            sag     global106
            class   PseudoMouse
            sag     global77
            ldi     1
            sag     global105
            pushi   #setLoop
            pushi   1
            lsg     global106
            lag     global0
            send    6
            lsg     global102
            ldi     256
            eq?     
            bnt     code_0427
            pushi   1
            pushi   0
            call    localproc_6079, 2
code_0427:  pushi   9
            pushi   1605
            pushi   999
            pushi   1005
            pushi   1007
            pushi   1008
            pushi   2106
            pushi   1307
            pushi   2306
            pushi   5220
            callk   TextFonts, 18
            pushi   7
            pushi   0
            pushi   15
            pushi   26
            pushi   31
            pushi   34
            pushi   52
            pushi   63
            callk   TextColors, 14
            lofsa   "x.yyy.zzz"
            sag     global38
            pushi   3
            pushi   0
            lofsa   "version"
            push    
            pushi   1
            callk   FileIO, 6
            sat     temp7
            pushi   4
            pushi   5
            lsg     global38
            pushi   11
            push    
            callk   FileIO, 8
            pushi   2
            pushi   1
            lst     temp7
            callk   FileIO, 4
            pushi   0
            calle   proc12_0, 0
            pushi   1
            pushi   12
            callk   DisposeScript, 2
            lofsa   sQ5Narrator
            sag     global89
            lofsa   sq5Win
            sag     global79
            lofsa   sq5Win
            sag     global117
            lofsa   testMessager
            sag     global91
            pushi   #new
            pushi   0
            class   SpeakWindow
            send    4
            sag     global116
            pushi   #color
            pushi   1
            pushi   0
            pushi   26
            pushi   1
            lsg     global159
            lag     global79
            send    12
            pushi   #setCursor
            pushi   4
            lsg     global25
            pushi   1
            pushi   304
            pushi   172
            pushi   306
            pushi   1
            pushi   3
            lag     global1
            send    18
            pushi   #number
            pushi   1
            pushi   1
            pushi   172
            pushi   1
            pushSelf
            pushi   99
            pushi   1
            pushi   1
            pushi   110
            pushi   0
            lofsa   sq5Music1
            sag     global120
            send    22
            pushi   #number
            pushi   1
            pushi   1
            pushi   172
            pushi   1
            pushSelf
            pushi   99
            pushi   1
            pushi   1
            pushi   110
            pushi   0
            lofsa   sq5Music2
            sag     global121
            send    22
            lofsa   sq5IconBar
            sag     global159
            pushi   #add
            pushi   9
            lofsa   icon0
            push    
            lofsa   icon1
            push    
            lofsa   icon2
            push    
            lofsa   icon3
            push    
            lofsa   icon4
            push    
            lofsa   icon6
            push    
            lofsa   icon7
            push    
            lofsa   icon8
            push    
            lofsa   icon9
            push    
            pushi   119
            pushi   1
            pushi   110
            pushi   119
            pushi   2
            pushi   219
            pushi   0
            pushi   119
            pushi   2
            pushi   220
            pushi   5
            pushi   215
            pushi   1
            lofsa   icon0
            push    
            pushi   235
            pushi   1
            lofsa   icon6
            push    
            pushi   228
            pushi   1
            lofsa   icon9
            push    
            pushi   236
            pushi   1
            lofsa   icon0
            push    
            pushi   241
            pushi   1
            pushi   5
            pushi   29
            pushi   1
            pushi   3072
            pushi   241
            pushi   0
            lag     global159
            send    84
            ldi     999
            sag     global26
            ldi     996
            sag     global27
            lofsa   lb2DoVerbCode
            sag     global121
            lofsa   lb2FtrInit
            sag     global120
            lofsa   lb2ApproachCode
            sag     global122
            pushi   #newRoom
            pushi   1
            pushi   100
            self    6
            ret     
        )
    )


    (method (doit)
        (asm
            pushi   0
            callk   GameIsRestarting, 0
            bnt     code_0841
            pushi   6
            lsg     global15
            pushi   100
            pushi   104
            pushi   110
            pushi   106
            pushi   107
            calle   proc999_5, 12
            bnt     code_0825
            pushi   0
            call    localproc_6795, 0
            jmp     code_082d
code_0825:  pushi   #doit
            pushi   0
            lofsa   sq5StatusLineCode
            send    4
code_082d:  pushi   1
            pushi   2
            callk   Graph, 2
            sag     global102
            push    
            ldi     256
            eq?     
            bnt     code_0841
            pushi   1
            pushi   0
            call    localproc_6079, 2
code_0841:  pushi   #doit
            pushi   0
            &rest   param1
            super   Game, 4
            ret     
        )
    )


    (method (play)
        (asm
            selfID  
            sag     global1
            pushi   0
            callk   GetSaveDir, 0
            sag     global63
            pushi   0
            callk   GameIsRestarting, 0
            not     
            bnt     code_06ec
            pushi   1
            lsg     global63
            callk   GetCWD, 2
code_06ec:  pushi   #setCursor
            pushi   2
            lsg     global27
            pushi   1
            pushi   110
            pushi   0
            self    12
            pushi   #setCursor
            pushi   2
            pushi   996
            pushi   1
            self    8
code_0702:  lag     global4
            not     
            bnt     code_070e
            pushi   #doit
            pushi   0
            self    4
            jmp     code_0702
code_070e:  ret     
        )
    )


    (method (startRoom param1)
        (var temp0[4])
        (asm
            pushi   6
            lsp     param1
            pushi   100
            pushi   104
            pushi   110
            pushi   106
            pushi   107
            calle   proc999_5, 12
            bnt     code_0869
            pushi   0
            call    localproc_6795, 0
            jmp     code_0871
code_0869:  pushi   #doit
            pushi   0
            lofsa   sq5StatusLineCode
            send    4
code_0871:  lag     global77
            bnt     code_087b
            pushi   #stop
            pushi   0
            send    4
code_087b:  pushi   #doit
            pushi   1
            lsp     param1
            pushi   1
            pushi   11
            callk   ScriptID, 2
            send    6
            pushi   23
            lsp     param1
            pushi   106
            pushi   107
            pushi   200
            pushi   201
            pushi   202
            pushi   203
            pushi   204
            pushi   205
            pushi   206
            pushi   212
            pushi   213
            pushi   215
            pushi   222
            pushi   225
            pushi   226
            pushi   228
            pushi   230
            pushi   240
            pushi   250
            pushi   280
            pushi   290
            pushi   295
            calle   proc999_5, 46
            bnt     code_08de
            pushi   1
            pushi   210
            callk   ScriptID, 2
            jmp     code_098c
code_08de:  pushi   17
            lsp     param1
            pushi   110
            pushi   115
            pushi   117
            pushi   119
            pushi   121
            pushi   122
            pushi   123
            pushi   125
            pushi   127
            pushi   132
            pushi   133
            pushi   135
            pushi   137
            pushi   165
            pushi   166
            pushi   195
            calle   proc999_5, 34
            bnt     code_091a
            pushi   1
            pushi   109
            callk   ScriptID, 2
            jmp     code_098c
code_091a:  pushi   9
            lsp     param1
            pushi   300
            pushi   305
            pushi   310
            pushi   315
            pushi   320
            pushi   325
            pushi   330
            pushi   335
            calle   proc999_5, 18
            bnt     code_0947
            pushi   1
            pushi   350
            callk   ScriptID, 2
            jmp     code_098c
code_0947:  pushi   5
            lsp     param1
            pushi   500
            pushi   510
            pushi   520
            pushi   530
            calle   proc999_5, 10
            bnt     code_0968
            pushi   1
            pushi   505
            callk   ScriptID, 2
            jmp     code_098c
code_0968:  pushi   7
            lsp     param1
            pushi   730
            pushi   740
            pushi   750
            pushi   760
            pushi   770
            pushi   790
            calle   proc999_5, 14
            bnt     code_098c
            pushi   1
            pushi   31
            callk   ScriptID, 2
code_098c:  pushi   #startRoom
            pushi   1
            lsp     param1
            super   Game, 6
            ret     
        )
    )


    (method (restart)
        (var temp0, var temp1)
        (asm
            pushi   #cursor
            pushi   0
            pushi   #curIcon
            pushi   0
            lag     global159
            send    4
            send    4
            sat     temp1
            pushi   #setCursor
            pushi   1
            pushi   999
            lag     global1
            send    6
            pushi   #font
            pushi   1
            lsg     global28
            pushi   67
            pushi   1
            pushi   75
            pushi   32
            pushi   1
            lsg     global79
            pushi   27
            pushi   1
            pushi   1
            pushi   205
            pushi   7
            pushi   20
            pushi   1
            pushi   0
            pushi   1
            pushi   0
            pushi   0
            pushi   0
            pushi   631
            pushi   8
            pushi   1
            pushi   20
            pushi   1
            pushi   0
            pushi   2
            pushi   0
            pushi   40
            pushi   0
            pushi   631
            pushi   8
            pushi   0
            pushi   20
            pushi   1
            pushi   0
            pushi   3
            pushi   0
            pushi   50
            pushi   0
            pushi   110
            pushi   0
            class   Print
            send    86
            sat     temp0
            bnt     code_068b
            pushi   #restart
            pushi   0
            &rest   param1
            super   Game, 4
            jmp     code_0695
code_068b:  pushi   #setCursor
            pushi   1
            lst     temp1
            lag     global1
            send    6
code_0695:  ret     
        )
    )


    (method (restore)
        (var temp0[2])
        (asm
            pushi   #restore
            pushi   0
            &rest   param1
            super   Game, 4
            pushi   #setCursor
            pushi   1
            pushi   #cursor
            pushi   0
            pushi   #curIcon
            pushi   0
            lag     global159
            send    4
            send    4
            push    
            lag     global1
            send    6
            ret     
        )
    )


    (method (save)
        (asm
            pushi   #save
            pushi   0
            &rest   param1
            super   Game, 4
            pushi   #setCursor
            pushi   1
            pushi   #cursor
            pushi   0
            pushi   #curIcon
            pushi   0
            lag     global159
            send    4
            send    4
            push    
            lag     global1
            send    6
            ret     
        )
    )


    (method (handleEvent pEvent)
        (var temp0)
        (asm
            pushi   #handleEvent
            pushi   1
            lsp     pEvent
            super   Game, 6
            pushi   #claimed
            pushi   0
            lap     pEvent
            send    4
            bnt     code_09ad
            ldi     1
            ret     
code_09ad:  pushi   #type
            pushi   0
            lap     pEvent
            send    4
            push    
            dup     
            ldi     4
            eq?     
            bnt     code_0bf0
            pushi   #message
            pushi   0
            lap     pEvent
            send    4
            push    
            dup     
            ldi     9
            eq?     
            bnt     code_0a08
            pushi   #signal
            pushi   0
            pushi   #at
            pushi   1
            pushi   6
            lag     global159
            send    6
            send    4
            push    
            ldi     4
            and     
            not     
            bnt     code_0bef
            lag     global84
            bnt     code_09e5
            ret     
code_09e5:  lag     global25
            sat     temp0
            pushi   #showSelf
            pushi   1
            lsg     global0
            lag     global11
            send    6
            pushi   #setCursor
            pushi   2
            lst     temp0
            pushi   1
            lag     global1
            send    8
            pushi   #claimed
            pushi   1
            pushi   1
            lap     pEvent
            send    6
            jmp     code_0bef
code_0a08:  dup     
            ldi     17
            eq?     
            bnt     code_0a36
            pushi   #signal
            pushi   0
            pushi   #at
            pushi   1
            pushi   7
            lag     global159
            send    6
            send    4
            push    
            ldi     4
            and     
            not     
            bnt     code_0bef
            pushi   #quitGame
            pushi   0
            lag     global1
            send    4
            pushi   #claimed
            pushi   1
            pushi   1
            lap     pEvent
            send    6
            jmp     code_0bef
code_0a36:  dup     
            ldi     3
            eq?     
            bnt     code_0a82
            pushi   #signal
            pushi   0
            pushi   #at
            pushi   1
            pushi   7
            lag     global159
            send    6
            send    4
            push    
            ldi     4
            and     
            not     
            bnt     code_0bef
            pushi   #cursor
            pushi   0
            pushi   #curIcon
            pushi   0
            lag     global159
            send    4
            send    4
            sat     temp0
            pushi   #doit
            pushi   0
            pushi   2
            pushi   24
            pushi   0
            callk   ScriptID, 4
            send    4
            pushi   #dispose
            pushi   0
            lag     global119
            send    4
            pushi   #setCursor
            pushi   2
            lst     temp0
            pushi   1
            lag     global1
            send    8
            jmp     code_0bef
code_0a82:  dup     
            ldi     15360
            eq?     
            bnt     code_0ac5
            pushi   #masterVolume
            pushi   0
            lag     global1
            send    4
            bnt     code_0a9e
            pushi   #masterVolume
            pushi   1
            pushi   0
            lag     global1
            send    6
            jmp     code_0aba
code_0a9e:  lsg     global103
            ldi     1
            gt?     
            bnt     code_0ab1
            pushi   #masterVolume
            pushi   1
            pushi   15
            lag     global1
            send    6
            jmp     code_0aba
code_0ab1:  pushi   #masterVolume
            pushi   1
            pushi   1
            lag     global1
            send    6
code_0aba:  pushi   #claimed
            pushi   1
            pushi   1
            lap     pEvent
            send    6
            jmp     code_0bef
code_0ac5:  dup     
            ldi     16128
            eq?     
            bnt     code_0b08
            pushi   #signal
            pushi   0
            pushi   #at
            pushi   1
            pushi   7
            lag     global159
            send    6
            send    4
            push    
            ldi     4
            and     
            not     
            bnt     code_0bef
            lag     global84
            bnt     code_0ae7
            ret     
code_0ae7:  lag     global25
            sat     temp0
            pushi   #save
            pushi   0
            lag     global1
            send    4
            pushi   #setCursor
            pushi   2
            lst     temp0
            pushi   1
            lag     global1
            send    8
            pushi   #claimed
            pushi   1
            pushi   1
            lap     pEvent
            send    6
            jmp     code_0bef
code_0b08:  dup     
            ldi     16640
            eq?     
            bnt     code_0b4b
            pushi   #signal
            pushi   0
            pushi   #at
            pushi   1
            pushi   7
            lag     global159
            send    6
            send    4
            push    
            ldi     4
            and     
            not     
            bnt     code_0bef
            lag     global84
            bnt     code_0b2a
            ret     
code_0b2a:  lag     global25
            sat     temp0
            pushi   #restore
            pushi   0
            lag     global1
            send    4
            pushi   #setCursor
            pushi   2
            lst     temp0
            pushi   1
            lag     global1
            send    8
            pushi   #claimed
            pushi   1
            pushi   1
            lap     pEvent
            send    6
            jmp     code_0bef
code_0b4b:  dup     
            ldi     43
            eq?     
            bnt     code_0b7e
            pushi   #controls
            pushi   0
            lag     global80
            send    4
            bnt     code_0bef
            pushi   #moveSpeed
            pushi   0
            lag     global0
            send    4
            sag     global123
            pushi   2
            pushi   0
            -ag     global123
            push    
            calle   proc999_3, 4
            sag     global123
            pushi   #setSpeed
            pushi   1
            push    
            lag     global0
            send    6
            jmp     code_0bef
code_0b7e:  dup     
            ldi     45
            eq?     
            bnt     code_0ba6
            pushi   #controls
            pushi   0
            lag     global80
            send    4
            bnt     code_0bef
            pushi   #moveSpeed
            pushi   0
            lag     global0
            send    4
            sag     global123
            +ag     global123
            pushi   #setSpeed
            pushi   1
            push    
            lag     global0
            send    6
            jmp     code_0bef
code_0ba6:  dup     
            ldi     61
            eq?     
            bnt     code_0bc2
            pushi   #controls
            pushi   0
            lag     global80
            send    4
            bnt     code_0bef
            pushi   #setSpeed
            pushi   1
            pushi   6
            lag     global0
            send    6
            jmp     code_0bef
code_0bc2:  dup     
            ldi     12032
            eq?     
            bnt     code_0be7
            pushi   #addText
            pushi   3
            lofsa   "Version number:"
            push    
            pushi   0
            pushi   0
            pushi   205
            pushi   3
            lsg     global38
            pushi   0
            pushi   14
            pushi   110
            pushi   0
            class   Print
            send    24
            jmp     code_0bef
code_0be7:  pushi   #claimed
            pushi   1
            pushi   0
            lap     pEvent
            send    6
code_0bef:  toss    
code_0bf0:  toss    
            ret     
        )
    )


    (method (setCursor param1 param2 param3 param4)
        (var temp0)
        (asm
            lag     global25
            sat     temp0
            lap     paramTotal
            bnt     code_0738
            pushi   1
            lsp     param1
            callk   IsObject, 2
            bnt     code_072c
            pushi   #init
            pushi   0
            lap     param1
            sag     global25
            send    4
            jmp     code_0738
code_072c:  pushi   3
            lap     param1
            sag     global25
            push    
            pushi   0
            pushi   0
            callk   SetCursor, 6
code_0738:  lsp     paramTotal
            ldi     1
            gt?     
            bnt     code_074e
            lap     param2
            not     
            bnt     code_074e
            pushi   3
            pushi   996
            pushi   0
            pushi   0
            callk   SetCursor, 6
code_074e:  lsp     paramTotal
            ldi     2
            gt?     
            bnt     code_075d
            pushi   2
            lsp     param3
            lsp     param4
            callk   SetCursor, 4
code_075d:  lat     temp0
            ret     
        )
    )


    (method (quitGame)
        (var temp0, var temp1)
        (asm
            pushi   #cursor
            pushi   0
            pushi   #curIcon
            pushi   0
            lag     global159
            send    4
            send    4
            sat     temp1
            pushi   #setCursor
            pushi   1
            pushi   999
            lag     global1
            send    6
            pushi   #font
            pushi   1
            lsg     global28
            pushi   67
            pushi   1
            pushi   75
            pushi   27
            pushi   1
            pushi   1
            pushi   205
            pushi   7
            pushi   19
            pushi   1
            pushi   0
            pushi   1
            pushi   0
            pushi   0
            pushi   0
            pushi   631
            pushi   8
            pushi   1
            pushi   19
            pushi   1
            pushi   0
            pushi   2
            pushi   0
            pushi   25
            pushi   0
            pushi   631
            pushi   8
            pushi   0
            pushi   19
            pushi   1
            pushi   0
            pushi   3
            pushi   0
            pushi   35
            pushi   0
            pushi   110
            pushi   0
            class   Print
            send    80
            sat     temp0
            bnt     code_0610
            pushi   #addText
            pushi   7
            pushi   19
            pushi   1
            pushi   0
            pushi   4
            pushi   0
            pushi   0
            pushi   0
            pushi   110
            pushi   0
            class   Print
            send    22
            pushi   #quitGame
            pushi   0
            &rest   param1
            super   Game, 4
            jmp     code_061a
code_0610:  pushi   #setCursor
            pushi   1
            lst     temp1
            lag     global1
            send    6
code_061a:  ret     
        )
    )


    (method (pragmaFail)
        (asm
            pushi   #canControl
            pushi   0
            class   User
            send    4
            bnt     code_0801
            pushi   #message
            pushi   0
            pushi   #curEvent
            pushi   0
            lag     global80
            send    4
            send    4
            push    
            dup     
            ldi     4
            eq?     
            bnt     code_0798
            pushi   #say
            pushi   6
            pushi   0
            pushi   4
            pushi   0
            pushi   2
            pushi   1
            pushi   2
            callk   Random, 4
            push    
            pushi   0
            pushi   0
            lag     global91
            send    16
            jmp     code_0800
code_0798:  dup     
            ldi     2
            eq?     
            bnt     code_07b5
            pushi   #say
            pushi   6
            pushi   0
            pushi   2
            pushi   0
            pushi   2
            pushi   1
            pushi   2
            callk   Random, 4
            push    
            pushi   0
            pushi   0
            lag     global91
            send    16
            jmp     code_0800
code_07b5:  dup     
            ldi     24
            eq?     
            bnt     code_07cd
            pushi   #say
            pushi   6
            pushi   0
            pushi   24
            pushi   0
            pushi   0
            pushi   0
            pushi   0
            lag     global91
            send    16
            jmp     code_0800
code_07cd:  pushi   3
            pushi   #message
            pushi   0
            pushi   #curEvent
            pushi   0
            lag     global80
            send    4
            send    4
            push    
            pushi   24
            pushi   1
            calle   proc999_5, 6
            not     
            bnt     code_0800
            pushi   #say
            pushi   6
            pushi   0
            pushi   7
            pushi   0
            pushi   2
            pushi   2
            pushi   3
            callk   Random, 4
            push    
            pushi   0
            pushi   0
            lag     global91
            send    16
code_0800:  toss    
code_0801:  ret     
        )
    )


    (method (handsOff)
        (asm
            lag     global108
            not     
            bnt     code_0c01
            pushi   #curIcon
            pushi   0
            lag     global159
            send    4
            sag     global108
code_0c01:  pushi   #canControl
            pushi   0
            lag     global80
            send    4
            sag     global109
            pushi   #canInput
            pushi   0
            lag     global80
            send    4
            sag     global110
            pushi   #canControl
            pushi   1
            pushi   0
            pushi   247
            pushi   1
            pushi   0
            lag     global80
            send    12
            pushi   #setMotion
            pushi   1
            pushi   0
            lag     global0
            send    6
            ldi     0
            sag     global111
            pushi   #eachElementDo
            pushi   2
            pushi   96
            lofsa   checkIcon
            push    
            lag     global159
            send    8
            pushi   #curIcon
            pushi   1
            pushi   #at
            pushi   1
            pushi   7
            lag     global159
            send    6
            push    
            lag     global159
            send    6
            pushi   #disable
            pushi   0
            lag     global159
            send    4
            pushi   #disable
            pushi   8
            pushi   0
            pushi   1
            pushi   2
            pushi   3
            pushi   4
            pushi   5
            pushi   6
            pushi   7
            lag     global159
            send    20
            pushi   #setCursor
            pushi   1
            pushi   996
            lag     global1
            send    6
            ret     
        )
    )


    (method (handsOn param1)
        (asm
            pushi   #enable
            pushi   0
            lag     global159
            send    4
            pushi   #canControl
            pushi   1
            pushi   1
            pushi   247
            pushi   1
            pushi   1
            lag     global80
            send    12
            pushi   1
            pushi   22
            call    localproc_6061, 2
            bnt     code_0ca9
            pushi   #enable
            pushi   4
            pushi   0
            pushi   1
            pushi   3
            pushi   7
            lag     global159
            send    12
            jmp     code_0cbf
code_0ca9:  pushi   #enable
            pushi   8
            pushi   0
            pushi   1
            pushi   2
            pushi   3
            pushi   4
            pushi   5
            pushi   6
            pushi   7
            lag     global159
            send    20
code_0cbf:  lap     paramTotal
            bnt     code_0ccc
            lap     param1
            bnt     code_0ccc
            pushi   0
            call    localproc_6156, 0
code_0ccc:  pushi   #curInvIcon
            pushi   0
            lag     global159
            send    4
            not     
            bnt     code_0ce1
            pushi   #disable
            pushi   1
            pushi   5
            lag     global159
            send    6
code_0ce1:  lag     global108
            bnt     code_0d2b
            pushi   #curIcon
            pushi   1
            push    
            lag     global159
            send    6
            pushi   #setCursor
            pushi   1
            pushi   #cursor
            pushi   0
            lag     global108
            send    4
            push    
            lag     global1
            send    6
            ldi     0
            sag     global108
            pushi   #curIcon
            pushi   0
            lag     global159
            send    4
            push    
            pushi   #at
            pushi   1
            pushi   5
            lag     global159
            send    6
            eq?     
            bnt     code_0d2b
            pushi   #curInvIcon
            pushi   0
            lag     global159
            send    4
            not     
            bnt     code_0d2b
            pushi   #advanceCurIcon
            pushi   0
            lag     global159
            send    4
code_0d2b:  pushi   #setCursor
            pushi   2
            pushi   #cursor
            pushi   0
            pushi   #curIcon
            pushi   0
            lag     global159
            send    4
            send    4
            push    
            pushi   1
            lag     global1
            send    8
            pushi   #cursor
            pushi   0
            pushi   #curIcon
            pushi   0
            lag     global159
            send    4
            send    4
            sag     global25
            ret     
        )
    )


    (method (showAbout)
        (asm
            pushi   #doit
            pushi   0
            pushi   2
            pushi   13
            pushi   0
            callk   ScriptID, 4
            send    4
            pushi   1
            pushi   13
            callk   DisposeScript, 2
            ret     
        )
    )


    (method (showControls)
        (var temp0)
        (asm
            pushi   #cursor
            pushi   0
            pushi   #curIcon
            pushi   0
            lag     global159
            send    4
            send    4
            sat     temp0
            pushi   #doit
            pushi   0
            pushi   2
            pushi   24
            pushi   0
            callk   ScriptID, 4
            send    4
            pushi   #dispose
            pushi   0
            lag     global119
            send    4
            pushi   #setCursor
            pushi   2
            lst     temp0
            pushi   1
            lag     global1
            send    8
            ret     
        )
    )

)
(instance walkCursor of Cursor
    (properties
        view 980
    )

    (method (init)
        (asm
            pushi   1
            pushi   22
            call    localproc_6061, 2
            bnt     code_0da4
            ldi     1
            aTop    loop
            jmp     code_0dc2
code_0da4:  lsg     global15
            ldi     119
            eq?     
            bnt     code_0dbe
            pushi   #view
            pushi   0
            lag     global0
            send    4
            push    
            ldi     136
            eq?     
            bnt     code_0dbe
            ldi     3
            aTop    loop
            jmp     code_0dc2
code_0dbe:  ldi     0
            aTop    loop
code_0dc2:  pushi   #init
            pushi   0
            &rest   param1
            super   Cursor, 4
            ret     
        )
    )

)
(instance icon0 of IconI
    (properties
        view 990
        loop 0
        cel 0
        cursor 980
        type 20480
        message 3
        signal 65
        maskView 990
        maskLoop 13
        noun 28
        helpVerb 5
    )

    (method (init)
        (asm
            lag     global160
            aTop    lowlightColor
            lofsa   walkCursor
            aTop    cursor
            pushi   #init
            pushi   0
            super   IconI, 4
            ret     
        )
    )


    (method (show)
        (asm
            pushi   1
            pushi   22
            call    localproc_6061, 2
            bnt     code_0dea
            ldi     14
            aTop    loop
            jmp     code_0e08
code_0dea:  lsg     global15
            ldi     119
            eq?     
            bnt     code_0e04
            pushi   #view
            pushi   0
            lag     global0
            send    4
            push    
            ldi     136
            eq?     
            bnt     code_0e04
            ldi     15
            aTop    loop
            jmp     code_0e08
code_0e04:  ldi     0
            aTop    loop
code_0e08:  pushi   #show
            pushi   0
            &rest   param1
            super   IconI, 4
            ret     
        )
    )


    (method (select)
        (var temp0)
        (asm
            pushi   #select
            pushi   0
            &rest   param1
            super   IconI, 4
            bnt     code_0e2b
            pushi   #hide
            pushi   0
            lag     global159
            send    4
            ldi     1
            ret     
            jmp     code_0e2e
code_0e2b:  ldi     0
            ret     
code_0e2e:  ret     
        )
    )

)
(instance icon1 of IconI
    (properties
        view 990
        loop 1
        cel 0
        cursor 981
        message 1
        signal 65
        maskView 990
        maskLoop 13
        noun 16
        helpVerb 5
    )

    (method (init)
        (asm
            lag     global160
            aTop    lowlightColor
            pushi   #init
            pushi   0
            super   IconI, 4
            ret     
        )
    )

)
(instance icon2 of IconI
    (properties
        view 990
        loop 2
        cel 0
        cursor 982
        message 4
        signal 65
        maskView 990
        maskLoop 13
        noun 6
        helpVerb 5
    )

    (method (init)
        (asm
            lag     global160
            aTop    lowlightColor
            pushi   #init
            pushi   0
            super   IconI, 4
            ret     
        )
    )

)
(instance icon3 of IconI
    (properties
        view 990
        loop 3
        cel 0
        cursor 983
        message 2
        signal 65
        maskView 990
        maskLoop 13
        maskCel 4
        noun 26
        helpVerb 5
    )

    (method (init)
        (asm
            lag     global160
            aTop    lowlightColor
            pushi   #init
            pushi   0
            super   IconI, 4
            ret     
        )
    )

)
(instance icon4 of IconI
    (properties
        view 990
        loop 10
        cel 1
        cursor 984
        message 24
        signal 65
        maskView 990
        maskLoop 13
        maskCel 4
        noun 2
        helpVerb 5
    )

    (method (init)
        (asm
            lag     global160
            aTop    lowlightColor
            pushi   #init
            pushi   0
            super   IconI, 4
            ret     
        )
    )

)
(instance icon6 of IconI
    (properties
        view 990
        loop 4
        cel 0
        cursor 999
        message 0
        signal 65
        maskView 990
        maskLoop 13
        maskCel 4
        noun 4
        helpVerb 5
    )

    (method (init)
        (asm
            lag     global160
            aTop    lowlightColor
            pushi   #init
            pushi   0
            super   IconI, 4
            ret     
        )
    )


    (method (select param1)
        (var temp0, var temp1, var temp2, var temp3, var temp4)
        (asm
            pTos    signal
            ldi     4
            and     
            bnt     code_0e74
            ldi     0
            jmp     code_105c
code_0e74:  lap     paramTotal
            bnt     code_105a
            lap     param1
            bnt     code_105a
            pTos    signal
            ldi     1
            and     
            bnt     code_105a
            pushi   #curInvIcon
            pushi   0
            lag     global159
            send    4
            sat     temp2
            bnt     code_0ee7
            pTos    nsRight
            pToa    nsLeft
            sub     
            push    
            pushi   3
            pushi   #view
            pushi   0
            lat     temp2
            send    4
            push    
            pushi   2
            pushi   #cel
            pushi   0
            lat     temp2
            send    4
            push    
            callk   CelWide, 6
            sub     
            push    
            ldi     2
            div     
            push    
            pToa    nsLeft
            add     
            sat     temp3
            pushi   #y
            pushi   0
            lag     global159
            send    4
            push    
            pTos    nsBottom
            pToa    nsTop
            sub     
            push    
            pushi   3
            pushi   #view
            pushi   0
            lat     temp2
            send    4
            push    
            pushi   2
            pushi   #cel
            pushi   0
            lat     temp2
            send    4
            push    
            callk   CelHigh, 6
            sub     
            push    
            ldi     2
            div     
            add     
            push    
            pToa    nsTop
            add     
            sat     temp4
code_0ee7:  pushi   6
            pTos    view
            pTos    loop
            ldi     1
            sat     temp1
            push    
            pTos    nsLeft
            pTos    nsTop
            pushi   65535
            callk   DrawCel, 12
            pushi   #curInvIcon
            pushi   0
            lag     global159
            send    4
            sat     temp2
            bnt     code_0f20
            pushi   6
            pushi   #view
            pushi   0
            send    4
            push    
            pushi   2
            pushi   #cel
            pushi   0
            lat     temp2
            send    4
            push    
            lst     temp3
            lst     temp4
            pushi   65535
            callk   DrawCel, 12
code_0f20:  pushi   6
            pushi   12
            pTos    nsTop
            pTos    nsLeft
            pTos    nsBottom
            pTos    nsRight
            pushi   1
            callk   Graph, 12
code_0f30:  pushi   #type
            pushi   0
            pushi   #new
            pushi   0
            class   Event
            send    4
            sat     temp0
            send    4
            push    
            ldi     2
            ne?     
            bnt     code_1002
            pushi   #localize
            pushi   0
            lat     temp0
            send    4
            pushi   #onMe
            pushi   1
            lst     temp0
            self    6
            bnt     code_0faa
            lat     temp1
            not     
            bnt     code_0ff8
            pushi   6
            pTos    view
            pTos    loop
            ldi     1
            sat     temp1
            push    
            pTos    nsLeft
            pTos    nsTop
            pushi   65535
            callk   DrawCel, 12
            pushi   #curInvIcon
            pushi   0
            lag     global159
            send    4
            sat     temp2
            bnt     code_0f97
            pushi   6
            pushi   #view
            pushi   0
            send    4
            push    
            pushi   2
            pushi   #cel
            pushi   0
            lat     temp2
            send    4
            push    
            lst     temp3
            lst     temp4
            pushi   65535
            callk   DrawCel, 12
code_0f97:  pushi   6
            pushi   12
            pTos    nsTop
            pTos    nsLeft
            pTos    nsBottom
            pTos    nsRight
            pushi   1
            callk   Graph, 12
            jmp     code_0ff8
code_0faa:  lat     temp1
            bnt     code_0ff8
            pushi   6
            pTos    view
            pTos    loop
            ldi     0
            sat     temp1
            push    
            pTos    nsLeft
            pTos    nsTop
            pushi   65535
            callk   DrawCel, 12
            pushi   #curInvIcon
            pushi   0
            lag     global159
            send    4
            sat     temp2
            bnt     code_0fe8
            pushi   6
            pushi   #view
            pushi   0
            send    4
            push    
            pushi   2
            pushi   #cel
            pushi   0
            lat     temp2
            send    4
            push    
            lst     temp3
            lst     temp4
            pushi   65535
            callk   DrawCel, 12
code_0fe8:  pushi   6
            pushi   12
            pTos    nsTop
            pTos    nsLeft
            pTos    nsBottom
            pTos    nsRight
            pushi   1
            callk   Graph, 12
code_0ff8:  pushi   #dispose
            pushi   0
            lat     temp0
            send    4
            jmp     code_0f30
code_1002:  pushi   #dispose
            pushi   0
            lat     temp0
            send    4
            lst     temp1
            ldi     1
            eq?     
            bnt     code_1056
            pushi   6
            pTos    view
            pTos    loop
            pushi   0
            pTos    nsLeft
            pTos    nsTop
            pushi   65535
            callk   DrawCel, 12
            pushi   #curInvIcon
            pushi   0
            lag     global159
            send    4
            sat     temp2
            bnt     code_1046
            pushi   6
            pushi   #view
            pushi   0
            send    4
            push    
            pushi   2
            pushi   #cel
            pushi   0
            lat     temp2
            send    4
            push    
            lst     temp3
            lst     temp4
            pushi   65535
            callk   DrawCel, 12
code_1046:  pushi   6
            pushi   12
            pTos    nsTop
            pTos    nsLeft
            pTos    nsBottom
            pTos    nsRight
            pushi   1
            callk   Graph, 12
code_1056:  lat     temp1
            jmp     code_105c
code_105a:  ldi     1
code_105c:  ret     
        )
    )

)
(instance icon7 of IconI
    (properties
        view 990
        loop 5
        cel 0
        cursor 999
        type 0
        message 0
        signal 67
        maskView 990
        maskLoop 13
        noun 15
        helpVerb 5
    )

    (method (init)
        (asm
            lag     global160
            aTop    lowlightColor
            pushi   #init
            pushi   0
            super   IconI, 4
            ret     
        )
    )


    (method (select)
        (var temp0)
        (asm
            pushi   #select
            pushi   0
            &rest   param1
            super   IconI, 4
            bnt     code_1099
            pushi   #hide
            pushi   0
            lag     global159
            send    4
            lag     global25
            sat     temp0
            pushi   #showSelf
            pushi   1
            lsg     global0
            lag     global11
            send    6
            pushi   #setCursor
            pushi   2
            lst     temp0
            pushi   1
            lag     global1
            send    8
            ldi     1
            ret     
            jmp     code_109c
code_1099:  ldi     0
            ret     
code_109c:  ret     
        )
    )

)
(instance icon8 of IconI
    (properties
        view 990
        loop 7
        cel 0
        cursor 999
        message 7
        signal 67
        maskView 990
        maskLoop 13
        noun 3
        helpVerb 5
    )

    (method (init)
        (asm
            lag     global160
            aTop    lowlightColor
            pushi   #init
            pushi   0
            super   IconI, 4
            ret     
        )
    )


    (method (select)
        (asm
            pushi   #select
            pushi   0
            &rest   param1
            super   IconI, 4
            bnt     code_10c7
            pushi   #hide
            pushi   0
            lag     global159
            send    4
            pushi   #showControls
            pushi   0
            lag     global1
            send    4
            ldi     1
            ret     
            jmp     code_10ca
code_10c7:  ldi     0
            ret     
code_10ca:  ret     
        )
    )

)
(instance icon9 of IconI
    (properties
        view 990
        loop 9
        cel 0
        cursor 989
        type 8192
        message 5
        signal 3
        maskView 990
        maskLoop 13
        noun 7
        helpVerb 5
    )

    (method (init)
        (asm
            lag     global160
            aTop    lowlightColor
            lag     global34
            bnt     code_10d8
            pushi   #dispose
            pushi   0
            send    4
code_10d8:  pushi   #init
            pushi   0
            super   IconI, 4
            ret     
        )
    )

)
(instance checkIcon of Code
    (properties)

    (method (doit param1)
        (asm
            pushi   #isKindOf
            pushi   1
            class   IconI
            push    
            lap     param1
            send    6
            bnt     code_110c
            pushi   #signal
            pushi   0
            lap     param1
            send    4
            push    
            ldi     4
            and     
            bnt     code_110c
            lsg     global111
            pushi   32768
            pushi   #indexOf
            pushi   1
            lsp     param1
            lag     global159
            send    6
            shr     
            or      
            sag     global111
code_110c:  ret     
        )
    )

)
(instance lb2DoVerbCode of Code
    (properties)

    (method (doit param1 param2)
        (asm
            pushi   #canControl
            pushi   0
            class   User
            send    4
            bnt     code_11dc
            lsp     param2
            lag     global0
            eq?     
            bnt     code_115c
            pushi   6
            pushi   2
            pushi   0
            pushi   22
            lsp     param1
            pushi   0
            pushi   1
            callk   GetMessage, 12
            bnt     code_1143
            pushi   #say
            pushi   6
            pushi   22
            lsp     param1
            pushi   0
            pushi   0
            pushi   0
            pushi   0
            lag     global91
            send    16
            jmp     code_11dc
code_1143:  pushi   #say
            pushi   6
            pushi   22
            pushi   0
            pushi   0
            pushi   2
            pushi   1
            pushi   2
            callk   Random, 4
            push    
            pushi   0
            pushi   0
            lag     global91
            send    16
            jmp     code_11dc
code_115c:  lsp     param1
            dup     
            ldi     4
            eq?     
            bnt     code_117d
            pushi   #say
            pushi   6
            pushi   0
            pushi   4
            pushi   0
            pushi   2
            pushi   1
            pushi   2
            callk   Random, 4
            push    
            pushi   0
            pushi   0
            lag     global91
            send    16
            jmp     code_11db
code_117d:  dup     
            ldi     2
            eq?     
            bnt     code_119b
            pushi   #say
            pushi   6
            pushi   0
            pushi   2
            pushi   0
            pushi   2
            pushi   1
            pushi   2
            callk   Random, 4
            push    
            pushi   0
            pushi   0
            lag     global91
            send    16
            jmp     code_11db
code_119b:  dup     
            ldi     24
            eq?     
            bnt     code_11b4
            pushi   #say
            pushi   6
            pushi   0
            pushi   24
            pushi   0
            pushi   1
            pushi   0
            pushi   0
            lag     global91
            send    16
            jmp     code_11db
code_11b4:  pushi   3
            lsp     param1
            pushi   24
            pushi   1
            calle   proc999_5, 6
            not     
            bnt     code_11db
            pushi   #say
            pushi   6
            pushi   0
            pushi   7
            pushi   0
            pushi   2
            pushi   2
            pushi   3
            callk   Random, 4
            push    
            pushi   0
            pushi   0
            lag     global91
            send    16
code_11db:  toss    
code_11dc:  ret     
        )
    )

)
(instance lb2FtrInit of Code
    (properties)

    (method (doit param1)
        (asm
            pushi   #sightAngle
            pushi   0
            lap     param1
            send    4
            push    
            ldi     26505
            eq?     
            bnt     code_11f6
            pushi   #sightAngle
            pushi   1
            pushi   90
            lap     param1
            send    6
code_11f6:  pushi   #actions
            pushi   0
            lap     param1
            send    4
            push    
            ldi     26505
            eq?     
            bnt     code_120e
            pushi   #actions
            pushi   1
            pushi   0
            lap     param1
            send    6
code_120e:  pushi   #approachX
            pushi   0
            lap     param1
            send    4
            not     
            bnt     code_1240
            pushi   #approachY
            pushi   0
            lap     param1
            send    4
            not     
            bnt     code_1240
            pushi   #approachX
            pushi   1
            pushi   #x
            pushi   0
            lap     param1
            send    4
            push    
            pushi   289
            pushi   1
            pushi   #y
            pushi   0
            lap     param1
            send    4
            push    
            lap     param1
            send    12
code_1240:  ret     
        )
    )

)
(instance lb2ApproachCode of Code
    (properties)

    (method (doit param1)
        (asm
            lsp     param1
            dup     
            ldi     1
            eq?     
            bnt     code_124e
            ldi     1
            jmp     code_129d
code_124e:  dup     
            ldi     2
            eq?     
            bnt     code_1259
            ldi     2
            jmp     code_129d
code_1259:  dup     
            ldi     3
            eq?     
            bnt     code_1264
            ldi     4
            jmp     code_129d
code_1264:  dup     
            ldi     4
            eq?     
            bnt     code_126f
            ldi     8
            jmp     code_129d
code_126f:  dup     
            ldi     31
            eq?     
            bnt     code_127a
            ldi     16
            jmp     code_129d
code_127a:  dup     
            ldi     24
            eq?     
            bnt     code_1285
            ldi     32
            jmp     code_129d
code_1285:  dup     
            ldi     29
            eq?     
            bnt     code_128f
            ldi     64
            jmp     code_129d
code_128f:  dup     
            ldi     25
            eq?     
            bnt     code_129a
            ldi     128
            jmp     code_129d
code_129a:  ldi     32768
code_129d:  toss    
            ret     
        )
    )

)
(instance sq5Win of BorderWindow
    (properties)
)
(instance sQ5Narrator of Narrator
    (properties)

    (method (init)
        (asm
            lag     global28
            aTop    font
            pushi   #back
            pushi   1
            lsg     global159
            self    6
            pushi   #init
            pushi   0
            &rest   param1
            super   Narrator, 4
            ret     
        )
    )

)
(instance testMessager of Messager
    (properties)

    (method (findTalker param1)
        (var temp0)
        (asm
            lap     param1
            sag     global122
            lsp     param1
            dup     
            ldi     99
            eq?     
            bnt     code_12da
            lsg     global15
            ldi     666
            eq?     
            bnt     code_12d5
            pushi   2
            pushi   666
            pushi   1
            callk   ScriptID, 4
            jmp     code_1762
code_12d5:  lag     global89
            jmp     code_1762
code_12da:  dup     
            ldi     47
            eq?     
            bnt     code_131f
            pushi   3
            lsg     global15
            pushi   201
            pushi   206
            calle   proc999_5, 6
            bnt     code_1313
            lsg     global15
            ldi     201
            eq?     
            bnt     code_1308
            pushi   2
            pushi   209
            pushi   18
            callk   ScriptID, 4
            jmp     code_1762
code_1308:  pushi   2
            lsg     global15
            pushi   18
            callk   ScriptID, 4
            jmp     code_1762
code_1313:  pushi   2
            pushi   1882
            pushi   26
            callk   ScriptID, 4
            jmp     code_1762
code_131f:  dup     
            ldi     26
            eq?     
            bnt     code_1356
            pushi   6
            lsg     global15
            pushi   119
            pushi   127
            pushi   240
            pushi   1041
            pushi   660
            calle   proc999_5, 12
            bnt     code_134a
            pushi   2
            lsg     global15
            pushi   10
            callk   ScriptID, 4
            jmp     code_1762
code_134a:  pushi   2
            pushi   1882
            pushi   26
            callk   ScriptID, 4
            jmp     code_1762
code_1356:  dup     
            ldi     8
            eq?     
            bnt     code_1367
            pushi   2
            pushi   109
            pushi   7
            callk   ScriptID, 4
            jmp     code_1762
code_1367:  dup     
            ldi     29
            eq?     
            bnt     code_1377
            pushi   2
            pushi   125
            pushi   1
            callk   ScriptID, 4
            jmp     code_1762
code_1377:  dup     
            ldi     23
            eq?     
            bnt     code_13ae
            pushi   5
            lsg     global15
            pushi   530
            pushi   730
            pushi   666
            pushi   240
            calle   proc999_5, 10
            bnt     code_13a2
            pushi   2
            lsg     global15
            pushi   11
            callk   ScriptID, 4
            jmp     code_1762
code_13a2:  pushi   2
            pushi   1884
            pushi   23
            callk   ScriptID, 4
            jmp     code_1762
code_13ae:  dup     
            ldi     18
            eq?     
            bnt     code_13c0
            pushi   2
            pushi   127
            pushi   3
            callk   ScriptID, 4
            jmp     code_1762
code_13c0:  dup     
            ldi     4
            eq?     
            bnt     code_13d2
            pushi   2
            pushi   850
            pushi   1
            callk   ScriptID, 4
            jmp     code_1762
code_13d2:  dup     
            ldi     21
            eq?     
            bnt     code_1406
            pushi   4
            lsg     global15
            pushi   201
            pushi   520
            pushi   1041
            calle   proc999_5, 8
            bnt     code_13fa
            pushi   2
            lsg     global15
            pushi   12
            callk   ScriptID, 4
            jmp     code_1762
code_13fa:  pushi   2
            pushi   1885
            pushi   21
            callk   ScriptID, 4
            jmp     code_1762
code_1406:  dup     
            ldi     27
            eq?     
            bnt     code_1418
            pushi   2
            pushi   135
            pushi   2
            callk   ScriptID, 4
            jmp     code_1762
code_1418:  dup     
            ldi     36
            eq?     
            bnt     code_143e
            lsg     global15
            ldi     801
            eq?     
            bnt     code_1433
            pushi   2
            pushi   801
            pushi   1
            callk   ScriptID, 4
            jmp     code_1762
code_1433:  pushi   2
            pushi   109
            pushi   7
            callk   ScriptID, 4
            jmp     code_1762
code_143e:  dup     
            ldi     37
            eq?     
            bnt     code_1464
            lsg     global15
            ldi     801
            eq?     
            bnt     code_1459
            pushi   2
            pushi   801
            pushi   2
            callk   ScriptID, 4
            jmp     code_1762
code_1459:  pushi   2
            pushi   109
            pushi   7
            callk   ScriptID, 4
            jmp     code_1762
code_1464:  dup     
            ldi     22
            eq?     
            bnt     code_14c2
            pushi   9
            lsg     global15
            pushi   201
            pushi   760
            pushi   520
            pushi   620
            pushi   640
            pushi   660
            pushi   1040
            pushi   1041
            calle   proc999_5, 18
            bnt     code_14b6
            pushi   #curPic
            pushi   0
            lag     global2
            send    4
            push    
            ldi     110
            ne?     
            bnt     code_14aa
            pushi   2
            lsg     global15
            pushi   13
            callk   ScriptID, 4
            jmp     code_1762
code_14aa:  pushi   2
            pushi   1886
            pushi   22
            callk   ScriptID, 4
            jmp     code_1762
code_14b6:  pushi   2
            pushi   1886
            pushi   22
            callk   ScriptID, 4
            jmp     code_1762
code_14c2:  dup     
            ldi     25
            eq?     
            bnt     code_1514
            pushi   8
            lsg     global15
            pushi   104
            pushi   119
            pushi   127
            pushi   201
            pushi   206
            pushi   520
            pushi   850
            calle   proc999_5, 16
            bnt     code_1508
            lsg     global15
            ldi     201
            eq?     
            bnt     code_14fd
            pushi   2
            pushi   209
            pushi   14
            callk   ScriptID, 4
            jmp     code_1762
code_14fd:  pushi   2
            lsg     global15
            pushi   14
            callk   ScriptID, 4
            jmp     code_1762
code_1508:  pushi   2
            pushi   1883
            pushi   25
            callk   ScriptID, 4
            jmp     code_1762
code_1514:  dup     
            ldi     3
            eq?     
            bnt     code_1526
            pushi   2
            lsg     global15
            pushi   14
            callk   ScriptID, 4
            jmp     code_1762
code_1526:  dup     
            ldi     1
            eq?     
            bnt     code_154a
            lsg     global15
            ldi     119
            eq?     
            bnt     code_153f
            pushi   2
            pushi   119
            pushi   2
            callk   ScriptID, 4
            jmp     code_1762
code_153f:  pushi   2
            lsg     global15
            pushi   14
            callk   ScriptID, 4
            jmp     code_1762
code_154a:  dup     
            ldi     7
            eq?     
            bnt     code_155d
            pushi   2
            pushi   1040
            pushi   5
            callk   ScriptID, 4
            jmp     code_1762
code_155d:  dup     
            ldi     19
            eq?     
            bnt     code_160c
            pushi   23
            lsg     global15
            pushi   104
            pushi   119
            pushi   125
            pushi   135
            pushi   165
            pushi   201
            pushi   228
            pushi   230
            pushi   240
            pushi   520
            pushi   530
            pushi   730
            pushi   750
            pushi   760
            pushi   1041
            pushi   666
            pushi   850
            pushi   660
            pushi   440
            pushi   450
            pushi   620
            pushi   640
            calle   proc999_5, 46
            bnt     code_15eb
            pushi   5
            lsg     global15
            pushi   730
            pushi   740
            pushi   760
            pushi   790
            calle   proc999_5, 10
            bnt     code_15e0
            pushi   1
            pushi   22
            call    localproc_6061, 2
            not     
            bnt     code_15e0
            pushi   2
            pushi   1880
            pushi   19
            callk   ScriptID, 4
            jmp     code_1762
code_15e0:  pushi   2
            lsg     global15
            pushi   15
            callk   ScriptID, 4
            jmp     code_1762
code_15eb:  lsg     global15
            dup     
            ldi     510
            eq?     
            bnt     code_15ff
            pushi   2
            pushi   510
            pushi   1
            callk   ScriptID, 4
            jmp     code_1608
code_15ff:  pushi   2
            pushi   1880
            pushi   19
            callk   ScriptID, 4
code_1608:  toss    
            jmp     code_1762
code_160c:  dup     
            ldi     17
            eq?     
            bnt     code_161d
            pushi   2
            pushi   119
            pushi   1
            callk   ScriptID, 4
            jmp     code_1762
code_161d:  dup     
            ldi     28
            eq?     
            bnt     code_162f
            pushi   2
            pushi   135
            pushi   1
            callk   ScriptID, 4
            jmp     code_1762
code_162f:  dup     
            ldi     24
            eq?     
            bnt     code_1689
            pushi   3
            lsg     global15
            pushi   201
            pushi   999
            calle   proc999_5, 6
            bnt     code_167d
            lsg     global15
            ldi     201
            eq?     
            bnt     code_1672
            lsg     global170
            ldi     2
            eq?     
            bnt     code_1666
            pushi   2
            pushi   1887
            pushi   24
            callk   ScriptID, 4
            jmp     code_1762
code_1666:  pushi   2
            pushi   209
            pushi   16
            callk   ScriptID, 4
            jmp     code_1762
code_1672:  pushi   2
            lsg     global15
            pushi   16
            callk   ScriptID, 4
            jmp     code_1762
code_167d:  pushi   2
            pushi   1887
            pushi   24
            callk   ScriptID, 4
            jmp     code_1762
code_1689:  dup     
            ldi     38
            eq?     
            bnt     code_16b6
            pushi   2
            lsg     global15
            pushi   520
            calle   proc999_5, 4
            bnt     code_16aa
            pushi   2
            lsg     global15
            pushi   17
            callk   ScriptID, 4
            jmp     code_1762
code_16aa:  pushi   2
            pushi   1891
            pushi   38
            callk   ScriptID, 4
            jmp     code_1762
code_16b6:  dup     
            ldi     46
            eq?     
            bnt     code_16e7
            pushi   3
            lsg     global15
            pushi   450
            pushi   440
            calle   proc999_5, 6
            bnt     code_16db
            pushi   2
            lsg     global15
            pushi   19
            callk   ScriptID, 4
            jmp     code_1762
code_16db:  pushi   2
            pushi   1895
            pushi   46
            callk   ScriptID, 4
            jmp     code_1762
code_16e7:  dup     
            ldi     5
            eq?     
            bnt     code_16f8
            pushi   2
            pushi   115
            pushi   2
            callk   ScriptID, 4
            jmp     code_1762
code_16f8:  dup     
            ldi     6
            eq?     
            bnt     code_1709
            pushi   2
            pushi   117
            pushi   2
            callk   ScriptID, 4
            jmp     code_1762
code_1709:  dup     
            ldi     42
            eq?     
            bnt     code_171b
            pushi   2
            pushi   510
            pushi   1
            callk   ScriptID, 4
            jmp     code_1762
code_171b:  dup     
            ldi     43
            eq?     
            bnt     code_172d
            pushi   2
            pushi   510
            pushi   1
            callk   ScriptID, 4
            jmp     code_1762
code_172d:  dup     
            ldi     45
            eq?     
            bnt     code_173f
            pushi   2
            pushi   520
            pushi   1
            callk   ScriptID, 4
            jmp     code_1762
code_173f:  dup     
            ldi     49
            eq?     
            bnt     code_1752
            pushi   2
            pushi   500
            pushi   10
            callk   ScriptID, 4
            jmp     code_1762
code_1752:  dup     
            ldi     9
            eq?     
            bnt     code_1762
            pushi   2
            pushi   500
            pushi   10
            callk   ScriptID, 4
code_1762:  toss    
            sat     temp0
            bnt     code_176b
            ret     
            jmp     code_1774
code_176b:  pushi   #findTalker
            pushi   1
            lsp     param1
            super   Messager, 6
code_1774:  ret     
        )
    )

)
