Random Fire - GameCreators Forum

Author

Message

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 31st Mar 2015 21:20

Link

Hi.

I wrote a code for my enemy that can shoot to player. but I want enemy shoot randomly, for this work I used Random Command but shooting is not Random.

Please Guide Me.

+ Code Snippet

for x = 1 to MaxBullets
    if GetSpriteExists(Enemy) = 1
        if GetSpriteExists(EnemyBullet[x]) = 0
            rnd = Random(100,200)
            if time# < rnd then time# = time# + 0.1
            if time# >= rnd
                EnemyBullet()
                time# = 0
            endif
    endif
        endif
next x

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 21:45

Link

If you are calling this every loop then the "Random" element is pretty much lost. You need to set the time each enemy will next fire their weapon and then only fire once that time has passed. I normally store enemy data in a UDT array like this:

+ Code Snippet

type enemyType
    spr as integer
    nextFire as float
endtype
global dim enemy[50] as enemyType

Then loop through like this:

+ Code Snippet

for i=0 to 50
    if timer()>enemy[i].nextFire
        Fire(enemy[i].spr)
        enemy[i].nextFire = timer()+Random(100, 1000)*0.001
    endif
next

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 22:13 Edited at: 31st Mar 2015 22:14

Link

what is Fire(enemy(i).spr)?

Back to top

Profile PM

Scraggle

Moderator

20

Years of Service

User Offline

Joined: 10th Jul 2003

Location: Yorkshire

Posted: 1st Apr 2015 09:14

Link

It is a call to a function that fires the bullet.
The function doesn't exist because it is just an example of how to do it. You will need to write the bullet firing function yourself because that is specific to your game.

AGK V2 user - Tier 1 & 2

Back to top

Profile PM Email

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 1st Apr 2015 10:36

Link

Quote: "It is a call to a function that fires the bullet.
The function doesn't exist because it is just an example of how to do it. You will need to write the bullet firing function yourself because that is specific to your game."

Exactly.

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: 1st Apr 2015 10:51

Link

I Trying to guess should use EnemyBullet() function but it don't work.
is there better way without create several enemy[x] for each enemy?

Back to top

Profile PM

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 1st Apr 2015 13:05 Edited at: 1st Apr 2015 13:55

Link

@baxslash

I compound my code with your code and create this code and seem enemy shoot randomly. please see and tell this way is correct or no? is there better way?

+ Code Snippet

//Enemy Fire Bullet
for x = 1 to MaxBullets
    if GetSpriteExists(Enemy) = 1
        if GetSpriteExists(EnemyBullet[x]) = 0
            if time# < Timer() then time# = time# + 0.01
            if time# >= Timer()
                EnemyBullet()
                time# = Timer() - Random(0,1000) * 0.01
            endif
    endif
        endif
next x

and this is my full code:

SetDisplayAspect( 4.0/3.0 )

global MaxBullets = 10
global dim Bullet[MaxBullets]
global BulletNumber = 0
global Player as Integer
global Enemy as Integer
global dim EnemyBullet[MaxBullets]
global EnemyBulletNumber = 0
global time# = 0.0

//Call Functions
Game()

Function Game()

CreatePlayer()
CreateEnemy()

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 GetRawKeyPressed(32)
    CreateBullet()
endif

//Player Fire Bullet
for i = 1 to MaxBullets
    if GetSpriteExists(Bullet[i]) = 1
        SetSpritePosition(Bullet[i],GetSpriteX(Bullet[i]),GetSpriteY(Bullet[i])-4)
        if GetSpriteY(Bullet[i]) < -5
            DeleteSprite(Bullet[i])
        endif
    endif
next i

