This script is a customizable magic script that allows you to cast 5 different spells. They are repeatable as many or as few times as you'd like. You need to play with the delays before you get them right, I suggest saving the delay you find that works in a text file for ease of future use.
~ Toggles pause and DEL exits the script.
Note that this script is untested by me as of yet because I'm still just macroing Lesser Magic and have no need for it at the moment. If you use it and find that it works good, please post here and let us know.
Edit- I added an option to loop the entire spell list before resting. Updated to fix a couple of bugs.
Code:
Dim $a, $b, $c, $d, $e, $f, $g, $h, $i, $j, $k, $l, $m, $n, $o, $p, $q, $r, $s, $t, $u, $v, $w, $x, $y
Global $Paused
HotKeySet("`", "TogglePause")
HotKeySet("{DEL}", "Terminate")
$a = InputBox( "Question", "How many different spells to cast?", "1" )
If $a = 1 Then
$b = InputBox( "Question", "Hotbar for first spell?", "1" )
$c = InputBox( "Question", "Cast delay for first spell?", "1100" )
$d = InputBox( "Question", "How many times to repeat first spell?", "1" )
$e = InputBox( "Question", "Hotbar for Rest?", "0" )
$s = InputBox( "Question", "How long to Rest?", "155000" )
WinWaitActive( "Darkfall Online" )
Sleep( 2000 )
While 1
$r = 0
Sleep( 1000 )
Send( "R" )
Sleep( 500 )
Do
Call( "SpellOne" )
$r = $r + 1
Until $r = $d
Call( "Rest" )
WEnd
ElseIf $a = 2 Then
$b = InputBox( "Question", "Hotbar for first spell?", "1" )
$c = InputBox( "Question", "Cast delay for first spell?", "1100" )
$d = InputBox( "Question", "How many times to repeat first spell?", "1" )
$f = InputBox( "Question", "Hotbar for second spell?", "2" )
$g = InputBox( "Question", "Cast delay for second spell?", "1100" )
$h = InputBox( "Question", "How many times to repeat second spell?", "1" )
$y = InputBox( "Question", "How many times to repeat entire loop before resting?", "1" )
$e = InputBox( "Question", "Hotbar for Rest?", "0" )
$s = InputBox( "Question", "How long to Rest?", "155000" )
WinWaitActive( "Darkfall Online" )
Sleep( 2000 )
While 1
$r = 0
$t = 0
$x = 0
Sleep( 1000 )
Send( "R" )
Sleep( 1000 )
Do
Do
Call( "SpellOne" )
$r = $r + 1
Until $r = $d
$r = 0
Do
Call( "SpellTwo" )
$t = $t + 1
Until $t = $h
$t = 0
$x = $x +1
Until $x = $y
Call( "Rest" )
WEnd
ElseIf $a = 3 Then
$b = InputBox( "Question", "Hotbar for first spell?", "1" )
$c = InputBox( "Question", "Cast delay for first spell?", "1100" )
$d = InputBox( "Question", "How many times to repeat first spell?", "1" )
$f = InputBox( "Question", "Hotbar for second spell?", "2" )
$g = InputBox( "Question", "Cast delay for second spell?", "1100" )
$h = InputBox( "Question", "How many times to repeat second spell?", "1" )
$i = InputBox( "Question", "Hotbar for third spell?", "3" )
$j = InputBox( "Question", "Cast delay for third spell?", "1100" )
$k = InputBox( "Question", "How many times to repeat third spell?", "1" )
$y = InputBox( "Question", "How many times to repeat entire loop before resting?", "1" )
$e = InputBox( "Question", "Hotbar for Rest?", "0" )
$s = InputBox( "Question", "How long to Rest?", "155000" )
WinWaitActive( "Darkfall Online" )
Sleep( 2000 )
While 1
$r = 0
$t = 0
$t = 0
$x = 0
Sleep( 1000 )
Send( "R" )
Sleep( 1000 )
Do
Do
Call( "SpellOne" )
$r = $r + 1
Until $r = $d
$r = 0
Do
Call( "SpellTwo" )
$t = $t + 1
Until $t = $h
$t = 0
Do
Call( "SpellThree" )
$u = $u + 1
Until $u = $k
$u = 0
$x = $x + 1
Until $x = $y
Call( "Rest" )
WEnd
ElseIf $a = 4 Then
$b = InputBox( "Question", "Hotbar for first spell?", "1" )
$c = InputBox( "Question", "Cast delay for first spell?", "1100" )
$d = InputBox( "Question", "How many times to repeat first spell?", "1" )
$f = InputBox( "Question", "Hotbar for second spell?", "2" )
$g = InputBox( "Question", "Cast delay for second spell?", "1100" )
$h = InputBox( "Question", "How many times to repeat second spell?", "1" )
$i = InputBox( "Question", "Hotbar for third spell?", "3" )
$j = InputBox( "Question", "Cast delay for third spell?", "1100" )
$k = InputBox( "Question", "How many times to repeat third spell?", "1" )
$l = InputBox( "Question", "Hotbar for forth spell?", "4" )
$m = InputBox( "Question", "Cast delay for forth spell?", "1100" )
$n = InputBox( "Question", "How many times to repeat forth spell?", "1" )
$y = InputBox( "Question", "How many times to repeat entire loop before resting?", "1" )
$e = InputBox( "Question", "Hotbar for Rest?", "0" )
$s = InputBox( "Question", "How long to Rest?", "155000" )
WinWaitActive( "Darkfall Online" )
Sleep( 2000 )
While 1
$r = 0
$t = 0
$u = 0
$v = 0
$x = 0
Sleep( 1000 )
Send( "R" )
Sleep( 1000 )
Do
Do
Call( "SpellOne" )
$r = $r + 1
Until $r = $d
$r = 0
Do
Call( "SpellTwo" )
$t = $t + 1
Until $t = $h
$t = 0
Do
Call( "SpellThree" )
$u = $u + 1
Until $u = $k
$u = 0
Do
Call( "SpellFour" )
$v = $v + 1
Until $v = $n
$v = 0
$x = $x + 1
Until $x = $y
Call( "Rest" )
WEnd
ElseIf $a = 5 Then
$b = InputBox( "Question", "Hotbar for first spell?", "1" )
$c = InputBox( "Question", "Cast delay for first spell?", "1100" )
$d = InputBox( "Question", "How many times to repeat first spell?", "1" )
$f = InputBox( "Question", "Hotbar for second spell?", "2" )
$g = InputBox( "Question", "Cast delay for second spell?", "1100" )
$h = InputBox( "Question", "How many times to repeat second spell?", "1" )
$i = InputBox( "Question", "Hotbar for third spell?", "3" )
$j = InputBox( "Question", "Cast delay for third spell?", "1100" )
$k = InputBox( "Question", "How many times to repeat third spell?", "1" )
$l = InputBox( "Question", "Hotbar for forth spell?", "4" )
$m = InputBox( "Question", "Cast delay for forth spell?", "1100" )
$n = InputBox( "Question", "How many times to repeat forth spell?", "1" )
$o = InputBox( "Question", "Hotbar for fifth spell?", "5" )
$p = InputBox( "Question", "Cast delay for fifth spell?", "1100" )
$q = InputBox( "Question", "How many times to repeat fifth spell?", "1" )
$y = InputBox( "Question", "How many times to repeat entire loop before resting?", "1" )
$e = InputBox( "Question", "Hotbar for Rest?", "0" )
$s = InputBox( "Question", "How long to Rest?", "155000" )
WinWaitActive( "Darkfall Online" )
Sleep( 2000 )
While 1
$r = 0
$t = 0
$u = 0
$v = 0
$w = 0
$x = 0
Sleep( 1000 )
Send( "R" )
Sleep( 1000 )
Do
Do
Call( "SpellOne" )
$r = $r + 1
Until $r = $d
$r = 0
Do
Call( "SpellTwo" )
$t = $t + 1
Until $t = $h
$t = 0
Do
Call( "SpellThree" )
$u = $u + 1
Until $u = $k
$u = 0
Do
Call( "SpellFour" )
$v = $v + 1
Until $v = $n
$v = 0
Do
Call( "SpellFive" )
$w = $w + 1
Until $w = $q
$w = 0
$x = $x + 1
Until $x = $y
Call( "Rest" )
WEnd
Else
MsgBox( 0, "Alert", "You need at least 1 spell or less than 6 spells to cast." )
Exit
EndIf
Func SpellOne ( )
Sleep( 500 )
Send( $b )
Sleep( 500 )
MouseClick( "Left" )
Sleep( $c )
EndFunc
Func SpellTwo ( )
Sleep( 500 )
Send( $f )
Sleep( 500 )
MouseClick( "Left" )
Sleep( $g )
EndFunc
Func SpellThree ( )
Sleep( 500 )
Send( $i )
Sleep( 500 )
MouseClick( "Left" )
Sleep( $j )
EndFunc
Func SpellFour ( )
Sleep( 500 )
Send( $l )
Sleep( 500 )
MouseClick( "Left" )
Sleep( $m )
EndFunc
Func SpellFive ( )
Sleep( 500 )
Send( $o )
Sleep( 500 )
MouseClick( "Left" )
Sleep( $p )
EndFunc
Func Rest( )
Sleep( 2000 )
Send( "R" )
Sleep( 500 )
Send( $e )
Sleep( 500 )
MouseClick( "Left" )
Sleep( $s )
Send( "{SPACE}" )
Sleep( 1000 )
EndFunc
Func TogglePause( )
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
Func Terminate( )
Exit 0
EndFunc
[AutoIt] Lesser Magic 01/06/2012 - General Gaming Discussion - 3 Replies This script macros mana missile and heal self. Start with your staff equipped and sheathed.
~ Toggles pause and DEL exits the script.
EDIT- Updated to include launch at the users' discretion.
Dim $a, $b, $c, $d, $e, $f
Global $Paused
HotKeySet("`", "TogglePause")
HotKeySet("{DEL}", "Terminate")
[Release]Report Assistant[Customizable] 03/09/2010 - Main - 5 Replies Epvp Report Assistant v1.0
Unlike some other tools, this report assistant gives you complete control of how your post text is formatted and what cause/reason(s) you use in your tool.
Features:
Format.txt - Controls the look of your forum posts
Can enter current date and time into posts with $datetime$ tag
Cause.txt - Lists all the reasons you can choose from in the program
Clean UI
[Release]Customizable Crosshair For USF Only! 09/21/2009 - Soldier Front Hacks, Bots, Cheats & Exploits - 19 Replies You can use your own custom color for the crosshair. I'm working on customizable width/height, too.
Working only for USF not Work For SF ph
Credits To : Revenger
ControlClick (AutoIt) in Runes of Magic 05/05/2009 - General Gaming Discussion - 2 Replies Hello @ all,
Since 2 days I looking for a working command to click in runesofmagic.
With ControlClick I do not get a good result, it means it do not work.
Seit 2 Tagen versuche ich ControlClick auch für Runes of Magic zum laufen zu bekommen jedoch ohne Erfolg.
ControlClick("Runes of Magic","","Radiant Arcana0","left",1,950,250)
ControlClick("Runes of Magic","","Radiant Arcana0")...
![[AutoIt] Customizable Magic](https://www.elitepvpers.com/forum/iconimages/general-gaming-discussion/autoit-customizable-magic_ltr.gif){kind=small}
