Type zobjekt
         
         Global zlist:TList = New TList
            Field empty
              Field zobjekt_x
               Field zobjekt_Y
         Global alist:TList = New TList
            Field player_x
            Field player_y
         End Type

         'Schuss verarbeiten
         For i:zobjekt = EachIn zobjekt.zlist
         'i.zobjekt_Y = i.zobjekt_Y - 1      
            
            'Hier wird der Schuss bewegt
            i.zobjekt_Y = i.zobjekt_Y - 2
            'Hier wird der schuss gezeichnet
            DrawImage snipe, i.zobjekt_x, i.zobjekt_Y
            
            'Schuss löschen wenn er aus dem Bildschirmrand ist
            If i.zobjekt_Y < 0 Then
               zobjekt.zlist.Remove (i)
            End If
            
            'Falls Schuss mit Gegner Kolidiert
            If ImagesCollide (snipe, i.zobjekt_x, i.zobjekt_Y, 0, enemy, i.player_x, i.player_y, 0) Then
               zobjekt.zlist.Remove (i)
            End If
            
         Next

Type TEntity
  ' enthält position, rotation, skalierung und bild und gegebenenfalls frame
  global _entityList:TList = new TList
  method move(x:int,y:int) abstract
  method draw() abstract
  method update() abstract
  method onCollision(other:TEntity) abstract
end type

Type TActor extends TEntity
  ' implementiert die obigen methoden
  global _actorList:TList = new TList
  field _actorLink:TLink
  field _entityLink:TLink

  field _health:int = 100

  method new()
    _actorLink = _actorList.addLast( self )
    _entityLink = TEntity._entityList.addLast( self )
  end method
  method drawCollision(layers:int)
    collideimage(_image,_x,_y,_frame,0, layers,self) ' schreibt uns in den collision layer inkl objekt referenz!
  end method

  method onCollision(other:TEntity)
    ' folgende lösung liese sich via reflection auf ein select reduzieren!
    if TBullet(other)
      self._health :- TBullet(other).getDamage()
    endif
    if self._health < 0
      ' wir wurden zerstört!!
      Print "Jetzt hats mich zerlegt ;-)"
      _actorLink.remove
      _entityLink.remove
    endif
  end method
end Type

type TBullet extends TEntity
  ' implementiert die TEntity methoden
  global _bulletList:TList = new TList
  field _bulletLink:TLink
  field _entityLink:TLink

  field _damage:int = 30

  method new()
    _bulletLink = _bulletList.addLast( self )
    _entityLink = TEntity._entityList.addLast( self )
  end method


  function testCollision(layers:int)
    ' nutzt die collideimage funktion um gegen einen bestimmten Layer bzw. eine layer kombination (layers)
    ' zu testen ob eine kollision besteht. Wenn ja, wird beim gefundenen objekt die onCollision aufgerufen.
    ' Annahme hier ist, das bullets net mit bullets kollidieren können sondern nur mit TActor
    local result:object[]
    for local bullet:TBullet = eachin _bulletList
      result = collideimage(_image,_x,_y,_frame,layers,layers,0)
      for local actor:TActor = eachin result
        actor.onCollision(bullet)
        ' nun müssen wir auch gehen
        print "Bullet zerstört"
        _bulletLink.remove
        _entityLink.remove
        exit
      next
    next
  end function
end Type

               Type tank
                  Field x:Float, y:Float
                  Field speed:Float
               End Type
               
               Graphics 800, 600
               
               Global Tanklist:TList = CreateList ()     'Erstellt eine List für den Tank
               
               For i = 0 To 10
                  Local NewTank:tank  'Deklariert eine Variable für den Tank
                  NewTank = New tank  'Erstellt den mit der eben erstellten Variable deklarierten Tank
                  NewTank.x = Rand (0, 700)
                  NewTank.y = Rand (0, 500)
                  ListAddLast Tanklist, NewTank ' Fügt den eben erstellen Tank zur Liste hinzu
               Next
               
               Repeat
               Flip
               Cls
               
               For T:tank = EachIn Tanklist
                  DrawRect (T.x, T.y, 5, 5)
               Next
               
               
               Until KeyDown (KEY_ESCAPE)
               End

            Graphics 800, 600

            Type Gegner
               Field x:Float, y:Float
            End Type
            
            Type Schuss
               Field x:Float, y:Float
            End Type
            
            
            Global Gegnerlist:TList = CreateList ()
            Global Schusslist:TList = CreateList ()
         
               SetMaskColor 255, 0, 0
               enemy = LoadImage ("images/enemy.png")
               player = LoadImage ("images/player.png")
               shot = LoadImage ("images/snipe.png")
               
               
            Repeat
            Flip
            Cls
            
            If Gegnerlist.Count() < 5 Then
            Local NewGegner:Gegner
            NewGegner = New Gegner
            NewGegner.x = Rand(80, 700)
            NewGegner.y = Rand(40, 200)
            ListAddLast Gegnerlist, NewGegner
            End If
            
            For G:Gegner = EachIn Gegnerlist
               CollideImage(enemy, g.x, g.y, 0, 0, 2)
               DrawImage enemy, g.x, g.y
            Next
            
            If KeyDown (KEY_SPACE) Then
               Local NewSchuss:Schuss
               NewSchuss = New Schuss
               NewSchuss.x = MouseX()
               NewSchuss.y = MouseY()
               ListAddLast Schusslist, NewSchuss
            End If
            
            For S:Schuss = EachIn Schusslist
               CollideImage(shot, s.x, s.y, 0, 0, 2)
               DrawImage shot, s.x, s.y
               S.y = S.y - 2
            Next
            
            'DebugStop()
            For temp:Object = EachIn CollideImage(enemy, g.x, g.y, 0, 0, 2)
            End
            Next
            
            Until KeyDown (KEY_ESCAPE)
            End
            

For S:Schuss = EachIn Schusslist
   For G:Gegner = EachIn Gegnerlist
      If ImagesCollide(shot, S.x, S.y, 0, enemy, g.x, g.y, 0)
         Print "SUDHHUSDHUHUSDDHUSHUSD"
      EndIf
   Next
Next

ResetCollisions(1)

For S:Schuss = EachIn Schusslist
   CollideImage(shot, s.x, s.y, 0, 0, 1)
Next

For G:Gegner = EachIn Gegnerlist
   If CollideImage(enemy, g.x, g.y, 0, 1, 0)
      Print "BUUM"
   EndIf
Next