Quote:
Originally Posted by Tsubaki189
Hi guys, i'm new of this program and i want ask, can you help me for doing a simply script for Mabinogi?
I've to use the oven at Taillteann for skill up Alchemy Mastery, but it's really bored to do this, so i need a bot, can you help me? :3
If you can only do the text for me, i think i can handle the coordinates (of course lol, you can't see my desk).
I've tryed to do a script like this following the guide on this forum, but i don't know if it's work or if it's a completely mess xD
Run ("notepad.exe")
MouseClickDrag ("left", 1427, 607)
Sleep (1000)
MouseClick ("Left", 77, 539)
Send ("{0down}")
Sleep (10000)
MouseClick ("left", 167, 168)
The Sleep (10000) is for the cast of thunder, i don't even know if 10 secs is enough.
|
here you better PM me and thank me for this.
(also to lazy to put into spoiler quotes)
#requireadmin
#include <ImageSearch.au3>
Global $Paused
HotKeySet("{Pause}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
MsgBox(0,"starting","press ok")
sleep(5000)
While (1)
$x=0
MouseMove(1427,607,3);assuming this the coordinates of the steam oven to click on it
sleep(200)
MouseClick("left",1427,607,1,3)
sleep(1200)
MouseMove(1427,607,3);assuming this the coordinates for the alchemy crystal in your bag
sleep(200)
MouseClick("left",1427,607,1,3)
sleep(1000)
MouseMove(77,539,3); assuming this the coordinates of the boxes where you place the itemf rom your inventory
sleep(200)
MouseClick("left",77,539,1,3)
Sleep(200)
while ($x<5) ; this will cast thunder 5 times, im not doing the auto charge method
Send ("{0}") ; this is your hotkey for TH
sleep(3000) ; this is the casting speed of one thing of thunger, give it a little slack and mess around with the times
$x=$x+1
WEND
sleep(1000)
MouseMove(167,168,3) ; this should be the thing that clicks OK to start makingthe crystal
sleep(200)
MouseClick("left",167,168,1,3)
sleep(5000)
WEnd
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc
Func Terminate()
Exit 0
EndFunc
