Register for your free account! | Forgot your password?

Go Back   elitepvpers > General Gaming > General Gaming Discussion
You last visited: Today at 15:53

  • Please register to post and access all features, it's quick, easy and FREE!

 

[AutoIt] Customizable Magic

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Jan 2008
Posts: 113
Received Thanks: 56
[AutoIt] Customizable Magic

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



Penakle is offline  
Thanks
2 Users
Old   #2
 
elite*gold: 0
Join Date: Feb 2010
Posts: 5
Received Thanks: 0
Hey Penakle, this Section is full of useless Posts from you !

You get Reported with many Reasons ...

One of that Reasons is Spam and Double Post

Just try to Help the People, dont Spam in OffTopics !


#Pinned
#Reported
#Reported - Ban Report

~Closed~


вʅɑɔʞʀɑɲɡɛ is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
[AutoIt] Lesser Magic
This script macros mana missile and heal self. Start with your staff equipped and sheathed. ~ Toggles pause and DEL exits the script. EDIT-...
3 Replies - General Gaming Discussion
[Release]Report Assistant[Customizable]
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...
5 Replies - Main
[Release]Customizable Crosshair For USF Only!
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 ...
19 Replies - Soldier Front Hacks, Bots, Cheats & Exploits
ControlClick (AutoIt) in Runes of Magic
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...
2 Replies - General Gaming Discussion



All times are GMT +1. The time now is 15:53.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2017 elitepvpers All Rights Reserved.