Graphics 800,600,16,2

Global tank1 = CreateImage(32,32)
Global tank2 = CreateImage(32,32)
Global mouse = CreateImage(16,16)
Global angew = CreateImage(32,32)

SetBuffer ImageBuffer(tank1)
Color 0,0,255
Rect 0,0,32,32
Color 255,255,0
Rect 14,0,4,4

SetBuffer ImageBuffer(tank2)
Color 255,0,0
Rect 0,0,32,32
Color 255,255,0
Rect 14,0,4,4

SetBuffer ImageBuffer(mouse)
Color 255,255,255
Line 0,0,16,8
Line 0,0,8,16
Line 15,8,8,15

SetBuffer ImageBuffer(angew)
Color 255,255,0
Plot 0,0
Plot 0,1
Plot 0,2
Plot 1,0
Plot 1,1
Plot 2,0

Plot 31,0
Plot 31,1
Plot 31,2
Plot 30,0
Plot 30,1
Plot 29,0

Plot 0,31
Plot 0,30
Plot 0,29
Plot 1,31
Plot 1,30
Plot 2,31

Plot 31,31
Plot 31,30
Plot 31,29
Plot 30,31
Plot 30,30
Plot 29,31


SetBuffer BackBuffer()



Type tank
	Field x
	Field y
	Field side
	Field energy
	Field zielx
	Field ziely
	Field attack
	Field agw
	Field shot
	Field go
	Field updown
	Field rightleft
End Type

Global j = 0 

For i = 0 To 10
	
	wartank.tank = New tank
	
	wartank\x = Rnd(0,24) * 32
	wartank\y = Rnd(0,17) * 32
	wartank\zielx = wartank\x
	wartank\ziely = wartank\y
	wartank\go = 0
	wartank\side = 0
	wartank\agw = 0
	wartank\energy = 32
	
	j = j + 1

Next


HidePointer

Repeat

	wartank.tank = First tank
	
	For i = 0 To j - 2
	
	
		Text 0,i*10,wartank\agw
		
		If MouseDown(1) Then
			If ImagesOverlap(mouse,MouseX(),MouseY(),tank1,wartank\x,wartank\y) Then wartank\agw = 1
		EndIf
		
		If Not ImagesOverlap(mouse,MouseX(),MouseY(),tank1,wartank\x,wartank\y) Then
			If MouseDown(1) Then 
			For wartannk.tank = Each tank
				wartank\agw = 0
			Next
			EndIf
			
			If MouseDown(2) And wartank\agw = 1
				wartank\zielx = MouseX()
				wartank\ziely = MouseY()
				wartank\go = 1
			EndIf
		EndIf
		
		If wartank\x = wartank\zielx And wartank\y = wartank\ziely Then wartank\go = 0
		
		If wartank\x < wartank\zielx Then wartank\x = wartank\x + 1
		If wartank\x > wartank\zielx Then wartank\x = wartank\x - 1
		If wartank\y < wartank\ziely Then wartank\y = wartank\y + 1
		If wartank\y > wartank\ziely Then wartank\y = wartank\y - 1
			
		If wartank = Null Then wartank.tank = First tank
		
		DrawImage tank1,wartank\x,wartank\y
		If wartank\agw Then DrawImage angew,wartank\x,wartank\y
		
		
		
		If wartank\energy <= 0 Then Delete wartank : j = j - 1
	
		wartank = After wartank
		
	Next
	
	
	
	
	
	DrawImage mouse,MouseX(),MouseY() : Flip : Cls

Until KeyHit(1)
End

If ImagesCollide(Tank1,wartank\x,wartank\y,0,Tank1,wartank\x,wartank\y,0)

Local wartank_colli.tank
For wartank.tank = Each tank
  For wartank_colli.tank = Each tank
    If wartank <> wartank_colli
      If ImagesCollide(tank1,wartank\x,wartank\y,0,tank1,wartank_colli\x,wartank_colli\y,0) Then  zerstören
    EndIf
  Next
Next

For W1.tank = Each tank 
  W2.tank = After  W1.tank
    While  W2.tank <> Null
      If ImagesCollide(tank1,W1\x,W1\y,0,tank1,W2\x,W2\y,0) Then
          W1\Schaden = W1\Schaden -10
          W2\Schaden = W2\Schaden -10
      End If
      W2.tank = After  W2.tank
    Wend
Next