Enemies not moving in simple 2d game

Author

Message

Vixen

19

Years of Service

User Offline

Joined: 6th Apr 2005

Location: Netherlands

Posted: 28th Jun 2005 08:38 Edited at: 28th Jun 2005 08:42

Link

I'm working on this very basic space game but I can't get the enemies to move. I've created an array with 5 spots (an array for x and y position of each enemy) and want the enemies to move towards the bottom of the screen. They are just sitting in the top left corner (EnemyX and EnemyY appear to be 0).

I think my mistake is probably silly but I can't find it

Can you help me?

Trying to help where I can [Newbie status

]

Back to top

Profile PM

Vixen

19

Years of Service

User Offline

Joined: 6th Apr 2005

Location: Netherlands

Posted: 28th Jun 2005 20:01

Link

I've gotten it to work somewhat. The only problem is that it only shows 1 enemy instead of 20.

REM Config
HIDE MOUSE

SYNC RATE 75
SYNC ON
AUTOCAM OFF
BACKDROP ON
COLOR BACKDROP RGB(0,0,0)

REM Loading images and set variables/constants
LOAD IMAGE "player.bmp", 1
LOAD IMAGE "bullet.bmp", 2
LOAD IMAGE "enemy.bmp", 3

DIM EnemyX(20)
DIM EnemyY(20)

InitializeEnemy()

POSITION MOUSE 0,400

REM Main Game Loop
DO

PlayerX = MOUSEX()
PlayerY = MOUSEY()

FOR x=1 TO 20
 MoveEnemy(x)
NEXT x

gosub Player

SYNC
LOOP

FUNCTION InitializeEnemy()

FOR n=1 to 20

RANDOMIZE TIMER()
  EnemyX(n) = RND(600)
  EnemyY(n) = -10

NEXT n

ENDFUNCTION

FUNCTION MoveEnemy(num)
 EnemyY(num) = EnemyY(num) + 3

SPRITE 3,EnemyX(num),EnemyY(num),3
 SHOW SPRITE 3

IF EnemyY(num) > 480
  InitializeEnemy()
 ENDIF

ENDFUNCTION

Player:
      IF PlayerX < 0   : PlayerX = 0
 ELSE IF PlayerX > 608 : PlayerX = 608
 ENDIF : ENDIF

IF PlayerY < 400 : PlayerY = 400
 ELSE IF PlayerY > 450 : PlayerY = 450
 ENDIF : ENDIF

Clicked = mouseclick()
  IF Clicked = 1
   IF PlayerFired = 0
    gosub Shoot
   ENDIF
  ENDIF

IF PlayerFired = 1
   gosub MoveBullets
  ENDIF

SPRITE 1,PlayerX,PlayerY,1
RETURN

Shoot:
  PlayerFired = 1
  FireX = PlayerX
  FireY = PlayerY - 5
RETURN

MoveBullets:
  FireY = FireY - 10
  SPRITE 2,FireX,FireY,2
  SHOW SPRITE 2

IF FireY < 0
   HIDE SPRITE 2
    PlayerFired = 0
  ENDIF
RETURN

+ Code Snippet

REM Config
HIDE MOUSE

SYNC RATE 75
SYNC ON
AUTOCAM OFF
BACKDROP ON
COLOR BACKDROP RGB(0,0,0)

REM Loading images and set variables/constants
LOAD IMAGE "player.bmp", 1
LOAD IMAGE "bullet.bmp", 2
LOAD IMAGE "enemy.bmp", 3

DIM EnemyX(20)
DIM EnemyY(20)

InitializeEnemy()

POSITION MOUSE 0,400

REM Main Game Loop
DO


PlayerX = MOUSEX()
PlayerY = MOUSEY()

FOR x=1 TO 20
 MoveEnemy(x)
NEXT x

 gosub Player

SYNC
LOOP


FUNCTION InitializeEnemy()

 FOR n=1 to 20

  RANDOMIZE TIMER()
  EnemyX(n) = RND(600)
  EnemyY(n) = -10

 NEXT n

ENDFUNCTION


FUNCTION MoveEnemy(num)
 EnemyY(num) = EnemyY(num) + 3

 SPRITE 3,EnemyX(num),EnemyY(num),3
 SHOW SPRITE 3

 IF EnemyY(num) > 480
  InitializeEnemy()
 ENDIF

ENDFUNCTION


