(version 2)
(include "sci.sh")
(exports
    0 deathRoom
)
(use "Main")
(use "FPRoom")
(use "Print")
(use "DCIcon")
(use "Cycle")
(use "Obj")
(script 99)


(local
    local0
    local1
    local2
    local3
    local4
    local5
    local6

)
(instance public deathRoom of FPRoom
    (properties
        picture 780
        style $000a
    )

    (method (init)
        (send gIconBar:disable())
        (send gGame:setCursor(996 1))
        (super:init())
        (self:setScript(sDie))
    )

)
(instance sDie of Script
    (properties)

    (method (changeState newState)
        (asm
            lap     newState
            aTop    state
            push    
            dup     
            ldi     0
            eq?     
            bnt     code_0065
            pushi   #fade
            pushi   0
            lag     gGameMusic1
            send    4
            pushi   #fade
            pushi   0
            lag     gGameMusic2
            send    4
            ldi     10
            aTop    cycles
            jmp     code_048c
code_0065:  dup     
            ldi     1
            eq?     
            bnt     code_0084
            lsg     global122
            ldi     1
            add     
            sal     local0
            pushi   #say
            pushi   5
            pushi   3
            pushi   0
            push    
            pushi   0
            pushSelf
            lag     gFpMessager
            send    14
            jmp     code_048c
code_0084:  dup     
            ldi     2
            eq?     
            bnt     code_048c
            ldi     909
            sal     local6
            lsl     local0
            dup     
            ldi     1
            eq?     
            bnt     code_00b1
            ldi     35
            sal     local3
            ldi     150
            sal     local4
            ldi     112
            sal     local5
            ldi     900
            sal     local1
            ldi     0
            sal     local2
            jmp     code_034f
code_00b1:  dup     
            ldi     2
            eq?     
            bnt     code_00cf
            ldi     12
            sal     local3
            ldi     65
            sal     local4
            ldi     89
            sal     local5
            ldi     900
            sal     local1
            ldi     0
            sal     local2
            jmp     code_034f
code_00cf:  dup     
            ldi     3
            eq?     
            bnt     code_00ee
            ldi     12
            sal     local3
            ldi     143
            sal     local4
            ldi     80
            sal     local5
            ldi     900
            sal     local1
            ldi     1
            sal     local2
            jmp     code_034f
code_00ee:  dup     
            ldi     4
            eq?     
            bnt     code_010d
            ldi     24
            sal     local3
            ldi     146
            sal     local4
            ldi     90
            sal     local5
            ldi     900
            sal     local1
            ldi     1
            sal     local2
            jmp     code_034f
code_010d:  dup     
            ldi     5
            eq?     
            bnt     code_0130
            ldi     24
            sal     local3
            ldi     112
            sal     local4
            ldi     123
            sal     local5
            ldi     901
            sal     local1
            ldi     0
            sal     local2
            ldi     902
            sal     local6
            jmp     code_034f
code_0130:  dup     
            ldi     6
            eq?     
            bnt     code_014f
            ldi     12
            sal     local3
            ldi     128
            sal     local4
            ldi     113
            sal     local5
            ldi     901
            sal     local1
            ldi     1
            sal     local2
            jmp     code_034f
code_014f:  dup     
            ldi     7
            eq?     
            bnt     code_0172
            ldi     12
            sal     local3
            ldi     95
            sal     local4
            ldi     100
            sal     local5
            ldi     902
            sal     local1
            ldi     0
            sal     local2
            ldi     906
            sal     local6
            jmp     code_034f
code_0172:  dup     
            ldi     8
            eq?     
            bnt     code_0190
            ldi     30
            sal     local3
            ldi     70
            sal     local4
            ldi     66
            sal     local5
            ldi     902
            sal     local1
            ldi     1
            sal     local2
            jmp     code_034f
code_0190:  dup     
            ldi     9
            eq?     
            bnt     code_01af
            ldi     24
            sal     local3
            ldi     140
            sal     local4
            ldi     65
            sal     local5
            ldi     903
            sal     local1
            ldi     0
            sal     local2
            jmp     code_034f
code_01af:  dup     
            ldi     10
            eq?     
            bnt     code_01cd
            ldi     35
            sal     local3
            ldi     90
            sal     local4
            ldi     60
            sal     local5
            ldi     903
            sal     local1
            ldi     1
            sal     local2
            jmp     code_034f
code_01cd:  dup     
            ldi     11
            eq?     
            bnt     code_01eb
            ldi     12
            sal     local3
            ldi     95
            sal     local4
            ldi     105
            sal     local5
            ldi     904
            sal     local1
            ldi     0
            sal     local2
            jmp     code_034f
code_01eb:  dup     
            ldi     12
            eq?     
            bnt     code_020a
            ldi     36
            sal     local3
            ldi     145
            sal     local4
            ldi     125
            sal     local5
            ldi     904
            sal     local1
            ldi     0
            sal     local2
            jmp     code_034f
code_020a:  dup     
            ldi     13
            eq?     
            bnt     code_022e
            ldi     24
            sal     local3
            ldi     135
            sal     local4
            ldi     93
            sal     local5
            ldi     904
            sal     local1
            ldi     1
            sal     local2
            ldi     904
            sal     local6
            jmp     code_034f
code_022e:  dup     
            ldi     14
            eq?     
            bnt     code_024d
            ldi     24
            sal     local3
            ldi     145
            sal     local4
            ldi     90
            sal     local5
            ldi     905
            sal     local1
            ldi     0
            sal     local2
            jmp     code_034f
code_024d:  dup     
            ldi     15
            eq?     
            bnt     code_026b
            ldi     12
            sal     local3
            ldi     110
            sal     local4
            ldi     110
            sal     local5
            ldi     905
            sal     local1
            ldi     1
            sal     local2
            jmp     code_034f
code_026b:  dup     
            ldi     16
            eq?     
            bnt     code_028e
            ldi     24
            sal     local3
            ldi     105
            sal     local4
            ldi     80
            sal     local5
            ldi     906
            sal     local1
            ldi     0
            sal     local2
            ldi     905
            sal     local6
            jmp     code_034f
code_028e:  dup     
            ldi     17
            eq?     
            bnt     code_02b1
            ldi     12
            sal     local3
            ldi     125
            sal     local4
            ldi     88
            sal     local5
            ldi     180
            sal     local1
            ldi     0
            sal     local2
            ldi     907
            sal     local6
            jmp     code_034f
code_02b1:  dup     
            ldi     18
            eq?     
            bnt     code_02cf
            ldi     12
            sal     local3
            ldi     125
            sal     local4
            ldi     110
            sal     local5
            ldi     180
            sal     local1
            ldi     1
            sal     local2
            jmp     code_034f
code_02cf:  dup     
            ldi     19
            eq?     
            bnt     code_02f2
            ldi     12
            sal     local3
            ldi     130
            sal     local4
            ldi     85
            sal     local5
            ldi     180
            sal     local1
            ldi     2
            sal     local2
            ldi     906
            sal     local6
            jmp     code_034f
code_02f2:  dup     
            ldi     20
            eq?     
            bnt     code_0310
            ldi     24
            sal     local3
            ldi     143
            sal     local4
            ldi     100
            sal     local5
            ldi     900
            sal     local1
            ldi     0
            sal     local2
            jmp     code_034f
code_0310:  dup     
            ldi     21
            eq?     
            bnt     code_032e
            ldi     24
            sal     local3
            ldi     140
            sal     local4
            ldi     115
            sal     local5
            ldi     180
            sal     local1
            ldi     3
            sal     local2
            jmp     code_034f
code_032e:  dup     
            ldi     22
            eq?     
            bnt     code_034f
            ldi     24
            sal     local3
            ldi     130
            sal     local4
            ldi     113
            sal     local5
            ldi     180
            sal     local1
            ldi     4
            sal     local2
            ldi     905
            sal     local6
code_034f:  toss    
            pushi   #view
            pushi   1
            lsl     local1
            pushi   3
            pushi   1
            lsl     local2
            pushi   186
            pushi   0
            lofsa   theIcon1
            send    16
code_0362:  pushi   #number
            pushi   1
            lsl     local6
            pushi   39
            pushi   0
            lofsa   deathMusic
            send    10
            pushi   #cel
            pushi   1
            pushi   0
            lofsa   theIcon1
            send    6
            ldi     20
            sag     gBack
            pushi   #color
            pushi   1
            pushi   0
            pushi   26
            pushi   1
            push    
            lag     gFpWin
            send    12
            pushi   #setCursor
            pushi   2
            pushi   999
            pushi   1
            lag     gGame
            send    8
            pushi   30
            pushi   1
            lsg     gFont
            pushi   205
            pushi   6
            pushi   1
            pushi   0
            pushi   0
            lsl     local0
            pushi   0
            pushi   0
            pushi   213
            pushi   5
            pushi   #yourself
            pushi   0
            lofsa   theIcon1
            send    4
            push    
            pushi   0
            pushi   0
            pushi   0
            lsl     local3
            pushi   212
            pushi   8
            pushi   1
            pushi   2
            pushi   0
            pushi   0
            pushi   1
            lsl     local4
            lsl     local5
            ldi     40
            sub     
            push    
            pushi   99
            pushi   212
            pushi   8
            pushi   2
            pushi   2
            pushi   0
            pushi   0
            pushi   2
            lsl     local4
            lsl     local5
            ldi     20
            sub     
            push    
            pushi   99
            pushi   212
            pushi   8
            pushi   3
            pushi   2
            pushi   0
            pushi   0
            pushi   3
            lsl     local4
            lsl     local5
            pushi   99
            pushi   110
            pushi   0
            class   Print
            send    100
            push    
            dup     
            ldi     1
            eq?     
            bnt     code_041a
            ldi     34
            sag     gBack
            pushi   #color
            pushi   1
            pushi   0
            pushi   26
            pushi   1
            push    
            lag     gFpWin
            send    12
            pushi   #restore
            pushi   0
            lag     gGame
            send    4
            jmp     code_0488
code_041a:  dup     
            ldi     2
            eq?     
            bnt     code_0439
            ldi     34
            sag     gBack
            pushi   #color
            pushi   1
            pushi   0
            pushi   26
            pushi   1
            push    
            lag     gFpWin
            send    12
            pushi   #restart
            pushi   0
            lag     gGame
            send    4
            jmp     code_0488
code_0439:  dup     
            ldi     3
            eq?     
            bnt     code_0488
            lsg     gGNumber
            ldi     28
            eq?     
            bnt     code_0482
            lsg     global122
            ldi     21
            eq?     
            bnt     code_0453
            ldi     1
            sag     global122
            jmp     code_0455
code_0453:  +ag     global122
code_0455:  pushi   #cel
            pushi   1
            pushi   0
            lofsa   theIcon1
            send    6
            pushi   #fade
            pushi   0
            lofsa   deathMusic
            send    4
            ldi     34
            sag     gBack
            pushi   #color
            pushi   1
            pushi   0
            pushi   26
            pushi   1
            push    
            lag     gFpWin
            send    12
            pushi   #init
            pushi   0
            lag     global2
            send    4
            jmp     code_048c
            jmp     code_0488
code_0482:  ldi     1
            sag     global4
            jmp     code_048c
code_0488:  toss    
            jmp     code_0362
code_048c:  toss    
            ret     
        )
    )

)
(instance theIcon1 of DCIcon
    (properties
        view 900
        cycleSpeed 15
    )

    (method (init)
        (send (= cycler (End:new())):init(self))
    )

)
(instance deathMusic of FPSound
    (properties
        flags $0001
    )
)
