Help With Shooting Code - GameCreators Forum

Author

Message

LuNaR

19

Years of Service

User Offline

Joined: 6th Mar 2005

Location:

Posted: 7th Mar 2005 09:21

Link

Hey! I am new to Darkbasic. I did a tutorial and modified it a little. Before I modded it, it was a shoot em up game like when plane was flying to right, and the background was scrolling.

after I modified it I made it scroll down and plane face up like a game called Swarm.

But now I got problems with shooting.

For somereason, when game starts, and i move the plane, and press 'z' to shoot, the laser shoots from where my plane started, and also it only shoots once, if I press z again nothing happens. heres the code

`Getting Game Ready
SYNC ON
SYNC RATE 30
HIDE MOUSE

`Loading Images.
load image "C:\Program Files\The Game Creators\Dark Basic Professional Trial\Projects\Alien Hunter\Images\YourShip.jpg",1
load image "C:\Program Files\The Game Creators\Dark Basic Professional Trial\Projects\Alien Hunter\Images\AlienShip.jpg",2
load image "C:\Program Files\The Game Creators\Dark Basic Professional Trial\Projects\Alien Hunter\Images\GreenLaser.jpg",4
load image "C:\Program Files\The Game Creators\Dark Basic Professional Trial\Projects\Alien Hunter\Images\RedLaser.jpg",5
load image "C:\Program Files\The Game Creators\Dark Basic Professional Trial\Projects\Alien Hunter\Images\Stars.jpg",50

`Loading Sounds.
load sound "C:\Program Files\The Game Creators\Dark Basic Professional Trial\Projects\Alien Hunter\Sounds\Cannon.wav",1

`Make Background
MAKE OBJECT PLAIN 4,127,90
ghost object on 4
POSITION OBJECT 4,0,-4,80
TEXTURE OBJECT 4,50
LOCK OBJECT ON 4

`Color background black
color backdrop rgb(0,0,0)

`Playerfire Score Level and Lives Variables
pf=0:score=0:Level=1:lives=3

`Your Ship X and Y coords
ysx=265:ysy=350

`Places your ship on map
sprite 1,ysx,ysy,1

`Where lazer shoots from
lx=SPRITE X(1)+23
ly=SPRITE Y(1)-60

`Start Main Loop
do

`Print Score Level and Lives on screen
set cursor 10,10: Print "SCORE:";score; " LEVEL:";level;" LIVES:";lives

`Left Key Control
if leftKEY()=1 and ysx>20
dec ysx,10
endif

`Right Key Control
if rightKEY()=1 and ysx<545
inc ysx,10
endif

`Start Shoot Routine
if inkey$()="z" and pf=0 then gosub shoot:pf=1

`If Alien Ship Exists, activate blowitup routine.
if SPRITE EXIST(2)=1
if SPRITE HIT(2,3)=1 then gosub blowitup
endif

`Refresh Your Ship Position
sprite 1,ysx,ysy,1

`Activate Moveall Routine
gosub moveall

`Activate Movestars Routine
gosub movestars

`Refresh Screen
sync

`End of Loop
loop

`Movestars Routine
movestars:
SCROLL OBJECT TEXTURE 4,0.00,-0.01
return

`Shoot Routine
shoot:
sprite 2,lx,ly,4
PLAY SOUND 1
return

`Moveall Routine
moveall:
if SPRITE EXIST(2)=1
If sprite y(2)<300
ly=ly-30
sprite 2,lx,ly,4
endif
endif
if SPRITE EXIST(2)=1
If sprite y(2)>300
pf=0
lx=SPRITE y(1)+23
ly=SPRITE x(1)-60
endif
endif
return

`Blow it Up routine
blowitup:
delete sprite 2
for t=6 to 11
sprite 3,500,200,t
wait 1
next t
delete sprite 3
sleep 500
end
sleep 500
return

+ Code Snippet

