Fighter 2 will be chasing figher 1
Graphics3D 800,600,0,1
SeedRnd MilliSecs
SetBuffer BackBuffer()
Camera = CreateCamera()
Fighter1 = LoadMesh("Craft1.x")
Fighter2 = LoadMesh("Craft1.x")
Starfield(10000)
PositionEntity Fighter1,0,0,0
PositionEntity Fighter2,0,0,-100
EntityParent Camera,Fighter2
PositionEntity Camera,0,50,-50
PointEntity Fighter1,Fighter2
TurnEntity Fighter1,0,180,0
While Not KeyHit(1)
If KeyDown(200) TurnEntity Fighter1,0,2,0
MoveEntity Fighter1,0,0,8
PointEntity Fighter2,Fighter1
MoveEntity Fighter2,0,0,5
PointEntity Camera,Fighter2
UpdateWorld()
RenderWorld()
;if EntityX(Fighter2)> 1000 Or EntityY(Fighter2) > 1000 Or EntityZ(Fighter2) > 1000 TranslateEntity Fighter1,0,0,-1000:TranslateEntity Fighter2,0,0,-1000
Flip
Wend
End
Function Starfield(Density)
For loop = 1 To Density
Star = CreateSphere()
PositionEntity Star,Rnd(-1000,1000),Rnd(-1000,1000),Rnd(-1000,1000)
ScaleEntity Star,0.1,0.1,0.1
Next
End Function
|