Well another to make tutorials interesting are games. Look how much I learned from this tutorial. | Turing: | %Name:Dave Angus
%File: moveball1.t
%Date:March 20th 2008
%
%Description: Game that moves ball and has a black hole.
setscreen ("graphics:m256")
setscreen ("offscreenonly")
%Declaration of variables
var score : int := 0
var radius : int
var xpos, ypos : int
var xdir, ydir : int
var key : array char of boolean
var col1 : int
var boxx : int
var boxy : int
var fn : int
var highscore : int
var CheckScore : int
var again : string (1)
%Initialization of variables
radius := 25
xpos := 50
ypos := 50
xdir := 10
ydir := 10
col1 := 5
randint (boxx, 1, maxx - 25)
randint (boxy, 1, maxy - 25)
%
procedure CheckScoreFile (var fn : int) % write a score if none exists. Error occurs if game terminated.
var contents : string
open : fn, "HighScores.txt", get
if fn <= 0 then
close : fn
open : fn, "HighScores.txt", put
put : fn, 0, " - No Name"
else
if not eof (fn ) then
get : fn, contents : *
if contents = "" then
close : fn
open : fn, "HighScores.txt", put
put : fn, 0, " - No Name"
end if
else
close : fn
open : fn, "HighScores.txt", put
put : fn, 0, " - No Name"
end if
end if
close : fn
end CheckScoreFile
%
procedure ViewHighScore (var fn : int)
open : fn, "HighScores.txt", get
if fn <= 0 then
locate (12, 5)
put "No high score set!"
return
end if
var HighScore : string
get : fn, HighScore : *
cls
put "High Score: ", HighScore
var key : string (1)
put skip, "Press a key to continue"
getch (key )
close : fn
end ViewHighScore
%
procedure PutScore (var fn : int, score : int)
open : fn, "HighScores.txt", put
var name : string
locate (22, 5)
put "Enter name: " ..
View.Update
get name : *
put : fn, score, " - ", name
close : fn
end PutScore
%Start of main program.
CheckScoreFile (fn )
loop
loop
%Clear the screen
cls
%Draw the circle to our buffer
drawfilloval (xpos, ypos, radius, radius, col1 )
drawfillbox (boxx, boxy, boxx + 25, boxy + 25, black)
put "Score : ", score
%Key the pressed key from the keyboard
Input.KeyDown (key )
%Moved the ball up until it hit the top of the screen
if key (KEY_UP_ARROW) and ypos < maxy - radius then
ypos := ypos + ydir
end if
%Moves the ball down until it hits the bottom of the screen
if key (KEY_DOWN_ARROW) and ypos > radius then
ypos := ypos - ydir
end if
%moves the ball right until it hits the right of the screen
if key (KEY_RIGHT_ARROW) and xpos < maxx - radius then
xpos := xpos + xdir
end if
%moves the ball left until it hits the left of the screen
if key (KEY_LEFT_ARROW) and xpos > radius then
xpos := xpos - xdir
end if
if xpos > boxx and xpos < boxx + 25 and ypos > boxy and ypos < boxy + 25 then
randint (boxx, 1, maxx - 25)
randint (boxy, 1, maxy - 25)
randint (xpos, 1, maxx - 25)
randint (ypos, 1, maxy - 25)
score + = 1
end if
%Put what's on our buffer to the screen
View.Update
exit when Time.Elapsed >= 50000
end loop
View.Set ("nooffscreenonly")
put "You got ", score, " blackholes!"
open : fn, "HighScores.txt", get
get : fn, CheckScore
close : fn
if score >= CheckScore then
locate (20, 5)
put "New high score!!!"
PutScore (fn, score )
end if
loop
put "Would you like to play again? (y/n) Press h to view highscores"
getch (again )
if again = "h" or again = "H" then
ViewHighScore (fn )
end if
exit when again = "n" or again = "N" or again = "y" or again = "Y"
end loop
exit when again = "n"
end loop
|
Sorry if I modified your code too much. Enjoy. |
