Computer Science Canada :: View topic

Music.PlayFile ("c:/Cherub rock.wav")
View.Set ("graphics,offscreenonly,nocurser")
var a, b, c, d, e, f : int
var x, y : int
x := 100
y := 100
var chars : array char of boolean
var ship : int := Pic.FileNew ("c:/game resources/ship.bmp")
var fire : int := Pic.FileNew ("c:/game resources/fire.bmp")
var planet1 : int := Pic.FileNew ("c:/game resources/planet1.bmp")
var planet2 : int := Pic.FileNew ("c:/game resources/planet2.bmp")
colourback (7)
cls
randomize
a := Rand.Int (300, 400)
b := Rand.Int (200, 400)
c := Rand.Int (200, 300)
d := Rand.Int (0, 200)
loop
View.Update
Pic.Draw (planet1, a, b, 0)
View.Update
Pic.Draw (planet2, c, d, 0)
Input.KeyDown (chars)
if chars (KEY_UP_ARROW) then
y := y + 20
end if
if chars (KEY_DOWN_ARROW) then
y := y - 20
end if
if chars (KEY_LEFT_ARROW) then
x := x - 20
end if
if chars (KEY_RIGHT_ARROW) then
x := x + 20
end if
View.Update
Pic.Draw (ship, x, y, 0)
delay (70)
cls
Input.KeyDown (chars)
if chars (KEY_ENTER) then
var m, n : int
m := x
n := y
View.Update
Pic.Draw (ship, x, y, 0)
for decreasing counter : 8 .. 1
Pic.Draw (ship, x, y, 0)
View.Update
Pic.Draw (fire, m + 100, n + 34, 0)
delay (20)
cls
View.Update
Pic.Draw (fire, m + 100, n - 5, 0)
delay (20)
cls
View.Update
Pic.Draw (ship, x, y, 0)
m := m + 100
View.Update
Pic.Draw (planet1, a, b, 0)
View.Update
Pic.Draw (planet2, c, d, 0)
end for
View.Update
Pic.Draw (planet1, a, b, 0)
View.Update
Pic.Draw (planet2, c, d, 0)
Music.PlayFile ("c:/missile5.wav")
View.Update
Pic.Draw (ship, x, y, 0)
if m = a or c = m and n = b or n = d then
locate (10, 50)
put "you got em..."
Music.PlayFile ("c:/explosion2.wav")
end if
end if
end loop

Author:	Clayton [ Mon Oct 09, 2006 6:37 pm ]
Post subject:
ok, first of all, get rid of the randomize in there, you dont need it, it was used way back when in like 3.x versions of Turing (even before that i believe actually) and is no longer used. next, you only need one View.Update in there, the reason it is flashing is because you draw your picture, then clear the screen, then View.Update, so you see a clear screen for a second then you get the picture check out my View.Set and View.Update tutorial in the Turing Walkthrough to get the music to play while everything else is happening use the Music.PlayFileReturn (filename:string) procedure (well process really...) and you should be fine

Author:	Silent Avenger [ Mon Oct 09, 2006 6:39 pm ]
Post subject:
Well first off you shouldn't post threads with subjects of "need help". Next time put in something you need help with in the subject so in your case you might put "need help with playing music and flickering". I've also found a tutorial on the haltsoft website for you, the link is below. http://www.holtsoft.com/turing/tech/music.html

Author:	ImDaMan [ Mon Oct 09, 2006 6:41 pm ]
Post subject:	ty
Thanks btw: I know this probably sounds stupid but how do you actual use that command? (filename:string)??

Author:	ImDaMan [ Mon Oct 09, 2006 6:52 pm ]
Post subject:	nvm that last message
nvm, I found out how....

Author:	Silent Avenger [ Mon Oct 09, 2006 7:18 pm ]
Post subject:
Well it's a good thing that you figured out how to do it yourself because that's how you really learn, by figuring things out by yourself and not having people telling you what to do.

Author:	Cervantes [ Mon Oct 09, 2006 7:22 pm ]
Post subject:
"Music.PlayFileReturn (filename:string)" means that the Music.PlayFileReturn procedure takes one parameter and that parameter is a string. It is referred to as "filename" in the definition of the procedure. You'll start to use this syntax when you start defining your own subroutines.