Computer Science Canada

posted all me pic with game
Author:  snaz [ Sun May 23, 2004 8:34 am ]
Post subject:  posted all me pic with game
Hi guys, I am making the asteroid game and I am almost done. I need help to disappear the rock from screen when I shoot with my gun, and also how can I do this by chance if rock hit my plane, then the plan crash and after 2 second, new ship appear. Some one plz help cus this is my first and last assignment in Turing. i post all the pics one more question where do i put background in my game. i am using keyboard not mouse. my friend told me that i have to use function or boolen and i don't know how, you can explain to me or can give me the codes.

here are the codes of my game




[img]
code:
View.Set ("graphics:800;600,offscreenonly")

var shipUpper : int := Pic.FileNew ("gun.jpg")
var bulletUpper : int := Pic.FileNew ("bullet.jpg")
var rock : int := Pic.FileNew ("rock.jpg")
Pic.SetTransparentColour (rock, black)
var shipDown : int := Pic.Rotate (shipUpper, 180, -1, -1) % Rotate for down arrow
var shipLeft : int := Pic.Rotate (shipUpper, 90, -1, -1) % Rotate for left arrow
var shipRight : int := Pic.Rotate (shipUpper, 270, -1, -1) % Rotate for right arrow
var bulletDown : int := Pic.Rotate (bulletUpper, 180, -1, -1)
var bulletLeft : int := Pic.Rotate (bulletUpper, 90, -1, -1)
var bulletRight : int := Pic.Rotate (bulletUpper, 270, -1, -1)

var x1, y1, x2, x3, y4, bulletX, bulletY, score, life, rockX, rockY : int := 0
var keys : array char of boolean % they key currently being pressed
var KEY_SPACEBAR : char := chr (32)
var UP_ARROW : char := chr (200)
var LEFT_ARROW : char := chr (203)
var RIGHT_ARROW : char := chr (205)
var DOWN_ARROW : char := chr (208)

life := 20
rockX := 20
rockY := 700

process rockDropping
loop
Pic.Draw (rock, rockX, rockY, picXor)
View.Update
Pic.Draw (rock, rockX, rockY, picXor)
rockY := rockY - 10
if rockY <= 0 then
randint (rockX, 20, 500)
randint (rockY, 700, 900)
rockY := rockY - 10
end if
end loop
end rockDropping

fork rockDropping
loop

colorback (black)

Input.KeyDown (keys)

if keys (UP_ARROW) then
cls
Pic.Draw (shipUpper, x2 + x3, y1 + y4, picMerge)
y1 := y1 + 10
if keys (KEY_SPACEBAR) then
Pic.Draw (bulletUpper, x2 + x3 + 34, y1 + y4 + 120 + bulletY, picMerge)
bulletY := bulletY + 10
else
bulletY := 0
end if

elsif keys (LEFT_ARROW) then
cls
Pic.Draw (shipLeft, x2 + x3, y1 + y4, picMerge)
x2 := x2 - 10
if keys (KEY_SPACEBAR) then
Pic.Draw (bulletLeft, x2 + x3 - 40, y1 + y4 + 35 - bulletX, picMerge)
bulletX := bulletX - 10
else
bulletX := 0
end if

elsif keys (DOWN_ARROW) then
cls
Pic.Draw (shipDown, x2 + x3, y4 + y1, picMerge)
y4 := y4 - 10
if keys (KEY_SPACEBAR) then
Pic.Draw (bulletDown, x2 + x3 + 34, y1 + y4 - 40 + bulletY, picMerge)
bulletY := bulletY - 7
else
bulletY := 0
end if

elsif keys (RIGHT_ARROW) then
cls
Pic.Draw (shipRight, x3 + x2, y1 + y4, picMerge)
x3 := x3 + 10
if keys (KEY_SPACEBAR) then
Pic.Draw (bulletRight, x2 + x3 + 131, y1 + y4 + 35 + bulletX, picMerge)
bulletX := bulletX + 10
else
bulletX := 0
end if
end if