`Getting Game Ready
SYNC ON
SYNC RATE 30
HIDE MOUSE

`Loading Images.
load image "C:\Program Files\The Game Creators\Dark Basic Professional Trial\Projects\Alien Hunter\Images\YourShip.jpg",1
load image "C:\Program Files\The Game Creators\Dark Basic Professional Trial\Projects\Alien Hunter\Images\AlienShip.jpg",2
load image "C:\Program Files\The Game Creators\Dark Basic Professional Trial\Projects\Alien Hunter\Images\GreenLaser.jpg",4
load image "C:\Program Files\The Game Creators\Dark Basic Professional Trial\Projects\Alien Hunter\Images\RedLaser.jpg",5
load image "C:\Program Files\The Game Creators\Dark Basic Professional Trial\Projects\Alien Hunter\Images\Stars.jpg",50

`Loading Sounds.
load sound "C:\Program Files\The Game Creators\Dark Basic Professional Trial\Projects\Alien Hunter\Sounds\Cannon.wav",1

`Make Background
MAKE OBJECT PLAIN 4,127,90
ghost object on 4
POSITION OBJECT 4,0,-4,80
TEXTURE OBJECT 4,50
LOCK OBJECT ON 4

`Color background black
color backdrop rgb(0,0,0)

`Playerfire Score Level and Lives Variables
pf=0:score=0:Level=1:lives=3

`Your Ship X and Y coords
ysx=265:ysy=350

`Places your ship on map
sprite 1,ysx,ysy,1

`Where lazer shoots from
lx=SPRITE X(1)+23
ly=SPRITE Y(1)-60

`Start Main Loop
do

`Print Score Level and Lives on screen
set cursor 10,10: Print "SCORE:";score; " LEVEL:";level;" LIVES:";lives

`Left Key Control
if leftKEY()=1 and ysx>20
dec ysx,10
endif

`Right Key Control
if rightKEY()=1 and ysx<545
inc ysx,10
endif

`Start Shoot Routine
if inkey$()="z" and pf=0 then gosub shoot:pf=1

`If Alien Ship Exists, activate blowitup routine.
if SPRITE EXIST(2)=1
if SPRITE HIT(2,3)=1 then gosub blowitup
endif

`Refresh Your Ship Position
sprite 1,ysx,ysy,1

`Activate Moveall Routine
gosub moveall

`Activate Movestars Routine
gosub movestars

`Refresh Screen
sync

`End of Loop
loop

`Movestars Routine
movestars:
SCROLL OBJECT TEXTURE 4,0.00,-0.01
return

`Shoot Routine
shoot:
sprite 2,lx,ly,4
PLAY SOUND 1
return


`Moveall Routine
moveall:
if SPRITE EXIST(2)=1
If sprite y(2)<300
ly=ly-30
sprite 2,lx,ly,4
endif
endif
if SPRITE EXIST(2)=1
If sprite y(2)>300
pf=0
lx=SPRITE y(1)+23
ly=SPRITE x(1)-60
endif
endif
return


`Blow it Up routine
blowitup:
delete sprite 2
for t=6 to 11
sprite 3,500,200,t
wait 1
next t
delete sprite 3
sleep 500
end
sleep 500
return

-If Practice makes Perfect, and nobody is perfect, why practice?-

Back to top

Profile PM

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 7th Mar 2005 10:09

Link

Try something like this.

`Getting Game Ready
SYNC ON
SYNC RATE 30
HIDE MOUSE

`Loading Images.
load image "rock2.BMP",1
load image "SnowBricks.bmp",2
load image "green.bmp",4
load image "red.bmp",5
load image "test.bmp",50

`Loading Sounds.
load sound "Stinger1.wav",1

`Make Background
MAKE OBJECT PLAIN 4,127,90
ghost object on 4
POSITION OBJECT 4,0,-4,80
TEXTURE OBJECT 4,50
LOCK OBJECT ON 4

`Color background black
color backdrop rgb(0,0,0)

`Playerfire Score Level and Lives Variables
pf=0:score=0:Level=1:lives=3

`Your Ship X and Y coords
ysx=265:ysy=350

`Places your ship on map
sprite 1,ysx,ysy,1

