Global Width :Int = 1024,Height:Int = 600
Graphics Width,Height

Global Number_of_Tanks = 5
'TYPE DEKLARIEREN
Type Tank
   Field X#,Y#
   Field Dir:Int, Armor:Int=100
   Field Speed:Float=2,Size:Int=25
   Field ID:Int
   Global TankNumber=0 'Die aktuelle Zahl der Panzer     
End Type
'_____________________________________
'BILDER
SetMaskColor 255,255,255
Global Panzer:Timage = LoadImage("Panzer.bmp",Maskedimage)
If Not Panzer Then RuntimeError("Bild kann nicht geladen werden")
SetBlend Maskblend
'_____________________________________



Global TankList:TList = CreateList() 'Liste machen

For Local Nr:Int = 1 To Number_of_Tanks
 Global NewTank:Tank   
   NewTank = New Tank
   
  NewTank.Armor = Rand(1,5)*10 'Erzeugt eine Zufallsbewaffnung 10,20,30,40 or 50
   NewTank.X = Rand(5,800) ;NewTank.Y = Rand(5,600)'Zufalls Startposition
   NewTank.Dir = Rand(0,360) 'Zufalls Richtung
   ListAddLast TankList,NewTank 'Gibt den neuen Panzer in die Panzerliste ein.
   Tank.TankNumber:+1 'Die Panzeranzahl wird um 1 erhöht
   NewTank.ID = Tank.TankNumber
Next   

While Not KeyDown(Key_Escape)
   For T:Tank = EachIn TankList  'Lokale T hält jeweils den aktuellen Panzer in der Schleife
  'SetColor 128,64,0 
  'DrawRect(T.X,T.Y,T.Size,T.Size)
  SetRotation T.Dir
  DrawImage panzer,T.X,T.Y
  SetRotation 0

      SetColor 255,255,255;DrawText "Number of Tanks : "+Tank.TankNumber,20,20
      T.X:+T.Speed*Cos(T.Dir)
      T.Y:+T.Speed*Sin(T.Dir)
     'KOLLISIONEN
      If T.X > Width Then T.Dir = Rand(0,359);T.X = Width
      If T.X < 0 Then T.Dir = Rand(0,359);T.X = 0
      If T.Y > Height Then T.Dir = Rand(0,360);T.Y = Height
      If T.Y < 0 Then T.Dir = Rand(0,359);T.Y = 0
     For T2:Tank = EachIn TankList
       DebugLog "T"+T.ID
       DebugLog "T2"+T2.ID
      If T.TankNumber=T2.TankNumber Then
      Else
      If ImagesCollide(panzer,T.X,T.Y,0,Panzer,T2.X,T2.Y,0) = 1 Then T.Speed=0;T2.Speed=0
      End If
     Next
     
   Next 'Dieser Loop wird für jeden Panzer in der Liste ausgeführt, bis zum letzten.
   
Flip   ;Cls
Wend

 If T=T2 Then
      Else
      If ImagesCollide(panzer,T.X,T.Y,0,Panzer,T2.X,T2.Y,0) = 1 Then T.Speed=0;T2.Speed=0
      End If