shooter game -- checking colisions

xHoly-Divinity · **Posted:** Mon Jan 17, 2005 8:12 pm

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

xHoly-Divinity · **Posted:** Mon Jan 17, 2005 8:25 pm

P.S.
I appologize if i've offended anyone

Neo · **Posted:** Mon Jan 17, 2005 10:44 pm

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.

xHoly-Divinity · **Posted:** Tue Jan 18, 2005 3:24 pm

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)

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members