hi im trying to put highscores in my program but cant figure out how, plz help
| Turing: |
< loop
loop %opens the loop
put "This coarse tests your ability to dodge" % tells user what minigame does
colorback (white) %makes background white
View.Set ("offscreenonly") %makes the screen offscreenonly
Pic.Draw (dhalismjump, x, y, picMerge) %picture of guy jumping
View.Set ("offscreenonly") %makes the screen offscreenonly
Pic.Draw (dhalismjump, x, y, picMerge) %picture of guy jumping
x1 := x1 - 10 %makes x1 go left 10 spots
if x1 < 0 then %if x1 is lower than 0 then
x1 := 1100 %x1 resets to 1100
count := count + 1
end if %ends if statement
Input.KeyDown (keys ) %allows keys to be pressed
if keys (KEY_UP_ARROW) then % if up key is pressed then
jump23 % man jumps up
end if %ends if statement
if keys (KEY_RIGHT_ARROW) then % if right arrow key is pressed then
delay (100) %delay the program
walkRight4 % man walks to the right
delay (50) %delays program
Pic.Draw (dhalism, x, y, picMerge) %draws man base picture
Pic.Draw (bomb, x1, 1, picMerge) %draws the plasma ball
end if %ends if statement
if keys (KEY_LEFT_ARROW) then % if left arrow key is presses then
delay (100) %delay the program
walkLeft5 %man walks left
delay (50) %delays the program
Pic.Draw (dhalism, x, y, picMerge) %draws man base picture
Pic.Draw (bomb, x1, 1, picMerge) %draws the plasma ball
end if %ends if statement
cls
Pic.Draw (background1, 1, 1, picXor) %draws the background
Pic.Draw (dhalism, x, y, picMerge) %draws man base picture
Pic.Draw (bomb, x1, 1, picMerge) %draws the plasma ball
if keys ('1') then
cls
Pic.Draw (background1, 1, 1, picXor) %draws the background
Pic.Draw (dhalism1, x, y, picMerge) %picture of guy punshing
Pic.Draw (bomb, x1, 1, picMerge) %draws the plasma ball
end if %ends if statement
if keys ('e') then %if e key is pressed then
jump24 % make the man jump to the right
end if % ends if statement
if keys ('q') then %if q key is pressed then
jump25 % make the man jump to the left
end if % ends if statement
if keys ('2') then %if 2 key is pressed then
cls %clears the screen
Pic.Draw (background1, 1, 1, picXor) %draws the background
Pic.Draw (dhalismpunch, x, y, picMerge) %picture of guy punshing
Pic.Draw (bomb, x1, 1, picMerge) %draws the plasma ball
end if %ends if statement
if keys ('3') then %if 3 key is pressed then
cls %clears teh screen
Pic.Draw (background1, 1, 1, picXor) %draws the background
Pic.Draw (dhalismkick, x, y, picMerge) %picture of guy kicking
Pic.Draw (bomb, x1, 1, picMerge) %draws the plasma ball
end if %ends if statement
if keys (KEY_DOWN_ARROW) then %if Down arrow key is pressed then
cls %clears the screen
Pic.Draw (background1, 1, 1, picXor) %draws the background
Pic.Draw (dhalismduck, x, y, picMerge) %outputs picture of man ducking
Pic.Draw (bomb, x1, 1, picMerge) %draws the plasma ball
end if %ends if statement
View.Update %refreshes the screen
if x1 = x then % if x1 is the same as x then
View.Set ("nooffscreenonly") %teurs offscreen only off
Pic.Draw (loser, 1, 1, picMerge) % outputs picture of loser sign
delay (1000) %delays the program
cls %clears the screen
put "would you like to play again?" % asks user if he/she wants to play again
get answer3 %gets the answer
if answer3 = "y" or answer3 = "Y" %if the answer if yes then
then % then
x := 0 % resets x coordinate
x1 := 1100 %resets x1 coordiante
cls %clears the screen
%loops to top of the game
elsif answer3 = "n" or answer3 = "N" % if asnweer is no then
then %then
exit %program exits
%goes to top of program
end if %ends if statement
elsif x1 > x and x1 < x + 150 then %if x1 is greater then x and x1 is less then x + 150 then
View.Set ("nooffscreenonly") %turns offscreen only off
Pic.Draw (loser, 1, 1, picMerge) %outputs loser sign picture
delay (1000) %delays the program
cls %clears the screen
put "your score was", count
put "would you like to play again?" % asks user if he/she wants to play again
get answer3 %gets the answer
if answer3 = "y" or answer3 = "Y" %if the answer if yes then
then %then
cls %lears the screen
x := 0 % resets x coordinate
x1 := 1100 %resets x1 coordiante
%loops to top of the game
elsif answer3 = "n" or answer3 = "N" % if asnweer is no then
then %then
x := 0 % resets x coordinate
x1 := 1100 %resets x1 coordiante
exit %program exits
end if %ends if statement
end if %ends if statement
end loop %ends the loop
if answer3 = "n" then % if answer is no then
exit %program exits and goes to top of program
end if %ends if statement
end loop %ends the loop
end if %ends if statement
end loop %ends loop
|
|
