7 Open source games - GameCreators Forum

Author

Message

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 20th Jul 2006 20:20 Edited at: 20th Jul 2006 20:48

Link

Here are all the games worth posting that I have made. They are all open source. I have put the source in other areas, but only a very few people ever saw it, so here they are all together.

The code is pretty clean, so it should be easy to understand. They are all made with DBC The code and the media will be posted in seperate posts.

Have fun!

Don't Say Like

Back to top

Profile PM Email Website

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 20th Jul 2006 20:25

Link

Laser Assault

`****************************************************************
`*************************~LASER Assault!~***********************
`****************************************************************
`******************************By UFO****************************
`****************************************************************

hide mouse
cls rgb(0,0,0)

`sprites: 1-player, 2/51-lasers,

Center Text 320,240,"Loading..."

`Loading stuff
Load image "ablast1.bmp",1
Load image "ablast2.bmp",2
Load image "ablast3.bmp",3
Load image "blue laser.bmp",4
Load image "green laser.bmp",5
Load image "pink laser.bmp",6
Load image "red laser.bmp",7
Load image "white laser.bmp",8
Load image "explode1.bmp",10
Load image "explode2.bmp",11
Load sound "edestroy.wav", 1
Load sound "getready.wav",2

`VARIABLES
xpos = 10 :`x position of player's ship
ypos = 190 : `y position of player's ship
image = 1 : `Frame number of the animation of the player's ship
direction = 3 : `Direction of player's ship - used for slowing down effect
breakspeed = 5 : `Speed of which the player's ship slows down - lower = faster - used in slowing down effect
speed = 0 : `Speed of player's ship - used in slowing down effect
lasercreation = 50 : `speed of which the lasers are created
maxlasers = 50 : `maximum amount of lasers on the screen at a time
lasercounter = 0 : `counter used with lasercreation for speed of making the lasers
lasers = 0 : `amound of lasers on the screen
explodespeed = 0 : `counter for how long the frames of the explosion animation last
paused = 0 : `If it is one, the lasers and other game objects freeze.
explodeanim = 10 : `Frame of the explosion animation
DIM laser(50,4) : `Laser stats - xpos,ypos,speed,color

sync on
Randomize Timer

`Getready animation and music
cls
Set cursor 200,240
Input "Enter Time (300-Easy, 500-Hard):",input$
Time = Val(Input$)
Cls
Center text 320,240,"Get Ready..."
play sound 2
sleep 3000
cls rgb(0,0,0)
Loop music 1

starttime = Timer()
`MAIN LOOP!
Do

`CREATES THE LASERS!
   If lasercounter > lasercreation and lasers < maxlasers and paused = 0
      lasercounter = 0
      makelaser(lasers)
      lasers = lasers + 1
   endif

`LASER STUFF!
   For I = 1 to lasers

`MOVES THE LASER!
      If paused = 0 then laser(I,1) = laser(I,1) - laser(I,4)

`WARPS THE LASER!
      If laser(I,1) < -48 then makelaser(I)

`DRAWS LASER
      sprite I+1, laser(I,1), laser(I,2), laser(I,3)

`CHECKS COLLISION
      If sprite collision(1,I) = 1 and I > 1
         sprite lasers + 2, xpos - 40, ypos - 40, explodeanim
         If paused = 0 then Play sound 1
         paused = 1
      endif

Next I

`CONTROLLS!
   IF Leftkey() = 1 and paused = 0
      direction = 2 : speed = breakspeed
   endif

If rightkey() = 1 and paused = 0
      direction = 3 : speed = breakspeed
   endif

If upkey() = 1 and paused = 0
      direction = 1 : speed = breakspeed
   endif

If downkey() = 1 and paused = 0
      direction = 4 : speed = breakspeed
   endif

`KEEPING THE SHIP WITHIN THE SCREEN!
   If speed > 0

If xpos < 1
        speed = 0 : xpos = xpos + 1
     Endif

If xpos > 639 - sprite width(1)
         speed = 0 : xpos = xpos - 1
      Endif

If ypos < 1
         speed = 0 : ypos = ypos + 1
      Endif

If ypos > 479 - sprite height(1)
         speed = 0 : ypos = ypos - 1
      endif

`MOVING THE SHIP! and paused = 0
     If direction = 1
        ypos = ypos - speed : speed = speed - 2
     endif

If direction = 2 and paused = 0
        xpos = xpos - speed : speed = speed - 2
     endif

If direction = 3 and paused = 0
        xpos = xpos + speed : speed = speed - 2
      endif

If direction = 4 and paused = 0
        ypos = ypos + speed : speed = speed - 2
     endif

Endif

`DRAWING THE SHIP AND IT'S ANIMATION!
   image = image + 1 : If image > 3 then image = 1
   sprite 1,xpos,ypos,image

lasercounter = lasercounter + 1
   If paused = 1 then explodespeed = explodespeed + 1
   If explodespeed = 7 then explodeanim = explodeanim + 1
   If explodespeed = 30
      losegame(lasers)
   endif

sync
   cls

set cursor 0,0
   Print "Time Left: " + str$( int(Time - ((timer() - starttime)/100)))
   If timer() - starttime > time*100
      sleep 1000
      wingame(lasers)
   endif
`!!!
Loop

Function makelaser(number)

laser(number,1) = 640
   laser(number,2) = rnd(476)
   laser(number,3) = rnd(4)+4
   laser(number,4) = rnd(6)+4

Endfunction

Function losegame(numlasers)
   stop music 1
   Destroy_sprites(numlasers)
   cls
   sync
   Center Text 320,240,"You lose!"
   sleep 3000
   end
Endfunction

Function wingame(numlasers)
   stop music 1
   Destroy_Sprites(numlasers)
   cls
   sync
   Center Text 320,240,"You win!"
   sleep 3000
   end
Endfunction

Function Destroy_Sprites(numlasers)

For I = 1 to numlasers+2
      If sprite exist(I) = 1
         delete sprite I
      endif
   next I

Endfunction

+ Code Snippet

`****************************************************************
`*************************~LASER Assault!~***********************
`****************************************************************
`******************************By UFO****************************
`****************************************************************

hide mouse
cls rgb(0,0,0)

`sprites: 1-player, 2/51-lasers,

Center Text 320,240,"Loading..."

`Loading stuff
Load image "ablast1.bmp",1
Load image "ablast2.bmp",2
Load image "ablast3.bmp",3
Load image "blue laser.bmp",4
Load image "green laser.bmp",5
Load image "pink laser.bmp",6
Load image "red laser.bmp",7
Load image "white laser.bmp",8
Load image "explode1.bmp",10
Load image "explode2.bmp",11
Load sound "edestroy.wav", 1
Load sound "getready.wav",2

`VARIABLES
xpos = 10 :`x position of player's ship
ypos = 190 : `y position of player's ship
image = 1 : `Frame number of the animation of the player's ship
direction = 3 : `Direction of player's ship - used for slowing down effect
breakspeed = 5 : `Speed of which the player's ship slows down - lower = faster - used in slowing down effect
speed = 0 : `Speed of player's ship - used in slowing down effect
lasercreation = 50 : `speed of which the lasers are created
maxlasers = 50 : `maximum amount of lasers on the screen at a time
lasercounter = 0 : `counter used with lasercreation for speed of making the lasers
lasers = 0 : `amound of lasers on the screen
explodespeed = 0 : `counter for how long the frames of the explosion animation last
paused = 0 : `If it is one, the lasers and other game objects freeze.
explodeanim = 10 : `Frame of the explosion animation
DIM laser(50,4) : `Laser stats - xpos,ypos,speed,color

sync on
Randomize Timer

`Getready animation and music
cls
Set cursor 200,240
Input "Enter Time (300-Easy, 500-Hard):",input$
Time = Val(Input$)
Cls
Center text 320,240,"Get Ready..."
play sound 2
sleep 3000
cls rgb(0,0,0)
Loop music 1

starttime = Timer()
`MAIN LOOP!
Do

`CREATES THE LASERS!
   If lasercounter > lasercreation and lasers < maxlasers and paused = 0
      lasercounter = 0
      makelaser(lasers)
      lasers = lasers + 1
   endif

`LASER STUFF!
   For I = 1 to lasers

`MOVES THE LASER!
      If paused = 0 then laser(I,1) = laser(I,1) - laser(I,4)

`WARPS THE LASER!
      If laser(I,1) < -48 then makelaser(I)

`DRAWS LASER
      sprite I+1, laser(I,1), laser(I,2), laser(I,3)

`CHECKS COLLISION
      If sprite collision(1,I) = 1 and I > 1
         sprite lasers + 2, xpos - 40, ypos - 40, explodeanim
         If paused = 0 then Play sound 1
         paused = 1
      endif

   Next I

`CONTROLLS!
   IF Leftkey() = 1 and paused = 0
      direction = 2 : speed = breakspeed
   endif

   If rightkey() = 1 and paused = 0
      direction = 3 : speed = breakspeed
   endif

   If upkey() = 1 and paused = 0
      direction = 1 : speed = breakspeed
   endif

   If downkey() = 1 and paused = 0
      direction = 4 : speed = breakspeed
   endif

`KEEPING THE SHIP WITHIN THE SCREEN!
   If speed > 0

      If xpos < 1
        speed = 0 : xpos = xpos + 1
     Endif

      If xpos > 639 - sprite width(1)
         speed = 0 : xpos = xpos - 1
      Endif

      If ypos < 1
         speed = 0 : ypos = ypos + 1
      Endif

      If ypos > 479 - sprite height(1)
         speed = 0 : ypos = ypos - 1
      endif

`MOVING THE SHIP! and paused = 0
     If direction = 1
        ypos = ypos - speed : speed = speed - 2
     endif

     If direction = 2 and paused = 0
        xpos = xpos - speed : speed = speed - 2
     endif

     If direction = 3 and paused = 0
        xpos = xpos + speed : speed = speed - 2
      endif

     If direction = 4 and paused = 0
        ypos = ypos + speed : speed = speed - 2
     endif

   Endif

`DRAWING THE SHIP AND IT'S ANIMATION!
   image = image + 1 : If image > 3 then image = 1
   sprite 1,xpos,ypos,image

   lasercounter = lasercounter + 1
   If paused = 1 then explodespeed = explodespeed + 1
   If explodespeed = 7 then explodeanim = explodeanim + 1
   If explodespeed = 30
      losegame(lasers)
   endif

   sync
   cls

   set cursor 0,0
   Print "Time Left: " + str$( int(Time - ((timer() - starttime)/100)))
   If timer() - starttime > time*100
      sleep 1000
      wingame(lasers)
   endif
`!!!
Loop

Function makelaser(number)

   laser(number,1) = 640
   laser(number,2) = rnd(476)
   laser(number,3) = rnd(4)+4
   laser(number,4) = rnd(6)+4

Endfunction

Function losegame(numlasers)
   stop music 1
   Destroy_sprites(numlasers)
   cls
   sync
   Center Text 320,240,"You lose!"
   sleep 3000
   end
Endfunction

Function wingame(numlasers)
   stop music 1
   Destroy_Sprites(numlasers)
   cls
   sync
   Center Text 320,240,"You win!"
   sleep 3000
   end
Endfunction

Function Destroy_Sprites(numlasers)

   For I = 1 to numlasers+2
      If sprite exist(I) = 1
         delete sprite I
      endif
   next I

Endfunction

Don't Say Like

Attachments

Login to view attachments

Back to top

Profile PM Email Website

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 20th Jul 2006 20:28

Link

Laser Assault 2

remstart
   -------------------------------------------------------------------
   program name: Laser Assault 2
   -------------------------------------------------------------------
   written by: UFO
   date: 11/19/05
   -------------------------------------------------------------------
   comments:
      Image Usage:
         (1-3)-player ship
         (4)-Player bullet
         (5)-Enemy Bullet
         (6) - missle
         (50-55) - explosion1
         (60-80) - powerups
         (100^)-Aliens
      Sprite Usage:
         1 - Player ship
         2 - powerup
         (100-110) - Player Bullets
         (10-99) - Aliens
         (120-135) - explosions
         (150-175) - Enemy Bullets
         (176-200) - Missle
      Sound usage:
         1 - Player shoot
      Arrays:
         PBullet(maxnum,3) - 1=exists 2=x 3=y
         Alien(maxnum,5) - 1=exists 2=x 3=y 4=type 5=frame 6 -Height 7-special 8-special2 9-special3
         Explosion(maxnum,3) 1=exists 2=x 3=y 4=frame 5=sprite num
         Ebullet(25,3) - 1=exists 2=x 3=y 4=speed
         Powerup(5) 1=exists 2=x 3=y 4=type 5=frame
         Missle(24,3) 1=exists 2=x 3=y
   -------------------------------------------------------------------
remend

amountofstars=300
Dim Stars(amountofstars,3)

hide mouse
Sync on
sync rate 40

gosub Load_Images
gosub load_sounds

gosub Titlescreen
start:

Animtimer = timer()
Frame = 1
Dim Ppos(2)
Ppos(1) = 30
Ppos(2) = 240
maxplayerbullets = 10
Dim PBullet(maxplayerbullets,3)
AlienTimer = timer()
Maxaliens = 20
Dim Alien(Maxaliens,9)
Dim explosion(15,5)
level = 1000
shields = 10
Maxebullets = 25
Dim EBullet(maxebullets,4)
Score = 0
Multiplier = 1
Dim Powerup(5)
Poweruptimer = timer()
sector = 1
boss_exists = 0
dim Missle(24,3)
bossdestroyed = 0
about = 0
getready = 0
quit = 0

amountofstars=300
Dim Stars(amountofstars,3)
gosub Init_Stars

gosub Draw_Stars
gosub Draw_Ship

Do

gosub Draw_Stars

gosub Draw_Ship
   gosub Move_Ship

gosub Make_Alien
   gosub Move_Alien
   gosub Draw_Alien

gosub Make_Alien_Shoot
   gosub Enemy_bullet
   gosub draw_missle

gosub Shooting
   gosub Move_Bullets
   gosub Draw_Bullets

gosub Bullet_Collision
   gosub Enemy_Bullet_Collision
   gosub Alien_Collision
   gosub powerup_Collision
   gosub Missle_Collision

gosub draw_explosion

gosub MAke_Powerup
   gosub draw_powerup

gosub Animation

Print "Shields:";
   Print shields;
   Print "   Danger Level:";
   Print 2000-level;
   Print "   Score:";
   Print score;
   Print "   Multiplier:";
   Print Multiplier

If level < 150 then sector = 2
   If shields <= 0 then goto lose
   IF shiftkey() = 1 then sector = 2

If bossdestroyed = 1 then gosub win

sync

Loop

Init_Stars:

For I = 1 to amountofstars

Stars(I,1) = rnd(640)
      Stars(I,2) = rnd(320)+80
      Stars(I,3) = rnd(9)+1

next I

return

Draw_Stars:

cls
   Ink rgb(255,255,255),0

For I = 1 to Amountofstars

Stars(I,1) = Stars(I,1) - Stars(I,3)
      If Stars(I,1) < 0 then Stars(I,1) = 640
      Dot Stars(I,1),Stars(I,2)

next I

return

Load_images:

Load image "media/Player/Ablast1.bmp",1
   Load image "media/player/Ablast2.bmp",2
   Load image "media/player/Ablast3.bmp",3

Load image "media/player/Bullet.bmp",4
   Load image "media/aliens/bullet.bmp",5
   Load image "media/aliens/missle.bmp",6

Load image "media/explosions/1.bmp",50
   Load image "media/explosions/2.bmp",51
   Load image "media/explosions/3.bmp",52
   Load image "media/explosions/4.bmp",53
   Load image "media/explosions/5.bmp",54
   Load image "media/explosions/6.bmp",55

Load image "media/powerups/Live1.bmp",60
   Load image "media/powerups/Live2.bmp",61
   Load image "media/powerups/Multiplier1.bmp",62
   Load image "media/powerups/Multiplier2.bmp",63
   Load image "media/powerups/Points1.bmp",64
   Load image "media/powerups/Points2.bmp",65

Load image "media/aliens/1-1.bmp",100
   Load image "media/aliens/1-2.bmp",101
   Load image "media/aliens/1-3.bmp",102

Load image "media/aliens/2-1.bmp",103
   Load image "media/aliens/2-2.bmp",104
   Load image "media/aliens/2-3.bmp",105

Load image "media/aliens/3-1.bmp",106
   Load image "media/aliens/3-2.bmp",107
   Load image "media/aliens/3-3.bmp",108

Load image "media/aliens/4-1.bmp",109
   Load image "media/aliens/4-2.bmp",110
   Load image "media/aliens/4-3.bmp",111

Load image "media/aliens/5-1.bmp",112
   Load image "media/aliens/5-2.bmp",113
   Load image "media/aliens/5-3.bmp",114

Load image "media/aliens/boss1.bmp",115
   Load image "media/aliens/boss1.bmp",116
   Load image "media/aliens/boss1.bmp",117

Load image "media/titles/Title.bmp",200
   Load image "media/titles/by.bmp",201
   Load image "media/titles/Laser Assault 2.bmp",202
   Load image "media/titles/About.bmp",203
   Load image "media/titles/Get Ready.bmp",204
   Load image "media/titles/Win.bmp",205
   Load image "media/titles/lose.bmp",206
   Load image "media/titles/credits.bmp",207

return

Load_sounds:

Load sound "media/sounds/phaser.wav",1
   Load sound "media/sounds/lasergun.wav",2
   Load sound "media/sounds/explode.wav",5
   Load sound "media/sounds/explode3.wav",6
   Load sound "media/sounds/scifi1.wav",10
   Load sound "media/sounds/Scifi4.wav",11
   Load sound "media/sounds/Scifi5.wav",12

Load music "media/bgplay.mid",1
   Loop music 1
Draw_SHip:

Sprite 1,ppos(1),ppos(2),frame

return

Move_Ship:

If upkey() = 1 then ppos(2) = curvevalue(ppos(2)-25,ppos(2),4)
   If downkey() = 1 then ppos(2) = curvevalue(ppos(2)+25,ppos(2),4)
   If leftkey() = 1 then ppos(1) = curvevalue(ppos(1)-25,ppos(1),4)
   If rightkey() = 1 then ppos(1) = curvevalue(ppos(1)+25,ppos(1),4)

If ppos(1)<0 then ppos(1) = 1
   If ppos(1)>640-sprite width(1) then ppos(1) = 639-sprite width(1)
   If ppos(2)<80 then ppos(2) = 81
   If ppos(2)>400-sprite height(1) then ppos(2) = 399-sprite height(1)

return

Animation:

If Animtimer < timer() - 50
      Frame = Frame + 1

For I = 1 to maxaliens
         Alien(I,5) = Alien(I,5) + 1
         If Alien(I,5) = 4 then Alien(I,5) = 1
      next I

For I = 1 to 15
         If explosion(I,1) = 1 then Explosion(I,4) = Explosion(I,4) + 1
         If explosion(I,4) = 6
            explosion(I,1) = 0
            sprite explosion(I,5),640,480,1
         endif
      next I

If powerup(1) = 1
         Powerup(5) = powerup(5) + 1
         If powerup(5) = 3 then powerup(5) = 1
      endif

animtimer = timer()
   endif
   If Frame = 4 then Frame = 1

return

Shooting:

If spacekey() = 1 or controlkey() = 1
   If shoot = 1
      shoot = 0
      Play sound 1
      For I = 1 to maxplayerbullets
         If PBullet(I,1) = 0
            PBullet(I,1) = 1
            PBullet(I,2) = Ppos(1)+sprite width(1)-20
            PBullet(I,3) = Ppos(2)+(sprite height(1)/2)-2
            Goto leave
         endif
      next I
      leave:
   endif
   endif

If spacekey() = 0 and controlkey() = 0 then shoot = 1

return

Move_Bullets:

For I = 1 to maxplayerbullets

If PBullet(I,1) = 1
         PBullet(I,2) = curvevalue(PBullet(I,2)+50,PBullet(I,2),3)
         If PBullet(I,2) > 700 then PBullet(I,1) = 0
      endif

next I

return

Draw_Bullets:

For I = 1 to maxplayerbullets

If PBullet(I,1) = 1
         Sprite 99+I,PBullet(I,2),PBullet(I,3),4
      endif

next I

return

Make_Alien_Shoot:

For I = 1 to maxaliens
      If Alien(I,1) = 1
         If Alien(I,4) = 10
            If Alien(I,8) < timer() - 600
               For N = 1 to maxebullets
                  If Ebullet(N,1) = 0
                     Ebullet(N,1) = 1
                     Ebullet(N,2) = Alien(I,2)
                     Ebullet(N,3) = Alien(I,3) + (Alien(I,6)/2)-2
                     Ebullet(N,4) = 10
                     goto Imgoingtodie
                  endif
               next I
               Imgoingtodie:
               Play sound 2
               Alien(I,8) = timer()
            endif
         endif
         If Alien(I,4) = 13
            If Alien(I,7) < timer() - 700
               For N = 1 to maxebullets
                  If Ebullet(N,1) = 0
                     Ebullet(N,1) = 1
                     Ebullet(N,2) = Alien(I,2)+25
                     Ebullet(N,3) = Alien(I,3) + (Alien(I,6)/2)-2
                     Ebullet(N,4) = 10
                     goto Hellonstuff
                  endif
               next N
               Hellonstuff:
               Play sound 2
               Alien(I,7) = timer()
            endif
         endif
         If Alien(I,4) = 16
            If ALien(I,7) < timer() - 500
               ALien(I,7) = timer()
               thingy = rnd(3)+1
               If thingy = 1
                  Play sound 2
                  For X = 1 to 80 step 20
                     For N = 1 to maxebullets
                        If Ebullet(N,1) = 0
                           Ebullet(N,1) = 1
                           Ebullet(N,2) = Alien(I,2) + 20
                           Ebullet(N,3) = Alien(I,3) + X
                           Ebullet(N,4) = 10
                           goto computersarecool
                        endif
                     next N
                     Computersarecool:
                  next X
                  thingy = 0
               endif
               If thingy = 2
                  Play sound 2
                  For x = 0 to 80 step 40
                     For N = 1 to maxebullets
                        If Ebullet(N,1) = 0
                           Ebullet(N,1) = 1
                           Ebullet(N,2) = Alien(I,2) + 20
                           Ebullet(N,3) = Alien(I,3) + X
                           Ebullet(N,4) = 7
                           goto IfIwerearichman
                        endif
                     next N
                     IfIwerearichman:
                  next X
                  For x = 20 to 60 step 40
                     For N = 1 to maxebullets
                        If Ebullet(N,1) = 0
                           Ebullet(N,1) = 1
                           Ebullet(N,2) = Alien(I,2) + 20
                           Ebullet(N,3) = Alien(I,3) + X
                           Ebullet(N,4) = 10
                           goto bleeblah
                        endif
                     next N
                     bleeblah:
                  next X
               endif
               If thingy = 3
                  Play sound 2
                  gosub Shoot_Missles
               endif
            endif
         endif
      endif
   next I

return

Shoot_Missles:

For I = 1 to maxaliens
      If alien(I,4) = 16
         For x = 1 to 24
            If Missle(x,1) = 0
               Missle(x,1) = 1
               Missle(x,2) = Alien(I,2)-20
               Missle(x,3) = Alien(I,3) + Alien(I,6)/2-29
               goto onceuponatime
            endif
         next x
         onceuponatime:
         For x = 1 to 24
            If missle(x,1) = 0
               Missle(x,1) = 1
               Missle(x,2) = alien(I,2)-20
               Missle(x,3) = Alien(I,3) + Alien(I,6)/2+20
               goto christmas
            endif
         next x
         christmas:
      endif
   next I

return

Draw_Missle:

For I = 1 to 24
      IF missle(I,1) = 1 then sprite 175+I,Missle(I,2),Missle(I,3),6
      Missle(I,2) = Missle(I,2) - 12
      If Missle(I,3) < ppos(2) - 25 then Missle(I,3) = Missle(I,3) + 5
      If missle(I,3) > ppos(2) + 25 then Missle(I,3) = Missle(I,3) - 5
      If missle(I,2) < -30 then missle(I,1) = 0
   next I

return

Enemy_Bullet:

For I = 1 to maxebullets
      If Ebullet(I,1) = 1
         Ebullet(I,2) = Ebullet(I,2) - Ebullet(I,4)
         Sprite 149+I,Ebullet(I,2),Ebullet(I,3),5
         If Ebullet(I,2) < -10 then Ebullet(I,1) = 0
      endif
   next I

return

Bullet_Collision:

For I = 1 to maxplayerbullets

If Sprite exist(99+I) = 1

For N = 1 to maxaliens

If sprite exist(9+N) = 1
               If Sprite hit(I+99,9+N) = 1
                  If Alien(N,4) <> 16
                     Alien(N,1) = 0
                     PBullet(I,1) = 0
                     Make_explosion(Sprite x(99+I)+sprite width(99+I)-30,Sprite y(99+I)-30)
                     Play sound 5
                     sprite I+99,640,480,1
                     sprite N+9,0,480,1
                     If Alien(I,4) = 1 then score = score + 20*multiplier
                     If alien(I,4) = 4 then score = score + 5*multiplier
                     If alien(I,4) = 7 then score = score + 50*multiplier
                     If alien(I,4) = 10 then score = score + 40*multiplier
                     If alien(I,4) = 13 then score = score + 45*multiplier
                  endif
                  If ALien(N,4) = 16
                     Alien(N,8) = Alien(N,8) - 1
                     PBullet(I,1) = 0
                     Make_explosion(Sprite x(99+I)+sprite width(99+I)-30,Sprite y(99+I)-30)
                     Play sound 5
                     Sprite I+99,640,480,1
                     Score = score + 20*multiplier
                     If Alien(N,8) =< 0
                        For X = 1 to 10
                           Make_explosion(Sprite x(9+N)+rnd(80),Sprite y(9+N)+rnd(68))
                        next I
                        Play sound 6
                        Sprite N+9,0,480,1
                        Alien(N,1) = 0
                        bossdestroyed = 1
                     endif
                  endif

endif

Next N

endif

Next I

return

Enemy_Bullet_Collision:

For I = 1 to maxebullets
      If sprite exist(I+149) = 1
         If Sprite hit(1,I+149) = 1
            Ebullet(I,1) = 0
            Sprite I+149,640,480,1
            shields = shields - 1
            multiplier = 1
            Play sound 6
            Make_Explosion(sprite x(1)-10,sprite y(1)-10)
         endif
      endif
   next I

return

Missle_Collision:

For I = 1 to 24
      If sprite exist(I+175)
         IF sprite hit(1,175+I) = 1
            Missle(I,1) = 0
            Shields = Shields - 2
            multiplier = 1
            Sprite I+175,-50,-50,1
            Play sound 6
            Make_Explosion(sprite x(1)-10,sprite y(1)-10)
         endif
      endif
   next I

return
Alien_Collision:

For I = 10 to 99
      If sprite exist(I) = 1
         If sprite hit(1,I) = 1
            If alien(I-9,4) <> 16
               Sprite I,0,480,1
               alien(I-9,1) = 0
               make_explosion(Sprite x(1)-10,Sprite y(1)-10)
               Play sound 6
               shields = shields - 1
               multiplier = 1
            endif
            If alien(I-9,4) = 16
               Alien(I-9,8) = Alien(I-9,8) - 2
               Sheilds = sheilds - 1
               multiplier = 1
               Play sound 6
               make_explosion(Sprite x(1)-10,Sprite y(1)-10)
            endif
         endif
      endif
   next I

return

Powerup_Collision:

If sprite exist(2)
      If sprite hit(1,2) = 1
         If powerup(4) = 59
            shields = shields + 1
            Play sound 10
         endif
         If powerup(4) = 61
            multiplier = multiplier + 1
            Play sound 11
         endif
         If powerup(4) = 63
            Score = Score + 100*multiplier
            Play sound 12
         endif
         sprite 2,640,480,1
         Powerup(1) = 0
      endif
   endif

return

Make_Alien:

If sector = 2 and Boss_exists = 1 then goto leavethisplace

If alientimer < timer() - level

level = level - 5

alientimer = timer()
         For I = 1 to maxaliens

If Alien(I,1) = 0
               Alien(I,1) = 1
               Alien(I,2) = 640
               If sector = 1 then Alien(I,4) = rnd(4)+1
               If sector = 2 and Boss_exists = 0
                  Alien(I,4) = 16
                  Boss_exists = 1
               endif

If alien(I,4) = 5 then Alien(I,4) = 13
               If alien(I,4) = 4 then Alien(I,4) = 10
               If Alien(I,4) = 3 then Alien(I,4) = 7
               If alien(I,4) = 2 then Alien(I,4) = 4

Alien(I,5) = 1

If alien(I,4) = 1 then Alien(I,6) = 21
               If alien(I,4) = 4 then Alien(I,6) = 39
               IF alien(I,4) = 7 then Alien(I,6) = 32
               If alien(I,4) = 10 then Alien(I,6) = 31
               If alien(I,4) = 13 then Alien(I,6) = 33
               If alien(I,4) = 16 then Alien(I,6) = 77

IF alien(I,4) = 7 then Alien(I,7) = 50
               If alien(I,4) = 10 then Alien(I,7) = rnd(1)+1
               IF Alien(I,4) = 10 and Alien(I,7) = 1 then Alien(I,7) = 3
               IF Alien(I,4) = 10 and Alien(I,7) = 2 then Alien(I,7) = -3
               If alien(I,4) = 10 then Alien(I,8) = timer()
               If alien(I,4) = 13 then Alien(I,7) = timer()
               If alien(I,4) = 16 then Alien(I,7) = timer()
               If alien(I,4) = 16 then Alien(I,8) = 50
               If alien(I,4) = 16 then Alien(I,9) = 2

If Alien(I,4) <> 16 then Alien(I,3) = rnd(320-Alien(I,6))+80
               If Alien(I,4) = 16 then Alien(I,3) = 150
               goto leavethisplace
            endif

next I
      Leavethisplace:

endif

return

Move_Alien:

For I = 1 to maxaliens

If Alien(I,1) = 1
         If Alien(I,4) = 1
            Alien(I,2) = Alien(I,2) - 4
            If ppos(2) > Alien(I,3) then Alien(I,3) = Alien(I,3) + 1
            If ppos(2) < Alien(I,3) then Alien(I,3) = Alien(I,3) - 1
            If Alien(I,2) < -30 then Alien(I,1) = 0
         endif
         If Alien(I,4) = 4
            Alien(I,2) = Alien(I,2) - 10
            If Alien(I,2) < -50 then Alien(I,1) = 0
         endif
         If Alien(I,4) = 7
            Alien(I,2) = Alien(I,2) - int(Alien(I,7)/2)
            Alien(I,7) = Alien(I,7) - 1
            If Alien(I,2) > 645 then Alien(I,1) = 0
         endif
         If alien(I,4) = 10
            Alien(I,2) = Alien(I,2) - 4
            Alien(I,3) = Alien(I,3) + Alien(I,7)
            If Alien(I,3) < 75 then Alien(I,7) = 3
            If Alien(I,3) > 415-Alien(I,6) then Alien(I,7) = -3
            If Alien(I,2) < -50 then Alien(I,1) = 0
         endif
         If alien(I,4) = 13
            Alien(I,2) = Alien(I,2) - 10
            If ppos(2) > Alien(I,3)+10 then Alien(I,3) = Alien(I,3) + 2
            If ppos(2) < Alien(I,3)-10 then Alien(I,3) = Alien(I,3) - 2
            If Alien(I,2) < -50 then Alien(I,1) = 0
         endif
         If alien(I,4) = 16
            If Alien(I,2) > 500 then Alien(I,2) = Alien(I,2) - 4
            ALien(I,3) = Alien(I,3) + Alien(I,9)
            If Alien(I,3) < 85 then Alien(I,9) = 2
            If Alien(I,3) > 390-Alien(I,6) then Alien(I,9) = -2
         endif
      endif

next I

return

Draw_Alien:

For I = 1 to maxaliens
      If Alien(I,1) = 1 then Sprite 9+I,Alien(I,2),Alien(I,3),98+Alien(I,4)+Alien(I,5)
   next I

return

Draw_Explosion:

For I = 1 to 15
      If explosion(I,1) = 1 then Sprite explosion(I,5),explosion(I,2),explosion(I,3),explosion(I,4)+49
   next I

return

Make_Powerup:

If Poweruptimer < timer() - 10000 and rnd(100) = 1
      If powerup(1) = 0
         Powerup(1) = 1
         Powerup(2) = 640
         Powerup(3) = rnd(320-20)+80
         Powerup(4) = rnd(2)+1
         If Powerup(4) = 3 then Powerup(4) = 59
         If powerup(4) = 2 then Powerup(4) = 61
         If powerup(4) = 1 then Powerup(4) = 63
         Powerup(5) = 1
      endif
      Poweruptimer = timer()
   endif