`Where lazer shoots from
lx=ysx+23
ly=ysy-60

`Start Main Loop
do

`Print Score Level and Lives on screen
set cursor 10,10: Print "SCORE:";score; " LEVEL:";level;" LIVES:";lives

`Left Key Control
if leftKEY()=1 and ysx>20
	dec ysx,10
endif

`Right Key Control
if rightKEY()=1 and ysx<545
	inc ysx,10
endif

`Start Shoot Routine
if inkey$()="z"
	if pf=0
		if zkp=0
			zkp = 1
			gosub shoot
			pf=1
		endif
	endif
else
	zkp = 0
endif

`If Alien Ship Exists, activate blowitup routine.
if SPRITE EXIST(2)=1
	if SPRITE HIT(2,3)=1
		gosub blowitup
	endif
endif

`Refresh Your Ship Position
sprite 1,ysx,ysy,1

`Activate Moveall Routine
gosub moveall

`Activate Movestars Routine
gosub movestars
set cursor 5,5
if sprite exist(2) = 1 then print sprite y(2),"  ",pf
`Refresh Screen
sync

`End of Loop
loop

`Movestars Routine
movestars:
SCROLL OBJECT TEXTURE 4,0.00,-0.01
return

`Shoot Routine
shoot:
sprite 2,lx,ly,4
PLAY SOUND 1
return

`Moveall Routine
moveall:
if SPRITE EXIST(2)=1
	If sprite y(2)>-800
		ly=ly-30
		sprite 2,lx,ly,4
	else
		pf=0
		lx=ysx+23
		ly=ysy-60
	endif
else
	pf=0
	lx=ysx+23
	ly=ysy-60
endif
return

`Blow it Up routine
blowitup:
delete sprite 2
for t=6 to 11
	sprite 3,500,200,t
	wait 1
next t
delete sprite 3
sleep 500
end
sleep 500
return

+ Code Snippet

`Getting Game Ready
SYNC ON
SYNC RATE 30
HIDE MOUSE

`Loading Images.
load image "rock2.BMP",1
load image "SnowBricks.bmp",2
load image "green.bmp",4
load image "red.bmp",5
load image "test.bmp",50

`Loading Sounds.
load sound "Stinger1.wav",1

`Make Background
MAKE OBJECT PLAIN 4,127,90
ghost object on 4
POSITION OBJECT 4,0,-4,80
TEXTURE OBJECT 4,50
LOCK OBJECT ON 4

`Color background black
color backdrop rgb(0,0,0)

`Playerfire Score Level and Lives Variables
pf=0:score=0:Level=1:lives=3

`Your Ship X and Y coords
ysx=265:ysy=350

`Places your ship on map
sprite 1,ysx,ysy,1

`Where lazer shoots from
lx=ysx+23
ly=ysy-60

`Start Main Loop
do

`Print Score Level and Lives on screen
set cursor 10,10: Print "SCORE:";score; " LEVEL:";level;" LIVES:";lives

`Left Key Control
if leftKEY()=1 and ysx>20
	dec ysx,10
endif

`Right Key Control
if rightKEY()=1 and ysx<545
	inc ysx,10
endif

`Start Shoot Routine
if inkey$()="z"
	if pf=0
		if zkp=0
			zkp = 1
			gosub shoot
			pf=1
		endif
	endif
else
	zkp = 0
endif

`If Alien Ship Exists, activate blowitup routine.
if SPRITE EXIST(2)=1
	if SPRITE HIT(2,3)=1
		gosub blowitup
	endif
endif

`Refresh Your Ship Position
sprite 1,ysx,ysy,1

`Activate Moveall Routine
gosub moveall

`Activate Movestars Routine
gosub movestars
set cursor 5,5
if sprite exist(2) = 1 then print sprite y(2),"  ",pf
`Refresh Screen
sync

`End of Loop
loop

`Movestars Routine
movestars:
SCROLL OBJECT TEXTURE 4,0.00,-0.01
return

`Shoot Routine
shoot:
sprite 2,lx,ly,4
PLAY SOUND 1
return