if y1 + y4 >= 300 then
cls
Pic.Draw (shipDown, x2 + x3, y4 + y1, picMerge)
y1 := y1 - 10
elsif y4 + y1 <= 0 then
cls
Pic.Draw (shipUpper, x2 + x3, y1 + y4, picMerge)
y4 := y4 + 10
elsif x2 + x3 < 0 then
cls
Pic.Draw (shipRight, x3 + x2, y1 + y4, picMerge)
x2 := x2 + 10
elsif x3 + x2 >= 500 then
cls
Pic.Draw (shipLeft, x2 + x3, y1 + y4, picMerge)
x3 := x3 - 10
end if

locate (33, 87)
color (white)
put score, " : Score"

locate (35, 87)
color (white)
put life, " : Life"

View.Update


end loop 
[/img]
Author:  AsianSensation [ Sun May 23, 2004 10:10 am ]
Post subject: 
I believe there is a very detailed asteroid game source released when you install turing. You can always look through that. It covers everything, even Frames Per Second if you need it.
Author:  snaz [ Mon May 24, 2004 1:07 pm ]
Post subject:  done everything just need help to disapear the rock
the game u get from turing it's pretty advance cus it's university level and i can't understand cus i am in grade 10. i done score and everything i just need to dispaer the rokc when the bullet hit the rock
here are the codes

code:
View.Set ("graphics:800;600,offscreenonly")

colorback (black)

var shipUpper : int := Pic.FileNew ("gun3.jpg")
var bulletUpper : int := Pic.FileNew ("bullet.jpg")
var rock : int := Pic.FileNew ("rock.bmp")

var shipDown : int := Pic.Rotate (shipUpper, 180, -1, -1)      % Rotate for down arrow
var shipLeft : int := Pic.Rotate (shipUpper, 90, -1, -1)       % Rotate for left arrow
var shipRight : int := Pic.Rotate (shipUpper, 270, -1, -1)     % Rotate for right arrow
var bulletDown : int := Pic.Rotate (bulletUpper, 180, -1, -1)
var bulletLeft : int := Pic.Rotate (bulletUpper, 90, -1, -1)
var bulletRight : int := Pic.Rotate (bulletUpper, 270, -1, -1)

var x1, y1, x2, x3, y4, bulletX, bulletY, score, life, rockX, rockY : int := 0
var rockDead : boolean := true

var keys : array char of boolean % they key currently being pressed
var KEY_SPACEBAR : char := chr (32)
var UP_ARROW : char := chr (200)
var LEFT_ARROW : char := chr (203)
var RIGHT_ARROW : char := chr (205)
var DOWN_ARROW : char := chr (208)

life := 10
rockY := 700

process rockDropping
    loop
        if rockDead = true then
            Pic.Draw (rock, rockX, rockY, picXor)
            for b : 1 .. 20
                View.Update
            end for
            Pic.Draw (rock, rockX, rockY, picXor)
            if rockY < 0 then
                randint (rockX, 20, 500)
                randint (rockY, 700, 900)
                score := score - 5
                delay (500)
            end if
            rockY := rockY - 10
        elsif rockDead = false then
            Pic.Draw (rock, rockX, rockY, picXor)
            for b : 1 .. 20
                View.Update
            end for
            Pic.Draw (rock, rockX, rockY, picXor)
            if rockY < 0 then
                randint (rockX, 20, 500)
                randint (rockY, 700, 900)
                score := score - 5
                delay (500)
            end if
            rockY := rockY - 10
        end if
        exit when life = 0
    end loop
end rockDropping

fork rockDropping