return

Draw_Powerup:

If Powerup(1) = 1
      Powerup(2) = Powerup(2) - 5
      Sprite 2,Powerup(2),Powerup(3),Powerup(4)+Powerup(5)
      If powerup(2) < -20
         powerup(1) = 0
         sprite 2,640,480,1
      endif
   endif

return

function Make_explosion(x,y)

For I = 1 to 15

If explosion(I,1) = 0
         explosion(I,1) = 1
         explosion(I,2) = x
         explosion(I,3) = y
         explosion(I,4) = 1
         explosion(I,5) = I+119
         goto Ihatethis
      endif

next I
Ihatethis:
endfunction

Titlescreen:

Paste image 200,0,80
   fadein
   sync
   fadeout
   Paste image 201,0,80
   fadein
   sync
   fadeout
   sync
   cls 0

AAABBBCCC:

gosub Init_Stars
   gosub Draw_Stars
   Sprite 1,0,80,202
   show sprite 1
   set text size 30
   Center text 320,200,"Play"
   Center text 320,250,"About"
   Center text 320,300,"Credits"
   Center text 320,350,"Quit"

fadein

show mouse

Do

gosub draw_stars

Sprite 1,0,80,202
   show sprite 1

If mousex() < 360 and mousex() > 280 and mousey() > 200 and mousey() < 230
      Ink rgb(255,0,0), 0
      If mouseclick() = 1 then getready = 1
   else
      Ink rgb(255,255,255), 0
   endif
   Center text 320,200,"Play"

If mousex() < 350 and mousex() > 270 and mousey() > 250 and mousey() < 280
      Ink rgb(255,0,0), 0
      If mouseclick() = 1 then about = 1
   else
      Ink rgb(255,255,255), 0
   endif
   Center text 320,250,"About"

If mousex() < 380 and mousex() > 260 and mousey() > 300 and mousey() < 330
      Ink rgb(255,0,0), 0
      If mouseclick() = 1 then credits = 1
   else
      Ink rgb(255,255,255), 0
   endif
   Center text 320,300,"Credits"

If mousex() < 360 and mousex() > 280 and mousey() > 350 and mousey() < 380
      Ink rgb(255,0,0), 0
      If mouseclick() = 1 then quit = 1
   else
      Ink rgb(255,255,255), 0
   endif
   Center text 320,350,"Quit"

sync

If about = 1
      about = 0
      hide mouse
      goto about
   endif
   If getready = 1
      getready = 0
      hide mouse
      goto getready
   endif
   IF quit = 1
      end
   endif
   If credits = 1
      credits = 0
      hide mouse
      goto credits
   endif

Loop

beginthegame:
   hide mouse
   show sprite 1

goto start

About:

fadeout
   hide sprite 1
   sync
   Paste image 203,0,80
   fadein
   sync
   repeat
   until returnkey() = 1
   fadeout

goto AAABBBCCC

Getready:

fadeout
   hide sprite 1
   sync
   paste image 204,0,80
   fadein
   sync
   fadeout
   cls 0
   sync
   fadein

goto beginthegame

Win:

fadeout
   sync
   for I = 1 to 200
      If sprite exist(I) then delete sprite I
   next I
   cls
   Paste image 205,0,80
   sync
   fadein
   end

goto AAABBBCCC

Lose:

fadeout
   sync
   for I = 1 to 200
      If sprite exist(I) then delete sprite I
   next I
   cls
   Paste image 206,0,80
   sync
   fadein
   end

goto aaabbbccc

Credits:

fadeout
   hide sprite 1
   sync
   cls
   Paste image 207,0,80
   sync
   fadein
   repeat
   until returnkey() = 1
   fadeout

goto AAABBBCCC

Function FadeOut
  Done=0
  T=Timer()
  EndTime#=T+(2000): Rem 1000=1 second 2000=2 seconds and so on
  Step#=EndTime#-T
  Repeat
    CurT#=Timer()-T
    Ratio#=CurT#/Step#
    RGBVal=255-(255*Ratio#)
    If RGBVal<0 then RGBVal=0 : Done=1
    Set Gamma RGBVal,RGBVal,RGBVal
    Sync
  Until Done=1
endfunction

Function FadeIn
  Done=0
  T=Timer()
  EndTime#=T+(2000): Rem 1000=1 second 2000=2 seconds and so on
  Step#=EndTime#-T
  Repeat
    CurT#=Timer()-T
    Ratio#=CurT#/Step#
    RGBVal=(255*Ratio#)
    If RGBVal>255 then RGBVal=255 : Done=1
    Set Gamma RGBVal,RGBVal,RGBVal
    Sync
  Until Done=1
endfunction

+ Code Snippet

remstart
   -------------------------------------------------------------------
   program name: Laser Assault 2
   -------------------------------------------------------------------
   written by: UFO
   date: 11/19/05
   -------------------------------------------------------------------
   comments:
      Image Usage:
         (1-3)-player ship
         (4)-Player bullet
         (5)-Enemy Bullet
         (6) - missle
         (50-55) - explosion1
         (60-80) - powerups
         (100^)-Aliens
      Sprite Usage:
         1 - Player ship
         2 - powerup
         (100-110) - Player Bullets
         (10-99) - Aliens
         (120-135) - explosions
         (150-175) - Enemy Bullets
         (176-200) - Missle
      Sound usage:
         1 - Player shoot
      Arrays:
         PBullet(maxnum,3) - 1=exists 2=x 3=y
         Alien(maxnum,5) - 1=exists 2=x 3=y 4=type 5=frame 6 -Height 7-special 8-special2 9-special3
         Explosion(maxnum,3) 1=exists 2=x 3=y 4=frame 5=sprite num
         Ebullet(25,3) - 1=exists 2=x 3=y 4=speed
         Powerup(5) 1=exists 2=x 3=y 4=type 5=frame
         Missle(24,3) 1=exists 2=x 3=y
   -------------------------------------------------------------------
remend

amountofstars=300
Dim Stars(amountofstars,3)

hide mouse
Sync on
sync rate 40

gosub Load_Images
gosub load_sounds

gosub Titlescreen
start:

Animtimer = timer()
Frame = 1
Dim Ppos(2)
Ppos(1) = 30
Ppos(2) = 240
maxplayerbullets = 10
Dim PBullet(maxplayerbullets,3)
AlienTimer = timer()
Maxaliens = 20
Dim Alien(Maxaliens,9)
Dim explosion(15,5)
level = 1000
shields = 10
Maxebullets = 25
Dim EBullet(maxebullets,4)
Score = 0
Multiplier = 1
Dim Powerup(5)
Poweruptimer = timer()
sector = 1
boss_exists = 0
dim Missle(24,3)
bossdestroyed = 0
about = 0
getready = 0
quit = 0

amountofstars=300
Dim Stars(amountofstars,3)
gosub Init_Stars

gosub Draw_Stars
gosub Draw_Ship


Do

   gosub Draw_Stars

   gosub Draw_Ship
   gosub Move_Ship

   gosub Make_Alien
   gosub Move_Alien
   gosub Draw_Alien

   gosub Make_Alien_Shoot
   gosub Enemy_bullet
   gosub draw_missle

   gosub Shooting
   gosub Move_Bullets
   gosub Draw_Bullets

   gosub Bullet_Collision
   gosub Enemy_Bullet_Collision
   gosub Alien_Collision
   gosub powerup_Collision
   gosub Missle_Collision

   gosub draw_explosion

   gosub MAke_Powerup
   gosub draw_powerup

   gosub Animation

   Print "Shields:";
   Print shields;
   Print "   Danger Level:";
   Print 2000-level;
   Print "   Score:";
   Print score;
   Print "   Multiplier:";
   Print Multiplier

   If level < 150 then sector = 2
   If shields <= 0 then goto lose
   IF shiftkey() = 1 then sector = 2

   If bossdestroyed = 1 then gosub win


   sync

Loop



Init_Stars:

   For I = 1 to amountofstars

      Stars(I,1) = rnd(640)
      Stars(I,2) = rnd(320)+80
      Stars(I,3) = rnd(9)+1

   next I

return

Draw_Stars:

   cls
   Ink rgb(255,255,255),0

   For I = 1 to Amountofstars

      Stars(I,1) = Stars(I,1) - Stars(I,3)
      If Stars(I,1) < 0 then Stars(I,1) = 640
      Dot Stars(I,1),Stars(I,2)

   next I

return

Load_images:

   Load image "media/Player/Ablast1.bmp",1
   Load image "media/player/Ablast2.bmp",2
   Load image "media/player/Ablast3.bmp",3

   Load image "media/player/Bullet.bmp",4
   Load image "media/aliens/bullet.bmp",5
   Load image "media/aliens/missle.bmp",6


   Load image "media/explosions/1.bmp",50
   Load image "media/explosions/2.bmp",51
   Load image "media/explosions/3.bmp",52
   Load image "media/explosions/4.bmp",53
   Load image "media/explosions/5.bmp",54
   Load image "media/explosions/6.bmp",55

   Load image "media/powerups/Live1.bmp",60
   Load image "media/powerups/Live2.bmp",61
   Load image "media/powerups/Multiplier1.bmp",62
   Load image "media/powerups/Multiplier2.bmp",63
   Load image "media/powerups/Points1.bmp",64
   Load image "media/powerups/Points2.bmp",65

   Load image "media/aliens/1-1.bmp",100
   Load image "media/aliens/1-2.bmp",101
   Load image "media/aliens/1-3.bmp",102

   Load image "media/aliens/2-1.bmp",103
   Load image "media/aliens/2-2.bmp",104
   Load image "media/aliens/2-3.bmp",105

   Load image "media/aliens/3-1.bmp",106
   Load image "media/aliens/3-2.bmp",107
   Load image "media/aliens/3-3.bmp",108

   Load image "media/aliens/4-1.bmp",109
   Load image "media/aliens/4-2.bmp",110
   Load image "media/aliens/4-3.bmp",111

   Load image "media/aliens/5-1.bmp",112
   Load image "media/aliens/5-2.bmp",113
   Load image "media/aliens/5-3.bmp",114

   Load image "media/aliens/boss1.bmp",115
   Load image "media/aliens/boss1.bmp",116
   Load image "media/aliens/boss1.bmp",117

   Load image "media/titles/Title.bmp",200
   Load image "media/titles/by.bmp",201
   Load image "media/titles/Laser Assault 2.bmp",202
   Load image "media/titles/About.bmp",203
   Load image "media/titles/Get Ready.bmp",204
   Load image "media/titles/Win.bmp",205
   Load image "media/titles/lose.bmp",206
   Load image "media/titles/credits.bmp",207

return

Load_sounds:


   Load sound "media/sounds/phaser.wav",1
   Load sound "media/sounds/lasergun.wav",2
   Load sound "media/sounds/explode.wav",5
   Load sound "media/sounds/explode3.wav",6
   Load sound "media/sounds/scifi1.wav",10
   Load sound "media/sounds/Scifi4.wav",11
   Load sound "media/sounds/Scifi5.wav",12

   Load music "media/bgplay.mid",1
   Loop music 1
Draw_SHip:

   Sprite 1,ppos(1),ppos(2),frame

return

Move_Ship:

   If upkey() = 1 then ppos(2) = curvevalue(ppos(2)-25,ppos(2),4)
   If downkey() = 1 then ppos(2) = curvevalue(ppos(2)+25,ppos(2),4)
   If leftkey() = 1 then ppos(1) = curvevalue(ppos(1)-25,ppos(1),4)
   If rightkey() = 1 then ppos(1) = curvevalue(ppos(1)+25,ppos(1),4)

   If ppos(1)<0 then ppos(1) = 1
   If ppos(1)>640-sprite width(1) then ppos(1) = 639-sprite width(1)
   If ppos(2)<80 then ppos(2) = 81
   If ppos(2)>400-sprite height(1) then ppos(2) = 399-sprite height(1)

return

Animation:

   If Animtimer < timer() - 50
      Frame = Frame + 1

      For I = 1 to maxaliens
         Alien(I,5) = Alien(I,5) + 1
         If Alien(I,5) = 4 then Alien(I,5) = 1
      next I

      For I = 1 to 15
         If explosion(I,1) = 1 then Explosion(I,4) = Explosion(I,4) + 1
         If explosion(I,4) = 6
            explosion(I,1) = 0
            sprite explosion(I,5),640,480,1
         endif
      next I

      If powerup(1) = 1
         Powerup(5) = powerup(5) + 1
         If powerup(5) = 3 then powerup(5) = 1
      endif

      animtimer = timer()
   endif
   If Frame = 4 then Frame = 1

return

Shooting:

   If spacekey() = 1 or controlkey() = 1
   If shoot = 1
      shoot = 0
      Play sound 1
      For I = 1 to maxplayerbullets
         If PBullet(I,1) = 0
            PBullet(I,1) = 1
            PBullet(I,2) = Ppos(1)+sprite width(1)-20
            PBullet(I,3) = Ppos(2)+(sprite height(1)/2)-2
            Goto leave
         endif
      next I
      leave:
   endif
   endif

   If spacekey() = 0 and controlkey() = 0 then shoot = 1

return

Move_Bullets:

   For I = 1 to maxplayerbullets

      If PBullet(I,1) = 1
         PBullet(I,2) = curvevalue(PBullet(I,2)+50,PBullet(I,2),3)
         If PBullet(I,2) > 700 then PBullet(I,1) = 0
      endif

   next I

return

Draw_Bullets:

   For I = 1 to maxplayerbullets

      If PBullet(I,1) = 1
         Sprite 99+I,PBullet(I,2),PBullet(I,3),4
      endif

   next I

return

Make_Alien_Shoot:

   For I = 1 to maxaliens
      If Alien(I,1) = 1
         If Alien(I,4) = 10
            If Alien(I,8) < timer() - 600
               For N = 1 to maxebullets
                  If Ebullet(N,1) = 0
                     Ebullet(N,1) = 1
                     Ebullet(N,2) = Alien(I,2)
                     Ebullet(N,3) = Alien(I,3) + (Alien(I,6)/2)-2
                     Ebullet(N,4) = 10
                     goto Imgoingtodie
                  endif
               next I
               Imgoingtodie:
               Play sound 2
               Alien(I,8) = timer()
            endif
         endif
         If Alien(I,4) = 13
            If Alien(I,7) < timer() - 700
               For N = 1 to maxebullets
                  If Ebullet(N,1) = 0
                     Ebullet(N,1) = 1
                     Ebullet(N,2) = Alien(I,2)+25
                     Ebullet(N,3) = Alien(I,3) + (Alien(I,6)/2)-2
                     Ebullet(N,4) = 10
                     goto Hellonstuff
                  endif
               next N
               Hellonstuff:
               Play sound 2
               Alien(I,7) = timer()
            endif
         endif
         If Alien(I,4) = 16
            If ALien(I,7) < timer() - 500
               ALien(I,7) = timer()
               thingy = rnd(3)+1
               If thingy = 1
                  Play sound 2
                  For X = 1 to 80 step 20
                     For N = 1 to maxebullets
                        If Ebullet(N,1) = 0
                           Ebullet(N,1) = 1
                           Ebullet(N,2) = Alien(I,2) + 20
                           Ebullet(N,3) = Alien(I,3) + X
                           Ebullet(N,4) = 10
                           goto computersarecool
                        endif
                     next N
                     Computersarecool:
                  next X
                  thingy = 0
               endif
               If thingy = 2
                  Play sound 2
                  For x = 0 to 80 step 40
                     For N = 1 to maxebullets
                        If Ebullet(N,1) = 0
                           Ebullet(N,1) = 1
                           Ebullet(N,2) = Alien(I,2) + 20
                           Ebullet(N,3) = Alien(I,3) + X
                           Ebullet(N,4) = 7
                           goto IfIwerearichman
                        endif
                     next N
                     IfIwerearichman:
                  next X
                  For x = 20 to 60 step 40
                     For N = 1 to maxebullets
                        If Ebullet(N,1) = 0
                           Ebullet(N,1) = 1
                           Ebullet(N,2) = Alien(I,2) + 20
                           Ebullet(N,3) = Alien(I,3) + X
                           Ebullet(N,4) = 10
                           goto bleeblah
                        endif
                     next N
                     bleeblah:
                  next X
               endif
               If thingy = 3
                  Play sound 2
                  gosub Shoot_Missles
               endif
            endif
         endif
      endif
   next I

return

Shoot_Missles:

   For I = 1 to maxaliens
      If alien(I,4) = 16
         For x = 1 to 24
            If Missle(x,1) = 0
               Missle(x,1) = 1
               Missle(x,2) = Alien(I,2)-20
               Missle(x,3) = Alien(I,3) + Alien(I,6)/2-29
               goto onceuponatime
            endif
         next x
         onceuponatime:
         For x = 1 to 24
            If missle(x,1) = 0
               Missle(x,1) = 1
               Missle(x,2) = alien(I,2)-20
               Missle(x,3) = Alien(I,3) + Alien(I,6)/2+20
               goto christmas
            endif
         next x
         christmas:
      endif
   next I

return

Draw_Missle:

   For I = 1 to 24
      IF missle(I,1) = 1 then sprite 175+I,Missle(I,2),Missle(I,3),6
      Missle(I,2) = Missle(I,2) - 12
      If Missle(I,3) < ppos(2) - 25 then Missle(I,3) = Missle(I,3) + 5
      If missle(I,3) > ppos(2) + 25 then Missle(I,3) = Missle(I,3) - 5
      If missle(I,2) < -30 then missle(I,1) = 0
   next I

return

Enemy_Bullet:

   For I = 1 to maxebullets
      If Ebullet(I,1) = 1
         Ebullet(I,2) = Ebullet(I,2) - Ebullet(I,4)
         Sprite 149+I,Ebullet(I,2),Ebullet(I,3),5
         If Ebullet(I,2) < -10 then Ebullet(I,1) = 0
      endif
   next I

return

Bullet_Collision:

   For I = 1 to maxplayerbullets

      If Sprite exist(99+I) = 1

         For N = 1 to maxaliens

            If sprite exist(9+N) = 1
               If Sprite hit(I+99,9+N) = 1
                  If Alien(N,4) <> 16
                     Alien(N,1) = 0
                     PBullet(I,1) = 0
                     Make_explosion(Sprite x(99+I)+sprite width(99+I)-30,Sprite y(99+I)-30)
                     Play sound 5
                     sprite I+99,640,480,1
                     sprite N+9,0,480,1
                     If Alien(I,4) = 1 then score = score + 20*multiplier
                     If alien(I,4) = 4 then score = score + 5*multiplier
                     If alien(I,4) = 7 then score = score + 50*multiplier
                     If alien(I,4) = 10 then score = score + 40*multiplier
                     If alien(I,4) = 13 then score = score + 45*multiplier
                  endif
                  If ALien(N,4) = 16
                     Alien(N,8) = Alien(N,8) - 1
                     PBullet(I,1) = 0
                     Make_explosion(Sprite x(99+I)+sprite width(99+I)-30,Sprite y(99+I)-30)
                     Play sound 5
                     Sprite I+99,640,480,1
                     Score = score + 20*multiplier
                     If Alien(N,8) =< 0
                        For X = 1 to 10
                           Make_explosion(Sprite x(9+N)+rnd(80),Sprite y(9+N)+rnd(68))
                        next I
                        Play sound 6
                        Sprite N+9,0,480,1
                        Alien(N,1) = 0
                        bossdestroyed = 1
                     endif
                  endif

               endif

            endif

         Next N

      endif

   Next I

return

Enemy_Bullet_Collision:

   For I = 1 to maxebullets
      If sprite exist(I+149) = 1
         If Sprite hit(1,I+149) = 1
            Ebullet(I,1) = 0
            Sprite I+149,640,480,1
            shields = shields - 1
            multiplier = 1
            Play sound 6
            Make_Explosion(sprite x(1)-10,sprite y(1)-10)
         endif
      endif
   next I

return

Missle_Collision:

   For I = 1 to 24
      If sprite exist(I+175)
         IF sprite hit(1,175+I) = 1
            Missle(I,1) = 0
            Shields = Shields - 2
            multiplier = 1
            Sprite I+175,-50,-50,1
            Play sound 6
            Make_Explosion(sprite x(1)-10,sprite y(1)-10)
         endif
      endif
   next I

return
Alien_Collision:

   For I = 10 to 99
      If sprite exist(I) = 1
         If sprite hit(1,I) = 1
            If alien(I-9,4) <> 16
               Sprite I,0,480,1
               alien(I-9,1) = 0
               make_explosion(Sprite x(1)-10,Sprite y(1)-10)
               Play sound 6
               shields = shields - 1
               multiplier = 1
            endif
            If alien(I-9,4) = 16
               Alien(I-9,8) = Alien(I-9,8) - 2
               Sheilds = sheilds - 1
               multiplier = 1
               Play sound 6
               make_explosion(Sprite x(1)-10,Sprite y(1)-10)
            endif
         endif
      endif
   next I

return

Powerup_Collision:

   If sprite exist(2)
      If sprite hit(1,2) = 1
         If powerup(4) = 59
            shields = shields + 1
            Play sound 10
         endif
         If powerup(4) = 61
            multiplier = multiplier + 1
            Play sound 11
         endif
         If powerup(4) = 63
            Score = Score + 100*multiplier
            Play sound 12
         endif
         sprite 2,640,480,1
         Powerup(1) = 0
      endif
   endif

return

Make_Alien:

If sector = 2 and Boss_exists = 1 then goto leavethisplace

   If alientimer < timer() - level

      level = level - 5

      alientimer = timer()
         For I = 1 to maxaliens

            If Alien(I,1) = 0
               Alien(I,1) = 1
               Alien(I,2) = 640
               If sector = 1 then Alien(I,4) = rnd(4)+1
               If sector = 2 and Boss_exists = 0
                  Alien(I,4) = 16
                  Boss_exists = 1
               endif

               If alien(I,4) = 5 then Alien(I,4) = 13
               If alien(I,4) = 4 then Alien(I,4) = 10
               If Alien(I,4) = 3 then Alien(I,4) = 7
               If alien(I,4) = 2 then Alien(I,4) = 4

               Alien(I,5) = 1

               If alien(I,4) = 1 then Alien(I,6) = 21
               If alien(I,4) = 4 then Alien(I,6) = 39
               IF alien(I,4) = 7 then Alien(I,6) = 32
               If alien(I,4) = 10 then Alien(I,6) = 31
               If alien(I,4) = 13 then Alien(I,6) = 33
               If alien(I,4) = 16 then Alien(I,6) = 77

               IF alien(I,4) = 7 then Alien(I,7) = 50
               If alien(I,4) = 10 then Alien(I,7) = rnd(1)+1
               IF Alien(I,4) = 10 and Alien(I,7) = 1 then Alien(I,7) = 3
               IF Alien(I,4) = 10 and Alien(I,7) = 2 then Alien(I,7) = -3
               If alien(I,4) = 10 then Alien(I,8) = timer()
               If alien(I,4) = 13 then Alien(I,7) = timer()
               If alien(I,4) = 16 then Alien(I,7) = timer()
               If alien(I,4) = 16 then Alien(I,8) = 50
               If alien(I,4) = 16 then Alien(I,9) = 2

               If Alien(I,4) <> 16 then Alien(I,3) = rnd(320-Alien(I,6))+80
               If Alien(I,4) = 16 then Alien(I,3) = 150
               goto leavethisplace
            endif

         next I
      Leavethisplace:

   endif

return

Move_Alien:

   For I = 1 to maxaliens

      If Alien(I,1) = 1
         If Alien(I,4) = 1
            Alien(I,2) = Alien(I,2) - 4
            If ppos(2) > Alien(I,3) then Alien(I,3) = Alien(I,3) + 1
            If ppos(2) < Alien(I,3) then Alien(I,3) = Alien(I,3) - 1
            If Alien(I,2) < -30 then Alien(I,1) = 0
         endif
         If Alien(I,4) = 4
            Alien(I,2) = Alien(I,2) - 10
            If Alien(I,2) < -50 then Alien(I,1) = 0
         endif
         If Alien(I,4) = 7
            Alien(I,2) = Alien(I,2) - int(Alien(I,7)/2)
            Alien(I,7) = Alien(I,7) - 1
            If Alien(I,2) > 645 then Alien(I,1) = 0
         endif
         If alien(I,4) = 10
            Alien(I,2) = Alien(I,2) - 4
            Alien(I,3) = Alien(I,3) + Alien(I,7)
            If Alien(I,3) < 75 then Alien(I,7) = 3
            If Alien(I,3) > 415-Alien(I,6) then Alien(I,7) = -3
            If Alien(I,2) < -50 then Alien(I,1) = 0
         endif
         If alien(I,4) = 13
            Alien(I,2) = Alien(I,2) - 10
            If ppos(2) > Alien(I,3)+10 then Alien(I,3) = Alien(I,3) + 2
            If ppos(2) < Alien(I,3)-10 then Alien(I,3) = Alien(I,3) - 2
            If Alien(I,2) < -50 then Alien(I,1) = 0
         endif
         If alien(I,4) = 16
            If Alien(I,2) > 500 then Alien(I,2) = Alien(I,2) - 4
            ALien(I,3) = Alien(I,3) + Alien(I,9)
            If Alien(I,3) < 85 then Alien(I,9) = 2
            If Alien(I,3) > 390-Alien(I,6) then Alien(I,9) = -2
         endif
      endif

   next I

return

Draw_Alien:

   For I = 1 to maxaliens
      If Alien(I,1) = 1 then Sprite 9+I,Alien(I,2),Alien(I,3),98+Alien(I,4)+Alien(I,5)
   next I

return

Draw_Explosion:

   For I = 1 to 15
      If explosion(I,1) = 1 then Sprite explosion(I,5),explosion(I,2),explosion(I,3),explosion(I,4)+49
   next I

return

Make_Powerup:

   If Poweruptimer < timer() - 10000 and rnd(100) = 1
      If powerup(1) = 0
         Powerup(1) = 1
         Powerup(2) = 640
         Powerup(3) = rnd(320-20)+80
         Powerup(4) = rnd(2)+1
         If Powerup(4) = 3 then Powerup(4) = 59
         If powerup(4) = 2 then Powerup(4) = 61
         If powerup(4) = 1 then Powerup(4) = 63
         Powerup(5) = 1
      endif
      Poweruptimer = timer()
   endif

return

Draw_Powerup:

   If Powerup(1) = 1
      Powerup(2) = Powerup(2) - 5
      Sprite 2,Powerup(2),Powerup(3),Powerup(4)+Powerup(5)
      If powerup(2) < -20
         powerup(1) = 0
         sprite 2,640,480,1
      endif
   endif

return

function Make_explosion(x,y)

   For I = 1 to 15

      If explosion(I,1) = 0
         explosion(I,1) = 1
         explosion(I,2) = x
         explosion(I,3) = y
         explosion(I,4) = 1
         explosion(I,5) = I+119
         goto Ihatethis
      endif

   next I
Ihatethis:
endfunction

Titlescreen:

   Paste image 200,0,80
   fadein
   sync
   fadeout
   Paste image 201,0,80
   fadein
   sync
   fadeout
   sync
   cls 0

   AAABBBCCC:

   gosub Init_Stars
   gosub Draw_Stars
   Sprite 1,0,80,202
   show sprite 1
   set text size 30
   Center text 320,200,"Play"
   Center text 320,250,"About"
   Center text 320,300,"Credits"
   Center text 320,350,"Quit"

   fadein

   show mouse

   Do

   gosub draw_stars

   Sprite 1,0,80,202
   show sprite 1

   If mousex() < 360 and mousex() > 280 and mousey() > 200 and mousey() < 230
      Ink rgb(255,0,0), 0
      If mouseclick() = 1 then getready = 1
   else
      Ink rgb(255,255,255), 0
   endif
   Center text 320,200,"Play"

   If mousex() < 350 and mousex() > 270 and mousey() > 250 and mousey() < 280
      Ink rgb(255,0,0), 0
      If mouseclick() = 1 then about = 1
   else
      Ink rgb(255,255,255), 0
   endif
   Center text 320,250,"About"

   If mousex() < 380 and mousex() > 260 and mousey() > 300 and mousey() < 330
      Ink rgb(255,0,0), 0
      If mouseclick() = 1 then credits = 1
   else
      Ink rgb(255,255,255), 0
   endif
   Center text 320,300,"Credits"

   If mousex() < 360 and mousex() > 280 and mousey() > 350 and mousey() < 380
      Ink rgb(255,0,0), 0
      If mouseclick() = 1 then quit = 1
   else
      Ink rgb(255,255,255), 0
   endif
   Center text 320,350,"Quit"

   sync

   If about = 1
      about = 0
      hide mouse
      goto about
   endif
   If getready = 1
      getready = 0
      hide mouse
      goto getready
   endif
   IF quit = 1
      end
   endif
   If credits = 1
      credits = 0
      hide mouse
      goto credits
   endif

   Loop

   beginthegame:
   hide mouse
   show sprite 1

goto start

About:

   fadeout
   hide sprite 1
   sync
   Paste image 203,0,80
   fadein
   sync
   repeat
   until returnkey() = 1
   fadeout


goto AAABBBCCC

Getready:

   fadeout
   hide sprite 1
   sync
   paste image 204,0,80
   fadein
   sync
   fadeout
   cls 0
   sync
   fadein

goto beginthegame

Win:

   fadeout
   sync
   for I = 1 to 200
      If sprite exist(I) then delete sprite I
   next I
   cls
   Paste image 205,0,80
   sync
   fadein
   end

goto AAABBBCCC

Lose:

   fadeout
   sync
   for I = 1 to 200
      If sprite exist(I) then delete sprite I
   next I
   cls
   Paste image 206,0,80
   sync
   fadein
   end

goto aaabbbccc

Credits:

   fadeout
   hide sprite 1
   sync
   cls
   Paste image 207,0,80
   sync
   fadein
   repeat
   until returnkey() = 1
   fadeout

goto AAABBBCCC

Function FadeOut
  Done=0
  T=Timer()
  EndTime#=T+(2000): Rem 1000=1 second 2000=2 seconds and so on
  Step#=EndTime#-T
  Repeat
    CurT#=Timer()-T
    Ratio#=CurT#/Step#
    RGBVal=255-(255*Ratio#)
    If RGBVal<0 then RGBVal=0 : Done=1
    Set Gamma RGBVal,RGBVal,RGBVal
    Sync
  Until Done=1
endfunction

Function FadeIn
  Done=0
  T=Timer()
  EndTime#=T+(2000): Rem 1000=1 second 2000=2 seconds and so on
  Step#=EndTime#-T
  Repeat
    CurT#=Timer()-T
    Ratio#=CurT#/Step#
    RGBVal=(255*Ratio#)
    If RGBVal>255 then RGBVal=255 : Done=1
    Set Gamma RGBVal,RGBVal,RGBVal
    Sync
  Until Done=1
endfunction

Sorry if this one doesn't work. I just got the DBC enhancement pack, and midis don't work. I'm trying to fix this, but ATM, I can't run this to check if it works.

Don't Say Like

Attachments

Login to view attachments

Back to top

Profile PM Email Website

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 20th Jul 2006 20:36 Edited at: 20th Jul 2006 20:48

Link

Laser Assault 3

remstart
   -------------------------------------------------------------------
   Program name: Laser Assault 3
   -------------------------------------------------------------------
   Written by: UFO
   Date: 2/1/06
   -------------------------------------------------------------------
   Arrays: PlayerBullet#(50,4) 1-exists 2-x 3-y 4-z angle
           Wave(amtlevels,20,4) 1-type 2-amount 3-timer 4-randomizATION
           Alien#(40,7) 1-exists 2-x 3-y 4-angle 5-type 6-speed 7-shoot timer 8-health 9-1 10-2 11-3 12-4
           Explosion#(20,4) 1-exists 2-x 3-y 4-frame
           AlienBullet#(50,4) 1-exists 2-x 3-y 4-z angle
           AlienMissle#(25,4) 1-exists 2-x 3-y 4-z angle
           Coin#(50,4) 1-exists 2-x 3-y 4-zang 5-mode

Images: 1-Player 1000-Background 1001-PlayerBullet# 500-520-Aliens
           100-115-explosion 1002-alien laser 1003-Alien missle 1004-pod 200-powerups
           1005-coin 1006-Fireball

Plains: 1-Player 500-549-PlayerBullets 1000-Background 10-49-ALiens
           100-119-Explosions 600-649-Alien Bullets 700-724-Alien Missles
           725-750-alien missles 200-203-pods 210-212 powerups 800-849-Alien Flame
           900-950-coins 300-374-fireballs
   -------------------------------------------------------------------
remend

`GAME SETUP
set display mode 640,480,16
Sync on
hide mouse
autocam off
sync rate 70
`Set camera view 0,90,640,390
color backdrop 0

begingame:
Menu

`WHOLE GAME VARIABLES
`(Variables used the whole game and does not change)
Dim AmountLevels(0)
AmountLevels(0) = 4
Amtlevels = 4
Dim Amountofwaves(Amtlevels)
Dim Wave(Amtlevels,20,4)
Dim AlienNum(amtlevels,20)
Dim Wavenum(amtlevels)
Dim Level(0)
Level(0) = 1
Dim MPB(0)
MPB(0) = 49
Dim Shoot_Status(0)
Shoot_Status(0) = 1
Dim Keypress(0)
Dim Health(0)
Health(0) = 10
Dim Score(0)
Score(0) = 0
Dim Pods(0)
Pods(0) = 0

Position camera 0,0,-38
Point camera 0,0,0
randomize timer()

Load_Levels
Load_Player
Load_Player_Bullets
Load_Aliens

Load_Explosion
Load_Sounds
Load_Music
Load_Coins

Load_Enemy_Bullets
Load_Enemy_Missles
Load_Enemy_flames

Load_Powerups
Load_Pods
Load_Fireballs

Levelstart:

`LEVEL VARIABLES
`(Variables that will change, and is only used for the level,
`and will need to be reset at the begining of each level)
Dim Alien#(40,12)
Dim ALientimer(0)
Dim PlayerBullet#(49,4)
Dim Explosion#(20,4)
Dim AlienNumber(0)
Dim AlienBullet#(50,4)
Dim AlienMissle#(25,4)
Dim AlienFlame#(50,5)
Dim Drain(3)
Dim Add#(3)
Dim Sheild(0)
Sheild(0) = 10
Dim Energy(0)
Energy(0) = 100
Dim Powerup#(3,4)
Dim Star(0)
Dim NoNew(0)
NoNew(0) = 0
Dim Timerthing(0)
Timerthing(0) = 0
Dim Important(0)
Important(0) = 0
Dim Coin#(50,5)
Dim Camerashake#(2)
Dim Fireball#(75,5)

`LEVEL SETUP

Load_Background(level(0))

If image exist(5) = 1 then delete image 5
Load image "media/hud.png",5

Player_Intro

Alientimer(0) = timer()

color backdrop 0

Loopnum = 1

Do

control_player
      Player_Shoot

Move_Player_Bullets
      Move_Enemy_Bullets
      Move_Enemy_Missles
      Move_Enemy_Flames
      Move_Powerups
      Move_Coins
      Move_Fireballs

Update_Shake

Move_Aliens
      Alien_Shoot

Bullet_Collision_ALiens
      Player_Alien_Collision
      Powerup_Collision
      Coin_Collision

Alien_Bullet_Collision_Player
      Missle_Collision_Player
      Alien_Flame_Collision_Player

Draw_Explosion

Position_pods
      Move_Powerups

Texture object 1,1

If star(0) > 0
         star(0) = star(0) - 10
         energy(0) = 100
         sheild(0) = 10
         drain(1) = 0
         drain(2) = 0
         drain(3) = 0
         add#(1) = 0
         add#(2) = 0
         add#(3) = 0
      endif

If star(0) = 10 then play sound 11

Setup_Hud

scroll object texture 1000,0.001,0.0
      scroll object texture 1001,0.0005,0.0

IF ALienNum(level(0),wavenum(level(0))) = Wave(Level(0),Wavenum(Level(0)),2) and NoNew(0) = 0 then New_Wave
      If wavenum(Level(0)) - 1 = amountofwaves(Level(0)) or inkey$() = "d"

NoNew(0) = 1

For x = 1 to 40

IF ALien#(x,1) = 1 and inkey$() <> "d" then goto Thiswontwork

NExt x

IF timerthing(0) = 120

level(0) = Level(0) + 1
            For I = 500 to 549
               IF object exist(I) = 1 then Position object I,0,0,1
            next I
            For I = 10 to 49
               IF object exist(I) = 1 then Position object I,0,0,1
            next I
            For I = 100 to 119
               IF object exist(I) = 1 then Position object I,0,0,1
            next I
            For I = 600 to 649
               IF object exist(I) = 1 then Position object I,0,0,1
            next I
            For I = 700 to 750
               IF object exist(I) = 1 then Position object I,0,0,1
            next I
            For I = 800 to 849
               IF object exist(I) = 1 then Position object I,0,0,1
            next I
            For I = 210 to 212
               IF object exist(I) = 1 then Position object I,0,0,1
            next I
            For I = 900 to 950
               IF object exist(I) = 1 then Position object I,0,0,1
            next I

Player_LEave

goto levelstart

endif
         timerthing(0) = timerthing(0) + 1

Thiswontwork:
      endif
      If Wave(Level(0),wavenum(Level(0)),3) < timer() - alientimer(0) and NoNew(0) = 0 then Create_Aliens

If inkey$() = "a"
      shoot_status(0) = shoot_status(0) + 1
      repeat
      sync
      until inkey$() = ""
      endif

If inkey$() = "s"
      pods(0) = pods(0) + 1
      repeat
      sync
      until inkey$() = ""
      endif

Ink rgb(255,0,0),0
      Set Text Font "Bank Gothic Medium BT"
      Set text size 20
      Text 2,75,"FPS: "+str$(screen fps())
      Text 320,450,"Level 1: Returning To Earth"

Loopnum = Loopnum + 1
      If loopnum = 2
         If drain(1) > 0 then Drain(1) = Drain(1) - 1
         If drain(2) > 0 then Drain(2) = Drain(2) - 1
         If drain(3) > 0 then Drain(3) = Drain(3) - 1
         If sheild(0) < 10 then Add#(2) = Add#(2) + 0.05
         If energy(0) < 100 then add#(3) = Add#(3) + 0.7
         If Add#(2) > 7
            Add#(2) = Add#(2) - 7
            Sheild(0) = Sheild(0) + 1
         endif
         If Add#(3) > 1
            Add#(3) = Add#(3) - 1
            energy(0) = energy(0) + 1
         endif

loopnum = 1
      endif
      If sheild(0) < 0 then sheild(0) = 0
      If energy(0) < 0 then energy(0) = 0

IF health(0) = 0

hide object 1
         position object 1,-100,0,-1

cAmera_Shake(1.0,60.0)
         repeat

Move_Player_Bullets
            Move_Enemy_Bullets
            Move_Enemy_Missles
            Move_Enemy_Flames
            Move_Powerups
            Move_Coins
            Move_Fireballs

Update_Shake

Move_Aliens
            Alien_Shoot

Bullet_Collision_ALiens

Draw_Explosion

Position_pods
            Move_Powerups

Ink rgb(255,0,0),0
            Set Text Font "Bank Gothic Medium BT"
            Set text size 50
            Center text 320,220,"You Lose"

sync
         until returnkey() = 1

For I = 1 to 1005
               IF object exist(I) = 1 then Delete object I
            next I

goto begingame

endif

sync
Loop

Function Load_Background(level)

Load image "media/backgrounds/1.png",1000
   If object exist(1000) = 1 then delete object 1000
   Make object plain 1000,153,30
   Texture object 1000,1000

Load image "media/backgrounds/"+str$(level+1)+".bmp",1001
   IF object exist(1001) = 1 then delete object 1001
   make object plain 1001,75,30
   Texture object 1001,1001
   Ghost object on 1001

endfunction

Function Load_Player()

Load image "media/Player.png",1
   Make object plain 1,5,3
   Texture object 1,1
   Set object 1,1,0,1
   Ghost object on 1

endfunction

Function Player_Intro()

Position object 1,-60,0,-1

If pods(0) > 0
      Position object 200,object position x(1),object position y(1)-2,-1
   If pods(0) > 1
      Position object 201,object position x(1),object position y(1)+2,-1
   If pods(0) > 2
      Position object 202,object position x(1)-2,object position y(1)-4,-1
   If pods(0) > 3
      Position object 203,object position x(1)-2,object position y(1)+4,-1
   endif
   endif
   endif
   endif

For x = -60 to -20

Position object 1,x,object position y(1),object position z(1)

Position_pods

Setup_HUD

sync

Next x

endfunction

Function Player_LEave()

playerx = int(object position x(1))

For x = playerx to 35

Position object 1,x,object position y(1),object position z(1)

Position_pods

Setup_HUD

sync

Next x

endfunction

Function Control_Player()

If upkey() = 1 and object position y(1) < 13 then position object 1,object position x(1),object position y(1)+0.5,object position z(1)
   If downkey() = 1 and object position y(1) > -13 then position object 1,object position x(1),object position y(1)-0.5,object position z(1)
   If leftkey() = 1 and object position x(1) > -27 then position object 1,object position x(1)-0.5,object position y(1),object position z(1)
   If rightkey() = 1 and object position x(1) < 27 then position object 1,object position x(1)+0.5,object position y(1),object position z(1)

endfunction

Function Player_Shoot()

If controlkey() = 1 and keypress(0) = 0 and energy(0) > 50

Play sound 5
      IF shoot_status(0) < 5 then energy(0) = energy(0) - shoot_status(0)*2
      If shoot_status(0) > 4 then energy(0) = energy(0) - (shoot_status(0)-4)

If pods(0) > 0
         For I = 1 to mpb(0)
            If playerbullet#(I,1) = 0
               Pshoot(I,object position x(200),object position y(200),0)
               goto leavethispodshoot1
            endif
         Next I
         leavethispodshoot1:
      If pods(0) > 1
         For I = 1 to mpb(0)
            If playerbullet#(I,1) = 0
               Pshoot(I,object position x(201),object position y(201),0)
               goto leavethispodshoot2
            endif
         Next I
         leavethispodshoot2:
      If pods(0) > 2
         For I = 1 to mpb(0)
            If playerbullet#(I,1) = 0
               Pshoot(I,object position x(202),object position y(202),0)
               goto leavethispodshoot3
            endif
         Next I
         leavethispodshoot3:
      If pods(0) > 3
         For I = 1 to mpb(0)
            If playerbullet#(I,1) = 0
               Pshoot(I,object position x(203),object position y(203),0)
               goto leavethispodshoot4
            endif
         Next I
         leavethispodshoot4:
      endif
      endif
      endif
      endif

If shoot_status(0) = 1 or shoot_status(0) = 5 :           `111111111111111111111111111
         For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1),int(wrapvalue(-5+rnd(10))))
               goto exitthisfornextloop1
            endif
         Next I
         exitthisfornextloop1:
      endif

If shoot_status(0) = 2 or shoot_status(0) = 6 :           `222222222222222222222222222
         For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1)-1,0)
               goto exitthisfornextloop2
            endif
         Next I
         exitthisfornextloop2:

For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1)+1,0)
               goto exitthisfornextloop3
            endif
         Next I
         exitthisfornextloop3:
      endif

If shoot_status(0) = 3:           `333333333333333333333333333333
         For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1),350)
               goto exitthisfornextloop4
            endif
         Next I
         exitthisfornextloop4:

For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1),0)
               goto exitthisfornextloop5
            endif
         Next I
         exitthisfornextloop5:

For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1),10)
               goto exitthisfornextloop6
            endif
         Next I
         exitthisfornextloop6:
      endif

If shoot_status(0) = 4:          `4444444444444444444444444444444444
         For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1)+1,0)
               goto exitthisfornextloop7
            endif
         Next I
         exitthisfornextloop7:

