06-20-2006, 09:22 AM
How It Works - It Mules all the items in the area represented by O's in ur stash. It doesnt mule areas marked by X
O O O O X X
O O O O X X
O O O O X X
O O O O X X
O O O O X X
O O O O X X
X X O O X X
X X O O X X
The far right x's are for personal belongings that you dont want muled, the bottom left is for a cube.
When you reach a desired amount of items stashed, it mules them. Items it does not support (sadly enough)
are Runes (NOOOOOOOOO! -.-) Greys (i dont really care for these) Blues and whites (these neither).
Items it does support are Rares, and Uniques. This is totally beta, very beta, very very very beta, and i do not advise you to use it unless you dont care and you never find runes, and have no use for greys whites and blues. Im hoping to add the ability to xfer the runes too, but in act five, too many colors match the color of the text (x . x). Im going to make it xfer in a different act or area to support all colors.
Things you must understand and listen to are > There is no support for muling more than one time during the night (or nights) your bot runs. This is because the bot xfers the items to the inventory (not stash) of another character on your account, chances are it will run out of space. Items are ONLY xferred when you reach the desired amount of stashed items, not when your stash and/or inventory are full.
YOU MUST DO THIS BEFORE YOU RUN THE BOT> Set Muled Once to No, Make sure your mule is in act 5 HELL (create a hell game and go to act 5) AND your mule has room in his/her inventory for the amount of items he/she is going to pickup.
GOOD LUCK, HAPPY MULING (unhappy, its beta)
TBA:Support for runes, whties, blues, and greys. a more stable xferring system.
Make suggestions, PLEASE, and comment! heres the 625 Line code (it was shortened from 700)
Heres the ini required to be in the same directory as the mule script.
Please, comment back, AND Read the directions!
O O O O X X
O O O O X X
O O O O X X
O O O O X X
O O O O X X
O O O O X X
X X O O X X
X X O O X X
The far right x's are for personal belongings that you dont want muled, the bottom left is for a cube.
When you reach a desired amount of items stashed, it mules them. Items it does not support (sadly enough)
are Runes (NOOOOOOOOO! -.-) Greys (i dont really care for these) Blues and whites (these neither).
Items it does support are Rares, and Uniques. This is totally beta, very beta, very very very beta, and i do not advise you to use it unless you dont care and you never find runes, and have no use for greys whites and blues. Im hoping to add the ability to xfer the runes too, but in act five, too many colors match the color of the text (x . x). Im going to make it xfer in a different act or area to support all colors.
Things you must understand and listen to are > There is no support for muling more than one time during the night (or nights) your bot runs. This is because the bot xfers the items to the inventory (not stash) of another character on your account, chances are it will run out of space. Items are ONLY xferred when you reach the desired amount of stashed items, not when your stash and/or inventory are full.
YOU MUST DO THIS BEFORE YOU RUN THE BOT> Set Muled Once to No, Make sure your mule is in act 5 HELL (create a hell game and go to act 5) AND your mule has room in his/her inventory for the amount of items he/she is going to pickup.
GOOD LUCK, HAPPY MULING (unhappy, its beta)
TBA:Support for runes, whties, blues, and greys. a more stable xferring system.
Make suggestions, PLEASE, and comment! heres the 625 Line code (it was shortened from 700)
Code:
;=================================================
;The One, The Only, The Muler Script!
;Created by Bounda
;No support for greys or whties
;No support for R/D Or c/i
;=================================================
;VERSION BETA .01
;=================================================
opt("PixelCoordMode", 0)
opt("MouseCoordMode", 0)
opt("ColorMode", 1)
WinActivate("Diablo II")
$slot = iniread("mule.ini", "main", "Mule_Character_Slot", "1")
$items = iniread("mule.ini", "main", "Mule_Item_Amount", "5")
$dir = iniread("mule.ini", "main", "bot_dir", "C:/Program Files/mm.BOT/mm.BOT/Logs/_Stats.ini")
$stashed = iniread($dir, "mm.BOT 5.xx GLOBAL STATISTICS", "Total_Stashed", "1")
$game = iniread("mule.ini", "main", "Game_Name", "blaHBLAH")
$pass = iniread("mule.ini", "main", "Game_pass", "blaHBLAH")
$once = iniread("mule.ini", "main", "Muled_Once", "No")
If $slot = 1 Then
$slotx = 192
$sloty = 152
ElseIf $slot = 2 Then
$slotx = 436
$sloty = 163
Elseif $slot = 3 Then
$slotx = 169
$sloty = 250
Elseif $slot = 4 Then
$slotx = 436
$sloty = 256
ElseIf $slot = 5 Then
$slotx = 163
$sloty = 340
ElseIf $slot = 6 Then
$slotx = 426
$sloty = 329
EndIf
sleep(500)
Send("{ESC}")
Sleep(500)
Mouseclick("left", 369, 287)
Sleep(1000)
MouseClick("Left", 597, 489)
Sleep(500)
Send($game)
Sleep(500)
Send("{Tab}")
Sleep(500)
Send($pass)
Sleep(500)
Send("{ENTER}")
Sleep(25000)
$startpix = Pixelgetcolor(250, 200)
If $stashed = $items Then
_Mule()
ElseIf $Stashed > $items Then
_Mule()
ElseIf $Stashed < $items Then
Exit
EndIf
Func _Mule()
Local $pix2, $pix3, $pix4, $pix5, $pix6, $pix7, $pix8, $pix9, $pix10, $pix11, $pix12, $pix13, $pix14, $pix15, $pix16, $pix17, $pix18, $pix19, $pix20, $pix21, $pix22, $pix23, $pix24, $pix25, $pix26, $pix27, $pix18, $pix29, $pix30
If WinActive("Diablo II") Then
WinActivate("Diablo II")
Else
Exit
EndIf
If $once = "Yes" Then
Exit
Endif
If $startpix = 65304 Then
MouseClick("left", 250, 481)
Sleep(2000)
MouseClick("left", 200, 427)
Sleep(2000)
MouseClick("left", 326, 469)
Sleep(2000)
Else
Exit
EndIf
$right = PixelSearch(450, 155, 715, 464, 65304)
If Not @Error then
MouseClick("left", $right[0] + 69, $right[1] + 78)
Sleep(2000)
EndIf
$stashrel2 = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel2[0] + 69, $stashrel2[1] + 78)
EndIf
Sleep(350000)
$pix3 = pixelgetcolor(177, 183)
If $pix3 <> 1024 Then
MouseClick("Left", 180, 189, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(400)
MouseClick("Left")
sleep(400)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix4 = pixelgetcolor(175, 213)
If $pix4 <> 1024 Then
MouseClick("Left", 175, 213, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
sleep(500)
$pix5 = pixelgetcolor(164, 241)
If $pix5 <> 1024 Then
MouseClick("Left", 165, 244, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(500)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix6 = pixelgetcolor(173, 274)
If $pix6 <> 1024 Then
MouseClick("Left", 173, 274, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix7 = pixelgetcolor(173, 303)
If $pix7 <> 1024 Then
MouseClick("Left", 173, 303, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix8 = pixelgetcolor(173, 327)
If $pix8 <> 1024 Then
MouseClick("Left", 171, 330, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix9 = pixelgetcolor(199, 185)
If $pix9 <> 1024 Then
MouseClick("Left", 199, 185, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix10 = pixelgetcolor(199, 220)
If $pix10 <> 1024 Then
MouseClick("Left", 199, 220, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix11 = pixelgetcolor(199, 248)
If $pix11 <> 1024 Then
MouseClick("Left", 199, 248, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix12 = pixelgetcolor(199, 277)
If $pix12 <> 1024 Then
MouseClick("Left", 199, 277, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix13 = pixelgetcolor(205, 307)
If $pix13 <> 1024 Then
MouseClick("Left", 205, 307, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix14 = pixelgetcolor(194, 324)
If $pix14 <> 1024 Then
MouseClick("Left", 194, 324, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix15 = pixelgetcolor(231, 183)
If $pix15 <> 1024 Then
MouseClick("Left", 231, 186, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix16 = pixelgetcolor(223, 209)
If $pix16 <> 1024 Then
MouseClick("Left", 223, 212, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix17 = pixelgetcolor(234, 242)
If $pix17 <> 1024 Then
MouseClick("Left", 234, 242, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix18 = pixelgetcolor(230, 270)
If $pix18 <> 1024 Then
MouseClick("Left", 230, 270, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix19 = pixelgetcolor(227, 300)
If $pix19 <> 1024 Then
MouseClick("Left", 227, 300, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix20 = pixelgetcolor(228, 330)
If $pix20 <> 1024 Then
MouseClick("Left", 228, 330, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix21 = pixelgetcolor(229, 362)
If $pix21 <> 1024 Then
MouseClick("Left", 229, 362, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix22 = pixelgetcolor(229, 385)
If $pix22 <> 1024 Then
MouseClick("Left", 229, 385, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix23 = pixelgetcolor(260, 182)
If $pix23 <> 1024 Then
MouseClick("Left", 260, 182, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix24 = pixelgetcolor(257, 209)
If $pix24 <> 1024 Then
MouseClick("Left", 257, 209, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix25 = pixelgetcolor(257, 246)
If $pix25 <> 1024 Then
MouseClick("Left", 257, 246, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix26 = pixelgetcolor(250, 266)
If $pix26 <> 1024 Then
MouseClick("Left", 250, 266, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix27 = pixelgetcolor(259, 295)
If $pix27 <> 1024 Then
MouseClick("Left", 259, 295, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix28 = pixelgetcolor(265, 329)
If $pix28 <> 1024 Then
MouseClick("Left", 265, 329, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix29 = pixelgetcolor(258, 353)
If $pix29 <> 1024 Then
MouseClick("Left", 258, 353, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
$pix30 = pixelgetcolor(253, 292)
If $pix30 <> 1024 Then
MouseClick("Left", 253, 292, 1, 2)
Sleep(500)
MouseClick("left", 370, 479, 1, 2)
Sleep(300)
MouseClick("Left")
sleep(300)
$stashrel = pixelsearch(220, 115, 450, 336, 65304)
If Not @error then
MouseClick("left", $stashrel[0] + 69, $stashrel[1] + 78)
Sleep(500)
EndIf
EndIf
Sleep(1000)
Send("{ESC}")
Sleep(500)
Send("{ESC}")
Sleep(500)
Mouseclick("left", 369, 287)
Sleep(2000)
MouseClick("Left", 752, 512)
Sleep(1500)
Mouseclick("Left", $slotx, $sloty)
Sleep(500)
Send("{Enter}")
Sleep(1000)
MouseClick("Left", 720, 488)
Sleep(500)
Send($game)
Sleep(500)
Send("{Tab}")
Sleep(500)
Send($pass)
Sleep(25000)
$start2 = pixelgetcolor(260, 185)
If $start2 = $startpix Then
Sleep(500)
Mouseclick("Left", 258, 464)
Sleep(2000)
Mouseclick("Left", 210, 415)
Sleep(2000)
Mouseclick("Left", 328, 477)
Sleep(2000)
Else
Sleep(5000)
MouseClick("Left", 720, 488)
Sleep(500)
Send($game)
Sleep(500)
Send("{Tab}")
Sleep(500)
Send($pass)
Sleep(2500)
If $start2 = $startpix Then
Sleep(500)
Mouseclick("Left", 258, 464)
Sleep(2000)
Mouseclick("Left", 210, 415)
Sleep(2000)
Mouseclick("Left", 328, 477)
Sleep(2000)
EndIf
Endif
Send("{Alt Down}")
Sleep(500)
Do
$pickitup = PixelSearch(455, 196, 759, 480, 16720037)
If Not @error then
Mouseclick("Left", $pickitup[0], $pickitup[1] + 5)
Sleep(1000)
Endif
Until Not IsArray($pickitup)
Do
$pickitup = PixelSearch(300, 150, 250, 350, 16720037)
If Not @error then
Mouseclick("Left", $pickitup[0], $pickitup[1] + 5)
Sleep(1000)
Endif
Until Not IsArray($pickitup)
Send("{Alt Up}")
Sleep(500)
IniWrite("mule.ini", "Main", "Muled_Once", "Yes")
EndFuncHeres the ini required to be in the same directory as the mule script.
Code:
[Main]
;========================================================
;Item amount is for the amount of items the bot has to
;have stashed before it mules.
;Character slot is the character slot when logging in to
;use for the mule character.
;Game name is used for the game to create when muling
;Game pass is the same thing, except its the password for that game.
;========================================================
Mule_Item_Amount=5
Mule_Character_Slot=1
Bot_Dir="C:/Program Files/mm.BOT/mm.BOT/Logs/_Stats.ini"
Game_Name = lilmferzpwn1
Game_pass = superdooper
Muled_Once = NoPlease, comment back, AND Read the directions!