loop

    colorback (black)

    Input.KeyDown (keys)

    if keys (UP_ARROW) then
        cls
        Pic.Draw (shipUpper, x2 + x3, y1 + y4, picMerge)
        if rockY <= y1 + 10 + y4 and rockX <= x2 + x3 then
        end if
        y1 := y1 + 10
        if keys (KEY_SPACEBAR) then
            Pic.Draw (bulletUpper, x2 + x3 + 34, y1 + y4 + 120 + bulletY, picMerge)
            if x2 + x3 + 34 >= rockX and y1 + y4 + 120 + bulletY + 10 >= rockY - 10 then
                score := score + 10
                rockDead := false
            end if
            bulletY := bulletY + 10
        else
            bulletY := 0
        end if

    elsif keys (LEFT_ARROW) then
        cls
        Pic.Draw (shipLeft, x2 + x3, y1 + y4, picMerge)
        x2 := x2 - 10
        if keys (KEY_SPACEBAR) then
            Pic.Draw (bulletLeft, x2 + x3 - 40 - bulletX, y1 + y4 + 35, picMerge)
            if x2 + x3 - 40 - bulletX + 10 >= rockX and y1 + y4 + 35 >= rockY - 10 then
                score := score + 10
                rockDead := false
            end if
            bulletX := bulletX + 10
        else
            bulletX := 0
        end if

    elsif keys (DOWN_ARROW) then
        cls
        Pic.Draw (shipDown, x2 + x3, y4 + y1, picMerge)
        y4 := y4 - 10
        if keys (KEY_SPACEBAR) then
            Pic.Draw (bulletDown, x2 + x3 + 34, y1 + y4 - 40 + bulletY, picMerge)
            if x2 + x3 + 34 >= rockX and y1 + y4 - 40 + bulletY - 10 >= rockY - 10 then
                score := score + 10
                rockDead := false
            end if
            bulletY := bulletY - 10
        else
            bulletY := 0
        end if

    elsif keys (RIGHT_ARROW) then
        cls
        Pic.Draw (shipRight, x3 + x2, y1 + y4, picMerge)
        x3 := x3 + 10
        if keys (KEY_SPACEBAR) then
            Pic.Draw (bulletRight, x2 + x3 + 131 + bulletX, y1 + y4 + 35, picMerge)
            if x2 + x3 + 131 + bulletX + 10 >= rockX and y1 + y4 + 35 >= rockY - 10 then
                score := score + 10
                rockDead := false
            end if
            bulletX := bulletX + 10
        else
            bulletX := 0
        end if
    end if

    if y1 + y4 >= 500 then
        cls
        Pic.Draw (shipDown, x2 + x3, y4 + y1, picMerge)
        y1 := y1 - 10
    elsif y4 + y1 <= 0 then
        cls
        Pic.Draw (shipUpper, x2 + x3, y1 + y4, picMerge)
        y4 := y4 + 10
    elsif x2 + x3 < 0 then
        cls
        Pic.Draw (shipRight, x3 + x2, y1 + y4, picMerge)
        x2 := x2 + 10
    elsif x3 + x2 >= 450 then
        cls
        Pic.Draw (shipLeft, x2 + x3, y1 + y4, picMerge)
        x3 := x3 - 10
    end if

    if rockX <= x2 + x3 and rockY <= y1 + y4 then
        life := life - 1
    end if

    if score = 100 then
        life := life + 1
    elsif score = 200 then
        life := life + 1
    end if

    exit when life = 0

    locate (33, 87)
    color (white)
    put score, " : Score"

    locate (35, 87)
    color (white)
    put life, " : Life"


        View.Update
 

end loop
Author:  vagyb [ Mon May 24, 2004 1:09 pm ]
Post subject: 
could u post the pictures again it says they dont exist :S
Author:  snaz [ Mon May 24, 2004 3:16 pm ]
Post subject:  can't post the pics
i tried to many times but i can't post the pics. i don't know y , pls help me without the pics, i really need help cus i spend me whole weekend try to disapear the rock but i cna't that's y i post here
Author:  Dan [ Tue May 25, 2004 2:23 pm ]
Post subject: 
odd, e-mail me them dan@compsci.ca and i can upload them to this site if you still need help with this.
Author:  snaz [ Wed May 26, 2004 3:02 pm ]
Post subject:  posted my pic on website
hi, i upload my pics on this site www.compsci.ca/userfiles/game.zip
now plz some one help and i am not posting my problem again cus i already did.
Author:  guruguru [ Wed May 26, 2004 6:44 pm ]
Post subject: 
code:

