emo melee + rest loop, defender

More
9 years 10 months ago #38538

extra stam usage is how much more time than the attacker you want to hold the parry key down for. the 15 secs is what i tried when i made it, but it was way too conservative... i'd try it a bit higher

; with parry just use a newb weapon
HotKeySet("{DEL}", "Terminate")

Dim $numSwings, $restTime, $extraTime
Dim $restHotkey, $attackWeapon, $switchWeapon
Dim $swingsSoFar

$attackWeapon = InputBox( "Question", "Hotkey for attack weapon?", "1" )
$switchWeapon = InputBox( "Question", "Hotkey for some other weapon type?", "2" )

$numSwings = InputBox( "Question", "Number of swings is attacker using?", "30" )
$restHotkey = InputBox( "Question", "Hotkey for Rest?", "3" )
$restTime = InputBox( "Question", "How long to Rest?", "120000" )
$extraTime = InputBox( "Question", "How much of that time do you want to use towards extra stam usage?", "15000" )

MsgBox( 0, "Wait for attacker to load.", "Click OK to start the script.")


WinActivate ("Darkfall Online")
Sleep (2000)

While True	
      ;switch to other weapon and then switch back incase weapon breaks
	Send($switchWeapon)
    Sleep (1000)
	
	Send($attackWeapon)
	Sleep(1000)
	
	Send("R")
    Sleep (1000)
	
	Send( "{V DOWN}" )
	Sleep (1000)
	
	; swing
	$swingsSoFar = 0
	While $swingsSoFar < $numSwings
		MouseClick ("Left")
		Sleep(1500)
		
		$swingsSoFar = $swingsSoFar + 1
	WEnd
	
	Sleep ($extraTime)

	Send( "{V UP}" )
	Sleep (1000)
	
	Send("R")
    Sleep (1000)
	
	; rest
	Send($restHotkey)
	Sleep(1000)
	
	MouseClick ("Left")
	Sleep(1000)
	
	Sleep($restTime - $extraTime - 1000)
	
	; stand up
	Send( "{SPACE}" )
	Sleep(1000)	
WEnd

Func Terminate( )
Exit 0
EndFunc

9 years 10 months ago #61907

Wheres Jay (I think that was his name. -- Lamech) and everyone else these days!!

More
9 years 10 months ago #61908

They figured it would be complete shit and avoided it. I'm going to try and talk them into it later.