autoit 2 person multi weapon offence and defence macro : Darkfall Online - Submissions

Here is an offence / parry macro that can be run with two acounts. If you start them both at the same time you will both equip your weapon stand up and fight the same amount of time.. then you both will sit and rest the same amount of time and start over. This one will parry on the defence. It will also cycle through your wepons and shields for you. You must have your key binding to defualt and you must also place yuor weapon on offence or your sheidls on defence to slots 5-9. If one breaks it will cycle over it and equip the next shield.. literally making the macro work for hours on end. When you start the macro have your wepons on your paperdoll but don't go into combat mode. Have soneone in Ventrillo count down 3.. 2... 1.... then both start and same time. It was wrote by a friend and I.


Offence

AutoItSetOption("SendKeyDelay", 1)
AutoItSetOption("MouseClickDelay",1)
HotKeySet("!p", "TogglePause")

Global $fightdelaytimer = TimerInit();
Global $fighttime = 650000;
Global $restkey = "0";
Global $axekey7 = "7";
Global $axekey = "6";
Global $axekey9 = "9";
Global $wandkey = "8";
Global $castamount = "24";
Global $castcount = "0";
Global $restlength = "140000";
Global $wTitle = "Darkfall Online"
Global $paused
WinWaitActive($wTitle)
Sleep(3000)
While 1
Send($wandkey)
Sleep(10000)
Send ($axekey)
Sleep(500)
Send ($axekey7)
Sleep(500)
Send ($axekey9)
Sleep(500)
Send("r")
Sleep(1000)
CastMissile();
Sleep(500)
Rest()
WinWaitActive($wTitle)
WEnd

Func CastMissile()
Sleep(500);
$castcount = $castamount
While $castcount > 0
WinWaitActive($wTitle);
$castcount = $castcount - 1;
MouseClick("left");
Sleep(2000);
WEnd
Sleep(2000);
EndFunc

Func Rest()
Send("r");
Sleep(4000);
Sleep(500);
Send($axekey);
Sleep(500);
Send($axekey7);
Sleep(500);
Send($axekey9);
Sleep(500);
Send($restkey);
Sleep(500);
MouseClick("left");
Send($restkey);
Sleep(500);
MouseClick("left");
Sleep(500);
Sleep($restlength);
Send("w");
Sleep(2000);
Sleep(1200);
Sleep(6000);
EndFunc
Func TogglePause()
$paused = NOT $paused
While $paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc


Defence


AutoItSetOption("SendKeyDelay", 1)
AutoItSetOption("MouseClickDelay",1)

Global $fightdelaytimer = TimerInit();
Global $fighttime = 650000;
Global $restkey = "0";
Global $axekey7 = "7";
Global $axekey5 = "5";
Global $axekey = "6";
Global $axekey9 = "9";
Global $wandkey = "8";
Global $restlength = "140000";
Global $wTitle = "Darkfall Online"
Global $paused
WinWaitActive($wTitle)
Sleep(3000)
While 1
Send ($axekey5)
Sleep(500)
Send($wandkey)
Sleep(500)
Send ($axekey)
Sleep(500)
Send ($axekey7)
Sleep(500)
Send ($axekey9)
Sleep(1000)
Send("r")
Sleep(3000)
Send ("{v Down}")
sleep (52000)
Send ("{v Up}")
Sleep(2000)
Rest()
WEnd


Func Rest()
Send("r");
Sleep(1000);
Send($axekey);
Sleep(500);
Send($axekey7);
Sleep(500);
Send($axekey9);
Sleep(500);
Send($restkey);
Sleep(1000);
MouseClick("left");
Sleep(1000);
Send($restkey);
Sleep(1000);
MouseClick("left");
Sleep($restlength);
Send("w");
Sleep(5000);
EndFunc

Can members say yay or nay to this being usefull so it may be moved to the confirmed section? If you say nay please say why so we can help others know.

yay

Can we get one more yay to move this.

Yay