if rockDead then
    rockY := maxy + rockHeight % above screen
    randint (rockX, .., ..)
end if


That works.
Author:  snaz [ Thu May 27, 2004 5:17 pm ]
Post subject:  Can you More specific plz
my problem was how the rock disapear from screen when i shoote with the bullet adn then automatically new rock appear from screen. and plz be more scpecific so i can understand, thanks
Author:  guruguru [ Thu May 27, 2004 5:42 pm ]
Post subject: 
rockY := maxy % above screen

This sets the rock back to the top of the screen. It is gone from the screen and starts agains as if it is a new rock.

randint (rockX, .., ..)

This makes the rock at a random x location as a new rock would. YOu can plug in your own numbers.


Do you have a collision detection set up for the bullet and rock? If not, then I suggest you do so. Test if the bulletY is >= to rockY and if bulletX is in the range of rockX. If so, then it should be easy. When bullet hits rock, rockDead = true, and call the procedure mentioned earlier to renew the rock.
Author:  snaz [ Thu May 27, 2004 7:30 pm ]
Post subject:  Hope ur idea work
Thanks man i hope ur idea will work and i will post it again if ur idea some how doesn't work.
Author:  snaz [ Thu May 27, 2004 9:36 pm ]
Post subject:  yo guruguru it doesn't work
i tried to many times but it doesn't work, what should i do?
Author:  guruguru [ Thu May 27, 2004 9:50 pm ]
Post subject: 
What to you mean 'it doesnt work'. It will work if implemented correctly. Post the code portion of your implementation so me and others can see what you are doing wrong and right.
Author:  snaz [ Sat May 29, 2004 4:48 pm ]
Post subject: 
this is my game codes and pic i already poted


code:
View.Set ("graphics:800;600,offscreenonly")

colorback (black)

var shipUpper : int := Pic.FileNew ("gun3.jpg")
var bulletUpper : int := Pic.FileNew ("bullet.jpg")
var rock : int := Pic.FileNew ("rock.bmp")

var shipDown : int := Pic.Rotate (shipUpper, 180, -1, -1)      % Rotate for down arrow
var shipLeft : int := Pic.Rotate (shipUpper, 90, -1, -1)       % Rotate for left arrow
var shipRight : int := Pic.Rotate (shipUpper, 270, -1, -1)     % Rotate for right arrow
var bulletDown : int := Pic.Rotate (bulletUpper, 180, -1, -1)
var bulletLeft : int := Pic.Rotate (bulletUpper, 90, -1, -1)
var bulletRight : int := Pic.Rotate (bulletUpper, 270, -1, -1)

var x1, y1, x2, x3, y4, bulletX, bulletY, score, life, rockX, rockY : int := 0
var rockDead : boolean := true

var keys : array char of boolean % they key currently being pressed
var KEY_SPACEBAR : char := chr (32)
var UP_ARROW : char := chr (200)
var LEFT_ARROW : char := chr (203)
var RIGHT_ARROW : char := chr (205)
var DOWN_ARROW : char := chr (208)

life := 10
rockY := 700

process rockDropping
    loop
        if rockDead = true then
            Pic.Draw (rock, rockX, rockY, picXor)
            for b : 1 .. 20
                View.Update
            end for
            Pic.Draw (rock, rockX, rockY, picXor)
            if rockY < 0 then
                randint (rockX, 20, 500)
                randint (rockY, 700, 900)
                score := score - 5
                delay (500)
            end if
            rockY := rockY - 10
        elsif rockDead = false then
            Pic.Draw (rock, rockX, rockY, picXor)
            for b : 1 .. 20
                View.Update
            end for
            Pic.Draw (rock, rockX, rockY, picXor)
            if rockY < 0 then
                randint (rockX, 20, 500)
                randint (rockY, 700, 900)
                score := score - 5
                delay (500)
            end if
            rockY := rockY - 10
        end if
        exit when life = 0
    end loop