`Moveall Routine
moveall:
if SPRITE EXIST(2)=1
	If sprite y(2)>-800
		ly=ly-30
		sprite 2,lx,ly,4
	else
		pf=0
		lx=ysx+23
		ly=ysy-60
	endif
else
	pf=0
	lx=ysx+23
	ly=ysy-60
endif
return


`Blow it Up routine
blowitup:
delete sprite 2
for t=6 to 11
	sprite 3,500,200,t
	wait 1
next t
delete sprite 3
sleep 500
end
sleep 500
return

Back to top

Profile PM Email

LuNaR

19

Years of Service

User Offline

Joined: 6th Mar 2005

Location:

Posted: 7th Mar 2005 10:12

Link

Thanks so much!

-If Practice makes Perfect, and nobody is perfect, why practice?-

Back to top

Profile PM

LuNaR

19

Years of Service

User Offline

Joined: 6th Mar 2005

Location:

Posted: 7th Mar 2005 10:13

Link

If you would be so kind as to describe what you did? It would help me learn! Thanks

-If Practice makes Perfect, and nobody is perfect, why practice?-

Back to top

Profile PM

Soy Cocktail

20

Years of Service

User Offline

Joined: 23rd Dec 2003

Location:

Posted: 7th Mar 2005 10:27 Edited at: 7th Mar 2005 10:28

Link

If you could post the media I would be glad to help you. I can't code unless I can compile the program. Without the media I can't compile the program. I could create my own media but I dont know the demisions of the original media and you have hardcoded values for adjusting the firing position to the middle of the ship. Oh yeah... and the more important fact that i'm lazy extra work = bad.

The only problem that I can see is that once the lazers position is above 300 it will just stay there untill you shoot again.

edit: oops problem has already been solved.

When life hands you lemons go buy some oranges to make orange juice, and stop expecting everything to be given to you.

Back to top

Profile PM

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 7th Mar 2005 13:52 Edited at: 7th Mar 2005 13:54

Link

Here is a commented version. I didn't change much. Mainly the moveall gosub.

`Getting Game Ready
SYNC ON
SYNC RATE 30
HIDE MOUSE

`Loading Images.
load image "rock2.BMP",1
load image "SnowBricks.bmp",2
load image "green.bmp",4
load image "red.bmp",5
load image "test.bmp",50

`Loading Sounds.
load sound "Stinger1.wav",1

`Make Background
MAKE OBJECT PLAIN 4,127,90
ghost object on 4
POSITION OBJECT 4,0,-4,80
TEXTURE OBJECT 4,50
LOCK OBJECT ON 4

`Color background black
color backdrop rgb(0,0,0)

`Playerfire Score Level and Lives Variables
pf=0:score=0:Level=1:lives=3

`Your Ship X and Y coords
ysx=265:ysy=350

`Places your ship on map
sprite 1,ysx,ysy,1

`just changed the sprite position commands to the variables used to position the sprite
`no need in calling a function to get the position when it is already known ;-)
`Where lazer shoots from
lx=ysx+23
ly=ysy-60

`Start Main Loop
do

`Print Score Level and Lives on screen
set cursor 10,10: Print "SCORE:";score; " LEVEL:";level;" LIVES:";lives

`Left Key Control
if leftKEY()=1 and ysx>20
	dec ysx,10
endif

`Right Key Control
if rightKEY()=1 and ysx<545
	inc ysx,10
endif

`instead of using inkey$ you will probably want to change over to keystate()
`if keystate(44) = 1 would be for key z on american keyboard.
`Start Shoot Routine
if inkey$()="z"
	if pf=0
		gosub shoot
		pf=1
	endif
endif

`If Alien Ship Exists, activate blowitup routine.
if SPRITE EXIST(2)=1
	if SPRITE HIT(2,3)=1
		gosub blowitup
	endif
endif

`Refresh Your Ship Position
sprite 1,ysx,ysy,1

`Activate Moveall Routine
gosub moveall

`Activate Movestars Routine
gosub movestars
`Refresh Screen
sync

`End of Loop
loop

