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: [Only registered and activated users can see links. Click Here To Register...]
SourceCode (No Skill):
SourceCode (Skill):
Spamer: [Only registered and activated users can see links. Click Here To Register...]
SourceCode:
AutoLogin: [Only registered and activated users can see links. Click Here To Register...]
SourceCode:
P.s.: Yup, I dont care if you see my Directories.
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: [Only registered and activated users can see links. Click Here To Register...]
SourceCode (No Skill):
Code:
#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
Code:
#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: [Only registered and activated users can see links. Click Here To Register...]
SourceCode:
Code:
#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: [Only registered and activated users can see links. Click Here To Register...]
SourceCode:
Code:
#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.
