;Laden der Meshs und Texturen



;Voreinstellunge der Cam und anderer Dinge die nicht in die Schleife gehören
skybox(Elemente,gx,gy,gz,px,py,pz,Textur,collsky)
Baeume(anzahl,collisionNumber,realPositionx,realPositiony,realPositionz,copyPositionrndx1,copyPositionrndx2,constanty,copyPositionrndz1,copyPositionrndz2)
Haus1(anzahl,collisionNumber,realPositionx,realPositiony,realPositionz,copyPositionrndx1,copyPositionrndx2,constanty,copyPositionrndz1,copyPositionrndz2)
;Hauptschleife für spiel Ablauf
Repeat
steuerung(entity,oben,unten,rechts,links,lspeed,rspeed,zspeed)
Fall(Objekt,cw#,OG#,LD#,g#,AO#,up)
If KeyDown(57) Then add_bullet(sprite,max_life,speed#,cam)
move_bullets()
Until KeyDown(1) End


;Skybox
Function skybox(Elemente,gx,gy,gz,px,py,pz,Textur,collsky)
sky=CreateSphere(Elemente)
FlipMesh sky 
ScaleEntity sky,gx,gy,gz
PositionEntity sky,px,py,pz
EntityTexture sky,Textur
EntityType sky,collsky
EntityOrder sky,1
Collisions camcoll,collsky,2,1
End Function

;erstellt die  Bulletsprites
Function add_bullet(sprite,max_life,speed#,cam)
   b.bullets=New bullets
   b\sprite=CopyEntity (sprite)
   EntityFX sprite,16
   b\max_life=120
   b\speed#=speed#
   EntityType b\sprite,ColSchuss
   EntityRadius b\sprite,10
   PositionEntity b\sprite,EntityX(cam),EntityY(cam),EntityZ(cam)
   RotateEntity b\sprite,EntityPitch(cam),EntityYaw(cam),EntityRoll(cam)
   RotateSprite b\sprite,angelsprite
   If angelsprite > 360 Then angelsprite=0
   angelsprite=angelsprite+10
   ShowEntity b\sprite
End Function
;
;bewegt die sprites
Function move_bullets() 
   For b.bullets=Each bullets
      MoveEntity b\sprite,0,0,b\speed#
      b\life=b\life+1
      If b\life>b\max_life Then FreeEntity b\sprite : Delete b   
   Next
End Function

;Bäume setzen
Function Baeume(anzahl,collisionNumber,realPositionx,realPositiony,realPositionz,copyPositionrndx1,copyPositionrndx2,constanty,copyPositionrndz1,copyPositionrndz2)
     Baumstumpf=LoadMesh("H:\Baumstumpf.x")
     PositionEntity Baumstumpf,realPositionx,realPositiony,realPositionz
   For a=1 To anzahl
 Baum=CopyEntity (Baumstumpf)
 PositionEntity Baum,Rnd#(copyPositionrndx1,copyPositionrndx2),constanty,Rnd#(copyPositionrndz1,copyPositionrndz2)
 EntityType Baum,collisionNumber
 EntityType Baumstumpf,collisionNumber
Next
End Function

;Screenshots
Function screenshot(key)
   If KeyHit(key)=1 Then
   tasten=1
   SaveBuffer BackBuffer(),"H:\Screenshots.bmp"
   tasten=0
   EndIf
End Function
 
;Steuerung
Function steuerung(entity,oben,unten,rechts,links,lspeed,rspeed,zspeed)
mxs=MouseXSpeed()
mys=MouseYSpeed()
MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
  RotateEntity entity,EntityPitch(entity)+mys,EntityYaw(entity)-mxs,0
   If KeyDown(oben)=1 Then MoveEntity entity,0,0,zspeed       
   If KeyDown(links)=1 Then MoveEntity entity,lspeed,0,0
   If KeyDown(rechts)=1 Then MoveEntity entity,rspeed,0,0
End Function
 
;Fall mit Luftreibung
Function Fall(Objekt,cw#,OG#,LD#,g#,AO#,up)
   G1#=0.5*cw#*LD#*AO#
   G2#=OG*g
   Ggesamt#=G2#/G1#
   Fall#=Ggesamt#^0.5
If Not KeyDown(up) Then MoveEntity Objekt,0,-Fall#,0
End Function

;End Funktion
Function Ende(B1,B2,B3,B4,B5,Modell)
   MaskImage B5,255,255,255
   If GameOver=1 Then
   DrawImage B5,0,0
;Anzeigen von 2 Buttons z.B ja und nein!!!!!!
   If sperre=0  Then
   DrawImage B2,xButtonja,yButtonja
   DrawImage B3,xButtonNein,yButtonNein
  If KeyDown(28) And sperre=0 Then
  GameOver=0
  steuerung=0
  PositionEntity Modell,5100,2050,8075
  PositionEntity Modell,3007,4025,5845
  TurnEntity Modell,10,106,0 
  TurnEntity Modell,270,0,27
  EndIf
   EndIf
;Makierung der Buttons bei Tastendruck
If KeyDown(205) Then
sperre1=1
sperre=1
sperre2=0
EndIf
 If KeyDown(203) Then
 sperre2=1
 sperre=1
 sperre1=0
 EndIf 
 If sperre=1 Then 
 DrawImage B1,xButtonja,yButtonja
 DrawImage B4,xButtonNein,yButtonNein
 If KeyDown(28)=1 And sperre1=1 Then End 
 EndIf
If sperre2=1 Then
DrawImage B2,xButtonja,yButtonja
DrawImage B3,xButtonNein,yButtonNein
;Neustart des Games durch Variabelen zurücksetzen
If KeyDown(28)=1 And sperre2=1 Then
GameOver=0
steuerung=0
 PositionEntity Modell,5100,2050,8075
 PositionEntity Modell,3007,4025,5845
 TurnEntity Modell,10,106,0 
 TurnEntity Modell,270,0,27
EndIf 
EndIf
EndIf
End Function

;Gebäude setzen
Function Haus1(anzahl,collisionNumber,realPositionx,realPositiony,realPositionz,copyPositionrndx1,copyPositionrndx2,constanty,copyPositionrndz1,copyPositionrndz2)
     Gebaude=LoadMesh("H:\house.x")
     PositionEntity Gebaude,realPositionx,realPositiony,realPositionz
   For a=1 To anzahl
 Hauser=CopyEntity (Gebaude)
 PositionEntity Hauser,Rnd#(copyPositionrndx1,copyPositionrndx2),constanty,Rnd#(copyPositionrndz1,copyPositionrndz2)
 EntityType Hauser,collisionNumber
 EntityType Hauser,collisionNumber
Next
End Function