end rockDropping

fork rockDropping

loop

    colorback (black)

    Input.KeyDown (keys)

    if keys (UP_ARROW) then
        cls
        Pic.Draw (shipUpper, x2 + x3, y1 + y4, picMerge)
        if rockY <= y1 + 10 + y4 and rockX <= x2 + x3 then
        end if
        y1 := y1 + 10
        if keys (KEY_SPACEBAR) then
            Pic.Draw (bulletUpper, x2 + x3 + 34, y1 + y4 + 120 + bulletY, picMerge)
            if x2 + x3 + 34 >= rockX and y1 + y4 + 120 + bulletY + 10 >= rockY - 10 then
                score := score + 10
                rockDead := false
            end if
            bulletY := bulletY + 10
        else
            bulletY := 0
        end if

    elsif keys (LEFT_ARROW) then
        cls
        Pic.Draw (shipLeft, x2 + x3, y1 + y4, picMerge)
        x2 := x2 - 10
        if keys (KEY_SPACEBAR) then
            Pic.Draw (bulletLeft, x2 + x3 - 40 - bulletX, y1 + y4 + 35, picMerge)
            if x2 + x3 - 40 - bulletX + 10 >= rockX and y1 + y4 + 35 >= rockY - 10 then
                score := score + 10
                rockDead := false
            end if
            bulletX := bulletX + 10
        else
            bulletX := 0
        end if

    elsif keys (DOWN_ARROW) then
        cls
        Pic.Draw (shipDown, x2 + x3, y4 + y1, picMerge)
        y4 := y4 - 10
        if keys (KEY_SPACEBAR) then
            Pic.Draw (bulletDown, x2 + x3 + 34, y1 + y4 - 40 + bulletY, picMerge)
            if x2 + x3 + 34 >= rockX and y1 + y4 - 40 + bulletY - 10 >= rockY - 10 then
                score := score + 10
                rockDead := false
            end if
            bulletY := bulletY - 10
        else
            bulletY := 0
        end if

    elsif keys (RIGHT_ARROW) then
        cls
        Pic.Draw (shipRight, x3 + x2, y1 + y4, picMerge)
        x3 := x3 + 10
        if keys (KEY_SPACEBAR) then
            Pic.Draw (bulletRight, x2 + x3 + 131 + bulletX, y1 + y4 + 35, picMerge)
            if x2 + x3 + 131 + bulletX + 10 >= rockX and y1 + y4 + 35 >= rockY - 10 then
                score := score + 10
                rockDead := false
            end if
            bulletX := bulletX + 10
        else
            bulletX := 0
        end if
    end if

    if y1 + y4 >= 500 then
        cls
        Pic.Draw (shipDown, x2 + x3, y4 + y1, picMerge)
        y1 := y1 - 10
    elsif y4 + y1 <= 0 then
        cls
        Pic.Draw (shipUpper, x2 + x3, y1 + y4, picMerge)
        y4 := y4 + 10
    elsif x2 + x3 < 0 then
        cls
        Pic.Draw (shipRight, x3 + x2, y1 + y4, picMerge)
        x2 := x2 + 10
    elsif x3 + x2 >= 450 then
        cls
        Pic.Draw (shipLeft, x2 + x3, y1 + y4, picMerge)
        x3 := x3 - 10
    end if

    if rockX <= x2 + x3 and rockY <= y1 + y4 then
        life := life - 1
    end if

    if score = 100 then
        life := life + 1
    elsif score = 200 then
        life := life + 1
    end if

    exit when life = 0

    locate (33, 87)
    color (white)
    put score, " : Score"

    locate (35, 87)
    color (white)
    put life, " : Life"


        View.Update
 

end loop
Author:  guruguru [ Sat May 29, 2004 6:50 pm ]
Post subject: 
Quote:

