Function SetEnemy()
   
   For i = 1 To Rand(1,3)
      
      Gegner.TGegner = New TGegner
      
      Gegner\YPos# = Rand(34, 727)
      Gegner\XPos# = 1040
      Gegner\Speed# = Rnd(4.3,5.0)
      Gegner\SchussTimer = 1000
      Gegner\SchussStart = MilliSecs()
      Gegner\Image = Drache
      Gegner\FrameTimer = 70
      Gegner\FrameStart = MilliSecs()
      Gegner\Frame = 0
      Gegner\Dead = 0
      Gegner\Level = 1
      Gegner\Erfahrung = 20
      
   Next
   
   GegnerStart = MilliSecs()
   
End Function

Function MoveShoot()
   
   For Schuss.TSchuss = Each TSchuss
      
      If Schuss\Parent = "Spieler" Then
         
         Schuss\XPos# = SChuss\XPos# + Schuss\Speed#
         
         If ((Schuss\Frametimer + Schuss\FrameStart) < MilliSecs()) Then
            
            If Schuss\Frame >= 3 Then Schuss\FrameSChalter = 2
            If Schuss\Frame <= 0 Then Schuss\FrameSchalter = 1
            Select Schuss\FrameSChalter
               Case 1
                  Schuss\Frame = Schuss\Frame + 1
                  
               Case 2
                  Schuss\Frame = Schuss\Frame - 1
            End Select
            
            Schuss\FrameStart = MilliSecs()
               
         EndIf
         
         If Schuss\XPos > 1030 Then Schuss\Dead = 1
         
         
      EndIf
      
      If Schuss\Parent = "Gegner" Then
         
         Schuss\XPos# = Schuss\XPos# - Schuss\Speed#
         
         If ((Schuss\Frametimer + Schuss\FrameStart) < MilliSecs()) Then
            
            SChuss\Frame = SChuss\Frame + 1
            If SChuss\Frame > 1 Then Schuss\Frame = 0
            
            Schuss\FrameStart = MilliSecs()
         EndIf
         
         If SChuss\XPos# < -20 Then Schuss\Dead = 1
         
         
      EndIf
      
      If Schuss\Dead = 1 Then Delete Schuss.Tschuss
      
   Next
   
End Function

; Diese Funktion erstellt eine Festung an den Koordinaten x, y
; frame = 0 bedeutet keine Animationsbilder
; hits = 4 bedeutet 4 Schüsse um die Festung zu zerstörung
Function Festung1(x, y)
   myfestung1.festung1type = New festung1type
   myfestung1\x = x
   myfestung1\y = y
   myfestung1\frame = 0
   myfestung1\hits = 4
End Function

; Diese Funktion zeichnet die Festung und wird permanent in der Spielschleife aufgerufen
; die Variable numdrills gibt an wieviele Gegnerobjekte aus der Festung rauskommen
; wenn diese kleiner ist als der vorgegebene Wert dann wird mittels eines Timers und Bereichsprüfung
; ob sich der Spieler in der Nähe der Festung befindet eine weitere Funktion aufgerufen, die die Gegnerobjekte erstellt
; mit dem drilltimer wird dann jeweils eine kleine Verzögerung verwaltet sodaß die Gegnerobjekte einen kleinen Abstand
; zwischen sich selbst haben, sonst wären ja alle auf einem Fleck
; Wenn die Festung aus dem Blickfeld verschwindet zB. linke Bildschirmseite dann soll dieses Objekt gelöscht werden.
; Da die Gegnerobjekte aber nur dann erstellt werden, wenn die Festung da ist und der Spieler sich in der Nähe befindet
; ist das eigentlich sehr flexibel...
; Die Namen der Variablen sind natürlich fantasie....
Function DrawFestung1()
   For myfestung1.festung1type= Each festung1type
      If numdrills<6
         If MilliSecs() > myfestung1\drilltimer
            If Abs(myfestung1\x-Scrollspeed-myship\x) < 160
               numdrills = numdrills + 1
               Enemy14( myfestung1\x-Scrollspeed+8, myfestung1\y )
               myfestung1\drilltimer = MilliSecs() + 128
            EndIf
         EndIf
      EndIf
      If myfestung1\x-Scrollspeed < -32
         Delete myfestung1
         numdrills=0
   Else
      DrawImage FE1, myfestung1\x-Scrollspeed, myfestung1\y, myfestung1\frame
      EndIf
   Next
End Function

Function Enemy14(x,y)
      myenemy14.enemy14type = New enemy14type
      myenemy14\x = x
      myenemy14\y = y
      myenemy14\frame = 0
      myenemy14\maxframe = 9
End Function
Function DrawEnemy14()
   For myenemy14.enemy14type = Each enemy14type
      If MilliSecs() > myenemy14\frametimer
         myenemy14\frame = myenemy14\frame + 1
         If myenemy14\frame > myenemy14\maxframe
            myenemy14\frame = 0
         EndIf
            myenemy14\frametimer = MilliSecs()+50
      EndIf
      myenemy14\timerx=myenemy14\timerx+2
      If myenemy14\timerx>3 Then myenemy14\timerx=0:myenemy14\x=myenemy14\x-1
      If myenemy14\y>48 Then myenemy14\y=myenemy14\y-1
      If myenemy14\y=<48 Then myenemy14\x=myenemy14\x-2
      If myenemy14\x<-32
         Delete myenemy14
      Else
         DrawImage EN12, myenemy14\x, myenemy14\y, myenemy14\frame
      EndIf
   Next
End Function

type TAuto
Field Marke$, PS, MaxSpeed, Beschleunigung#, Gewicht
end type

global Auto.TAuto = new TAuto
Auto\Marke = "Porsche"
Auto\PS = 300
Auto\MaxSpeed = 260
Auto\Beschleunigung# = 1.5
Auto\Gewicht = 700

global Auto.TAuto = new TAuto
Auto\Marke = "Mercedes"
Auto\PS = 210
Auto\MaxSpeed = 200
Auto\Beschleunigung# = 0.9
Auto\Gewicht = 680

Type TGegner
   Field id
   Field xpos#, ypos
   Field art
   Field bild
   Field schussStaerke
End Type


Type TemplateGegner
   Field name$
   Field bild
   Field schussStaerke
   Field geschwindigkeit
End Type

Global TemplateGegner.TemplateGegner

Function dieTemplatesAllerGegnerladen ()
.......
End Function


Function SetEnemy (typ$)
 
            Gegner.TGegner = New TGegner
     
                 Gegner\YPos# = Rand(34, 727)
                 Gegner\XPos# = 1040

                For TemplateGegner = EachIn TemplateGegner.TemplateGegner
                   If TemplateGegner.name = typ
                        Gegner\bild  =   TemplateGegner\bild
                        Gegner\schussStaerke = TemplateGegner\schussStaerke
                         ...........
                   Endif
              Next

End Function