Print (timer())
Print (time#)

//Enemy Fire Bullet
for x = 1 to MaxBullets
    if GetSpriteExists(Enemy) = 1
        if GetSpriteExists(EnemyBullet[x]) = 0
            if time# < Timer() then time# = time# + 0.01
            if time# >= Timer()
                EnemyBullet()
                time# = Timer() - Random(200,1000) * 0.01
            endif
    endif
        endif
next x

for j = 1 to MaxBullets
    if GetSpriteExists(EnemyBullet[j]) = 1
        SetSpritePosition(EnemyBullet[j],GetSpriteX(EnemyBullet[j]),GetSpriteY(EnemyBullet[j])+3)
        if GetSpriteY(EnemyBullet[j]) > 105
            DeleteSprite(EnemyBullet[j])
    endif
        endif
next j

Sync()
loop

EndFunction

//====>>>>>>>>>>>>>>>>>>>>>>>>>>>>Functions
//Create Player Sprite
Function CreatePlayer()
    Player = CreateSprite(0)
    SetSpriteSize(Player,5,-1)
    SetSpritePositionByOffset(Player,50,96.5)
EndFunction

//Create Player Bullet
Function CreateBullet()
    BulletNumber = BulletNumber + 1
    if BulletNumber > 10 Then BulletNumber = 1
    Bullet[BulletNumber] = CreateSprite(0)
    SetSpriteSize(Bullet[BulletNumber], 1, 4)
    SetSpritePosition(Bullet[BulletNumber],GetSpriteXByOffset(Player)-0.5,GetSpriteYByOffset(Player)-5)
EndFunction

//Create Enemy
Function CreateEnemy()
    Enemy = CreateSprite(0)
    SetSpriteSize(Enemy,5,-1)
    SetSpritePositionByOffset(Enemy,50,20)
    SetSpriteColor(Enemy,0,255,0,255)
EndFunction

//Create EnemyBullet
Function EnemyBullet()
    EnemyBulletNumber = EnemyBulletNumber + 1
    if EnemyBulletNumber > MaxBullets
        EnemyBulletNumber = 1
    endif
    EnemyBullet[EnemyBulletNumber] = CreateSprite(0)
    SetSpriteSize(EnemyBullet[EnemyBulletNumber],1,4)
    SetSpriteColor(EnemyBullet[EnemyBulletNumber],0,255,0,255)
    SetSpritePosition(EnemyBullet[EnemyBulletNumber],GetSpriteXByOffset(Enemy)-0.5,GetSpriteYByOffset(Enemy)+5)
EndFunction

+ Code Snippet

SetDisplayAspect( 4.0/3.0 )

global MaxBullets = 10
global dim Bullet[MaxBullets]
global BulletNumber = 0
global Player as Integer
global Enemy as Integer
global dim EnemyBullet[MaxBullets]
global EnemyBulletNumber = 0
global time# = 0.0

//Call Functions
Game()

Function Game()

CreatePlayer()
CreateEnemy()

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 GetRawKeyPressed(32)
    CreateBullet()
endif

//Player Fire Bullet
for i = 1 to MaxBullets
    if GetSpriteExists(Bullet[i]) = 1
        SetSpritePosition(Bullet[i],GetSpriteX(Bullet[i]),GetSpriteY(Bullet[i])-4)
        if GetSpriteY(Bullet[i]) < -5
            DeleteSprite(Bullet[i])
        endif
    endif
next i

Print (timer())
Print (time#)

//Enemy Fire Bullet
for x = 1 to MaxBullets
    if GetSpriteExists(Enemy) = 1
        if GetSpriteExists(EnemyBullet[x]) = 0
            if time# < Timer() then time# = time# + 0.01
            if time# >= Timer()
                EnemyBullet()
                time# = Timer() - Random(200,1000) * 0.01
            endif
    endif
        endif
next x

for j = 1 to MaxBullets
    if GetSpriteExists(EnemyBullet[j]) = 1
        SetSpritePosition(EnemyBullet[j],GetSpriteX(EnemyBullet[j]),GetSpriteY(EnemyBullet[j])+3)
        if GetSpriteY(EnemyBullet[j]) > 105
            DeleteSprite(EnemyBullet[j])
    endif
        endif
next j

 Sync()
loop

EndFunction


//====>>>>>>>>>>>>>>>>>>>>>>>>>>>>Functions
//Create Player Sprite
Function CreatePlayer()
    Player = CreateSprite(0)
    SetSpriteSize(Player,5,-1)
    SetSpritePositionByOffset(Player,50,96.5)
EndFunction

//Create Player Bullet
Function CreateBullet()
    BulletNumber = BulletNumber + 1
    if BulletNumber > 10 Then BulletNumber = 1
    Bullet[BulletNumber] = CreateSprite(0)
    SetSpriteSize(Bullet[BulletNumber], 1, 4)
    SetSpritePosition(Bullet[BulletNumber],GetSpriteXByOffset(Player)-0.5,GetSpriteYByOffset(Player)-5)
EndFunction

//Create Enemy
Function CreateEnemy()
    Enemy = CreateSprite(0)
    SetSpriteSize(Enemy,5,-1)
    SetSpritePositionByOffset(Enemy,50,20)
    SetSpriteColor(Enemy,0,255,0,255)
EndFunction

//Create EnemyBullet
Function EnemyBullet()
    EnemyBulletNumber = EnemyBulletNumber + 1
    if EnemyBulletNumber > MaxBullets
        EnemyBulletNumber = 1
    endif
    EnemyBullet[EnemyBulletNumber] = CreateSprite(0)
    SetSpriteSize(EnemyBullet[EnemyBulletNumber],1,4)
    SetSpriteColor(EnemyBullet[EnemyBulletNumber],0,255,0,255)
    SetSpritePosition(EnemyBullet[EnemyBulletNumber],GetSpriteXByOffset(Enemy)-0.5,GetSpriteYByOffset(Enemy)+5)
EndFunction

UPDATE: this is above code with little different that there is 10 enemies and I want randomly fire them, but after compile give me an error, please tell me where is the problem?

Problem is relate to below code and when I changed Enemy to Enemy(x).

+ Code Snippet

//Enemy Fire Bullet
for x = 1 to MaxBullets
    if GetSpriteExists(Enemy[x]) = 1
        if GetSpriteExists(EnemyBullet[x]) = 0
            if time# < Timer() then time# = time# + 0.01
            if time# >= Timer()
                EnemyBullet()
                time# = Timer() - Random(200,1000) * 0.01
            endif
    endif
        endif
next x

this is full code:

SetDisplayAspect( 4.0/3.0 )

global MaxBullets = 10
global dim Bullet[MaxBullets]
global BulletNumber = 0
global Player as Integer
global dim Enemy[10]
global dim EnemyBullet[MaxBullets]
global EnemyBulletNumber = 0
global time# = 0.0

//Call Functions
Game()

Function Game()

CreatePlayer()
CreateEnemy()

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 GetRawKeyPressed(32)
    CreateBullet()
endif

//Player Fire Bullet
for i = 1 to MaxBullets
    if GetSpriteExists(Bullet[i]) = 1
        SetSpritePosition(Bullet[i],GetSpriteX(Bullet[i]),GetSpriteY(Bullet[i])-4)
        if GetSpriteY(Bullet[i]) < -5
            DeleteSprite(Bullet[i])
        endif
    endif
next i

Print (timer())
Print (time#)

//Enemy Fire Bullet
for x = 1 to MaxBullets
    if GetSpriteExists(Enemy[x]) = 1
        if GetSpriteExists(EnemyBullet[x]) = 0
            if time# < Timer() then time# = time# + 0.01
            if time# >= Timer()
                EnemyBullet()
                time# = Timer() - Random(200,1000) * 0.01
            endif
    endif
        endif
next x

for j = 1 to MaxBullets
    if GetSpriteExists(EnemyBullet[j]) = 1
        SetSpritePosition(EnemyBullet[j],GetSpriteX(EnemyBullet[j]),GetSpriteY(EnemyBullet[j])+3)
        if GetSpriteY(EnemyBullet[j]) > 105
            DeleteSprite(EnemyBullet[j])
    endif
        endif
next j

Sync()
loop

EndFunction

//====>>>>>>>>>>>>>>>>>>>>>>>>>>>>Functions
//Create Player Sprite
Function CreatePlayer()
    Player = CreateSprite(0)
    SetSpriteSize(Player,5,-1)
    SetSpritePositionByOffset(Player,50,96.5)
EndFunction

//Create Player Bullet
Function CreateBullet()
    BulletNumber = BulletNumber + 1
    if BulletNumber > 10 Then BulletNumber = 1
    Bullet[BulletNumber] = CreateSprite(0)
    SetSpriteSize(Bullet[BulletNumber], 1, 4)
    SetSpritePosition(Bullet[BulletNumber],GetSpriteXByOffset(Player)-0.5,GetSpriteYByOffset(Player)-5)
EndFunction

//Create Enemy
Function CreateEnemy()
    for a = 1 to 10
        Enemy[a] = CreateSprite(0)
        SetSpriteSize(Enemy[a],5,-1)
        SetSpritePositionByOffset(Enemy[a],-5+(a*10),20)
        SetSpriteColor(Enemy[a],0,255,0,255)
    next a
EndFunction

//Create EnemyBullet
Function EnemyBullet()
    EnemyBulletNumber = EnemyBulletNumber + 1
    if EnemyBulletNumber > MaxBullets
        EnemyBulletNumber = 1
    endif
    EnemyBullet[EnemyBulletNumber] = CreateSprite(0)
    SetSpriteSize(EnemyBullet[EnemyBulletNumber],1,4)
    SetSpriteColor(EnemyBullet[EnemyBulletNumber],0,255,0,255)
    SetSpritePosition(EnemyBullet[EnemyBulletNumber],GetSpriteXByOffset(Enemy)-0.5,GetSpriteYByOffset(Enemy)+5)
EndFunction

+ Code Snippet

SetDisplayAspect( 4.0/3.0 )

global MaxBullets = 10
global dim Bullet[MaxBullets]
global BulletNumber = 0
global Player as Integer
global dim Enemy[10]
global dim EnemyBullet[MaxBullets]
global EnemyBulletNumber = 0
global time# = 0.0

//Call Functions
Game()

Function Game()

CreatePlayer()
CreateEnemy()

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 GetRawKeyPressed(32)
    CreateBullet()
endif

//Player Fire Bullet
for i = 1 to MaxBullets
    if GetSpriteExists(Bullet[i]) = 1
        SetSpritePosition(Bullet[i],GetSpriteX(Bullet[i]),GetSpriteY(Bullet[i])-4)
        if GetSpriteY(Bullet[i]) < -5
            DeleteSprite(Bullet[i])
        endif
    endif
next i

Print (timer())
Print (time#)

//Enemy Fire Bullet
for x = 1 to MaxBullets
    if GetSpriteExists(Enemy[x]) = 1
        if GetSpriteExists(EnemyBullet[x]) = 0
            if time# < Timer() then time# = time# + 0.01
            if time# >= Timer()
                EnemyBullet()
                time# = Timer() - Random(200,1000) * 0.01
            endif
    endif
        endif
next x

for j = 1 to MaxBullets
    if GetSpriteExists(EnemyBullet[j]) = 1
        SetSpritePosition(EnemyBullet[j],GetSpriteX(EnemyBullet[j]),GetSpriteY(EnemyBullet[j])+3)
        if GetSpriteY(EnemyBullet[j]) > 105
            DeleteSprite(EnemyBullet[j])
    endif
        endif
next j

 Sync()
loop

EndFunction


//====>>>>>>>>>>>>>>>>>>>>>>>>>>>>Functions
//Create Player Sprite
Function CreatePlayer()
    Player = CreateSprite(0)
    SetSpriteSize(Player,5,-1)
    SetSpritePositionByOffset(Player,50,96.5)
EndFunction

//Create Player Bullet
Function CreateBullet()
    BulletNumber = BulletNumber + 1
    if BulletNumber > 10 Then BulletNumber = 1
    Bullet[BulletNumber] = CreateSprite(0)
    SetSpriteSize(Bullet[BulletNumber], 1, 4)
    SetSpritePosition(Bullet[BulletNumber],GetSpriteXByOffset(Player)-0.5,GetSpriteYByOffset(Player)-5)
EndFunction

//Create Enemy
Function CreateEnemy()
    for a = 1 to 10
        Enemy[a] = CreateSprite(0)
        SetSpriteSize(Enemy[a],5,-1)
        SetSpritePositionByOffset(Enemy[a],-5+(a*10),20)
        SetSpriteColor(Enemy[a],0,255,0,255)
    next a
EndFunction

//Create EnemyBullet
Function EnemyBullet()
    EnemyBulletNumber = EnemyBulletNumber + 1
    if EnemyBulletNumber > MaxBullets
        EnemyBulletNumber = 1
    endif
    EnemyBullet[EnemyBulletNumber] = CreateSprite(0)
    SetSpriteSize(EnemyBullet[EnemyBulletNumber],1,4)
    SetSpriteColor(EnemyBullet[EnemyBulletNumber],0,255,0,255)
    SetSpritePosition(EnemyBullet[EnemyBulletNumber],GetSpriteXByOffset(Enemy)-0.5,GetSpriteYByOffset(Enemy)+5)
EndFunction

Thanks

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 1st Apr 2015 14:37

Link

Quote: "UPDATE: this is above code with little different that there is 10 enemies and I want randomly fire them, but after compile give me an error, please tell me where is the problem?"

What is the compiler error? Sorry I don't have much time today. Compiler errors are usually pretty self-explanatory but if you tell me what it says I'll explain it to you.

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: 1st Apr 2015 14:50

Link

Quote: "Sorry I don't have much time today."

Ok, I find Problem. but another problem is only one enemy shoot bullet and others don't shoot.

SetDisplayAspect( 4.0/3.0 )

global MaxBullets = 10
global dim Bullet[MaxBullets]
global BulletNumber = 0
global Player as Integer
global dim Enemy[10]
global dim EnemyBullet[MaxBullets]
global EnemyBulletNumber = 0
global time# = 0.0

//Call Functions
Game()

Function Game()

CreatePlayer()
CreateEnemy()

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 GetRawKeyPressed(32)
    CreateBullet()
endif

//Player Fire Bullet
for i = 1 to MaxBullets
    if GetSpriteExists(Bullet[i]) = 1
        SetSpritePosition(Bullet[i],GetSpriteX(Bullet[i]),GetSpriteY(Bullet[i])-4)
        if GetSpriteY(Bullet[i]) < -5
            DeleteSprite(Bullet[i])
        endif
    endif
next i

Print (timer())
Print (time#)

//Enemy Fire Bullet
for x = 1 to MaxBullets
    if GetSpriteExists(Enemy[x]) = 1
        if GetSpriteExists(EnemyBullet[x]) = 0
            if time# < Timer() then time# = time# + 0.01
            if time# >= Timer()
                EnemyBullet()
                time# = Timer() - Random(200,1000) * 0.01
            endif
    endif
        endif
next x

for j = 1 to MaxBullets
    if GetSpriteExists(EnemyBullet[j]) = 1
        SetSpritePosition(EnemyBullet[j],GetSpriteX(EnemyBullet[j]),GetSpriteY(EnemyBullet[j])+3)
        if GetSpriteY(EnemyBullet[j]) > 105
            DeleteSprite(EnemyBullet[j])
    endif
        endif
next j

Sync()
loop

EndFunction

//====>>>>>>>>>>>>>>>>>>>>>>>>>>>>Functions
//Create Player Sprite
Function CreatePlayer()
    Player = CreateSprite(0)
    SetSpriteSize(Player,5,-1)
    SetSpritePositionByOffset(Player,50,96.5)
EndFunction

//Create Player Bullet
Function CreateBullet()
    BulletNumber = BulletNumber + 1
    if BulletNumber > 10 Then BulletNumber = 1
    Bullet[BulletNumber] = CreateSprite(0)
    SetSpriteSize(Bullet[BulletNumber], 1, 4)
    SetSpritePosition(Bullet[BulletNumber],GetSpriteXByOffset(Player)-0.5,GetSpriteYByOffset(Player)-5)
EndFunction

//Create Enemy
Function CreateEnemy()
    for a = 1 to 10
        Enemy[a] = CreateSprite(0)
        SetSpriteSize(Enemy[a],5,-1)
        SetSpritePositionByOffset(Enemy[a],-5+(a*10),20)
        SetSpriteColor(Enemy[a],0,255,0,255)
    next a
EndFunction

//Create EnemyBullet
Function EnemyBullet()
    EnemyBulletNumber = EnemyBulletNumber + 1
    if EnemyBulletNumber > MaxBullets
        EnemyBulletNumber = 1
    endif
    EnemyBullet[EnemyBulletNumber] = CreateSprite(0)
    SetSpriteSize(EnemyBullet[EnemyBulletNumber],1,4)
    SetSpriteColor(EnemyBullet[EnemyBulletNumber],0,255,0,255)
    for a = 1 to 10
        SetSpritePosition(EnemyBullet[EnemyBulletNumber],GetSpriteXByOffset(Enemy[a])-0.5,GetSpriteYByOffset(Enemy[a])+5)
    next a
EndFunction

+ Code Snippet

SetDisplayAspect( 4.0/3.0 )

global MaxBullets = 10
global dim Bullet[MaxBullets]
global BulletNumber = 0
global Player as Integer
global dim Enemy[10]
global dim EnemyBullet[MaxBullets]
global EnemyBulletNumber = 0
global time# = 0.0

//Call Functions
Game()

Function Game()

CreatePlayer()
CreateEnemy()

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 GetRawKeyPressed(32)
    CreateBullet()
endif

//Player Fire Bullet
for i = 1 to MaxBullets
    if GetSpriteExists(Bullet[i]) = 1
        SetSpritePosition(Bullet[i],GetSpriteX(Bullet[i]),GetSpriteY(Bullet[i])-4)
        if GetSpriteY(Bullet[i]) < -5
            DeleteSprite(Bullet[i])
        endif
    endif
next i

Print (timer())
Print (time#)

//Enemy Fire Bullet
for x = 1 to MaxBullets
    if GetSpriteExists(Enemy[x]) = 1
        if GetSpriteExists(EnemyBullet[x]) = 0
            if time# < Timer() then time# = time# + 0.01
            if time# >= Timer()
                EnemyBullet()
                time# = Timer() - Random(200,1000) * 0.01
            endif
    endif
        endif
next x

for j = 1 to MaxBullets
    if GetSpriteExists(EnemyBullet[j]) = 1
        SetSpritePosition(EnemyBullet[j],GetSpriteX(EnemyBullet[j]),GetSpriteY(EnemyBullet[j])+3)
        if GetSpriteY(EnemyBullet[j]) > 105
            DeleteSprite(EnemyBullet[j])
    endif
        endif
next j

 Sync()
loop

EndFunction


//====>>>>>>>>>>>>>>>>>>>>>>>>>>>>Functions
//Create Player Sprite
Function CreatePlayer()
    Player = CreateSprite(0)
    SetSpriteSize(Player,5,-1)
    SetSpritePositionByOffset(Player,50,96.5)
EndFunction

//Create Player Bullet
Function CreateBullet()
    BulletNumber = BulletNumber + 1
    if BulletNumber > 10 Then BulletNumber = 1
    Bullet[BulletNumber] = CreateSprite(0)
    SetSpriteSize(Bullet[BulletNumber], 1, 4)
    SetSpritePosition(Bullet[BulletNumber],GetSpriteXByOffset(Player)-0.5,GetSpriteYByOffset(Player)-5)
EndFunction

//Create Enemy
Function CreateEnemy()
    for a = 1 to 10
        Enemy[a] = CreateSprite(0)
        SetSpriteSize(Enemy[a],5,-1)
        SetSpritePositionByOffset(Enemy[a],-5+(a*10),20)
        SetSpriteColor(Enemy[a],0,255,0,255)
    next a
EndFunction

//Create EnemyBullet
Function EnemyBullet()
    EnemyBulletNumber = EnemyBulletNumber + 1
    if EnemyBulletNumber > MaxBullets
        EnemyBulletNumber = 1
    endif
    EnemyBullet[EnemyBulletNumber] = CreateSprite(0)
    SetSpriteSize(EnemyBullet[EnemyBulletNumber],1,4)
    SetSpriteColor(EnemyBullet[EnemyBulletNumber],0,255,0,255)
    for a = 1 to 10
        SetSpritePosition(EnemyBullet[EnemyBulletNumber],GetSpriteXByOffset(Enemy[a])-0.5,GetSpriteYByOffset(Enemy[a])+5)
    next a
EndFunction

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 1st Apr 2015 16:55

Link

Ok, I took a look and tried to tidy things up a bit so they made sense to me. The main problem was that you were putting the position code in a loop which caused it to always be put on the last enemy:

+ Code Snippet

    for a = 1 to 10
        SetSpritePosition(EnemyBullet[EnemyBulletNumber],GetSpriteXByOffset(Enemy[a])-0.5, GetSpriteYByOffset(Enemy[a]) + 5)
    next a

Really what you want is an individual timer for each enemy so that when there are more enemies you get shot at more (like in real life). I made some basic changes that you can take a look at here:

SetDisplayAspect( 4.0/3.0 )

global MaxBullets = 10
global dim Bullet[MaxBullets]
global BulletNumber = 0
global Player as Integer
global EnemyNum = 10
global dim Enemy[EnemyNum]
global dim EnemyFire[EnemyNum] as float `ADDED THIS
global dim EnemyBullet[MaxBullets]
global time# = 0.0

//Call Functions
CreatePlayer()
CreateEnemy()

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 GetRawKeyPressed(32)
		CreateBullet()
	endif

//Player Fire Bullet
	for i = 1 to MaxBullets
		if GetSpriteExists(Bullet[i]) = 1
			SetSpritePosition(Bullet[i],GetSpriteX(Bullet[i]),GetSpriteY(Bullet[i])-4)
			if GetSpriteY(Bullet[i]) < -5
				DeleteSprite(Bullet[i])
			endif
		endif
	next i

//Print (timer())
	//Print (time#)

//Enemy Fire Bullet
	for x = 1 to EnemyNum
		if GetSpriteExists(Enemy[x]) = 1
			if GetSpriteExists(EnemyBullet[x]) = 0
				if Timer()>EnemyFire[x] `CHANGED THIS PART TO CHECK THE NEW ARRAY
					CreateEnemyBullet(x) `ADDED AN INDEX FOR THE CURRENT ENEMY
					EnemyFire[x] = Timer() + Random(200,1000) * 0.01
				endif
			endif
		endif
	next x

for j = 1 to MaxBullets
		if GetSpriteExists(EnemyBullet[j]) = 1
			SetSpritePosition(EnemyBullet[j],GetSpriteX(EnemyBullet[j]),GetSpriteY(EnemyBullet[j])+2)
			if GetSpriteY(EnemyBullet[j]) > 105
				DeleteSprite(EnemyBullet[j])
			endif
		endif
	next j

Sync()
loop

//====>>>>>>>>>>>>>>>>>>>>>>>>>>>>Functions
//Create Player Sprite
Function CreatePlayer()
    Player = CreateSprite(0)
    SetSpriteSize(Player,5,-1)
    SetSpritePositionByOffset(Player,50,96.5)
EndFunction

//Create Player Bullet
Function CreateBullet()
    BulletNumber = BulletNumber + 1
    if BulletNumber > 10 Then BulletNumber = 1
    Bullet[BulletNumber] = CreateSprite(0)
    SetSpriteSize(Bullet[BulletNumber], 1, 4)
    SetSpritePosition(Bullet[BulletNumber],GetSpriteXByOffset(Player)-0.5,GetSpriteYByOffset(Player)-5)
EndFunction

//Create Enemy
Function CreateEnemy()
    for a = 1 to 10
        Enemy[a] = CreateSprite(0)
        SetSpriteSize(Enemy[a],5,-1)
        SetSpritePositionByOffset(Enemy[a],-5+(a*10),20)
        SetSpriteColor(Enemy[a],0,255,0,255)
        EnemyFire[a] = Timer() + Random(100,400) * 0.01 `ADDED A RANDOM START TIME FOR FIRING
    next a
EndFunction

//Create EnemyBullet
Function CreateEnemyBullet(x) `THIS FUNCTION POSITIONS THE BULLET BASED ON THE ENEMY INDEX (x)
    EnemyBullet[x] = CreateSprite(0)
    SetSpriteSize(EnemyBullet[x],1,4)
    SetSpriteColor(EnemyBullet[x],0,255,0,255)
    SetSpritePosition(EnemyBullet[x],GetSpriteXByOffset(Enemy[x])-0.5,GetSpriteYByOffset(Enemy[x])+5)
EndFunction

+ Code Snippet

SetDisplayAspect( 4.0/3.0 )

global MaxBullets = 10
global dim Bullet[MaxBullets]
global BulletNumber = 0
global Player as Integer
global EnemyNum = 10
global dim Enemy[EnemyNum]
global dim EnemyFire[EnemyNum] as float `ADDED THIS
global dim EnemyBullet[MaxBullets]
global time# = 0.0

//Call Functions
CreatePlayer()
CreateEnemy()

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 GetRawKeyPressed(32)
		CreateBullet()
	endif

	//Player Fire Bullet
	for i = 1 to MaxBullets
		if GetSpriteExists(Bullet[i]) = 1
			SetSpritePosition(Bullet[i],GetSpriteX(Bullet[i]),GetSpriteY(Bullet[i])-4)
			if GetSpriteY(Bullet[i]) < -5
				DeleteSprite(Bullet[i])
			endif
		endif
	next i

	//Print (timer())
	//Print (time#)

	//Enemy Fire Bullet
	for x = 1 to EnemyNum
		if GetSpriteExists(Enemy[x]) = 1
			if GetSpriteExists(EnemyBullet[x]) = 0
				if Timer()>EnemyFire[x] `CHANGED THIS PART TO CHECK THE NEW ARRAY
					CreateEnemyBullet(x) `ADDED AN INDEX FOR THE CURRENT ENEMY
					EnemyFire[x] = Timer() + Random(200,1000) * 0.01
				endif
			endif
		endif
	next x

	for j = 1 to MaxBullets
		if GetSpriteExists(EnemyBullet[j]) = 1
			SetSpritePosition(EnemyBullet[j],GetSpriteX(EnemyBullet[j]),GetSpriteY(EnemyBullet[j])+2)
			if GetSpriteY(EnemyBullet[j]) > 105
				DeleteSprite(EnemyBullet[j])
			endif
		endif
	next j

	Sync()
loop


//====>>>>>>>>>>>>>>>>>>>>>>>>>>>>Functions
//Create Player Sprite
Function CreatePlayer()
    Player = CreateSprite(0)
    SetSpriteSize(Player,5,-1)
    SetSpritePositionByOffset(Player,50,96.5)
EndFunction

//Create Player Bullet
Function CreateBullet()
    BulletNumber = BulletNumber + 1
    if BulletNumber > 10 Then BulletNumber = 1
    Bullet[BulletNumber] = CreateSprite(0)
    SetSpriteSize(Bullet[BulletNumber], 1, 4)
    SetSpritePosition(Bullet[BulletNumber],GetSpriteXByOffset(Player)-0.5,GetSpriteYByOffset(Player)-5)
EndFunction

//Create Enemy
Function CreateEnemy()
    for a = 1 to 10
        Enemy[a] = CreateSprite(0)
        SetSpriteSize(Enemy[a],5,-1)
        SetSpritePositionByOffset(Enemy[a],-5+(a*10),20)
        SetSpriteColor(Enemy[a],0,255,0,255)
        EnemyFire[a] = Timer() + Random(100,400) * 0.01 `ADDED A RANDOM START TIME FOR FIRING
    next a
EndFunction

//Create EnemyBullet
Function CreateEnemyBullet(x) `THIS FUNCTION POSITIONS THE BULLET BASED ON THE ENEMY INDEX (x)
    EnemyBullet[x] = CreateSprite(0)
    SetSpriteSize(EnemyBullet[x],1,4)
    SetSpriteColor(EnemyBullet[x],0,255,0,255)
    SetSpritePosition(EnemyBullet[x],GetSpriteXByOffset(Enemy[x])-0.5,GetSpriteYByOffset(Enemy[x])+5)
EndFunction

You aren't far off, you just need to understand why this is working and your version wasn't. Keep it up, this is starting to look like a game

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: 1st Apr 2015 18:32

Link

Thanks baxslash now work good. I think understood all thing but if there is any problem I ask you.

Quote: "Keep it up, this is starting to look like a game "

yes, I created two game with AppGameKit and I decided create hardest games for more familiar with AGK.

you can see my games from below links:

http://cafebazaar.ir/developer/behdadgames/?l=en

really I learned Many things from you and other users and I hope learn more.

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 1st Apr 2015 19:20

Link

I don't know what the app is like but you need to get someone who speaks English to read through your description for "Learn English for Kids"... the English is terrible.

Here's a better translation

Quote: "'Learn English for Kids' is an application designed for all ages. This application has 8 categories:

1- Alphabet
2- Numbers
3- Colors
4- Shapes
5- Animals
6- Fruits
7- Vegetables
8- Vehicles

Thank you.""

I would personally change it more than that but I just put a better translation of what you already have.

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: 1st Apr 2015 19:45

Link

Quote: "
I don't know what the app is like but you need to get someone who speaks English to read through your description for "Learn English for Kids"... the English is terrible.

Here's a better translation
Quote: "'Learn English for Kids' is an application designed for all ages. This application has 8 categories:

1- Alphabet
2- Numbers
3- Colors
4- Shapes
5- Animals
6- Fruits
7- Vegetables
8- Vehicles

Thank you.""
I would personally change it more than that but I just put a better translation of what you already have."

I fixed it.

Thanks baxslash for translate.

Back to top

Profile PM

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 7th May 2015 20:55

Link

Hi baxslash.

I wrote another code enemies and used random fire for them. but there is an problem when enemies fire to player.
I want when WorldToScreenX(GetSpriteX(enemy)) <= 60 then fire to player but my code don't work good. mean sometimes when there is no any enemy at screen, random fire code still work.for better understand run my code.

SetDisplayAspect( 4.0/3.0 )

global Player as Integer
global enemynumber = 0
global MaxEnemy = 5
global MaxBullet = 5
global BulletNumber = 0
global dim enemy[MaxEnemy]
global dim EnemyFire[MaxEnemy] as float
global dim EnemyBullet[MaxBullet]
global PlayerY#
global PlayerX#
global dim enemyY#[5]
global dim enemyX#[5]

Player  = CreateSprite(0)
SetSpritePosition(Player,10,40)
SetSpriteSize(Player,10,-1)

CreateEnemyPart1()

do

for xx = 1 to MaxEnemy
    Print (WorldtoScreenX(GetSPriteX(enemy[xx])))
next xx

PlayerY# = GetSpriteY(Player)
PlayerX# = GetSpriteX(Player)

for c = 1 to MaxEnemy
    if GetSpriteExists(enemy[c]) = 1
        enemyY#[c] = GetSpriteY(enemy[c])
        enemyX#[c] = GetSpriteX(enemy[c])
    endif
next c

for b = 1 to MaxEnemy
if GetSpriteExists(Player) = 1
    if GetSpriteExists(enemy[b]) = 1
        if PlayerX# < enemyX#[b]
            if PlayerY# > enemyY#[b]
                SetSpritePosition(enemy[b],GetSpriteX(enemy[b])-0.2,GetSpriteY(enemy[b])+0.05)
            elseif enemyY#[b] > PlayerY#
                SetSpritePosition(enemy[b],GetSpriteX(enemy[b])-0.2,GetSpriteY(enemy[b])-0.05)
            endif
        else
            SetSpritePosition(enemy[b],GetSpriteX(enemy[b])-0.2,GetSpriteY(enemy[b]))
        endif
endif
    endif
next b

//////////////////////////// Move Player to (Right-Left,Up-Down)
if GetSpriteExists(Player) = 1
    if GetRawKeyState(39) = 1
        SetSpritePosition(Player,GetSpriteX(Player)+0.3,GetSpriteY(Player))
    elseif GetRawKeyState(37) = 1
        SetSpritePosition(Player,GetSpriteX(Player)-0.3,GetSpriteY(Player))
endif
    endif

if GetSpriteExists(Player) = 1
    if GetRawKeyState(38) = 1
        SetSpritePosition(Player,GetSpriteX(Player),GetSpriteY(Player)-0.3)
    elseif GetRawKeyState(40) = 1
        SetSpritePosition(Player,GetSpriteX(Player),GetSpriteY(Player)+0.3)
endif
    endif
//////////////////////////// END

//////////////////////////// Destroy Enemy and crate again
for a = 1 to MaxEnemy
    if GetSpriteExists(enemy[a]) = 1
        if GetSpriteX(enemy[a]) <= -5
            DeleteSprite(enemy[a])
            enemynumber = a
            CreateEnemyPart2()
            Print (enemynumber)
    endif
        endif
next a
//////////////////////////// END

//////////////////////////// Fire Enemy
for x = 1 to MaxEnemy
    if GetSpriteExists(enemy[x]) = 1
        if GetSpriteExists(EnemyBullet[x]) = 0
            if WorldtoScreenX(GetSPriteX(enemy[x])) <= 60 and Timer() > EnemyFire[x]
                    CreateEnemyBullet()
                    EnemyFire[x] = Timer() + Random(100,1000) * 0.01
                endif
        endif
            endif
next x

for y = 1 to MaxEnemy
    if GetSpriteExists(EnemyBullet[y]) = 1
        SetSpritePosition(EnemyBullet[y],GetSpriteX(EnemyBullet[y])-2,GetSpriteY(EnemyBullet[y]))
        if GetSpriteX(EnemyBullet[y]) <= -5 then DeleteSprite(EnemyBullet[y])
    endif
next y
//////////////////////////// END
 Sync()
loop

/////////////////////////////Functions
Function CreateEnemyPart1()
    for a = 1 to MaxEnemy
        enemy[a] = CreateSprite(0)
        SetSpriteposition(enemy[a],Random(100,200),Random(10,80))
        SetSpriteSize(enemy[a],5,-1)
        SetSpriteColor(enemy[a],255,0,0,255)
    next a
EndFunction

Function CreateEnemyPart2()
    if enemynumber > MaxEnemy then enemynumber = 1
    if GetSpriteExists(enemy[enemynumber]) = 0
        enemy[enemynumber] = CreateSprite(0)
        SetSpriteSize(enemy[enemynumber],5,-1)
        SetSpriteColor(enemy[enemynumber],255,0,0,255)
        SetSpriteposition(enemy[enemynumber],Random(100,200),Random(10,80))
    endif
EndFunction

Function CreateEnemyBullet()
    BulletNumber = BulletNumber + 1
    if BulletNumber > MaxBullet then BulletNumber = 1
    EnemyBullet[BulletNumber] = CreateSprite(0)
    SetSpriteSize(EnemyBullet[BulletNumber],1.5,1)
    SetSpritePosition(EnemyBullet[BulletNumber],GetSpriteXByOffset(enemy[BulletNumber])-1,GetSpriteYByOffset(enemy[BulletNumber]))
EndFunction

+ Code Snippet

SetDisplayAspect( 4.0/3.0 )

global Player as Integer
global enemynumber = 0
global MaxEnemy = 5
global MaxBullet = 5
global BulletNumber = 0
global dim enemy[MaxEnemy]
global dim EnemyFire[MaxEnemy] as float
global dim EnemyBullet[MaxBullet]
global PlayerY#
global PlayerX#
global dim enemyY#[5]
global dim enemyX#[5]

Player  = CreateSprite(0)
SetSpritePosition(Player,10,40)
SetSpriteSize(Player,10,-1)

CreateEnemyPart1()

do

for xx = 1 to MaxEnemy
    Print (WorldtoScreenX(GetSPriteX(enemy[xx])))
next xx

PlayerY# = GetSpriteY(Player)
PlayerX# = GetSpriteX(Player)

for c = 1 to MaxEnemy
    if GetSpriteExists(enemy[c]) = 1
        enemyY#[c] = GetSpriteY(enemy[c])
        enemyX#[c] = GetSpriteX(enemy[c])
    endif
next c

for b = 1 to MaxEnemy
if GetSpriteExists(Player) = 1
    if GetSpriteExists(enemy[b]) = 1
        if PlayerX# < enemyX#[b]
            if PlayerY# > enemyY#[b]
                SetSpritePosition(enemy[b],GetSpriteX(enemy[b])-0.2,GetSpriteY(enemy[b])+0.05)
            elseif enemyY#[b] > PlayerY#
                SetSpritePosition(enemy[b],GetSpriteX(enemy[b])-0.2,GetSpriteY(enemy[b])-0.05)
            endif
        else
            SetSpritePosition(enemy[b],GetSpriteX(enemy[b])-0.2,GetSpriteY(enemy[b]))
        endif
endif
    endif
next b

//////////////////////////// Move Player to (Right-Left,Up-Down)
if GetSpriteExists(Player) = 1
    if GetRawKeyState(39) = 1
        SetSpritePosition(Player,GetSpriteX(Player)+0.3,GetSpriteY(Player))
    elseif GetRawKeyState(37) = 1
        SetSpritePosition(Player,GetSpriteX(Player)-0.3,GetSpriteY(Player))
endif
    endif

if GetSpriteExists(Player) = 1
    if GetRawKeyState(38) = 1
        SetSpritePosition(Player,GetSpriteX(Player),GetSpriteY(Player)-0.3)
    elseif GetRawKeyState(40) = 1
        SetSpritePosition(Player,GetSpriteX(Player),GetSpriteY(Player)+0.3)
endif
    endif
//////////////////////////// END

//////////////////////////// Destroy Enemy and crate again
for a = 1 to MaxEnemy
    if GetSpriteExists(enemy[a]) = 1
        if GetSpriteX(enemy[a]) <= -5
            DeleteSprite(enemy[a])
            enemynumber = a
            CreateEnemyPart2()
            Print (enemynumber)
    endif
        endif
next a
//////////////////////////// END

//////////////////////////// Fire Enemy
for x = 1 to MaxEnemy
    if GetSpriteExists(enemy[x]) = 1
        if GetSpriteExists(EnemyBullet[x]) = 0
            if WorldtoScreenX(GetSPriteX(enemy[x])) <= 60 and Timer() > EnemyFire[x]
                    CreateEnemyBullet()
                    EnemyFire[x] = Timer() + Random(100,1000) * 0.01
                endif
        endif
            endif
next x

for y = 1 to MaxEnemy
    if GetSpriteExists(EnemyBullet[y]) = 1
        SetSpritePosition(EnemyBullet[y],GetSpriteX(EnemyBullet[y])-2,GetSpriteY(EnemyBullet[y]))
        if GetSpriteX(EnemyBullet[y]) <= -5 then DeleteSprite(EnemyBullet[y])
    endif
next y
//////////////////////////// END
 Sync()
loop

/////////////////////////////Functions
Function CreateEnemyPart1()
    for a = 1 to MaxEnemy
        enemy[a] = CreateSprite(0)
        SetSpriteposition(enemy[a],Random(100,200),Random(10,80))
        SetSpriteSize(enemy[a],5,-1)
        SetSpriteColor(enemy[a],255,0,0,255)
    next a
EndFunction

Function CreateEnemyPart2()
    if enemynumber > MaxEnemy then enemynumber = 1
    if GetSpriteExists(enemy[enemynumber]) = 0
        enemy[enemynumber] = CreateSprite(0)
        SetSpriteSize(enemy[enemynumber],5,-1)
        SetSpriteColor(enemy[enemynumber],255,0,0,255)
        SetSpriteposition(enemy[enemynumber],Random(100,200),Random(10,80))
    endif
EndFunction

Function CreateEnemyBullet()
    BulletNumber = BulletNumber + 1
    if BulletNumber > MaxBullet then BulletNumber = 1
    EnemyBullet[BulletNumber] = CreateSprite(0)
    SetSpriteSize(EnemyBullet[BulletNumber],1.5,1)
    SetSpritePosition(EnemyBullet[BulletNumber],GetSpriteXByOffset(enemy[BulletNumber])-1,GetSpriteYByOffset(enemy[BulletNumber]))
EndFunction

Back to top

Profile PM

Behdadsoft

15

Years of Service

User Offline

Joined: 7th Apr 2009

Location: Tehran-Iran

Posted: 8th May 2015 21:27

Link

new explanation:

I created a new sample game that enemies can randomly shoot to player.for shoot I define a location for enemies with below code:

+ Code Snippet

if WorldtoScreenX(GetSPriteX(enemy[x])) <= 60

mean when enemy.x is less or equal 60, then enemies shoot to player.
now there is a problem:

above rule not work good.mean enemies can shoot to player even are out of screen (In other words, even when enemy.x is great that 60, can shoot to player.)

SetDisplayAspect( 4.0/3.0 )

global Player as Integer
global enemynumber = 0
global MaxEnemy = 5
global MaxBullet = 5
global BulletNumber = 1
global dim enemy[MaxEnemy]
global dim EnemyFire[MaxEnemy] as float
global dim EnemyBullet[MaxBullet]
global PlayerY#
global PlayerX#
global dim enemyY#[5]
global dim enemyX#[5]

Player  = CreateSprite(0)
SetSpritePosition(Player,10,40)
SetSpriteSize(Player,10,-1)

CreateEnemyPart1()

do

for xx = 1 to MaxEnemy
    Print (WorldtoScreenX(GetSPriteX(enemy[xx])))
next xx

PlayerY# = GetSpriteY(Player)
PlayerX# = GetSpriteX(Player)

for c = 1 to MaxEnemy
    if GetSpriteExists(enemy[c]) = 1
        enemyY#[c] = GetSpriteY(enemy[c])
        enemyX#[c] = GetSpriteX(enemy[c])
    endif
next c

for b = 1 to MaxEnemy
if GetSpriteExists(Player) = 1
    if GetSpriteExists(enemy[b]) = 1
        if PlayerX# < enemyX#[b]
            if PlayerY# > enemyY#[b]
                SetSpritePosition(enemy[b],GetSpriteX(enemy[b])-0.2,GetSpriteY(enemy[b])+0.05)
            elseif enemyY#[b] > PlayerY#
                SetSpritePosition(enemy[b],GetSpriteX(enemy[b])-0.2,GetSpriteY(enemy[b])-0.05)
            endif
        else
            SetSpritePosition(enemy[b],GetSpriteX(enemy[b])-0.2,GetSpriteY(enemy[b]))
        endif
endif
    endif
next b

//////////////////////////// Move Player to (Right-Left,Up-Down)
if GetSpriteExists(Player) = 1
    if GetRawKeyState(39) = 1
        SetSpritePosition(Player,GetSpriteX(Player)+0.3,GetSpriteY(Player))
    elseif GetRawKeyState(37) = 1
        SetSpritePosition(Player,GetSpriteX(Player)-0.3,GetSpriteY(Player))
endif
    endif

if GetSpriteExists(Player) = 1
    if GetRawKeyState(38) = 1
        SetSpritePosition(Player,GetSpriteX(Player),GetSpriteY(Player)-0.3)
    elseif GetRawKeyState(40) = 1
        SetSpritePosition(Player,GetSpriteX(Player),GetSpriteY(Player)+0.3)
endif
    endif
//////////////////////////// END

//////////////////////////// Destroy Enemy and crate again
for a = 1 to MaxEnemy
    if GetSpriteExists(enemy[a]) = 1
        if GetSpriteX(enemy[a]) <= -5
            DeleteSprite(enemy[a])
            enemynumber = a
            CreateEnemyPart2()
            Print (enemynumber)
    endif
        endif
next a
//////////////////////////// END

//////////////////////////// Fire Enemy
for x = 1 to MaxEnemy
    if GetSpriteExists(enemy[x]) = 1
        if GetSpriteExists(EnemyBullet[x]) = 0
            if WorldtoScreenX(GetSPriteX(enemy[x])) <= 60
                if Timer() > EnemyFire[x]
                    CreateEnemyBullet()
                    EnemyFire[x] = Timer() + Random(100,1000) * 0.01
                endif
        endif
            endif
                endif
next x

for y = 1 to MaxEnemy
    if GetSpriteExists(EnemyBullet[y]) = 1
        SetSpritePosition(EnemyBullet[y],GetSpriteX(EnemyBullet[y])-2,GetSpriteY(EnemyBullet[y]))
        if GetSpriteX(EnemyBullet[y]) <= -5 then DeleteSprite(EnemyBullet[y])
    endif
next y
//////////////////////////// END

Sync()
loop

/////////////////////////////Functions
Function CreateEnemyPart1()
    for a = 1 to MaxEnemy
        enemy[a] = CreateSprite(0)
        SetSpriteposition(enemy[a],Random(100,200),Random(10,80))
        SetSpriteSize(enemy[a],5,-1)
        SetSpriteColor(enemy[a],255,0,0,255)
    next a
EndFunction

Function CreateEnemyPart2()
    if enemynumber > MaxEnemy then enemynumber = 1
    if GetSpriteExists(enemy[enemynumber]) = 0
        enemy[enemynumber] = CreateSprite(0)
        SetSpriteSize(enemy[enemynumber],5,-1)
        SetSpriteColor(enemy[enemynumber],255,0,0,255)
        SetSpriteposition(enemy[enemynumber],Random(100,200),Random(10,80))
    endif
EndFunction

Function CreateEnemyBullet()
    BulletNumber = BulletNumber + 1
    if BulletNumber > MaxBullet then BulletNumber = 1
    EnemyBullet[BulletNumber] = CreateSprite(0)
    SetSpriteSize(EnemyBullet[BulletNumber],1.5,1)
    SetSpritePosition(EnemyBullet[BulletNumber],GetSpriteXByOffset(enemy[BulletNumber])-1,GetSpriteYByOffset(enemy[BulletNumber]))
EndFunction

+ Code Snippet

SetDisplayAspect( 4.0/3.0 )

global Player as Integer
global enemynumber = 0
global MaxEnemy = 5
global MaxBullet = 5
global BulletNumber = 1
global dim enemy[MaxEnemy]
global dim EnemyFire[MaxEnemy] as float
global dim EnemyBullet[MaxBullet]
global PlayerY#
global PlayerX#
global dim enemyY#[5]
global dim enemyX#[5]

Player  = CreateSprite(0)
SetSpritePosition(Player,10,40)
SetSpriteSize(Player,10,-1)

CreateEnemyPart1()

do

for xx = 1 to MaxEnemy
    Print (WorldtoScreenX(GetSPriteX(enemy[xx])))
next xx

PlayerY# = GetSpriteY(Player)
PlayerX# = GetSpriteX(Player)

for c = 1 to MaxEnemy
    if GetSpriteExists(enemy[c]) = 1
        enemyY#[c] = GetSpriteY(enemy[c])
        enemyX#[c] = GetSpriteX(enemy[c])
    endif
next c

for b = 1 to MaxEnemy
if GetSpriteExists(Player) = 1
    if GetSpriteExists(enemy[b]) = 1
        if PlayerX# < enemyX#[b]
            if PlayerY# > enemyY#[b]
                SetSpritePosition(enemy[b],GetSpriteX(enemy[b])-0.2,GetSpriteY(enemy[b])+0.05)
            elseif enemyY#[b] > PlayerY#
                SetSpritePosition(enemy[b],GetSpriteX(enemy[b])-0.2,GetSpriteY(enemy[b])-0.05)
            endif
        else
            SetSpritePosition(enemy[b],GetSpriteX(enemy[b])-0.2,GetSpriteY(enemy[b]))
        endif
endif
    endif
next b

//////////////////////////// Move Player to (Right-Left,Up-Down)
if GetSpriteExists(Player) = 1
    if GetRawKeyState(39) = 1
        SetSpritePosition(Player,GetSpriteX(Player)+0.3,GetSpriteY(Player))
    elseif GetRawKeyState(37) = 1
        SetSpritePosition(Player,GetSpriteX(Player)-0.3,GetSpriteY(Player))
endif
    endif

if GetSpriteExists(Player) = 1
    if GetRawKeyState(38) = 1
        SetSpritePosition(Player,GetSpriteX(Player),GetSpriteY(Player)-0.3)
    elseif GetRawKeyState(40) = 1
        SetSpritePosition(Player,GetSpriteX(Player),GetSpriteY(Player)+0.3)
endif
    endif
//////////////////////////// END

//////////////////////////// Destroy Enemy and crate again
for a = 1 to MaxEnemy
    if GetSpriteExists(enemy[a]) = 1
        if GetSpriteX(enemy[a]) <= -5
            DeleteSprite(enemy[a])
            enemynumber = a
            CreateEnemyPart2()
            Print (enemynumber)
    endif
        endif
next a
//////////////////////////// END

//////////////////////////// Fire Enemy
for x = 1 to MaxEnemy
    if GetSpriteExists(enemy[x]) = 1
        if GetSpriteExists(EnemyBullet[x]) = 0
            if WorldtoScreenX(GetSPriteX(enemy[x])) <= 60
                if Timer() > EnemyFire[x]
                    CreateEnemyBullet()
                    EnemyFire[x] = Timer() + Random(100,1000) * 0.01
                endif
        endif
            endif
                endif
next x

for y = 1 to MaxEnemy
    if GetSpriteExists(EnemyBullet[y]) = 1
        SetSpritePosition(EnemyBullet[y],GetSpriteX(EnemyBullet[y])-2,GetSpriteY(EnemyBullet[y]))
        if GetSpriteX(EnemyBullet[y]) <= -5 then DeleteSprite(EnemyBullet[y])
    endif
next y
//////////////////////////// END

 Sync()
loop

/////////////////////////////Functions
Function CreateEnemyPart1()
    for a = 1 to MaxEnemy
        enemy[a] = CreateSprite(0)
        SetSpriteposition(enemy[a],Random(100,200),Random(10,80))
        SetSpriteSize(enemy[a],5,-1)
        SetSpriteColor(enemy[a],255,0,0,255)
    next a
EndFunction

Function CreateEnemyPart2()
    if enemynumber > MaxEnemy then enemynumber = 1
    if GetSpriteExists(enemy[enemynumber]) = 0
        enemy[enemynumber] = CreateSprite(0)
        SetSpriteSize(enemy[enemynumber],5,-1)
        SetSpriteColor(enemy[enemynumber],255,0,0,255)
        SetSpriteposition(enemy[enemynumber],Random(100,200),Random(10,80))
    endif
EndFunction

Function CreateEnemyBullet()
    BulletNumber = BulletNumber + 1
    if BulletNumber > MaxBullet then BulletNumber = 1
    EnemyBullet[BulletNumber] = CreateSprite(0)
    SetSpriteSize(EnemyBullet[BulletNumber],1.5,1)
    SetSpritePosition(EnemyBullet[BulletNumber],GetSpriteXByOffset(enemy[BulletNumber])-1,GetSpriteYByOffset(enemy[BulletNumber]))
EndFunction

Thanks.

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 9th May 2015 13:39

Link

Try adding another rule that stops sprites that are off screen from firing? Ie: less than zero...

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: 9th May 2015 18:37

Link

Quote: "Try adding another rule that stops sprites that are off screen from firing? Ie: less than zero..."

yes, I tried change rule to less than zero but this problem is still there.

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 9th May 2015 20:50

Link

How did you do it? It should work...

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: 10th May 2015 19:13 Edited at: 10th May 2015 20:41

Link

I add use this code but don't work:

+ Code Snippet

canfire [ 1 ] = 1
canfire [ 2 ] = 1
canfire [ 3 ] = 1
canfire [ 4 ] = 1
canfire [ 5 ] = 1

for x = 1 to MaxEnemy
    if GetSpriteExists(enemy[x]) = 1
        if GetSpriteExists(EnemyBullet[x]) = 0
            if WorldtoScreenX(GetSPriteX(enemy[x])) <= 60
                if canfire[x] = 1
                    if Timer() > EnemyFire[x]
                        CreateEnemyBullet()
                        EnemyFire[x] = Timer() + Random(100,1000) * 0.01
                    endif
                endif
            else
                canfire[x] = 0
    endif
        endif
            endif
next x

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 10th May 2015 23:40

Link

Well you aren't checking for an X value of less than zero here...

You need to think about what condition you don't want the enemy to fire under and check for that. What is the precise condition where you want them to not fire?

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: 11th May 2015 06:54

Link

Quote: "What is the precise condition where you want them to not fire?"

I want when if WorldtoScreenX(GetSPriteX(enemy[x])) > 60, them to not fire.

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 11th May 2015 09:44

Link

Oh I think I get it now. Your CreateEnemyBullet function is not firing for the correct enemy. You need to make sure this function is using the correct enemy not just any enemy as it currently does.

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: 11th May 2015 14:18

Link

ok, I try it.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers AppGameKit Corner / Random Fire