Type Tkanone
Field x ; Aktuelle  x koordinate
Field y ; Aktuelle  Y Koordinate
Field image ; enthält das image
Field zx ; Ziel X Koordiante
Field zy ; Ziel Y Koordinate
End Type

Function Kanone_draw(k.tkanone)
      ;Beweget die Kanone falls sich die aktuelle position von der ziel position unterscheidet
        If k\zx < k\x Then 
              k\x = k\x - 1
       ElseIf k\zx > k\x
              k\x = k\x + 1
       Else
              Kanone_Set_move(k,Rand(0,Breite),0) ; setzt ein neues Ziel, falls die Ziel position erreicht wurde.
       EndIf

       DrawImage k\image,k\x,k\y ; Zeichnet die Kanone an der Aktuellen Position
End Function

Function Kanone_Set_move(k,x,y)
   k\zx = x
   k\zy = y
End Function

;Teil der in der Main loop sein sollte

For k.tkanone = Each tKanone
       kanone_draw(k)
Next