;"Balloon Hunter" by NightPhoenix

Graphics3D 1024,768,32,0
SetBuffer BackBuffer()
DETAIL=1000

ti=CreateTimer(30)
L=CreateLight(1)
   RotateEntity L,20,45,0
Piv=CreatePivot()
p=CreatePivot()
Pa=CreatePivot(Piv)
   EntityBox Pa,0,-1.5,-1.2,1,0.7,5
   EntityType Pa,2
FZ1=CreateCube(Pa)
   ScaleEntity FZ1,7,0.1,1
   PositionEntity FZ1,0,1,0
FZ2=CreateCube(Pa)
   ScaleEntity FZ2,6.8,0.1,1
   PositionEntity FZ2,0,-0.1,0   
FZ3=CreateCube(Pa)
   ScaleEntity FZ3,1,0.7,5
   PositionEntity FZ3,0,0.2,-1.2
FZ4=CreateCube(Pa)
   ScaleEntity FZ4,0.1,2,1
   PositionEntity FZ4,0,1,-5   
FZ5=CreateSphere(20,Pa)
   PositionEntity FZ5,0,0.1,3.8
   ScaleEntity FZ5,0.8,0.8,0.8   
FZ6=CreateCube(Pa)
   PositionEntity FZ6,0,0.1,4.4
   ScaleEntity FZ6,2,0.1,0.04   
FZ7=CreateCylinder(30)
   EntityParent FZ7,Pa
   PositionEntity FZ7,0,0.1,4.4
   RotateEntity FZ7,90,0,0
   ScaleEntity FZ7,2,0.04,2
FZ8=CreateCube(Pa)
   ScaleEntity FZ8,3,0.1,0.6
   PositionEntity FZ8,0,0.5,-5   
EntityColor FZ1,163,128,74
EntityColor FZ2,163,128,74
EntityColor FZ3,197,179,113
EntityColor FZ4,163,128,74
EntityColor FZ5,150,150,150
EntityColor FZ6,180,180,180
EntityColor FZ7,180,180,180
EntityColor FZ8,163,128,74
EntityShininess FZ3,1
Plane=CreatePlane()
EntityColor Plane,0,230,0
PositionEntity plane,0,-10,0
Plane2=CreatePlane()
PositionEntity plane2,0,-8,0
EntityAlpha plane2,0
EntityType plane2,1
Dim Berg(1000)
For i=1 To Detail
berg(i)=CreateCone(10)
EntityColor berg(i),150,200,100
PositionEntity berg(i),Rnd(-1500,1500),0,Rnd(-1500,1500)
ScaleEntity berg(i),Rnd(10,100),Rnd(10,50),Rnd(10,100)
EntityType berg(i),1
Next
Objekt=CreateSphere(40)
   PositionEntity Objekt,Rnd(-50,50),Rnd(10,100),Rnd(-50,50)
   EntityColor objekt,255,0,0
   EntityType objekt,3
   EntityShininess objekt,1
   EntityAlpha objekt,0.7

Kam=CreateCamera(Pa)
   PositionEntity Kam,0,8,-20
   RotateEntity Kam,0,0,0
   CameraRange Kam,0.1,1000
   CameraFogMode Kam,1
   CameraFogColor Kam,100,130,240
   CameraClsColor Kam,100,130,240
   
Collisions 2,1,2,2
Collisions 2,3,2,2

pkt=0
LeftTime=20000
check=0
scl#=5
console$="Dein Tank hat ein Leck. Sammel schnell genug Treibstoffblasen auf um in der Luft zu bleiben und Punkte zu sammeln!"
ro=0
kamy#=1


While Not KeyHit(1)
g1=MilliSecs()
WaitTimer (ti)

MoveEntity Pa,0,0,RZ#/20
MoveEntity Piv,0,RZ#/38.5-2,0
TurnEntity FZ6,0,0,RZ#
EntityAlpha FZ7,RZ#/150
If KeyDown(17) And lefttime>0 Then RZ=RZ+2
If KeyDown(31) Then RZ#=RZ#-1
   If RZ#>77 Then RZ#=77
   If RZ#<0 Then RZ#=0
KamX#=MouseYSpeed()
KamY#=MouseXSpeed()
TurnEntity Pa,kamx#/(600.0/(RZ#+1)),-kamy#/(800.0/(RZ#+1)),0
x#=EntityPitch(Pa)
If EntityPitch(Pa)<-85 Then x#=-85
If EntityPitch(Pa)>85 Then x#=85
RotateEntity fz4,0,(kamy#/15),0
RotateEntity fz8,(-kamx#/6),0,0
RotateEntity Pa,x#,EntityYaw(Pa),0
MoveMouse 300,500

If KeyDown(2) Then PositionEntity Kam,0,8,-20
If KeyDown(3) Then PositionEntity Kam,0,4,-8
If KeyDown(4) Then PositionEntity Kam,0,2,0

If RZ#=0 And lefttime<1 And KeyHit(57) Then
lefttime=20000
ro=0
pkt=0
EndIf

SeedRnd MilliSecs()
If EntityCollided(Pa,3) Then
pkt=pkt+100
Lefttime=Lefttime+1300
PositionEntity Objekt,Rnd(-200,200),Rnd(30,250),Rnd(-200,200)
check=1
console$=" "
EndIf

xi#=scl#+Sin(MilliSecs()/10)*4.5
ScaleEntity objekt,xi#,scl+Cos(MilliSecs()/23)*4,xi#
TurnEntity objekt,5,2.1,1.3

If check=1 Then
   If EntityCollided(Pa,1) Then
   pkt=pkt-5
   MoveEntity piv,0,RZ#/38.5+2,0
   EndIf
EndIf

If (Lefttime/500)<10 Then console$="Der Treibstoff wird knapp"
If RZ#>0 Then ro=1
g2=MilliSecs()
If ro=1 Then Ges=g2-g1
lefttime=lefttime-ges*1.2
If LeftTime<0 Then
RZ#=RZ#-0.4
LeftTime=0
check=0
console$="                  TANK  LEER!"
If rz#<0 Then
   rz#=0
   console$="Du hast dir "+pkt+" PUNKTE erkämpft!     LEERTASTE zum Neustarten"
   EndIf
EndIf

RenderWorld:UpdateWorld
Text 200,40,"MOTOR-LEISTUNG:"+RZ#/0.77+"%"
Text 200,70,"PUNKTE:"+pkt
Text 200,100,"Tank:"+LeftTime/500+" ml"
Text 0,250,console$
Text 0,0,"Tasten W/S = Motor-Leistung.  1-3 = Ansicht.  Viel Glück! ;)"
Flip:Wend
FreeTimer (ti)
End