HotKeySet("{ESC}", "Terminate")
Func Terminate()
    msgbox(0,'Ending','Macro Ended')
    Exit
 EndFunc

WinActivate("Vikings: War of Clans | Plarium.com - Mozilla Firefox")







$Numrepeat = 140000
Sleep(200)

While $Numrepeat > -1
MouseClick("left",1153, 837)

MouseClick("left",1155, 880)
sleep (300)

Send("{CTRLDOWN}")
;~ sleep (400)
Send("{TAB}")
;~ sleep (400)
Send("{CTRLUP}")
sleep (300)
WinActivate("Vikings: War of Clans | Plarium.com - Mozilla Firefox")
sleep (300)

$Numrepeat -=1
WEnd