Holy fucking shit I don't want to work on this. Sibly, you son of a ...
This commit is contained in:
Michael Fabain Dirks
@@ -0,0 +1,888 @@
|
||||
;EdzUp Asteroids
|
||||
;Written by EdzUp of Stonegoat Software
|
||||
|
||||
Graphics3D 640,480,16
|
||||
SetBuffer BackBuffer()
|
||||
|
||||
SeedRnd MilliSecs() ;setup random numbers
|
||||
|
||||
Global ArialLarge=LoadFont("arial",72,1,0,0)
|
||||
Global ArialMid=LoadFont("arial",48,1,0,0)
|
||||
Global Arial=LoadFont("arial",14,0,0,0)
|
||||
|
||||
Global Explode = LoadSound("Explode.wav") ;Asteroid Explosion
|
||||
Global ShipExplode = LoadSound("Explode1.wav") ;ship Explosion
|
||||
Global UFOSound = LoadSound("ufo.wav") ;UFO Engine sound
|
||||
Global Lazer = LoadSound("Lasergun.wav") ;Lazer Sound
|
||||
Global PlayerHit = LoadSound("hit.wav") ;Player ship hit
|
||||
|
||||
Global as#=0
|
||||
|
||||
Global UfoSoundChannel=-1 ;ufo sound channel ;)
|
||||
SetFont Arial
|
||||
|
||||
Type AsteroidInfo
|
||||
Field x,y,z ;Asteroid position in 3d world
|
||||
Field Model ;handle to Asteroid model
|
||||
Field speed ;speed asteroid moving
|
||||
End Type
|
||||
|
||||
Type Shots
|
||||
Field x,y,z ;position in 3d world
|
||||
Field Model ;Shot Model
|
||||
Field Timer ;Shot Timer
|
||||
Field Speed
|
||||
End Type
|
||||
|
||||
Type UFOShots
|
||||
Field x,y,z ;position in 3d world
|
||||
Field Model ;Shot Model
|
||||
Field Timer ;Shot Timer
|
||||
Field Speed
|
||||
End Type
|
||||
|
||||
Type UFOInfo
|
||||
Field x,y,z ;position in 3d world
|
||||
Field Model ;UFO Model
|
||||
End Type
|
||||
|
||||
Type Fragment ;Explosion Fragment
|
||||
Field x,y,z ;position in 3d world
|
||||
Field speed
|
||||
Field timer
|
||||
Field model
|
||||
End Type
|
||||
|
||||
Type Explode
|
||||
Field Model ;Entity attached to it
|
||||
Field Size ;current size
|
||||
Field mode ;1 it increases in size
|
||||
Field timer ;explosion timer
|
||||
End Type
|
||||
|
||||
;************ TRACERS FLAME CODE **************
|
||||
Global flam = LoadSprite("flame2.bmp")
|
||||
ScaleSprite flam,50,50
|
||||
HideEntity flam
|
||||
|
||||
Global flam2 = LoadSprite("flame3.bmp") ;UFO Shot
|
||||
ScaleSprite flam2,50,50
|
||||
HideEntity flam2
|
||||
|
||||
;**********************************************
|
||||
Global B3DLogo = LoadImage("b3dlogo.png")
|
||||
MidHandle B3DLogo
|
||||
Global TitleTex = LoadImage("Title.png")
|
||||
MidHandle TitleTex
|
||||
;enemy UFO Mesh
|
||||
Global UFOMesh=LoadMesh("UFO.3ds")
|
||||
ScaleMesh UFOMesh,50,50,50
|
||||
HideEntity UFOMesh
|
||||
|
||||
;Load Asteroid Model (Large)
|
||||
Global LargeAsteroidMesh=LoadMesh("asteroid.3ds")
|
||||
ScaleMesh LargeAsteroidMesh,60,60,60
|
||||
HideEntity LargeAsteroidMesh
|
||||
|
||||
;Load Asteroid Model (medium)
|
||||
Global MediumAsteroidMesh=LoadMesh("asteroid.3ds")
|
||||
ScaleMesh MediumAsteroidMesh,30,30,30
|
||||
HideEntity MediumAsteroidMesh
|
||||
|
||||
;Load Asteroid Model (small)
|
||||
Global SmallAsteroidMesh=LoadMesh("asteroid.3ds")
|
||||
ScaleMesh SmallAsteroidMesh,15,15,15
|
||||
HideEntity SmallAsteroidMesh
|
||||
|
||||
;Load Player Model
|
||||
Global PlayerMesh=LoadMesh("hfighter.3ds")
|
||||
ScaleMesh PlayerMesh,1,1,1
|
||||
HideEntity PlayerMesh
|
||||
|
||||
;create backdrop
|
||||
Global Stary=CreateBrush()
|
||||
BrushColor Stary,155,155,155
|
||||
StarTex=LoadTexture("Stars.bmp")
|
||||
ScaleTexture startex,.1,.1
|
||||
BrushTexture Stary,StarTex
|
||||
Global BackdropSphere=CreateSphere()
|
||||
EntityTexture BackDropsphere,startex
|
||||
HideEntity BackdropSphere
|
||||
|
||||
ScaleMesh BackdropSphere,-30000,-30000,-30000 ;negative value so player can be put inside
|
||||
;and still see the texture ;)
|
||||
|
||||
;setup entity types
|
||||
Const PLAYER_TYPE =1
|
||||
Const CAMERA_TYPE =2
|
||||
Const UFOSHOT_TYPE =3
|
||||
Const PLAYERSHOT_TYPE =5
|
||||
Const UFO_TYPE =6
|
||||
Const ASTEROID_TYPE =10
|
||||
;setup collision system
|
||||
;1 is player
|
||||
;3 UFO Shots
|
||||
;5 player shots
|
||||
;6 is UFO's
|
||||
;10 are asteroids
|
||||
Collisions PLAYER_TYPE, ASTEROID_TYPE,1,2
|
||||
Collisions CAMERA_TYPE, UFOSHOT_TYPE,1,2
|
||||
Collisions PLAYERSHOT_TYPE, ASTEROID_TYPE,1,2
|
||||
Collisions UFOSHOT_TYPE, PLAYER_TYPE,1,2
|
||||
Collisions PLAYER_TYPE, UFOSHOT_TYPE,1,2
|
||||
Collisions PLAYER_TYPE, UFO_TYPE,1,2
|
||||
Collisions PLAYERSHOT_TYPE, UFO_TYPE,1,2
|
||||
|
||||
Light=CreateLight(1)
|
||||
|
||||
Global Pivot=CreatePivot()
|
||||
EntityType Pivot,PLAYER_TYPE
|
||||
EntityRadius pivot,7
|
||||
|
||||
;create camera
|
||||
Global camera=CreateCamera(pivot) ;Or nothing will be drawn
|
||||
CameraRange camera,1,45000 ;were in space ;)
|
||||
;CameraFogRange camera,44500,45000
|
||||
;CameraFogColor camera,0,0,0
|
||||
EntityType camera,PLAYER_TYPE
|
||||
EntityRadius camera,7
|
||||
|
||||
Global Backing=CopyEntity(BackDropsphere)
|
||||
Global PlayShip=CopyEntity(PlayerMesh,0)
|
||||
|
||||
EntityType PlayShip,1
|
||||
EntityRadius playship,150
|
||||
PositionEntity PlayShip,EntityX#(pivot),EntityY#(pivot),EntityZ#(pivot)
|
||||
RotateEntity PlayShip,EntityPitch#(pivot),EntityYaw#(pivot),EntityRoll#(pivot)
|
||||
MoveEntity PlayShip,0,0,-3.5
|
||||
|
||||
.restart
|
||||
|
||||
;declare a few globals
|
||||
Global UFOCount=0 ;number of UFO's in local area
|
||||
Global PlayerScore=0
|
||||
Global HighScore=10000
|
||||
Global PlayerLives=3
|
||||
Global PX,PY,PZ ;player position
|
||||
Global FX,FY,FZ ;player facing
|
||||
Global AsteroidCount=5 ;number of asteroids in this level
|
||||
Global Level=1 ;level player is on
|
||||
Global ExtraLife=10000 ;Extra Life at 10000 points
|
||||
Global Damage=100 ;how many damage points player has
|
||||
Global Speed=0 ;current players ship speed
|
||||
Global Actual=0 ;Actual speed
|
||||
Global Roll#=0 ;Ships Rolling
|
||||
Global Hits=0 ;Shots hit
|
||||
Global Fired=0 ;Shots fired
|
||||
Global Accuracy=0 ;Accuracy
|
||||
|
||||
Global Asteroids=0 ;Current Asteroid number
|
||||
|
||||
Global TextTimer=0 ;Text Timer for messages
|
||||
Global BonusTextTimer=0;Timer for Bonuses
|
||||
Global BonusText$="" ;message
|
||||
Global BonusTime=0 ;Timer for Bonus (0 means its run out ;) )
|
||||
Global Bonus=0 ;Bonus Active
|
||||
Global GodMode=0 ;1 if godmode active
|
||||
|
||||
Global ShotTime=0 ;Shot Timer
|
||||
Global MaxTime=10 ;Max Shot Timer
|
||||
Global UFOShotTime=0 ;UFO Firing Timer
|
||||
Global OldDamage=0 ;Old damage for God Mode
|
||||
|
||||
|
||||
Global Endgame=0 ;1 if player has been killed (and all his lives have run out)
|
||||
|
||||
CameraClsColor camera,0,0,0 ;set camera refresh color to black
|
||||
|
||||
AmbientLight 255,255,255
|
||||
|
||||
Title()
|
||||
CreateLevel(1)
|
||||
texttimer=100
|
||||
Repeat
|
||||
If GodMode=1 Then OldDamage=Damage
|
||||
Cls
|
||||
mxs=MouseXSpeed() ;get mouse speed
|
||||
mys=MouseYSpeed()
|
||||
MoveMouse 320,240 ;reset mouse to center of screen (so mousex speed doesnt stop)
|
||||
|
||||
TurnEntity Pivot,mys,-mxs,0
|
||||
If KeyDown(200)=1 Then Speed=Speed+2 ;up
|
||||
If KeyDown(208)=1 Then Speed=Speed-2 ;down
|
||||
If KeyDown(203)=1 Then Roll#=Roll#-0.5;left
|
||||
If KeyDown(205)=1 Then Roll#=Roll#+0.5;right
|
||||
If Speed<0 Then Speed=0
|
||||
If Speed>100 Then Speed=100
|
||||
If Actual>Speed Then Actual=Actual-1
|
||||
If Actual<Speed Then Actual=Actual+1
|
||||
MoveEntity pivot,0,0,Actual
|
||||
TurnEntity pivot,0,0,Roll#
|
||||
PositionEntity PlayShip,EntityX#(pivot),EntityY#(pivot),EntityZ#(pivot)
|
||||
RotateEntity PlayShip,EntityPitch#(pivot),EntityYaw#(pivot),EntityRoll#(pivot)
|
||||
MoveEntity PlayShip,0,0,-3.5
|
||||
If MouseDown(1)=1 And shottime<=0 Then FireShot(Pivot)
|
||||
If ShotTime>0 Then ShotTime=ShotTime-1
|
||||
Roll=0
|
||||
UpdateLevel()
|
||||
updateExplosions()
|
||||
UFOAppear=Rnd(100000)
|
||||
If UFOAppear<50
|
||||
PlaceUFO()
|
||||
EndIf
|
||||
If Damage<1
|
||||
PlaySound shipexplode
|
||||
ClearLevel()
|
||||
CreateLevel(Level)
|
||||
PositionEntity camera,0,0,0
|
||||
texttimer=100
|
||||
Damage=100
|
||||
PlayerLives=PlayerLives-1
|
||||
EndIf
|
||||
If PlayerLives<0 And texttime<1
|
||||
Repeat
|
||||
Until MouseDown(1)=0 And MouseDown(2)=0
|
||||
ClearLevel()
|
||||
Goto restart
|
||||
EndIf
|
||||
If PlayerLives<0
|
||||
Endgame=1
|
||||
texttime=200
|
||||
EndIf
|
||||
If Asteroids<1
|
||||
EndOfLevelAnim()
|
||||
AccuracyBonus()
|
||||
ClearLevel()
|
||||
Level=Level+1
|
||||
CreateLevel(Level)
|
||||
PositionEntity camera,0,0,0
|
||||
texttimer=100
|
||||
EndIf
|
||||
PositionEntity PlayShip,EntityX#(pivot),EntityY#(pivot),EntityZ#(pivot)
|
||||
RotateEntity PlayShip,EntityPitch#(pivot),EntityYaw#(pivot),EntityRoll#(pivot)
|
||||
MoveEntity PlayShip,0,0,-4.5
|
||||
UpdateWorld
|
||||
RenderWorld
|
||||
If Texttimer>0
|
||||
SetFont ariallarge
|
||||
Color 255,255,255
|
||||
If endgame=0 Then Text 320,240,"LEVEL "+Level,1,1
|
||||
If endgame=1 Then Text 320,240,"GAME OVER",1,1
|
||||
SetFont arial
|
||||
TextTimer=TextTimer-1
|
||||
EndIf
|
||||
If BonusTexttimer>0
|
||||
SetFont arialMid
|
||||
Color 255,255,255
|
||||
Text 320,420,BonusText$,1,1
|
||||
SetFont arial
|
||||
BonusTextTimer=BonusTextTimer-1
|
||||
EndIf
|
||||
BonusTime=BonusTime-5
|
||||
If BonusTime<1
|
||||
MaxTime=10
|
||||
GodMode=0
|
||||
BonusTime=-2
|
||||
EndIf
|
||||
If PlayerScore>=HighScore
|
||||
HighScore=PlayerScore
|
||||
SetFont arial
|
||||
Text 320,60,"YOU HAVE A HIGH SCORE",1,1
|
||||
EndIf
|
||||
If PlayerScore>ExtraLife
|
||||
BonusText$="Extra Life"
|
||||
BonusTextTimer=100
|
||||
PlayerLives=PlayerLives+1
|
||||
ExtraLife=ExtraLife*2
|
||||
EndIf
|
||||
ShowStats()
|
||||
Flip
|
||||
TestCollisions()
|
||||
If GodMode=1 Then Damage=OldDamage
|
||||
Until KeyDown(1)=1
|
||||
End
|
||||
|
||||
Function AccuracyBonus()
|
||||
a=0
|
||||
If (Hits>Fired/4)*3 Then a=75
|
||||
If Hits=Fired Then a=100
|
||||
Select a
|
||||
Case 100:BonusText$="Accuracy Bonus"
|
||||
BonusTextTimer=100
|
||||
PlayerScore=PlayerScore+1000
|
||||
Case 75 :BonusText$="Accuracy Bonus"
|
||||
BonusTextTimer=100
|
||||
PlayerScore=PlayerScore+500
|
||||
End Select
|
||||
Hits=0
|
||||
Fired=0
|
||||
Accuracy=-1
|
||||
End Function
|
||||
|
||||
Function PlaceUFO()
|
||||
UFO.UFOInfo = New UFOInfo
|
||||
UFO\x=Rnd(-10000,10000)
|
||||
UFO\y=Rnd(-10000,10000)
|
||||
UFO\z=-10000
|
||||
UFO\Model=CopyEntity(UFOMesh,0)
|
||||
EntityType UFO\Model,6 ;Set UFO Type to 6
|
||||
EntityRadius UFO\Model,150
|
||||
PositionEntity UFO\Model,UFO\x,UFO\y,UFO\z
|
||||
UFOCount=UFOCount+1
|
||||
End Function
|
||||
|
||||
Function explosion(entity)
|
||||
Boom.Explode = New explode
|
||||
Boom\Model = CopyEntity(flam)
|
||||
PositionEntity boom\Model,EntityX#(entity),EntityY#(entity),EntityZ#(entity)
|
||||
PointEntity Boom\Model,pivot
|
||||
Boom\Size=5
|
||||
Boom\Mode=1
|
||||
Boom\Timer=0
|
||||
|
||||
Fragments=Rnd(20)+10
|
||||
For a=0 To Fragments
|
||||
Frag.Fragment = New Fragment
|
||||
|
||||
Frag\Model = CopyEntity(Flam)
|
||||
PositionEntity Frag\Model,EntityX#(entity),EntityY#(entity),EntityZ#(entity)
|
||||
TurnEntity Frag\Model,Rnd(360),Rnd(360),Rnd(360)
|
||||
Frag\Speed = (Rnd(5)+1)*5
|
||||
Frag\Timer = 0
|
||||
Next
|
||||
End Function
|
||||
|
||||
Function UpdateExplosions()
|
||||
For Boom.Explode=Each explode
|
||||
If Boom<>Null
|
||||
If Boom\mode=1
|
||||
Boom\Size=5+(Boom\Timer)
|
||||
Else
|
||||
Boom\Size=5+(25-(Boom\Timer-25))
|
||||
EndIf
|
||||
ScaleSprite Boom\Model,Boom\size*25,Boom\size*25
|
||||
Boom\Timer=Boom\Timer+1
|
||||
If Boom\Timer>25 Then Boom\Mode=0
|
||||
If Boom\Timer>50
|
||||
FreeEntity Boom\Model
|
||||
Delete Boom
|
||||
EndIf
|
||||
EndIf
|
||||
Next
|
||||
|
||||
For Frag.Fragment = Each fragment
|
||||
If Frag<>Null
|
||||
MoveEntity Frag\Model,0,0,Frag\Speed
|
||||
Frag\Timer = Frag\Timer + 1
|
||||
If Frag\Timer>50
|
||||
FreeEntity Frag\Model
|
||||
Delete Frag
|
||||
EndIf
|
||||
EndIf
|
||||
Next
|
||||
End Function
|
||||
|
||||
Function UFOFire(entity)
|
||||
;ufo firing function
|
||||
PlaySound Lazer
|
||||
UFOShot.UFOShots = New UFOShots ;create another Shot
|
||||
UFOShot\Model = CopyEntity(flam2)
|
||||
EntityType UFOShot\Model,3
|
||||
UFOShot\Speed=50
|
||||
PositionEntity UFOShot\Model,EntityX#(entity),EntityY#(entity),EntityZ#(entity)
|
||||
TurnEntity UFOShot\Model,EntityPitch#(entity),EntityYaw#(entity),EntityRoll#(entity)
|
||||
PointEntity UFOShot\Model,Pivot ;make shot face player (so shot moves towards player)
|
||||
End Function
|
||||
|
||||
Function EndOfLevelAnim()
|
||||
;remember old cam position
|
||||
ox#=EntityX#(pivot)
|
||||
oy#=EntityY#(pivot)
|
||||
oz#=EntityZ#(pivot)
|
||||
ofx#=EntityPitch#(pivot)
|
||||
ofy#=EntityYaw#(pivot)
|
||||
ofz#=EntityRoll#(pivot)
|
||||
|
||||
;create a player ship
|
||||
Ship=CopyEntity(PlayerMesh,0)
|
||||
PositionEntity Ship,0,0,0
|
||||
PositionEntity pivot,250,120,250 ;position camera to get a good view ;)
|
||||
PointEntity pivot,ship ;point camera (attached to pivot) at ship
|
||||
ScaleEntity ship,3,3,3 ;scale ship so it looks better
|
||||
timer=50
|
||||
xm=0
|
||||
;move ship
|
||||
Repeat
|
||||
MoveEntity ship,0,0,1
|
||||
UpdateWorld
|
||||
RenderWorld
|
||||
Flip
|
||||
timer=timer-1
|
||||
If KeyDown(1)=1 Then End
|
||||
Until timer<1
|
||||
timer=25
|
||||
ScaleEntity ship,3,3,12 ;scale ship to make it look like its jumping
|
||||
;move ship forwards
|
||||
Repeat
|
||||
MoveEntity ship,0,0,-50
|
||||
UpdateWorld
|
||||
RenderWorld
|
||||
Flip
|
||||
timer=timer-1
|
||||
If KeyDown(1)=1 Then End
|
||||
Until timer<1
|
||||
jumpstar=CopyEntity(flam2)
|
||||
PositionEntity jumpstar,EntityX#(ship),EntityY#(ship),EntityZ#(ship)
|
||||
FreeEntity ship
|
||||
For a=1 To 10
|
||||
ScaleSprite jumpstar,50*a,50*a
|
||||
UpdateWorld
|
||||
RenderWorld
|
||||
Flip
|
||||
Next
|
||||
For a=10 To 1 Step -1
|
||||
ScaleSprite jumpstar,50*a,50*a
|
||||
UpdateWorld
|
||||
RenderWorld
|
||||
Flip
|
||||
Next
|
||||
FreeEntity jumpstar
|
||||
UpdateWorld
|
||||
RenderWorld
|
||||
Flip
|
||||
;restore camera position (attached to the pivot)
|
||||
PositionEntity pivot,ox#,oy#,oz#
|
||||
RotateEntity pivot,ofx#,ofy#,ofz#
|
||||
End Function
|
||||
|
||||
Function FireShot(entity)
|
||||
PlaySound Lazer
|
||||
Shot.Shots = New Shots ;create another Shot
|
||||
Shot\Model = CopyEntity(flam) ;copy Tracers Sprite Entity ;)
|
||||
EntityType Shot\Model,5
|
||||
PositionEntity Shot\Model,EntityX#(Pivot),EntityY#(Pivot),EntityZ#(Pivot)
|
||||
TurnEntity Shot\Model,EntityPitch#(Pivot),EntityYaw#(Pivot),EntityRoll#(Pivot)
|
||||
Shot\Speed = 50+(Actual+5)
|
||||
ShotTime=MaxTime
|
||||
Fired=Fired+1
|
||||
End Function
|
||||
|
||||
Function NewAsteroid(Entity,speed)
|
||||
;when something hits an asteroid this function creates new asteroids
|
||||
If speed=5 Then count=Rnd(3,5)
|
||||
If speed=10 Then count=Rnd(2,4)
|
||||
Asteroids=Asteroids+count
|
||||
For a=1 To count
|
||||
Asteroid.AsteroidInfo=New AsteroidInfo
|
||||
Asteroid\x=EntityX#(entity)
|
||||
Asteroid\y=EntityY#(entity)
|
||||
Asteroid\z=EntityZ#(entity)
|
||||
If speed=5 Then Asteroid\Speed=10
|
||||
If speed=10 Then Asteroid\Speed=20
|
||||
If speed=5 Then Asteroid\Model=CopyEntity(MediumAsteroidMesh,0)
|
||||
If speed=10 Then Asteroid\Model=CopyEntity(SmallAsteroidMesh,0)
|
||||
If speed=5 Then EntityRadius Asteroid\Model,200
|
||||
If speed=10 Then EntityRadius Asteroid\Model,150
|
||||
If speed=5 Or speed=10
|
||||
PositionEntity Asteroid\Model,Asteroid\x,Asteroid\y,Asteroid\z
|
||||
RotateEntity Asteroid\Model,Rnd(360),Rnd(360),Rnd(360)
|
||||
EntityType Asteroid\Model,10
|
||||
Else
|
||||
FreeEntity Asteroid\Model
|
||||
Delete Asteroid
|
||||
Asteroids=Asteroids-1
|
||||
EndIf
|
||||
Next
|
||||
FreeEntity entity
|
||||
Asteroids=Asteroids-1
|
||||
End Function
|
||||
|
||||
Function TestCollisions()
|
||||
;function to check collisions
|
||||
For Asteroid.AsteroidInfo=Each AsteroidInfo
|
||||
If Asteroid<>Null
|
||||
;if player has collided with asteroid
|
||||
If EntityCollided(Asteroid\Model,1)
|
||||
Actual=0
|
||||
If speed>0
|
||||
damage=damage-(speed/2)
|
||||
Else
|
||||
damage=damage-5
|
||||
EndIf
|
||||
Speed=0
|
||||
EndIf
|
||||
If EntityCollided(Asteroid\Model,5) ;if asteroid and player shot collides
|
||||
Hits=Hits+1
|
||||
PlaySound Explode
|
||||
Explosion(Asteroid\Model)
|
||||
If asteroid\Speed=5 Or asteroid\speed=10 Then NewAsteroid(Asteroid\Model,Asteroid\Speed)
|
||||
If asteroid\speed=5 Then PlayerScore=PlayerScore+10
|
||||
If asteroid\speed=10 Then PlayerScore=PlayerScore+20
|
||||
If asteroid\Speed=20
|
||||
PlayerScore=PlayerScore+50
|
||||
FreeEntity Asteroid\Model
|
||||
Asteroids=Asteroids-1
|
||||
EndIf
|
||||
Delete Asteroid
|
||||
EndIf
|
||||
EndIf
|
||||
Next
|
||||
|
||||
For UFO.UFOInfo = Each UFOInfo
|
||||
If UFO<>Null
|
||||
If EntityCollided(Ufo\Model,1)
|
||||
Actual=0
|
||||
Speed=0
|
||||
EndIf
|
||||
If EntityCollided(Ufo\Model,5)
|
||||
Hits=Hits+1
|
||||
PlaySound ShipExplode
|
||||
Explosion(UFO\Model)
|
||||
PlayerScore=PlayerScore+200
|
||||
Bonus=Rnd(50)
|
||||
If Bonus<10
|
||||
BonusTextTimer=100
|
||||
Bonus=Rnd(7)
|
||||
If Bonus<0 Then Bonus=0
|
||||
If Bonus>5 Then Bonus=5
|
||||
If Bonus=0
|
||||
BonusText$="Rapid Fire"
|
||||
MaxTime=1
|
||||
BonusTime=10000
|
||||
EndIf
|
||||
If Bonus=1
|
||||
BonusText$="Extra Life"
|
||||
PlayerLives=PlayerLives+1
|
||||
BonusTime=0
|
||||
EndIf
|
||||
If Bonus=2
|
||||
BonusText$="Full Repair"
|
||||
Damage=100
|
||||
OldDamage=100
|
||||
BonusTime=0
|
||||
EndIf
|
||||
If Bonus=3
|
||||
BonusText$="Extra Score"
|
||||
PlayerScore=PlayerScore+1000
|
||||
BonusTime=0
|
||||
EndIf
|
||||
If Bonus=4
|
||||
BonusText$="Level Skip"
|
||||
Asteroids=0
|
||||
BonusTime=0
|
||||
EndIf
|
||||
If Bonus=5
|
||||
BonusText$="God Mode"
|
||||
GodMode=1
|
||||
BonusTime=10000
|
||||
OldDamage=Damage
|
||||
EndIf
|
||||
EndIf
|
||||
UFOCount=UFOCount-1
|
||||
FreeEntity UFO\Model
|
||||
Delete UFO
|
||||
EndIf
|
||||
EndIf
|
||||
Next
|
||||
|
||||
;ufo shots collide with player (type 1) damageing them
|
||||
For UFOShot.UFOShots = Each UFOShots
|
||||
If UFOShot<>Null
|
||||
If EntityCollided(UFOShot\Model,1) ;if shot hits pivot
|
||||
PlaySound PlayerHit
|
||||
Damage=Damage-10
|
||||
FreeEntity UFOShot\Model
|
||||
Delete UFOShot
|
||||
EndIf
|
||||
If UFOShot<>Null
|
||||
If EntityCollided(UFOShot\Model,2) ;if shot hits cam
|
||||
PlaySound PlayerHit
|
||||
Damage=Damage-10
|
||||
FreeEntity UFOShot\Model
|
||||
Delete UFOShot
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
Next
|
||||
|
||||
For Shot.Shots = Each Shots
|
||||
If Shot<>Null
|
||||
del=0
|
||||
If EntityCollided(Shot\Model,10)
|
||||
del=1
|
||||
EndIf
|
||||
If EntityCollided(Shot\Model,6)
|
||||
del=1
|
||||
EndIf
|
||||
If del=1
|
||||
FreeEntity Shot\Model
|
||||
Delete Shot
|
||||
EndIf
|
||||
EndIf
|
||||
Next
|
||||
End Function
|
||||
|
||||
Function ShowStats()
|
||||
;player information
|
||||
Color 255,255,255
|
||||
SetFont Arialmid
|
||||
Text 320,20,PlayerScore,1,1
|
||||
SetFont arial
|
||||
If PlayerLives>-1
|
||||
Text 10,10,"LIVES "+PlayerLives,0,0
|
||||
Else
|
||||
Text 10,10,"LIVES 0"
|
||||
EndIf
|
||||
If BonusTime>0
|
||||
Rect 519,9,102,22,0
|
||||
Color 255,0,0
|
||||
Rect 520,10,BonusTime/100,20,1
|
||||
Color 255,255,255
|
||||
Text 570,20,"BONUS",1,1
|
||||
EndIf
|
||||
If UFOCount>0
|
||||
Color 255,0,0
|
||||
Text 320,280,"-UFO ALERT-",1,1
|
||||
EndIf
|
||||
Color 255,255,255
|
||||
Rect 9,449,102,22,0
|
||||
Color 0,255,0
|
||||
Rect 10,450,Damage,20,1
|
||||
Color 255,0,0
|
||||
Text 60,460,"DAMAGE",1,1
|
||||
Color 255,255,255
|
||||
Rect 519,449,102,22,0
|
||||
Color 0,255,0
|
||||
If speed>0 Then Rect 520,450,Speed,10,1
|
||||
Color 0,0,255
|
||||
If Actual>0 Then Rect 520,460,Actual,10,1
|
||||
Color 255,0,0
|
||||
Text 570,460,"THRUST",1,1
|
||||
Color 255,255,255
|
||||
Line 310,240,315,240
|
||||
Line 325,240,330,240
|
||||
Line 320,230,320,235
|
||||
Line 320,245,320,250
|
||||
End Function
|
||||
|
||||
Function Title()
|
||||
Repeat
|
||||
Until MouseDown(1)=0 And MouseDown(2)=0
|
||||
CreateLevel(20)
|
||||
While MouseDown(1)=0 And MouseDown(2)=0
|
||||
Cls
|
||||
PositionEntity backing,0,0,0
|
||||
UpdateLevel()
|
||||
di=0
|
||||
If KeyDown(1)=1 Then End
|
||||
UpdateWorld
|
||||
RenderWorld
|
||||
SetFont ArialLarge
|
||||
DrawImage TitleTex,320,260
|
||||
Color 0,0,0
|
||||
Rect 120,30,400,180
|
||||
DrawImage B3dLogo,320,120
|
||||
SetFont Arial
|
||||
Color 255,255,255
|
||||
Text 320,10,"Hi Score : "+HighScore,1,1
|
||||
Text 320,300,"Coded by EdzUp of Stonegoat Software",1,1
|
||||
Text 320,320,"Controls are as follows:",1
|
||||
Text 320,340,"Mouse - Move around",1
|
||||
Text 320,360,"Cursor Up - Speed Up",1
|
||||
Text 320,380,"Cursor Down - Slow Down",1
|
||||
Text 320,400,"Mouse Left Button - Fire weapons",1
|
||||
Text 320,460,"Click mouse to start game",1,1
|
||||
Flip
|
||||
Wend
|
||||
Repeat
|
||||
Until MouseDown(1)=0 And MouseDown(2)=0
|
||||
ClearLevel()
|
||||
End Function
|
||||
|
||||
Function ClearLevel()
|
||||
Hits=0
|
||||
Fired=0
|
||||
Accuracy=0
|
||||
UFOCount=0
|
||||
;clear out old level info
|
||||
;Free up all the entities and types allocated (so level can restart afresh)
|
||||
For Asteroid.AsteroidInfo = Each AsteroidInfo
|
||||
If Asteroid<>Null
|
||||
FreeEntity Asteroid\Model
|
||||
Delete Asteroid
|
||||
EndIf
|
||||
Next
|
||||
For Shot.Shots = Each shots
|
||||
If Shot<>Null
|
||||
FreeEntity shot\model
|
||||
Delete shot
|
||||
EndIf
|
||||
Next
|
||||
For UFOShot.UFOShots = Each UFOshots
|
||||
If UFOShot<>Null
|
||||
FreeEntity UFOShot\model
|
||||
Delete UFOShot
|
||||
EndIf
|
||||
Next
|
||||
For Frag.Fragment = Each Fragment
|
||||
If Frag<>Null
|
||||
FreeEntity frag\model
|
||||
Delete Frag
|
||||
EndIf
|
||||
Next
|
||||
For UFO.UFOinfo = Each UFOInfo
|
||||
If UFO<>Null
|
||||
FreeEntity UFO\Model
|
||||
Delete UFO
|
||||
EndIf
|
||||
Next
|
||||
For Boom.Explode = Each Explode
|
||||
If Boom<>Null
|
||||
FreeEntity Boom\Model
|
||||
Delete Boom
|
||||
EndIf
|
||||
Next
|
||||
End Function
|
||||
|
||||
Function fade(model,val#)
|
||||
vl#=val
|
||||
as#=((vl#+0.001)-9000)/1000
|
||||
ax=-1
|
||||
For asteroid.asteroidinfo = Each asteroidinfo
|
||||
ax=ax+1
|
||||
If ax=model Then EntityAlpha asteroid\model,1-as#
|
||||
Next
|
||||
End Function
|
||||
|
||||
Function UpdateLevel()
|
||||
si=-1
|
||||
For Asteroid.AsteroidInfo = Each AsteroidInfo
|
||||
si=si+1
|
||||
MoveEntity Asteroid\Model,0,0,Asteroid\Speed
|
||||
x#=EntityX#(asteroid\Model)
|
||||
y#=EntityY#(asteroid\Model)
|
||||
z#=EntityZ#(asteroid\Model)
|
||||
min=0
|
||||
max=0
|
||||
If x#<0 Then min=x#
|
||||
If y#<0 And y#<min Then min=y#
|
||||
If z#<0 And z#<min Then min=z#
|
||||
If x#>0 Then max=x#
|
||||
If y#>0 And y#>max Then max=y#
|
||||
If z#>0 And z#>max Then max=z#
|
||||
If max>Abs(min)
|
||||
a=max
|
||||
fade(si,a)
|
||||
; If a>9000 Then EntityAlpha Asteroid\Model,.9
|
||||
; If a>9100 Then EntityAlpha Asteroid\Model,.8
|
||||
; If a>9200 Then EntityAlpha Asteroid\Model,.7
|
||||
; If a>9300 Then EntityAlpha Asteroid\Model,.6
|
||||
; If a>9400 Then EntityAlpha Asteroid\Model,.5
|
||||
; If a>9500 Then EntityAlpha Asteroid\Model,.4
|
||||
; If a>9600 Then EntityAlpha Asteroid\Model,.3
|
||||
; If a>9700 Then EntityAlpha Asteroid\Model,.2
|
||||
; If a>9800 Then EntityAlpha Asteroid\Model,.1
|
||||
; If a>9900 Then EntityAlpha Asteroid\Model,.0
|
||||
Else
|
||||
a=Abs(min)
|
||||
fade(si,a)
|
||||
; If a>9000 Then EntityAlpha Asteroid\Model,.9
|
||||
; If a>9100 Then EntityAlpha Asteroid\Model,.8
|
||||
; If a>9200 Then EntityAlpha Asteroid\Model,.7
|
||||
; If a>9300 Then EntityAlpha Asteroid\Model,.6
|
||||
; If a>9400 Then EntityAlpha Asteroid\Model,.5
|
||||
; If a>9500 Then EntityAlpha Asteroid\Model,.4
|
||||
; If a>9600 Then EntityAlpha Asteroid\Model,.3
|
||||
; If a>9700 Then EntityAlpha Asteroid\Model,.2
|
||||
; If a>9800 Then EntityAlpha Asteroid\Model,.1
|
||||
; If a>9900 Then EntityAlpha Asteroid\Model,.0
|
||||
EndIf
|
||||
If EntityX#(Asteroid\Model)>10000
|
||||
PositionEntity Asteroid\Model,-10000,EntityY#(Asteroid\Model),EntityZ#(Asteroid\Model)
|
||||
EndIf
|
||||
If EntityX#(Asteroid\Model)<-10000
|
||||
PositionEntity Asteroid\Model,10000,EntityY#(Asteroid\Model),EntityZ#(Asteroid\Model)
|
||||
EndIf
|
||||
If EntityY#(Asteroid\Model)>10000
|
||||
PositionEntity Asteroid\Model,EntityX#(Asteroid\Model),-10000,EntityZ#(Asteroid\Model)
|
||||
EndIf
|
||||
If EntityY#(Asteroid\Model)<-10000
|
||||
PositionEntity Asteroid\Model,EntityX#(Asteroid\Model),10000,EntityZ#(Asteroid\Model)
|
||||
EndIf
|
||||
If EntityZ#(Asteroid\Model)>10000
|
||||
PositionEntity Asteroid\Model,EntityX#(Asteroid\Model),EntityY#(Asteroid\Model),-10000
|
||||
EndIf
|
||||
If EntityZ#(Asteroid\Model)<-10000
|
||||
PositionEntity Asteroid\Model,EntityX#(Asteroid\Model),EntityY#(Asteroid\Model),10000
|
||||
EndIf
|
||||
Next
|
||||
For Shot.Shots=Each Shots
|
||||
If Shot<>Null
|
||||
MoveEntity Shot\Model,0,0,Shot\Speed
|
||||
Shot\Timer=Shot\Timer+50
|
||||
del=0
|
||||
If Shot\Timer>10000
|
||||
|
||||
FreeEntity Shot\Model
|
||||
Del=1
|
||||
EndIf
|
||||
If del=1 Then Delete Shot
|
||||
EndIf
|
||||
Next
|
||||
For UFOShot.UFOShots=Each UFOShots
|
||||
If UFOShot<>Null
|
||||
MoveEntity UFOShot\Model,0,0,UFOShot\Speed
|
||||
UFOShot\Timer=UFOShot\Timer+10
|
||||
del=0
|
||||
If UFOShot\Timer>40000
|
||||
|
||||
FreeEntity UFOShot\Model
|
||||
Del=1
|
||||
EndIf
|
||||
If del=1 Then Delete UFOShot
|
||||
EndIf
|
||||
Next
|
||||
For UFO.UFOInfo = Each UFOInfo
|
||||
If UFO<>Null
|
||||
If UFOSoundChannel=-1 Then UFOSoundChannel=PlaySound(UFOSound)
|
||||
If UFOSoundChannel<>-1 And ChannelPlaying(UFOSoundChannel)=0
|
||||
UFOSoundChannel=PlaySound(UFOSound)
|
||||
EndIf
|
||||
MoveEntity UFO\Model,0,0,20
|
||||
|
||||
UFOFire=Rnd(1000)
|
||||
If UFOFire<20
|
||||
UFOFire(UFO\Model)
|
||||
EndIf
|
||||
If EntityZ#(UFO\Model)>10000
|
||||
UFOCount=UFOCount-1
|
||||
FreeEntity UFO\Model
|
||||
Delete UFO
|
||||
EndIf
|
||||
EndIf
|
||||
Next
|
||||
End Function
|
||||
|
||||
Function CreateLevel(Lev)
|
||||
AsteroidCount=1+(Lev-1)
|
||||
If AsteroidCount>20 Then AsteroidCount=20
|
||||
Asteroids=AsteroidCount
|
||||
For a=1 To AsteroidCount
|
||||
Asteroid.AsteroidInfo = New AsteroidInfo
|
||||
Asteroid\Model=CopyEntity(LargeAsteroidMesh,0) ;create asteroid
|
||||
EntityRadius Asteroid\Model,450
|
||||
Repeat
|
||||
Asteroid\x=Rnd(-10000,10000) ;position asteroid
|
||||
Asteroid\y=Rnd(-10000,10000)
|
||||
Asteroid\z=Rnd(-10000,10000)
|
||||
ok=0
|
||||
If Asteroid\x>EntityX(Camera)-1000 And asteroid\x<EntityX(Camera)+1000 Then ok=1 ;make sure asteroid wont be where player
|
||||
If Asteroid\y>EntityY(Camera)-1000 And asteroid\y<EntityY(Camera)+1000 Then ok=1 ;starts on level
|
||||
If Asteroid\z>EntityZ(Camera)-1000 And asteroid\z<EntityZ(Camera)+1000 Then ok=1
|
||||
Until ok=0
|
||||
PositionEntity Asteroid\Model,Asteroid\x,Asteroid\y,Asteroid\z
|
||||
RotateEntity Asteroid\Model,Rnd(360),Rnd(360),Rnd(360)
|
||||
EntityType Asteroid\Model,10
|
||||
Asteroid\speed=5 ;slow asteroid
|
||||
Next
|
||||
End Function
|
||||
Reference in New Issue
Block a user