MMOViper.com

Code: Select all

;Features/Instructions:
;   AA Land Macro clicks VERY fast where you want to place your property design.
;   It actively seeks for the pop up box and then clicks the build button (provided you have the taxes available)

;   Macro keys:

;   Ctrl+Alt+g     Starts Clicking/searching
;   Pause           Pauses (best to start it and use pause as toggle)

;You need to install autohotkey to run the script.  

;If you run windows 8 it has to be run as admin for the script to work

;It only works in 1680 x 1050 or 1920 x 1080 (this is because of the default location of the box to click. It's different for each resolution)
;This can easly work for any resolution, but I only had the 2 available 


;Double click to start it.

;Use notepad ++ or notepad to edit or view the script. nothing dangerous here

;There is a taskbar icon that's green when its loaded and red when its paused.

;THIS IS ONLY A MACRO ;) IT'S NOT A BOT OR A HACK.  IT'S JUST A BETTER MACRO THAN MOST USE.






#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

;--------------------------------------------------------------------------------------------------------------
;--------------------------------------------------------------------------------------------------------------



Start:

     #MaxThreadsperHotkey 2
	 SetNumLockState, on
	 SetTitleMatchMode, 2     
     Title = AA Land Macro (%A_ScreenWidth% x %A_ScreenHeight%)    
	 colorID = 0x8DBFDB	 
     Gosub, GameCheck
     Gosub, Resolution
	
GameCheck:

     IfWinExist, - ArcheAge
        {
   	     WinActivate
         Sleep 500		 
		 WinMaximize		 
		 Sleep 500		 
		 return
		}
     else
         MsgBox, 64, %Title%, Please start ArcheAge!
		 WinWait, - ArcheAge
         		 
Return
	 
Resolution:

     WinActivate - ArcheAge         
		 
		 If (A_ScreenWidth = 1680 && A_ScreenHeight = 1050)
            {
	         Resolution_type = 1
			 xbuild = 800
		     ybuild = 750
		     xbuild_box_1 = 760
	         ybuild_box_1 = 738
		     xbuild_box_2 = 838
		     ybuild_box_2 = 763
             ;MsgBox, 64, %Title%, 1680 x 1050 Resolution Detected., 1 
			}
         If (A_ScreenWidth = 1920 && A_ScreenHeight = 1080)
		    {
		     Resolution_type = 2
			 xbuild = 919             
		     ybuild = 764             
		     xbuild_box_1 = 880
	         ybuild_box_1 = 752
		     xbuild_box_2 = 957
		     ybuild_box_2 = 778			 			 
	         ;MsgBox, 64, %Title%, 1920 x 1080 Resolution Detected., 1 
			}
	 
	     If (A_ScreenWidth <> 1680 && A_ScreenWidth <> 1920)
	        {
	         MsgBox, 16, %Title%, Resolution not supported!, 2
	 	     ExitApp
	        }
         
Return

^!g::    		 
     
	 WinActivate - ArcheAge
	 MouseGetPos, xclick, yclick
     MouseClick, left, %xclick%, %yclick%,30, 50
	 
	 
	 Loop
	{
		 ;EndTime := A_TickCount
		 ;GrabberRunTime := Ceil((EndTime - StartTime)/1000)	
		 		 
		 ;if GrabberRunTime >= %Run_Seconds%		
			;ExitApp
		 		 
		 PixelSearch, xbuild_find, ybuild_find, %xbuild_box_1%, %ybuild_box_1%, %xbuild_box_2%, %ybuild_box_2%, %colorID%, 5, Fast
		     if ErrorLevel   
			     MouseClick, left, %xclick%, %yclick%, 10
			 else			     
				{
				     Loop 20
				        {				         
				         MouseClick, left, %xbuild%, %ybuild%
                         Sleep 150
	                    }
	                 Send ^!p
				    
				}
	}			
Return
	
^!p::Pause, Toggle     
     
Return
	 
Pause::
     
	 WinActivate - ArcheAge
	 MouseGetPos, xclick, yclick
     MouseClick, left, %xclick%, %yclick%,30, 50     	 		    
	 Send ^!p
	
Return	 

Code: Select all

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.



FormatSeconds(NumberOfSeconds)  ; Convert the specified number of seconds to hh:mm:ss format.
    {
     time = 19990101  ; *Midnight* of an arbitrary date.
     time += %NumberOfSeconds%, seconds
     FormatTime, mmss, %time%, mm:ss
     SetFormat, float, 2.0
     return NumberOfSeconds//3600 ":" mmss  ; This method is used to support more than 24 hours worth of sections.
    }	 

Start:

     #MaxThreadsperHotkey 2
	 SetNumLockState, on
	 SetTitleMatchMode, 2     
     Title = AA Utility (%A_ScreenWidth% x %A_ScreenHeight%)
     Run_Minutes = 12	                       ; # of minutes to click after demolition time
	 Run_Seconds := Ceil(Run_Minutes * 60)
	 colorID = 0x8DBFDB	 
     Gosub, GameCheck
     Gosub, Resolution
	 Goto Input

GameCheck:

     IfWinExist, - ArcheAge
        {
   	     WinActivate
         Sleep 500		 
		 WinMaximize		 
		 Sleep 500		 
		 return
		}
     else
         MsgBox, 64, %Title%, %Title% will resume when ArcheAge is started.
		 WinWait, - ArcheAge
         		 
Return
	 
