Register for your free account! | Forgot your password?

You last visited: Today at 16:18

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

 

[AutoIt] Lesser Magic

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Jan 2008
Posts: 113
Received Thanks: 56
[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- Updated to include launch at the users' discretion.

Code:
Dim $a, $b, $c, $d, $e, $f
Global $Paused
HotKeySet("`", "TogglePause")
HotKeySet("{DEL}", "Terminate")
$d = InputBox( "Question", "Hotbar number for Mana Missile?", "1" )
$e = InputBox( "Question", "Hotbar number for Heal Self?", "3" )
$f = InputBox( "Question", "Hotbar number for Rest?", "0" )
$b = InputBox( "Question", "How Many Mana Missiles?", "18" )
$c = InputBox( "Question", "How Long to Rest?", "155000" )
$g = InputBox( "Question", "Are you using Launch? 1 for yes, 2 for no.", "1" )
If $g = 1 Then
	$h = InputBox( "Question", "Hotbar number for Launch?", "4" )
MsgBox( 0, "Alert", "Click OK then Alt + Tab into Darkfall to start the script." )
WinWaitActive( "Darkfall Online" )

While 1
	$a = 0
	Sleep ( 2000 )
	Send( "R" )
	Sleep ( 500 )
	Call( "Launch" )
	Call( "HealSelf" )
		
	Do
		Call( "ManaMissile" )
		$a = $a + 1
	Until $a = $b
	Sleep( 500 )
	Call( "Launch" )
	Call( "HealSelf" )
	Sleep( 2500 )
	Call( "Rest" )
WEnd

ElseIf $g = 2 Then
	MsgBox( 0, "Alert", "Click OK then Alt + Tab into Darkfall to start the script." )
	WinWaitActive( "Darkfall Online" )

While 1
	$a = 0
	Sleep ( 2000 )
	Send( "R" )
	Sleep ( 500 )
	Call( "HealSelf" )
		
	Do
		Call( "ManaMissile" )
		$a = $a + 1
	Until $a = $b
	Sleep( 500 )
	Call( "HealSelf" )
	Sleep( 2500 )
	Call( "Rest" )
WEnd

Else
	MsgBox( 0, "Alert", "You must choose yes or no for the launch question." )
	Exit
EndIf

Func HealSelf( )
	Sleep( 500 )
	Send( $e )
	Sleep( 500 )
	MouseClick( "Left" )
	Sleep( 2400 )
EndFunc

Func ManaMissile( )
	Sleep( 500 )
	Send( $d )
	Sleep( 500 )
	MouseClick( "Left" )
	Sleep( 1100 )
	EndFunc

Func Rest( )
	Sleep( 2000 )
	Send( "R" )
	Sleep( 500 )
	Send( $f )
	Sleep( 500 )
	MouseClick( "Left" )
	Sleep( $c )
	Send( "{SPACE}" )
	Sleep( 500 )
EndFunc

Func Launch( )
	Sleep( 1000 )
	Send( $h )
	Sleep( 500 )
	MouseClick( "Left" )
	Sleep( 6000 )
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  
Old   #2
 
elite*gold: 0
Join Date: Jun 2010
Posts: 1
Received Thanks: 0
Keybind GUI

I built my own hotkey management wrapper (I'll post it once its ready and tested), and I needed those same hotkeys. They're so commonly used, I figured I might as well make a GUI for it. So here you are.

It will save the hotkeys as follows:
$keyMM - Mana Missle
$keyHS - Heal Self
$keyRS - Rest
$keyLN - Launch

a global is required, don't forget it.

near the bottom of the main Function, there is an "Exit 0"
you may want to change that to your own Terminate() function.

All you have to do is paste it in, call the main function, and the use the variables listed above.

Code:
;don't forget the globals and includes
Global $keyMM = 2, $keyHS = 3, $keyRS = 4, $keyLN = 5
#include <GUIConstantsEx.au3>

call("UserConfig")



Func UserConfig()
	$mainGUI = GUICreate("Darkfall MacroMan v1.0", 165, 210)
	
	GUICtrlCreateGroup("Hotbar Keys", 10, 10, 145, 140 )
		GUICtrlCreateLabel("Default", 110, 25)
		GUICtrlSetFont(-1, 7)
		GUICtrlSetColor(-1, 0x555555)
		GUICtrlCreateLabel("Mana Missile", 20, 30)
	$guiMM = GUICtrlCreateInput("", 90, 30, 20, 20)
		GUICtrlSetTip(-1, "The key you would press to equip Mana Missile.")
		GUICtrlCreateLabel($keyMM, 115, 38)
		GUICtrlSetFont(-1, 7)
		GUICtrlSetColor(-1, 0x555555)
		
		GUICtrlCreateLabel("Heal Self", 20, 60)
	$guiHS = GUICtrlCreateInput("", 90, 60, 20, 20)
		GUICtrlSetTip(-1, "The key you would press to equip Heal Self.")
		GUICtrlCreateLabel($keyHS, 115, 68)
		GUICtrlSetFont(-1, 7)
		GUICtrlSetColor(-1, 0x555555)
		
		GUICtrlCreateLabel("Rest", 20, 90)
	$guiRS = GUICtrlCreateInput("", 90, 90, 20, 20)
		GUICtrlSetTip(-1, "The key you would press to equip Rest.")
		GUICtrlCreateLabel($keyRS, 115, 98)
		GUICtrlSetFont(-1, 7)
		GUICtrlSetColor(-1, 0x555555)
		
		GUICtrlCreateLabel("Launch", 20, 120)
	$guiLN = GUICtrlCreateInput("", 90, 120, 20, 20)
		GUICtrlSetTip(-1, "The key you would press to equip Launch - leave empty if not it use.")
		GUICtrlCreateLabel($keyLN, 115, 128)
		GUICtrlSetFont(-1, 7)
		GUICtrlSetColor(-1, 0x555555)
	GUICtrlCreateGroup("", -99, -99, 1, 1)
	
	GUICtrlCreateGroup("", 10, 150, 145, 50)
		$guiRUN = GUICtrlCreateButton("Run Macro", 20, 165)
		$guiEXIT = GUICtrlCreateButton("Abort", 110, 165)
	GUICtrlCreateGroup("", -99, -99, 1, 1)
	
	GUISetState() ; show gui

	; Collect Response
    While 1
        $msg = GUIGetMsg()
		Switch $msg
			Case $guiMM
				$keyMM = filter(GUICtrlRead($guiMM), 2)
			Case $guiHS
				$keyHS = filter(GUICtrlRead($guiHS), 3)
			Case $guiRS
				$keyRS = filter(GUICtrlRead($guiRS), 4)
			Case $guiLN
				$keyLN = filter(GUICtrlRead($guiLN), 5)
			Case $GUI_EVENT_CLOSE, $guiEXIT
				; Abort or program closed
				Exit 0
			Case $guiRUN
				If alertKeySet() Then
					; Run Macro, and keys are good. Exit loop so it doesn't terminate program.
					ExitLoop
				EndIf
        EndSwitch
    WEnd
	Sleep(200)
	GUIDelete($mainGUI) ; Manually delete the GUI
EndFunc

Func alertKeySet()
	$msgTXT = "Keybinding for the main spells have been set." & @CR & @CR & _ 
					$keyMM & " -     Mana Missile"	& @CR & _ 
					$keyHS & " -     Heal Self" 	& @CR & _ 
					$keyRS & " -     Rest" 			& @CR & _ 
					$keyLN & " -     Launch" 		& @CR & @CR & _ 
					"Run Macro?"
	While 1
		$iMsgBoxAnswer = MsgBox(1, "Spell Hotkeys Set", $msgTXT)
		
		Select
			Case $iMsgBoxAnswer = 1 ;OK
				return True
			Case $iMsgBoxAnswer = 2 ;Cancel
				return False
		EndSelect
	WEnd	
EndFunc

Func filter($str, $default)
	; forces input to single Alpha-Numeric character
	; returns result (1st char) or default on failure

	$str = StringStripWS($str, 8)

	if StringLen($str)>0 then
		$str = StringLower(StringLeft($str, 1))
	EndIf

	if StringLen($str)=1 AND StringIsAlNum($str) then
		return $str
	Else
		return $default
	EndIf
EndFunc


WyrdNEXUS is offline  
Old   #3
 
elite*gold: 0
Join Date: Aug 2010
Posts: 69
Received Thanks: 20
? not much but you seem pretty good so if you'd like to work with me PM me
Relix1650 is offline  
Old   #4
 
elite*gold: 0
Join Date: Dec 2011
Posts: 2
Received Thanks: 0
almost pefect

you need to add a hotkey to your hotbar tab so you keep 20 of the same kind staff in your inventory and hit your staff hotbar key in the macro that way when one breaks you can keep switching to new ones when the macro starts over again.
dsnutz is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
how to enchant items without getting failed or lesser chance to failed..??
please help... any exploits or tips and tricks on how to enchant items...????
1 Replies - Aion Main - Discussions / Questions
[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...
1 Replies - General Gaming Discussion
How To Level Lesser Magic
Requirements: Food Sulphur Skill 1-25 Reach 25 skill in Lesser Magic by spamming Mana Missile and Resting, then purchase Health to Mana skill,...
3 Replies - General Gaming Discussion
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 16:18.


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.