Sprite spawning, killing sprites and background issues

Author

Message

Deego

16

Years of Service

User Offline

Joined: 21st May 2008

Location:

Posted: 21st May 2008 22:55 Edited at: 21st May 2008 23:57

Link

As my first coding project, I'm making a simple 2d game where sprites fall from the top of the screen, and by clicking on them, they disappear and a score is tallied.

Since I want to be able to have the sprites detect a mouseclick and be destroyed by it, I realized I couldn't make my background a sprite without nuking it on a click. [EDIT: This has been fixed since posting]What's the best way to set a background without it being a sprite?

Also, clicking on a descending sprite in this code crashes the program with "runtime error 302 : sprite does not exist at [its line]." This is probably because of the way I set up my sprite spawners, which either creates only one sprite or all ten sprites in one spot. How would I go about creating a sprite spawner that takes a sprite and copies it to a random location? Is there a better way to kill the sprites than with the mouseclick system I have? And how do I get everything working together?

Thanks for any help.

` this program is the enemy spawner

sync on : sync rate 50 : randomize timer()
scrw=screen width()
scrh=screen height()
` virus sprite images
load image "postcard108.tga", 1
load image "phishing108.tga", 2
load image "degrees108.tga", 3
load image "bg1.jpg", 4
paste image 4,0,0

` make image for mouse sprite. 999 is mouse sprite info
get image 999,0,0,1,1,1
sprite 999,0,0,999 : hide sprite 999

` j is the random x start point
j=scrw*rnd(1)

` -54 is the y start for all 108px sprites. change if sprite size changes
for n=1 to 10
sprite n,j,-54,1 : offset sprite n,54,54
next n

for m=1 to 10
sprite m+10,j,-54,2 : offset sprite m,54,54
next m

for o=1 to 10
sprite o+20,j,-54,3 : offset sprite o,54,54
next o

do

sync

for n=1 to 10
  move sprite n, -4
 next n

for m=11 to 20
   move sprite m, -6
 next m

for o=21 to 30
   move sprite o, -3
 next o
sync

` if you click mouse, did you click on a sprite?
   if mouseclick()=1
      sprite 999,mousex(),mousey(),999
      s=sprite collision(999,0)
      if s <> 0 then delete sprite s
      sync
   endif
loop

+ Code Snippet

` this program is the enemy spawner


sync on : sync rate 50 : randomize timer()
scrw=screen width()
scrh=screen height()
` virus sprite images
load image "postcard108.tga", 1
load image "phishing108.tga", 2
load image "degrees108.tga", 3
load image "bg1.jpg", 4
paste image 4,0,0

` make image for mouse sprite. 999 is mouse sprite info
get image 999,0,0,1,1,1
sprite 999,0,0,999 : hide sprite 999

` j is the random x start point
j=scrw*rnd(1)


` -54 is the y start for all 108px sprites. change if sprite size changes
for n=1 to 10
sprite n,j,-54,1 : offset sprite n,54,54
next n

for m=1 to 10
sprite m+10,j,-54,2 : offset sprite m,54,54
next m

for o=1 to 10
sprite o+20,j,-54,3 : offset sprite o,54,54
next o

do

sync

 for n=1 to 10
  move sprite n, -4
 next n

 for m=11 to 20
   move sprite m, -6
 next m

 for o=21 to 30
   move sprite o, -3
 next o
sync

   ` if you click mouse, did you click on a sprite?
   if mouseclick()=1
      sprite 999,mousex(),mousey(),999
      s=sprite collision(999,0)
      if s <> 0 then delete sprite s
      sync
   endif
loop

Back to top

Profile PM Email

Ed222

16

Years of Service

User Offline

Joined: 3rd Nov 2007

Location: Calgary

Posted: 22nd May 2008 01:41

Link

you need to include the media for other people to play it.

Quote: "set a background without it being a sprite?"

load the background image and use the paste image command in the loop

Back to top

Profile PM Email

Deego

16

Years of Service

User Offline

Joined: 21st May 2008

Location:

Posted: 22nd May 2008 02:22

Link

Here's the latest version of the code, and an executable with the files if someone wants to see for themselves. The graphics are temporary until I actually have a working game.

` this program is the enemy spawner, more like graphics now
` to do: make score image, replace city message with image,
` set up score arrays

sync on : sync rate 50 : randomize timer()
scrw=screen width()
scrh=screen height()
` virus sprite images
load image "postcard.tga", 1,1
load image "phishing.tga", 2,1
load image "degrees.tga", 3,1
load image "bg1.jpg", 4,1
load image "city.tga", 5,1

