Bot script

10/17/2009 19:11 rghosts#1
:O
10/17/2009 19:19 rawk0r#2
I would like to direct you to [Only registered and activated users can see links. Click Here To Register...] that thread. You will have to adjust it slightly, depending on your setup, but it is pretty straightforward.
10/18/2009 05:33 Dark Raccoon#3
Quote:
Originally Posted by rghosts View Post
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.
10/18/2009 21:59 Dark Raccoon#4
Quote:
Originally Posted by rghosts View Post
#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.

Code:
#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
10/18/2009 23:34 Dark Raccoon#5
Quote:
Originally Posted by rghosts View Post
It flashes the the alt key like crazy fast lol
... ._.


[Only registered and activated users can see links. Click Here To Register...]

This one currently features a PickUp-Bot BETA that picks up Gold and FomorScrolls.
10/22/2009 19:33 sykaji#6
Quote:
Originally Posted by Dark Raccoon View Post
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.

Code:
#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
10/22/2009 20:32 Dark Raccoon#7
Quote:
Originally Posted by sykaji View Post
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.
10/22/2009 23:35 icekenshin#8
Quote:
Originally Posted by sykaji View Post
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
10/24/2009 23:06 pawntobishop#9
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
10/25/2009 18:19 icekenshin#10
Very nice, its alot better then the one I made much cleaner

- thanks a bunch!
10/26/2009 01:19 pawntobishop#11
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