Register for your free account! | Forgot your password?

You last visited: Today at 19:58

  • Please register to post and access all features, it's quick, easy and FREE!

 

[AutoIt] Archery

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Jan 2008
Posts: 113
Received Thanks: 56
[AutoIt] Archery

Start with your bow equipped and sheathed.

~ Toggles pause and DEL exits the script.

Code:
Dim $a, $b, $c, $d, $e
Global $Paused
HotKeySet("`", "TogglePause")
HotKeySet("{DEL}", "Terminate")
$a = InputBox( "Question", "How many times to shoot before resting?", "55" )
$b = InputBox( "Question", "Delay between shots?", "2000" )
$c = InputBox( "Question", "Hotbar for Rest?", "0" )
$d = InputBox( "Question", "How long to Rest?", "230000" )
WinWaitActive( "Darkfall Online" )
Sleep( 2000 )
While 1
	$e = 0
	Sleep( 2000 )
	Send( "R" )
	Sleep( 500 )
	Do
		MouseClick( "Left" )
		Sleep( $b )
		$e = $e +1
	Until $e = $a
	Sleep( 500 )
	Call ( "Rest" )
WEnd
	
Func Rest( )
	Sleep( 2000 )
	Send( "R" )
	Sleep( 500 )
	Send( $c )
	Sleep( 500 )
	MouseClick( "Left" )
	Sleep( $d )
	Send( "{SPACE}" )
	Sleep( 500 )
EndFunc

Func TogglePause( )
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate( )
    Exit 0
EndFunc



Penakle is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
Archery leveling exploit
unequipping the bow before the arrow hits the target makes it deal 2-5 damage, just like the very last shot before you run out of arrows (it deequips...
1 Replies - General Gaming Discussion
[AC Tool] Archery macro - lasts 9 times longer
to get this to work: Put your weapon that won't lose durability in slot 1. Then replace slots 2 - 9 with bows. Hit go. //HOTBAR/// //Slot...
0 Replies - General Gaming Discussion



All times are GMT +1. The time now is 19:58.


Powered by vBulletin®
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2018 elitepvpers All Rights Reserved.