Here's some code you you to look at. I added comments on new stuff except where I just copied routines from your code. You need to add the image loading code for images 10 to 20 for the explosions.
`Main Source File
`Getting Game Ready
SYNC ON
SYNC RATE 30
HIDE MOUSE
`Loading Images.
load image "ImagesYourShip.jpg",1
load image "ImagesAlienShip.jpg",6
load image "ImagesGreenLaser.jpg",4
load image "ImagesRedLaser.jpg",5
load image "ImagesStars.jpg",50
`Loading Sounds.
load sound "C:Program FilesThe Game CreatorsDark Basic Professional TrialProjectsAlien HunterSoundsCannon.wav",1
load sound "C:Program FilesThe Game CreatorsDark Basic Professional TrialProjectsAlien HunterSoundsbpulse.wav",2
`Loop Background Music
loop sound 2
`Make Background
MAKE OBJECT PLAIN 4,127,90
POSITION OBJECT 4,0,-4,80
TEXTURE OBJECT 4,50
LOCK OBJECT ON 4
`Color background black
color backdrop rgb(0,0,0)
`Playerfire Score Level and Lives Variables
pf=0:score=0:Level=1:lives=3
`Your Ship X and Y coords
ysx=265:ysy=350
`Places your ship on Screen
sprite 1,ysx,ysy,1
`Enemy Ship X and Y coords
esx=265:esy=90
`Places Enemy ship on Screen
sprite 6,esx,esy,6
`Where lazer shoots from
lx=ysx+23
ly=ysy-60
`set variable for nme ai
`set nme direction to random 0 or 1
`set amount of time to delay before nme fires with a 500ms min.
nme_fire_delay# = timer()+500+rnd(1500)
nme_left = rnd(1)
screen_wide = screen width()
nme_wide = sprite width(6)
`set enemy bounds
right_bound = (screen_wide-nme_wide)-10
left_bound = 10
`set nubber of lives
lives = 10
`Start Main Loop
do
`Print Score Level and Lives on screen
set cursor 10,10: Print "SCORE:";Score; " LEVEL:";level;" LIVES:";lives
`get the current timer value always use this variable in the place of the timer() command
`never call the timer() command more than once per loop it doesn't have to be that accurate.
update_time# = timer()
`setup nme firing timer delay
if update_time# > nme_fire_delay#
`update fire delay timer
nme_fire_delay# = update_time#+500+rnd(1500)
if nme_f = 0
`update nme_lazer positions
nme_lx = esx+23
nme_ly = esy+60
nme_f = 1
gosub nme_shoot
endif
endif
`enemy simple ai
`you used the variable esx for the nme's x position so just change it a bit
`for side to side motion.
if nme_left = 1
dec esx, 5
`if too far left go right
if esx < left_bound
esx = left_bound
`set to go right
nme_left = 0
endif
else
inc esx, 5
`if too far right go left
if esx > right_bound
esx = right_bound
`set to go left
nme_left = 1
endif
endif
`update sprite position
sprite 6,esx,esy,6
`Left Key Control
if leftKEY()=1 and ysx>20
dec ysx,10
endif
`Right Key Control
if rightKEY()=1 and ysx<545
inc ysx,10
endif
`Start Shoot Routine
if inkey$()="z"
if pf=0
if zkp=0
lx=ysx+23
ly=ysy-60
zkp = 1
gosub shoot
pf=1
endif
endif
else
zkp = 0
endif
`If Alien Ship Exists, activate blowitup routine.
if SPRITE EXIST(2)=1
if SPRITE HIT(2,6)=1
gosub blowitup
endif
endif
`If Your Ship Exists, decrease your lives.
if SPRITE EXIST(1)=1
if SPRITE HIT(1,7)=1
delete sprite 7
nme_f = 0
lives = lives - 1
if lives = 0
end
endif
endif
endif
`Refresh Your Ship Position
sprite 1,ysx,ysy,1
`Activate Moveall Routine
gosub moveall
`Activate Movestars Routine
gosub movestars
`Refresh Screen
sync
`End of Loop
loop
`Movestars Routine
movestars:
SCROLL OBJECT TEXTURE 4,0.00,-0.01
return
`Shoot Routine
shoot:
sprite 2,lx,ly,4
`show the bullet as it was hidden when hitting the enemy
show sprite 2
PLAY SOUND 1
return
`Shoot Routine
nme_shoot:
sprite 7,nme_lx,nme_ly,5
`show the bullet as it was hidden when hitting the enemy
show sprite 7
PLAY SOUND 1
return
`Moveall Routine
moveall:
if pf = 1
if SPRITE EXIST(2)=1
If sprite y(2)>-800
ly=ly-30
sprite 2,lx,ly,4
else
pf=0
`hide bullet if it goes too far
delete sprite 2
endif
else
pf=0
endif
endif
`move nme bullet
if nme_f = 1
if SPRITE EXIST(7)=1
If sprite y(7)<800
nme_ly=nme_ly+30
sprite 7,nme_lx,nme_ly,5
else
nme_f = 0
`hide bullet if it goes too far
delete sprite 7
endif
else
nme_f = 0
endif
endif
return
`Blow it Up routine
blowitup:
delete sprite 6
`remove bullet when hit nme ship
delete sprite 2
for t=10 to 20
`changed the sprite positions to variable names for easier to keep up with
sprite 6,esx,esy,t
wait 1
next t
`changed this to score = score + 50 DBP doesn't add to variables auto like that
Score = Score+50
`added to make new random location for enemy ship you can also add a esy = rnd(whatever) to make it random the other way
esx = rnd(screen width()-sprite width(6))
delete sprite 6
sprite 6,esx,esy,6
`reset nme direction randomly
nme_left = rnd(1)
return
[edit] You can keep using one post for this project since it is in the newcomers section and you are just learning in general with this game.
