Graphics 1280,720

timer = CreateTimer(60)

run = True

mx = 0
my = 0

tank = LoadImage("tank.png")
tank_click = LoadImage("tank_click.png")

Type tank
   Field x
   Field y
   Field state
   Field walkx
   Field walky
End Type

While run = True
   Cls
   mx = MouseX()
   my = MouseY()
   If KeyHit(1) Then run = False
   
   If KeyHit(37)
      t.tank = New Tank
      t\x = 100
      t\y = 100
   EndIf
   
   For t.tank = Each Tank
   
   Text 0, 100, t\x + " | " + t\y
   
   Select t\state
      Case 0
      DrawImage(tank,t\x,t\y)
      Case 1
      DrawImage(tank_click,t\x,t\y)
   End Select
   
   If MouseHit(1)
      If RectsOverlap(t\x,t\y,50,50,mx,my,1,1)
         Select t\state
            Case 0
            t\state = 1
            Case 1
            t\state = 0
         End Select
      EndIf
   EndIf
   
   If MouseHit(2)
      If t\state = 1
      t\walkx = MouseX()
      t\walky = MouseY()
      EndIf
   EndIf
      
      If t\x < t\walkx Then t\x = t\x + 1
      If t\x > t\walkx Then t\x = t\x - 1
      If t\y < t\walky Then t\y = t\y + 1
      If t\y > t\walky Then t\y = t\y - 1

   Next

   Flip
   WaitTimer(timer)
Wend
End