For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1)-1,0)
               goto exitthisfornextloop8
            endif
         Next I
         exitthisfornextloop8:

For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1)+1,355)
               goto exitthisfornextloop9
            endif
         Next I
         exitthisfornextloop9:

For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1)-1,5)
               goto exitthisfornextloop10
            endif
         Next I
         exitthisfornextloop10:

endif

keypress(0) = 9
      IF shoot_status(0) > 4 then keypress(0) = 5
   endif
   IF controlkey() = 0 then keypress(0) = 0
   IF keypress(0) > 0 then keypress(0) = keypress(0) - 1

Endfunction

Function PShoot(Num,Bulletx#,Bullety#,angle)

PlayerBullet#(Num,1) = 1
   PlayerBullet#(Num,2) = Bulletx#
   PlayerBullet#(Num,3) = Bullety#
   PlayerBullet#(Num,4) = angle
   Position object 499+Num,PlayerBullet#(Num,2),PlayerBullet#(Num,3),-1

Endfunction

Function Load_Player_Bullets

Load image "media/Bullet.bmp",1001

For I = 500 to 500+MPB(0)
      Make object plain I,1,0.5
      Texture object I,1001
      Set object I,1,0,1
      Ghost object on I
      position object I,0,0,1
   next I

Endfunction

Function Move_Player_Bullets()

For I = 1 to MPB(0)
      If PlayerBullet#(I,1) = 1
         If object position x(499+I) > 30 then PlayerBullet#(I,1) = 0
         If object position x(499+I) < -30 then playerbullet#(I,1) = 0
         If object position y(499+I) > 16 then PlayerBullet#(I,1) = 0
         If object position y(499+I) < -16 then playerbullet#(I,1) = 0

zrotate object 499+I,PlayerBullet#(I,4)
         yrotate object 499+I,90
         move object I+499,1
         yrotate object 499+I,0
         PlayerBullet#(I,2) = object position x(499+I)
         PlayerBullet#(I,3) = Object position y(499+I)

endif
   next I

Endfunction

Function Load_Levels

For I = 1 to amountLevels(0)

Open to read 1,"media/level data/level"+str$(I)+".txt"
      Read string 1,numofwaves$
      Amountofwaves(I) = val(numofwaves$)

For X = 1 to Amountofwaves(I)

Read string 1,junk$
         Read string 1,alientype$
         Read string 1,amountofaliens$
         Read string 1,timer$
         Read string 1,randomization$

Wave(I,X,1) = val(alientype$)
         Wave(I,X,2) = val(amountofaliens$)
         Wave(I,X,3) = val(timer$)
         Wave(I,X,4) = val(randomization$)

Wavenum(I) = 0

Next X

close file 1

next I

Endfunction

Function Load_Aliens

For I = 1 to 8
      Load image "media/aliens/"+str$(I)+".png",499+I
   Next I

Load image "Media/aliens/3-2.png",510

Endfunction

Function New_Wave

wavenum(Level(0)) = Wavenum(Level(0)) + 1
   AlienNum(Level(0),wavenum(level(0))) = 1

Endfunction

Function Create_Aliens

`   If wave(Level(0),wavenum(Level(0)),1) = 1

For I = 1 to 40

If Alien#(I,1) = 0

IF object exist(I+9) = 1 then delete object I+9

If Wave(Level(0),wavenum(Level(0)),1) = 1 then Make object plain I+9,5,2
            If Wave(Level(0),wavenum(Level(0)),1) = 2 then Make object plain I+9,5,3
            If wave(level(0),wavenum(Level(0)),1) = 3 then Make object plain I+9,4,4
            If wave(level(0),wavenum(Level(0)),1) = 4 then Make object plain I+9,6.5,3
            If wave(level(0),wavenum(Level(0)),1) = 5 then Make object plain I+9,5,4
            If wave(level(0),wavenum(Level(0)),1) = 6 then Make object plain I+9,6,4
            If wave(level(0),wavenum(Level(0)),1) = 7 then Make object plain I+9,14,17
            If wave(level(0),wavenum(Level(0)),1) = 8 then Make object plain I+9,4,4

Texture object I+9,wave(level(0),wavenum(Level(0)),1)+499
            Set object I+9,1,0,1
            Ghost object on I+9
            `position object 9+I,0,0,1

Alien#(I,1) = 1
            Alien#(I,2) = 33
            IF ALien#(I,5) = 7 then ALien#(I,2) = 39

If Wave(Level(0),wavenum(Level(0)),1) = 1 then Alien#(I,3) = rnd(26)-13
            If Wave(Level(0),wavenum(Level(0)),1) = 2 then Alien#(I,3) = rnd(20)-10
            If Wave(Level(0),wavenum(Level(0)),1) = 3 then Alien#(I,3) = rnd(26)-13
            If Wave(Level(0),wavenum(Level(0)),1) = 4 then Alien#(I,3) = rnd(26)-13
            If Wave(Level(0),wavenum(Level(0)),1) = 5 then Alien#(I,3) = rnd(26)-13
            If Wave(Level(0),wavenum(Level(0)),1) = 6 then Alien#(I,3) = rnd(20)-10
            If Wave(Level(0),wavenum(Level(0)),1) = 7 then Alien#(I,3) = 0
            If Wave(Level(0),wavenum(Level(0)),1) = 8 then Alien#(I,3) = 0

If Wave(Level(0),wavenum(Level(0)),1) = 1 then Alien#(I,4) = 0
            If Wave(Level(0),wavenum(Level(0)),1) = 2 then Alien#(I,4) = wrapvalue(340+rnd(40))
            If Wave(Level(0),wavenum(Level(0)),1) = 3 then Alien#(I,4) = wrapvalue(rnd(360))
            If Wave(Level(0),wavenum(Level(0)),1) = 4 then Alien#(I,4) = 0
            If Wave(Level(0),wavenum(Level(0)),1) = 5 then Alien#(I,4) = 0
            If Wave(Level(0),wavenum(Level(0)),1) = 6 then Alien#(I,4) = 0
            If Wave(Level(0),wavenum(Level(0)),1) = 7 then Alien#(I,4) = 0
            If Wave(Level(0),wavenum(Level(0)),1) = 8 then Alien#(I,4) = 0

Alien#(I,5) = Wave(Level(0),wavenum(Level(0)),1)

If Wave(Level(0),wavenum(Level(0)),1) = 1 then Alien#(I,6) = 0.25
            If Wave(Level(0),wavenum(Level(0)),1) = 2 then Alien#(I,6) = 0.5
            If Wave(Level(0),wavenum(Level(0)),1) = 3 then Alien#(I,6) = 0.5
            If Wave(Level(0),wavenum(Level(0)),1) = 4 then Alien#(I,6) = 0.1
            If Wave(Level(0),wavenum(Level(0)),1) = 5 then Alien#(I,6) = 0.7
            If Wave(Level(0),wavenum(Level(0)),1) = 6 then Alien#(I,6) = 0.2
            If Wave(Level(0),wavenum(Level(0)),1) = 7 then Alien#(I,6) = 1
            If Wave(Level(0),wavenum(Level(0)),1) = 8 then Alien#(I,6) = 1

If Wave(Level(0),wavenum(Level(0)),1) = 1 then Alien#(I,7) = 500+(rnd(250)-120)
            If Wave(Level(0),wavenum(Level(0)),1) = 2 then Alien#(I,7) = 250+(rnd(120)-60)
            If Wave(Level(0),wavenum(Level(0)),1) = 3 then Alien#(I,7) = 240+(rnd(60)-30)
            If Wave(Level(0),wavenum(Level(0)),1) = 4 then Alien#(I,7) = 100+(rnd(50)-25)
            If Wave(Level(0),wavenum(Level(0)),1) = 5 then Alien#(I,7) = 240+(rnd(200)-100)
            If Wave(Level(0),wavenum(Level(0)),1) = 6 then Alien#(I,7) = 75
            If Wave(Level(0),wavenum(Level(0)),1) = 7 then Alien#(I,7) = 150
            If Wave(Level(0),wavenum(Level(0)),1) = 8 then Alien#(I,7) = 0

If Wave(Level(0),wavenum(Level(0)),1) = 1 then Alien#(I,8) = 0
            If Wave(Level(0),wavenum(Level(0)),1) = 2 then Alien#(I,8) = 0
            If Wave(Level(0),wavenum(Level(0)),1) = 3 then Alien#(I,8) = 1
            If Wave(Level(0),wavenum(Level(0)),1) = 4 then Alien#(I,8) = 5
            If Wave(Level(0),wavenum(Level(0)),1) = 5 then Alien#(I,8) = 7
            If Wave(Level(0),wavenum(Level(0)),1) = 6 then Alien#(I,8) = 7
            If Wave(Level(0),wavenum(Level(0)),1) = 7 then Alien#(I,8) = 1000
            If Wave(Level(0),wavenum(Level(0)),1) = 8 then Alien#(I,8) = 10

If Wave(Level(0),wavenum(Level(0)),1) = 5 then Alien#(I,9) = ALien#(I,2)
            If Wave(Level(0),wavenum(Level(0)),1) = 6 then Alien#(I,9) = 70
            If Wave(Level(0),wavenum(Level(0)),1) = 7 then Alien#(I,9) = 0

If Wave(Level(0),wavenum(Level(0)),1) = 5 then Alien#(I,10) = Alien#(I,3)
            If Wave(Level(0),wavenum(Level(0)),1) = 6 then Alien#(I,10) = 5
            If Wave(Level(0),wavenum(Level(0)),1) = 7 then Alien#(I,10) = 60

If Wave(Level(0),wavenum(Level(0)),1) = 7 then Alien#(I,12) = 0

Alientimer(0) = timer() + (rnd(Wave(Level(0),wavenum(Level(0)),4))-Wave(Level(0),wavenum(Level(0)),4)/2)
            Position object I+9,Alien#(I,2),Alien#(I,3),-1
            AlienNum(Level(0),wavenum(Level(0))) = AlienNum(Level(0),wavenum(Level(0))) + 1

Aliennumber(0) = Aliennumber(0) + 1

goto goodbyefornextloop

endif

Next I

Goodbyefornextloop:

`   endif

Endfunction

Function Move_Aliens

For I = 1 to 40

IF Alien#(I,1) = 1

IF Alien#(I,5) = 1

zrotate object 9+I,Alien#(I,4)
            yrotate object 9+I,90
            move object I+9,Alien#(I,6)*-1
            yrotate object 9+I,0

Alien#(I,2) = object position x(I+9)
            Alien#(I,3) = object position y(I+9)
            alien#(I,4) = object angle z(I+9)

If Alien#(I,2) < -30
               Alien#(I,1) = 0
               Delete object I+9
            endif

endif

IF Alien#(I,5) = 2

zrotate object 9+I,Alien#(I,4)
            If object position y(1) > ALien#(I,3) then zrotate object 9+I,wrapvalue(object angle z(9+I)-1)
            If object position y(1) < ALien#(I,3) then zrotate object 9+I,wrapvalue(object angle z(9+I)+1)
            yrotate object 9+I,90
            move object I+9,Alien#(I,6)*-1
            yrotate object 9+I,0

Alien#(I,2) = object position x(I+9)
            Alien#(I,3) = object position y(I+9)
            alien#(I,4) = object angle z(I+9)

If Alien#(I,2) < -30
               Alien#(I,1) = 0
               Delete object I+9
            endif

endif

IF Alien#(I,5) = 3

If object position x(1) > ALien#(I,2) - 35 and object position x(1) < Alien#(I,2) and object position y(1) > Alien#(I,3) - 5 and object position y(1) < Alien#(I,3) + 5
               ALien#(I,6) = 1
               Texture object 9+I,510
            endif
            ALien#(I,4) = wrapvalue(ALien#(I,4)-10)
            zrotate object 9+I,Alien#(I,4)
            yrotate object 9+I,90
            Position object 9+I,Alien#(I,2)-ALien#(I,6),Alien#(I,3),-1
            yrotate object 9+I,0

Alien#(I,2) = object position x(I+9)
            Alien#(I,3) = object position y(I+9)
            alien#(I,4) = object angle z(I+9)

If Alien#(I,2) < -30
               Alien#(I,1) = 0
               Delete object I+9
            endif

endif

IF Alien#(I,5) = 4

zrotate object 9+I,Alien#(I,4)
            yrotate object 9+I,90
            move object I+9,Alien#(I,6)*-1
            yrotate object 9+I,0

Alien#(I,2) = object position x(I+9)
            Alien#(I,3) = object position y(I+9)
            alien#(I,4) = object angle z(I+9)

If Alien#(I,2) < -30
               Alien#(I,1) = 0
               Delete object I+9
            endif

endif

IF Alien#(I,5) = 5

Position object 9+I,curvevalue(Alien#(I,9),Alien#(I,2),70),curvevalue(Alien#(I,10),Alien#(I,3),70),-1
            If ALien#(I,9) < Alien#(I,2)+2 and ALien#(I,9) > Alien#(I,2)-2 and Alien#(I,10) < Alien#(I,3)+2 and Alien#(I,10) > Alien#(I,3)-2
               Alien#(I,9) = rnd(50)-25
               Alien#(I,10) = rnd(20)-10
            endif
            Point object 9+I,object position x(1),object position y(1),-1

zrotate object 9+I,object angle x(I+9)
            xrotate object 9+I,0
            yrotate object 9+I,0

Alien#(I,2) = object position x(I+9)
            Alien#(I,3) = object position y(I+9)
            alien#(I,4) = wrapvalue(object angle z(I+9)+180)

If Alien#(I,2) < -30
               Alien#(I,1) = 0
               Delete object I+9
            endif

endif

IF Alien#(I,5) = 6

IF rnd(200) = 2
               If Alien#(I,9) = 70
                  Alien#(I,9) = 290
               else
                  Alien#(I,9) = 70
               endif
            endif

IF Alien#(I,3) > 10 then Alien#(I,9) = 70
            IF Alien#(I,3) < -10 then Alien#(I,9) = 290

zrotate object 9+I,Alien#(I,9)
            yrotate object 9+I,90
            move object I+9,Alien#(I,6)*-1
            yrotate object 9+I,0
            zrotate object 9+I,0

Alien#(I,2) = object position x(I+9)
            Alien#(I,3) = object position y(I+9)
            alien#(I,4) = object angle z(I+9)

If Alien#(I,2) < -30
               Alien#(I,1) = 0
               Delete object I+9
            endif

endif

IF Alien#(I,5) = 7

IF Alien#(I,10) = 0
               Select ALien#(I,9)
                  Case 0
                     ALien#(I,9) = 2
                     ALien#(I,11) = 0
                     Alien#(I,10) = 180
                     goto goodbyeandstuff
                  endcase
                  Case 1
                     Alien#(I,9) = 2
                     ALien#(I,11) = 0
                     Alien#(I,10) = 180
                     goto goodbyeandstuff
                  endcase
                  Case 2
                     Alien#(I,9) = 1
                     ALien#(I,11) = 0
                     Alien#(I,10) = 400
                     goto goodbyeandstuff
                  endcase
               endselect
            endif

goodbyeandstuff:

Alien#(I,10) = Alien#(I,10) - 1

If Alien#(I,9) = 0 then Position object 9+I,curvevalue(25,object position x(I+9),10),0,-1
            If alien#(I,9) = 1
               If Alien#(I,11) <> 1 and object position y(9+I) < 0.1

Alien#(I,11) = Alien#(I,11) + 0.01
                  x1=-25
                  y1=0
                  vx1=-18
                  vy1=-31
                  x2=25
                  y2=0
                  vx2=23
                  vy2=-28
                  t# = Alien#(I,11)
                  Position object 9+I,x1*(1-t#)^3 + 3*vx1*(1-t#)^2*t# + 3*vx2*(1-t#)*t#^2 + x2*t#^3,y1*(1-t#)^3 + 3*vy1*(1-t#)^2*t# + 3*vy2*(1-t#)*t#^2 + y2*t#^3,-1

endif
            endif
            If Alien#(I,9) = 2

If Alien#(I,11) <> 1 and object position y(9+I) > -0.1

Alien#(I,11) = Alien#(I,11) + 0.01
                  x1=25
                  y1=0
                  vx1=18
                  vy1=31
                  x2=-25
                  y2=0
                  vx2=-23
                  vy2=28
                  t# = Alien#(I,11)
                  Position object 9+I,x1*(1-t#)^3 + 3*vx1*(1-t#)^2*t# + 3*vx2*(1-t#)*t#^2 + x2*t#^3,y1*(1-t#)^3 + 3*vy1*(1-t#)^2*t# + 3*vy2*(1-t#)*t#^2 + y2*t#^3,-1

endif

Point object 9+I,0,0,-1

IF object position x(9+I) > 0 then zrotate object 9+I,object angle x(9+I)
            If object position x(9+I) < 0 then zrotate object 9+I,wrapvalue(object angle x(9+I)+180)
            yrotate object 9+I,0
            xrotate object 9+I,0

Alien#(I,2) = object position x(I+9)
            Alien#(I,3) = object position y(I+9)
            Alien#(I,4) = object angle z(I+9)

If Alien#(I,2) < -30
               Alien#(I,1) = 0
               Delete object I+9
            endif

endif

If Alien#(I,5) = 8

zrotate object 9+I,Alien#(I,4)
            yrotate object 9+I,0

IF I = 2 then Position object 9+I,curvevalue(newxvalue(ALien#(1,2),wrapvalue(ALien#(1,4)+90),1),object position x(I+9),20),curvevalue(newyvalue(Alien#(1,3),wrapvalue(Alien#(1,4)+90),12),object position y(9+I),20),-1
            IF I = 3 then Position object 9+I,curvevalue(newxvalue(ALien#(1,2),wrapvalue(ALien#(1,4)+90),1),object position x(I+9),20),curvevalue(newyvalue(Alien#(1,3),wrapvalue(Alien#(1,4)-90),12),object position y(9+I),20),-1
            IF I = 4 then Position object 9+I,curvevalue(newxvalue(ALien#(1,2),wrapvalue(ALien#(1,4)+90),3.5),object position x(I+9),20),curvevalue(newyvalue(Alien#(1,3),wrapvalue(Alien#(1,4)+90),10),object position y(9+I),20),-1
            IF I = 5 then Position object 9+I,curvevalue(newxvalue(ALien#(1,2),wrapvalue(ALien#(1,4)+90),3.5),object position x(I+9),20),curvevalue(newyvalue(Alien#(1,3),wrapvalue(Alien#(1,4)-90),10),object position y(9+I),20),-1

Alien#(I,2) = object position x(I+9)
            Alien#(I,3) = object position y(I+9)
            alien#(I,4) = object angle z(I+9)

If Alien#(I,2) < -30
               Alien#(I,1) = 0
               Delete object I+9
            endif

endif

next I

Endfunction

Function Bullet_Collision_ALiens

For I = 1 to 40

If Alien#(I,1) = 1

For x = 1 to 50

If PlayerBullet#(x,1) = 1 and object exist(I+9) = 1

If Alien#(I,2) < PlayerBullet#(x,2)+(object size x(I+9)/2) and Alien#(I,2) > PlayerBullet#(x,2)-(object size x(I+9)/2) and Alien#(I,3) < PlayerBullet#(x,3)+(object size y(I+9)/2) and Alien#(I,3) > PlayerBullet#(x,3)-(object size y(I+9)/2)

If Alien#(I,8) =< 0
                     Make_Explosion(Alien#(I,2),Alien#(I,3))

For z = 1 to 5
                        Fireball(Alien#(I,2),Alien#(I,3),wrapvalue(rnd(360)))
                     next z

IF Alien#(I,5) > 0 and Alien#(I,5) < 4 then Coin_Explosion(Alien#(I,2),Alien#(I,3),1)
                     If Alien#(I,5) > 3 and Alien#(I,5) < 7 or Alien#(I,5) = 8 then Coin_Explosion(Alien#(I,2),Alien#(I,3),3)
                     If Alien#(I,5) = 7 then Coin_Explosion(Alien#(I,2),Alien#(I,3),10)

If Camerashake#(2) = 0
                        If Alien#(I,5) = 4 or Alien#(I,5) = 5 or Alien#(I,5) = 6 or Alien#(I,5) = 8 then Camera_Shake(0.3,20.0)
                        If Alien#(I,5) = 7 then Camera_Shake(0.8,20.0)
                     endif

Alien#(I,1) = 0
                     Position object I+9,0,0,1

If alien#(I,5) = 1 then score(0) = score(0) + 5
                     If alien#(I,5) = 2 then score(0) = score(0) + 10
                     If alien#(I,5) = 3 then score(0) = score(0) + 25
                     If alien#(I,5) = 4 then score(0) = score(0) + 100
                     If alien#(I,5) = 5 then score(0) = score(0) + 200
                     If alien#(I,5) = 6 then score(0) = score(0) + 300
                     If alien#(I,5) = 7
                        score(0) = score(0) + 2000
                        Make_explosion(ALien#(I,2),Alien#(I,3))
                        For I = 1 to 5
                           Make_explosion(ALien#(I,2)+rnd(10)-5,Alien#(I,3)+rnd(10)-5)
                        Next I
                     endif
                     If alien#(I,5) = 8
                        Create_Powerup(Alien#(I,2),Alien#(I,3))
                        score(0) = score(0) + 200
                        Alien#(1,8) = Alien#(1,8) - 125
                        important(0) = 1
                        Make_explosion(ALien#(1,2),Alien#(1,3))
                        For I = 1 to 5
                           Make_explosion(ALien#(1,2)+rnd(10)-5,Alien#(1,3)+rnd(10)-5)
                        Next I
                     endif

IF int(rnd(30)) = 2 then Create_Powerup(Alien#(I,2),Alien#(I,3))
                  else
                     Play sound 3
                     Alien#(I,8) = Alien#(I,8) - 1
                  endif

PlayerBullet#(x,1) = 0
                  Position object x+499,0,0,1

Endif

endif

Next x

endif

next I

Endfunction

Function Load_Explosion

For I = 1 to 16

Load image "media/explosions/"+str$(I)+".bmp",I+99

Next I

For I = 1 to 20

MAke object plain 99+I,7,7
      Set object 99+I,1,0,1
      Ghost object on 99+I
      Hide object 99+I
      Position object 99+I,0,0,5
      Ghost object on 99+I
      position object 99+I,0,0,1

Next I

Endfunction

Function MAke_Explosion(x#,y#)

For I = 1 to 20

IF Explosion#(I,1) = 0

Explosion#(I,1) = 1
         Explosion#(I,2) = x#
         Explosion#(I,3) = y#
         Explosion#(I,4) = 1

Show object 99+I

Play sound 1

goto leavethisexplosionloop

endif

Next I

leavethisexplosionloop:

Endfunction

Function Draw_Explosion

For I = 1 to 20

If Explosion#(I,1) = 1

Position object 99+I,Explosion#(I,2),Explosion#(I,3),-1
         Texture object 99+I,int(Explosion#(I,4))+99
         Explosion#(I,4) = Explosion#(I,4) + 0.3

If explosion#(I,4) > 17
            explosion#(I,1) = 0
            Position object 99+I,0,0,5
            Hide object 99+I
         endif

ENdif

Next I

Endfunction

Function Load_Sounds

Load sound "media/sound/explode.wav",1
   Load sound "media/sound/explode3.wav",2
   Load sound "media/sound/hit.wav",3

Load sound "media/sound/playerGun.wav",5
   Load sound "media/sound/lasergun.wav",6
   Load sound "media/sound/launch.wav",7

Load sound "media/sound/powerup.wav",10
   Load sound "media/sound/powerup over.wav",11
   Load sound "media/sound/coin.wav",12

Endfunction

Function Load_Music

`   Load music "media/music/1.mp3",1
`   Load music "media/music/2.mp3",2
`   Load music "media/music/3.mp3",3
`   Load music "media/music/4.mp3",4

Endfunction

Function Load_Enemy_Bullets

Load image "media/laser.bmp",1002

For I = 1 to 50

Make object plain 599+I,1.3,1.3
      Texture object 599+I,1002
      Set object 599+I,1,0,1
      Ghost object on 599+I
      position object 599+I,0,0,1

Next I

Endfunction

Function Load_Enemy_Missles

Load image "media/missle.bmp",1003

For I = 1 to 50

Make object plain 699+I,2,1
      If I < 26 then Texture object 699+I,1003
      If I < 26 then Set object 699+I,1,0,1
      hide object 699+I
      Ghost object on 699+I
      position object 699+I,0,0,1

Next I

Endfunction

Function Load_Enemy_flames

For I = 1 to 50

Make object plain 799+I,1.5,1.5
      Color object 799+I,rgb(rnd(155)+100,rnd(100)+10,0)
      hide object 799+I
      Ghost object on 799+I
      position object 799+I,0,0,1

Next I

Endfunction

Function ALien_Shoot

For I = 1 to 40

IF Alien#(I,1) = 1

ALien#(I,7) = ALien#(I,7) - 5

If Alien#(I,7) < 0

If ALien#(I,5) = 1 then Alien#(I,7) = 500+(rnd(100)-50)
            If ALien#(I,5) = 2 then Alien#(I,7) = 250+(rnd(120)-60)
            If ALien#(I,5) = 3 then Alien#(I,7) = 240+(rnd(60)-30)
            If Alien#(I,5) = 4 then Alien#(I,7) = 100+(rnd(50)-25)
            If Alien#(I,5) = 5 then Alien#(I,7) = 240+(rnd(200)-100)
            If Alien#(I,5) = 6 then Alien#(I,7) = 75
            If Alien#(I,5) = 7 then Alien#(I,7) = 150

If ALien#(I,5) = 1 then Ashoot(Alien#(I,2),Alien#(I,3),180+(rnd(80)-40))
            If ALien#(I,5) = 2 then Ashoot(Alien#(I,2),Alien#(I,3),int(wrapvalue(Alien#(I,4)+180)))
            If ALien#(I,5) = 3 then Ashoot(Alien#(I,2),Alien#(I,3),int(wrapvalue(rnd(360))))
            If ALien#(I,5) = 4 then AMissle(Alien#(I,2),Alien#(I,3)-1,int(wrapvalue(rnd(20))))
            If ALien#(I,5) = 5
               AMissle(newxvalue(ALien#(I,2),wrapvalue(Alien#(I,4)+90),2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+90),2),int(wrapvalue(Alien#(I,4)+180)))
               AMissle(newxvalue(ALien#(I,2),wrapvalue(Alien#(I,4)-90),2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)-90),2),int(wrapvalue(Alien#(I,4)+180)))
               Ashoot(Alien#(I,2),Alien#(I,3),int(wrapvalue(Alien#(I,4)-10)))
               Ashoot(Alien#(I,2),Alien#(I,3),int(wrapvalue(Alien#(I,4)+10)))
               Ashoot(Alien#(I,2),Alien#(I,3),int(wrapvalue(Alien#(I,4))))
            endif
            If Alien#(I,5) = 6
               If Alien#(I,10) > 0
                  AFlame(Alien#(I,2),Alien#(I,3)-1,int(wrapvalue(Alien#(I,4)-20)))
                  AFlame(Alien#(I,2),Alien#(I,3)-1,int(wrapvalue(Alien#(I,4)+20)))
                  AFlame(Alien#(I,2),Alien#(I,3)-1,int(wrapvalue(Alien#(I,4))))
               endif
               Alien#(I,10) = Alien#(I,10) - 1
               IF ALien#(I,10) = -15 then Alien#(I,10) = 5
            endif

If ALien#(I,5) = 7
               Alien#(I,12) = Alien#(I,12)+1
               If Alien#(I,12) > 10 and Alien#(I,12) < 20
                  thingy# = 100
                  AFlame(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+90),8),int(wrapvalue(Alien#(I,4))))
                  AFlame(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+90),8),int(wrapvalue(Alien#(I,4)-20)))
                  AFlame(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+90),8),int(wrapvalue(Alien#(I,4)-40)))

AFlame(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)-90),8),int(wrapvalue(Alien#(I,4))))
                  AFlame(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)-90),8),int(wrapvalue(Alien#(I,4)+20)))
                  AFlame(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)-90),8),int(wrapvalue(Alien#(I,4)+40)))

AFlame(Alien#(I,2),Alien#(I,3),int(ALien#(I,4)))
                  AFlame(Alien#(I,2),Alien#(I,3),int(wrapvalue(ALien#(I,4)+20)))
                  AFlame(Alien#(I,2),Alien#(I,3),int(wrapvalue(ALien#(I,4)-20)))
               endif
               If Alien#(I,12) > 20 and Alien#(I,12) < 30
                  Ashoot(ALien#(I,2),newyvalue(Alien#(I,3),wrapvalue(Alien#(I,4)+90),8),int(wrapvalue(Alien#(I,4)+rnd(60)+150)))
                  Ashoot(ALien#(I,2),newyvalue(Alien#(I,3),wrapvalue(Alien#(I,4)+90),6),int(wrapvalue(Alien#(I,4)+rnd(60)+150)))
                  Ashoot(ALien#(I,2),newyvalue(Alien#(I,3),wrapvalue(Alien#(I,4)+90),4),int(wrapvalue(Alien#(I,4)+rnd(60)+150)))
                  Ashoot(ALien#(I,2),newyvalue(Alien#(I,3),wrapvalue(Alien#(I,4)+90),2),int(wrapvalue(Alien#(I,4)+rnd(60)+150)))
                  Ashoot(ALien#(I,2),newyvalue(Alien#(I,3),wrapvalue(Alien#(I,4)+90),0),int(wrapvalue(Alien#(I,4)+rnd(60)+150)))
                  Ashoot(ALien#(I,2),newyvalue(Alien#(I,3),wrapvalue(Alien#(I,4)+90),-2),int(wrapvalue(Alien#(I,4)+rnd(60)+150)))
                  Ashoot(ALien#(I,2),newyvalue(Alien#(I,3),wrapvalue(Alien#(I,4)+90),-4),int(wrapvalue(Alien#(I,4)+rnd(60)+150)))
                  Ashoot(ALien#(I,2),newyvalue(Alien#(I,3),wrapvalue(Alien#(I,4)+90),-6),int(wrapvalue(Alien#(I,4)+rnd(60)+150)))
                  Ashoot(ALien#(I,2),newyvalue(Alien#(I,3),wrapvalue(Alien#(I,4)+90),-8),int(wrapvalue(Alien#(I,4)+rnd(60)+150)))
               endif
               If Alien#(I,12) > 30 and Alien#(I,12) < 40
                  AMissle(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+90),8),int(wrapvalue(Alien#(I,4))))
                  AMissle(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+270),8),int(wrapvalue(Alien#(I,4))))
                  AMissle(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+90),1),int(wrapvalue(Alien#(I,4))))
                  AMissle(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+270),1),int(wrapvalue(Alien#(I,4))))
               endif
               If ALien#(I,12) > 30 and Alien#(I,12) < 40
                  AShoot(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+90),8),int(wrapvalue(Alien#(I,4))))
                  AShoot(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+90),8),int(wrapvalue(Alien#(I,4)-rnd(20))))
                  AShoot(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+90),8),int(wrapvalue(Alien#(I,4)-rnd(20)+20)))

AShoot(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)-90),8),int(wrapvalue(Alien#(I,4))))
                  AShoot(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)-90),8),int(wrapvalue(Alien#(I,4)+rnd(20))))
                  AShoot(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)-90),8),int(wrapvalue(Alien#(I,4)+rnd(20)+20)))

AShoot(Alien#(I,2),Alien#(I,3),int(ALien#(I,4)))
                  AShoot(Alien#(I,2),Alien#(I,3),int(wrapvalue(ALien#(I,4)+rnd(20))))
                  AShoot(Alien#(I,2),Alien#(I,3),int(wrapvalue(ALien#(I,4)-rnd(20))))

AFlame(Alien#(I,2),Alien#(I,3),int(ALien#(I,4)))
                  AFlame(Alien#(I,2),Alien#(I,3),int(wrapvalue(ALien#(I,4)+20)))
                  AFlame(Alien#(I,2),Alien#(I,3),int(wrapvalue(ALien#(I,4)-20)))
               endif

IF Alien#(I,12) = 41 then Alien#(I,12) = 0
            endif

endif

NExt I

Endfunction

Function Ashoot(x#,y#,angle)

For I = 1 to 50

IF AlienBullet#(I,1) = 0

AlienBullet#(I,1) = 1
         AlienBullet#(I,2) = x#
         AlienBullet#(I,3) = y#
         ALienBullet#(I,4) = angle

SHow object 599+I

Play sound 6

goto leavethisalienshoot

endif

NExt I

leavethisalienshoot:

Endfunction

Function Amissle(x#,y#,angle)

For I = 1 to 25

IF AlienMissle#(I,1) = 0

AlienMissle#(I,1) = 1
         AlienMissle#(I,2) = x#
         AlienMissle#(I,3) = y#
         ALienMissle#(I,4) = wrapvalue(angle+180)

SHow object 699+I

Play sound 7

goto leavethisalienshoot

endif

NExt I

leavethisalienshoot:

Endfunction

Function AFlame(x#,y#,angle)

For I = 1 to 50

IF AlienFlame#(I,1) = 0

AlienFlame#(I,1) = 1
         AlienFlame#(I,2) = x#
         AlienFlame#(I,3) = y#
         ALienFlame#(I,4) = wrapvalue(angle+180)
         AlienFlame#(I,5) = wrapvalue(360)

SHow object 799+I

goto leavethisalienshoot

endif

NExt I

leavethisalienshoot:

Endfunction

Function Move_Enemy_Bullets

For I = 1 to 50

If ALienBullet#(I,1) = 1

Position object 599+I,AlienBullet#(I,2),AlienBullet#(I,3),-1
         zrotate object 599+I,AlienBullet#(I,4)
         yrotate object 599+I,90
         move object I+599,0.5
         yrotate object 599+I,0
         zrotate object 599+I,0

ALienbullet#(I,2) = object position x(599+I)
         ALienbullet#(I,3) = object position y(599+I)

IF Alienbullet#(I,2) < -40 or Alienbullet#(I,2) > 40 or Alienbullet#(I,3) < -17 or ALienbullet#(I,3) > 17
            Alienbullet#(I,1) = 0
            hide object 599+I
         endif

Endif

Next I

Endfunction

Function Move_Enemy_Missles

For I = 1 to 25

If ALienmissle#(I,1) = 1

Position object 699+I,Alienmissle#(I,2),Alienmissle#(I,3),-1
         Position object 724+I,Alienmissle#(I,2),Alienmissle#(I,3),1
         Point object 724+I,object position x(1),object position y(1),-1

IF object angle x(724+I) > wrapvalue(object angle z(699+I)+180) then ALienmissle#(I,4) = wrapvalue(Alienmissle#(I,4) - 2)
         IF object angle x(724+I) < wrapvalue(object angle z(699+I)+180) then ALienmissle#(I,4) = wrapvalue(Alienmissle#(I,4) + 2)
         zrotate object 699+I,Alienmissle#(I,4)

yrotate object 699+I,90
         move object I+699,0.5
         yrotate object 699+I,0
         zrotate object 699+I,wrapvalue(Alienmissle#(I,4)+180)

ALienmissle#(I,2) = object position x(699+I)
         ALienmissle#(I,3) = object position y(699+I)

IF Alienmissle#(I,2) < -40 or Alienmissle#(I,2) > 40 or Alienmissle#(I,3) < -17 or ALienmissle#(I,3) > 17
            Alienmissle#(I,1) = 0
            hide object 699+I
            hide object 724+I
         endif

Endif

Next I

Endfunction

Function Move_Enemy_Flames

For I = 1 to 50

If ALienFlame#(I,1) = 1

Position object 799+I,Alienflame#(I,2),AlienFlame#(I,3),-1
         zrotate object 799+I,AlienFlame#(I,4)
         yrotate object 799+I,90
         move object I+799,0.5
         yrotate object 799+I,0
         zrotate object 799+I,ALienFlame#(I,5)
         AlienFlame#(I,5) = wrapvalue(AlienFlame#(I,5)-5)

ALienFlame#(I,2) = object position x(799+I)
         ALienFlame#(I,3) = object position y(799+I)

IF AlienFlame#(I,2) < -40 or AlienFlame#(I,2) > 40 or AlienFlame#(I,3) < -17 or ALienFlame#(I,3) > 17
            AlienFlame#(I,1) = 0
            hide object 799+I
         endif

Endif

Next I

Endfunction

Function Player_Alien_Collision

For I = 1 to 40

If object exist(I+9) = 1
      IF object position z(I+9) = -1

If Alien#(I,2) < object position x(1)+(object size x(I+9)/2) and Alien#(I,2) > object position x(1)-(object size x(I+9)/2) and Alien#(I,3) < object position y(1)+(object size y(I+9)/2) and Alien#(I,3) > object position y(1)-(object size y(I+9)/2)

IF sheild(0) < 5
               Health(0) = Health(0) - 1
               Drain(1) = Drain(1) + 7
               Drain(2) = Sheild(0) * 4
               sheild(0) = 0
            else
               sheild(0) = 0
               Drain(2) = Drain(2) + 30
            endif
            If Alien#(I,5) = 7
               Health(0) = 0
               Sheild(0) = 0
            endif
            Play sound 2

Camera_Shake(0.3,20.0)

Make_Explosion(object position x(1),Object position y(1))

Alien#(I,1) = 0
            Position object I+9,0,0,1

endif

endif
      endif

Next I

Endfunction

Function Alien_Bullet_Collision_Player

For I = 1 to 50

If AlienBullet#(I,1) = 1

If AlienBullet#(I,2) < object position x(1)+ 2 and AlienBullet#(I,2) > object position x(1)-2
         If AlienBullet#(I,3) < object position y(1)+ 1.5 and AlienBullet#(I,3) > object position y(1)-1.5

IF sheild(0) < 5
               Health(0) = Health(0) - 1
               Drain(1) = Drain(1) + 7
               Drain(2) = Sheild(0) * 4
               sheild(0) = 0
            else
               sheild(0) = 0
               Drain(2) = Drain(2) + 25
            endif
            Play sound 2

Camera_Shake(0.3,20.0)

Make_Explosion(object position x(1),Object position y(1))

AlienBullet#(I,1) = 0
         Position object I+599,0,0,1

Endif
         endif

endif

Next I

Endfunction

Function Alien_Flame_Collision_Player

For I = 1 to 50

If AlienFlame#(I,1) = 1 and object exist(I+799) = 1

If AlienFlame#(I,2) < object position x(1)+2 and AlienFlame#(I,2) > object position x(1)-2
         If AlienFlame#(I,3) < object position y(1)+1.5 and AlienFlame#(I,3) > object position y(1)-1.5

IF sheild(0) < 5
               Health(0) = Health(0) - 1
               Drain(1) = Drain(1) + 7
               Drain(2) = Sheild(0) * 4
               sheild(0) = 0
            else
               sheild(0) = 0
               Drain(2) = Drain(2) + 25
            endif
            Play sound 2

Camera_Shake(0.3,20.0)

Make_Explosion(object position x(1),Object position y(1))

AlienFlame#(I,1) = 0
         Position object I+799,0,0,1

Endif
         endif

endif

Next I

Endfunction

Function Missle_Collision_Player

For I = 1 to 25

If AlienMissle#(I,1) = 1

IF Alienmissle#(I,2) < object position x(1)+3 and AlienMissle#(I,2) > object position x(1)-3
         IF Alienmissle#(I,3) < object position x(1)+2 and AlienMissle#(I,3) > object position x(1)-2

Position object I+724,0,0,1
            hide object 699+I

IF sheild(0) < 5
               Health(0) = Health(0) - 1
               Drain(1) = Drain(1) + 7
               Drain(2) = Sheild(0) * 4
               sheild(0) = 0
            else
               sheild(0) = 0
               Drain(2) = Drain(2) + 25
            endif
            Play sound 2

Camera_Shake(0.3,20.0)

Make_Explosion(object position x(1),Object position y(1))

AlienMissle#(I,1) = 0

endif
         endif

endif

Next I

Endfunction

Function Load_Powerups

Load image "media/powerups/pod.bmp",200
   Load image "media/powerups/Weapon Upgrade.bmp",201
   Load image "media/powerups/health.bmp",202
   Load image "media/powerups/star.bmp",203

For I = 1 to 3

Make object plain 209+I,2,2
      Set object 209+I,1,0,1
      Ghost object on 209+I
      position object 209+I,0,0,1

Next I

Endfunction

Function Load_Pods

Load image "media/pod.bmp",1004

For I = 1 to 4

MAke object plain 199+I,1,1
      Texture object 199+I,1004
      Set object 199+I,1,0,1
      Ghost object on 199+I
      position object 199+I,0,0,1

Next I

Endfunction

Function Position_pods

If pods(0) > 0
      Position object 200,curvevalue(object position x(1),object position x(200),10),curvevalue(object position y(1)-2,object position y(200),10),-1
      zrotate object 200,curveangle(0,object angle z(200),30)
   If pods(0) > 1
      Position object 201,curvevalue(object position x(1),object position x(201),10),curvevalue(object position y(1)+2,object position y(201),10),-1
      zrotate object 201,curveangle(0,object angle z(201),30)
   If pods(0) > 2
      Position object 202,curvevalue(object position x(1)-2,object position x(202),10),curvevalue(object position y(1)-4,object position y(202),10),-1
      zrotate object 202,curveangle(0,object angle z(202),30)
   If pods(0) > 3
      Position object 203,curvevalue(object position x(1)-2,object position x(203),10),curvevalue(object position y(1)+4,object position y(203),10),-1
      zrotate object 203,curveangle(0,object angle z(203),30)
   endif
   endif
   endif
   endif

Endfunction

Function Create_Powerup(x#,y#)

For I = 1 to 3

If Powerup#(I,1) = 0

Powerup#(I,1) = 1
         Powerup#(I,2) = x#
         Powerup#(I,3) = y#
         powerup#(I,4) = rnd(3)+1
         If important(0) = 1
            powerup#(I,4) = 3
            important(0) = 0
         endif

Texture object 209+I,199+Powerup#(I,4)

goto leavepoweruploop

Endif

Next I

leavepoweruploop:

Endfunction

Function Move_Powerups

For I = 1 to 3

If powerup#(I,1) = 1

Powerup#(I,2) = Powerup#(I,2) - 0.2

Position object 209+I,Powerup#(I,2),Powerup#(I,3),-1

If powerup#(I,2) < -35
            powerup#(I,1) = 0
         endif

endif

Next I

Endfunction

function Powerup_Collision

for I = 1 to 3

If powerup#(I,1) = 1

If Powerup#(I,2) < object position x(1)+(object size x(1)/2) and Powerup#(I,2) > object position x(1)-(object size x(1)/2)
         If Powerup#(I,3) < object position y(1)+(object size y(1)/2) and Powerup#(I,3) > object position y(1)-(object size y(1)/2)

If powerup#(I,4) = 1 and pods(0) < 4

Pods(0) = pods(0) + 1
               Position object 199+pods(0),powerup#(I,2),powerup#(I,3),-1
               play sound 10

endif

If powerup#(I,4) = 2

IF shoot_status(0) < 5 then shoot_status(0) = shoot_status(0) + 1
               play sound 10

endif

If powerup#(I,4) = 3

Health(0) = Health(0) + 3
               IF health(0) > 10 then Health(0) = 10
               play sound 10

endif

If powerup#(I,4) = 4

Star(0) = 3000
               play sound 10

endif

powerup#(I,1) = 0
            position object 209+I,0,0,1

Endif
         endif

endif

next I

endfunction

Function Load_Coins

Load image "media/coin.bmp",1005

For I = 900 to 950

Make object plain I,1,1
      Texture object I,1005
      Set object I,1,0,1

Next I

Endfunction

Function Coin_Explosion(x#,y#,amount)

For I = 1 to amount

For x = 1 to 50

If Coin#(x,1) = 0
            Coin#(x,1) = 1
            Coin#(x,2) = x#
            Coin#(x,3) = y#
            Coin#(x,4) = wrapvalue(rnd(360))
            Coin#(x,5) = 1
            Position object 899+x,x#,y#,-1
            goto leavethiscoin
         endif

Next x

leavethiscoin:

Next I

Endfunction

Function Move_Coins

For I = 1 to 50

If Coin#(I,1) = 1

If object position x(899+I) > 30 then Coin#(I,1) = 0
         If object position x(899+I) < -30 then Coin#(I,1) = 0
         If object position y(899+I) > 16 then Coin#(I,1) = 0
         If object position y(899+I) < -16 then Coin#(I,1) = 0
         If object position z(899+I) < -30 then Coin#(I,1) = 0
         If coin#(I,1) = 0 then position object 899+I,0,0,1

IF Coin#(I,5) = 1
            Coin#(I,4) = curveangle(180,coin#(I,4),10)

zrotate object 899+I,Coin#(I,4)
            yrotate object 899+I,90
            move object I+899,0.5
            yrotate object 899+I,0
            zrotate object 899+I,0
            Coin#(I,2) = object position x(899+I)
            Coin#(I,3) = Object position y(899+I)
         endif
         If Coin#(I,5) = 2
            zrotate object 899+I,0
            yrotate object 899+I,0
            Position object 899+I,Coin#(I,2),Coin#(I,3),object position z(899+I)-1
            Coin#(I,2) = object position x(899+I)
            Coin#(I,3) = Object position y(899+I)
         endif

endif

Next I

Endfunction

Function Coin_Collision

For I = 1 to 50

If coin#(I,1) =  1 and coin#(I,5) = 1

If Coin#(I,2) < object position x(1)+(object size x(1)/2) and Coin#(I,2) > object position x(1)-(object size x(1)/2)
         If Coin#(I,3) < object position y(1)+(object size y(1)/2) and Coin#(I,3) > object position y(1)-(object size y(1)/2)

Coin#(I,5) = 2
            score(0) = score(0) + 50
            play sound 12

endif
         endif

endif

Next I

Endfunction

Function Camera_Shake(amount#,time#)

Camerashake#(1) = amount#
   Camerashake#(2) = time#

endfunction

Function Update_Shake

IF Camerashake#(2) > 0

camerashake#(2) = camerashake#(2) - 1

If camerashake#(2) < 20 then camerashake#(1) = curvevalue(0,camerashake#(1),20)

IF camera position x() <> 0
         x# = 0
      else
         x# = rnd(camerashake#(1)*2)-camerashake#(1)
      endif

IF camera position y() <> 0
         y# = 0
      else
         y# = rnd(camerashake#(1)*2)-camerashake#(1)
      endif

IF camera position z() <> -38
         z# = -38
      else
         z# = -38+rnd(camerashake#(1)*2)-camerashake#(1)
      endif

position camera x#,y#,z#

endif

Endfunction

Function Fireball(x#,y#,dir#)

For I = 1 to 75

If Fireball#(I,1) = 0

Fireball#(I,1) = 1
         Fireball#(I,2) = x#
         Fireball#(I,3) = y#
         Fireball#(I,4) = dir#
         Fireball#(I,5) = 100
         Position object 299+I,x#,y#,-0.5
         show object 299+I
         fade object I+299,100
         goto leavefireball

endif

next I

leavefireball:

endfunction

Function Load_Fireballs

Load image "media/fireball.jpg",1006

For I = 300 to 374

Make object plain I,1,1
      Texture object I,1006
      Set object I,1,0,1
      Ghost object on I
      hide object I

next I

Endfunction

Function Move_Fireballs

For I = 1 to 75

If fireball#(I,1) = 1

Fireball#(I,5) = Fireball#(I,5) - 2.5

Position object 299+I,fireball#(I,2),fireball#(I,3),-0.5
         zrotate object 299+I,fireball#(I,4)
         yrotate object 299+I,90
         move object I+299,0.2
         yrotate object 299+I,0
         zrotate object 299+I,0

fireball#(I,2) = object position x(299+I)
         fireball#(I,3) = object position y(299+I)

IF fireball#(I,2) < -40 or fireball#(I,2) > 40 or fireball#(I,3) < -17 or fireball#(I,3) > 17 or fireball#(I,5) = 0
            fireball#(I,1) = 0
            hide object 299+I
         endif

endif

Next I

Endfunction

Function Menu

Load image "media/menu/UFOGAMES.png",13
   Paste image 13,0,0
   sleep 4000
   Load image "media/menu/play.png",10
   Load image "media/menu/help.png",11
   Load image "media/menu/quit.png",12

For I = 1 to 7

Load image "media/menu/help"+str$(I)+".png",12+I

Next I

Make object plain 70,3,3
   Texture object 70,10
   Position object 70,0,-50,-33
   Make object plain 71,3,3
   Texture object 71,11
   Position object 71,5,-50,-33
   Make object plain 72,3,3
   Texture object 72,12
   Position object 72,10,-50,-33

Make object plain 73,20,20
   Position object 73,5,-90,-21
   Texture object 73,13

Load_Background(1)

Position camera 0,-35,-38
   color backdrop rgb(0,0,0)

happyme:
   selection = 1

Do

If rightkey() = 1 and selection = 1 and key = 0
         selection = 2
         key = 1
      endif
      If rightkey() = 1 and selection = 2 and key = 0
         selection = 3
         key = 1
      endif
      If leftkey() = 1 and selection = 3 and key = 0
         selection = 2
         key=1
      endif
      If leftkey() = 1 and selection = 2 and key = 0
         selection = 1
         key = 1
      endif

If rightkey() = 0 and leftkey() = 0 then key = 0

If returnkey() = 1 and selection = 1 then selection = 4
      IF returnkey() = 1 and selection = 2 then selection = 5
      If returnkey() = 1 and selection = 3 then end

If selection = 1 then position camera curvevalue(0,camera position x(),20),-50,-38
      If selection = 2 then position camera curvevalue(5,camera position x(),20),-50,-38
      If selection = 3 then position camera curvevalue(10,camera position x(),20),-50,-38
      If selection = 4 then position camera 0,camera position y()+0.5,camera position z()
      If selection = 5 then position camera 5,camera position y()-0.5,camera position z()

If camera position y() = 0 then goto leavemenu
      If camera position y() = -90 then goto helpme

sync
   Loop

helpme:

help = 1
   Do

Texture object 73,12+help

If upkey() = 1 and key = 0
         help = help - 1
         key = 1
      endif
      If downkey() = 1 and key = 0
         help = help + 1
         key = 1
      endif
      If returnkey() = 1 then goback = 1

IF goback = 1 then position camera 5,camera position y()+0.5,camera position z()

If camera position y() = -50
         goback = 0
         goto happyme
      endif

If help = 0 then help = 1
      If help = 8 then help = 7

If upkey() = 0 and downkey() = 0 then key = 0

sync
   Loop

leavemenu:

Endfunction

Function Setup_HUD

Ink 0,0
   Box 1,1,639,80
   Box 1,400,639,479

Paste image 5,100,2

Ink rgb(0,255,0),0
   Box 190,35,190+(health(0)*7)+Drain(1)+int(Add#(1)),45

Ink rgb(0,0,255),0
   Box 190,10,190+(sheild(0)*7)+Drain(2)+int(Add#(2)),20

If energy(0) < 50 then ink rgb(255,0,0),0
   IF energy(0) > 50 then Ink rgb(255,255,0),0
   If energy(0) > 75 then ink rgb(0,255,0),0
   Box 190,58,190+(energy(0))+Drain(3)+int(Add#(3)),68

Ink rgb(255,0,0),0
   Set Text Font "Bank Gothic Medium BT"
   Set text size 20
   center Text 393,30,str$(score(0))
   Center text 430,55,str$(Shoot_Status(0))

Endfunction

+ Code Snippet

 remstart
   -------------------------------------------------------------------
   Program name: Laser Assault 3
   -------------------------------------------------------------------
   Written by: UFO
   Date: 2/1/06
   -------------------------------------------------------------------
   Arrays: PlayerBullet#(50,4) 1-exists 2-x 3-y 4-z angle
           Wave(amtlevels,20,4) 1-type 2-amount 3-timer 4-randomizATION
           Alien#(40,7) 1-exists 2-x 3-y 4-angle 5-type 6-speed 7-shoot timer 8-health 9-1 10-2 11-3 12-4
           Explosion#(20,4) 1-exists 2-x 3-y 4-frame
           AlienBullet#(50,4) 1-exists 2-x 3-y 4-z angle
           AlienMissle#(25,4) 1-exists 2-x 3-y 4-z angle
           Coin#(50,4) 1-exists 2-x 3-y 4-zang 5-mode

   Images: 1-Player 1000-Background 1001-PlayerBullet# 500-520-Aliens
           100-115-explosion 1002-alien laser 1003-Alien missle 1004-pod 200-powerups
           1005-coin 1006-Fireball

   Plains: 1-Player 500-549-PlayerBullets 1000-Background 10-49-ALiens
           100-119-Explosions 600-649-Alien Bullets 700-724-Alien Missles
           725-750-alien missles 200-203-pods 210-212 powerups 800-849-Alien Flame
           900-950-coins 300-374-fireballs
   -------------------------------------------------------------------
remend

`GAME SETUP
set display mode 640,480,16
Sync on
hide mouse
autocam off
sync rate 70
`Set camera view 0,90,640,390
color backdrop 0

begingame:
Menu

`WHOLE GAME VARIABLES
`(Variables used the whole game and does not change)
Dim AmountLevels(0)
AmountLevels(0) = 4
Amtlevels = 4
Dim Amountofwaves(Amtlevels)
Dim Wave(Amtlevels,20,4)
Dim AlienNum(amtlevels,20)
Dim Wavenum(amtlevels)
Dim Level(0)
Level(0) = 1
Dim MPB(0)
MPB(0) = 49
Dim Shoot_Status(0)
Shoot_Status(0) = 1
Dim Keypress(0)
Dim Health(0)
Health(0) = 10
Dim Score(0)
Score(0) = 0
Dim Pods(0)
Pods(0) = 0

Position camera 0,0,-38
Point camera 0,0,0
randomize timer()

Load_Levels
Load_Player
Load_Player_Bullets
Load_Aliens

Load_Explosion
Load_Sounds
Load_Music
Load_Coins

Load_Enemy_Bullets
Load_Enemy_Missles
Load_Enemy_flames

Load_Powerups
Load_Pods
Load_Fireballs

Levelstart:

`LEVEL VARIABLES
`(Variables that will change, and is only used for the level,
`and will need to be reset at the begining of each level)
Dim Alien#(40,12)
Dim ALientimer(0)
Dim PlayerBullet#(49,4)
Dim Explosion#(20,4)
Dim AlienNumber(0)
Dim AlienBullet#(50,4)
Dim AlienMissle#(25,4)
Dim AlienFlame#(50,5)
Dim Drain(3)
Dim Add#(3)
Dim Sheild(0)
Sheild(0) = 10
Dim Energy(0)
Energy(0) = 100
Dim Powerup#(3,4)
Dim Star(0)
Dim NoNew(0)
NoNew(0) = 0
Dim Timerthing(0)
Timerthing(0) = 0
Dim Important(0)
Important(0) = 0
Dim Coin#(50,5)
Dim Camerashake#(2)
Dim Fireball#(75,5)