Player:
      IF PlayerX < 0   : PlayerX = 0
 ELSE IF PlayerX > 608 : PlayerX = 608
 ENDIF : ENDIF

      IF PlayerY < 400 : PlayerY = 400
 ELSE IF PlayerY > 450 : PlayerY = 450
 ENDIF : ENDIF

     Clicked = mouseclick()
  IF Clicked = 1
   IF PlayerFired = 0
    gosub Shoot
   ENDIF
  ENDIF

  IF PlayerFired = 1
   gosub MoveBullets
  ENDIF

 SPRITE 1,PlayerX,PlayerY,1
RETURN


Shoot:
  PlayerFired = 1
  FireX = PlayerX
  FireY = PlayerY - 5
RETURN


MoveBullets:
  FireY = FireY - 10
  SPRITE 2,FireX,FireY,2
  SHOW SPRITE 2

  IF FireY < 0
   HIDE SPRITE 2
    PlayerFired = 0
  ENDIF
RETURN

What am I doing wrong here cuz I don't see it :S

Trying to help where I can [Newbie status

]

Back to top

Profile PM

Oliver

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: Switzerland

Posted: 28th Jun 2005 21:35

Link

Heres your 20 enemies, hope it helps. Ask if you don't get it (or if it hasn't fixed it)

.

REM Config
HIDE MOUSE

SYNC RATE 75
SYNC ON
AUTOCAM OFF
BACKDROP ON
COLOR BACKDROP RGB(0,0,0)

REM Loading images and set variables/constants
LOAD IMAGE "player.bmp", 1
LOAD IMAGE "bullet.bmp", 2
LOAD IMAGE "enemy.bmp", 3

DIM EnemyX(20)
DIM EnemyY(20)

InitializeEnemy()

POSITION MOUSE 0,400

SPRITE 10,EnemyX(num),EnemyY(num),3

REM Main Game Loop
DO

PlayerX = MOUSEX()
PlayerY = MOUSEY()

FOR x=1 TO 20
 MoveEnemy(x)
NEXT x

gosub Player

SYNC
LOOP

FUNCTION InitializeEnemy()

FOR n=1 to 20

EnemyX(n) = RND(600)
  EnemyY(n) = -10

NEXT n

ENDFUNCTION

FUNCTION MoveEnemy(num)
 EnemyY(num) = EnemyY(num) + 3

paste SPRITE 10,EnemyX(num),EnemyY(num)

IF EnemyY(num) > 480
  InitializeEnemy()
 ENDIF

ENDFUNCTION

Player:
      IF PlayerX < 0   : PlayerX = 0
 ELSE IF PlayerX > 608 : PlayerX = 608
 ENDIF : ENDIF

IF PlayerY < 400 : PlayerY = 400
 ELSE IF PlayerY > 450 : PlayerY = 450
 ENDIF : ENDIF

Clicked = mouseclick()
  IF Clicked = 1
   IF PlayerFired = 0
    gosub Shoot
   ENDIF
  ENDIF

IF PlayerFired = 1
   gosub MoveBullets
  ENDIF

SPRITE 1,PlayerX,PlayerY,1
RETURN

Shoot:
  PlayerFired = 1
  FireX = PlayerX
  FireY = PlayerY - 5
RETURN

MoveBullets:
  FireY = FireY - 10
  SPRITE 2,FireX,FireY,2
  SHOW SPRITE 2

IF FireY < 0
   HIDE SPRITE 2
    PlayerFired = 0
  ENDIF
RETURN

+ Code Snippet

REM Config
HIDE MOUSE

SYNC RATE 75
SYNC ON
AUTOCAM OFF
BACKDROP ON
COLOR BACKDROP RGB(0,0,0)

REM Loading images and set variables/constants
LOAD IMAGE "player.bmp", 1
LOAD IMAGE "bullet.bmp", 2
LOAD IMAGE "enemy.bmp", 3

DIM EnemyX(20)
DIM EnemyY(20)

InitializeEnemy()

POSITION MOUSE 0,400

 SPRITE 10,EnemyX(num),EnemyY(num),3

REM Main Game Loop
DO


PlayerX = MOUSEX()
PlayerY = MOUSEY()

FOR x=1 TO 20
 MoveEnemy(x)
NEXT x

 gosub Player

SYNC
LOOP


FUNCTION InitializeEnemy()

 FOR n=1 to 20

  EnemyX(n) = RND(600)
  EnemyY(n) = -10

 NEXT n

ENDFUNCTION


FUNCTION MoveEnemy(num)
 EnemyY(num) = EnemyY(num) + 3

 paste SPRITE 10,EnemyX(num),EnemyY(num)

 IF EnemyY(num) > 480
  InitializeEnemy()
 ENDIF

ENDFUNCTION


Player:
      IF PlayerX < 0   : PlayerX = 0
 ELSE IF PlayerX > 608 : PlayerX = 608
 ENDIF : ENDIF

      IF PlayerY < 400 : PlayerY = 400
 ELSE IF PlayerY > 450 : PlayerY = 450
 ENDIF : ENDIF

     Clicked = mouseclick()
  IF Clicked = 1
   IF PlayerFired = 0
    gosub Shoot
   ENDIF
  ENDIF

  IF PlayerFired = 1
   gosub MoveBullets
  ENDIF

 SPRITE 1,PlayerX,PlayerY,1
RETURN


Shoot:
  PlayerFired = 1
  FireX = PlayerX
  FireY = PlayerY - 5
RETURN


MoveBullets:
  FireY = FireY - 10
  SPRITE 2,FireX,FireY,2
  SHOW SPRITE 2

  IF FireY < 0
   HIDE SPRITE 2
    PlayerFired = 0
  ENDIF
RETURN

Back to top

Profile PM

Vixen

19

Years of Service

User Offline

Joined: 6th Apr 2005

Location: Netherlands

Posted: 28th Jun 2005 22:43 Edited at: 28th Jun 2005 22:45

Link

Thanks for your help!

It works partly, there's still one enemy doing nothing in the top left corner. And, more important, when 1 of the enemies reaches the bottom they _all_ dissapear :S

Also, what's the difference between SPRITE and PASTE SPRITE?

Trying to help where I can [Newbie status

]

Back to top

Profile PM

Vixen

19

Years of Service

User Offline

Joined: 6th Apr 2005

Location: Netherlands

Posted: 28th Jun 2005 22:52 Edited at: 28th Jun 2005 22:57

Link

I've fixed the dissapearing of the enemies. When they reach the bottom, that one dissapears and a new one is generated. My code:

REM Config
HIDE MOUSE

SYNC RATE 75
SYNC ON
AUTOCAM OFF
BACKDROP ON
COLOR BACKDROP RGB(0,0,0)

REM Loading images and set variables/constants
LOAD IMAGE "player.bmp", 1
LOAD IMAGE "bullet.bmp", 2
LOAD IMAGE "enemy.bmp", 3

DIM EnemyX(20)
DIM EnemyY(20)

FOR n=1 to 20
  InitializeEnemy(n)
 NEXT n

POSITION MOUSE 0,400

SPRITE 10,EnemyX(num),EnemyY(num),3

REM Main Game Loop
DO

PlayerX = MOUSEX()
PlayerY = MOUSEY()

FOR x=1 TO 20
 MoveEnemy(x)
NEXT x

gosub Player

SYNC
LOOP

FUNCTION InitializeEnemy(n)

EnemyX(n) = RND(600)
  EnemyY(n) = -1 * (RND(500))

ENDFUNCTION

FUNCTION MoveEnemy(num)
 EnemyY(num) = EnemyY(num) + 3

paste SPRITE 10,EnemyX(num),EnemyY(num)

IF EnemyY(num) > 480
  InitializeEnemy(num)
 ENDIF

ENDFUNCTION

Player:
      IF PlayerX < 0   : PlayerX = 0
 ELSE IF PlayerX > 608 : PlayerX = 608
 ENDIF : ENDIF

IF PlayerY < 400 : PlayerY = 400
 ELSE IF PlayerY > 450 : PlayerY = 450
 ENDIF : ENDIF

Clicked = mouseclick()
  IF Clicked = 1
   IF PlayerFired = 0
    gosub Shoot
   ENDIF
  ENDIF

IF PlayerFired = 1
   gosub MoveBullets
  ENDIF

SPRITE 1,PlayerX,PlayerY,1
RETURN

Shoot:
  PlayerFired = 1
  FireX = PlayerX
  FireY = PlayerY - 5
RETURN

MoveBullets:
  FireY = FireY - 10
  SPRITE 2,FireX,FireY,2
  SHOW SPRITE 2

IF FireY < 0
   HIDE SPRITE 2
    PlayerFired = 0
  ENDIF
RETURN

+ Code Snippet

REM Config
HIDE MOUSE

SYNC RATE 75
SYNC ON
AUTOCAM OFF
BACKDROP ON
COLOR BACKDROP RGB(0,0,0)

REM Loading images and set variables/constants
LOAD IMAGE "player.bmp", 1
LOAD IMAGE "bullet.bmp", 2
LOAD IMAGE "enemy.bmp", 3

DIM EnemyX(20)
DIM EnemyY(20)

 FOR n=1 to 20
  InitializeEnemy(n)
 NEXT n

POSITION MOUSE 0,400

 SPRITE 10,EnemyX(num),EnemyY(num),3

REM Main Game Loop
DO


PlayerX = MOUSEX()
PlayerY = MOUSEY()

FOR x=1 TO 20
 MoveEnemy(x)
NEXT x

 gosub Player

SYNC
LOOP


FUNCTION InitializeEnemy(n)

  EnemyX(n) = RND(600)
  EnemyY(n) = -1 * (RND(500))

ENDFUNCTION


FUNCTION MoveEnemy(num)
 EnemyY(num) = EnemyY(num) + 3

 paste SPRITE 10,EnemyX(num),EnemyY(num)

 IF EnemyY(num) > 480
  InitializeEnemy(num)
 ENDIF

ENDFUNCTION


Player:
      IF PlayerX < 0   : PlayerX = 0
 ELSE IF PlayerX > 608 : PlayerX = 608
 ENDIF : ENDIF

      IF PlayerY < 400 : PlayerY = 400
 ELSE IF PlayerY > 450 : PlayerY = 450
 ENDIF : ENDIF

     Clicked = mouseclick()
  IF Clicked = 1
   IF PlayerFired = 0
    gosub Shoot
   ENDIF
  ENDIF

  IF PlayerFired = 1
   gosub MoveBullets
  ENDIF

 SPRITE 1,PlayerX,PlayerY,1
RETURN


Shoot:
  PlayerFired = 1
  FireX = PlayerX
  FireY = PlayerY - 5
RETURN


MoveBullets:
  FireY = FireY - 10
  SPRITE 2,FireX,FireY,2
  SHOW SPRITE 2

  IF FireY < 0
   HIDE SPRITE 2
    PlayerFired = 0
  ENDIF
RETURN

Still, there is one just sitting there in the top left corner doing nothing. I think it has the x and y (0,0). How is this possible?

Trying to help where I can [Newbie status

]

Back to top

Profile PM

Oliver

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: Switzerland

Posted: 28th Jun 2005 23:27

Link

Basically, in your original code you created one sprite, and you tried to position it in 20 different places. Each sprite has to have its own number. Instead of giving each one a number, it was quicker to just copy and paste the picture 20 times using the paste sprite command. However, there is a better way. Give me a minute, and I'll fix it.

Back to top

Profile PM

Oliver

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: Switzerland

Posted: 28th Jun 2005 23:37

Link

rem config
hide mouse
sync rate 75
sync on
autocam off
backdrop on
color backdrop rgb(0,0,0)

rem loading images and set variables/constants
load image "media/gfx/debris.bmp", 1
load image "media/gfx/debris.bmp", 2
load image "media/gfx/debris.bmp", 3

dim enemyx(20)
dim enemyy(20)

for n=1 to 20
   initializeenemy(n)
next n

position mouse 0,400

rem main game loop
do

playerx = mousex()
playery = mousey()

for x=1 to 20
   moveenemy(x)
next x

gosub player

sync
loop

function initializeenemy(n)

enemyx(n) = rnd(600)
  enemyy(n) = -1 * (rnd(500))

endfunction

function moveenemy(num)

enemyy(num) = enemyy(num) + 3

sprite num,enemyx(num),enemyy(num),3

if enemyy(num) > 480
  initializeenemy(num)
 endif

endfunction

player:
      if playerx < 0   : playerx = 0
 else if playerx > 608 : playerx = 608
 endif : endif

if playery < 400 : playery = 400
 else if playery > 450 : playery = 450
 endif : endif

clicked = mouseclick()
  if clicked = 1
   if playerfired = 0
    gosub shoot
   endif
  endif

if playerfired = 1
   gosub movebullets
  endif

sprite 1,playerx,playery,1
return

shoot:
  playerfired = 1
  firex = playerx
  firey = playery - 5
return

movebullets:
  firey = firey - 10
  sprite 2,firex,firey,2
  show sprite 2

if firey < 0
   hide sprite 2
    playerfired = 0
  endif
return

+ Code Snippet

rem config
hide mouse
sync rate 75
sync on
autocam off
backdrop on
color backdrop rgb(0,0,0)

rem loading images and set variables/constants
load image "media/gfx/debris.bmp", 1
load image "media/gfx/debris.bmp", 2
load image "media/gfx/debris.bmp", 3

dim enemyx(20)
dim enemyy(20)

for n=1 to 20
   initializeenemy(n)
next n

position mouse 0,400

rem main game loop
do

playerx = mousex()
playery = mousey()

for x=1 to 20
   moveenemy(x)
next x

gosub player

sync
loop


function initializeenemy(n)

  enemyx(n) = rnd(600)
  enemyy(n) = -1 * (rnd(500))

endfunction


function moveenemy(num)

 enemyy(num) = enemyy(num) + 3

 sprite num,enemyx(num),enemyy(num),3

 if enemyy(num) > 480
  initializeenemy(num)
 endif

endfunction


player:
      if playerx < 0   : playerx = 0
 else if playerx > 608 : playerx = 608
 endif : endif

      if playery < 400 : playery = 400
 else if playery > 450 : playery = 450
 endif : endif

     clicked = mouseclick()
  if clicked = 1
   if playerfired = 0
    gosub shoot
   endif
  endif

  if playerfired = 1
   gosub movebullets
  endif

 sprite 1,playerx,playery,1
return


shoot:
  playerfired = 1
  firex = playerx
  firey = playery - 5
return


movebullets:
  firey = firey - 10
  sprite 2,firex,firey,2
  show sprite 2

  if firey < 0
   hide sprite 2
    playerfired = 0
  endif
return

Back to top

Profile PM

Vixen

19

Years of Service

User Offline

Joined: 6th Apr 2005

Location: Netherlands

Posted: 29th Jun 2005 03:26 Edited at: 29th Jun 2005 03:28

Link

Thanks, works like a charm!

Now, I'm trying to add collision detection. If a bullet hits an enemy ship, both should dissappear. I replace the MOVEBULLETS sub

+ Code Snippet

movebullets:
  firey = firey - 10
  sprite 2,firex,firey,2
  show sprite 2

  if firey < 0
   hide sprite 2
    playerfired = 0
  endif
return

to this:

+ Code Snippet

movebullets:
  firey = firey - 10
  sprite 2,firex,firey,2
  show sprite 2

 if sprite hit(2,num) > 0
  hide sprite num
  hide sprite 2
 endif

  if firey < 0
   hide sprite 2
    playerfired = 0
  endif
return

When I run it though it says "Sprite number must be greater than 0". I don't know why it says this because 'num' is the sprite number of the enemy ship the bullet (sprite 2) hits right?

Furthermore, where would I put collision detection for my ship and an enemy ship?

Trying to help where I can [Newbie status

]

Back to top

Profile PM

Vixen

19

Years of Service

User Offline

Joined: 6th Apr 2005

Location: Netherlands

Posted: 29th Jun 2005 06:19

Link

I've been trying to put the code in the other functions and subs but it's not working. Also when I put it in the main loop it doesn't work.

It gives me the errors "sprite doesn't exist", "sprite must be greater than 0" or it just freezes...

Trying to help where I can [Newbie status

]

Back to top

Profile PM

DBAlex

19

Years of Service

User Offline

Joined: 4th Oct 2004

Location: United Kingdom

Posted: 29th Jun 2005 06:48

Link

Vixen!

Hi!

From OnGameDev?

AMD 64 3000 + 512mb RAM + 80GB HD + Radeon 9600se 128mb
http://www.dbastudios.cjb.net

Back to top

Profile PM

nojbox87

19

Years of Service

User Offline

Joined: 26th Jun 2005

Location: England

Posted: 29th Jun 2005 06:58

Link

can any of u guys help me on my post plz? i guess u ppl can do collisions. i really need help

Back to top

Profile PM Email Website

Vixen

19

Years of Service

User Offline

Joined: 6th Apr 2005

Location: Netherlands

Posted: 29th Jun 2005 07:30

Link

A little off-topic but yes

Trying to get some help from the people that know DB more than I do (I only do PHP normally).

The not having collisions thing is really not making my game fun to play.

Trying to help where I can [Newbie status

]

Back to top

Profile PM

Vixen

19

Years of Service

User Offline

Joined: 6th Apr 2005

Location: Netherlands

Posted: 29th Jun 2005 08:31

Link

I've been trying some more with function this time but still no luck. I also think a 1-pixel difference is too small.

rem config
hide mouse
sync rate 75
sync on
autocam off
backdrop on
color backdrop rgb(0,0,0)

rem loading images and set variables/constants
load image "player.bmp", 1
load image "bullet.bmp", 2
load image "enemy.bmp", 3

dim enemyx(20)
dim enemyy(20)

for n=1 to 20
   initializeenemy(n)
next n

position mouse 0,400

rem main game loop
do

playerx = mousex()
playery = mousey()

for x=1 to 20
   moveenemy(x)
   collision(enemyx(x),enemyy(x),firex,firey)
next x

gosub player

sync
loop

function collision(EnemyX, EnemyY, BulletX, BulletY)

print "ENEMYX:"; EnemyX; "BulletX:"; BulletX;" - EnemyY:"; EnemyY; "BulletY:";BulletY

if BulletY = EnemyY
      if BulletX = EnemyX
          hide sprite 3
      endif
     endif

endfunction

function initializeenemy(n)

enemyx(n) = rnd(600)
  enemyy(n) = -1 * (rnd(500))

endfunction

function moveenemy(num)

enemyy(num) = enemyy(num) + 3

sprite num,enemyx(num),enemyy(num),3
 sprite 2, enemyx(num),enemyy(num),2

if enemyy(num) > 480
  initializeenemy(num)
 endif

endfunction

player:
      if playerx < 0   : playerx = 0
 else if playerx > 608 : playerx = 608
 endif : endif

if playery < 400 : playery = 400
 else if playery > 450 : playery = 450
 endif : endif

clicked = mouseclick()
  if clicked = 1
   if playerfired = 0
    gosub shoot
   endif
  endif

if playerfired = 1
   gosub movebullets
  endif

sprite 1,playerx,playery,1
 show sprite 1

return

shoot:
  playerfired = 1
  firex = playerx
  firey = playery - 5
return

movebullets:
  firey = firey - 10
  sprite 2,firex,firey,2
  show sprite 2

if firey < 0
   hide sprite 2
    playerfired = 0
  endif
return

+ Code Snippet

rem config
hide mouse
sync rate 75
sync on
autocam off
backdrop on
color backdrop rgb(0,0,0)

rem loading images and set variables/constants
load image "player.bmp", 1
load image "bullet.bmp", 2
load image "enemy.bmp", 3

dim enemyx(20)
dim enemyy(20)

for n=1 to 20
   initializeenemy(n)
next n

position mouse 0,400

rem main game loop
do


playerx = mousex()
playery = mousey()

for x=1 to 20
   moveenemy(x)
   collision(enemyx(x),enemyy(x),firex,firey)
next x

gosub player

sync
loop


function collision(EnemyX, EnemyY, BulletX, BulletY)


print "ENEMYX:"; EnemyX; "BulletX:"; BulletX;" - EnemyY:"; EnemyY; "BulletY:";BulletY

     if BulletY = EnemyY
      if BulletX = EnemyX
          hide sprite 3
      endif
     endif

endfunction



function initializeenemy(n)

  enemyx(n) = rnd(600)
  enemyy(n) = -1 * (rnd(500))

endfunction


function moveenemy(num)

 enemyy(num) = enemyy(num) + 3

 sprite num,enemyx(num),enemyy(num),3
 sprite 2, enemyx(num),enemyy(num),2

 if enemyy(num) > 480
  initializeenemy(num)
 endif

endfunction


player:
      if playerx < 0   : playerx = 0
 else if playerx > 608 : playerx = 608
 endif : endif

      if playery < 400 : playery = 400
 else if playery > 450 : playery = 450
 endif : endif

     clicked = mouseclick()
  if clicked = 1
   if playerfired = 0
    gosub shoot
   endif
  endif

  if playerfired = 1
   gosub movebullets
  endif

 sprite 1,playerx,playery,1
 show sprite 1

return


shoot:
  playerfired = 1
  firex = playerx
  firey = playery - 5
return


movebullets:
  firey = firey - 10
  sprite 2,firex,firey,2
  show sprite 2

  if firey < 0
   hide sprite 2
    playerfired = 0
  endif
return

I'd rather just use SPRITE HIT or SPRITE COLLISION but I don't know exactly what to use for the parameters and where to place it...

Trying to help where I can [Newbie status

]

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Enemies not moving in simple 2d game