`Movestars Routine
movestars:
SCROLL OBJECT TEXTURE 4,0.00,-0.01
return

`Shoot Routine
shoot:
sprite 2,lx,ly,4
PLAY SOUND 1
return

`Moveall Routine
moveall:
if SPRITE EXIST(2)=1
	`basically I just changed the <300 to >-800 and added this else to reset the 
	`bullet when it goes too far
	If sprite y(2)>-800
		ly=ly-30
		sprite 2,lx,ly,4
	else
		pf=0
		lx=ysx+23
		ly=ysy-60
	endif
`this else is not needed as your code is now but could be needed, 
`if you change it a bit so I put it here as it isn't hurting anything
else
	pf=0
	lx=ysx+23
	ly=ysy-60
endif
return

`Blow it Up routine
blowitup:
delete sprite 2
for t=6 to 11
	sprite 3,500,200,t
	wait 1
next t
delete sprite 3
sleep 500
end
sleep 500
return

+ Code Snippet

`Getting Game Ready
SYNC ON
SYNC RATE 30
HIDE MOUSE

`Loading Images.
load image "rock2.BMP",1
load image "SnowBricks.bmp",2
load image "green.bmp",4
load image "red.bmp",5
load image "test.bmp",50

`Loading Sounds.
load sound "Stinger1.wav",1

`Make Background
MAKE OBJECT PLAIN 4,127,90
ghost object on 4
POSITION OBJECT 4,0,-4,80
TEXTURE OBJECT 4,50
LOCK OBJECT ON 4

`Color background black
color backdrop rgb(0,0,0)

`Playerfire Score Level and Lives Variables
pf=0:score=0:Level=1:lives=3

`Your Ship X and Y coords
ysx=265:ysy=350

`Places your ship on map
sprite 1,ysx,ysy,1

`just changed the sprite position commands to the variables used to position the sprite
`no need in calling a function to get the position when it is already known ;-)
`Where lazer shoots from
lx=ysx+23
ly=ysy-60

`Start Main Loop
do

`Print Score Level and Lives on screen
set cursor 10,10: Print "SCORE:";score; " LEVEL:";level;" LIVES:";lives

`Left Key Control
if leftKEY()=1 and ysx>20
	dec ysx,10
endif

`Right Key Control
if rightKEY()=1 and ysx<545
	inc ysx,10
endif

`instead of using inkey$ you will probably want to change over to keystate()
`if keystate(44) = 1 would be for key z on american keyboard.
`Start Shoot Routine
if inkey$()="z"
	if pf=0
		gosub shoot
		pf=1
	endif
endif

`If Alien Ship Exists, activate blowitup routine.
if SPRITE EXIST(2)=1
	if SPRITE HIT(2,3)=1
		gosub blowitup
	endif
endif

`Refresh Your Ship Position
sprite 1,ysx,ysy,1

`Activate Moveall Routine
gosub moveall

`Activate Movestars Routine
gosub movestars
`Refresh Screen
sync

`End of Loop
loop

`Movestars Routine
movestars:
SCROLL OBJECT TEXTURE 4,0.00,-0.01
return

`Shoot Routine
shoot:
sprite 2,lx,ly,4
PLAY SOUND 1
return


`Moveall Routine
moveall:
if SPRITE EXIST(2)=1
	`basically I just changed the <300 to >-800 and added this else to reset the 
	`bullet when it goes too far
	If sprite y(2)>-800
		ly=ly-30
		sprite 2,lx,ly,4
	else
		pf=0
		lx=ysx+23
		ly=ysy-60
	endif
`this else is not needed as your code is now but could be needed, 
`if you change it a bit so I put it here as it isn't hurting anything
else
	pf=0
	lx=ysx+23
	ly=ysy-60
endif
return


`Blow it Up routine
blowitup:
delete sprite 2
for t=6 to 11
	sprite 3,500,200,t
	wait 1
next t
delete sprite 3
sleep 500
end
sleep 500
return

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Help With Shooting Code