[Guide] PickUp Bot

argentino · 08/24/2009, 20:06

I updated the script a little more, so the bot have the ability to move around the camera when it cant find any cobwebs, correct the values to ur own resolution (made on 1440*900).

Code:

#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
	Tooltip("Nomnomnom cobwebs ^^...", 0, 0) ;Indicates the item is present on the screen
	MouseMove($x1,$y1,3)
	MouseClick("left",$x1,$y1,1,3)
	Sleep(3000) ;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
If $result=0 Then	
		Sleep (2000)
		MouseMove (722, 445) ;The middle of your screen, x/y mouse position
		Sleep (1000)
		Tooltip("Searching for cobwebs...", 0, 0) ;Starting to rotate camera
		MouseDown("right")
		Sleep (1000)
		MouseMove (750, 455) ; The middle of your screen plus some right or left amount movement to allow camera rotation
		Sleep (1000)
		MouseUp("right")
		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

~~Dark Raccoon~~ · 08/24/2009, 20:59

Quote:

Originally Posted by argentino

I updated the script a little more, so the bot have the ability to move around the camera when it cant find any cobwebs, correct the values to ur own resolution (made on 1440*900).

Code:

#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
	Tooltip("Nomnomnom cobwebs ^^...", 0, 0) ;Indicates the item is present on the screen
	MouseMove($x1,$y1,3)
	MouseClick("left",$x1,$y1,1,3)
	Sleep(3000) ;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
If $result=0 Then	
		Sleep (2000)
		MouseMove (722, 445) ;The middle of your screen, x/y mouse position
		Sleep (1000)
		Tooltip("Searching for cobwebs...", 0, 0) ;Starting to rotate camera
		MouseDown("right")
		Sleep (1000)
		MouseMove (750, 455) ; The middle of your screen plus some right or left amount movement to allow camera rotation
		Sleep (1000)
		MouseUp("right")
		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

Mind if I modifiy it a bit so you can choose your resolution? ;P

argentino · 08/24/2009, 23:36

Not at all thats why i post the whole source =D lol, as you know im lazy to do these kind of stuff and too much work atm to have more than 10-15 mins dedicated to these things.

n3m0k54 · 08/25/2009, 18:49

Quote:

Originally Posted by wossen

$result = _ImageSearch("cobweb.jpg",1,$x1,$y1,100) can someone help me to understand this what does the 100 do or say?

Open ImageSearch.au3 file and find function _ImageSearch, there will be description.

Trismic · 08/26/2009, 19:45

Quote:

Originally Posted by wossen

$result = _ImageSearch("cobweb.jpg",1,$x1,$y1,100) can someone help me to understand this what does the 100 do or say?

The 100 is the tolerance. The image the bot is searching must be 100% identical to the image you are looking for.

cloudkiller2006 · 08/26/2009, 20:46

then won't you have more chance picking up the stuff you want if you set it to like 85?

~~Dark Raccoon~~ · 08/26/2009, 21:05

Quote:

Originally Posted by cloudkiller2006

then won't you have more chance picking up the stuff you want if you set it to like 85?

Well, you gotta find the right Tolerance.

If you set it too high, maybe the Bot wont find it on everyones screen, if you set it too low, it could just click anything that looks familiar.

cloudkiller2006 · 08/26/2009, 23:47

hehe that leaves me with one question, what if you set it to 110? XD

~~^FLaRe~~ · 08/26/2009, 23:50

Thanx

~~Dark Raccoon~~ · 08/27/2009, 01:30

Quote:

Originally Posted by cloudkiller2006

hehe that leaves me with one question, what if you set it to 110? XD

Be an adventurer, find it out! :P

Cloudsdabomb · 08/27/2009, 21:12

haha cloud don't you just love Racoon's answers?

~~Dark Raccoon~~ · 08/27/2009, 21:49

Quote:

Originally Posted by Cloudsdabomb

haha cloud don't you just love Racoon's answers?

:P

spazzzedout · 08/28/2009, 23:32

i cant get autoit to work on my laptop, it never has, and i tried making a script for AutoHotKey.

i tried to follow the instructions and looked on google for help and came up with this, but it doesnt work, it just opens mabi and does nothing

does anyone know what i did wrong?

Quote:

WinWait, Mabinogi G7,
ifWinNotActive, Mabinogi G7, , WinActivate, Mabinogi G7,
WinWaitActive, Mabinogi G7,
Loop
{
If GetKeyState ("ESC")
Break
Send, {ALTDOWN}
ImageSearch CobwebX, CobwebY,0,0, ScreenWidth, ScreenHeight, C:\Program Files (x86)\AutoIt3\Include\cobweb.bmp
Click %CobwebX%, %CobwebY%
sleep, 2500
}

cloudkiller2006 · 08/29/2009, 12:36

autohotkey uses its own "scripting" (no idea what to call it different)

for example:
the Break stops the Loop, so it will just check for the esc key once.

(directly from the help file command list: ) Loop (normal) Perform a series of commands repeatedly: either the specified number of times or until break is encountered.

that's the only error i can find atm, hope this helps

to fix: remove the break command

spazzzedout · 08/31/2009, 23:47

hmm... that didnt work, but i made a few improvements with limited succes.

Quote:

WinWait, Mabinogi G7,
ifWinNotActive, Mabinogi G7, , WinActivate, Mabinogi G7,
WinWaitActive, Mabinogi G7,
Loop
{
If GetKeyState("INS")
Break
Send, {ALTDOWN}
ImageSearch FoundX, FoundY,0,0,ScreenWidth,ScreenHeight, C:\Users\David\Pictures\gold.bmp
If ErrorLevel = 0
MouseMove, %FoundX%, %FoundY%
Send, {Click}
Click %goldX%, %goldY%
sleep, 3000
}

Now it opens up mabi, it will press but NOT hold alt, and clicks but doesnt go to the gold.
and it just does that over and over untill the gold dissapears
anymore suggestions?