UPDATE
REVISED MY SCRIPTS
Be sure to read the instructions on the scripts to setup macro successfully.
Melee / Parry
Code: Register to unlock hidden link
#cs ----------------------------------------------------------------------------
Script by: Eiles
Script requires two Accounts running on same computer in window mode.
4 Individual Weapons should be placed in Hotbar 1 - 4 on the Attacking Account. These will be cycled through to provide a greater amount of durability and keep you skilling up longer.
4 Individual Shields should be placed in Hotbar 1 - 4 on the Parrying Account. These will be cycled through to provide a greater amount of durability and keep you skilling up longer
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
#ce-------------------------------------------------------
Dim $a, $b, $c
Dim $Weapon
Global $Paused
$b = InputBox( "Question", "How many times would you like to swing? (1 sec = 1000)", "25" )
$c = InputBox( "Question", "How long would you like to rest? (1 sec = 1000)", "155000")
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
$Weapon = 1
$Shield = 1
$a = 0
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
Func EquipAttack()
Sleep(500)
;send ("{1} - {4}") ; Weapon
Send("{" & $Weapon & "}")
$Weapon = $Weapon + 1
If $Weapon = 5 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} - {4}") ; Shield
Send("{" & $Shield & "}")
$Shield = $Shield + 1
If $Shield = 5 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 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 = $b
$a = 0
EndFunc
Func Rest()
Sleep ( 500 )
Send ( "R" )
Sleep ( 1500 )
Send ( "0" )
Sleep ( 1500 )
Mouseclick ( "Left" )
Sleep ( $c )
Send ( "w" )
Sleep ( 1000 )
EndFunc
Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
WEnd
EndFunc ;==>TogglePause
Func Terminate( )
Exit 0
EndFunc
Code: Register to unlock hidden link
#cs ----------------------------------------------------------------------------
Magic / Parry Macro
Script by: Eiles
This is a two Macros in one Script. You have the options to select either Combination Heal Self / Mana Missile Script, or the Offensive Spell Script.
The Heal Self / Mana Missile Script Loops Heal Self then Mana Missile 8 Times as one Cycle. A new character should be able to do 4 cycles before rest.
The Offensive Spell Script allows you to set up a Parrying account for your Mana Missile or other Offensive Spell.
MAKE SURE YOU SETUP YOUR ACCOUNTS AS STATED BELOW
Script requires two Accounts running on same computer in window mode.
4 Individual Staffs should be placed in Hotbar 1 - 4 on the Attacking Account. These will be cycled through to provide a greater amount of durability and keep you skilling up longer.
4 Individual Shields should be placed in Hotbar 1 - 4 on the Parrying Account. These will be cycled through to provide a greater amount of durability and keep you skilling up longer
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
#ce-------------------------------------------------------
Dim $a, $b, $c, $d, $e, $f, $g, $h, $i
Dim $Weapon
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
$Weapon = 1
$Shield = 1
$a = 0
$e = 0
$i = 8
$h = InputBox( "Question", "Would you like to use Heal Self / Mana Missile Macro?(1 = Yes, 2 = No)", "1" )
If $h = 1 Then
$g = InputBox( "Question", "How many times would you like to Loop Heal Self / Mana Missile? (1 Loop = Heal Self + Mana Missile 8 Times)", "4" )
$c = InputBox( "Question", "How long would you like to rest? (1 sec = 1000)", "120000" )
$d = InputBox( "Question", " What Hotkey is your Mana Missile spell on?", "5" )
$f = InputBox( "Question", "What Hotkey is your Heal Self Spell on?", "6" )
Sleep ( 10000 )
While 1
Sleep ( 1000 )
Call ("EquipAttack")
Sleep (500)
Call ( "CombatMode")
Sleep (500)
Call ("EquipDefense")
Sleep (500)
Do
Call ( "Heal" )
$a = $a + 1
Do
Call ( "AttackH" )
$e = $e + 1
Until $e = $i
$e = 0
Until $a = $g
$a = 0
Call ( "Rest" )
WEnd
ElseIf $h = 2 Then
$b = InputBox( "Question", "How many times would you like to Cast Offensive Spell?", "40" )
$c = InputBox( "Question", "How long would you like to rest? (1 sec = 1000)", "120000" )
$d = InputBox( "Question", " What Hotkey is your Offensive spell on?", "5" )
$e = InputBox( "Question", "What is the cast time of the spell? (1 sec = 1000)", "2000" )
Sleep ( 10000 )
while 1
sleep ( 100 )
Call ("EquipAttack")
sleep ( 500 )
Call ("CombatModeA")
sleep ( 500 )
Call ("EquipDefense")
sleep ( 500 )
Call("Attack")
sleep ( 500 )
Call ("Rest")
WEnd
EndIf
Func EquipAttack()
Sleep(500)
;send ("{1} - {4}") ; Weapon
Send("{" & $Weapon & "}")
$Weapon = $Weapon + 1
If $Weapon = 5 Then
$Weapon = 1
EndIf
Sleep(500)
EndFunc
Func CombatModeA()
Sleep ( 500 )
Send ( "r" )
Sleep ( 1000 )
Send ( $d )
Sleep ( 1000 )
EndFunc
Func EquipDefense()
Sleep ( 500 )
Send ( "{Alt Down}" )
Sleep ( 100 )
Send ( "{TAB Down}" )
Sleep ( 100 )
Send ( "{TAB UP}" )
Sleep ( 100 )
Send ( "{Alt Up}" )
sleep ( 500 )
;send ("{1} - {4}") ; Shield
Send("{" & $Shield & "}")
$Shield = $Shield + 1
If $Shield = 5 Then
$Shield = 1
EndIf
Sleep ( 1000 )
Send ( "{Alt Down}" )
Sleep ( 100 )
Send ( "{TAB Down}" )
Sleep ( 100 )
Send ( "{TAB UP}" )
Sleep ( 100 )
Send ( "{Alt Up}" )
sleep ( 500 )
EndFunc
Func CombatMode()
Sleep (100 )
Send ( "r" )
Sleep ( 500 )
EndFunc
Func Heal()
Sleep (500)
Send ( $f )
Sleep ( 500 )
MouseClick ( "Left" )
Sleep ( 4300 )
Send ( $d )
Sleep (200)
EndFunc
Func Attack()
Do
sleep ( 100 )
Mouseclick ( "Left" )
sleep ( 500 )
Send ( "{Alt Down}" )
Sleep ( 100 )
Send ( "{TAB Down}" )
Sleep ( 100 )
Send ( "{TAB UP}" )
Sleep ( 100 )
Send ( "{Alt Up}" )
sleep ( $e - 1500 )
Send ( "{V DOWN}" )
sleep ( 1000 )
Send ( "{V UP}" )
sleep ( 1000 )
Send ( "{Alt Down}" )
Sleep ( 100 )
Send ( "{TAB Down}" )
Sleep ( 100 )
Send ( "{TAB UP}" )
Sleep ( 100 )
Send ( "{Alt Up}" )
sleep ( 500 )
$a = $a + 1
Until $a = $b
$a = 0
EndFunc
Func AttackH()
sleep ( 100 )
Mouseclick ( "Left" )
sleep ( 500 )
Send ( "{Alt Down}" )
Sleep ( 100 )
Send ( "{TAB Down}" )
Sleep ( 100 )
Send ( "{TAB UP}" )
Sleep ( 100 )
Send ( "{Alt Up}" )
sleep ( 500 )
Send ( "{V DOWN}" )
sleep ( 800 )
Send ( "{V UP}" )
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 ( $c )
Send ( "w" )
Sleep ( 1000 )
EndFunc
Func HealSelf()
Sleep ( 500 )
Send ( "r" )
Sleep ( 1000 )
Send ( $f )
Sleep ( 500 )
Do
Sleep ( 500 )
MouseClick ( "Left" )
Sleep (
$a = $a + 1
Until $a = $g
$a = 0
EndFunc
Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
WEnd
EndFunc ;==>TogglePause
Func Terminate( )
Exit 0
EndFunc
Who is online