`LEVEL SETUP

Load_Background(level(0))

If image exist(5) = 1 then delete image 5
Load image "media/hud.png",5

Player_Intro

Alientimer(0) = timer()

color backdrop 0

Loopnum = 1

Do

      control_player
      Player_Shoot

      Move_Player_Bullets
      Move_Enemy_Bullets
      Move_Enemy_Missles
      Move_Enemy_Flames
      Move_Powerups
      Move_Coins
      Move_Fireballs

      Update_Shake

      Move_Aliens
      Alien_Shoot

      Bullet_Collision_ALiens
      Player_Alien_Collision
      Powerup_Collision
      Coin_Collision

      Alien_Bullet_Collision_Player
      Missle_Collision_Player
      Alien_Flame_Collision_Player

      Draw_Explosion

      Position_pods
      Move_Powerups

      Texture object 1,1

      If star(0) > 0
         star(0) = star(0) - 10
         energy(0) = 100
         sheild(0) = 10
         drain(1) = 0
         drain(2) = 0
         drain(3) = 0
         add#(1) = 0
         add#(2) = 0
         add#(3) = 0
      endif

      If star(0) = 10 then play sound 11

      Setup_Hud

      scroll object texture 1000,0.001,0.0
      scroll object texture 1001,0.0005,0.0

      IF ALienNum(level(0),wavenum(level(0))) = Wave(Level(0),Wavenum(Level(0)),2) and NoNew(0) = 0 then New_Wave
      If wavenum(Level(0)) - 1 = amountofwaves(Level(0)) or inkey$() = "d"

         NoNew(0) = 1

         For x = 1 to 40

            IF ALien#(x,1) = 1 and inkey$() <> "d" then goto Thiswontwork

         NExt x

         IF timerthing(0) = 120

            level(0) = Level(0) + 1
            For I = 500 to 549
               IF object exist(I) = 1 then Position object I,0,0,1
            next I
            For I = 10 to 49
               IF object exist(I) = 1 then Position object I,0,0,1
            next I
            For I = 100 to 119
               IF object exist(I) = 1 then Position object I,0,0,1
            next I
            For I = 600 to 649
               IF object exist(I) = 1 then Position object I,0,0,1
            next I
            For I = 700 to 750
               IF object exist(I) = 1 then Position object I,0,0,1
            next I
            For I = 800 to 849
               IF object exist(I) = 1 then Position object I,0,0,1
            next I
            For I = 210 to 212
               IF object exist(I) = 1 then Position object I,0,0,1
            next I
            For I = 900 to 950
               IF object exist(I) = 1 then Position object I,0,0,1
            next I

            Player_LEave

            goto levelstart

         endif
         timerthing(0) = timerthing(0) + 1

         Thiswontwork:
      endif
      If Wave(Level(0),wavenum(Level(0)),3) < timer() - alientimer(0) and NoNew(0) = 0 then Create_Aliens

      If inkey$() = "a"
      shoot_status(0) = shoot_status(0) + 1
      repeat
      sync
      until inkey$() = ""
      endif

      If inkey$() = "s"
      pods(0) = pods(0) + 1
      repeat
      sync
      until inkey$() = ""
      endif

      Ink rgb(255,0,0),0
      Set Text Font "Bank Gothic Medium BT"
      Set text size 20
      Text 2,75,"FPS: "+str$(screen fps())
      Text 320,450,"Level 1: Returning To Earth"

      Loopnum = Loopnum + 1
      If loopnum = 2
         If drain(1) > 0 then Drain(1) = Drain(1) - 1
         If drain(2) > 0 then Drain(2) = Drain(2) - 1
         If drain(3) > 0 then Drain(3) = Drain(3) - 1
         If sheild(0) < 10 then Add#(2) = Add#(2) + 0.05
         If energy(0) < 100 then add#(3) = Add#(3) + 0.7
         If Add#(2) > 7
            Add#(2) = Add#(2) - 7
            Sheild(0) = Sheild(0) + 1
         endif
         If Add#(3) > 1
            Add#(3) = Add#(3) - 1
            energy(0) = energy(0) + 1
         endif

         loopnum = 1
      endif
      If sheild(0) < 0 then sheild(0) = 0
      If energy(0) < 0 then energy(0) = 0

      IF health(0) = 0

         hide object 1
         position object 1,-100,0,-1

         cAmera_Shake(1.0,60.0)
         repeat

            Move_Player_Bullets
            Move_Enemy_Bullets
            Move_Enemy_Missles
            Move_Enemy_Flames
            Move_Powerups
            Move_Coins
            Move_Fireballs

            Update_Shake

            Move_Aliens
            Alien_Shoot

            Bullet_Collision_ALiens

            Draw_Explosion

            Position_pods
            Move_Powerups

            Ink rgb(255,0,0),0
            Set Text Font "Bank Gothic Medium BT"
            Set text size 50
            Center text 320,220,"You Lose"

            sync
         until returnkey() = 1

            For I = 1 to 1005
               IF object exist(I) = 1 then Delete object I
            next I

            goto begingame

      endif

sync
Loop

Function Load_Background(level)

   Load image "media/backgrounds/1.png",1000
   If object exist(1000) = 1 then delete object 1000
   Make object plain 1000,153,30
   Texture object 1000,1000

   Load image "media/backgrounds/"+str$(level+1)+".bmp",1001
   IF object exist(1001) = 1 then delete object 1001
   make object plain 1001,75,30
   Texture object 1001,1001
   Ghost object on 1001

endfunction

Function Load_Player()

   Load image "media/Player.png",1
   Make object plain 1,5,3
   Texture object 1,1
   Set object 1,1,0,1
   Ghost object on 1

endfunction

Function Player_Intro()

   Position object 1,-60,0,-1

   If pods(0) > 0
      Position object 200,object position x(1),object position y(1)-2,-1
   If pods(0) > 1
      Position object 201,object position x(1),object position y(1)+2,-1
   If pods(0) > 2
      Position object 202,object position x(1)-2,object position y(1)-4,-1
   If pods(0) > 3
      Position object 203,object position x(1)-2,object position y(1)+4,-1
   endif
   endif
   endif
   endif

   For x = -60 to -20

      Position object 1,x,object position y(1),object position z(1)

      Position_pods

      Setup_HUD

      sync

   Next x

endfunction

Function Player_LEave()

   playerx = int(object position x(1))

   For x = playerx to 35

      Position object 1,x,object position y(1),object position z(1)

      Position_pods

      Setup_HUD

      sync

   Next x

endfunction

Function Control_Player()

   If upkey() = 1 and object position y(1) < 13 then position object 1,object position x(1),object position y(1)+0.5,object position z(1)
   If downkey() = 1 and object position y(1) > -13 then position object 1,object position x(1),object position y(1)-0.5,object position z(1)
   If leftkey() = 1 and object position x(1) > -27 then position object 1,object position x(1)-0.5,object position y(1),object position z(1)
   If rightkey() = 1 and object position x(1) < 27 then position object 1,object position x(1)+0.5,object position y(1),object position z(1)

endfunction

Function Player_Shoot()

   If controlkey() = 1 and keypress(0) = 0 and energy(0) > 50

      Play sound 5
      IF shoot_status(0) < 5 then energy(0) = energy(0) - shoot_status(0)*2
      If shoot_status(0) > 4 then energy(0) = energy(0) - (shoot_status(0)-4)

      If pods(0) > 0
         For I = 1 to mpb(0)
            If playerbullet#(I,1) = 0
               Pshoot(I,object position x(200),object position y(200),0)
               goto leavethispodshoot1
            endif
         Next I
         leavethispodshoot1:
      If pods(0) > 1
         For I = 1 to mpb(0)
            If playerbullet#(I,1) = 0
               Pshoot(I,object position x(201),object position y(201),0)
               goto leavethispodshoot2
            endif
         Next I
         leavethispodshoot2:
      If pods(0) > 2
         For I = 1 to mpb(0)
            If playerbullet#(I,1) = 0
               Pshoot(I,object position x(202),object position y(202),0)
               goto leavethispodshoot3
            endif
         Next I
         leavethispodshoot3:
      If pods(0) > 3
         For I = 1 to mpb(0)
            If playerbullet#(I,1) = 0
               Pshoot(I,object position x(203),object position y(203),0)
               goto leavethispodshoot4
            endif
         Next I
         leavethispodshoot4:
      endif
      endif
      endif
      endif

      If shoot_status(0) = 1 or shoot_status(0) = 5 :           `111111111111111111111111111
         For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1),int(wrapvalue(-5+rnd(10))))
               goto exitthisfornextloop1
            endif
         Next I
         exitthisfornextloop1:
      endif

      If shoot_status(0) = 2 or shoot_status(0) = 6 :           `222222222222222222222222222
         For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1)-1,0)
               goto exitthisfornextloop2
            endif
         Next I
         exitthisfornextloop2:

         For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1)+1,0)
               goto exitthisfornextloop3
            endif
         Next I
         exitthisfornextloop3:
      endif

      If shoot_status(0) = 3:           `333333333333333333333333333333
         For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1),350)
               goto exitthisfornextloop4
            endif
         Next I
         exitthisfornextloop4:

         For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1),0)
               goto exitthisfornextloop5
            endif
         Next I
         exitthisfornextloop5:

         For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1),10)
               goto exitthisfornextloop6
            endif
         Next I
         exitthisfornextloop6:
      endif

      If shoot_status(0) = 4:          `4444444444444444444444444444444444
         For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1)+1,0)
               goto exitthisfornextloop7
            endif
         Next I
         exitthisfornextloop7:

         For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1)-1,0)
               goto exitthisfornextloop8
            endif
         Next I
         exitthisfornextloop8:

         For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1)+1,355)
               goto exitthisfornextloop9
            endif
         Next I
         exitthisfornextloop9:

         For I = 1 to MPB(0)
            If PlayerBullet#(I,1) = 0
               PShoot(I,Object position x(1)-2,object position y(1)-1,5)
               goto exitthisfornextloop10
            endif
         Next I
         exitthisfornextloop10:

      endif

      keypress(0) = 9
      IF shoot_status(0) > 4 then keypress(0) = 5
   endif
   IF controlkey() = 0 then keypress(0) = 0
   IF keypress(0) > 0 then keypress(0) = keypress(0) - 1


Endfunction

Function PShoot(Num,Bulletx#,Bullety#,angle)

   PlayerBullet#(Num,1) = 1
   PlayerBullet#(Num,2) = Bulletx#
   PlayerBullet#(Num,3) = Bullety#
   PlayerBullet#(Num,4) = angle
   Position object 499+Num,PlayerBullet#(Num,2),PlayerBullet#(Num,3),-1

Endfunction

Function Load_Player_Bullets

   Load image "media/Bullet.bmp",1001

   For I = 500 to 500+MPB(0)
      Make object plain I,1,0.5
      Texture object I,1001
      Set object I,1,0,1
      Ghost object on I
      position object I,0,0,1
   next I

Endfunction

Function Move_Player_Bullets()

   For I = 1 to MPB(0)
      If PlayerBullet#(I,1) = 1
         If object position x(499+I) > 30 then PlayerBullet#(I,1) = 0
         If object position x(499+I) < -30 then playerbullet#(I,1) = 0
         If object position y(499+I) > 16 then PlayerBullet#(I,1) = 0
         If object position y(499+I) < -16 then playerbullet#(I,1) = 0

         zrotate object 499+I,PlayerBullet#(I,4)
         yrotate object 499+I,90
         move object I+499,1
         yrotate object 499+I,0
         PlayerBullet#(I,2) = object position x(499+I)
         PlayerBullet#(I,3) = Object position y(499+I)

      endif
   next I

Endfunction

Function Load_Levels

   For I = 1 to amountLevels(0)

      Open to read 1,"media/level data/level"+str$(I)+".txt"
      Read string 1,numofwaves$
      Amountofwaves(I) = val(numofwaves$)

      For X = 1 to Amountofwaves(I)

         Read string 1,junk$
         Read string 1,alientype$
         Read string 1,amountofaliens$
         Read string 1,timer$
         Read string 1,randomization$

         Wave(I,X,1) = val(alientype$)
         Wave(I,X,2) = val(amountofaliens$)
         Wave(I,X,3) = val(timer$)
         Wave(I,X,4) = val(randomization$)

         Wavenum(I) = 0

      Next X

      close file 1

   next I

Endfunction

Function Load_Aliens

   For I = 1 to 8
      Load image "media/aliens/"+str$(I)+".png",499+I
   Next I

   Load image "Media/aliens/3-2.png",510

Endfunction

Function New_Wave

   wavenum(Level(0)) = Wavenum(Level(0)) + 1
   AlienNum(Level(0),wavenum(level(0))) = 1

Endfunction

Function Create_Aliens

`   If wave(Level(0),wavenum(Level(0)),1) = 1

      For I = 1 to 40

         If Alien#(I,1) = 0

            IF object exist(I+9) = 1 then delete object I+9

            If Wave(Level(0),wavenum(Level(0)),1) = 1 then Make object plain I+9,5,2
            If Wave(Level(0),wavenum(Level(0)),1) = 2 then Make object plain I+9,5,3
            If wave(level(0),wavenum(Level(0)),1) = 3 then Make object plain I+9,4,4
            If wave(level(0),wavenum(Level(0)),1) = 4 then Make object plain I+9,6.5,3
            If wave(level(0),wavenum(Level(0)),1) = 5 then Make object plain I+9,5,4
            If wave(level(0),wavenum(Level(0)),1) = 6 then Make object plain I+9,6,4
            If wave(level(0),wavenum(Level(0)),1) = 7 then Make object plain I+9,14,17
            If wave(level(0),wavenum(Level(0)),1) = 8 then Make object plain I+9,4,4

            Texture object I+9,wave(level(0),wavenum(Level(0)),1)+499
            Set object I+9,1,0,1
            Ghost object on I+9
            `position object 9+I,0,0,1

            Alien#(I,1) = 1
            Alien#(I,2) = 33
            IF ALien#(I,5) = 7 then ALien#(I,2) = 39

            If Wave(Level(0),wavenum(Level(0)),1) = 1 then Alien#(I,3) = rnd(26)-13
            If Wave(Level(0),wavenum(Level(0)),1) = 2 then Alien#(I,3) = rnd(20)-10
            If Wave(Level(0),wavenum(Level(0)),1) = 3 then Alien#(I,3) = rnd(26)-13
            If Wave(Level(0),wavenum(Level(0)),1) = 4 then Alien#(I,3) = rnd(26)-13
            If Wave(Level(0),wavenum(Level(0)),1) = 5 then Alien#(I,3) = rnd(26)-13
            If Wave(Level(0),wavenum(Level(0)),1) = 6 then Alien#(I,3) = rnd(20)-10
            If Wave(Level(0),wavenum(Level(0)),1) = 7 then Alien#(I,3) = 0
            If Wave(Level(0),wavenum(Level(0)),1) = 8 then Alien#(I,3) = 0

            If Wave(Level(0),wavenum(Level(0)),1) = 1 then Alien#(I,4) = 0
            If Wave(Level(0),wavenum(Level(0)),1) = 2 then Alien#(I,4) = wrapvalue(340+rnd(40))
            If Wave(Level(0),wavenum(Level(0)),1) = 3 then Alien#(I,4) = wrapvalue(rnd(360))
            If Wave(Level(0),wavenum(Level(0)),1) = 4 then Alien#(I,4) = 0
            If Wave(Level(0),wavenum(Level(0)),1) = 5 then Alien#(I,4) = 0
            If Wave(Level(0),wavenum(Level(0)),1) = 6 then Alien#(I,4) = 0
            If Wave(Level(0),wavenum(Level(0)),1) = 7 then Alien#(I,4) = 0
            If Wave(Level(0),wavenum(Level(0)),1) = 8 then Alien#(I,4) = 0

            Alien#(I,5) = Wave(Level(0),wavenum(Level(0)),1)

            If Wave(Level(0),wavenum(Level(0)),1) = 1 then Alien#(I,6) = 0.25
            If Wave(Level(0),wavenum(Level(0)),1) = 2 then Alien#(I,6) = 0.5
            If Wave(Level(0),wavenum(Level(0)),1) = 3 then Alien#(I,6) = 0.5
            If Wave(Level(0),wavenum(Level(0)),1) = 4 then Alien#(I,6) = 0.1
            If Wave(Level(0),wavenum(Level(0)),1) = 5 then Alien#(I,6) = 0.7
            If Wave(Level(0),wavenum(Level(0)),1) = 6 then Alien#(I,6) = 0.2
            If Wave(Level(0),wavenum(Level(0)),1) = 7 then Alien#(I,6) = 1
            If Wave(Level(0),wavenum(Level(0)),1) = 8 then Alien#(I,6) = 1

            If Wave(Level(0),wavenum(Level(0)),1) = 1 then Alien#(I,7) = 500+(rnd(250)-120)
            If Wave(Level(0),wavenum(Level(0)),1) = 2 then Alien#(I,7) = 250+(rnd(120)-60)
            If Wave(Level(0),wavenum(Level(0)),1) = 3 then Alien#(I,7) = 240+(rnd(60)-30)
            If Wave(Level(0),wavenum(Level(0)),1) = 4 then Alien#(I,7) = 100+(rnd(50)-25)
            If Wave(Level(0),wavenum(Level(0)),1) = 5 then Alien#(I,7) = 240+(rnd(200)-100)
            If Wave(Level(0),wavenum(Level(0)),1) = 6 then Alien#(I,7) = 75
            If Wave(Level(0),wavenum(Level(0)),1) = 7 then Alien#(I,7) = 150
            If Wave(Level(0),wavenum(Level(0)),1) = 8 then Alien#(I,7) = 0

            If Wave(Level(0),wavenum(Level(0)),1) = 1 then Alien#(I,8) = 0
            If Wave(Level(0),wavenum(Level(0)),1) = 2 then Alien#(I,8) = 0
            If Wave(Level(0),wavenum(Level(0)),1) = 3 then Alien#(I,8) = 1
            If Wave(Level(0),wavenum(Level(0)),1) = 4 then Alien#(I,8) = 5
            If Wave(Level(0),wavenum(Level(0)),1) = 5 then Alien#(I,8) = 7
            If Wave(Level(0),wavenum(Level(0)),1) = 6 then Alien#(I,8) = 7
            If Wave(Level(0),wavenum(Level(0)),1) = 7 then Alien#(I,8) = 1000
            If Wave(Level(0),wavenum(Level(0)),1) = 8 then Alien#(I,8) = 10

            If Wave(Level(0),wavenum(Level(0)),1) = 5 then Alien#(I,9) = ALien#(I,2)
            If Wave(Level(0),wavenum(Level(0)),1) = 6 then Alien#(I,9) = 70
            If Wave(Level(0),wavenum(Level(0)),1) = 7 then Alien#(I,9) = 0

            If Wave(Level(0),wavenum(Level(0)),1) = 5 then Alien#(I,10) = Alien#(I,3)
            If Wave(Level(0),wavenum(Level(0)),1) = 6 then Alien#(I,10) = 5
            If Wave(Level(0),wavenum(Level(0)),1) = 7 then Alien#(I,10) = 60

            If Wave(Level(0),wavenum(Level(0)),1) = 7 then Alien#(I,12) = 0

            Alientimer(0) = timer() + (rnd(Wave(Level(0),wavenum(Level(0)),4))-Wave(Level(0),wavenum(Level(0)),4)/2)
            Position object I+9,Alien#(I,2),Alien#(I,3),-1
            AlienNum(Level(0),wavenum(Level(0))) = AlienNum(Level(0),wavenum(Level(0))) + 1

            Aliennumber(0) = Aliennumber(0) + 1

            goto goodbyefornextloop

         endif

      Next I

      Goodbyefornextloop:

`   endif