` make image for mouse sprite. 999 is mouse sprite info
get image 999,0,0,1,1,1
sprite 999,0,0,999 : hide sprite 999

` j is the random x start point
j=scrw*.125*rnd(8)

` -90 is the y start for all 180px sprites. change when sprites do
for n=1 to 10
sprite n,j,-90,1 : offset sprite n,90,90
next n

for m=1 to 10
sprite m,j,-90,2 : offset sprite m,90,90
next m

for o=1 to 10
sprite o,j,-90,3 : offset sprite o,90,90
next o

do

paste image 4,0,0
sprite 800,scrw/(-4),scrh - 282,5

for n=1 to 10
  sprite n,j,-90,1 : move sprite n, -1
 next n

for m=1 to 10
   sprite m+10,j,-90,2 : move sprite m, -2
 next m

for o=1 to 10
   sprite o+20,j,-90,3 : move sprite o, -3
 next o

` if you click mouse, did you click on a sprite?
   if mouseclick()=1
      sprite 999,mousex(),mousey(),999
      s=sprite collision(999,0)
      l=sprite collision(999,800)
      if s > 0 and s < 100 then center text scrw/2,20,"You shot a virus!" : delete sprite s
      if l > 0 then center text scrw/2,10,"Don't shoot the city!"
   endif
   sync
loop

+ Code Snippet

` this program is the enemy spawner, more like graphics now
` to do: make score image, replace city message with image,
` set up score arrays


sync on : sync rate 50 : randomize timer()
scrw=screen width()
scrh=screen height()
` virus sprite images
load image "postcard.tga", 1,1
load image "phishing.tga", 2,1
load image "degrees.tga", 3,1
load image "bg1.jpg", 4,1
load image "city.tga", 5,1

` make image for mouse sprite. 999 is mouse sprite info
get image 999,0,0,1,1,1
sprite 999,0,0,999 : hide sprite 999

` j is the random x start point
j=scrw*.125*rnd(8)


` -90 is the y start for all 180px sprites. change when sprites do
for n=1 to 10
sprite n,j,-90,1 : offset sprite n,90,90
next n

for m=1 to 10
sprite m,j,-90,2 : offset sprite m,90,90
next m

for o=1 to 10
sprite o,j,-90,3 : offset sprite o,90,90
next o

do

paste image 4,0,0
sprite 800,scrw/(-4),scrh - 282,5

 for n=1 to 10
  sprite n,j,-90,1 : move sprite n, -1
 next n

 for m=1 to 10
   sprite m+10,j,-90,2 : move sprite m, -2
 next m

 for o=1 to 10
   sprite o+20,j,-90,3 : move sprite o, -3
 next o

   ` if you click mouse, did you click on a sprite?
   if mouseclick()=1
      sprite 999,mousex(),mousey(),999
      s=sprite collision(999,0)
      l=sprite collision(999,800)
      if s > 0 and s < 100 then center text scrw/2,20,"You shot a virus!" : delete sprite s
      if l > 0 then center text scrw/2,10,"Don't shoot the city!"
   endif
   sync
loop

I'm good with using and placing images now, but I'm still having trouble setting up a random xpos for the sprites (they all bunch on the same location) and spawning the sprites. And now, for some reason, the sprites don't move any more.

I can set up individual sprites, but it's not very practical to have 30+ individual sprites coded when I should be able to set up some sort of cloning/spawning system using 3 or so sprites for many enemies.

Any help is appreciated.

Attachments

Login to view attachments

Back to top

Profile PM Email

pcRaider

17

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 24th May 2008 07:12 Edited at: 24th May 2008 13:27

Link

The first code is good.
The second code is bad.
You should test it with a smaller code.
Do you know an array?

Do you use an old version of DBP?

Back to top

Profile PM

Deego

16

Years of Service

User Offline

Joined: 21st May 2008

Location:

Posted: 25th May 2008 03:35

Link

+ Code Snippet

dim viri(90)
for P = 1 to 30
viri(P) = sprite P,virusx,baseposy,1
next P
for P = 31 to 60
viri(P) = sprite P,virusx,baseposy,2
next P
for P = 61 to 90
viri(P) = sprite P,virusx,baseposy,3
next P

I'm trying to create an array of sprites that I can call up on my sprite spawner. I'm just learning arrays, so is it possible or necessary to store sprites like this? I get an error saying "cannot define parameter of sprite P"

I use the newest version of DBP. Thanks for help.

Back to top

Profile PM Email

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 25th May 2008 10:41 Edited at: 25th May 2008 10:44

Link

An array can only store a single value of the type declared in each 'cell'. In your case, 'viri' is an integer.

