import GUI in "gui"
% variables
var windowID : int := Window.Open ("graphics:345;200, title:Lucky Seven")
var fontID : int := Font.New ("Verdana:40")
var gameEnd : boolean := false
var total : int := 100


randomize

% sets bgcolor to grey
colorback (28)
cls

% prints total money amount on title bar
colorback (25)
locate (2, 2)
put "Winnings : $", total
% prints lucky seven on bottom of screen
Font.Draw ("Lucky Seven", 1, 1, fontID, black)


% draws and clears number windows
procedure numberWindows (fillColor : int)
var boxx : int := 120
for i : 1 .. 3
Draw.Box (boxx, 90, boxx + 50, 170, black)
Draw.Fill (boxx + 10, 100, fillColor, black)
boxx := boxx + 60
end for
end numberWindows

% when 'Spin' button is pressed
procedure Spin
% 3 random numbers
var number : array 1 .. 3 of int
% font x value of numbers
var fx : int := 130
% calls setup procedure to clear number windows
numberWindows (31)
% chooses 3 random numbers and displays them in number windows
for i : 1 .. 3
randint (number (i), 0, 9)
Font.Draw (intstr (number (i)), fx, 95, fontID, 18)
fx += 60
end for
if number (1) = 7 and number (2) = 7 and number (3) = 7 then
% if user gets 3 sevens
% adds 100 bucks to total winnings
total := total + 100
locate (2, 2)
put " "
locate (2, 2)
put "Winnings : $", total
sound (900, 300)
% flashes the lucky seven logo
for i : 1 .. 10
Font.Draw ("Lucky Seven", 1, 1, fontID, 14)
delay (100)
Font.Draw ("Lucky Seven", 1, 1, fontID, 3)
delay (100)
end for
Font.Draw ("Lucky Seven", 1, 1, fontID, 7)
elsif number (1) = 7 or number (2) = 7 or number (3) = 7 then
% if user gets one seven
% adds 10 bucks to total
total := total + 10
locate (2, 2)
put " "
locate (2, 2)
put "Winnings : $", total
sound (700, 200)
else
% no sevens, loses 10 bucks
total := total - 10
locate (2, 2)
put " "
locate (2, 2)
put "Winnings : $", total
end if
end Spin

% when 'Exit' button is pressed
procedure Exit
gameEnd := true
end Exit


numberWindows (31)

% draws buttons
var buttonSpin : int := GUI.CreateButton (40, 140, 0, "Spin", Spin)
var buttonExit : int := GUI.CreateButton (40, 90, 0, "Exit", Exit)

loop
exit when gameEnd = true
exit when GUI.ProcessEvent
end loop

% closes window
Window.Close (windowID)