[Project] Ultimate Mabinogi Bot

[Dark Raccoon]

Sup,
I was thinking about making an ultimate Mabinogi Bot, and since I dont have much time and Im not familiar with AHK, I had this Idea.

The ultimate Mabinogi Bot will basically be an AutoIT-Bot which, if you click certain Buttons, starts the Bot you chose.

Now, I would like to get the following Features into that:
- Farming
- Weaving
- AutoLoot of certain Items
- Metallurgy
- Fossil Restoration (Once G8 comes out.)
- Fishing
- AutoPotter
- AutoLogin
- Spamer
- ?

I already got the Farming one covered, as well as the AutoLogin and the Spamer. The Fishing one is done soon, too.

So if anyone is interested in helping, please Post your Bot here, no matter in which Coding-Language it was written.

Also, please post your SourceCodes in case someone can improve the Bot.

Greetz,
DR

FarmBot:
SourceCode (No Skill):

 Spoiler

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\Eigene Bilder\warcraft-1.ico
#AutoIt3Wrapper_outfile=..\..\..\..\Desktop\MabiDR v0.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ImageSearch.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=F:\Kevin\Raccoon's World\Hacks\- Dark Raccoon -\KODA Forms\MabiDR Alpha.kxf
opt ( "GUIonEventMode" , 1 )
$DR = GUICreate("MabiDR v0.1 ; BETA", 354, 421, 197, 127)
$botstart = GUICtrlCreateButton("Start Botting", 40, 264, 121, 49, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
GUICtrlSetOnEvent (-1, "_start")
$Elite = GUICtrlCreateButton("Elitepvpers", 200, 264, 121, 49, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
GUICtrlSetOnEvent (-1, "_elite")
$goldloot = GUICtrlCreateCheckbox("Loot Gold", 40, 328, 145, 25)
GUICtrlSetCursor (-1, 0)
$lootfomor = GUICtrlCreateCheckbox("Loot Fomor Scrolls", 40, 352, 121, 17)
GUICtrlSetCursor (-1, 0)
$Tab1 = GUICtrlCreateTab(32, 24, 305, 217)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet2 = GUICtrlCreateTabItem("How To")
$TabSheet3 = GUICtrlCreateTabItem(" Where to Bot?")
GUICtrlSetState(-1,$GUI_SHOW)
$Pic1 = GUICtrlCreatePic("mao.bmp", 42, 61, 185, 169, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("The Beginner Area", 232, 64, 93, 17)
$Label2 = GUICtrlCreateLabel("in Tir Chonaill is the", 232, 80, 95, 17)
$Label3 = GUICtrlCreateLabel("usual botting Area,  ", 232, 96, 98, 17)
$Label4 = GUICtrlCreateLabel("because new made", 232, 112, 97, 17)
$Label5 = GUICtrlCreateLabel("Bot-Chars can kill   ", 232, 128, 95, 17)
$Label6 = GUICtrlCreateLabel("the foxes there with", 232, 144, 96, 17)
$Label7 = GUICtrlCreateLabel("with ease. People  ", 232, 160, 94, 17)
$Label8 = GUICtrlCreateLabel("may use Quiz-Bombs", 232, 176, 102, 17)
$Label9 = GUICtrlCreateLabel("sometimes, so be    ", 232, 192, 97, 17)
$Label10 = GUICtrlCreateLabel("careful.                   ", 232, 208, 96, 17)
$Pic2 = GUICtrlCreatePic("mao.bmp", 40, 48, 188, 180, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$TabSheet4 = GUICtrlCreateTabItem("Credits")
$Group1 = GUICtrlCreateGroup(" GUI / Coders ", 48, 64, 137, 161)
$Label11 = GUICtrlCreateLabel("Dark Raccoon", 56, 88, 74, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup(" Beta Testers", 200, 64, 121, 161)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
Sleep (1000)
WEnd

Func _start ()
			While 1
			Send ("{CTRLDOWN}")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			Send ("{CTRLUP}")
			Sleep (500)
			Send ("{CTRLDOWN}")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			Send ("{CTRLUP}")
			Sleep (500)
			Send ("{CTRLDOWN}")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			Send ("{CTRLUP}")
			Sleep (500)
			Send ("{CTRLDOWN}")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			Send ("{CTRLUP}")
			Sleep (500)
			Send ("{CTRLDOWN}")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			Send ("{CTRLUP}")
			Sleep (500)
			Send ("{CTRLDOWN}")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			Send ("{CTRLUP}")
			Sleep (500)
			Send ("{CTRLDOWN}")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			MouseClick ("left")
			Sleep (500)
			MouseClick ("left")
			Send ("{CTRLUP}")
			Sleep (3000)
			MouseClick ("left", 722, 680)
			Sleep (500)
			MouseClick ("left", 817, 554)
			Sleep (9000)
			Send ("{ESC}")
			Sleep (500)
			WEnd
			EndFunc


			Func _elite ()
				Run ("explorer.exe http://www.elitepvpers.com/index.php?accountId ; http://www.elitepvpers.com")
			EndFunc

SourceCode (Skill):

 Spoiler

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\Eigene Bilder\warcraft-1.ico
#AutoIt3Wrapper_outfile=..\..\..\..\Desktop\MabiDR v0.1 BETA (Skill).exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ImageSearch.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=F:\Kevin\Raccoon's World\Hacks\- Dark Raccoon -\KODA Forms\MabiDR Alpha.kxf
opt ( "GUIonEventMode" , 1 )
$DR = GUICreate("MabiDR v0.1 ; BETA", 354, 421, 197, 127)
$botstart = GUICtrlCreateButton("Start Botting", 40, 264, 121, 49, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
GUICtrlSetOnEvent (-1, "_start")
$Elite = GUICtrlCreateButton("Elitepvpers", 200, 264, 121, 49, $WS_GROUP)
GUICtrlSetCursor (-1, 0)
GUICtrlSetOnEvent (-1, "_elite")
$goldloot = GUICtrlCreateCheckbox("Loot Gold", 40, 328, 145, 25)
GUICtrlSetCursor (-1, 0)
$lootfomor = GUICtrlCreateCheckbox("Loot Fomor Scrolls", 40, 352, 121, 17)
GUICtrlSetCursor (-1, 0)
$Tab1 = GUICtrlCreateTab(32, 24, 305, 217)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet2 = GUICtrlCreateTabItem("How To")
$TabSheet3 = GUICtrlCreateTabItem(" Where to Bot?")
GUICtrlSetState(-1,$GUI_SHOW)
$Pic1 = GUICtrlCreatePic("mao.bmp", 42, 61, 185, 169, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("The Beginner Area", 232, 64, 93, 17)
$Label2 = GUICtrlCreateLabel("in Tir Chonaill is the", 232, 80, 95, 17)
$Label3 = GUICtrlCreateLabel("usual botting Area,  ", 232, 96, 98, 17)
$Label4 = GUICtrlCreateLabel("because new made", 232, 112, 97, 17)
$Label5 = GUICtrlCreateLabel("Bot-Chars can kill   ", 232, 128, 95, 17)
$Label6 = GUICtrlCreateLabel("the foxes there with", 232, 144, 96, 17)
$Label7 = GUICtrlCreateLabel("with ease. People  ", 232, 160, 94, 17)
$Label8 = GUICtrlCreateLabel("may use Quiz-Bombs", 232, 176, 102, 17)
$Label9 = GUICtrlCreateLabel("sometimes, so be    ", 232, 192, 97, 17)
$Label10 = GUICtrlCreateLabel("careful.                   ", 232, 208, 96, 17)
$Pic2 = GUICtrlCreatePic("mao.bmp", 40, 48, 188, 180, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$TabSheet4 = GUICtrlCreateTabItem("Credits")
$Group1 = GUICtrlCreateGroup(" GUI / Coders ", 48, 64, 137, 161)
$Label11 = GUICtrlCreateLabel("Dark Raccoon", 56, 88, 74, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup(" Beta Testers", 200, 64, 121, 161)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
Sleep (1000)
WEnd

Func _start ()
			While 1
			Send ("{CTRLDOWN}")
			Sleep (500)
			Send ("{F3}")
			Sleep (500)
			MouseClick ("left")
			Sleep (2000)
			MouseClick ("left")
			Sleep (500)
			MouseClick ("left")
			Send ("{CTRLUP}")
			Sleep (500)
			Send ("{CTRLDOWN}")
			Sleep (500)
			Send ("{F3}")
			Sleep (500)
			MouseClick ("left")
			Sleep (2000)
			MouseClick ("left")
			Sleep (500)
			Send ("{CTRLUP}")
			Sleep (500)
			Send ("{CTRLDOWN}")
			Sleep (500)
			Send ("{F3}")
			Sleep (500)
			MouseClick ("left")
			Sleep (2000)
			MouseClick ("left")
			Sleep (500)
			Send ("{CTRLUP}")
			Sleep (3000)
			MouseClick ("left", 722, 680)
			Sleep (500)
			MouseClick ("left", 817, 554)
			Sleep (9000)
			Send ("{ESC}")
			Sleep (500)
			WEnd
			EndFunc


			Func _elite ()
				Run ("explorer.exe http://www.elitepvpers.com/index.php?accountId ; http://www.elitepvpers.com")
			EndFunc

Spamer:
SourceCode:

 Spoiler

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=C:\!conMania Collection\Console Gaming\Dreamcast.ico
#AutoIt3Wrapper_outfile=..\..\Finished\Bots\Dark Raccoon\MabiSPAM - By Dark Raccoon.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("MabiSPAM - By Dark Raccoon", 436, 145, 192, 124)
$Label1 = GUICtrlCreateLabel("Message 1", 16, 24, 56, 17)
$Message1 = GUICtrlCreateInput("", 88, 24, 209, 21)
$Message2 = GUICtrlCreateInput("", 88, 56, 209, 21)
GUICtrlCreateLabel("Message 2", 16, 56, 56, 17)
$start = GUICtrlCreateButton("Start Spam!", 24, 88, 121, 33, $WS_GROUP)
$Epvpers = GUICtrlCreateButton("Elitepvpers", 168, 88, 121, 33, $WS_GROUP)
$Group1 = GUICtrlCreateGroup(" How To ", 312, 16, 113, 73)
$Label2 = GUICtrlCreateLabel("Enter your messages", 320, 32, 102, 17)
$Label3 = GUICtrlCreateLabel("then click the start", 320, 48, 91, 17)
$Label4 = GUICtrlCreateLabel("button-", 320, 64, 37, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup(" Credits ", 312, 96, 113, 41)
$Label5 = GUICtrlCreateLabel("Dark Raccoon", 320, 112, 74, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

			Case $nMsg = $Start
Sleep (5000)
Send ("{Enter}")

While 1
WinWaitActive ("Mabinogi G7")
Send (GUICtrlRead ($Message1))
Sleep (1000)
Send ("{ALTdown}")
Send ("{ALTup}")
Send ("{Enter}")
Sleep (1000)
Send (GUICTRLREAD ($Message2))
Sleep (1000)
Send ("{ALTdown}")
Send ("{ALTup}")
Send ("{Enter}")
Sleep (1000)
WEnd

Case $nMsg = $Epvpers
		Run ("explorer.exe http://www.elitepvpers.com/index.php?accountId ; http://www.elitepvpers.com")

	EndSwitch
WEnd

AutoLogin:
SourceCode:

 Spoiler

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=F:\Kevin\Raccoon's World\Hacks\- Dark Raccoon -\KODA Forms\AutoLogin.kxf
opt ( "GUIonEventMode" , 1 )
$Form1 = GUICreate("Dark Raccoon's AutoLogin", 480, 132, 192, 124)
$Start = GUICtrlCreateButton("Start Mabinogi", 8, 88, 153, 33, $WS_GROUP)
GUICtrlSetOnEvent (-1, "_start")
$Wait = GUICtrlCreateButton("Wait for Mabinogi", 168, 88, 145, 33, $WS_GROUP)
GUICtrlSetOnEvent (-1, "_wait")
$Elite = GUICtrlCreateButton("Elitepvpers", 320, 88, 145, 33, $WS_GROUP)
GUICtrlSetOnEvent (-1, "_epvpers")
$ID = GUICtrlCreateLabel("ID:", 16, 16, 18, 17)
$IDinput = GUICtrlCreateInput("", 48, 16, 193, 21)
$PWinput = GUICtrlCreateInput("", 48, 48, 193, 21)
$PW = GUICtrlCreateLabel("PW:", 16, 48, 25, 17)
$Group1 = GUICtrlCreateGroup(" How To ", 256, 8, 113, 73)
$Label1 = GUICtrlCreateLabel("Put in your Data,", 264, 24, 83, 17)
$Label2 = GUICtrlCreateLabel("then choose how to", 264, 40, 98, 17)
$Label3 = GUICtrlCreateLabel("start the bot.", 264, 56, 63, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Credits", 384, 8, 89, 73)
$Label4 = GUICtrlCreateLabel("Dark Raccoon", 392, 24, 74, 17)
$Label5 = GUICtrlCreateLabel("Have Fun! :3", 392, 48, 66, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


Func Form2Close()
Exit
EndFunc
Func Form2Maximize()
EndFunc
Func Form2Minimize()
EndFunc
Func Form2Restore()
EndFunc

While 1
Sleep (1000)
WEnd


		Func _start ()
	Run ("C:\Nexon\Mabinogi\Mabinogi.exe")
	Sleep (5000)
	MouseClick ("left", 978, 630)
	Sleep (50000)
	MouseClick ("left", 208, 548)
	Send (GUICtrlRead ($ID))
	MouseClick ("left", 722, 555)
	Send (GUICtrlRead ($PW))
	MouseClick ("left", 713, 632)
	Exit
	EndFunc

	Func _wait ()
	WinWaitActive("Mabinogi : Ancient Secrets of Irinid")
	Sleep (5000)
	MouseClick ("left", 978, 630)
	Sleep (50000)
	MouseClick ("left", 208, 548)
	Send (GUICtrlRead ($ID))
	MouseClick ("left", 722, 555)
	Send (GUICtrlRead ($PW))
	MouseClick ("left", 713, 632)
	Exit
	EndFunc

	Func _epvpers ()
		Run ("explorer.exe http://www.elitepvpers.com/index.php?accountId ; http://www.elitepvpers.com")
	EndFunc

P.s.: Yup, I dont care if you see my Directories.

[Trismic]

For your farm bot, is it the one that kills weak mobs and take their gold and former scroll? Like the gold farmers?

[Dark Raccoon]

Yep, just that since its still in the Beta, it doesnt loot anything yet.

Feel free to modify it.

[lostmage333]

Well I've already posted my AHK versions of weaving, and a simple auto-attack, that'll get you raped vs anything you cant kill in a combo. You can incorporate an autopickup to that, and you get the farm bot.

One thing, too, is that kukulite can do most of those features. If I can get HS bypassed, I can hook kuku... So... suggestions? =D

[Dark Raccoon]

Well, the thing is that I, as well as probably some other people here, already have a HackShield Bypass, however it was posted on an famous Underground-Forum.

Therefore, I cant give you the bypass, sorry. :/

Mind posting the SourceCodes of your Bots? :3

[lostmage333]

I completely understand that you can't share the bypass itself, but could you maybe just give me a nudge in the right direction for how I could maybe engineer one myself? =P

Anyways, source codes posted. Check my thread.

[mike649]

Wait so have you made a bot with auto loot?

[Dark Raccoon]

Yea.

[pepole12]

umm iv tryed all of your sand non or the auto pickups work ....... what a i soposto donow.
like wast of my time

[icekenshin]

Originally Posted by pepole12

umm iv tryed all of your sand non or the auto pickups work ....... what a i soposto donow.
like wast of my time

( ^a lot of interesting words in that post ^)

Umm I would recommend fixing your keyboard first, looks like your letters might be a little mixed up O_o

Also if you noticed People12, a lot of your questions can be answered by investing some time in looking at some other posts and threads on here.

Now who wants some poptarts :3

[cloudkiller2006]

Originally Posted by pepole12

umm iv tryed all of your sand non or the auto pickups work ....... what a i soposto donow.
like wast of my time

uhm i've tried all or yours and none of the auto-pickups work ..... what am i supposed to do now

(was bored, sorry)

[redjoker5]

Originally Posted by Dark Raccoon

Well, the thing is that I, as well as probably some other people here, already have a HackShield Bypass, however it was posted on a famous Underground-Forum.

Therefore, I cant give you the bypass, sorry. :/

hmmm any particular reason why you had to pull out a checkbox. i mean if you cant give it out dont talk about it. no need to show off

[Dark Raccoon]

Originally Posted by redjoker5

hmmm any particular reason why you had to pull out a checkbox. i mean if you cant give it out dont talk about it. no need to show off

Im not showing off, I already said several times that I just got into the UGs thanks to a friend, and that I mostly just leech there ().

[redjoker5]

Originally Posted by Dark Raccoon

Im not showing off, I already said several times that I just got into the UGs thanks to a friend, and that I mostly just leech there ().

ok maybe not showing off but still most of us DONT have a bypass. and being told "yeah i got one but you cant have it SOWWY" its like when instead you could be helping out those of us that arent blessed with unlimited UG invitations. like me personally i really dont know squatshit about code. just graphics. so just because of that i cant get no goodies even though i keep the mods i get to myself. so yeah. instead of just leeching off them for personal gain at least leech and share with people that dont leech

[Dark Raccoon]

Originally Posted by redjoker5

ok maybe not showing off but still most of us DONT have a bypass. and being told "yeah i got one but you cant have it SOWWY" its like when instead you could be helping out those of us that arent blessed with unlimited UG invitations. like me personally i really dont know squatshit about code. just graphics. so just because of that i cant get no goodies even though i keep the mods i get to myself. so yeah. instead of just leeching off them for personal gain at least leech and share with people that dont leech

Wanna know the secret on how to get all the Hacks you want?

 Spoiler

Learn how to make them.