daily pastebin goal
81%
SHARE
TWEET

Untitled

a guest Jan 19th, 2018 62 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. HotKeySet("{ESC}", "Terminate")
  2. Func Terminate()
  3.     msgbox(0,'Ending','Macro Ended')
  4.     Exit
  5.  EndFunc
  6.  
  7. WinActivate("Vikings: War of Clans | Plarium.com - Mozilla Firefox")
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15. $Numrepeat = 140000
  16. Sleep(200)
  17.  
  18. While $Numrepeat > -1
  19. MouseClick("left",1153, 837)
  20.  
  21. MouseClick("left",1155, 880)
  22. sleep (300)
  23.  
  24. Send("{CTRLDOWN}")
  25. ;~ sleep (400)
  26. Send("{TAB}")
  27. ;~ sleep (400)
  28. Send("{CTRLUP}")
  29. sleep (300)
  30. WinActivate("Vikings: War of Clans | Plarium.com - Mozilla Firefox")
  31. sleep (300)
  32.  
  33. $Numrepeat -=1
  34. WEnd
RAW Paste Data
Top