Endfunction

Function Move_Aliens

   For I = 1 to 40

      IF Alien#(I,1) = 1


         IF Alien#(I,5) = 1

            zrotate object 9+I,Alien#(I,4)
            yrotate object 9+I,90
            move object I+9,Alien#(I,6)*-1
            yrotate object 9+I,0

            Alien#(I,2) = object position x(I+9)
            Alien#(I,3) = object position y(I+9)
            alien#(I,4) = object angle z(I+9)

            If Alien#(I,2) < -30
               Alien#(I,1) = 0
               Delete object I+9
            endif

         endif

         IF Alien#(I,5) = 2

            zrotate object 9+I,Alien#(I,4)
            If object position y(1) > ALien#(I,3) then zrotate object 9+I,wrapvalue(object angle z(9+I)-1)
            If object position y(1) < ALien#(I,3) then zrotate object 9+I,wrapvalue(object angle z(9+I)+1)
            yrotate object 9+I,90
            move object I+9,Alien#(I,6)*-1
            yrotate object 9+I,0

            Alien#(I,2) = object position x(I+9)
            Alien#(I,3) = object position y(I+9)
            alien#(I,4) = object angle z(I+9)

            If Alien#(I,2) < -30
               Alien#(I,1) = 0
               Delete object I+9
            endif

         endif

         IF Alien#(I,5) = 3

            If object position x(1) > ALien#(I,2) - 35 and object position x(1) < Alien#(I,2) and object position y(1) > Alien#(I,3) - 5 and object position y(1) < Alien#(I,3) + 5
               ALien#(I,6) = 1
               Texture object 9+I,510
            endif
            ALien#(I,4) = wrapvalue(ALien#(I,4)-10)
            zrotate object 9+I,Alien#(I,4)
            yrotate object 9+I,90
            Position object 9+I,Alien#(I,2)-ALien#(I,6),Alien#(I,3),-1
            yrotate object 9+I,0

            Alien#(I,2) = object position x(I+9)
            Alien#(I,3) = object position y(I+9)
            alien#(I,4) = object angle z(I+9)

            If Alien#(I,2) < -30
               Alien#(I,1) = 0
               Delete object I+9
            endif

         endif

         IF Alien#(I,5) = 4

            zrotate object 9+I,Alien#(I,4)
            yrotate object 9+I,90
            move object I+9,Alien#(I,6)*-1
            yrotate object 9+I,0

            Alien#(I,2) = object position x(I+9)
            Alien#(I,3) = object position y(I+9)
            alien#(I,4) = object angle z(I+9)

            If Alien#(I,2) < -30
               Alien#(I,1) = 0
               Delete object I+9
            endif

         endif

         IF Alien#(I,5) = 5

            Position object 9+I,curvevalue(Alien#(I,9),Alien#(I,2),70),curvevalue(Alien#(I,10),Alien#(I,3),70),-1
            If ALien#(I,9) < Alien#(I,2)+2 and ALien#(I,9) > Alien#(I,2)-2 and Alien#(I,10) < Alien#(I,3)+2 and Alien#(I,10) > Alien#(I,3)-2
               Alien#(I,9) = rnd(50)-25
               Alien#(I,10) = rnd(20)-10
            endif
            Point object 9+I,object position x(1),object position y(1),-1

            zrotate object 9+I,object angle x(I+9)
            xrotate object 9+I,0
            yrotate object 9+I,0

            Alien#(I,2) = object position x(I+9)
            Alien#(I,3) = object position y(I+9)
            alien#(I,4) = wrapvalue(object angle z(I+9)+180)

            If Alien#(I,2) < -30
               Alien#(I,1) = 0
               Delete object I+9
            endif

         endif

         IF Alien#(I,5) = 6

            IF rnd(200) = 2
               If Alien#(I,9) = 70
                  Alien#(I,9) = 290
               else
                  Alien#(I,9) = 70
               endif
            endif

            IF Alien#(I,3) > 10 then Alien#(I,9) = 70
            IF Alien#(I,3) < -10 then Alien#(I,9) = 290

            zrotate object 9+I,Alien#(I,9)
            yrotate object 9+I,90
            move object I+9,Alien#(I,6)*-1
            yrotate object 9+I,0
            zrotate object 9+I,0

            Alien#(I,2) = object position x(I+9)
            Alien#(I,3) = object position y(I+9)
            alien#(I,4) = object angle z(I+9)

            If Alien#(I,2) < -30
               Alien#(I,1) = 0
               Delete object I+9
            endif

         endif

         IF Alien#(I,5) = 7

            IF Alien#(I,10) = 0
               Select ALien#(I,9)
                  Case 0
                     ALien#(I,9) = 2
                     ALien#(I,11) = 0
                     Alien#(I,10) = 180
                     goto goodbyeandstuff
                  endcase
                  Case 1
                     Alien#(I,9) = 2
                     ALien#(I,11) = 0
                     Alien#(I,10) = 180
                     goto goodbyeandstuff
                  endcase
                  Case 2
                     Alien#(I,9) = 1
                     ALien#(I,11) = 0
                     Alien#(I,10) = 400
                     goto goodbyeandstuff
                  endcase
               endselect
            endif

            goodbyeandstuff:

            Alien#(I,10) = Alien#(I,10) - 1

            If Alien#(I,9) = 0 then Position object 9+I,curvevalue(25,object position x(I+9),10),0,-1
            If alien#(I,9) = 1
               If Alien#(I,11) <> 1 and object position y(9+I) < 0.1

                  Alien#(I,11) = Alien#(I,11) + 0.01
                  x1=-25
                  y1=0
                  vx1=-18
                  vy1=-31
                  x2=25
                  y2=0
                  vx2=23
                  vy2=-28
                  t# = Alien#(I,11)
                  Position object 9+I,x1*(1-t#)^3 + 3*vx1*(1-t#)^2*t# + 3*vx2*(1-t#)*t#^2 + x2*t#^3,y1*(1-t#)^3 + 3*vy1*(1-t#)^2*t# + 3*vy2*(1-t#)*t#^2 + y2*t#^3,-1

               endif
            endif
            If Alien#(I,9) = 2

               If Alien#(I,11) <> 1 and object position y(9+I) > -0.1

                  Alien#(I,11) = Alien#(I,11) + 0.01
                  x1=25
                  y1=0
                  vx1=18
                  vy1=31
                  x2=-25
                  y2=0
                  vx2=-23
                  vy2=28
                  t# = Alien#(I,11)
                  Position object 9+I,x1*(1-t#)^3 + 3*vx1*(1-t#)^2*t# + 3*vx2*(1-t#)*t#^2 + x2*t#^3,y1*(1-t#)^3 + 3*vy1*(1-t#)^2*t# + 3*vy2*(1-t#)*t#^2 + y2*t#^3,-1

               endif

            endif

            Point object 9+I,0,0,-1

            IF object position x(9+I) > 0 then zrotate object 9+I,object angle x(9+I)
            If object position x(9+I) < 0 then zrotate object 9+I,wrapvalue(object angle x(9+I)+180)
            yrotate object 9+I,0
            xrotate object 9+I,0

            Alien#(I,2) = object position x(I+9)
            Alien#(I,3) = object position y(I+9)
            Alien#(I,4) = object angle z(I+9)

            If Alien#(I,2) < -30
               Alien#(I,1) = 0
               Delete object I+9
            endif

         endif

         If Alien#(I,5) = 8

            zrotate object 9+I,Alien#(I,4)
            yrotate object 9+I,0

            IF I = 2 then Position object 9+I,curvevalue(newxvalue(ALien#(1,2),wrapvalue(ALien#(1,4)+90),1),object position x(I+9),20),curvevalue(newyvalue(Alien#(1,3),wrapvalue(Alien#(1,4)+90),12),object position y(9+I),20),-1
            IF I = 3 then Position object 9+I,curvevalue(newxvalue(ALien#(1,2),wrapvalue(ALien#(1,4)+90),1),object position x(I+9),20),curvevalue(newyvalue(Alien#(1,3),wrapvalue(Alien#(1,4)-90),12),object position y(9+I),20),-1
            IF I = 4 then Position object 9+I,curvevalue(newxvalue(ALien#(1,2),wrapvalue(ALien#(1,4)+90),3.5),object position x(I+9),20),curvevalue(newyvalue(Alien#(1,3),wrapvalue(Alien#(1,4)+90),10),object position y(9+I),20),-1
            IF I = 5 then Position object 9+I,curvevalue(newxvalue(ALien#(1,2),wrapvalue(ALien#(1,4)+90),3.5),object position x(I+9),20),curvevalue(newyvalue(Alien#(1,3),wrapvalue(Alien#(1,4)-90),10),object position y(9+I),20),-1

            Alien#(I,2) = object position x(I+9)
            Alien#(I,3) = object position y(I+9)
            alien#(I,4) = object angle z(I+9)

            If Alien#(I,2) < -30
               Alien#(I,1) = 0
               Delete object I+9
            endif

         endif

      endif


   next I

Endfunction

Function Bullet_Collision_ALiens

   For I = 1 to 40

      If Alien#(I,1) = 1

         For x = 1 to 50

            If PlayerBullet#(x,1) = 1 and object exist(I+9) = 1

If Alien#(I,2) < PlayerBullet#(x,2)+(object size x(I+9)/2) and Alien#(I,2) > PlayerBullet#(x,2)-(object size x(I+9)/2) and Alien#(I,3) < PlayerBullet#(x,3)+(object size y(I+9)/2) and Alien#(I,3) > PlayerBullet#(x,3)-(object size y(I+9)/2)

                  If Alien#(I,8) =< 0
                     Make_Explosion(Alien#(I,2),Alien#(I,3))

                     For z = 1 to 5
                        Fireball(Alien#(I,2),Alien#(I,3),wrapvalue(rnd(360)))
                     next z

                     IF Alien#(I,5) > 0 and Alien#(I,5) < 4 then Coin_Explosion(Alien#(I,2),Alien#(I,3),1)
                     If Alien#(I,5) > 3 and Alien#(I,5) < 7 or Alien#(I,5) = 8 then Coin_Explosion(Alien#(I,2),Alien#(I,3),3)
                     If Alien#(I,5) = 7 then Coin_Explosion(Alien#(I,2),Alien#(I,3),10)

                     If Camerashake#(2) = 0
                        If Alien#(I,5) = 4 or Alien#(I,5) = 5 or Alien#(I,5) = 6 or Alien#(I,5) = 8 then Camera_Shake(0.3,20.0)
                        If Alien#(I,5) = 7 then Camera_Shake(0.8,20.0)
                     endif

                     Alien#(I,1) = 0
                     Position object I+9,0,0,1

                     If alien#(I,5) = 1 then score(0) = score(0) + 5
                     If alien#(I,5) = 2 then score(0) = score(0) + 10
                     If alien#(I,5) = 3 then score(0) = score(0) + 25
                     If alien#(I,5) = 4 then score(0) = score(0) + 100
                     If alien#(I,5) = 5 then score(0) = score(0) + 200
                     If alien#(I,5) = 6 then score(0) = score(0) + 300
                     If alien#(I,5) = 7
                        score(0) = score(0) + 2000
                        Make_explosion(ALien#(I,2),Alien#(I,3))
                        For I = 1 to 5
                           Make_explosion(ALien#(I,2)+rnd(10)-5,Alien#(I,3)+rnd(10)-5)
                        Next I
                     endif
                     If alien#(I,5) = 8
                        Create_Powerup(Alien#(I,2),Alien#(I,3))
                        score(0) = score(0) + 200
                        Alien#(1,8) = Alien#(1,8) - 125
                        important(0) = 1
                        Make_explosion(ALien#(1,2),Alien#(1,3))
                        For I = 1 to 5
                           Make_explosion(ALien#(1,2)+rnd(10)-5,Alien#(1,3)+rnd(10)-5)
                        Next I
                     endif

                     IF int(rnd(30)) = 2 then Create_Powerup(Alien#(I,2),Alien#(I,3))
                  else
                     Play sound 3
                     Alien#(I,8) = Alien#(I,8) - 1
                  endif

                  PlayerBullet#(x,1) = 0
                  Position object x+499,0,0,1

               Endif

            endif

         Next x

      endif

   next I

Endfunction

Function Load_Explosion

   For I = 1 to 16

      Load image "media/explosions/"+str$(I)+".bmp",I+99

   Next I

   For I = 1 to 20

      MAke object plain 99+I,7,7
      Set object 99+I,1,0,1
      Ghost object on 99+I
      Hide object 99+I
      Position object 99+I,0,0,5
      Ghost object on 99+I
      position object 99+I,0,0,1

   Next I

Endfunction

Function MAke_Explosion(x#,y#)

   For I = 1 to 20

      IF Explosion#(I,1) = 0

         Explosion#(I,1) = 1
         Explosion#(I,2) = x#
         Explosion#(I,3) = y#
         Explosion#(I,4) = 1

         Show object 99+I

         Play sound 1

         goto leavethisexplosionloop

      endif

   Next I

   leavethisexplosionloop:

Endfunction

Function Draw_Explosion

   For I = 1 to 20

      If Explosion#(I,1) = 1

         Position object 99+I,Explosion#(I,2),Explosion#(I,3),-1
         Texture object 99+I,int(Explosion#(I,4))+99
         Explosion#(I,4) = Explosion#(I,4) + 0.3

         If explosion#(I,4) > 17
            explosion#(I,1) = 0
            Position object 99+I,0,0,5
            Hide object 99+I
         endif

      ENdif

   Next I

Endfunction

Function Load_Sounds

   Load sound "media/sound/explode.wav",1
   Load sound "media/sound/explode3.wav",2
   Load sound "media/sound/hit.wav",3

   Load sound "media/sound/playerGun.wav",5
   Load sound "media/sound/lasergun.wav",6
   Load sound "media/sound/launch.wav",7

   Load sound "media/sound/powerup.wav",10
   Load sound "media/sound/powerup over.wav",11
   Load sound "media/sound/coin.wav",12

Endfunction

Function Load_Music

`   Load music "media/music/1.mp3",1
`   Load music "media/music/2.mp3",2
`   Load music "media/music/3.mp3",3
`   Load music "media/music/4.mp3",4

Endfunction

Function Load_Enemy_Bullets

   Load image "media/laser.bmp",1002

   For I = 1 to 50

      Make object plain 599+I,1.3,1.3
      Texture object 599+I,1002
      Set object 599+I,1,0,1
      Ghost object on 599+I
      position object 599+I,0,0,1

   Next I

Endfunction

Function Load_Enemy_Missles

   Load image "media/missle.bmp",1003

   For I = 1 to 50

      Make object plain 699+I,2,1
      If I < 26 then Texture object 699+I,1003
      If I < 26 then Set object 699+I,1,0,1
      hide object 699+I
      Ghost object on 699+I
      position object 699+I,0,0,1

   Next I

Endfunction

Function Load_Enemy_flames

   For I = 1 to 50

      Make object plain 799+I,1.5,1.5
      Color object 799+I,rgb(rnd(155)+100,rnd(100)+10,0)
      hide object 799+I
      Ghost object on 799+I
      position object 799+I,0,0,1

   Next I

Endfunction

Function ALien_Shoot

   For I = 1 to 40

      IF Alien#(I,1) = 1

         ALien#(I,7) = ALien#(I,7) - 5

         If Alien#(I,7) < 0

            If ALien#(I,5) = 1 then Alien#(I,7) = 500+(rnd(100)-50)
            If ALien#(I,5) = 2 then Alien#(I,7) = 250+(rnd(120)-60)
            If ALien#(I,5) = 3 then Alien#(I,7) = 240+(rnd(60)-30)
            If Alien#(I,5) = 4 then Alien#(I,7) = 100+(rnd(50)-25)
            If Alien#(I,5) = 5 then Alien#(I,7) = 240+(rnd(200)-100)
            If Alien#(I,5) = 6 then Alien#(I,7) = 75
            If Alien#(I,5) = 7 then Alien#(I,7) = 150

            If ALien#(I,5) = 1 then Ashoot(Alien#(I,2),Alien#(I,3),180+(rnd(80)-40))
            If ALien#(I,5) = 2 then Ashoot(Alien#(I,2),Alien#(I,3),int(wrapvalue(Alien#(I,4)+180)))
            If ALien#(I,5) = 3 then Ashoot(Alien#(I,2),Alien#(I,3),int(wrapvalue(rnd(360))))
            If ALien#(I,5) = 4 then AMissle(Alien#(I,2),Alien#(I,3)-1,int(wrapvalue(rnd(20))))
            If ALien#(I,5) = 5
               AMissle(newxvalue(ALien#(I,2),wrapvalue(Alien#(I,4)+90),2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+90),2),int(wrapvalue(Alien#(I,4)+180)))
               AMissle(newxvalue(ALien#(I,2),wrapvalue(Alien#(I,4)-90),2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)-90),2),int(wrapvalue(Alien#(I,4)+180)))
               Ashoot(Alien#(I,2),Alien#(I,3),int(wrapvalue(Alien#(I,4)-10)))
               Ashoot(Alien#(I,2),Alien#(I,3),int(wrapvalue(Alien#(I,4)+10)))
               Ashoot(Alien#(I,2),Alien#(I,3),int(wrapvalue(Alien#(I,4))))
            endif
            If Alien#(I,5) = 6
               If Alien#(I,10) > 0
                  AFlame(Alien#(I,2),Alien#(I,3)-1,int(wrapvalue(Alien#(I,4)-20)))
                  AFlame(Alien#(I,2),Alien#(I,3)-1,int(wrapvalue(Alien#(I,4)+20)))
                  AFlame(Alien#(I,2),Alien#(I,3)-1,int(wrapvalue(Alien#(I,4))))
               endif
               Alien#(I,10) = Alien#(I,10) - 1
               IF ALien#(I,10) = -15 then Alien#(I,10) = 5
            endif

            If ALien#(I,5) = 7
               Alien#(I,12) = Alien#(I,12)+1
               If Alien#(I,12) > 10 and Alien#(I,12) < 20
                  thingy# = 100
                  AFlame(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+90),8),int(wrapvalue(Alien#(I,4))))
                  AFlame(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+90),8),int(wrapvalue(Alien#(I,4)-20)))
                  AFlame(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+90),8),int(wrapvalue(Alien#(I,4)-40)))

                  AFlame(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)-90),8),int(wrapvalue(Alien#(I,4))))
                  AFlame(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)-90),8),int(wrapvalue(Alien#(I,4)+20)))
                  AFlame(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)-90),8),int(wrapvalue(Alien#(I,4)+40)))

                  AFlame(Alien#(I,2),Alien#(I,3),int(ALien#(I,4)))
                  AFlame(Alien#(I,2),Alien#(I,3),int(wrapvalue(ALien#(I,4)+20)))
                  AFlame(Alien#(I,2),Alien#(I,3),int(wrapvalue(ALien#(I,4)-20)))
               endif
               If Alien#(I,12) > 20 and Alien#(I,12) < 30
                  Ashoot(ALien#(I,2),newyvalue(Alien#(I,3),wrapvalue(Alien#(I,4)+90),8),int(wrapvalue(Alien#(I,4)+rnd(60)+150)))
                  Ashoot(ALien#(I,2),newyvalue(Alien#(I,3),wrapvalue(Alien#(I,4)+90),6),int(wrapvalue(Alien#(I,4)+rnd(60)+150)))
                  Ashoot(ALien#(I,2),newyvalue(Alien#(I,3),wrapvalue(Alien#(I,4)+90),4),int(wrapvalue(Alien#(I,4)+rnd(60)+150)))
                  Ashoot(ALien#(I,2),newyvalue(Alien#(I,3),wrapvalue(Alien#(I,4)+90),2),int(wrapvalue(Alien#(I,4)+rnd(60)+150)))
                  Ashoot(ALien#(I,2),newyvalue(Alien#(I,3),wrapvalue(Alien#(I,4)+90),0),int(wrapvalue(Alien#(I,4)+rnd(60)+150)))
                  Ashoot(ALien#(I,2),newyvalue(Alien#(I,3),wrapvalue(Alien#(I,4)+90),-2),int(wrapvalue(Alien#(I,4)+rnd(60)+150)))
                  Ashoot(ALien#(I,2),newyvalue(Alien#(I,3),wrapvalue(Alien#(I,4)+90),-4),int(wrapvalue(Alien#(I,4)+rnd(60)+150)))
                  Ashoot(ALien#(I,2),newyvalue(Alien#(I,3),wrapvalue(Alien#(I,4)+90),-6),int(wrapvalue(Alien#(I,4)+rnd(60)+150)))
                  Ashoot(ALien#(I,2),newyvalue(Alien#(I,3),wrapvalue(Alien#(I,4)+90),-8),int(wrapvalue(Alien#(I,4)+rnd(60)+150)))
               endif
               If Alien#(I,12) > 30 and Alien#(I,12) < 40
                  AMissle(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+90),8),int(wrapvalue(Alien#(I,4))))
                  AMissle(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+270),8),int(wrapvalue(Alien#(I,4))))
                  AMissle(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+90),1),int(wrapvalue(Alien#(I,4))))
                  AMissle(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+270),1),int(wrapvalue(Alien#(I,4))))
               endif
               If ALien#(I,12) > 30 and Alien#(I,12) < 40
                  AShoot(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+90),8),int(wrapvalue(Alien#(I,4))))
                  AShoot(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+90),8),int(wrapvalue(Alien#(I,4)-rnd(20))))
                  AShoot(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)+90),8),int(wrapvalue(Alien#(I,4)-rnd(20)+20)))

                  AShoot(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)-90),8),int(wrapvalue(Alien#(I,4))))
                  AShoot(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)-90),8),int(wrapvalue(Alien#(I,4)+rnd(20))))
                  AShoot(Alien#(I,2),newyvalue(ALien#(I,3),wrapvalue(Alien#(I,4)-90),8),int(wrapvalue(Alien#(I,4)+rnd(20)+20)))

                  AShoot(Alien#(I,2),Alien#(I,3),int(ALien#(I,4)))
                  AShoot(Alien#(I,2),Alien#(I,3),int(wrapvalue(ALien#(I,4)+rnd(20))))
                  AShoot(Alien#(I,2),Alien#(I,3),int(wrapvalue(ALien#(I,4)-rnd(20))))

                  AFlame(Alien#(I,2),Alien#(I,3),int(ALien#(I,4)))
                  AFlame(Alien#(I,2),Alien#(I,3),int(wrapvalue(ALien#(I,4)+20)))
                  AFlame(Alien#(I,2),Alien#(I,3),int(wrapvalue(ALien#(I,4)-20)))
               endif

               IF Alien#(I,12) = 41 then Alien#(I,12) = 0
            endif

         endif

      endif

   NExt I

Endfunction

Function Ashoot(x#,y#,angle)

   For I = 1 to 50

      IF AlienBullet#(I,1) = 0

         AlienBullet#(I,1) = 1
         AlienBullet#(I,2) = x#
         AlienBullet#(I,3) = y#
         ALienBullet#(I,4) = angle

         SHow object 599+I

         Play sound 6

         goto leavethisalienshoot

      endif

   NExt I

   leavethisalienshoot:

Endfunction

Function Amissle(x#,y#,angle)

   For I = 1 to 25

      IF AlienMissle#(I,1) = 0

         AlienMissle#(I,1) = 1
         AlienMissle#(I,2) = x#
         AlienMissle#(I,3) = y#
         ALienMissle#(I,4) = wrapvalue(angle+180)

         SHow object 699+I

         Play sound 7

         goto leavethisalienshoot

      endif

   NExt I

   leavethisalienshoot:

Endfunction

Function AFlame(x#,y#,angle)

   For I = 1 to 50

      IF AlienFlame#(I,1) = 0

         AlienFlame#(I,1) = 1
         AlienFlame#(I,2) = x#
         AlienFlame#(I,3) = y#
         ALienFlame#(I,4) = wrapvalue(angle+180)
         AlienFlame#(I,5) = wrapvalue(360)

         SHow object 799+I

         goto leavethisalienshoot

      endif

   NExt I

   leavethisalienshoot:

Endfunction

Function Move_Enemy_Bullets

   For I = 1 to 50

      If ALienBullet#(I,1) = 1

         Position object 599+I,AlienBullet#(I,2),AlienBullet#(I,3),-1
         zrotate object 599+I,AlienBullet#(I,4)
         yrotate object 599+I,90
         move object I+599,0.5
         yrotate object 599+I,0
         zrotate object 599+I,0

         ALienbullet#(I,2) = object position x(599+I)
         ALienbullet#(I,3) = object position y(599+I)

         IF Alienbullet#(I,2) < -40 or Alienbullet#(I,2) > 40 or Alienbullet#(I,3) < -17 or ALienbullet#(I,3) > 17
            Alienbullet#(I,1) = 0
            hide object 599+I
         endif

      Endif

   Next I

Endfunction

Function Move_Enemy_Missles

   For I = 1 to 25

      If ALienmissle#(I,1) = 1

         Position object 699+I,Alienmissle#(I,2),Alienmissle#(I,3),-1
         Position object 724+I,Alienmissle#(I,2),Alienmissle#(I,3),1
         Point object 724+I,object position x(1),object position y(1),-1

         IF object angle x(724+I) > wrapvalue(object angle z(699+I)+180) then ALienmissle#(I,4) = wrapvalue(Alienmissle#(I,4) - 2)
         IF object angle x(724+I) < wrapvalue(object angle z(699+I)+180) then ALienmissle#(I,4) = wrapvalue(Alienmissle#(I,4) + 2)
         zrotate object 699+I,Alienmissle#(I,4)

         yrotate object 699+I,90
         move object I+699,0.5
         yrotate object 699+I,0
         zrotate object 699+I,wrapvalue(Alienmissle#(I,4)+180)

         ALienmissle#(I,2) = object position x(699+I)
         ALienmissle#(I,3) = object position y(699+I)

         IF Alienmissle#(I,2) < -40 or Alienmissle#(I,2) > 40 or Alienmissle#(I,3) < -17 or ALienmissle#(I,3) > 17
            Alienmissle#(I,1) = 0
            hide object 699+I
            hide object 724+I
         endif

      Endif

   Next I

Endfunction

Function Move_Enemy_Flames

   For I = 1 to 50

      If ALienFlame#(I,1) = 1

         Position object 799+I,Alienflame#(I,2),AlienFlame#(I,3),-1
         zrotate object 799+I,AlienFlame#(I,4)
         yrotate object 799+I,90
         move object I+799,0.5
         yrotate object 799+I,0
         zrotate object 799+I,ALienFlame#(I,5)
         AlienFlame#(I,5) = wrapvalue(AlienFlame#(I,5)-5)

         ALienFlame#(I,2) = object position x(799+I)
         ALienFlame#(I,3) = object position y(799+I)

         IF AlienFlame#(I,2) < -40 or AlienFlame#(I,2) > 40 or AlienFlame#(I,3) < -17 or ALienFlame#(I,3) > 17
            AlienFlame#(I,1) = 0
            hide object 799+I
         endif

      Endif

   Next I

Endfunction

Function Player_Alien_Collision

   For I = 1 to 40

      If object exist(I+9) = 1
      IF object position z(I+9) = -1

If Alien#(I,2) < object position x(1)+(object size x(I+9)/2) and Alien#(I,2) > object position x(1)-(object size x(I+9)/2) and Alien#(I,3) < object position y(1)+(object size y(I+9)/2) and Alien#(I,3) > object position y(1)-(object size y(I+9)/2)

            IF sheild(0) < 5
               Health(0) = Health(0) - 1
               Drain(1) = Drain(1) + 7
               Drain(2) = Sheild(0) * 4
               sheild(0) = 0
            else
               sheild(0) = 0
               Drain(2) = Drain(2) + 30
            endif
            If Alien#(I,5) = 7
               Health(0) = 0
               Sheild(0) = 0
            endif
            Play sound 2

            Camera_Shake(0.3,20.0)

            Make_Explosion(object position x(1),Object position y(1))

            Alien#(I,1) = 0
            Position object I+9,0,0,1

         endif

      endif
      endif

   Next I

Endfunction

Function Alien_Bullet_Collision_Player

   For I = 1 to 50

      If AlienBullet#(I,1) = 1

         If AlienBullet#(I,2) < object position x(1)+ 2 and AlienBullet#(I,2) > object position x(1)-2
         If AlienBullet#(I,3) < object position y(1)+ 1.5 and AlienBullet#(I,3) > object position y(1)-1.5

            IF sheild(0) < 5
               Health(0) = Health(0) - 1
               Drain(1) = Drain(1) + 7
               Drain(2) = Sheild(0) * 4
               sheild(0) = 0
            else
               sheild(0) = 0
               Drain(2) = Drain(2) + 25
            endif
            Play sound 2

            Camera_Shake(0.3,20.0)

         Make_Explosion(object position x(1),Object position y(1))

         AlienBullet#(I,1) = 0
         Position object I+599,0,0,1

         Endif
         endif

      endif

   Next I

Endfunction

Function Alien_Flame_Collision_Player

   For I = 1 to 50

      If AlienFlame#(I,1) = 1 and object exist(I+799) = 1

         If AlienFlame#(I,2) < object position x(1)+2 and AlienFlame#(I,2) > object position x(1)-2
         If AlienFlame#(I,3) < object position y(1)+1.5 and AlienFlame#(I,3) > object position y(1)-1.5

            IF sheild(0) < 5
               Health(0) = Health(0) - 1
               Drain(1) = Drain(1) + 7
               Drain(2) = Sheild(0) * 4
               sheild(0) = 0
            else
               sheild(0) = 0
               Drain(2) = Drain(2) + 25
            endif
            Play sound 2

            Camera_Shake(0.3,20.0)

         Make_Explosion(object position x(1),Object position y(1))

         AlienFlame#(I,1) = 0
         Position object I+799,0,0,1

         Endif
         endif

      endif

   Next I

Endfunction

Function Missle_Collision_Player

   For I = 1 to 25

      If AlienMissle#(I,1) = 1

         IF Alienmissle#(I,2) < object position x(1)+3 and AlienMissle#(I,2) > object position x(1)-3
         IF Alienmissle#(I,3) < object position x(1)+2 and AlienMissle#(I,3) > object position x(1)-2

            Position object I+724,0,0,1
            hide object 699+I

            IF sheild(0) < 5
               Health(0) = Health(0) - 1
               Drain(1) = Drain(1) + 7
               Drain(2) = Sheild(0) * 4
               sheild(0) = 0
            else
               sheild(0) = 0
               Drain(2) = Drain(2) + 25
            endif
            Play sound 2

            Camera_Shake(0.3,20.0)

            Make_Explosion(object position x(1),Object position y(1))

            AlienMissle#(I,1) = 0

         endif
         endif

      endif

   Next I

Endfunction

Function Load_Powerups

   Load image "media/powerups/pod.bmp",200
   Load image "media/powerups/Weapon Upgrade.bmp",201
   Load image "media/powerups/health.bmp",202
   Load image "media/powerups/star.bmp",203

   For I = 1 to 3

      Make object plain 209+I,2,2
      Set object 209+I,1,0,1
      Ghost object on 209+I
      position object 209+I,0,0,1

   Next I

Endfunction

Function Load_Pods

   Load image "media/pod.bmp",1004

   For I = 1 to 4

      MAke object plain 199+I,1,1
      Texture object 199+I,1004
      Set object 199+I,1,0,1
      Ghost object on 199+I
      position object 199+I,0,0,1

   Next I

Endfunction

Function Position_pods

   If pods(0) > 0
      Position object 200,curvevalue(object position x(1),object position x(200),10),curvevalue(object position y(1)-2,object position y(200),10),-1
      zrotate object 200,curveangle(0,object angle z(200),30)
   If pods(0) > 1
      Position object 201,curvevalue(object position x(1),object position x(201),10),curvevalue(object position y(1)+2,object position y(201),10),-1
      zrotate object 201,curveangle(0,object angle z(201),30)
   If pods(0) > 2
      Position object 202,curvevalue(object position x(1)-2,object position x(202),10),curvevalue(object position y(1)-4,object position y(202),10),-1
      zrotate object 202,curveangle(0,object angle z(202),30)
   If pods(0) > 3
      Position object 203,curvevalue(object position x(1)-2,object position x(203),10),curvevalue(object position y(1)+4,object position y(203),10),-1
      zrotate object 203,curveangle(0,object angle z(203),30)
   endif
   endif
   endif
   endif

Endfunction

Function Create_Powerup(x#,y#)

   For I = 1 to 3

      If Powerup#(I,1) = 0

         Powerup#(I,1) = 1
         Powerup#(I,2) = x#
         Powerup#(I,3) = y#
         powerup#(I,4) = rnd(3)+1
         If important(0) = 1
            powerup#(I,4) = 3
            important(0) = 0
         endif

         Texture object 209+I,199+Powerup#(I,4)

         goto leavepoweruploop

      Endif

   Next I

   leavepoweruploop:

Endfunction

Function Move_Powerups

   For I = 1 to 3

      If powerup#(I,1) = 1

         Powerup#(I,2) = Powerup#(I,2) - 0.2

         Position object 209+I,Powerup#(I,2),Powerup#(I,3),-1

         If powerup#(I,2) < -35
            powerup#(I,1) = 0
         endif

      endif

   Next I

Endfunction

function Powerup_Collision

   for I = 1 to 3

      If powerup#(I,1) = 1

         If Powerup#(I,2) < object position x(1)+(object size x(1)/2) and Powerup#(I,2) > object position x(1)-(object size x(1)/2)
         If Powerup#(I,3) < object position y(1)+(object size y(1)/2) and Powerup#(I,3) > object position y(1)-(object size y(1)/2)

            If powerup#(I,4) = 1 and pods(0) < 4

               Pods(0) = pods(0) + 1
               Position object 199+pods(0),powerup#(I,2),powerup#(I,3),-1
               play sound 10

            endif

            If powerup#(I,4) = 2

               IF shoot_status(0) < 5 then shoot_status(0) = shoot_status(0) + 1
               play sound 10

            endif

            If powerup#(I,4) = 3

               Health(0) = Health(0) + 3
               IF health(0) > 10 then Health(0) = 10
               play sound 10

            endif

            If powerup#(I,4) = 4

               Star(0) = 3000
               play sound 10

            endif

            powerup#(I,1) = 0
            position object 209+I,0,0,1

         Endif
         endif

      endif

   next I

endfunction

Function Load_Coins

   Load image "media/coin.bmp",1005

   For I = 900 to 950

      Make object plain I,1,1
      Texture object I,1005
      Set object I,1,0,1

   Next I

Endfunction

Function Coin_Explosion(x#,y#,amount)

   For I = 1 to amount

      For x = 1 to 50

         If Coin#(x,1) = 0
            Coin#(x,1) = 1
            Coin#(x,2) = x#
            Coin#(x,3) = y#
            Coin#(x,4) = wrapvalue(rnd(360))
            Coin#(x,5) = 1
            Position object 899+x,x#,y#,-1
            goto leavethiscoin
         endif

      Next x

      leavethiscoin:

   Next I

Endfunction

Function Move_Coins

   For I = 1 to 50

      If Coin#(I,1) = 1

         If object position x(899+I) > 30 then Coin#(I,1) = 0
         If object position x(899+I) < -30 then Coin#(I,1) = 0
         If object position y(899+I) > 16 then Coin#(I,1) = 0
         If object position y(899+I) < -16 then Coin#(I,1) = 0
         If object position z(899+I) < -30 then Coin#(I,1) = 0
         If coin#(I,1) = 0 then position object 899+I,0,0,1

         IF Coin#(I,5) = 1
            Coin#(I,4) = curveangle(180,coin#(I,4),10)

            zrotate object 899+I,Coin#(I,4)
            yrotate object 899+I,90
            move object I+899,0.5
            yrotate object 899+I,0
            zrotate object 899+I,0
            Coin#(I,2) = object position x(899+I)
            Coin#(I,3) = Object position y(899+I)
         endif
         If Coin#(I,5) = 2
            zrotate object 899+I,0
            yrotate object 899+I,0
            Position object 899+I,Coin#(I,2),Coin#(I,3),object position z(899+I)-1
            Coin#(I,2) = object position x(899+I)
            Coin#(I,3) = Object position y(899+I)
         endif

      endif

   Next I

Endfunction

Function Coin_Collision

   For I = 1 to 50

      If coin#(I,1) =  1 and coin#(I,5) = 1

         If Coin#(I,2) < object position x(1)+(object size x(1)/2) and Coin#(I,2) > object position x(1)-(object size x(1)/2)
         If Coin#(I,3) < object position y(1)+(object size y(1)/2) and Coin#(I,3) > object position y(1)-(object size y(1)/2)

            Coin#(I,5) = 2
            score(0) = score(0) + 50
            play sound 12

         endif
         endif

      endif

   Next I

Endfunction

Function Camera_Shake(amount#,time#)

   Camerashake#(1) = amount#
   Camerashake#(2) = time#

endfunction

Function Update_Shake

   IF Camerashake#(2) > 0

      camerashake#(2) = camerashake#(2) - 1

      If camerashake#(2) < 20 then camerashake#(1) = curvevalue(0,camerashake#(1),20)

      IF camera position x() <> 0
         x# = 0
      else
         x# = rnd(camerashake#(1)*2)-camerashake#(1)
      endif

      IF camera position y() <> 0
         y# = 0
      else
         y# = rnd(camerashake#(1)*2)-camerashake#(1)
      endif

      IF camera position z() <> -38
         z# = -38
      else
         z# = -38+rnd(camerashake#(1)*2)-camerashake#(1)
      endif

      position camera x#,y#,z#

   endif

Endfunction

Function Fireball(x#,y#,dir#)

   For I = 1 to 75

      If Fireball#(I,1) = 0

         Fireball#(I,1) = 1
         Fireball#(I,2) = x#
         Fireball#(I,3) = y#
         Fireball#(I,4) = dir#
         Fireball#(I,5) = 100
         Position object 299+I,x#,y#,-0.5
         show object 299+I
         fade object I+299,100
         goto leavefireball

      endif

   next I

   leavefireball:

endfunction

Function Load_Fireballs

   Load image "media/fireball.jpg",1006

   For I = 300 to 374

      Make object plain I,1,1
      Texture object I,1006
      Set object I,1,0,1
      Ghost object on I
      hide object I

   next I

Endfunction

Function Move_Fireballs

   For I = 1 to 75

      If fireball#(I,1) = 1

         Fireball#(I,5) = Fireball#(I,5) - 2.5

         Position object 299+I,fireball#(I,2),fireball#(I,3),-0.5
         zrotate object 299+I,fireball#(I,4)
         yrotate object 299+I,90
         move object I+299,0.2
         yrotate object 299+I,0
         zrotate object 299+I,0

         fireball#(I,2) = object position x(299+I)
         fireball#(I,3) = object position y(299+I)

         IF fireball#(I,2) < -40 or fireball#(I,2) > 40 or fireball#(I,3) < -17 or fireball#(I,3) > 17 or fireball#(I,5) = 0
            fireball#(I,1) = 0
            hide object 299+I
         endif

      endif

   Next I

Endfunction

Function Menu

   Load image "media/menu/UFOGAMES.png",13
   Paste image 13,0,0
   sleep 4000
   Load image "media/menu/play.png",10
   Load image "media/menu/help.png",11
   Load image "media/menu/quit.png",12

   For I = 1 to 7

      Load image "media/menu/help"+str$(I)+".png",12+I

   Next I

   Make object plain 70,3,3
   Texture object 70,10
   Position object 70,0,-50,-33
   Make object plain 71,3,3
   Texture object 71,11
   Position object 71,5,-50,-33
   Make object plain 72,3,3
   Texture object 72,12
   Position object 72,10,-50,-33

   Make object plain 73,20,20
   Position object 73,5,-90,-21
   Texture object 73,13

   Load_Background(1)

   Position camera 0,-35,-38
   color backdrop rgb(0,0,0)

   happyme:
   selection = 1

   Do

      If rightkey() = 1 and selection = 1 and key = 0
         selection = 2
         key = 1
      endif
      If rightkey() = 1 and selection = 2 and key = 0
         selection = 3
         key = 1
      endif
      If leftkey() = 1 and selection = 3 and key = 0
         selection = 2
         key=1
      endif
      If leftkey() = 1 and selection = 2 and key = 0
         selection = 1
         key = 1
      endif

      If rightkey() = 0 and leftkey() = 0 then key = 0

      If returnkey() = 1 and selection = 1 then selection = 4
      IF returnkey() = 1 and selection = 2 then selection = 5
      If returnkey() = 1 and selection = 3 then end

      If selection = 1 then position camera curvevalue(0,camera position x(),20),-50,-38
      If selection = 2 then position camera curvevalue(5,camera position x(),20),-50,-38
      If selection = 3 then position camera curvevalue(10,camera position x(),20),-50,-38
      If selection = 4 then position camera 0,camera position y()+0.5,camera position z()
      If selection = 5 then position camera 5,camera position y()-0.5,camera position z()

      If camera position y() = 0 then goto leavemenu
      If camera position y() = -90 then goto helpme

      sync
   Loop

   helpme:

   help = 1
   Do

      Texture object 73,12+help

      If upkey() = 1 and key = 0
         help = help - 1
         key = 1
      endif
      If downkey() = 1 and key = 0
         help = help + 1
         key = 1
      endif
      If returnkey() = 1 then goback = 1

      IF goback = 1 then position camera 5,camera position y()+0.5,camera position z()

      If camera position y() = -50
         goback = 0
         goto happyme
      endif

      If help = 0 then help = 1
      If help = 8 then help = 7

      If upkey() = 0 and downkey() = 0 then key = 0

      sync
   Loop

   leavemenu:

Endfunction

Function Setup_HUD

   Ink 0,0
   Box 1,1,639,80
   Box 1,400,639,479

   Paste image 5,100,2

   Ink rgb(0,255,0),0
   Box 190,35,190+(health(0)*7)+Drain(1)+int(Add#(1)),45

   Ink rgb(0,0,255),0
   Box 190,10,190+(sheild(0)*7)+Drain(2)+int(Add#(2)),20

   If energy(0) < 50 then ink rgb(255,0,0),0
   IF energy(0) > 50 then Ink rgb(255,255,0),0
   If energy(0) > 75 then ink rgb(0,255,0),0
   Box 190,58,190+(energy(0))+Drain(3)+int(Add#(3)),68

   Ink rgb(255,0,0),0
   Set Text Font "Bank Gothic Medium BT"
   Set text size 20
   center Text 393,30,str$(score(0))
   Center text 430,55,str$(Shoot_Status(0))

Endfunction

(Music removed because of file size. Get the music from the LA3 download in my website.)

Don't Say Like

Attachments

Login to view attachments

Back to top

Profile PM Email Website

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 20th Jul 2006 20:38

Link

Bomb Roller

sync on
sync rate 0
hide mouse
Set camera view 1,1,2,2

`VARIABLES USED IN WHOLE GAME
AmtLevels = 15
dim numsongs(0)
numsongs(0) = 4
dim Songnum(0)
songnum(0) = 1
Dim Map(amtlevels,20,250)
Dim Levelname$(amtlevels)
Dim Checkpoint(4)
Checkpoint(1) = 10
Checkpoint(2) = 249
Checkpoint(3) = 0
Checkpoint(4) = 1.5
`***************************

Load_Media

`***************************

Dim Map(amtlevels,20,250)
Dim Levelname$(amtlevels)

For I = 1 to amtlevels
   Load_Map("Levels/Level"+str$(I)+".bn2",I)
Next I

Loading("Loading System Stuff...")
autocam off
set camera range 1,500
fog on
fog distance 300   :`2490,100
Texture backdrop 5
Set MipMap mode 1
Set global collision off
Set camera view 0,50,640,430

Menu

level = GetLevelNum()

Begin_Level:

Make_Level(level)

Loading("Loading System Stuff...")
autocam off
set camera range 1,500
fog on
fog distance 300   :`2490,100
Texture backdrop 5
Set MipMap mode 1
Set global collision off
Set camera view 0,50,640,430

Restartlevel:

Message(Levelname$(level))
Center text 320,10,"Bomb Roller    by UFO"

`VARIABLES ONLY USED IN LEVEL
Dim speed#(0)
speed#(0) = 1
Dim sidespeed#(0)
Sidespeed#(0) = Checkpoint(4)
Dim Switched(0)
Switched(0) = Checkpoint(3)
Loopnum = 1
Dim Bounce#(2)
Bounce#(1) = 0
Bounce#(2) = 0
Dim Oldspeed#(0)
oldspeed#(0) = speed#(0)
icesound = 0
Dim Ice(0)
Ice(0) = 0
`****************************

Make_Player_Object

Position camera 20,50,20
Point camera 20,0,20

Do

If object position y(1) > -1 then Position object 1,object position x(1),object position y(1),object position z(1)-speed#(0)
xrotate object 1,wrapvalue(object angle x(1)-6)

If object position y(1) > -1
   Position camera curvevalue(object position x(1),camera position x(),10),50,object position z(1)+20
   Point camera object position x(1),0,object position z(1)-30
endif
If object position y(1) < -1
   Position camera object position x(1),50,curvevalue(Object position z(1)-20,camera position z(),10)
   Point camera object position x(1),object position y(1),curvevalue(object position z(1),object position z(1)-30,30)
endif

PlayerPosx = int((Object position x(1)+4)/10)
PlayerPosz = int((Object position z(1)+3)/10)

Get_Input(speed#(0))
gosub Collision

If MAp(level,Playerposx,Playerposz) = 17 and object position y(1) = 0
   Play sound 3
   Checkpoint(1) = 10
   Checkpoint(2) = 249
   Checkpoint(3) = 0
   Checkpoint(4) = 1.5
   If level = amtlevels
      repeat
      cls
      Message("You win the game!")
      sync
      until inkey$() <> ""
      end
   endif
   IF level<amtlevels
      level = level + 1
      cls
      Message("You win level "+str$(level-1)+"! (Please be patient, loading next level)")
      sync
      SaveLevel(level)
      Set camera view 1,1,2,2
      goto begin_level
   endif
endif

loopnum = loopnum + 1

If loopnum = 5
   If music playing(songnum(0)) = 0
      songnum(0) = songnum(0) + 1
      If songnum(0) > numsongs(0) then songnum(0) = 1
      Play music songnum(0)
   endif
endif

If loopnum => 5
   Hide_Objects(Playerposx,Playerposz,level)
   loopnum = 1
endif

Text 1,50,str$(screen fps())
Text 1,65,"x:"+str$(checkpoint(1))
Text 1,80,"Y:"+str$(Checkpoint(2))
Text 1,95,str$(Checkpoint(3))
Text 1,110,str$(Checkpoint(4))

sync

Loop

end

Function Load_Map(filename$,level)

Loading("Loading Levels...")

open to Read 1, FileName$
      rem read map header
      Read string 1, Levelname$(level)
      Read String 1, File_Input$ : M_Max_X = Val(File_Input$)
      Read String 1, File_Input$ : M_Max_Y = Val(File_Input$)
      Read String 1, File_Input$ : M_N_Layes = Val(File_Input$)
      Rem Read map data
      FOR N = 1 to M_N_Layes
         FOR X = 1 to M_Max_X
            FOR Y = 1 to M_Max_Y
               Read byte 1, trash
               Read byte 1, Map(level,X,Y)
            NEXT Y
         NEXT X
      NEXT N
   close file 1

Endfunction

Function Make_Level(level)

Loading("Creating Level...")

`   PlainNum = 99
`   Cubenum = 5100
`   Finishnum = 11
   objectnum = 13

For y = 0 to 249
      For x = 0 to 19

If object exist(objectnum) = 1 then delete object objectnum
         IF Map(level,x,y) = 14
            Make object plain ObjectNum,10,10
            xrotate object Objectnum,90
            Position object Objectnum,x*10,0,y*10
            Texture object Objectnum,1
            Objectnum = Objectnum + 1
         endif

If Map(level,x,y) = 16
            Make object cube Objectnum,10
            Position object Objectnum,x*10,4,y*10
            Texture object Objectnum,2
            Objectnum = Objectnum + 1
         endif

IF Map(level,x,y) = 17
            Make object plain ObjectNum,10,10
            xrotate object Objectnum,90
            Position object Objectnum,x*10,0,y*10
            Texture object Objectnum,3
            Objectnum = Objectnum + 1
         endif

If Map(level,x,y) = 19
            Make object plain ObjectNum,10,10
            xrotate object Objectnum,90
            Position object Objectnum,x*10,0,y*10
            Texture object Objectnum,7
            Objectnum = Objectnum + 1
         endif

If Map(level,x,y) = 20
            Make object plain ObjectNum,10,10
            xrotate object Objectnum,90
            Position object Objectnum,x*10,0,y*10
            Texture object Objectnum,8
            Objectnum = Objectnum + 1
         endif

If Map(level,x,y) = 27
            Make object plain ObjectNum,10,10
            xrotate object Objectnum,90
            Position object Objectnum,x*10,0,y*10
            Texture object Objectnum,9
            Objectnum = Objectnum + 1
         endif

If Map(level,x,y) = 18
            Make object plain ObjectNum,10,10
            xrotate object Objectnum,90
            Position object Objectnum,x*10,0,y*10
            Texture object Objectnum,10
            Objectnum = Objectnum + 1
         endif

If Map(level,x,y) = 10
            Make object plain ObjectNum,10,10
            xrotate object Objectnum,90
            Position object Objectnum,x*10,0,y*10
            Texture object Objectnum,11
            Objectnum = Objectnum + 1
         endif

next x
   next y

endfunction

Function Load_Media

Loading("Loading Images...")

Load image "media/floor.jpg",1
   Load image "media/wall.jpg",2
   Load image "media/finish.jpg",3
   Load image "media/bomb.jpg",4
   Load image "media/back.jpg",5
   Load image "media/fire.bmp",6
   Load image "media/Ice.jpg",7
   Load image "media/Water.jpg",8
   Load image "media/magnet.jpg",9
   Load image "media/spring.jpg",10
   Load image "media/checkpoint.jpg",11
   Load image "media/Title.jpg",20
   Load image "media/Credits.jpg",21
   Load image "media/new.jpg",22
   Load image "media/Continue.jpg",23
   Load image "media/Quit.jpg",24

Loading("Loading 3D Objects...")
   For I = 2 to 10
      Load object "media/explode.3ds",I
      hide object I
   Next I
   Make object plain 12,16,12

Make object sphere 11,5
   Color object 11,rgb(255,0,0)
   ghost object on 11
   fade object 11,40
   hide object 11

Loading("Loading Sounds...")
   Load sound "Media/sounds/explode.wav",1
   Load sound "Media/sounds/fall.wav",2
   Load sound "Media/sounds/finish.wav",3
   Load sound "Media/sounds/splash.wav",4
   Load sound "Media/sounds/bounce.wav",5
   Load sound "Media/sounds/slide.wav",6
   Load sound "Media/sounds/magnet.wav",7
   Load sound "media/sounds/checkpoint.wav",8

Loading("Loading Music...")
   For I = 1 to numsongs(0)
      Load music "Media/music/"+str$(I)+".mp3",I
   Next I

endfunction

Function Make_Player_Object

If object exist(1) = 1 then delete object 1
   Make object sphere 1,5
   Position object 1,checkpoint(1)*10,0,checkpoint(2)*10
   Texture object 1,4

endfunction

Function Get_Input(speed#)

If upkey() = 1 and speed#(0) < 3
      speed#(0) = speed#(0) + 0.1
   endif
   IF downkey() = 1 and speed#(0) > 1
      speed#(0) = speed#(0) - 0.1
   endif

If rightkey() = 1
      Position object 1,object position x(1)-sidespeed#(0),object position y(1),object position z(1)
   endif
   If leftkey() = 1
      Position object 1,object position x(1)+sidespeed#(0),object position y(1),object position z(1)
   endif

endfunction

`****************************************************************************
Collision:

If Playerposx < 1 or Playerposx > 19 or Playerposz < 1 or Playerposz > 250
      Position object 1,object position x(1),object position y(1)-1,object position z(1)
      Play sound 2
      Repeat
         Position object 1,object position x(1),object position y(1)-2,object position z(1)
         Position camera object position x(1),50,curvevalue(Object position z(1)-20,camera position z(),10)
         Point camera object position x(1),object position y(1),curvevalue(object position z(1),object position z(1)-30,30)
         sync
      until object position y(1) < -200
   endif

If MAp(level,Playerposx,Playerposz) = 16 and bounce#(1) = 0
      Position object 2,object position x(1),object position y(1),object position z(1)
      Position object 3,object position x(1)+3,object position y(1)+3,object position z(1)+3
      Position object 4,object position x(1)-3,object position y(1)-3,object position z(1)-3
      Position object 5,object position x(1)+3,object position y(1)-3,object position z(1)
      Position object 6,object position x(1)-3,object position y(1)+3,object position z(1)
      Position object 7,object position x(1),object position y(1)+3,object position z(1)-3
      Position object 8,object position x(1),object position y(1)-3,object position z(1)+3
      Position object 9,object position x(1)+3,object position y(1),object position z(1)-3
      Position object 10,object position x(1)-3,object position y(1),object position z(1)+3
      Position object 11,object position x(1),object position y(1),object position z(1)

Texture object 1,6
      For I = 2 to 10
         show object I
         Play object I
      next I
      Show object 11
      Play sound 1
      scale = 100
      Repeat
      Scale object 11,scale,scale,scale
      scale = scale + 17
      sync
      until Object Playing(2) = 0
      For I = 2 to 10
         Hide object I
         stop object I
      next I
      Hide object 11
      goto restartlevel
   endif

If object position y(1) < -1 then Position object 1,object position x(1),Object position y(1) - 2,object position z(1)
   IF object position y(1) < -1 and object position y(1) > -5 and sound playing(2) = 0 then Play sound 2

If object position y(1) < -200
      Position object 2,object position x(1),object position y(1),object position z(1)
      Position object 3,object position x(1)+3,object position y(1)+3,object position z(1)+3
      Position object 4,object position x(1)-3,object position y(1)-3,object position z(1)-3
      Position object 5,object position x(1)+3,object position y(1)-3,object position z(1)
      Position object 6,object position x(1)-3,object position y(1)+3,object position z(1)
      Position object 7,object position x(1),object position y(1)+3,object position z(1)-3
      Position object 8,object position x(1),object position y(1)-3,object position z(1)+3
      Position object 9,object position x(1)+3,object position y(1),object position z(1)-3
      Position object 10,object position x(1)-3,object position y(1),object position z(1)+3
      Position object 11,object position x(1),object position y(1),object position z(1)

Texture object 1,6
      For I = 2 to 10
         Show object I
         Play object I
      next I
            Show object 11
      Play sound 1
      scale = 100
      Repeat
      Scale object 11,scale,scale,scale
      scale = scale + 17
      sync
      until Object Playing(2) = 0
      For I = 2 to 10
         Hide object I
         stop object I
      next I
      Hide object 11
      goto restartlevel
   endif

If MAp(level,Playerposx,Playerposz) = 14 and Object position y(1) > -5 and bounce#(1) = 0
      Position object 1,object position x(1),0,object position z(1)
   endif

If MAp(level,Playerposx,Playerposz) = 32 and bounce#(1) = 0
      Position object 1,object position x(1),Object position y(1) - 2,object position z(1)
   endif

If Map(level,Playerposx,Playerposz) = 19 and object position y(1) > -5 and bounce#(1) = 0
      Position object 1,object position x(1),0,object position z(1)
      If ice(0) = 0 then Oldspeed#(0) = speed#(0)
      Speed#(0) = 3
      ice(0) = 1
      If sound playing(6) = 0 and icesound = 0
         Play sound 6
         icesound = 1
      endif
   endif

If ice(0) = 1 and Map(level,Playerposx,Playerposz) <> 19
      ice(0) = 0
      speed#(0) = oldspeed#(0)
      icesound = 0
   endif

If Map(level,Playerposx,Playerposz) = 20 and object position y(1) > -5 and bounce#(1) = 0
      Position object 1,object position x(1),0,object position z(1)
      If switched(0) = 0 then sideSpeed#(0) = 0.5
      If switched(0) = 2 then sidespeed#(0) = -0.5
      If sound playing(4) = 0 then Play sound 4
   endif

If Map(level,Playerposx,Playerposz) <> 20
      If Sound playing(4) = 1 then stop sound 4
      If switched(0) = 0 then sidespeed#(0) = 1.5
      If switched(0) = 2 then sidespeed#(0) = -1.5
   endif

If Map(level,Playerposx,Playerposz) = 27 and object position y(1) > -5 and bounce#(1) = 0
      Position object 1,object position x(1),0,object position z(1)
      IF switched(0) = 0
         sideSpeed#(0) = Sidespeed#(0) * -1
         switched(0) = 1
         Play sound 7
      endif
      If switched(0) = 2
         sideSpeed#(0) = Sidespeed#(0) * -1
         switched(0) = 3
         Play sound 7
      endif
   endif

If Map(level,Playerposx,Playerposz) = 18 and object position y(1) > -5 and bounce#(1) = 0
      Position object 1,object position x(1),0,object position z(1)
      Bounce#(1) = 1
      Bounce#(2) = 5
      Oldspeed#(0) = speed#(0)
      Speed#(0) = 2
      Play sound 5
   endif

IF bounce#(1) = 1
      Position object 1,object position x(1),object position y(1)+bounce#(2),object position z(1)
      Bounce#(2) = Bounce#(2) - 0.5
      If Bounce#(2) = -5
         Bounce#(1) = 0
         Speed#(0) = oldspeed#(0)
         Position object 1,object position x(1),0,object position z(1)
      endif
   endif

If Map(level,Playerposx,Playerposz) = 10 and object position y(1) > -5 and bounce#(1) = 0
      Checkpoint(1) = Playerposx
      Checkpoint(2) = Playerposz
      Checkpoint(3) = switched(0)
      Checkpoint(4) = sidespeed#(0)
      If sound playing(8) = 0 then play sound 8
   endif

If Map(level,Playerposx,Playerposz) <> 27 and switched(0) = 1 then Switched(0) = 2
   If Map(level,Playerposx,Playerposz) <> 27 and switched(0) = 3 then Switched(0) = 0

return

Function Hide_Objects(Playerposx,Playerposz,level)

`   PlainNum = 99
`   Cubenum = 5100
`   Finishnum = 9
   objectnum = 13

For y = 0 to 249
      For x = 0 to 19
         IF Map(level,x,y) = 14
            hide object objectnum
            IF y < Playerposz+3 and y > Playerposz-20 then show object objectnum
            objectnum = objectnum + 1
         endif

If Map(level,x,y) = 16
            hide object objectnum
            IF y < Playerposz+3 and y > Playerposz-20 then show object objectnum
            objectnum = objectnum + 1
         endif

IF Map(level,x,y) = 17
            hide object objectnum
            IF y < Playerposz+3 and y > Playerposz-20 then show object objectnum
            objectnum = objectnum + 1
         endif

If Map(level,x,y) = 19
            hide object objectnum
            IF y < Playerposz+3 and y > Playerposz-20 then show object objectnum
            objectnum = objectnum + 1
         endif

If Map(level,x,y) = 20
            hide object objectnum
            IF y < Playerposz+3 and y > Playerposz-20 then show object objectnum
            objectnum = objectnum + 1
         endif

If Map(level,x,y) = 27
            hide object objectnum
            IF y < Playerposz+3 and y > Playerposz-20 then show object objectnum
            objectnum = objectnum + 1
         endif

If Map(level,x,y) = 18
            hide object objectnum
            IF y < Playerposz+3 and y > Playerposz-20 then show object objectnum
            objectnum = objectnum + 1
         endif

If Map(level,x,y) = 10
            hide object objectnum
            IF y < Playerposz+3 and y > Playerposz-20 then show object objectnum
            objectnum = objectnum + 1
         endif
      next x
   next y

endfunction

Function Loading(message$)

cls
   Center Text 320,240,message$
   sync

endfunction

Function Message(Message$)

ink 0,0
   box 1,430,639,479
   ink rgb(255,255,255),0
   Center Text 320,450,message$

endfunction

Function Menu

Position object 12,0,0,0
   Position camera 0,-1,-15
   Point camera 0,-1,0
   color backdrop rgb(0,0,0)
   Texture object 12,20
   show object 12

repeat
      sync
   until returnkey()
   Rotate(1,21)
   repeat
      sync
   until returnkey()
   Rotate(1,22)
   menu$ = "New"
   Do
      If rightkey() = 1
         If menu$ = "New"
            Rotate(3,23)
            menu$ = "Continue"
            goto exitright
         endif
         If menu$ = "Continue"
            rotate(3,24)
            menu$ = "Quit"
            goto exitright
         endif
         IF menu$ = "Quit"
            rotate(3,22)
            menu$ = "New"
            goto exitright
         endif
      endif
      exitright:
      If leftkey() = 1
         If menu$ = "New"
            Rotate(2,24)
            menu$ = "Quit"
            goto Exitleft
         endif
         If menu$ = "Continue"
            rotate(2,22)
            menu$ = "New"
            goto Exitleft
         endif
         IF menu$ = "Quit"
            rotate(2,23)
            menu$ = "Continue"
            goto Exitleft
         endif
      endif
      Exitleft:
      If returnkey() = 1
         If menu$ = "New"
            Rotate(4,24)
            savelevel(1)
            Loading("Loading Level...")
            goto leavethefunction
         endif
         IF menu$ = "Continue"
            Rotate(4,24)
            Loading("Loading Level...")
            goto leavethefunction
         endif
         If menu$ = "Quit"
            Rotate(4,24)
            end
         endif
      endif

sync
   Loop

leavethefunction:

endfunction

Function Rotate(style,image)

If style = 1

For I = 1 to 90 step 2
         Xrotate object 12,wrapvalue(object angle x(12)+2)
         sync
      next I

Texture object 12,image
      xrotate object 12,270

For I = 1 to 90 step 2
         Xrotate object 12,wrapvalue(object angle x(12)+2)
         sync
      next I

endif

If style = 2

For I = 1 to 90 step 2
         yrotate object 12,wrapvalue(object angle y(12)+2)
         sync
      next I

Texture object 12,image
      yrotate object 12,270

For I = 1 to 90 step 2
         yrotate object 12,wrapvalue(object angle y(12)+2)
         sync
      next I

endif

If style = 3

For I = 1 to 90 step 2
         yrotate object 12,wrapvalue(object angle y(12)-2)
         sync
      next I

Texture object 12,image
      yrotate object 12,90

For I = 1 to 90 step 2
         yrotate object 12,wrapvalue(object angle y(12)-2)
         sync
      next I

endif

If style = 4

For I = 1 to 90 step 2
         Xrotate object 12,wrapvalue(object angle x(12)+2)
         sync
      next I
      hide object 12
      sleep 500

endif

endfunction

Function GetLevelNum()

level = 1

If file exist("Save.dat") = 1
      open to read 1,"Save.dat"
         Read string 1,String$
         level = val(string$)
      close file 1
   endif

endfunction level

Function SaveLevel(level)

If file exist("save.dat") then delete file "save.dat"
   Open to write 1,"save.dat"
      Write string 1,str$(level)
   close file 1

endfunction

+ Code Snippet

sync on
sync rate 0
hide mouse
Set camera view 1,1,2,2

`VARIABLES USED IN WHOLE GAME
AmtLevels = 15
dim numsongs(0)
numsongs(0) = 4
dim Songnum(0)
songnum(0) = 1
Dim Map(amtlevels,20,250)
Dim Levelname$(amtlevels)
Dim Checkpoint(4)
Checkpoint(1) = 10
Checkpoint(2) = 249
Checkpoint(3) = 0
Checkpoint(4) = 1.5
`***************************

Load_Media

`***************************

Dim Map(amtlevels,20,250)
Dim Levelname$(amtlevels)

For I = 1 to amtlevels
   Load_Map("Levels/Level"+str$(I)+".bn2",I)
Next I

Loading("Loading System Stuff...")
autocam off
set camera range 1,500
fog on
fog distance 300   :`2490,100
Texture backdrop 5
Set MipMap mode 1
Set global collision off
Set camera view 0,50,640,430

Menu

level = GetLevelNum()

Begin_Level:

Make_Level(level)

Loading("Loading System Stuff...")
autocam off
set camera range 1,500
fog on
fog distance 300   :`2490,100
Texture backdrop 5
Set MipMap mode 1
Set global collision off
Set camera view 0,50,640,430

Restartlevel:

Message(Levelname$(level))
Center text 320,10,"Bomb Roller    by UFO"

`VARIABLES ONLY USED IN LEVEL
Dim speed#(0)
speed#(0) = 1
Dim sidespeed#(0)
Sidespeed#(0) = Checkpoint(4)
Dim Switched(0)
Switched(0) = Checkpoint(3)
Loopnum = 1
Dim Bounce#(2)
Bounce#(1) = 0
Bounce#(2) = 0
Dim Oldspeed#(0)
oldspeed#(0) = speed#(0)
icesound = 0
Dim Ice(0)
Ice(0) = 0
`****************************

Make_Player_Object

Position camera 20,50,20
Point camera 20,0,20

Do

If object position y(1) > -1 then Position object 1,object position x(1),object position y(1),object position z(1)-speed#(0)
xrotate object 1,wrapvalue(object angle x(1)-6)

If object position y(1) > -1
   Position camera curvevalue(object position x(1),camera position x(),10),50,object position z(1)+20
   Point camera object position x(1),0,object position z(1)-30
endif
If object position y(1) < -1
   Position camera object position x(1),50,curvevalue(Object position z(1)-20,camera position z(),10)
   Point camera object position x(1),object position y(1),curvevalue(object position z(1),object position z(1)-30,30)
endif

PlayerPosx = int((Object position x(1)+4)/10)
PlayerPosz = int((Object position z(1)+3)/10)

Get_Input(speed#(0))
gosub Collision

If MAp(level,Playerposx,Playerposz) = 17 and object position y(1) = 0
   Play sound 3
   Checkpoint(1) = 10
   Checkpoint(2) = 249
   Checkpoint(3) = 0
   Checkpoint(4) = 1.5
   If level = amtlevels
      repeat
      cls
      Message("You win the game!")
      sync
      until inkey$() <> ""
      end
   endif
   IF level<amtlevels
      level = level + 1
      cls
      Message("You win level "+str$(level-1)+"! (Please be patient, loading next level)")
      sync
      SaveLevel(level)
      Set camera view 1,1,2,2
      goto begin_level
   endif
endif

loopnum = loopnum + 1

If loopnum = 5
   If music playing(songnum(0)) = 0
      songnum(0) = songnum(0) + 1
      If songnum(0) > numsongs(0) then songnum(0) = 1
      Play music songnum(0)
   endif
endif

If loopnum => 5
   Hide_Objects(Playerposx,Playerposz,level)
   loopnum = 1
endif

Text 1,50,str$(screen fps())
Text 1,65,"x:"+str$(checkpoint(1))
Text 1,80,"Y:"+str$(Checkpoint(2))
Text 1,95,str$(Checkpoint(3))
Text 1,110,str$(Checkpoint(4))

sync

Loop

end

Function Load_Map(filename$,level)

   Loading("Loading Levels...")

   open to Read 1, FileName$
      rem read map header
      Read string 1, Levelname$(level)
      Read String 1, File_Input$ : M_Max_X = Val(File_Input$)
      Read String 1, File_Input$ : M_Max_Y = Val(File_Input$)
      Read String 1, File_Input$ : M_N_Layes = Val(File_Input$)
      Rem Read map data
      FOR N = 1 to M_N_Layes
         FOR X = 1 to M_Max_X
            FOR Y = 1 to M_Max_Y
               Read byte 1, trash
               Read byte 1, Map(level,X,Y)
            NEXT Y
         NEXT X
      NEXT N
   close file 1

Endfunction

Function Make_Level(level)

   Loading("Creating Level...")

`   PlainNum = 99
`   Cubenum = 5100
`   Finishnum = 11
   objectnum = 13

   For y = 0 to 249
      For x = 0 to 19

         If object exist(objectnum) = 1 then delete object objectnum
         IF Map(level,x,y) = 14
            Make object plain ObjectNum,10,10
            xrotate object Objectnum,90
            Position object Objectnum,x*10,0,y*10
            Texture object Objectnum,1
            Objectnum = Objectnum + 1
         endif

         If Map(level,x,y) = 16
            Make object cube Objectnum,10
            Position object Objectnum,x*10,4,y*10
            Texture object Objectnum,2
            Objectnum = Objectnum + 1
         endif

         IF Map(level,x,y) = 17
            Make object plain ObjectNum,10,10
            xrotate object Objectnum,90
            Position object Objectnum,x*10,0,y*10
            Texture object Objectnum,3
            Objectnum = Objectnum + 1
         endif

         If Map(level,x,y) = 19
            Make object plain ObjectNum,10,10
            xrotate object Objectnum,90
            Position object Objectnum,x*10,0,y*10
            Texture object Objectnum,7
            Objectnum = Objectnum + 1
         endif

         If Map(level,x,y) = 20
            Make object plain ObjectNum,10,10
            xrotate object Objectnum,90
            Position object Objectnum,x*10,0,y*10
            Texture object Objectnum,8
            Objectnum = Objectnum + 1
         endif

         If Map(level,x,y) = 27
            Make object plain ObjectNum,10,10
            xrotate object Objectnum,90
            Position object Objectnum,x*10,0,y*10
            Texture object Objectnum,9
            Objectnum = Objectnum + 1
         endif

         If Map(level,x,y) = 18
            Make object plain ObjectNum,10,10
            xrotate object Objectnum,90
            Position object Objectnum,x*10,0,y*10
            Texture object Objectnum,10
            Objectnum = Objectnum + 1
         endif

         If Map(level,x,y) = 10
            Make object plain ObjectNum,10,10
            xrotate object Objectnum,90
            Position object Objectnum,x*10,0,y*10
            Texture object Objectnum,11
            Objectnum = Objectnum + 1
         endif

      next x
   next y

endfunction

Function Load_Media

   Loading("Loading Images...")

   Load image "media/floor.jpg",1
   Load image "media/wall.jpg",2
   Load image "media/finish.jpg",3
   Load image "media/bomb.jpg",4
   Load image "media/back.jpg",5
   Load image "media/fire.bmp",6
   Load image "media/Ice.jpg",7
   Load image "media/Water.jpg",8
   Load image "media/magnet.jpg",9
   Load image "media/spring.jpg",10
   Load image "media/checkpoint.jpg",11
   Load image "media/Title.jpg",20
   Load image "media/Credits.jpg",21
   Load image "media/new.jpg",22
   Load image "media/Continue.jpg",23
   Load image "media/Quit.jpg",24

   Loading("Loading 3D Objects...")
   For I = 2 to 10
      Load object "media/explode.3ds",I
      hide object I
   Next I
   Make object plain 12,16,12

   Make object sphere 11,5
   Color object 11,rgb(255,0,0)
   ghost object on 11
   fade object 11,40
   hide object 11

   Loading("Loading Sounds...")
   Load sound "Media/sounds/explode.wav",1
   Load sound "Media/sounds/fall.wav",2
   Load sound "Media/sounds/finish.wav",3
   Load sound "Media/sounds/splash.wav",4
   Load sound "Media/sounds/bounce.wav",5
   Load sound "Media/sounds/slide.wav",6
   Load sound "Media/sounds/magnet.wav",7
   Load sound "media/sounds/checkpoint.wav",8

   Loading("Loading Music...")
   For I = 1 to numsongs(0)
      Load music "Media/music/"+str$(I)+".mp3",I
   Next I

endfunction

Function Make_Player_Object

   If object exist(1) = 1 then delete object 1
   Make object sphere 1,5
   Position object 1,checkpoint(1)*10,0,checkpoint(2)*10
   Texture object 1,4

endfunction

Function Get_Input(speed#)

   If upkey() = 1 and speed#(0) < 3
      speed#(0) = speed#(0) + 0.1
   endif
   IF downkey() = 1 and speed#(0) > 1
      speed#(0) = speed#(0) - 0.1
   endif

   If rightkey() = 1
      Position object 1,object position x(1)-sidespeed#(0),object position y(1),object position z(1)
   endif
   If leftkey() = 1
      Position object 1,object position x(1)+sidespeed#(0),object position y(1),object position z(1)
   endif

endfunction

`****************************************************************************
Collision:

   If Playerposx < 1 or Playerposx > 19 or Playerposz < 1 or Playerposz > 250
      Position object 1,object position x(1),object position y(1)-1,object position z(1)
      Play sound 2
      Repeat
         Position object 1,object position x(1),object position y(1)-2,object position z(1)
         Position camera object position x(1),50,curvevalue(Object position z(1)-20,camera position z(),10)
         Point camera object position x(1),object position y(1),curvevalue(object position z(1),object position z(1)-30,30)
         sync
      until object position y(1) < -200
   endif

   If MAp(level,Playerposx,Playerposz) = 16 and bounce#(1) = 0
      Position object 2,object position x(1),object position y(1),object position z(1)
      Position object 3,object position x(1)+3,object position y(1)+3,object position z(1)+3
      Position object 4,object position x(1)-3,object position y(1)-3,object position z(1)-3
      Position object 5,object position x(1)+3,object position y(1)-3,object position z(1)
      Position object 6,object position x(1)-3,object position y(1)+3,object position z(1)
      Position object 7,object position x(1),object position y(1)+3,object position z(1)-3
      Position object 8,object position x(1),object position y(1)-3,object position z(1)+3
      Position object 9,object position x(1)+3,object position y(1),object position z(1)-3
      Position object 10,object position x(1)-3,object position y(1),object position z(1)+3
      Position object 11,object position x(1),object position y(1),object position z(1)

      Texture object 1,6
      For I = 2 to 10
         show object I
         Play object I
      next I
      Show object 11
      Play sound 1
      scale = 100
      Repeat
      Scale object 11,scale,scale,scale
      scale = scale + 17
      sync
      until Object Playing(2) = 0
      For I = 2 to 10
         Hide object I
         stop object I
      next I
      Hide object 11
      goto restartlevel
   endif

   If object position y(1) < -1 then Position object 1,object position x(1),Object position y(1) - 2,object position z(1)
   IF object position y(1) < -1 and object position y(1) > -5 and sound playing(2) = 0 then Play sound 2

   If object position y(1) < -200
      Position object 2,object position x(1),object position y(1),object position z(1)
      Position object 3,object position x(1)+3,object position y(1)+3,object position z(1)+3
      Position object 4,object position x(1)-3,object position y(1)-3,object position z(1)-3
      Position object 5,object position x(1)+3,object position y(1)-3,object position z(1)
      Position object 6,object position x(1)-3,object position y(1)+3,object position z(1)
      Position object 7,object position x(1),object position y(1)+3,object position z(1)-3
      Position object 8,object position x(1),object position y(1)-3,object position z(1)+3
      Position object 9,object position x(1)+3,object position y(1),object position z(1)-3
      Position object 10,object position x(1)-3,object position y(1),object position z(1)+3
      Position object 11,object position x(1),object position y(1),object position z(1)

      Texture object 1,6
      For I = 2 to 10
         Show object I
         Play object I
      next I
            Show object 11
      Play sound 1
      scale = 100
      Repeat
      Scale object 11,scale,scale,scale
      scale = scale + 17
      sync
      until Object Playing(2) = 0
      For I = 2 to 10
         Hide object I
         stop object I
      next I
      Hide object 11
      goto restartlevel
   endif

   If MAp(level,Playerposx,Playerposz) = 14 and Object position y(1) > -5 and bounce#(1) = 0
      Position object 1,object position x(1),0,object position z(1)
   endif

   If MAp(level,Playerposx,Playerposz) = 32 and bounce#(1) = 0
      Position object 1,object position x(1),Object position y(1) - 2,object position z(1)
   endif

   If Map(level,Playerposx,Playerposz) = 19 and object position y(1) > -5 and bounce#(1) = 0
      Position object 1,object position x(1),0,object position z(1)
      If ice(0) = 0 then Oldspeed#(0) = speed#(0)
      Speed#(0) = 3
      ice(0) = 1
      If sound playing(6) = 0 and icesound = 0
         Play sound 6
         icesound = 1
      endif
   endif

   If ice(0) = 1 and Map(level,Playerposx,Playerposz) <> 19
      ice(0) = 0
      speed#(0) = oldspeed#(0)
      icesound = 0
   endif

   If Map(level,Playerposx,Playerposz) = 20 and object position y(1) > -5 and bounce#(1) = 0
      Position object 1,object position x(1),0,object position z(1)
      If switched(0) = 0 then sideSpeed#(0) = 0.5
      If switched(0) = 2 then sidespeed#(0) = -0.5
      If sound playing(4) = 0 then Play sound 4
   endif

   If Map(level,Playerposx,Playerposz) <> 20
      If Sound playing(4) = 1 then stop sound 4
      If switched(0) = 0 then sidespeed#(0) = 1.5
      If switched(0) = 2 then sidespeed#(0) = -1.5
   endif

   If Map(level,Playerposx,Playerposz) = 27 and object position y(1) > -5 and bounce#(1) = 0
      Position object 1,object position x(1),0,object position z(1)
      IF switched(0) = 0
         sideSpeed#(0) = Sidespeed#(0) * -1
         switched(0) = 1
         Play sound 7
      endif
      If switched(0) = 2
         sideSpeed#(0) = Sidespeed#(0) * -1
         switched(0) = 3
         Play sound 7
      endif
   endif

   If Map(level,Playerposx,Playerposz) = 18 and object position y(1) > -5 and bounce#(1) = 0
      Position object 1,object position x(1),0,object position z(1)
      Bounce#(1) = 1
      Bounce#(2) = 5
      Oldspeed#(0) = speed#(0)
      Speed#(0) = 2
      Play sound 5
   endif

   IF bounce#(1) = 1
      Position object 1,object position x(1),object position y(1)+bounce#(2),object position z(1)
      Bounce#(2) = Bounce#(2) - 0.5
      If Bounce#(2) = -5
         Bounce#(1) = 0
         Speed#(0) = oldspeed#(0)
         Position object 1,object position x(1),0,object position z(1)
      endif
   endif

   If Map(level,Playerposx,Playerposz) = 10 and object position y(1) > -5 and bounce#(1) = 0
      Checkpoint(1) = Playerposx
      Checkpoint(2) = Playerposz
      Checkpoint(3) = switched(0)
      Checkpoint(4) = sidespeed#(0)
      If sound playing(8) = 0 then play sound 8
   endif

   If Map(level,Playerposx,Playerposz) <> 27 and switched(0) = 1 then Switched(0) = 2
   If Map(level,Playerposx,Playerposz) <> 27 and switched(0) = 3 then Switched(0) = 0

return

Function Hide_Objects(Playerposx,Playerposz,level)

`   PlainNum = 99
`   Cubenum = 5100
`   Finishnum = 9
   objectnum = 13

   For y = 0 to 249
      For x = 0 to 19
         IF Map(level,x,y) = 14
            hide object objectnum
            IF y < Playerposz+3 and y > Playerposz-20 then show object objectnum
            objectnum = objectnum + 1
         endif

         If Map(level,x,y) = 16
            hide object objectnum
            IF y < Playerposz+3 and y > Playerposz-20 then show object objectnum
            objectnum = objectnum + 1
         endif

         IF Map(level,x,y) = 17
            hide object objectnum
            IF y < Playerposz+3 and y > Playerposz-20 then show object objectnum
            objectnum = objectnum + 1
         endif

         If Map(level,x,y) = 19
            hide object objectnum
            IF y < Playerposz+3 and y > Playerposz-20 then show object objectnum
            objectnum = objectnum + 1
         endif

         If Map(level,x,y) = 20
            hide object objectnum
            IF y < Playerposz+3 and y > Playerposz-20 then show object objectnum
            objectnum = objectnum + 1
         endif

         If Map(level,x,y) = 27
            hide object objectnum
            IF y < Playerposz+3 and y > Playerposz-20 then show object objectnum
            objectnum = objectnum + 1
         endif

         If Map(level,x,y) = 18
            hide object objectnum
            IF y < Playerposz+3 and y > Playerposz-20 then show object objectnum
            objectnum = objectnum + 1
         endif

         If Map(level,x,y) = 10
            hide object objectnum
            IF y < Playerposz+3 and y > Playerposz-20 then show object objectnum
            objectnum = objectnum + 1
         endif
      next x
   next y

endfunction

Function Loading(message$)

   cls
   Center Text 320,240,message$
   sync

endfunction

Function Message(Message$)

   ink 0,0
   box 1,430,639,479
   ink rgb(255,255,255),0
   Center Text 320,450,message$

endfunction

Function Menu

   Position object 12,0,0,0
   Position camera 0,-1,-15
   Point camera 0,-1,0
   color backdrop rgb(0,0,0)
   Texture object 12,20
   show object 12

   repeat
      sync
   until returnkey()
   Rotate(1,21)
   repeat
      sync
   until returnkey()
   Rotate(1,22)
   menu$ = "New"
   Do
      If rightkey() = 1
         If menu$ = "New"
            Rotate(3,23)
            menu$ = "Continue"
            goto exitright
         endif
         If menu$ = "Continue"
            rotate(3,24)
            menu$ = "Quit"
            goto exitright
         endif
         IF menu$ = "Quit"
            rotate(3,22)
            menu$ = "New"
            goto exitright
         endif
      endif
      exitright:
      If leftkey() = 1
         If menu$ = "New"
            Rotate(2,24)
            menu$ = "Quit"
            goto Exitleft
         endif
         If menu$ = "Continue"
            rotate(2,22)
            menu$ = "New"
            goto Exitleft
         endif
         IF menu$ = "Quit"
            rotate(2,23)
            menu$ = "Continue"
            goto Exitleft
         endif
      endif
      Exitleft:
      If returnkey() = 1
         If menu$ = "New"
            Rotate(4,24)
            savelevel(1)
            Loading("Loading Level...")
            goto leavethefunction
         endif
         IF menu$ = "Continue"
            Rotate(4,24)
            Loading("Loading Level...")
            goto leavethefunction
         endif
         If menu$ = "Quit"
            Rotate(4,24)
            end
         endif
      endif

      sync
   Loop

leavethefunction:

endfunction

Function Rotate(style,image)

   If style = 1

      For I = 1 to 90 step 2
         Xrotate object 12,wrapvalue(object angle x(12)+2)
         sync
      next I

      Texture object 12,image
      xrotate object 12,270

      For I = 1 to 90 step 2
         Xrotate object 12,wrapvalue(object angle x(12)+2)
         sync
      next I

   endif

   If style = 2

      For I = 1 to 90 step 2
         yrotate object 12,wrapvalue(object angle y(12)+2)
         sync
      next I

      Texture object 12,image
      yrotate object 12,270

      For I = 1 to 90 step 2
         yrotate object 12,wrapvalue(object angle y(12)+2)
         sync
      next I

   endif

   If style = 3

      For I = 1 to 90 step 2
         yrotate object 12,wrapvalue(object angle y(12)-2)
         sync
      next I

      Texture object 12,image
      yrotate object 12,90

      For I = 1 to 90 step 2
         yrotate object 12,wrapvalue(object angle y(12)-2)
         sync
      next I

   endif

   If style = 4

      For I = 1 to 90 step 2
         Xrotate object 12,wrapvalue(object angle x(12)+2)
         sync
      next I
      hide object 12
      sleep 500

   endif

endfunction

Function GetLevelNum()

   level = 1

   If file exist("Save.dat") = 1
      open to read 1,"Save.dat"
         Read string 1,String$
         level = val(string$)
      close file 1
   endif

endfunction level

Function SaveLevel(level)

   If file exist("save.dat") then delete file "save.dat"
   Open to write 1,"save.dat"
      Write string 1,str$(level)
   close file 1

endfunction

Don't Say Like

Attachments

Login to view attachments

Back to top

Profile PM Email Website

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 20th Jul 2006 20:41

Link

Ball Finder (Never posted before)

dim ballx(100)
dim ballz(100)
dim ballexists(100)
For I = 1 to 100
   Ballexists(I) = 1
next I
dim score(1)
dim gametimer(1)
gametimer(1) = 90
dim second(1)
second(1) = timer()

sync on
autocam off
hide mouse

Print "Get as many yellow balls as you can before the timer runs out."
Print "When you get a yellow ball, the current value of the timer is added to your score,"
Print "so you recieve more points for getting a ball early in the game."
Print "To move, use the mouse to look, and use the wasd keys to move."
Print "You can also use the mouse buttons."
Print
Print
Print "Mouse sensitivity (1=high,3=low)"
Print "WARNING:If you do not type in a number, there will be an error!"
Input ":",sensitivity$
Print
Print
Input "Which land? (Grass,rock,sand,snow) TYPE IT IN EXACTLY!!!:",filename$
Print "Press enter to begin..."
suspend for key

Load music "Impatien.mid",1
Load sound "gameon.wav",1

Make matrix 1,2000,2000,40,40
load image filename$+".bmp",1
Prepare matrix texture 1,1,1,1
randomize matrix 1,50.0
xrotate camera 20

Load image "Sky.bmp",2
texture backdrop 2

Fog on
Fog color rgb(150,150,150)
Fog distance 300

set spot light 0,45,90
point light 0,0,0,0
set light range 0,500

set ambient light 5

For I = 1 to 100
   make object sphere I,3
   color object I,rgb(255,255,0)
next I

positionballs

Play music 1

repeat

If second(1) < timer() - 1000
   gametimer(1) = gametimer(1) - 1
   second(1) = timer()
endif

angley# = camera angle y()

yrotate camera wrapvalue(angley#+mousemovex()/val(sensitivity$) )
backx = backx + mousemovex()
scroll backdrop backx,0

If keystate(17) = 1 or mouseclick() = 1 then move camera 3
If keystate(31) = 1 or mouseclick() = 2 then move camera -3
If keystate(30) = 1 then position camera newxvalue(camera position x(),wrapvalue(camera angle y()-90),1),get ground height(1,camera position x(),camera position z())+10,newzvalue(camera position z(),wrapvalue(camera angle y()-90),1)
If keystate(32) = 1 then position camera newxvalue(camera position x(),wrapvalue(camera angle y()+90),1),get ground height(1,camera position x(),camera position z())+10,newzvalue(camera position z(),wrapvalue(camera angle y()+90),1)
If keystate(2) = 1 then hide light 0
If keystate(3) = 1 then show light 0

If camera position x() < 5 then position camera camera position x()+3, camera position y(), camera position z()
If camera position x() > 1995 then position camera camera position x()-3, camera position y(), camera position z()
If camera position z() < 5 then position camera camera position x(), camera position y(), camera position z()+3
If camera position z() > 1995 then position camera camera position x(), camera position y(), camera position z()-3

Position camera camera position x(),get ground height(1,camera position x(),camera position z())+10,camera position z()

Position light 0,camera position x(),camera position y()+30,camera position z()
Rotate light 0,Camera angle x(),camera angle y(),camera angle z()

check_for_collision

set cursor 0,0
Print "Data Stuffs"
Print "Scancode: "+str$(scancode())
Print "Xpos: "+str$(camera position x())
Print "Ypos: "+str$(camera position y())
Print "Zpos: "+str$(camera position z())
Print "Y Angle: "+str$(camera angle y())
Print "Mouse Move x: "+str$(mousemovex())
Print "Score: "+str$(score(1))
Print "Timer: "+str$(gametimer(1))
Print "FPS: "+str$(screen fps())

sync

until gametimer(1) < 0

cls
delete matrix 1
For I = 1 to 100
   If object exist(I) then delete object I
next I
backdrop off
box 0,0,640,480
Print "Your score is: "+str$(score(1))

Open to read 1,"Highscore.dat"
   REad string 1,highname$
   read string 1,highscore$
close file 1
highscore = val(highscore$)

Print "The current high score is "+highscore$+" by "+highname$+"."

If score(1) < highscore then Print "Sorry, you did not beat the high score..."
If score(1) > highscore
   Print "You beat the high score! Good job!"
   Input "Name:",name$
   delete file "highscore.dat"
   Open to write 1,"highscore.dat"
      Write string 1,name$
      Write string 1,str$(score(1))
   close file 1
   Print "Saved highscore..."
endif

Print "Press any key to end..."
sleep 1000
suspend for key
end

function Positionballs

For I = 1 to 100
      If ballexists(I) = 1
         ballx(I) = rnd(1980)+10
         ballz(I) = rnd(1980)+10
         Position object I,ballx(I),get ground height(1,ballx(I),ballz(I))+10,ballz(I)
      endif
   next I

endfunction

Function Check_for_Collision

For I = 1 to 100
      If ballexists(I) = 1
         If abs(ballx(I)-camera position x()) < 10 and abs(ballz(I)-camera position z()) < 10
            ballexists(I) = 0
            score(1) = score(1) + gametimer(1)
            play sound 1
            delete object I
         endif
      endif
   next I

endfunction

+ Code Snippet

dim ballx(100)
dim ballz(100)
dim ballexists(100)
For I = 1 to 100
   Ballexists(I) = 1
next I
dim score(1)
dim gametimer(1)
gametimer(1) = 90
dim second(1)
second(1) = timer()

sync on
autocam off
hide mouse

Print "Get as many yellow balls as you can before the timer runs out."
Print "When you get a yellow ball, the current value of the timer is added to your score,"
Print "so you recieve more points for getting a ball early in the game."
Print "To move, use the mouse to look, and use the wasd keys to move."
Print "You can also use the mouse buttons."
Print
Print
Print "Mouse sensitivity (1=high,3=low)"
Print "WARNING:If you do not type in a number, there will be an error!"
Input ":",sensitivity$
Print
Print
Input "Which land? (Grass,rock,sand,snow) TYPE IT IN EXACTLY!!!:",filename$
Print "Press enter to begin..."
suspend for key

Load music "Impatien.mid",1
Load sound "gameon.wav",1

Make matrix 1,2000,2000,40,40
load image filename$+".bmp",1
Prepare matrix texture 1,1,1,1
randomize matrix 1,50.0
xrotate camera 20

Load image "Sky.bmp",2
texture backdrop 2

Fog on
Fog color rgb(150,150,150)
Fog distance 300

set spot light 0,45,90
point light 0,0,0,0
set light range 0,500

set ambient light 5

For I = 1 to 100
   make object sphere I,3
   color object I,rgb(255,255,0)
next I

positionballs

Play music 1

repeat

If second(1) < timer() - 1000
   gametimer(1) = gametimer(1) - 1
   second(1) = timer()
endif

angley# = camera angle y()

yrotate camera wrapvalue(angley#+mousemovex()/val(sensitivity$) )
backx = backx + mousemovex()
scroll backdrop backx,0

If keystate(17) = 1 or mouseclick() = 1 then move camera 3
If keystate(31) = 1 or mouseclick() = 2 then move camera -3
If keystate(30) = 1 then position camera newxvalue(camera position x(),wrapvalue(camera angle y()-90),1),get ground height(1,camera position x(),camera position z())+10,newzvalue(camera position z(),wrapvalue(camera angle y()-90),1)
If keystate(32) = 1 then position camera newxvalue(camera position x(),wrapvalue(camera angle y()+90),1),get ground height(1,camera position x(),camera position z())+10,newzvalue(camera position z(),wrapvalue(camera angle y()+90),1)
If keystate(2) = 1 then hide light 0
If keystate(3) = 1 then show light 0

If camera position x() < 5 then position camera camera position x()+3, camera position y(), camera position z()
If camera position x() > 1995 then position camera camera position x()-3, camera position y(), camera position z()
If camera position z() < 5 then position camera camera position x(), camera position y(), camera position z()+3
If camera position z() > 1995 then position camera camera position x(), camera position y(), camera position z()-3

Position camera camera position x(),get ground height(1,camera position x(),camera position z())+10,camera position z()

Position light 0,camera position x(),camera position y()+30,camera position z()
Rotate light 0,Camera angle x(),camera angle y(),camera angle z()

check_for_collision

set cursor 0,0
Print "Data Stuffs"
Print "Scancode: "+str$(scancode())
Print "Xpos: "+str$(camera position x())
Print "Ypos: "+str$(camera position y())
Print "Zpos: "+str$(camera position z())
Print "Y Angle: "+str$(camera angle y())
Print "Mouse Move x: "+str$(mousemovex())
Print "Score: "+str$(score(1))
Print "Timer: "+str$(gametimer(1))
Print "FPS: "+str$(screen fps())

sync

until gametimer(1) < 0

cls
delete matrix 1
For I = 1 to 100
   If object exist(I) then delete object I
next I
backdrop off
box 0,0,640,480
Print "Your score is: "+str$(score(1))

Open to read 1,"Highscore.dat"
   REad string 1,highname$
   read string 1,highscore$
close file 1
highscore = val(highscore$)

Print "The current high score is "+highscore$+" by "+highname$+"."

If score(1) < highscore then Print "Sorry, you did not beat the high score..."
If score(1) > highscore
   Print "You beat the high score! Good job!"
   Input "Name:",name$
   delete file "highscore.dat"
   Open to write 1,"highscore.dat"
      Write string 1,name$
      Write string 1,str$(score(1))
   close file 1
   Print "Saved highscore..."
endif

Print "Press any key to end..."
sleep 1000
suspend for key
end

function Positionballs

   For I = 1 to 100
      If ballexists(I) = 1
         ballx(I) = rnd(1980)+10
         ballz(I) = rnd(1980)+10
         Position object I,ballx(I),get ground height(1,ballx(I),ballz(I))+10,ballz(I)
      endif
   next I

endfunction

Function Check_for_Collision

   For I = 1 to 100
      If ballexists(I) = 1
         If abs(ballx(I)-camera position x()) < 10 and abs(ballz(I)-camera position z()) < 10
            ballexists(I) = 0
            score(1) = score(1) + gametimer(1)
            play sound 1
            delete object I
         endif
      endif
   next I

endfunction

Don't Say Like

Attachments

Login to view attachments

Back to top

Profile PM Email Website

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 20th Jul 2006 20:42

Link

Flyer (Never posted before)

Print "Try not to hit the hills as you fly over the land. If you do, your ship will turn red."
Print "Try to last as long as you can."
Print "The ship will keep getting faster, and faster, until you crash."
Input "Which world do you want to fly in? Grass, lava, sand, or snow?:", filename$
cls

load object "ship.x",1
hide object 1
Color object 1,rgb(0,0,255)

load bitmap filename$+".bmp",1
get image 1,0,0,128,128
delete bitmap 1

rem Make the matrix
make matrix 1,2000,2000,40,40
randomize matrix 1,175.0
update matrix 1
prepare matrix texture 1,1,1,1

rem Position camera
position camera 1000,300,100
point camera 1000,0,400

rem Add depth effect
fog on
fog distance 1500

sync on

rem sets up ship object
xrotate object 1,110
show object 1
position object 1,1000,150,camera position z() + 75
xcoordinate = object position x(1)
ycoordinate = object position y(1)
zcoordinate = object position z(1)
speed# = 8.0

suspend for key

Do

rem Smooth scroll the matrix
pz#=pz#-speed#

if pz#<0.0
   shift matrix up 1
   pz#=pz#+50.0
endif
if pz#>=50.0
   shift matrix down 1
   pz#=pz#-50.0
endif
position matrix 1,0,0,pz#

rem test for ground collision
If get ground height(1,object position x(1),object position z(1)) > object position y(1) - 20 then color object 1,rgb(255,0,0)

rem player controls
If leftkey() = 1 then xcoordinate = xcoordinate - 10
If rightkey() = 1 then xcoordinate = xcoordinate + 10

rem positions object
position object 1,xcoordinate,ycoordinate,zcoordinate

speed# = speed# + 0.01

sync

Loop

delete matrix 1

end

+ Code Snippet

Print "Try not to hit the hills as you fly over the land. If you do, your ship will turn red."
Print "Try to last as long as you can."
Print "The ship will keep getting faster, and faster, until you crash."
Input "Which world do you want to fly in? Grass, lava, sand, or snow?:", filename$
cls

load object "ship.x",1
hide object 1
Color object 1,rgb(0,0,255)

load bitmap filename$+".bmp",1
get image 1,0,0,128,128
delete bitmap 1

rem Make the matrix
make matrix 1,2000,2000,40,40
randomize matrix 1,175.0
update matrix 1
prepare matrix texture 1,1,1,1

rem Position camera
position camera 1000,300,100
point camera 1000,0,400

rem Add depth effect
fog on
fog distance 1500

sync on

rem sets up ship object
xrotate object 1,110
show object 1
position object 1,1000,150,camera position z() + 75
xcoordinate = object position x(1)
ycoordinate = object position y(1)
zcoordinate = object position z(1)
speed# = 8.0

suspend for key

Do

rem Smooth scroll the matrix
pz#=pz#-speed#

if pz#<0.0
   shift matrix up 1
   pz#=pz#+50.0
endif
if pz#>=50.0
   shift matrix down 1
   pz#=pz#-50.0
endif
position matrix 1,0,0,pz#

rem test for ground collision
If get ground height(1,object position x(1),object position z(1)) > object position y(1) - 20 then color object 1,rgb(255,0,0)

rem player controls
If leftkey() = 1 then xcoordinate = xcoordinate - 10
If rightkey() = 1 then xcoordinate = xcoordinate + 10

rem positions object
position object 1,xcoordinate,ycoordinate,zcoordinate

speed# = speed# + 0.01

sync

Loop

delete matrix 1

end

Don't Say Like

Attachments

Login to view attachments

Back to top

Profile PM Email Website

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 20th Jul 2006 20:44

Link

Solar System

sync on
sync rate 60

Load image "mercuryTexture.jpg",1
Load image "venusTexture.jpg",2
Load image "earthTexture.jpg",3
Load image "marsTexture.jpg",4
Load image "jupiterTexture.jpg",5
Load image "saturnTexture.jpg",6
Load image "uranusTexture.jpg",7
Load image "neptuneTexture.jpg",8
Load image "plutoTexture.jpg",9
Load image "ub313Texture.jpg",10
Load image "sunTexture.jpg",11
Load image "starsTexture.jpg",12

Make object sphere 1,2
Make object sphere 2,6
Make object sphere 3,6
Make object sphere 4,3
Make object sphere 5,69
Make object sphere 6,69
Make object sphere 7,25
Make object sphere 8,24
Make object sphere 9,1
Make object sphere 10,2
Make object sphere 11,600

FOr I = 1 to 11
   Texture object I,I
Next I
Texture backdrop 12

Position object 1,57909,0,0
Position object 2,108208,0,0
Position object 3,149598,0,0
Position object 4,227939,0,0
Position object 5,778298,0,0
Position object 6,1427010,0,0
Position object 7,2869600,0,0
Position object 8,4496700,0,0
Position object 9,5913490,0,0
Position object 10,14550000,0,0
Position object 11,0,0,0

position camera 0,0,-605

Do

For I = 1 to 11
   yrotate object I,wrapvalue(object angle y(I)+1)
Next I

If keystate(203) = 1
   If keystate(28) = 1 then position camera camera position x()-10000,camera position y(),camera position z()
   If keystate(157) = 1 then position camera camera position x()-1000,camera position y(),camera position z()
   If keystate(54) = 1 then position camera camera position x()-100,camera position y(),camera position z()
   If keystate(54) = 0 and keystate(157) = 0 and keystate(28) = 0 and keystate(184) = 0 then position camera camera position x()-5,camera position y(),camera position z()
   If keystate(184) = 1 then position camera camera position x()-1,camera position y(),camera position z()
endif

If keystate(205) = 1
   If keystate(28) = 1 then position camera camera position x()+10000,camera position y(),camera position z()
   If keystate(157) = 1 then position camera camera position x()+1000,camera position y(),camera position z()
   If keystate(54) = 1 then position camera camera position x()+100,camera position y(),camera position z()
   If keystate(54) = 0 and keystate(157) = 0 and keystate(28) = 0 and keystate(184) = 0 then position camera camera position x()+5,camera position y(),camera position z()
   If keystate(184) = 1 then position camera camera position x()+1,camera position y(),camera position z()
endif

IF keystate(200) = 1
   IF keystate(184) = 0 then move camera 5
   If keystate(184) = 1 then move camera 1
endif

IF keystate(208) = 1
   IF keystate(184) = 0 then move camera -5
   If keystate(184) = 1 then move camera -1
endif

Center text 320,5,"Solar System Simulation"

Center text 320,35,"Distance From Sun: "+str$(0-camera position x())
If camera position x() >1 and camera position x() < 57909 then Center text 320,20,"Distance From Mercury: "+str$(57909-camera position x())
If camera position x() >57910 and camera position x() < 108208 then Center text 320,20,"Distance From Venus: "+str$(108208-camera position x())
If camera position x() >108209 and camera position x() < 149598 then Center text 320,20,"Distance From Earth: "+str$(149598-camera position x())
If camera position x() >149599 and camera position x() < 227939 then Center text 320,20,"Distance From Mars: "+str$(227939-camera position x())
If camera position x() >227940 and camera position x() < 778298 then Center text 320,20,"Distance From Jupiter: "+str$(778298-camera position x())
If camera position x() >778299 and camera position x() < 1427010 then Center text 320,20,"Distance From Saturn: "+str$(1427010-camera position x())
If camera position x() >1427011 and camera position x() < 2869600 then Center text 320,20,"Distance From Uranus: "+str$(2869600-camera position x())
If camera position x() >2869601 and camera position x() < 4496700 then Center text 320,20,"Distance From Neptune: "+str$(4496700-camera position x())
If camera position x() >4496701 and camera position x() < 5913490 then Center text 320,20,"Distance From Pluto: "+str$(5913490-camera position x())
If camera position x() >5913491 and camera position x() < 14550000 then Center text 320,20,"Distance From UB313: "+str$(14550000-camera position x())
If camera position x() > 14550001 then Center text 320,20,"Um, There isn't anything to see here! You might want to turn back now!!"

Center text 320,50,"One Unit = 1,000 kilometers. All mesearments used in this program uses the unit mesurement."

Center text 320,375,"To move right and left, press the left and right arrow keys."
Center text 320,390,"To zoom in and out, press the up and down arrow keys"
Center text 320,405,"You can press other keys to speed or slow down the movement."
center text 320,420,"Press Alt with zooming in or moving left and right to move one unit"
Center text 320,435,"If you don't press any extra keys, it will move 5 units"
Center text 320,450,"Shift = 100, Control = 1000, Enter = 10000"
Center text 320,465,"The last 3 ones only work when going left and right."

sync
Loop

+ Code Snippet

sync on
sync rate 60

Load image "mercuryTexture.jpg",1
Load image "venusTexture.jpg",2
Load image "earthTexture.jpg",3
Load image "marsTexture.jpg",4
Load image "jupiterTexture.jpg",5
Load image "saturnTexture.jpg",6
Load image "uranusTexture.jpg",7
Load image "neptuneTexture.jpg",8
Load image "plutoTexture.jpg",9
Load image "ub313Texture.jpg",10
Load image "sunTexture.jpg",11
Load image "starsTexture.jpg",12

Make object sphere 1,2
Make object sphere 2,6
Make object sphere 3,6
Make object sphere 4,3
Make object sphere 5,69
Make object sphere 6,69
Make object sphere 7,25
Make object sphere 8,24
Make object sphere 9,1
Make object sphere 10,2
Make object sphere 11,600

FOr I = 1 to 11
   Texture object I,I
Next I
Texture backdrop 12

Position object 1,57909,0,0
Position object 2,108208,0,0
Position object 3,149598,0,0
Position object 4,227939,0,0
Position object 5,778298,0,0
Position object 6,1427010,0,0
Position object 7,2869600,0,0
Position object 8,4496700,0,0
Position object 9,5913490,0,0
Position object 10,14550000,0,0
Position object 11,0,0,0

position camera 0,0,-605

Do

For I = 1 to 11
   yrotate object I,wrapvalue(object angle y(I)+1)
Next I

If keystate(203) = 1
   If keystate(28) = 1 then position camera camera position x()-10000,camera position y(),camera position z()
   If keystate(157) = 1 then position camera camera position x()-1000,camera position y(),camera position z()
   If keystate(54) = 1 then position camera camera position x()-100,camera position y(),camera position z()
   If keystate(54) = 0 and keystate(157) = 0 and keystate(28) = 0 and keystate(184) = 0 then position camera camera position x()-5,camera position y(),camera position z()
   If keystate(184) = 1 then position camera camera position x()-1,camera position y(),camera position z()
endif

If keystate(205) = 1
   If keystate(28) = 1 then position camera camera position x()+10000,camera position y(),camera position z()
   If keystate(157) = 1 then position camera camera position x()+1000,camera position y(),camera position z()
   If keystate(54) = 1 then position camera camera position x()+100,camera position y(),camera position z()
   If keystate(54) = 0 and keystate(157) = 0 and keystate(28) = 0 and keystate(184) = 0 then position camera camera position x()+5,camera position y(),camera position z()
   If keystate(184) = 1 then position camera camera position x()+1,camera position y(),camera position z()
endif

IF keystate(200) = 1
   IF keystate(184) = 0 then move camera 5
   If keystate(184) = 1 then move camera 1
endif

IF keystate(208) = 1
   IF keystate(184) = 0 then move camera -5
   If keystate(184) = 1 then move camera -1
endif

Center text 320,5,"Solar System Simulation"

Center text 320,35,"Distance From Sun: "+str$(0-camera position x())
If camera position x() >1 and camera position x() < 57909 then Center text 320,20,"Distance From Mercury: "+str$(57909-camera position x())
If camera position x() >57910 and camera position x() < 108208 then Center text 320,20,"Distance From Venus: "+str$(108208-camera position x())
If camera position x() >108209 and camera position x() < 149598 then Center text 320,20,"Distance From Earth: "+str$(149598-camera position x())
If camera position x() >149599 and camera position x() < 227939 then Center text 320,20,"Distance From Mars: "+str$(227939-camera position x())
If camera position x() >227940 and camera position x() < 778298 then Center text 320,20,"Distance From Jupiter: "+str$(778298-camera position x())
If camera position x() >778299 and camera position x() < 1427010 then Center text 320,20,"Distance From Saturn: "+str$(1427010-camera position x())
If camera position x() >1427011 and camera position x() < 2869600 then Center text 320,20,"Distance From Uranus: "+str$(2869600-camera position x())
If camera position x() >2869601 and camera position x() < 4496700 then Center text 320,20,"Distance From Neptune: "+str$(4496700-camera position x())
If camera position x() >4496701 and camera position x() < 5913490 then Center text 320,20,"Distance From Pluto: "+str$(5913490-camera position x())
If camera position x() >5913491 and camera position x() < 14550000 then Center text 320,20,"Distance From UB313: "+str$(14550000-camera position x())
If camera position x() > 14550001 then Center text 320,20,"Um, There isn't anything to see here! You might want to turn back now!!"

Center text 320,50,"One Unit = 1,000 kilometers. All mesearments used in this program uses the unit mesurement."

Center text 320,375,"To move right and left, press the left and right arrow keys."
Center text 320,390,"To zoom in and out, press the up and down arrow keys"
Center text 320,405,"You can press other keys to speed or slow down the movement."
center text 320,420,"Press Alt with zooming in or moving left and right to move one unit"
Center text 320,435,"If you don't press any extra keys, it will move 5 units"
Center text 320,450,"Shift = 100, Control = 1000, Enter = 10000"
Center text 320,465,"The last 3 ones only work when going left and right."

sync
Loop

Don't Say Like

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Zotoaster

19

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 20th Jul 2006 21:45

Link

Wow... this is a great contibution. Well done man!

Back to top

Profile PM Email

Dark Master

18

Years of Service

User Offline

Joined: 4th Apr 2006

Location:

Posted: 20th Jul 2006 22:59 Edited at: 21st Jul 2006 00:37

Link

Wow it looks like you have been busy, They look like they could be some fun. I'll make sure and try them out.

I dont know if anyone else had problems running these but i did. all of the calls to functions were missing the () at the end, and most of them wouldnt load the media even though it was there. I think i got the bomb roller to work, and thats about it.

Free Cheese!

Back to top

Profile PM Website

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 21st Jul 2006 00:14

Link

Everybody ought to try Bomb Roller. It's in the Program Announcements board as well. Very fun game. Bomb Roller 2 is in the WIP board and UFO's signature.

My Functions: Mine
Post yours: Post

Back to top

Profile PM Email

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 21st Jul 2006 01:43

Link

Thanks Zotoaster and Sixty Squares.

Dark MAster - Most likely its because you don't have DBC. They all ran fine for me.

BTW, if you want some screenshots before you download and everything, there are some for most in my website. But not for flyer and ball finder because they were very early and simple games.

Don't Say Like

Back to top

Profile PM Email Website

ZeroEon

18

Years of Service

User Offline

Joined: 5th Aug 2006

Location: Everywhere But Nowhere

Posted: 5th Aug 2006 17:31

Link

Thx For The Source Really Helped Me Out !!

They Cant Change What You See and What You Hear But They Can Change What You Saw And What You Heard

There Are 10 Types Of People Those Get Binary And Those Who Dont

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / 7 Open source games

Attachments

Attachments

Attachments

Attachments

Attachments

Attachments

Attachments