% Mid-Term Project:  Contagion
% By: Martin
% April 16,2015


%Variables
var strChoice : string
var strName : string
var strSkip : string
var strMenu : string
var blnRun : boolean
var font1 : int
var font2 : int
var font3 : int
var intMouseX : int
var intMouseY : int
var intMouseBut : int
var intX : int
%Initializing
blnRun := false
intX := 150
font1 := Font.New ("Ravie:12:italic")
font2 := Font.New ("Comic Sans MS:22")
font3 := Font.New ("Lucida Console:30")
proc TypewriterPrint (text : string)
    for i : 1 .. length (text)
        delay (20)
        put text (i) ..
    end for
    put ""
end TypewriterPrint




%Menu

var Drawing := Pic.FileNew ("Logo.bmp")
Pic.Draw (Drawing, 80, 300, picMerge)
Font.Draw ("An interactive story", 350, 300, font1, black)


if blnRun = false then
    loop
        Draw.FillBox (290, 190, 360, 230, white)
        Font.Draw ("(P)lay", 300, 200, font2, brightred)
        delay (10)
        Draw.FillBox (290, 150, 360, 220, white)
        Font.Draw ("(I)nstructions", 245, 150, font2, brightred)
        var chars : array char of boolean
        Input.KeyDown (chars)

        %Play
        if chars ('p') then
            cls
            loop
                Font.Draw ("Loading world", 180, 250, font3, brightred)
                Draw.FillBox (150, 150, 500, 200, blue)
                Draw.FillBox (intX, 150, 500, 200, white)
                delay (20)
                intX := intX + 5
                exit when intX > 500
            end loop
            cls
           
            %Instructions
        elsif chars ('i') then
            cls
            TypewriterPrint ("This game is decided based on your decisions.")
            TypewriterPrint ("You can choose your decisions by pressing its respective letter on the keyboard.")
            TypewriterPrint ("Instructions on how to input using mouse will be given during the game.")
            put ("                                                                ")
            TypewriterPrint ("Thanks for playing=D")
            blnRun := true

        end if
        exit when chars ('p')
        exit when chars ('i')

    end loop


end if