simple bullet example - GameCreators Forum

Author

Message

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 14th Mar 2015 12:15

Link

Hi

I want when Pressed Space key my sprite can fire bullet and destroy it when is out of screen but i don't know how can make it.please if possible, give me an simple example.

Thanks.

Back to top

Profile PM

george++

AGK Tool Maker

16

Years of Service

User Offline

Joined: 13th May 2007

Location: Thessaloniki, Hellas

Posted: 14th Mar 2015 18:37

Link

You have already an example. Just take a look at the official samples

Back to top

Profile PM Email

29 games

18

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 14th Mar 2015 19:02

Link

In addition to george++'s excellent suggestion you can also have a look at this

Purple Complex: An Arcade Style First Person Tactical Shooter - full game available now
Hover Car Race Challenge Accepted! - full game available now

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 16th Mar 2015 11:48

Link

Quote: "You have already an example. Just take a look at the official samples.
"

your mean is fire exmple in AppGameKit? if yes, my gun should fire more that one sprite.maybe I can create a gun that can fire several bullet but I want learn correct way.

Quote: "In addition to george++'s excellent suggestion you can also have a look at this
"

thanks, but if I see simple code it's very better for understand.

Back to top

Profile PM

Jaeg

18

Years of Service

User Offline

Joined: 16th Mar 2006

Location: Indiana

Posted: 16th Mar 2015 23:48

Link

An easy way to do it is to have an array of bullets. As long as you have space in the array create a new bullet. When a bullet is destroyed or off the screen remove it from the array or mark it as destroyed so you can reuse it.

Then in the game loop cycle through the array of bullets to update their position based on their velocities and to do any collision checking on them.

Go ahead. Walk into Mordor.

Ball State University - Computer Science Major

Back to top

Profile PM Email Website

CJB

Valued Member

20

Years of Service

User Offline

Joined: 10th Feb 2004

Location: Essex, UK

Posted: 17th Mar 2015 11:53

Link

Also, add a timer element so the player cannot shoot until 0.x seconds have passed since the last shot. This will prevent all your bullets flying at the same time, and allow for power-ups (i.e. increase fire rate).

V2 T1 (Mostly)
Uzmadesign

Back to top

Profile PM Email Website

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 31st Mar 2015 10:40

Link

I created a simple bullet system.
but I want this way is correct? or there is better way?
because I want use this for mobile game and want be sure that this way don't reduce FPS when I add some objects in game.

Thanks.

SetDisplayAspect( 4.0/3.0 )

global dim bullet[0]
global fire = 0
global Player as Integer

//Call Functions
Game()

Function Game()

CreatePlayer()

do

if GetRawKeyState(37) = 1 and GetSpriteX(Player) > 0
    SetSpritePosition(Player,GetSpriteX(Player)-0.5,GetSpriteY(Player))
else
    if GetRawKeyState(39) = 1 and GetSpriteX(Player) < 95
        SetSpritePosition(Player,GetSpriteX(Player)+0.5,GetSpriteY(Player))
endif
    endif

if fire = 0
    if GetRawKeyPressed(32) = 1
        CreateBullet()
        fire = 1
endif
    endif

if fire = 1
    SetSpritePosition(bullet[0],GetSpriteX(bullet[0]),GetSpriteY(bullet[0])-4)
endif

if GetSpriteExists(bullet[0]) = 1
    if GetSpriteY(bullet[0]) < -5
        fire = 0
        DeleteSprite(bullet[0])
endif
    endif

Sync()
loop

EndFunction

//Create Bullet
Function CreateBullet()

bullet[0] = CreateSprite(0)
SetSpriteSize(bullet[0],1,4)
SetSpritePosition(bullet[0],GetSpriteXByOffset(Player)-0.5,GetSpriteYByOffset(Player)-5)

EndFunction

//Create Player
Function CreatePlayer()

Player = CreateSprite(0)
SetSpriteSize(Player,5,-1)
SetSpritePositionByOffset(Player,50,96.5)

EndFunction

+ Code Snippet

SetDisplayAspect( 4.0/3.0 )

global dim bullet[0]
global fire = 0
global Player as Integer

//Call Functions
Game()

Function Game()

CreatePlayer()

do

if GetRawKeyState(37) = 1 and GetSpriteX(Player) > 0
    SetSpritePosition(Player,GetSpriteX(Player)-0.5,GetSpriteY(Player))
else
    if GetRawKeyState(39) = 1 and GetSpriteX(Player) < 95
        SetSpritePosition(Player,GetSpriteX(Player)+0.5,GetSpriteY(Player))
endif
    endif

if fire = 0
    if GetRawKeyPressed(32) = 1
        CreateBullet()
        fire = 1
endif
    endif

if fire = 1
    SetSpritePosition(bullet[0],GetSpriteX(bullet[0]),GetSpriteY(bullet[0])-4)
endif

if GetSpriteExists(bullet[0]) = 1
    if GetSpriteY(bullet[0]) < -5
        fire = 0
        DeleteSprite(bullet[0])
endif
    endif


 Sync()
loop

EndFunction

//Create Bullet
Function CreateBullet()

bullet[0] = CreateSprite(0)
SetSpriteSize(bullet[0],1,4)
SetSpritePosition(bullet[0],GetSpriteXByOffset(Player)-0.5,GetSpriteYByOffset(Player)-5)

EndFunction

//Create Player
Function CreatePlayer()

Player = CreateSprite(0)
SetSpriteSize(Player,5,-1)
SetSpritePositionByOffset(Player,50,96.5)

EndFunction

Back to top

Profile PM

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 31st Mar 2015 13:25

Link

before any thing please guide me to fix this Problem:

