AS Requested, New Melee Script:
Has Special Attacks now. Make sure you read up on the instructions as I have changed it to use 7 Weapons, and 2 Shields.
DFAttack
Code: Register to unlock hidden link
#cs ----------------------------------------------------------------------------
Script by: Eiles
Script requires two Accounts running on same computer in window mode.
7 Individual Weapons should be placed in Hotbar 1 - 7 on the Attacking Account. These will be cycled through to provide a greater amount of durability and keep you skilling up longer.
2 Individual Shields should be placed in Hotbar 1 - 2 on the Parrying Account. These will be cycled through to provide a greater amount of durability and keep you skilling up longer.
Rest Should be placed on Hotbar 0.
---NOTE----
You will need to have your power attack and whirlwind on the hotbar. (It is user prefered, macro will ask where they are.)
Make sure you read all the questions and answer them correctly. If you input wrong data it could mess up the macro.
Begin the script with Attacking account unequiped and Focused in FPS mode.
Make sure the Parrying account has only the sword equiped and Unsheathed. The shields should be unequiped and in your inventory.
Parrying Account should be in FPS mode and in the background upon Scrip activation.
Script begins 10 seconds after you answer the questions, so you should have enough time to ensure Accounts are setup properly and alt-tabing between each other fluidly.
Pause Key Pauses the Script
Esc Key Ends the Script
FUNCTIONS:
1 = Power Attack / Attack and Parry Loop, 2 = Power Attack / Whirlwind Attack / Attack and Parry Loop, 3 = Regualar Attack and Parry Loop
#ce-------------------------------------------------------
Dim $a, $b, $c, $d, $e, $f, $g
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
$Weapon = 1
$Shield = 1
$a = 0
$g = 0
Global $Paused
$b = InputBox( "Question", "What Function would you like to perform? (1 = Power Attack / Attack and Parry Loop, 2 = Power Attack / Whirlwind Attack / Attack and Parry Loop, 3 = Regualar Attack and Parry Loop) ", "" )
If $b = 1 Then
$c = Inputbox ( "Question", "How many times would you like to cycle Power Attack / Attack? ( 1 cycles is 1 Power Attack and 5 Swings )", "" )
$d = InputBox( "Question", "What Hotkey is your Power Attack Action on?", "" )
$e = InputBox( "Question", "How long to rest? (1000 = 1 sec)", "" )
sleep (10000)
While 1
Sleep ( 1000 )
Call ("EquipAttack")
Sleep (500)
Call ( "CombatMode")
Sleep (500)
Call ("EquipDefense")
Sleep (500)
Do
Call ( "PowerATK" )
Call ( "Attack1" )
$g = $g + 1
Until $g = $c
$g = 0
sleep (100)
Call ( "Rest" )
WEnd
ElseIf $b = 2 Then
$c = Inputbox ( "Question", "How many times would you like to cycle Power Attack / Whirlwind Attack / Attack? ( 1 cycles is 1 Power Attack, 1 Whirlwind Attack and 7 Swings )", "" )
$d = InputBox( "Question", "What Hotkey is your Power Attack on?", "" )
$f = InputBox( "Question", "What Hotkey is your Whirlwind Attack on?", "" )
$e = InputBox( "Question", "How long to rest? (1000 = 1 sec)", "" )
While 1
Sleep ( 10000 )
Call ("EquipAttack")
Sleep (500)
Call ( "CombatMode")
Sleep (500)
Call ("EquipDefense")
Sleep (500)
Do
Call ( "PowerATK" )
Call ( "WWAttack")
Call ( "Attack1" )
$g = $g + 1
Until $g = $c
$g = 0
sleep (100)
Call ( "Rest" )
WEnd
ElseIf $b = 3 Then
$c = InputBox( "Question", "How many times would you like to swing? (1 sec = 1000)", "" )
$e = InputBox( "Question", "How long would you like to rest? (1 sec = 1000)", "" )
Sleep ( 10000 )
while 1
sleep ( 100 )
Call ("EquipAttack")
sleep ( 500 )
Call ("CombatMode")
sleep ( 500 )
Call ("EquipDefense")
sleep ( 500 )
Call("Attack")
sleep ( 500 )
Call ("Rest")
WEnd
EndIf
Func Attack()
Do
sleep ( 100 )
Mouseclick ( "Left" )
sleep ( 100 )
Send ( "{Alt Down}" )
Sleep ( 100 )
Send ( "{TAB Down}" )
Sleep ( 100 )
Send ( "{TAB UP}" )
Sleep ( 100 )
Send ( "{Alt Up}" )
sleep ( 100 )
Send ( "{V DOWN}" )
sleep ( 1000 )
Send ( "{V UP}" )
sleep ( 500 )
Send ( "{Alt Down}" )
Sleep ( 100 )
Send ( "{TAB Down}" )
Sleep ( 100 )
Send ( "{TAB UP}" )
Sleep ( 100 )
Send ( "{Alt Up}" )
sleep ( 1000 )
$a = $a + 1
Until $a = $e
$a = 0
EndFunc
Func Attack1()
Do
sleep ( 100 )
Mouseclick ( "Left" )
sleep ( 100 )
Send ( "{Alt Down}" )
Sleep ( 100 )
Send ( "{TAB Down}" )
Sleep ( 100 )
Send ( "{TAB UP}" )
Sleep ( 100 )
Send ( "{Alt Up}" )
sleep ( 100 )
Send ( "{V DOWN}" )
sleep ( 1000 )
Send ( "{V UP}" )
sleep ( 300 )
Send ( "{Alt Down}" )
Sleep ( 100 )
Send ( "{TAB Down}" )
Sleep ( 100 )
Send ( "{TAB UP}" )
Sleep ( 100 )
Send ( "{Alt Up}" )
sleep ( 800 )
$a = $a + 1
Until $a = 5
$a = 0
EndFunc
Func PowerATK()
sleep ( 500 )
Send ( $d )
Sleep (500)
Mouseclick ( "Left" )
sleep ( 100 )
Send ( "{Alt Down}" )
Sleep ( 100 )
Send ( "{TAB Down}" )
Sleep ( 100 )
Send ( "{TAB UP}" )
Sleep ( 100 )
Send ( "{Alt Up}" )
sleep ( 100 )
Send ( "{V DOWN}" )
sleep ( 1000 )
Send ( "{V UP}" )
sleep ( 300 )
Send ( "{Alt Down}" )
Sleep ( 100 )
Send ( "{TAB Down}" )
Sleep ( 100 )
Send ( "{TAB UP}" )
Sleep ( 100 )
Send ( "{Alt Up}" )
sleep (500)
Mouseclick ( "Left" )
sleep ( 800 )
EndFunc
Func WWAttack()
Send ( $f )
Sleep (500)
Mouseclick ( "Left" )
sleep ( 100 )
Send ( "{Alt Down}" )
Sleep ( 100 )
Send ( "{TAB Down}" )
Sleep ( 100 )
Send ( "{TAB UP}" )
Sleep ( 100 )
Send ( "{Alt Up}" )
sleep ( 100 )
Send ( "{V DOWN}" )
sleep ( 1000 )
Send ( "{V UP}" )
sleep ( 300 )
Send ( "{Alt Down}" )
Sleep ( 100 )
Send ( "{TAB Down}" )
Sleep ( 100 )
Send ( "{TAB UP}" )
Sleep ( 100 )
Send ( "{Alt Up}" )
sleep (500)
Mouseclick ( "Left" )
sleep ( 800 )
EndFunc
Func EquipAttack()
Sleep(500)
;send ("{1} - {7}") ; Weapon
Send("{" & $Weapon & "}")
$Weapon = $Weapon + 1
If $Weapon = 8 Then
$Weapon = 1
EndIf
Sleep(500)
EndFunc ;==>Equip
Func CombatMode()
Sleep (100 )
Send ( "r" )
Sleep ( 500 )
EndFunc
Func EquipDefense()
Send ( "{Alt Down}" )
Sleep ( 100 )
Send ( "{TAB Down}" )
Sleep ( 100 )
Send ( "{TAB UP}" )
Sleep ( 100 )
Send ( "{Alt Up}" )
sleep ( 500 )
;send ("{1} - {2}") ; Shield
Send("{" & $Shield & "}")
$Shield = $Shield + 1
If $Shield = 3 Then
$Shield = 1
EndIf
Sleep(500)
Send ( "{Alt Down}" )
Sleep ( 100 )
Send ( "{TAB Down}" )
Sleep ( 100 )
Send ( "{TAB UP}" )
Sleep ( 100 )
Send ( "{Alt Up}" )
sleep ( 500 )
EndFunc
Func Rest()
Sleep ( 500 )
Send ( "R" )
Sleep ( 1500 )
Send ( "0" )
Sleep ( 1500 )
Mouseclick ( "Left" )
Sleep ( $e )
Send ( "w" )
Sleep ( 1000 )
EndFunc
Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
WEnd
EndFunc ;==>TogglePause
Func Terminate( )
Exit 0
EndFunc
Who is online