Shooter game
| Author |
Message |
Thuged_Out_G
|
 Posted: Sat Dec 13, 2003 1:05 am Post subject: Shooter game |
|
|
this program is really flickery, and the Pic.Draw doesnt seem to stay on the screen :S...as soon as i let go of the mouse, it goes away...any help please
| code: |
var x, y, button, picID : int
picID := Pic.FileNew ("bullet1.bmp")
drawfill (1, 1, black, black)
proc Shoot
cls
Draw.FillArc (x, y, 100, 100, 100, 100, 10)
drawfillarc (x, y, 100, 100, 100, 100, 10)
Draw.Oval (x, y, 100, 100, 10)
Draw.Oval (x, y, 80, 70, 10)
Draw.Oval (x, y, 60, 50, 10)
Draw.Oval (x, y, 40, 30, 10)
Draw.Oval (x, y, 20, 10, 10)
Draw.Oval (x, y, 100, 0, 10)
Draw.Oval (x, y, 0, 100, 10)
end Shoot
loop
Mouse.Where (x, y, button)
if button = 0 then
Shoot
elsif button = 1 then
Pic.Draw (picID, x, y, picMerge)
View.Update
end if
end loop
|
|
|
|
|
|
 |
Sponsor
Sponsor
|
|
|
drumersrule123
|
| Posted: Sat Dec 13, 2003 1:28 am Post subject: (No subject) |
|
|
i put a delay in front of the cls it slowed it down a bit but it didn't flicker that much here is the code
| code: | proc Shoot
delay (150)
cls |
|
|
|
|
|
|
drumersrule123
|
| Posted: Sat Dec 13, 2003 1:30 am Post subject: (No subject) |
|
|
| you probbly don't want to use a delay over 250 |
|
|
|
|
|
Homer_simpson
|
| Posted: Sat Dec 13, 2003 12:02 pm Post subject: (No subject) |
|
|
u forgot setscreen("offscreenonly")...
| code: | setscreen ("offscreenonly")
var x, y, button, picID : int
picID := Pic.FileNew ("bullet1.bmp")
drawfill (1, 1, black, black)
proc Shoot
cls
Draw.FillArc (x, y, 100, 100, 100, 100, 10)
drawfillarc (x, y, 100, 100, 100, 100, 10)
Draw.Oval (x, y, 100, 100, 10)
Draw.Oval (x, y, 80, 70, 10)
Draw.Oval (x, y, 60, 50, 10)
Draw.Oval (x, y, 40, 30, 10)
Draw.Oval (x, y, 20, 10, 10)
Draw.Oval (x, y, 100, 0, 10)
Draw.Oval (x, y, 0, 100, 10)
end Shoot
loop
Mouse.Where (x, y, button)
if button = 0 then
Shoot
elsif button = 1 then
Pic.Draw (picID, x, y, picMerge)
end if
View.Update
end loop
|
|
|
|
|
|
|
DanShadow
|
| Posted: Sat Dec 13, 2003 5:05 pm Post subject: (No subject) |
|
|
Yeah, when drawing the target over the mouse, "cls", then at the top of the loop, put:
setscreen("offscreenonly")
View.Update
This stops the flickering, thats how I fixed my shooter.  |
|
|
|
|
|
Thuged_Out_G
|
| Posted: Sat Dec 13, 2003 6:16 pm Post subject: (No subject) |
|
|
| ok, all is good now...except when i draw the pic it doesnt stay on screen :S |
|
|
|
|
|
DanShadow
|
| Posted: Sat Dec 13, 2003 6:33 pm Post subject: (No subject) |
|
|
| Make an array the holds the (x,y) co-ordinates of all shots taken. But make sure that the game doesnt drag on too long, or the array will overflow, heh. |
|
|
|
|
|
Thuged_Out_G
|
| Posted: Sat Dec 13, 2003 7:14 pm Post subject: (No subject) |
|
|
im not quite understanding what you mean, the cls in the shoot procedure just keeps getting rid of the pic
| code: |
var x, y, button, picID : int
picID := Pic.FileNew ("bullet1.bmp")
drawfill (1, 1, black, black)
var shoots : array 1 .. 1000 of int
proc Shoot
cls
Draw.FillArc (x, y, 100, 100, 100, 100, 10)
drawfillarc (x, y, 100, 100, 100, 100, 10)
Draw.Oval (x, y, 100, 100, 10)
Draw.Oval (x, y, 80, 70, 10)
Draw.Oval (x, y, 60, 50, 10)
Draw.Oval (x, y, 40, 30, 10)
Draw.Oval (x, y, 20, 10, 10)
Draw.Oval (x, y, 100, 0, 10)
Draw.Oval (x, y, 0, 100, 10)
end Shoot
loop
for i : 1 .. 5
setscreen ("offscreenonly")
View.Update
Mouse.Where (x, y, button)
if button = 0 then
Shoot
elsif button = 1 then
shoots (i) := x
shoots (i + 1) := y
Pic.Draw (picID, x-30, y-30, picMerge)
end if
end for
end loop
|
is that what you are talking about |
|
|
|
|
|
Sponsor
Sponsor
|
|
|
DanShadow
|
| Posted: Sat Dec 13, 2003 8:27 pm Post subject: (No subject) |
|
|
| code: |
%The Bullets Shot Array
var bullet_x, bullet_y : array 1 .. 200 of int
var num : int := 0
%Makes everything in array equal to 999
for i : 1 .. 200
bullet_x (i) := 700
bullet_y (i) := 700
end for
var x, y, button, picID : int
picID := Pic.FileNew ("Bullet.bmp")
drawfill (1, 1, black, black)
var shoots : array 1 .. 1000 of int
proc Shoot
cls
Draw.FillArc (x, y, 100, 100, 100, 100, 10)
drawfillarc (x, y, 100, 100, 100, 100, 10)
Draw.Oval (x, y, 100, 100, 10)
Draw.Oval (x, y, 80, 70, 10)
Draw.Oval (x, y, 60, 50, 10)
Draw.Oval (x, y, 40, 30, 10)
Draw.Oval (x, y, 20, 10, 10)
Draw.Oval (x, y, 100, 0, 10)
Draw.Oval (x, y, 0, 100, 10)
end Shoot
%Procedure to draw past done bullets
procedure drawBullets
for i : 1 .. 200
Draw.FillOval (bullet_x (i), bullet_y (i), 5, 5, 255)
end for
end drawBullets
loop
num := 0
for i : 1 .. 5
setscreen ("offscreenonly")
View.Update
Mouse.Where (x, y, button)
if button = 0 then
Shoot
%Draw Previous Bullets
drawBullets
elsif button = 1 then
shoots (i) := x
shoots (i + 1) := y
Pic.Draw (picID, x - 30, y - 30, picMerge)
%When you shoot, this checks array for first open slot
%Then it records the x and y where you just shot
%This way, it can redraw that shot place over and over
loop
num := num + 1
exit when bullet_x (num) = 700
end loop
bullet_x (num) := x
bullet_y (num) := y
end if
end for
end loop
|
There ya go. I added onto the code, so everytime it finishes the loop, it redraws a black oval (10*10) where ever you have shot before
enjoy |
|
|
|
|
|
Homer_simpson
|
| Posted: Sun Dec 14, 2003 12:37 am Post subject: (No subject) |
|
|
bullshit!!!!
very slow... just draw the picture everytime after cls...
edit...
NVM... i just read what you said  |
|
|
|
|
|
|
|
Register
Wiki
Blog
Search
Turing
Chat Room
Members
