Made a AutoIt script that spams heal. Works better if its used near a mana tunnel, because you'll recover mana. Works for all resolutions and has a GUI.
The only problem i've found is that once you click run you cant close the script. Can anyone help me fix that?
Code:
#include <GUIConstantsEx.au3>
Opt('MustDeclareVars', 1)
HotKeySet("{ESC}","Quit")
Mabi()
Func Mabi()
Global $res800x600, $res1024x768, $res1152x864, $res1280x960, $res1280x1024, $msg, $startproffin, $stopproffin
GuiCreate("Wand Auto Prof", 300, 200)
GUICtrlCreateGroup("Mabinogi Resolution", 10, 10, 120, 180)
GUICtrlCreateGroup("", 150, 2, 148, 95)
GUICtrlCreateLabel("Set Healing Hotkey to F1.", 160, 10)
GUICtrlCreateLabel("Make sure you're near a ", 160, 30)
GUICtrlCreateLabel("Mana Tunnel in Iria and", 160, 50)
GUICtrlCreateLabel("wand is equipped.", 160, 70)
GUICtrlCreateLabel("Script by Ryuk123", 160, 170)
$res800x600 = GUICtrlCreateRadio("800x600", 30, 40, 70, 20)
$res1024x768 = GUICtrlCreateRadio("1024x768", 30, 70, 70, 20)
$res1152x864 = GUICtrlCreateRadio("1152x864", 30, 100, 70, 20)
$res1280x960 = GUICtrlCreateRadio("1280x960", 30, 130, 70, 20)
$res1280x1024 = GUICtrlCreateRadio("1280x1024", 30, 160, 70, 20)
$startproffin = GUICtrlCreateButton("Run", 160, 100, 130, 20)
$stopproffin = GUICtrlCreateButton("Stop", 160, 120, 130, 20)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $startproffin
Prof()
Case $msg = $stopproffin
ExitLoop
EndSelect
WEnd
EndFunc
Func Prof()
While 1
$msg = GUIGetMsg()
send ("{F1}")
sleep (3000)
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case BitAND(GUICtrlRead($res800x600), $GUI_CHECKED) = $GUI_CHECKED
MouseClick ( "left" , 400, 300)
sleep (2000)
MouseClick ( "left" , 400, 300)
sleep (2000)
MouseClick ( "left" , 400, 300)
sleep (2000)
MouseClick ( "left" , 400, 300)
sleep (2000)
MouseClick ( "left" , 400, 300)
sleep (2000)
Case BitAND(GUICtrlRead($res1024x768), $GUI_CHECKED) = $GUI_CHECKED
MouseClick ( "left" , 512, 384)
sleep (2000)
MouseClick ( "left" , 512, 384)
sleep (2000)
MouseClick ( "left" , 512, 384)
sleep (2000)
MouseClick ( "left" , 512, 384)
sleep (2000)
MouseClick ( "left" , 512, 384)
sleep (2000)
Case BitAND(GUICtrlRead($res1152x864), $GUI_CHECKED) = $GUI_CHECKED
MouseClick ( "left" , 576, 432)
sleep (2000)
MouseClick ( "left" , 576, 432)
sleep (2000)
MouseClick ( "left" , 576, 432)
sleep (2000)
MouseClick ( "left" , 576, 432)
sleep (2000)
MouseClick ( "left" , 576, 432)
sleep (2000)
Case BitAND(GUICtrlRead($res1280x960), $GUI_CHECKED) = $GUI_CHECKED
MouseClick ( "left" , 640, 480)
sleep (2000)
MouseClick ( "left" , 640, 480)
sleep (2000)
MouseClick ( "left" , 640, 480)
sleep (2000)
MouseClick ( "left" , 640, 480)
sleep (2000)
MouseClick ( "left" , 640, 480)
sleep (2000)
Case BitAND(GUICtrlRead($res1280x1024), $GUI_CHECKED) = $GUI_CHECKED
MouseClick ( "left" , 640, 512)
sleep (2000)
MouseClick ( "left" , 640, 512)
sleep (2000)
MouseClick ( "left" , 640, 512)
sleep (2000)
MouseClick ( "left" , 640, 512)
sleep (2000)
MouseClick ( "left" , 640, 512)
sleep (2000)
Case $msg = $stopproffin
ExitLoop
EndSelect
WEnd
EndFunc
Func Quit()
Exit
EndFunc