</*War Card Game*/
import GUI
var number : string
var numbers := "0"
var number2 : string
var numbers2 := "0"

var winID : int
var exitButton, newGameButton, drawButton : int
winID := Window.Open ("graphics:490, 371  ,title:War")
var orginalNumber : string
var name : string
var computer := "Computer"

put "Please Enter Name"
get name

proc Background
    Pic.ScreenLoad ("Graphics/awesomeBackround3.bmp", 0, 0, picCopy)
    Draw.Text (name, 1 + 35 * index (name, name), 350, Font.New ("Times New Roman:24"), white)
    Draw.Text (computer, 290 + 35 *index (computer,computer), 350, Font.New ("Times New Roman:24"), white)
end Background



proc DrawCard
    var file : int
    open : file, "Number.txt", get
    var numberOfNumbers := 0
    loop
        get : file, skip
        exit when eof (file)
        numberOfNumbers += 1
        get : file, number
        %put number, " ", numberOfNumbers
    end loop
    close : file
    var randomNumber := Rand.Int (1, numberOfNumbers)
    open : file, "Number.txt", get
    for Number : 1 .. randomNumber
        get : file, skip
        exit when eof (file)
        get : file, number
    end for
    close : file
end DrawCard

proc ComputerDrawCard
    var file : int
    open : file, "Number.txt", get
    var numberOfNumbers := 0
    loop
        get : file, skip
        exit when eof (file)
        numberOfNumbers += 1
        get : file, number2
        %put number, " ", numberOfNumbers
    end loop
    close : file
    var randomNumber := Rand.Int (1, numberOfNumbers)
    open : file, "Number.txt", get
    for Number2 : 1 .. randomNumber
        get : file, skip
        exit when eof (file)
        get : file, number2
    end for
    close : file
end ComputerDrawCard

proc Score
    var file : int
    open : file, "Score.txt", get
    var numberOfNumbers := 0
    loop
        get : file, skip
        exit when eof (file)
        numberOfNumbers += 1
        get : file, number
        %put number, " ", numberOfNumbers
    end loop
    close : file
    var randomNumber := Rand.Int (1, numberOfNumbers)
    open : file, "Score.txt", get
    for Number : 1 .. randomNumber
        get : file, skip
        exit when eof (file)
        get : file, number
    end for
    close : file
end Score

proc ComputerScore
    var file : int
    open : file, "Score.txt", get
    var numberOfNumbers := 0
    loop
        get : file, skip
        exit when eof (file)
        numberOfNumbers += 1
        get : file, number2
        %put number, " ", numberOfNumbers
    end loop
    close : file
    var randomNumber := Rand.Int (1, numberOfNumbers)
    open : file, "Score.txt", get
    for Number2 : 1 .. randomNumber
        get : file, skip
        exit when eof (file)
        get : file, number2
    end for
    close : file
end ComputerScore

proc PlaceNumber
    Draw.Text (number, 60 + 35 * index (numbers, number), 300, Font.New ("arial:16"), blue)
end PlaceNumber

proc PlaceComputersNumber
    Draw.Text (number2, 380 + 35 * index (numbers2, number2), 300, Font.New ("arial:16"), green)
end PlaceComputersNumber

proc PlaceScore
    Draw.Text (number, 60 + 35 * index (numbers, number), 150, Font.New ("arial:16"), green)
end PlaceScore

proc PlaceComputerScore
    Draw.Text (number, 380 + 35 * index (numbers, number), 150, Font.New ("arial:16"), blue)     
end PlaceComputerScore

proc NewGame
    Draw.Cls %Remove Screen
    Background
    GUI.Refresh
    %pick a new Number
    DrawCard
    ComputerDrawCard
    GUI.Enable (newGameButton)
end NewGame

proc exitGameButton
    Draw.Cls
    GUI.Refresh
    DrawCard
    GUI.Disable (exitButton)
end exitGameButton

proc DisableButtons
    GUI.Disable (newGameButton)
end DisableButtons

proc buttons
    newGameButton := GUI.CreateButton (80, 3, 0, "New", NewGame)
    GUI.Enable (newGameButton)
    exitButton := GUI.CreateButton (10, 3, 0, "Quit", GUI.Quit)
    drawButton := GUI.CreateButton (220, 190, 0, "Draw", DrawCard)
end buttons

proc WinGame
    put "You Win"
    %Pic.ScreenLoad ("Graphcis/", 0, 0, picCopy)
    GUI.Enable (newGameButton)
end WinGame

proc MainProgram
    loop
        exit when GUI.ProcessEvent
    end loop
end MainProgram


Background
DrawCard
ComputerDrawCard
Score
ComputerScore
PlaceNumber
PlaceComputersNumber
PlaceScore
PlaceComputerScore
buttons
MainProgram
>