setscreen ("graphics:850;600")

put "Welcome to Super Awesome Guitar Game!"
put ""
put "The game is simple: strum the guitar by pressing space."
put ""
put "You must strum the guitar a certain amount of times before the song ends in order to complete the level."
put "If you fail to do so, you lose!!"
put ""
put "Please do not cheat the game by holding the space bar; it's no fun that way. :("
put ""
put "Type in the difficulty you wish to start with (1-10 in inreasing difficulty) then press enter to start!"

var idiff : int

get idiff

var itimes, ineeded : int
var ckey : string(1)

ineeded := 500*idiff
itimes := 0
cls


loop
var itime : int := Time.Elapsed()
exit when itimes = ineeded or itime = 10000
put itimes
put ineeded
getch (ckey)
if ord (ckey) = 32 then
itimes := itimes + 1
end if
cls
end loop

if itimes = ineeded then
put "Nice"
else
put "You Failed"
end if

exit when itimes = ineeded or itime = 10000
put itimes
put ineeded