I want my ship can fire several bullet like below code. but problem is when I press SPACE key many times old fired bullets stop in air.

Please Guide Me.

SetDisplayAspect( 4.0/3.0 )

global dim bullet[0]
global fire = 0
global Player as Integer

//Call Functions
Game()

Function Game()

CreatePlayer()

do

if GetRawKeyState(37) = 1 and GetSpriteX(Player) > 0
    SetSpritePosition(Player,GetSpriteX(Player)-0.5,GetSpriteY(Player))
else
    if GetRawKeyState(39) = 1 and GetSpriteX(Player) < 95
        SetSpritePosition(Player,GetSpriteX(Player)+0.5,GetSpriteY(Player))
endif
    endif

//if fire = 0
    if GetRawKeyPressed(32) = 1
        CreateBullet()
        fire = 1
endif
    //endif

if fire = 1
    SetSpritePosition(bullet[0],GetSpriteX(bullet[0]),GetSpriteY(bullet[0])-4)
endif

/*
if GetSpriteExists(bullet[0]) = 1
    if GetSpriteY(bullet[0]) < -5
        fire = 0
        DeleteSprite(bullet[0])
endif
    endif
*/

Sync()
loop

EndFunction

//Create Bullet
Function CreateBullet()

bullet[0] = CreateSprite(0)
SetSpriteSize(bullet[0],1,4)
SetSpritePosition(bullet[0],GetSpriteXByOffset(Player)-0.5,GetSpriteYByOffset(Player)-5)

EndFunction

//Create Player
Function CreatePlayer()

Player = CreateSprite(0)
SetSpriteSize(Player,5,-1)
SetSpritePositionByOffset(Player,50,96.5)

EndFunction

+ Code Snippet

SetDisplayAspect( 4.0/3.0 )

global dim bullet[0]
global fire = 0
global Player as Integer

//Call Functions
Game()

Function Game()

CreatePlayer()

do

if GetRawKeyState(37) = 1 and GetSpriteX(Player) > 0
    SetSpritePosition(Player,GetSpriteX(Player)-0.5,GetSpriteY(Player))
else
    if GetRawKeyState(39) = 1 and GetSpriteX(Player) < 95
        SetSpritePosition(Player,GetSpriteX(Player)+0.5,GetSpriteY(Player))
endif
    endif

//if fire = 0
    if GetRawKeyPressed(32) = 1
        CreateBullet()
        fire = 1
endif
    //endif

if fire = 1
    SetSpritePosition(bullet[0],GetSpriteX(bullet[0]),GetSpriteY(bullet[0])-4)
endif

/*
if GetSpriteExists(bullet[0]) = 1
    if GetSpriteY(bullet[0]) < -5
        fire = 0
        DeleteSprite(bullet[0])
endif
    endif
*/

 Sync()
loop

EndFunction

//Create Bullet
Function CreateBullet()

bullet[0] = CreateSprite(0)
SetSpriteSize(bullet[0],1,4)
SetSpritePosition(bullet[0],GetSpriteXByOffset(Player)-0.5,GetSpriteYByOffset(Player)-5)

EndFunction

//Create Player
Function CreatePlayer()

Player = CreateSprite(0)
SetSpriteSize(Player,5,-1)
SetSpritePositionByOffset(Player,50,96.5)

EndFunction

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 31st Mar 2015 13:32 Edited at: 31st Mar 2015 13:38

Link

You need to update all bullets, not just one here:

+ Code Snippet

if fire = 1
    SetSpritePosition(bullet[0],GetSpriteX(bullet[0]),GetSpriteY(bullet[0])-4)
endif

Also you need to store each new bullet correctly here:

+ Code Snippet


//Create Bullet
Function CreateBullet()

bullet[0] = CreateSprite(0)
SetSpriteSize(bullet[0],1,4)
SetSpritePosition(bullet[0],GetSpriteXByOffset(Player)-0.5,GetSpriteYByOffset(Player)-5)

EndFunction

Like this:

+ Code Snippet

//Create Bullet
Function CreateBullet()
    spr = CreateSprite(0)
    SetSpriteSize(spr,1,4)
    SetSpritePosition(spr, GetSpriteXByOffset(Player)-0.5,GetSpriteYByOffset(Player)-5)
    bullet.insert(spr)
EndFunction

for i=0 to bullet.length
    SetSpritePosition(bullet[i],GetSpriteX(bullet[i]),GetSpriteY(bullet[i])-4)
    if GetSpriteY(bullet[i]) < -5
        fire = 0
        DeleteSprite(bullet[i])
        bullet.remove(i)
        dec i
    endif
next

EDIT: Updated with more detail

Using AppGameKit V2 Tier 1

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 31st Mar 2015 13:43 Edited at: 31st Mar 2015 13:43

Link

thanks baxslash.

but I have AppGameKit v1 and don't work below commands:

+ Code Snippet

Bullet.insert(spr)

Bullet.length

Back to top

Profile PM

Engineer

9

Years of Service

User Offline

Joined: 16th Jul 2014

Location:

Posted: 31st Mar 2015 14:23

Link

Excellent!
Super Bullet

AGK 2 !

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 31st Mar 2015 15:05

Link

Quote: "but I have AppGameKit v1 and don't work below commands:"

Then you need to track the size of your array using a variable and "insert" data as you go along.

If you are unsure about how to do that can I suggest the Newcomers board which was created especially for questions about the 'basics' of AGK.

Using AppGameKit V2 Tier 1

Back to top

Profile PM Email

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 31st Mar 2015 15:21

Link

Quote: "If you are unsure about how to do that can I suggest the Newcomers board which was created especially for questions about the 'basics' of AGK.
"

OK, Thanks Baxslash

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / simple bullet example