Sprite is a command not a function so it returns no value to actually store in your integer array - hence the error.

In this case, the only real use for arrays is to store the X and Y screen position of the sprites:

+ Code Snippet

Dim viri(90,1)
For P = 1 to 90
  viri(P,0)=Rnd(800)
  viri(P,1)=Rnd(600)
Next P

For P = 1 to 90
  Sprite P,viri(P,0),viri(P,1),P/31+1
Next P

If you need any further info on any of the different types of arrays in DB, check out tutorial 1 here:

http://forum.thegamecreators.com/?m=forum_view&t=99497&b=10

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Deego

16

Years of Service

User Offline

Joined: 21st May 2008

Location:

Posted: 25th May 2008 23:13 Edited at: 26th May 2008 00:17

Link

That's a fine piece of code, TDK, fixed my problem right up. I've actually learned most of what I know so far about coding from your tutorials, they're great.

[EDIT]I want my sprite spawner to delay before releasing the next sprite.

+ Code Snippet

For P = 1 to 90
  move Sprite P,-(rnd(8)/6)-(F#)
  rem why does a wait here make the screen turn all black?
  wait (1000-(300*F#))
Next P

As you can see from my note, trying to make the program wait until performing the next P results in the screen turning black and nothing else happening.

I'm actually kinda sad that a wait function doesn't work in a for/next procedure. It seems so intuitive. So what's the best way to delay each cycle?

Back to top

Profile PM Email

Deego

16

Years of Service

User Offline

Joined: 21st May 2008

Location:

Posted: 27th May 2008 02:55

Link

My first goal with programming is to make gameplay, and my only problems on this front, for this game at least, is being able to delay each sprite's descent, and make it so clicking on a sprite will destroy that sprite, and only that sprite.

At least I figured out the timing on my own. Instead of trying something like this:

+ Code Snippet

For P = 1 to 90
  move Sprite P,-(rnd(8)/6)-(F#)
  rem why does a wait here make the screen turn all black?
`  wait (1000-(300*F#))
Next P

I'm doing this:

+ Code Snippet

Dim xstart(90)
For P = 1 to 90
  xstart(P)=Rnd(932)+90
Next P
dim ystart(90)
For P = 1 to 90
   ystart(P)=-rnd(300)-200*P
Next P
For P = 1 to 90
  Sprite P,xstart(P),ystart(P),P/31+1 : offset sprite P,90,90
Next P

To change when the sprites appear at the top of the screen, I just need to modify my ystart array. Space and time are related, dude

Anyway, all I want to know now is how to differentiate between my sprites on a mouseclick() event, or any event, really. The one I have set up now affects all the sprites, and even if I set up Delete Sprite P in the "if s<>0 then...", it will delete all the sprites and then when I move off the sprite they all reappear (due to the RefScreen gosub). How do I make only the sprite I click on disappear? How do I target specific sprites in a code like this?

My code so far, for reference.

Gosub Setup
Rem Main Loop
do
   gosub OnClick
   gosub RefScreen
   sync
loop
end

Rem *********************
Rem       Procedures
Rem *********************

OnClick:
Rem this part is the what happens when the mouse clicks part
`90 is the amount of viruses. change as it changes.
for P = 1 to 90
   if mouseclick()=1
      s=sprite collision(999,P)
      l=sprite collision(999,1001)
      if s <> 0 then INC F#,.001
      if l <> 0 then center text 0,20,"Don't shoot the city!"
   endif
next P
Return

RefScreen:
Rem updates everything on the screen
` the sprite display. include the movement subroutines

paste image 1000,0,0
sprite 1001,SW/2-530,SH-283,1001
Sprite 999,mousex(),mousey(),999 : offset sprite 999,55,55 : set sprite alpha 999,128
For P = 1 to 90
  move Sprite P,-.5*(F#)
Next P
return

Setup:
Rem set up the screen here. get the screen resolution data
rem set up display of background, city, score, top score
Set display mode 1024,768,32
Sync On
hide mouse
rem initialize variables
` F is the increment of speed on kill
SW = screen width()
SH = screen height()
F# = 1

REM **********
REM Create Sprites
REM **********
load image "cosmos.jpg",1000,1
load image "crosshair.tga",999,1
load image "city.tga",1001,1
load image "phishing.tga",1,1
load image "postcard.tga",2,1
load image "degrees.tga",3,1
REM MAKE MULTIPLE YSTARTS, EACH ONE FOR EACH INDIVIDUAL SPRITE TYPE.
Dim xstart(90)
For P = 1 to 90
  xstart(P)=Rnd(932)+90
Next P
dim ystart(90)
For P = 1 to 90
   ystart(P)=-rnd(300)-200*P
Next P
REM MAKE MORE OF THESE SPRITE CREATORS, EACH ONE SPECIFIC TO AN IMAGE AND YSTART
For P = 1 to 90
  Sprite P,xstart(P),ystart(P),P/31+1 : offset sprite P,90,90
Next P
return

+ Code Snippet

Gosub Setup
Rem Main Loop
do
   gosub OnClick
   gosub RefScreen
   sync
loop
end

Rem *********************
Rem       Procedures
Rem *********************

OnClick:
Rem this part is the what happens when the mouse clicks part
`90 is the amount of viruses. change as it changes.
for P = 1 to 90
   if mouseclick()=1
      s=sprite collision(999,P)
      l=sprite collision(999,1001)
      if s <> 0 then INC F#,.001
      if l <> 0 then center text 0,20,"Don't shoot the city!"
   endif
next P
Return

RefScreen:
Rem updates everything on the screen
` the sprite display. include the movement subroutines

paste image 1000,0,0
sprite 1001,SW/2-530,SH-283,1001
Sprite 999,mousex(),mousey(),999 : offset sprite 999,55,55 : set sprite alpha 999,128
For P = 1 to 90
  move Sprite P,-.5*(F#)
Next P
return

Setup:
Rem set up the screen here. get the screen resolution data
rem set up display of background, city, score, top score
Set display mode 1024,768,32
Sync On
hide mouse
rem initialize variables
` F is the increment of speed on kill
SW = screen width()
SH = screen height()
F# = 1

REM **********
REM Create Sprites
REM **********
load image "cosmos.jpg",1000,1
load image "crosshair.tga",999,1
load image "city.tga",1001,1
load image "phishing.tga",1,1
load image "postcard.tga",2,1
load image "degrees.tga",3,1
REM MAKE MULTIPLE YSTARTS, EACH ONE FOR EACH INDIVIDUAL SPRITE TYPE.
Dim xstart(90)
For P = 1 to 90
  xstart(P)=Rnd(932)+90
Next P
dim ystart(90)
For P = 1 to 90
   ystart(P)=-rnd(300)-200*P
Next P
REM MAKE MORE OF THESE SPRITE CREATORS, EACH ONE SPECIFIC TO AN IMAGE AND YSTART
For P = 1 to 90
  Sprite P,xstart(P),ystart(P),P/31+1 : offset sprite P,90,90
Next P
return

I'm liking coding more and more as I learn. I look forward to the day when I can be helping people instead of asking for it.

Back to top

Profile PM Email

pcRaider

17

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 27th May 2008 20:35

Link

HIDE SPRITE p

Back to top

Profile PM

Deego

16

Years of Service

User Offline

Joined: 21st May 2008

Location:

Posted: 27th May 2008 22:45

Link

That works, heh. I remember reading in the help files that come with DBPro that you should delete sprites when you're done to make the program run faster, and trying to delete one of these sprites results in a crash. Also, you can still click on a hidden sprite, but I guess I can set up something that takes away any effect that sprite may have had (adding score, damaging the city, etc.) once you click on it.

Thanks for the help!

Back to top

Profile PM Email

Deego

16

Years of Service

User Offline

Joined: 21st May 2008

Location:

Posted: 27th May 2008 23:00

Link

I had a system before that included "delete sprite P" that would make every sprite on the screen disappear, I figured it would be the same for "hide sprite P." But it isn't! Thanks for the help!

Back to top

Profile PM Email

pcRaider

17

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 28th May 2008 08:55

Link

delete sprite ?
ok
this one.

Gosub Setup
Rem Main Loop
do
   gosub OnClick
   gosub RefScreen
   gosub debug
   sync
loop
end

Rem *********************
Rem       Procedures
Rem *********************

OnClick:
Rem this part is the what happens when the mouse clicks part
`90 is the amount of viruses. change as it changes.
for P = 1 to n
  if SPRITE EXIST(p)
    if mouseclick()=1
      s=sprite collision(999,P)
      l=sprite collision(999,1001)
      if s <> 0 then INC F#,.001: delete SPRITE p :pp=p
      if l <> 0 then center text 0,20,"Don't shoot the city!"
    endif
  endif
next P
Return

RefScreen:
Rem updates everything on the screen
` the sprite display. include the movement subroutines

`paste image 1000,0,0

sprite 1001,SW/2-530,SH-283,1001

Sprite 999,mousex(),mousey(),999 :
offset sprite 999,55,55 :
set sprite alpha 999,128

For P = 1 to n
  if SPRITE EXIST(p) then  move Sprite P,-.5*(F#)
Next P

return

debug:
set text size 32
set cursor 0,0
print s," ",l," ",p," ",pp,"  ",F#
return

Setup:
Rem set up the screen here. get the screen resolution data
rem set up display of background, city, score, top score
Set display mode 1024,768,32
Sync On: sync rate 60
hide mouse
rem initialize variables
` F is the increment of speed on kill
SW = screen width()
SH = screen height()
F# = 1
n=90

REM **********
REM Create Sprites
REM **********
load image "cosmos.jpg",1000,1
load image "crosshair.tga",999,1
load image "city.tga",1001,1
load image "phishing.tga",1,1
load image "postcard.tga",2,1
load image "degrees.tga",3,1
REM MAKE MULTIPLE YSTARTS, EACH ONE FOR EACH INDIVIDUAL SPRITE TYPE.

Dim xstart(n)

For P = 1 to n
  xstart(P)=Rnd(932)+90
Next P

dim ystart(n)

For P = 1 to n
   ystart(P)=-rnd(300)-200*P
Next P

REM MAKE MORE OF THESE SPRITE CREATORS, EACH ONE SPECIFIC TO AN IMAGE AND YSTART
For P = 1 to n
  Sprite P,xstart(P),ystart(P),P/31+1 : offset sprite P,90,90
Next P

return

+ Code Snippet


Gosub Setup
Rem Main Loop
do
   gosub OnClick
   gosub RefScreen
   gosub debug
   sync
loop
end

Rem *********************
Rem       Procedures
Rem *********************

OnClick:
Rem this part is the what happens when the mouse clicks part
`90 is the amount of viruses. change as it changes.
for P = 1 to n
  if SPRITE EXIST(p)
    if mouseclick()=1
      s=sprite collision(999,P)
      l=sprite collision(999,1001)
      if s <> 0 then INC F#,.001: delete SPRITE p :pp=p
      if l <> 0 then center text 0,20,"Don't shoot the city!"
    endif
  endif
next P
Return

RefScreen:
Rem updates everything on the screen
` the sprite display. include the movement subroutines

`paste image 1000,0,0

sprite 1001,SW/2-530,SH-283,1001

Sprite 999,mousex(),mousey(),999 :
offset sprite 999,55,55 :
set sprite alpha 999,128

For P = 1 to n
  if SPRITE EXIST(p) then  move Sprite P,-.5*(F#)
Next P


return


debug:
set text size 32
set cursor 0,0
print s," ",l," ",p," ",pp,"  ",F#
return

Setup:
Rem set up the screen here. get the screen resolution data
rem set up display of background, city, score, top score
Set display mode 1024,768,32
Sync On: sync rate 60
hide mouse
rem initialize variables
` F is the increment of speed on kill
SW = screen width()
SH = screen height()
F# = 1
n=90

REM **********
REM Create Sprites
REM **********
load image "cosmos.jpg",1000,1
load image "crosshair.tga",999,1
load image "city.tga",1001,1
load image "phishing.tga",1,1
load image "postcard.tga",2,1
load image "degrees.tga",3,1
REM MAKE MULTIPLE YSTARTS, EACH ONE FOR EACH INDIVIDUAL SPRITE TYPE.

Dim xstart(n)

For P = 1 to n
  xstart(P)=Rnd(932)+90
Next P

dim ystart(n)

For P = 1 to n
   ystart(P)=-rnd(300)-200*P
Next P

REM MAKE MORE OF THESE SPRITE CREATORS, EACH ONE SPECIFIC TO AN IMAGE AND YSTART
For P = 1 to n
  Sprite P,xstart(P),ystart(P),P/31+1 : offset sprite P,90,90
Next P



return

Please attach the media.

Back to top

Profile PM

Deego

16

Years of Service

User Offline

Joined: 21st May 2008

Location:

Posted: 28th May 2008 23:55 Edited at: 29th May 2008 04:27

Link

All your help has been great, guys. The gameplay for my first project is nearly done. A weird bug arose, however. Whenever I click the mouse, all the sprites slow down to the starting speed, when they should be incrementally faster.

Gosub Setup
do
`   gosub Menu
   gosub OnClick
   gosub CityHit
   gosub RefScreen
`   gosub EndGame
   sync
loop
end

Rem *********************
Rem       Procedures
Rem *********************
remstart
Menu:

remend

OnClick:
for P = 1 to (8*SN)
  if SPRITE EXIST(P)
    if mouseclick()=1
      s=sprite collision(1002,P)
      if s <> 0 then INC F#,.05: INC E,1 : delete SPRITE p `: play sound 2
    endif
  endif
next P
   if mouseclick()=1 then Sprite 999,mousex(),mousey(),999 : offset sprite 999,55,55 : set sprite alpha 999,128 : show sprite 999 `: play sound 3
   if mouseclick()=0 then Sprite 999,mousex(),mousey(),999 : offset sprite 999,55,55 : set sprite alpha 999,128 : hide sprite 999
   return

CityHit:
for P = 1 to (8*SN)
if sprite exist(P)
k=sprite collision(2011,P)
if k = 1 then delete sprite P : INC D,1 `: play sound 4
endif
next P
return

RefScreen:
` the sprite display. include the movement and display subroutines
paste image 1000,0,0
`Sprite 999,mousex(),mousey(),999 : offset sprite 999,55,55 : set sprite alpha 999,128
sprite 1002,mousex(),mousey(),1002 : hide sprite 1002
text 0,0,str$(E)
text 0,10,str$(D)
For P = 1 to (8*SN)
  if sprite exist(P) then move Sprite P,-.5*(F#)
Next P
return
remstart
EndGame:
if E = 150 then cls : paste image 5002,0,0
if D = 25 then cls : paste image 5001,0,0

remend

Setup:
rem set up display of background, city, score, top score
Set display mode 1024,768,32
Sync On
Randomize Timer()
hide mouse
` F is the increment of speed on kill
` E is the shot tally
` D is the city hit tally
SW = screen width()
SH = screen height()
F# = 1
SN = 40
E = 0
D = 0
Q = 24

REM **********
REM Create Sprites
REM **********

`load sound "sounds\ambient.wav",1
`load sound "sounds\virus_impact.wav",2
`load sound "sounds\keyboard_beep.wav",3
`load sound "sounds\shield_impact.wav",4
`load image "menu\base.jpg",5000,1
`load image "menu\bad.jpg",5001,1
`load image "menu\good.jpg",5002,1
load image "tex\cosmos.jpg",1000,1
load image "tex\crosshair.tga",999,1
load image "tex\phishing.tga",1,1
load image "tex\postcard.tga",2,1
load image "tex\degrees.tga",3,1
load image "tex\mytob.tga",4,1
load image "tex\ghost.tga",5,1
load image "tex\mydoom.tga",6,1
load image "tex\ultimate.tga",7,1
load image "tex\spy.tga",8,1
load image "city\b1_64x118.tga",2001,1
load image "city\b2_64x130.tga",2002,1
load image "city\b3_78x205.tga",2003,1
load image "city\b4_43x235.tga",2004,1
load image "city\b5_139x249.tga",2005,1
load image "city\b6_97x137.tga",2006,1
load image "city\b7_47x275.tga",2007,1
load image "city\b8_169x169.tga",2008,1
load image "city\b9_71x226.tga",2009,1
load image "city\b10_44x198.tga",2010,1
load image "tex\mountains.tga",2011,1
get image 1002,0,0,1,1,1

REM sprite placements
REM Change ystarts to modify timing of descents
REM City display
sprite 2011,0,SH-108,2011
sprite 2001,Q+12,SH-116,2001
sprite 2002,Q+85,SH-128,2002
sprite 2003,Q+148,SH-203,2003
sprite 2004,Q+232,SH-232,2004
sprite 2005,Q+280,SH-236,2005
sprite 2006,Q+467,SH-137,2006
sprite 2007,Q+582,SH-275,2007
sprite 2008,Q+647,SH-152,2008
sprite 2009,Q+824,SH-223,2009
sprite 2010,Q+913,SH-194,2010

`loop sound 1

Dim xstart(SN)
For P = 1 to SN
  xstart(P)=(SW/10)*(rnd(8)+1)
Next P
dim ystartPH(SN)
For P = 1 to SN
   ystartPH(P)=-rnd(360)-189*P
Next P
dim ystartPO(SN)
For P = 1 to SN
   ystartPO(P)=-rnd(405)-657*P
Next P
dim ystartDE(SN)
For P = 1 to SN
   ystartDE(P)=-rnd(389)-1223*P
Next P
dim ystartTB(SN)
For P = 1 to SN
   ystartTB(P)=-rnd(487)-1673*P
Next P
dim ystartGH(SN)
For P = 1 to SN
   ystartGH(P)=-rnd(579)-1361*P
Next P
dim ystartMY(SN)
For P = 1 to SN
   ystartMY(P)=-rnd(709)-1879*P
Next P
dim ystartUL(SN)
For P = 1 to SN
   ystartUL(P)=-rnd(749)-1925*P
Next P
dim ystartSP(SN)
For P = 1 to SN
   ystartSP(P)=-rnd(411)-14082*P
Next P

For P = 1 to SN
  Sprite P,xstart(P),ystartPH(P),1 : offset sprite P,90,90
Next P
For P = 1 to SN
  Sprite P+SN,xstart(P),ystartPO(P),2 : offset sprite P+SN,90,90
Next P
For P = 1 to SN
  Sprite P+(SN*2),xstart(P),ystartDE(P),3 : offset sprite P+SN*2,90,90
Next P
For P = 1 to SN
  Sprite P+(SN*3),xstart(P),ystartTB(P),4 : offset sprite P+SN*3,90,90
Next P
For P = 1 to SN
  Sprite P+(SN*4),xstart(P),ystartGH(P),5 : offset sprite P+SN*4,90,90 : set sprite alpha P+SN*4,128
Next P
For P = 1 to SN
  Sprite P+(SN*5),xstart(P),ystartMY(P),6 : offset sprite P+SN*5,90,90 : set sprite alpha P+SN*5,128
Next P
For P = 1 to SN
  Sprite P+(SN*6),xstart(P),ystartUL(P),7 : offset sprite P+SN*6,90,90
Next P
For P = 1 to SN
  Sprite P+(SN*7),xstart(P),ystartSP(P),8 : offset sprite P+SN*7,90,90
Next P

return

+ Code Snippet

Gosub Setup
do
`   gosub Menu
   gosub OnClick
   gosub CityHit
   gosub RefScreen
`   gosub EndGame
   sync
loop
end

Rem *********************
Rem       Procedures
Rem *********************
remstart
Menu:

remend

OnClick:
for P = 1 to (8*SN)
  if SPRITE EXIST(P)
    if mouseclick()=1
      s=sprite collision(1002,P)
      if s <> 0 then INC F#,.05: INC E,1 : delete SPRITE p `: play sound 2
    endif
  endif
next P
   if mouseclick()=1 then Sprite 999,mousex(),mousey(),999 : offset sprite 999,55,55 : set sprite alpha 999,128 : show sprite 999 `: play sound 3
   if mouseclick()=0 then Sprite 999,mousex(),mousey(),999 : offset sprite 999,55,55 : set sprite alpha 999,128 : hide sprite 999
   return

CityHit:
for P = 1 to (8*SN)
if sprite exist(P)
k=sprite collision(2011,P)
if k = 1 then delete sprite P : INC D,1 `: play sound 4
endif
next P
return

RefScreen:
` the sprite display. include the movement and display subroutines
paste image 1000,0,0
`Sprite 999,mousex(),mousey(),999 : offset sprite 999,55,55 : set sprite alpha 999,128
sprite 1002,mousex(),mousey(),1002 : hide sprite 1002
text 0,0,str$(E)
text 0,10,str$(D)
For P = 1 to (8*SN)
  if sprite exist(P) then move Sprite P,-.5*(F#)
Next P
return
remstart
EndGame:
if E = 150 then cls : paste image 5002,0,0
if D = 25 then cls : paste image 5001,0,0


remend

Setup:
rem set up display of background, city, score, top score
Set display mode 1024,768,32
Sync On
Randomize Timer()
hide mouse
` F is the increment of speed on kill
` E is the shot tally
` D is the city hit tally
SW = screen width()
SH = screen height()
F# = 1
SN = 40
E = 0
D = 0
Q = 24

REM **********
REM Create Sprites
REM **********

`load sound "sounds\ambient.wav",1
`load sound "sounds\virus_impact.wav",2
`load sound "sounds\keyboard_beep.wav",3
`load sound "sounds\shield_impact.wav",4
`load image "menu\base.jpg",5000,1
`load image "menu\bad.jpg",5001,1
`load image "menu\good.jpg",5002,1
load image "tex\cosmos.jpg",1000,1
load image "tex\crosshair.tga",999,1
load image "tex\phishing.tga",1,1
load image "tex\postcard.tga",2,1
load image "tex\degrees.tga",3,1
load image "tex\mytob.tga",4,1
load image "tex\ghost.tga",5,1
load image "tex\mydoom.tga",6,1
load image "tex\ultimate.tga",7,1
load image "tex\spy.tga",8,1
load image "city\b1_64x118.tga",2001,1
load image "city\b2_64x130.tga",2002,1
load image "city\b3_78x205.tga",2003,1
load image "city\b4_43x235.tga",2004,1
load image "city\b5_139x249.tga",2005,1
load image "city\b6_97x137.tga",2006,1
load image "city\b7_47x275.tga",2007,1
load image "city\b8_169x169.tga",2008,1
load image "city\b9_71x226.tga",2009,1
load image "city\b10_44x198.tga",2010,1
load image "tex\mountains.tga",2011,1
get image 1002,0,0,1,1,1

REM sprite placements
REM Change ystarts to modify timing of descents
REM City display
sprite 2011,0,SH-108,2011
sprite 2001,Q+12,SH-116,2001
sprite 2002,Q+85,SH-128,2002
sprite 2003,Q+148,SH-203,2003
sprite 2004,Q+232,SH-232,2004
sprite 2005,Q+280,SH-236,2005
sprite 2006,Q+467,SH-137,2006
sprite 2007,Q+582,SH-275,2007
sprite 2008,Q+647,SH-152,2008
sprite 2009,Q+824,SH-223,2009
sprite 2010,Q+913,SH-194,2010

`loop sound 1

Dim xstart(SN)
For P = 1 to SN
  xstart(P)=(SW/10)*(rnd(8)+1)
Next P
dim ystartPH(SN)
For P = 1 to SN
   ystartPH(P)=-rnd(360)-189*P
Next P
dim ystartPO(SN)
For P = 1 to SN
   ystartPO(P)=-rnd(405)-657*P
Next P
dim ystartDE(SN)
For P = 1 to SN
   ystartDE(P)=-rnd(389)-1223*P
Next P
dim ystartTB(SN)
For P = 1 to SN
   ystartTB(P)=-rnd(487)-1673*P
Next P
dim ystartGH(SN)
For P = 1 to SN
   ystartGH(P)=-rnd(579)-1361*P
Next P
dim ystartMY(SN)
For P = 1 to SN
   ystartMY(P)=-rnd(709)-1879*P
Next P
dim ystartUL(SN)
For P = 1 to SN
   ystartUL(P)=-rnd(749)-1925*P
Next P
dim ystartSP(SN)
For P = 1 to SN
   ystartSP(P)=-rnd(411)-14082*P
Next P

For P = 1 to SN
  Sprite P,xstart(P),ystartPH(P),1 : offset sprite P,90,90
Next P
For P = 1 to SN
  Sprite P+SN,xstart(P),ystartPO(P),2 : offset sprite P+SN,90,90
Next P
For P = 1 to SN
  Sprite P+(SN*2),xstart(P),ystartDE(P),3 : offset sprite P+SN*2,90,90
Next P
For P = 1 to SN
  Sprite P+(SN*3),xstart(P),ystartTB(P),4 : offset sprite P+SN*3,90,90
Next P
For P = 1 to SN
  Sprite P+(SN*4),xstart(P),ystartGH(P),5 : offset sprite P+SN*4,90,90 : set sprite alpha P+SN*4,128
Next P
For P = 1 to SN
  Sprite P+(SN*5),xstart(P),ystartMY(P),6 : offset sprite P+SN*5,90,90 : set sprite alpha P+SN*5,128
Next P
For P = 1 to SN
  Sprite P+(SN*6),xstart(P),ystartUL(P),7 : offset sprite P+SN*6,90,90
Next P
For P = 1 to SN
  Sprite P+(SN*7),xstart(P),ystartSP(P),8 : offset sprite P+SN*7,90,90
Next P

return

I want to do something so that when the mouse is held down, it doesn't keep executing my mouseclick()=1, so the player actually has to click on each one. I actually am making this game like a Wii game. I'm controlling it with a laser pointer that works like a mouse, and each mouseclick fires the laser, just like pulling a trigger. The crosshair is to help calibrate this, and to show the player where they are hitting on the screen.

Images attached this time, along with the code so you don't have to copy and paste. Sorry for forgetting so many times.

[edit] I just implemented sprite exist(), so much better than shrinking, hiding, and rotating my sprites. Thanks!

Attachments

Login to view attachments

Back to top

Profile PM Email

Deego

16

Years of Service

User Offline

Joined: 21st May 2008

Location:

Posted: 29th May 2008 05:19

Link

OK, nevermind about that post, I'd be able to edit it if I wasn't such a newbie that I can't see it right now. I fixed both problems with a function that differentiates when a mouse is clicked and when it was held down. The game plays great, and all I need to do now is create 3 images (start screen, bad ending screen, good ending screen), and maybe spice up the graphics a bit. I want to make the sprites explode when shot and glow when they hit the city, which would involved animated sprites, something I'm sure I can find a lot of information about on these forums.

Thanks for the help, and if anyone wants to see the final project, just say so and I'll upload it.

Back to top

Profile PM Email

pcRaider

17

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 30th May 2008 13:45

Link

You must use "Sync Rate 60".
Because so that even other PCs get the same result.
60 is a good value, and most displays use it.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Sprite spawning, killing sprites and background issues

Attachments

Attachments