Bot script

[rghosts]

:O

[rawk0r]

I would like to direct you to that thread. You will have to adjust it slightly, depending on your setup, but it is pretty straightforward.

[Dark Raccoon]

Originally Posted by rghosts

Ya thats the thread i had my old script from it wasent working when i tried it earlier today

Post the Script, I'll fix it.

[Dark Raccoon]

Originally Posted by rghosts

#include <ImageSearch.au3>
MsgBox(0,"Notice","Click Ok to start. Make sure you have Mabinogi window maximized.")
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("!{ESC}", "Stop") ;script can be stopped by pressing ESC
$x1=0
$y1=0
While (1)
Send("{LALT down}")
$result = _ImageSearch("cobweb.jpg",1,$x1,$y1,100) ;change the cobweb.jpg if you want to pick up something else.
if $result=1 Then
MouseMove($x1,$y1,3)
MouseClick("left",$x1,$y1,1,3)
Sleep(2000) ;Enough time for the character to go pick up the cobweb. You can change it if you want (2000 = 2 seconds so 1000 = 1 second)
EndIf
WEnd
Func TogglePause()
$Paused = not $Paused
While $Paused
ToolTip("paused")
sleep(100)
WEnd
EndFunc

Func Stop() ;to allow the script to stop
Exit ;same
EndFunc ;same

Im not too good with ImageSearch-Coding, so dont rage if it doesnt work.

Dont forget to put the cobweb.jpg in the same folder as the Bot.

#include <ImageSearch.au3>
HotKeySet("{ESC}", "_Stop")
$x1=0
$y1=0

MsgBox(0,"Notice","Click Ok to start. Make sure you have Mabinogi window maximized.")

While 1
		Send ("{ALTdown}")
		$result = _ImageSearch ("cobweb.jpg", 1, $x1, $y1, 85)
		
	If $result=1 Then
		MouseMove ($x1, $y1)
		MouseClick ("left", $x1, $y1)
		Sleep (2000)
	EndIf
	
		Send ("{ALTup}")
WEnd

Func _Stop ()
	Exit
EndFunc

[Dark Raccoon]

Originally Posted by rghosts

It flashes the the alt key like crazy fast lol

... ._.




This one currently features a PickUp-Bot BETA that picks up Gold and FomorScrolls.

[sykaji]

Originally Posted by Dark Raccoon

Im not too good with ImageSearch-Coding, so dont rage if it doesnt work.

Dont forget to put the cobweb.jpg in the same folder as the Bot.

#include <ImageSearch.au3>
HotKeySet("{ESC}", "_Stop")
$x1=0
$y1=0

MsgBox(0,"Notice","Click Ok to start. Make sure you have Mabinogi window maximized.")

While 1
		Send ("{ALTdown}")
		$result = _ImageSearch ("cobweb.jpg", 1, $x1, $y1, 85)
		
	If $result=1 Then
		MouseMove ($x1, $y1)
		MouseClick ("left", $x1, $y1)
		Sleep (2000)
	EndIf
	
		Send ("{ALTup}")
WEnd

Func _Stop ()
	Exit
EndFunc

Wow is that pascal i see...looks like Infomation technology isnt a wast of my time after all

[Dark Raccoon]

Originally Posted by sykaji

Wow is that pascal i see...looks like Infomation technology isnt a wast of my time after all

Pascal? ._.

Im not very good at english, but in my language thats a name.

If you mean the Script-Language, then thats AutoIT.

[icekenshin]

Originally Posted by sykaji

Wow is that pascal i see...looks like Infomation technology isnt a wast of my time after all

Umm would this be considered part of the "pascal" family? hmm

[pawntobishop]

unrelated i think, but this is a simple autoIT script to be used in conjunction with fastcook to start perfect autofishing (since you must hit the catch key to bypass the minigame)

#include <ImageSearch.au3>
MsgBox(0,"Notice","CLICK TO START")
Global $Paused
HotKeySet("!{ESC}", "Stop")
$x1=0
$y1=0
while(1)
$result = _ImageSearch("catch.jpg",1,$x1,$y1,100)
if $result=1 Then
Tooltip("Autofishing...", 0, 0)
MouseMove($x1,$y1,3)
MouseClick("left",$x1,$y1,1,3)
EndIf
WEnd
Func Stop()
Exit
EndFunc

[icekenshin]

Very nice, its alot better then the one I made much cleaner

- thanks a bunch!

[pawntobishop]

just as a word of advice, do not use a blue background with my autofisher script, you can glitch it out and not be able to exit XD