Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 Need Help
Index -> Programming, Turing -> Turing Help
View previous topic Printable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
ImDaMan




PostPosted: Mon Oct 09, 2006 6:30 pm   Post subject: Need Help

Hey everyone, i started programming about a month ago so i'm pretty noobie. I'm currently programming a game right now and I want get Turing to play music while I play the game, how do I do that.
oh yeah, one more thing, my plane keeps flickering even when I use View.Update, anyone got any ideas? Confused
As I have said before, i'm pretty noobie, so here are my codes, I bet there are simple ways to do some of these codes. Embarassed

code:

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

Sponsor
Sponsor
Sponsor
sponsor
Clayton




PostPosted: Mon Oct 09, 2006 6:37 pm   Post subject: (No 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 Sad check out my View.Set and View.Update tutorial in the Turing Walkthrough Very Happy

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 Very Happy
Silent Avenger




PostPosted: Mon Oct 09, 2006 6:39 pm   Post subject: (No 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
ImDaMan




PostPosted: Mon Oct 09, 2006 6:41 pm   Post subject: ty

Thanks Smile

btw: I know this probably sounds stupid but how do you actual use that command? (filename:string)?? Embarassed
ImDaMan




PostPosted: Mon Oct 09, 2006 6:52 pm   Post subject: nvm that last message

nvm, I found out how.... Embarassed
Silent Avenger




PostPosted: Mon Oct 09, 2006 7:18 pm   Post subject: (No 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.
Cervantes




PostPosted: Mon Oct 09, 2006 7:22 pm   Post subject: (No 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.
Display posts from previous:   
   Index -> Programming, Turing -> Turing Help
View previous topic Tell A FriendPrintable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 7 Posts ]
Jump to:   


Style:  
Search: