space invader clone - GameCreators Forum

Author

Message

David_M_

19

Years of Service

User Offline

Joined: 27th May 2005

Location:

Posted: 2nd Aug 2005 08:51

Link

I tried to make the "firing trigger" work off of a single click instead of just a press of the mouse button. I made a subroutine for a single click:

+ Code Snippet

singleclk:
   IF MOUSECLICK()=1 THEN click=1
   IF click=1 AND MOUSECLICK()=0
      singleclick=1
   ENDIF
RETURN

and designage the if statement with singleclick=1 instead of "if mouse click() = 1".
It kinda works, except that the program seems to remember how may times I have clicked even after I stop clicking. In other words, if I click numerous times it will still fire a few times after I stop clicking. I even tried putting click=0 and singleclick=0 in numerous places in the program to reset things, but it still does it.
I hope this makes sence.

thanks,
David

Back to top

Profile PM

David_M_

19

Years of Service

User Offline

Joined: 27th May 2005

Location:

Posted: 2nd Aug 2005 08:56

Link

BTW, why is the folder for this thread red??

Back to top

Profile PM

D Ogre

21

Years of Service

User Offline

Joined: 19th Nov 2003

Location:

Posted: 4th Aug 2005 02:31

Link

Where are you placing the subroutine call in the code? Is It at the beginning?

Just looking at your code snippet, I can see a problem. It will still fire more than once because the subroutine hasn't been reset properly.

Upon the initial pass of the loop your CLICK and SINGLECLICK variables will be zero. After you hit the mouse button, CLICK and SINGLECLICK are set to one. I assume that you are checking in the actual fire routine for SINGLECLICK to be 1, but you will need to check for it to be zero in the mouseclick part.

Maybe something like this:

+ Code Snippet

IF MOUSECLICK()=1 AND CLICK=0 THEN CLICK=1

IF CLICK=1

*** Fire code goes here ***

ENDIF

You will have to set CLICK back to zero once all of the lasers hit an invader or make it off the screen. You could use a variable to tally up the results and then do a check to see if it equals the powerup.

Generic example:

+ Code Snippet

if invader_hit>0

laser=laser+1:Rem Count this laser if hit invader

else

if lsry<0

laser=laser+1:Rem Count this laser if made it off screen.

endif

if laser=powerup then laser=0:click=0

Does this make sense?

Back to top

Profile PM

David_M_

19

Years of Service

User Offline

Joined: 27th May 2005

Location:

Posted: 5th Aug 2005 07:24

Link

Hello D Ogre,
I have played with the trigger mechanism for quite a few hours now (atleast 6 or so) and have decided to not use the single click stuff, because I do want it so that you can hold down the mouse button. I have tried the other methods, but can not get to work properly. I can get it to partially work, but not right. Your suggested code that has the offset in the laser y position:

+ Code Snippet

lsry(shot)=my-shot*20

does spread out the lasers, but it also makes them start at varing distances from the front of the ship, depending if the last laser went off screen or hit an invader. If I take out the "-shot*20" it acts really quirky. Sometimes multiple laser shot and sometimes they dont, and sometimes they shot in groups of two or three. I tried to implement the last suggestion, but could not get it either. Here is my complete code, maybe you can give me more ideas with the whole thing instead of just snippits.

REMSTART
*****************************
* My First Game Attempt     *
* Space Invader Type Game   *
* with help from D Ogre     *
*****************************
REMEND

REM *** initialize screen ***
HIDE MOUSE
SYNC ON
SYNC RATE 60

REM *** load graphics ***
REM invaders
LOAD BITMAP "invaders.bmp",1
GET IMAGE 1,0,0,29,29
GET IMAGE 2,30,0,59,29
GET IMAGE 3,60,0,89,29
REM rapid fire powerup
GET IMAGE 4,97,64,113,82
REM ship
GET IMAGE 100,90,90,119,119
REM laser
GET IMAGE 101,73,110,77,119
REM explosion
LOAD BITMAP "explode.bmp",4
GET IMAGE 110,0,0,29,29
GET IMAGE 111,30,0,59,29
GET IMAGE 112,60,0,89,29
GET IMAGE 113,90,0,119,29
REM blank image after explosion
INK RGB(0,0,0),0
BOX 0,0,29,29
GET IMAGE 114,0,0,29,29

REM delete garbage
DELETE BITMAP 1
DELETE BITMAP 4
SET CURRENT BITMAP 0

REM grab screen size
screenx=SCREEN WIDTH()
screeny=SCREEN HEIGHT()

REM *** arrays ***
REM invader arrays
DIM ship(18)
DIM bomber(18)
DIM bombx(18)
DIM bomby(18)
DIM explode(18)
DIM frame(18)
DIM delay(18)
REM ship arrays
DIM fire(10)
DIM lsrx(10)
DIM lsry(10)

REM *** starting of new game variables ***
new_game:
CLS
level=0
lives=3
score=0
pu=0

REM *** starting new level variables ***
new_game_level:
destroyed=0
explode=0
fire=0
offsetx=30
offsety=50
speed=2
movex=speed+level
bombspeed=10+level*2
pu=0
powerup=1

REM *** setup sprites ***
REM create invader rows
n=0
min=0
max=0
FOR j=1 TO 3
   INC n
   INC min,6
   INC max,6
   FOR i=min-5 TO max
      SET SPRITE i,0,1
      SPRITE i,0,0,1
      ship(i)=n
   NEXT i
NEXT j
REM ship
SET SPRITE 100,0,1
SPRITE 100,MOUSEX(),MOUSEY(),100
POSITION MOUSE 320,450
REM laser
SET SPRITE 101,0,1
SPRITE 101,0,0,101
SPRITE 101,0,0-SPRITE HEIGHT(101),101
REM set text size
SET TEXT SIZE 20

Rem *** game action loop ***
REPEAT
   CLS
   GOSUB screen
   GOSUB invaders
   GOSUB ship
   GOSUB powerups
   SYNC
UNTIL destroyed=18 OR lives=0
REM increase level when 18 invaders destroyed
IF lives>0
   INC level
   SET TEXT SIZE 40
   FOR l=1 TO 30
      INK RGB(RND(128)+127,RND(128)+127,RND(128)+127),0
      CENTER TEXT screenx/2,screeny/2,"LEVEL "+STR$(level)+" COMPLETED !!!"
      WAIT 10:SYNC
   NEXT l
GOTO new_game_level
REM if lives are 0 then game over
ELSE
   DO
   SET TEXT SIZE 40
   CENTER TEXT screenx/2,screeny/2,"GAME OVER"
   SET TEXT SIZE 25
   CENTER TEXT screenx/2,screeny-290/2,"Your Final Score was "+STR$(score)
   CENTER TEXT screenx/2,screeny-240/2,"You Made it to Level "+STR$(level+1)
   SET TEXT SIZE 10
   CENTER TEXT screenx/2,screeny-115/2,"Press the ESC Key to Quit"
   CENTER TEXT screenx/2,screeny-90/2,"or"
   CENTER TEXT screenx/2,screeny-65/2,"Press Enter to Try Again"
   SYNC
   IF RETURNKEY()=1 THEN GOTO new_game
   IF ESCAPEKEY()=1 THEN EXIT
   LOOP
ENDIF

GOTO new_game_level

REM *** gosubs ***
REM score, title and level
screen:
   INK RGB(255,255,255),0
   CENTER TEXT screenx/2,5,"INVADER CLONE"
   TEXT 50,5,"SCORE: "+str$(score)
   TEXT 500,5,"LIVES: "+str$(lives)
   TEXT 500,450,"LEVEL: "+str$(level+1)
   INK RGB(0, 0, 255), 0
   DrawRect(0, 0, 639, 479)
   INK RGB(255, 255, 255), 0
   FOR d = 1 TO 10
      DOT RND(639), RND(479)
   NEXT d
RETURN
REM space invaders
invaders:
   invader=0
   offsetx=offsetx+movex
   FOR y=0 TO 2
      FOR x=0 TO 5
         INC invader
         IF explode(invader)=1
            ship(invader)=frame(invader)
            IF TIMER()>delay(invader)
               frame(invader)=frame(invader)+1
               IF frame(invader)>114 THEN INC destroyed:explode(invader)=0
               delay(invader)=TIMER()+60
            ENDIF
         ENDIF
         IF RND(150)=75 AND bomber(invader)=0 AND SPRITE IMAGE(invader)<4
            rem play sound here for bomb dropping
            bomber(invader)=1
            bombx(invader)=SPRITE X(invader)+12
            bomby(invader)=SPRITE Y(invader)+SPRITE HEIGHT(invader)
         ENDIF
         IF bomber(invader)=1
            SPRITE invader+18,bombx(invader),bomby(invader),101
            bomby(invader)=bomby(invader)+bombspeed
            IF SPRITE HIT(invader+18,100)>0 AND SPRITE IMAGE(100)=100
               SPRITE invader+18,bombx(invader),screeny+1,101
               rem sound here for ship explosion
               bomber(invader)=0
               status=110
               killed=1
               delay2=TIMER()+60
            ELSE
               IF bomby(invader)>screeny
                  SPRITE invader+18,bombx(invader),screeny+1,101
                  bomber(invader)=0
               ENDIF
            ENDIF
         ENDIF
         invadx=offsetx+(SPRITE WIDTH(invader)*x)*1.5
         invady=offsety+(SPRITE HEIGHT(invader)*y)*1.5
         SPRITE invader,invadx,invady,ship(invader)
      NEXT x
   NEXT y
   REM if any invader hits edge all goes the other way
   FOR invader = 1 TO 18
      IF SPRITE X(invader)<30 AND SPRITE IMAGE(invader)<110
         movex=speed+level
      ENDIF
   NEXT invader
   FOR invader = 1 TO 18
      IF SPRITE X(invader)>570 AND SPRITE IMAGE(invader)<110
         movex=(speed+level)*-1
      ENDIF
   NEXT invader
RETURN
REM ship movement
ship:
   my=MOUSEY()
   mx=MOUSEX()
   IF my<220 THEN my=220
   IF my>450 THEN my=450
   IF mx>610 THEN mx=610

IF killed=0
      status=100
      FOR shot=1 TO powerup
      IF MOUSECLICK()=1 AND FIRE(shot)=0 AND EXPLODE(shot)=0
         lsrx(shot)=mx+12
         lsry(shot)=my-shot*20
         rem play sound here for ship laser
         FIRE(shot)=1
      ENDIF
      IF FIRE(shot)=1
         SPRITE 100+shot,lsrx(shot),lsry(shot),101
         lsry(shot)=lsry(shot)-20
         INVADER_HIT=CHECK_ENEMY_COLLISION(shot)
         IF INVADER_HIT>0
            SPRITE 100+shot,lsrx(shot),0-SPRITE HEIGHT(100+shot),101
            rem play sound here for invader explosion
            INC score,10
            frame(INVADER_HIT)=110
            explode(INVADER_HIT)=1
            fire(shot)=0
            delay(INVADER_HIT)=TIMER()+60
         ELSE
            IF lsry(shot)<0
               SPRITE 100+shot,lsrx(shot),0-SPRITE HEIGHT(100+shot),101
               fire(shot)=0
            ENDIF
         ENDIF
      ENDIF
   NEXT shot
   ELSE
      IF TIMER()>delay2
         INC status
         delay2=TIMER()+60
         IF status>114
            DEC lives
            killed=0
            IF lives>0
               SET TEXT SIZE 40
               INK RGB(255,255,255),0
               CENTER TEXT screenx/2,screeny/2,"GET READY"
               SYNC
               SET TEXT SIZE 20
               WAIT 3000
               POSITION MOUSE 320,450
            ENDIF
         ENDIF
      ENDIF
   ENDIF
   SPRITE 100,mx,my,status
RETURN
REM rapid fire power up
powerups:
   IF RND(20)=5 AND pu=0
      pux=RND(620)
      puy=10
      pu=1
   ENDIF
   IF pu=1
      SPRITE 300,pux,puy,4
      puy=puy+5
      IF SPRITE HIT(100,300)>0
         powerup=5
         SPRITE 300,pux,490,4
         pu=0
      ELSE
         IF pu=1 AND puy>480
            SPRITE 300,pux,490,4
            pu=0
         ENDIF
      ENDIF
   ENDIF
RETURN

REM *** Functions ***
REM draw screen border
FUNCTION DrawRect(left,top,right,bottom)
   LINE left,top,right,top
   LINE right,top,right,bottom
   LINE right,bottom,left,bottom
   LINE left,bottom,left,top
ENDFUNCTION
Rem Game Collision
FUNCTION CHECK_ENEMY_COLLISION(laser)
   FOR enemies=1 to 18
      IF SPRITE HIT(100+laser,enemies)>0 AND SPRITE IMAGE(enemies)<110
         EXITFUNCTION enemies
      ENDIF
   NEXT enemies
ENDFUNCTION 0
REM reset bombers
FUNCTION resetbomber
FOR invader = 1 TO 18
  IF SPRITE EXIST(invader)=1
    bomber(invader)=0
    SPRITE invader+18,bombx(invader),500,101
  ENDIF
NEXT invader
ENDFUNCTION

+ Code Snippet

REMSTART
*****************************
* My First Game Attempt     *
* Space Invader Type Game   *
* with help from D Ogre     *
*****************************
REMEND

REM *** initialize screen ***
HIDE MOUSE
SYNC ON
SYNC RATE 60

REM *** load graphics ***
REM invaders
LOAD BITMAP "invaders.bmp",1
GET IMAGE 1,0,0,29,29
GET IMAGE 2,30,0,59,29
GET IMAGE 3,60,0,89,29
REM rapid fire powerup
GET IMAGE 4,97,64,113,82
REM ship
GET IMAGE 100,90,90,119,119
REM laser
GET IMAGE 101,73,110,77,119
REM explosion
LOAD BITMAP "explode.bmp",4
GET IMAGE 110,0,0,29,29
GET IMAGE 111,30,0,59,29
GET IMAGE 112,60,0,89,29
GET IMAGE 113,90,0,119,29
REM blank image after explosion
INK RGB(0,0,0),0
BOX 0,0,29,29
GET IMAGE 114,0,0,29,29

REM delete garbage
DELETE BITMAP 1
DELETE BITMAP 4
SET CURRENT BITMAP 0

REM grab screen size
screenx=SCREEN WIDTH()
screeny=SCREEN HEIGHT()

REM *** arrays ***
REM invader arrays
DIM ship(18)
DIM bomber(18)
DIM bombx(18)
DIM bomby(18)
DIM explode(18)
DIM frame(18)
DIM delay(18)
REM ship arrays
DIM fire(10)
DIM lsrx(10)
DIM lsry(10)


REM *** starting of new game variables ***
new_game:
CLS
level=0
lives=3
score=0
pu=0


REM *** starting new level variables ***
new_game_level:
destroyed=0
explode=0
fire=0
offsetx=30
offsety=50
speed=2
movex=speed+level
bombspeed=10+level*2
pu=0
powerup=1

REM *** setup sprites ***
REM create invader rows
n=0
min=0
max=0
FOR j=1 TO 3
   INC n
   INC min,6
   INC max,6
   FOR i=min-5 TO max
      SET SPRITE i,0,1
      SPRITE i,0,0,1
      ship(i)=n
   NEXT i
NEXT j
REM ship
SET SPRITE 100,0,1
SPRITE 100,MOUSEX(),MOUSEY(),100
POSITION MOUSE 320,450
REM laser
SET SPRITE 101,0,1
SPRITE 101,0,0,101
SPRITE 101,0,0-SPRITE HEIGHT(101),101
REM set text size
SET TEXT SIZE 20

Rem *** game action loop ***
REPEAT
   CLS
   GOSUB screen
   GOSUB invaders
   GOSUB ship
   GOSUB powerups
   SYNC
UNTIL destroyed=18 OR lives=0
REM increase level when 18 invaders destroyed
IF lives>0
   INC level
   SET TEXT SIZE 40
   FOR l=1 TO 30
      INK RGB(RND(128)+127,RND(128)+127,RND(128)+127),0
      CENTER TEXT screenx/2,screeny/2,"LEVEL "+STR$(level)+" COMPLETED !!!"
      WAIT 10:SYNC
   NEXT l
GOTO new_game_level
REM if lives are 0 then game over
ELSE
   DO
   SET TEXT SIZE 40
   CENTER TEXT screenx/2,screeny/2,"GAME OVER"
   SET TEXT SIZE 25
   CENTER TEXT screenx/2,screeny-290/2,"Your Final Score was "+STR$(score)
   CENTER TEXT screenx/2,screeny-240/2,"You Made it to Level "+STR$(level+1)
   SET TEXT SIZE 10
   CENTER TEXT screenx/2,screeny-115/2,"Press the ESC Key to Quit"
   CENTER TEXT screenx/2,screeny-90/2,"or"
   CENTER TEXT screenx/2,screeny-65/2,"Press Enter to Try Again"
   SYNC
   IF RETURNKEY()=1 THEN GOTO new_game
   IF ESCAPEKEY()=1 THEN EXIT
   LOOP
ENDIF

GOTO new_game_level

REM *** gosubs ***
REM score, title and level
screen:
   INK RGB(255,255,255),0
   CENTER TEXT screenx/2,5,"INVADER CLONE"
   TEXT 50,5,"SCORE: "+str$(score)
   TEXT 500,5,"LIVES: "+str$(lives)
   TEXT 500,450,"LEVEL: "+str$(level+1)
   INK RGB(0, 0, 255), 0
   DrawRect(0, 0, 639, 479)
   INK RGB(255, 255, 255), 0
   FOR d = 1 TO 10
      DOT RND(639), RND(479)
   NEXT d
RETURN
REM space invaders
invaders:
   invader=0
   offsetx=offsetx+movex
   FOR y=0 TO 2
      FOR x=0 TO 5
         INC invader
         IF explode(invader)=1
            ship(invader)=frame(invader)
            IF TIMER()>delay(invader)
               frame(invader)=frame(invader)+1
               IF frame(invader)>114 THEN INC destroyed:explode(invader)=0
               delay(invader)=TIMER()+60
            ENDIF
         ENDIF
         IF RND(150)=75 AND bomber(invader)=0 AND SPRITE IMAGE(invader)<4
            rem play sound here for bomb dropping
            bomber(invader)=1
            bombx(invader)=SPRITE X(invader)+12
            bomby(invader)=SPRITE Y(invader)+SPRITE HEIGHT(invader)
         ENDIF
         IF bomber(invader)=1
            SPRITE invader+18,bombx(invader),bomby(invader),101
            bomby(invader)=bomby(invader)+bombspeed
            IF SPRITE HIT(invader+18,100)>0 AND SPRITE IMAGE(100)=100
               SPRITE invader+18,bombx(invader),screeny+1,101
               rem sound here for ship explosion
               bomber(invader)=0
               status=110
               killed=1
               delay2=TIMER()+60
            ELSE
               IF bomby(invader)>screeny
                  SPRITE invader+18,bombx(invader),screeny+1,101
                  bomber(invader)=0
               ENDIF
            ENDIF
         ENDIF
         invadx=offsetx+(SPRITE WIDTH(invader)*x)*1.5
         invady=offsety+(SPRITE HEIGHT(invader)*y)*1.5
         SPRITE invader,invadx,invady,ship(invader)
      NEXT x
   NEXT y
   REM if any invader hits edge all goes the other way
   FOR invader = 1 TO 18
      IF SPRITE X(invader)<30 AND SPRITE IMAGE(invader)<110
         movex=speed+level
      ENDIF
   NEXT invader
   FOR invader = 1 TO 18
      IF SPRITE X(invader)>570 AND SPRITE IMAGE(invader)<110
         movex=(speed+level)*-1
      ENDIF
   NEXT invader
RETURN
REM ship movement
ship:
   my=MOUSEY()
   mx=MOUSEX()
   IF my<220 THEN my=220
   IF my>450 THEN my=450
   IF mx>610 THEN mx=610

   IF killed=0
      status=100
      FOR shot=1 TO powerup
      IF MOUSECLICK()=1 AND FIRE(shot)=0 AND EXPLODE(shot)=0
         lsrx(shot)=mx+12
         lsry(shot)=my-shot*20
         rem play sound here for ship laser
         FIRE(shot)=1
      ENDIF
      IF FIRE(shot)=1
         SPRITE 100+shot,lsrx(shot),lsry(shot),101
         lsry(shot)=lsry(shot)-20
         INVADER_HIT=CHECK_ENEMY_COLLISION(shot)
         IF INVADER_HIT>0
            SPRITE 100+shot,lsrx(shot),0-SPRITE HEIGHT(100+shot),101
            rem play sound here for invader explosion
            INC score,10
            frame(INVADER_HIT)=110
            explode(INVADER_HIT)=1
            fire(shot)=0
            delay(INVADER_HIT)=TIMER()+60
         ELSE
            IF lsry(shot)<0
               SPRITE 100+shot,lsrx(shot),0-SPRITE HEIGHT(100+shot),101
               fire(shot)=0
            ENDIF
         ENDIF
      ENDIF
   NEXT shot
   ELSE
      IF TIMER()>delay2
         INC status
         delay2=TIMER()+60
         IF status>114
            DEC lives
            killed=0
            IF lives>0
               SET TEXT SIZE 40
               INK RGB(255,255,255),0
               CENTER TEXT screenx/2,screeny/2,"GET READY"
               SYNC
               SET TEXT SIZE 20
               WAIT 3000
               POSITION MOUSE 320,450
            ENDIF
         ENDIF
      ENDIF
   ENDIF
   SPRITE 100,mx,my,status
RETURN
REM rapid fire power up
powerups:
   IF RND(20)=5 AND pu=0
      pux=RND(620)
      puy=10
      pu=1
   ENDIF
   IF pu=1
      SPRITE 300,pux,puy,4
      puy=puy+5
      IF SPRITE HIT(100,300)>0
         powerup=5
         SPRITE 300,pux,490,4
         pu=0
      ELSE
         IF pu=1 AND puy>480
            SPRITE 300,pux,490,4
            pu=0
         ENDIF
      ENDIF
   ENDIF
RETURN

REM *** Functions ***
REM draw screen border
FUNCTION DrawRect(left,top,right,bottom)
   LINE left,top,right,top
   LINE right,top,right,bottom
   LINE right,bottom,left,bottom
   LINE left,bottom,left,top
ENDFUNCTION
Rem Game Collision
FUNCTION CHECK_ENEMY_COLLISION(laser)
   FOR enemies=1 to 18
      IF SPRITE HIT(100+laser,enemies)>0 AND SPRITE IMAGE(enemies)<110
         EXITFUNCTION enemies
      ENDIF
   NEXT enemies
ENDFUNCTION 0
REM reset bombers
FUNCTION resetbomber
FOR invader = 1 TO 18
  IF SPRITE EXIST(invader)=1
    bomber(invader)=0
    SPRITE invader+18,bombx(invader),500,101
  ENDIF
NEXT invader
ENDFUNCTION

Thanks again,
David

Back to top

Profile PM

D Ogre

21

Years of Service

User Offline

Joined: 19th Nov 2003

Location:

Posted: 8th Aug 2005 23:07

Link

I was afraid of this, I know the trigger was a little quirky. I will have to do some changes for you to clear it up. Basically, what we need to do is make the trigger check to see where the previous laser is before it fires another forcing it to keep each at a specific interval.
I will try working it out tonight...

Back to top

Profile PM

D Ogre

21

Years of Service

User Offline

Joined: 19th Nov 2003

Location:

Posted: 10th Aug 2005 07:11 Edited at: 10th Aug 2005 07:16

Link

Here is my mods on the trigger and firing code. I hope it's more to your liking. Again, you can fire as many shots as the powerup allows. If you press and hold the button, it will fire all of the shots at once. If you quickly press the button, it fires one shot. The amount of shots fired varies depending the powerup value and the duration of time the mouse button is held down.

If you would like to space out the laser more, just make a counter that checks the trigger every so many passes. I will let you figure that out by yourself.

New POWERUP Mods:

REM ship movement
ship:
   if killed=0

status=100

my=MOUSEY()
   mx=MOUSEX()

IF my<300 THEN my=300
   IF my>450 THEN my=450
   IF mx>610 THEN mx=610

IF MOUSECLICK()=1 AND pulse<powerup
         inc pulse
         lsrx(pulse)=mx+12
         lsry(pulse)=my
         rem play sound here for ship laser
         FIRE(pulse)=1
      ENDIF

FOR shot=1 to powerup
      IF FIRE(shot)=1
         SPRITE 100+shot,lsrx(shot),lsry(shot),101
         lsry(shot)=lsry(shot)-10
         INVADER_HIT=CHECK_ENEMY_COLLISION(shot)
         IF INVADER_HIT>0
            SPRITE 100+shot,lsrx(shot),0-SPRITE HEIGHT(100+shot),101
            rem play sound here for invader explosion
            inc score,10
            inc laser:if laser=powerup then laser=0:pulse=0
            FRAME(INVADER_HIT)=4
            EXPLODE(INVADER_HIT)=1
            FIRE(shot)=0
            DELAY(INVADER_HIT)=TIMER()+60
         ELSE
            IF lsry(shot)<0
               SPRITE 100+shot,lsrx(shot),0-SPRITE HEIGHT(100+shot),101
               inc laser:if laser=powerup then laser=0:pulse=0
               FIRE(shot)=0
            ENDIF
         ENDIF
      ENDIF
   NEXT shot
   ELSE:rem if killed=1
      if timer()>delay2
         inc status
         delay2=timer()+60
         if status>8
            dec lives
            killed=0
            if lives>0
               set text size 40
               ink rgb(255,255,255),0
               center text screenx/2,screeny/2,"GET READY."
               sync
               set text size 20
               wait 3000
            endif
         endif
      endif
   ENDIF
   SPRITE 100,mx,my,status
RETURN

+ Code Snippet

REM ship movement
ship:
   if killed=0

   status=100

   my=MOUSEY()
   mx=MOUSEX()

   IF my<300 THEN my=300
   IF my>450 THEN my=450
   IF mx>610 THEN mx=610

      IF MOUSECLICK()=1 AND pulse<powerup
         inc pulse
         lsrx(pulse)=mx+12
         lsry(pulse)=my
         rem play sound here for ship laser
         FIRE(pulse)=1
      ENDIF

      FOR shot=1 to powerup
      IF FIRE(shot)=1
         SPRITE 100+shot,lsrx(shot),lsry(shot),101
         lsry(shot)=lsry(shot)-10
         INVADER_HIT=CHECK_ENEMY_COLLISION(shot)
         IF INVADER_HIT>0
            SPRITE 100+shot,lsrx(shot),0-SPRITE HEIGHT(100+shot),101
            rem play sound here for invader explosion
            inc score,10
            inc laser:if laser=powerup then laser=0:pulse=0
            FRAME(INVADER_HIT)=4
            EXPLODE(INVADER_HIT)=1
            FIRE(shot)=0
            DELAY(INVADER_HIT)=TIMER()+60
         ELSE
            IF lsry(shot)<0
               SPRITE 100+shot,lsrx(shot),0-SPRITE HEIGHT(100+shot),101
               inc laser:if laser=powerup then laser=0:pulse=0
               FIRE(shot)=0
            ENDIF
         ENDIF
      ENDIF
   NEXT shot
   ELSE:rem if killed=1
      if timer()>delay2
         inc status
         delay2=timer()+60
         if status>8
            dec lives
            killed=0
            if lives>0
               set text size 40
               ink rgb(255,255,255),0
               center text screenx/2,screeny/2,"GET READY."
               sync
               set text size 20
               wait 3000
            endif
         endif
      endif
   ENDIF
   SPRITE 100,mx,my,status
RETURN

Back to top

Profile PM

David_M_

19

Years of Service

User Offline

Joined: 27th May 2005

Location:

Posted: 11th Aug 2005 07:09

Link

Thanks so much. I ended up adding a delay3 as part one of the IF conditions and got it to work how I liked it to. So simple I could have kicked myself. OUCH !!!
My next question is, when the bombs and lasers are moving across the screen they look line two that are touching or like they are stretched. The faster they travel the worse the effect. The slower the travel the more normal they look.
Why ???????

Thanks again.

Back to top

Profile PM

D Ogre

21

Years of Service

User Offline

Joined: 19th Nov 2003

Location:

Posted: 13th Aug 2005 22:00

Link

Well, Dave it's because the code is not really keeping track of the actual position of each laser. The firing is based strictly on timing. So, if you reduce the time for of the trigger delay, you are in effect reducing the distance between each laser. The more time added the bigger the distance. It's not an issue off stretching, but the distance between the pulses. Does this make answer your question?

Back to top

Profile PM

David_M_

19

Years of Service

User Offline

Joined: 27th May 2005

Location:

Posted: 17th Aug 2005 14:22

Link

Hello,
I just wanted to give an update of were I was at on the code.
I also think that the visual effect of things stretching or smearing or vibrating as they move seems to be lessened by putting something behind it other than just mostly black space. The more you specifically watch the lasers move, the worse they seem to smear or vibrate (I am not sure exactly how to describe it). That is what I ment by my previous question. I am working on a static background (stars and some planets) to make it look better. I think I have that worked out I just need to make a decent looking bmp for it. I will also need to renumber my sprites, due to not planning good enough of what all sprites would eventually be in the code. I will probably work on more power ups and maybe a shield for the ship.
That should keep me busy for a bit. So dont think I've quit, I am just working on stuff. Hopefully I can figure most of it out on my own.

Thanks again so much. Chat later, I'm sure I will need some kind of help again.

Back to top

Profile PM

D Ogre

21

Years of Service

User Offline

Joined: 19th Nov 2003

Location:

Posted: 22nd Aug 2005 22:53

Link

The visual anomalies that you are seeing are due to the pixel incrementation used for movement, and partially from the screen refresh (SYNC) rate. The larger the value used to move your sprites the more evident this will become. You could fine tune this by reducing the movement values and increasing the frame rate. There will be a limit to how much you can tune. This depends on the your computer and the finished build of your game.

Back to top

Profile PM

David_M_

19

Years of Service

User Offline

Joined: 27th May 2005

Location:

Posted: 23rd Aug 2005 05:06

Link

Thanks for the further input.
I regret to say that I have not got to work on the game much of late, but it is not forgotten.

Thanks again,
David

Back to top

Profile PM

Sorry your browser is not supported!

2D All the way! / space invader clone