code:

        if rockDead = true then
            Pic.Draw (rock, rockX, rockY, picXor)
            for b : 1 .. 20
                View.Update
            end for
            Pic.Draw (rock, rockX, rockY, picXor)
            if rockY < 0 then
                randint (rockX, 20, 500)
                randint (rockY, 700, 900)
                score := score - 5
                delay (500)
            end if
            rockY := rockY - 10
        elsif rockDead = false then
            Pic.Draw (rock, rockX, rockY, picXor)
            for b : 1 .. 20
                View.Update
            end for
            Pic.Draw (rock, rockX, rockY, picXor)
            if rockY < 0 then
                randint (rockX, 20, 500)
                randint (rockY, 700, 900)
                score := score - 5
                delay (500)
            end if
            rockY := rockY - 10
        end if



Umm... what is up with this? They are the exact same Confused . And some more things regarding them... please don't take offence these are tips to improve your program.

1)
code:

for b : 1 .. 20
        View.Update
end for
This is pointless. You update the screen 20x in a row. You should delete this and View.Update only at the end of the loop.

2) You should draw the picture only once in the whole loop. And that should be just before you call View.Update.

3)
code:
if rockY < 0 then
This is unncessary. We already know that the rock is dead so it should be reset no matter what. Delete this if and end if, but not the content.

4)
code:
score := score - 5
When you shoot the rock you should gain points. And a short form is this:
code:
score += 5


5)
code:
rockY := rockY - 10
This should happen no matter what and should be called just before you draw the picutre.

To sum up, the first if statement should test to see if rock is dead or the rock is at the bottom of the screen because the same things should happen.

code:

if rockDead = true then
            %Pic.Draw (rock, rockX, rockY, picXor)  not needed here
            /*for b : 1 .. 20
                View.Update        completely unecesary
            end for */
            %Pic.Draw (rock, rockX, rockY, picXor) not need here
            %if rockY < 0 then      this is only for second part of if
                randint (rockX, 20, 500)
                randint (rockY, 700, 900)     good- assigs new values
                %score := score - 5         should be score += 5
                delay (500)        w/e suits you
            %end if
            %rockY := rockY - 10        not here
        elsif rockY < 0 then       you already know its not dead
            /*Pic.Draw (rock, rockX, rockY, picXor)
            for b : 1 .. 20
                View.Update
            end for
            Pic.Draw (rock, rockX, rockY, picXor)
            if rockY < 0 then */
                randint (rockX, 20, 500)
                randint (rockY, 700, 900)
                score := score - 5          thse 4 lines are right on
                delay (500)
            end if
            %rockY := rockY - 10    not here
        end if

        rockY := rockY - 10     % should be here
        Pic.Draw (rock, rockX, rockY, picXor)     % now we draw with new coor
      View.Update       % and now  we draw


And the new code...

code:

if rockDead = true or rockY < 0 then
    randint (rockX, 20, 500)
    randint (rockY, 700, 900)
end if

rockY -= 10
Pic.Draw (rock, rockX, rockY, picXor)
View.Update


Wow... much shorter and efficient know isnt it? Very Happy
Author:  snaz [ Sat May 29, 2004 9:02 pm ]
Post subject: 
Thanks man I really Appreciated ur help, anyway still the rock doesn't Disappear, i will ask my teacher or i will make a new game, anyway thanks for helping me
Author:  guruguru [ Sat May 29, 2004 9:36 pm ]
Post subject: 
That is because you never do a collision test... Confused . You need to test the bullet against the rock to see if it collides. There are lots of posts recently about collision detection.

And...
code:

if rockY <= y1 + 10 + y4 and rockX <= x2 + x3 then
end if
What is up this? You might want to review all your code.

You also do 4 tests for a spacebar press when you need only do one test just like you test the up arrow.... This may casue your problem because it never realizes you pressed space hence no bullet was fired hence there is no way for it to collide.
Author:  snaz [ Mon May 31, 2004 9:10 pm ]
Post subject:  how can i add level in my game
i changed me whole game and now the rock disapear, but i want to know how can i add leval in me game, like if u made 100 score then next level appear and in this level the rock come faster than previous one

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy