(version 2)
(include "sci.sh")
(exports
    0 fpInitCode
)
(use "Main")
(use "Print")
(use "Blink")
(use "SysWindow")
(use "Obj")
(script 14)


(local
    local0[120]

)
(instance public fpInitCode of Code
    (properties)

    (method (init)
        (var temp0)
        = global15 0
        = global16 999
        = gFont 69
        = global26 2108
        = global23 1207
        = global116 2407
        = global117 4115
        = global118 2510
        = global121 30
        (Print:font(gFont))
        = gNarrator Narrator
        (send gNarrator:
            font(gFont)
            back(gBack)
            keepWindow(1)
        )
        = global90 1
        = gFpWin ScriptID(0 10)
        = temp0 FileIO(fiOPEN "version" 1)
        FileIO(fiREAD_STRING global27 11 temp0)
        FileIO(fiREAD_STRING global111 20 temp0)
        FileIO(fiREAD_STRING global112 20 temp0)
        FileIO(fiREAD_STRING global113 20 temp0)
        FileIO(fiCLOSE temp0)
        = global34 1
        = gEatTheMice 30
        StrCpy(@global42 "")
        (send gGame:
            setCursor(gCursorNumber 1 304 172)
            detailLevel(5)
            masterVolume(15)
        )
        = global94 10
        = global106 DoSound(sndGET_POLYPHONY)
        = global105 Graph(grGET_COLOURS)
        (if ((>= global105 2) and (<= global105 16))
            proc0_4(0)
        )(else
            proc0_3(0)
        )
        (send gFpWin:
            color(0)
            back(gBack)
        )
        (SysWindow:back(gBack))
        (send (ScriptID(15 1)):
            color(0)
            back(17)
            topBordColor(17)
            lftBordColor(17)
            rgtBordColor(17)
            botBordColor(17)
            insideColor(19)
            topBordColor2(18)
            lftBordColor2(18)
            botBordColor2(20)
            rgtBordColor2(20)
        )
        TextFonts(0 4)
        TextColors(40 72 10 74)
        Palette(palSET_FROM_RESOURCE 999 2)
        Message(msgGET 0 21 0 0 Random(1 8) @local0)
        SetQuitStr(@local0)
    )

)