Resolution:

     WinActivate - ArcheAge         
		 
		 If (A_ScreenWidth = 1680 && A_ScreenHeight = 1050)
            {
	         Resolution_type = 1
			 xbuild = 800
		     ybuild = 750
		     xbuild_box_1 = 760
	         ybuild_box_1 = 738
		     xbuild_box_2 = 838
		     ybuild_box_2 = 763
             ;MsgBox, 64, %Title%, 1680 x 1050 Resolution Detected., 1 
			}
         If (A_ScreenWidth = 1920 && A_ScreenHeight = 1080)
		    {
		     Resolution_type = 2
			 xbuild = 919             
		     ybuild = 764             
		     xbuild_box_1 = 880
	         ybuild_box_1 = 752
		     xbuild_box_2 = 957
		     ybuild_box_2 = 778			 			 
	         ;MsgBox, 64, %Title%, 1920 x 1080 Resolution Detected., 1 
			}
	 
	     If (A_ScreenWidth <> 1680 && A_ScreenWidth <> 1920)
	        {
	         MsgBox, 16, %Title%, Resolution not supported!, 2
	 	     ExitApp
	        }

Return

Input:	 
	 
	 InputBox, House_Key, %Title%, `n         Input design shortcut.,,230,170,,,,300,0
	 if ErrorLevel
        {
	     WinMaximize
	     ExitApp
	    }
	 WinActivate
	 MouseMove, 800, 65
	 Sleep 1000
	 Send {%House_Key%}
	 MsgBox, 64, %Title%, You have 15 seconds to position`n`n    0& rotate your structure., 2
     Sleep 15000
	 MouseGetPos, xclick, yclick
     MouseClick, left, %xclick%, %yclick%,30, 50
	 MsgBox, 64, %Title%, Mouse Position Aquired!`n`nDo NOT move or change`n`nthe camera position!, 2      
	 InputBox, Demo_Time, %Title%, What is the Demolition time?`n`n24 Hour Format:(hhmm),,230,170,,,,300,%DefTimeToStart_1%
     if ErrorLevel
        {
	     WinMaximize
	     ExitApp
	    }

#Persistent   

SetTimer, Chronos, 500

Return

Chronos:
     FormatTime, TimeToStart,,HHmm
     If TimeToStart >= %Demo_Time%
        {                              
		 StartTime := A_TickCount
		 Send {%House_Key%}
		 Sleep 100
		 Goto Grabber                
	    }
     else
	    {			     
		 Gosub, MouseAfk		 
	    }
Return
			 
Grabber:     		 

	 
	 Loop
	{
		 EndTime := A_TickCount
		 GrabberRunTime := Ceil((EndTime - StartTime)/1000)	
		 		 
		 if GrabberRunTime >= %Run_Seconds%		
			ExitApp
		 		 
		 PixelSearch, xbuild_find, ybuild_find, %xbuild_box_1%, %ybuild_box_1%, %xbuild_box_2%, %ybuild_box_2%, %colorID%, 5, Fast
		     if ErrorLevel   
			     MouseClick, left, %xclick%, %yclick%, 10
			 else			     
				{
				     Loop 20
				        {				         
				         MouseClick, left, %xbuild%, %ybuild%
                         Sleep 150
	                    }
	            }
	}			
Return
	
MouseAfk:
         
		 Gosub, DisconnectCheck
		 Random, Afk_Timer2, 1000, 5000		
		 WinActivate - ArcheAge 	  
         MouseClick, left, 40, 65
   	     Sleep %Afk_Timer2%
         MouseClick, left, 240, 65
   	     Sleep %Afk_Timer2% 
Return



DisconnectCheck:

     If resolution_type = 1 
	    {
	     xdisconnect_box_1 = 800
	     ydisconnect_box_1 = 564
	     xdisconnect_box_2 = 880
	     ydisconnect_box_2 = 589
	     xdisconnect = 841
	     ydisconnect = 576
        }
     If resolution_type = 2 
	    {
	     xdisconnect_box_1 = 789
	     ydisconnect_box_1 = 477
	     xdisconnect_box_2 = 1134
	     ydisconnect_box_2 = 629
	     xdisconnect = 961
	     ydisconnect = 593
        } 
     WinActivate - ArcheAge 
	 PixelSearch, xdisconnect_find, ydisconnect_find, %xdisconnect_box_1%, %ydisconnect_box_1%, %xdisconnect_box_2%, %ydisconnect_box_2%, %colorID%, 5, Fast
		     if ErrorLevel   			     
				 Return
			 else			     
				{ 
				     Loop 5
				    {
				     IfWinExist - ArcheAge
					    { 						 						
						 Sleep 150
				         MouseClick, left, %xdisconnect%, %ydisconnect%
                         Sleep 150	             
						}
                     else		                 
						 Goto Text		      
					}
				}
Return

^!a::    ; this is just helped me find the correct position and color  for seeking/clicking

     WinActivate - ArcheAge
	 MouseGetPos, xtest, ytest
     PixelGetColor, color, %xtest%, %ytest%, slow	 
	 MsgBox The resolution of the primary monitor is %A_ScreenWidth% x %A_ScreenHeight%`n`nThe Cursor is at X: %xtest% Y: %ytest% with a color of: %color%
		 
Return

^!p::Pause, Toggle     
     
Return
	 
Pause::
	 	 	 		    
	 Send ^!p
	
Return	 

Text:

; this is where I had the script email/text me if the the game got disconnected
		 		
Return

Esc::

ExitApp

Return