Need Help!!
Author |
Message |
Fmaric007
|
Posted: Tue Jan 04, 2011 8:20 am Post subject: Need Help!! |
|
|
What is it you are trying to achieve?
Timer for my game! -Need a code
my code for my game so far is
View.Set ("offscreenonly")
var background, backbround2, background3, background4, background5, background6, background7, background8, background9, background10, background11, background12, background13 : int
var Smiley : int
var level : int := 1
var counter : int := 35
background := Pic.FileNew ("backgroundSAXBERGGAME.bmp")
process scream
loop
Music.PlayFile ("scream.mp3")
exit
end loop
end scream
var scary : int
scary := Pic.FileNew ("scary.bmp")
Smiley := Pic.FileNew ("Smiley2.jpg")
var x, y : int
x := 100
y := 375
var char1 : array char of boolean
loop
%View.Set ("Smiley: 75;100")
Input.KeyDown (char1)
if char1 (KEY_UP_ARROW) then
y := y + 10
end if
if char1 (KEY_RIGHT_ARROW) then
x := x + 10
end if
if char1 (KEY_LEFT_ARROW) then
x := x - 10
end if
if char1 (KEY_DOWN_ARROW) then
y := y - 10
end if
if x < 0 then
x := 600
elsif x > 600 then
x := 0
elsif y < 0 then
y := 400
elsif y > 400 then
y := 0
end if
Pic.Draw (background, 20, maxy - 400, picCopy)
Draw.FillBox (310, 0, 370, 19, 5)
if whatdotcolor (x, y) = 7 then
put "Get out of Black!"
end if
if whatdotcolor (x, y) = 5 then
level := level + 1
x := 100
y := 375
if level = 1 then
background := Pic.FileNew ("backgroundSAXBERGGAME.bmp")
elsif level = 2 then
background := Pic.FileNew ("background2.bmp")
elsif level = 3 then
background := Pic.FileNew ("background3.bmp")
elsif level = 4 then
background := Pic.FileNew ("background4.bmp")
elsif level = 5 then
background := Pic.FileNew ("background5.bmp")
elsif level = 6 then
background := Pic.FileNew ("background6.bmp")
elsif level = 7 then
background := Pic.FileNew ("background7.bmp")
elsif level = 8 then
background := Pic.FileNew ("background8.bmp")
elsif level = 9 then
background := Pic.FileNew ("background9.bmp")
elsif level = 10 then
background := Pic.FileNew ("background10.bmp")
elsif level = 11 then
background := Pic.FileNew ("background11.bmp")
elsif level = 12 then
background := Pic.FileNew ("background12.bmp")
elsif level = 13 then
background := Pic.FileNew ("background13.bmp")
fork scream
end if
end if
if level = 13 then
counter := counter - 1
Pic.Draw (scary, 0, 0, picCopy)
if counter < 0 then
fork scream
end if
end if
Pic.Draw (Smiley, x, y, picCopy)
delay (35)
View.Update
cls
end loop
What is the problem you are having?
Whenever I add timer codes, they dont work
Describe what you have tried to solve this problem
Tried several codes
All i need is a code for my game (timer) THAT WORKS, much appreciated if u put it in my code aswell
Please specify what version of Turing you are using
Turing |
|
|
|
|
|
Sponsor Sponsor
|
|
|
Tony
|
|
|
|
|
Fmaric007
|
Posted: Wed Jan 05, 2011 9:34 am Post subject: RE:Need Help!! |
|
|
that didnt help when i added that into the code. |
|
|
|
|
|
Insectoid
|
Posted: Wed Jan 05, 2011 9:59 am Post subject: RE:Need Help!! |
|
|
Exactly how did you put it in your code? You can't just drop the command in anywhere, it has to be used correctly just like any other. |
|
|
|
|
|
|
|