Computer Science Canada

shooter game -- checking colisions
Author:  xHoly-Divinity [ Mon Jan 17, 2005 8:12 pm ]
Post subject:  shooter game -- checking colisions
I am not sure if this attatchment will successfully attatch. If it does you can see that I have all the characters, the target, and the explosion after you shoot. If you cannot, I will post a copy of the code so perhaps you can sort of make it out (there are picture attatchments, so this is why just the source code will not work). Anyhow, my problem is I don't know how to check it a person has been shot or not. Because this is a sophisticated .bmp image with uneven edges/shapes, I can't really use Math.Distance. If I use whatdotcolour, there would be at least 200 different checks that I would have to conduct. I've tried using a check to see for whatdotcolor if it doesn't match any of the bg colors but this too is a lot of code and some bg colours appear in the .bmp images. Help needed! Thanks!

code:

setscreen ("offscreenonly")
var x, y, button, a, b : int
x := 350
y := 50
var bullet : int := 30
var score : int := 0
var p1, q1, p2, q2, p3, q3, p4, q4, bin, bush, kerry : int
p1 := 100
q1 := 200
p2 := 360
q2 := 160
p3 := 600
q3 := 100
var who : int

bin := Pic.FileNew ("C:/Pics/bin.bmp")
bush := Pic.FileNew ("C:/Pics/bush.bmp")
kerry := Pic.FileNew ("C:/Pics/kerry.bmp")
Pic.SetTransparentColor (bin, brightred)
Pic.SetTransparentColor (bush, brightred)
Pic.SetTransparentColor (kerry, brightred)

proc target
    drawoval (x, y, 30, 30, brightred)
    drawline (x, y + 40, x, y - 40, brightred)
    drawline (x + 40, y, x - 40, y, brightred)
end target

proc erase_target
    drawoval (x, y, 30, 30, white)
    drawline (x, y + 40, x, y - 40, white)
    drawline (x + 40, y, x - 40, y, white)
end erase_target

proc bg
    %ground
    drawline (0, 275, maxx, 275, black)
    %left box
    drawfillbox (100, 200, 250, 320, brown)
    drawbox (100, 200, 250, 320, black)
    %right box
    drawfillbox (200, 150, 350, 250, brown)
    drawbox (200, 150, 350, 250, black)
    %cylinder
    drawline (355, 160, 355, 280, black)
    drawline (465, 160, 465, 280, black)
    drawfilloval (410, 280, 55, 10, black)
    drawarc (411, 161, 55, 10, 180, 0, black)
    drawfill (370, 200, red, black)
    drawfill (356, 276, red, black)
    drawfill (464, 276, red, black)
    drawfilloval (410, 210, 30, 30, 1)
    %           left tri
    drawline (410, 210, 380, 210, black)
    drawline (410, 210, 395, 185, black)
    drawline (380, 210, 395, 185, black)
    %           right tri
    drawline (410, 210, 440, 210, black)
    drawline (410, 210, 425, 185, black)
    drawline (440, 210, 425, 185, black)
    %           top tri
    drawline (395, 236, 425, 236, black)
    drawline (395, 236, 410, 210, black)
    drawline (425, 236, 410, 210, black)
    drawfill (395, 205, yellow, black)
    drawfill (408, 231, yellow, black)
    drawfill (423, 203, yellow, black)
    %           dump
    drawfillbox (maxx - 50, 100, maxx, 350, 3)
    drawbox (maxx - 50, 100, maxx, 350, black)
end bg

proc shoot (a, b : int)
    drawline (215 + a, 103 + b, 200 + a, 110 + b, 41)
    drawline (200 + a, 110 + b, 207 + a, 96 + b, 41)
    drawline (207 + a, 96 + b, 201 + a, 87 + b, 41)
    drawline (201 + a, 87 + b, 214 + a, 92 + b, 41)
    drawline (214 + a, 92 + b, 218 + a, 75 + b, 41)
    drawline (218 + a, 75 + b, 223 + a, 89 + b, 41)
    drawline (223 + a, 89 + b, 234 + a, 85 + b, 41)
    drawline (234 + a, 85 + b, 227 + a, 96 + b, 41)
    drawline (227 + a, 96 + b, 234 + a, 104 + b, 41)
    drawline (234 + a, 104 + b, 224 + a, 101 + b, 41)
    drawline (215 + a, 103 + b, 219 + a, 115 + b, 41)
    drawline (219 + a, 115 + b, 224 + a, 101 + b, 41)
    drawfill (218 + a, 96 + b, yellow, 41)
end shoot

proc erase_shoot (a, b : int)
    drawfilloval (219 + a, 95 + b, 25, 25, white)
end erase_shoot

proc main
    locatexy (10, maxy - 10)
    put score
    erase_target
    mousewhere (x, y, button)
    a := x - 215
    b := y - 100
    delay (10)
    Pic.Draw (bin, p1, q1, picCopy)
    Pic.Draw (bush, p2, q2, picCopy)
    Pic.Draw (kerry, p3, q3, picCopy)
    bg
    if button = 1 then
        shoot (a, b)
        target
        View.Update
        delay (100)
        erase_shoot (a, b)
        Pic.Draw (bin, p1, q1, picCopy)
        Pic.Draw (bush, p2, q2, picCopy)
        Pic.Draw (kerry, p3, q3, picCopy)
        bg
        View.Update
    end if
    target
    View.Update
end main

loop
    randint (who, 1, 4)
    if who = 1 then
        loop
            if q1 <= 302 then
                q1 := q1 + 2
                main
            end if
            if q1 > 302 then
                drawfillbox (p1, q1 - 2, 240, q1 + 175, white)
                q1 := 200
                exit
            end if
        end loop
    elsif who = 2 then
        loop
            if q2 <= 275 then
                q2 := q2 + 2
                main
            end if
            if q2 > 275 then
                drawfillbox (p2, q2 - 2, p2 + 100, q2 + 150, white)
                q2 := 160
                exit
            end if
        end loop
    elsif who = 3 then
        loop
            if p3 <= 600 then
                p3 := p3 - 2
                main
            end if
            if p3 < 475 then
                drawfillbox (p3, q3, p3 + 125, q3 + 175, white)
                p3 := 600
                exit
            end if
        end loop
    end if
end loop
Author:  xHoly-Divinity [ Mon Jan 17, 2005 8:25 pm ]
Post subject: 
P.S.
I appologize if i've offended anyone
Author:  Neo [ Mon Jan 17, 2005 10:44 pm ]
Post subject: 
ROFL Nice game you got there, it sure does make a politcal statement...

To answer your question,
You could use whatdotcolour, since your background consists of mosly solid colours.
You could do something like

code:

if whatdotcolour(xmouse,ymouse) not = list_all_background_colours_here then
bush:="terminated"
end if


Just make sure when you do this, none of your targets have white on them, since the background is white, or any of the colours you used for your boxes and barrel.

Alternatively you could use rectangle and circle detection. For the head use circles and for the shoulders use a rectangle. To make it more accurate use more smaller circles for irregular bumps.
Author:  xHoly-Divinity [ Tue Jan 18, 2005 3:24 pm ]
Post subject: 
Yes, but as mentioned before, there are some colors in the background that are similar to the colors in the .bmp. Also, I want to make different things happen if you shoot a different person. Wink you'll see what I mean later. So it is neccissary to check every single collision seperately (math.distance will not be very accurate)

:


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

Terms of Use | Privacy Policy