D3Darling - Diablo 3 Farmbot

take · 14. Juni 2012

Funkt leider gar nicht. Egal wo er speichert, egal wie ich das Fenster verzerre - es geht nicht. Er macht bei Barbar öffentliche Spiele auf - beim Zauberer läuft er zwar "manchmal" dahin und geht dann aus den Spiel.

Kannst du DEINE Auflösung vielleicht mal angeben. Weil dann könnt ich die mal probieren. Hab 1600x900

denred · 14. Juni 2012

erstmal nochmal klasse das du das alles machst
nur hab das prob das ich alles genauso mache wie du es sagst (spiele Zauberer) und wenn ich dan sarte läuft der was und das wars er attacked und will dan aus dem game gehen.

Gamer_94 · 14. Juni 2012

Leute hier ist die Lösung (war bei mir zumindest so):
1. Game starten
2. Zu Speicherpunkt gehen, Spiel verlassen
3. Bot starten
4. Auflösung beibehalten, ABER auf Fenstermodus stellen
5. Fenster nun auf geringste Größe ziehen
6. Start Bot!

take · 14. Juni 2012

Funktioniert nicht...

...entweder er greift Mobs an (passier oft, er visiert einen an und dann geht die Maus ein wenig weiter vor und da läuft grad ein Mob hin und der greift er dann an)

oder...

...er kommt an und klickt ein wenig zu weit nach oben bei der Tür und loggt sich dann aus und macht es immer wieder

Versuche es mit allen möglichen Auflösungen

Gamer_94 · 14. Juni 2012

die auflösungen sind wurst, einfach das fenster so klein ziehen wie möglich...und ja er braucht 1-3 versuche dann läufts aber in der regel

take · 14. Juni 2012

55 Versuche - davon 10x versucht öffentliches Spiel zu machen, 15x nicht geschafft rein zu kommen, 10x wars eh zu, 10x versucht Bäume anzufackeln, 10x gleich ausgeloggt.

Aber gut ich lass ihn 15x erneut laufen...

D3Darling · 14. Juni 2012

Ich weiss leider auch nicht was ich dir raten soll. Bei mir funktioniert es auf 3 verschiedenen PCs und auch die meisten anderen haben es (nach etwas herumprobieren) geschafft den Bot zum laufen zu kriegen.

Das ist die Kehrseite der Medaille und wird auch so bleiben. Wenn man Sachen über Pixelsearch und Mausklicks macht geht es halt niemals 100%ig. Das ist der Preis dafür, dass es undetected ist. Wenn es wirklich "reibungslos" laufen soll kommt man um Packet Injection nicht herum.

Ich wünsche dir viel Glück beim probieren... mehr kann ich leider nicht tun, am Script liegt es nicht.

Casi0 · 14. Juni 2012

Sobald man den Boss und die Mobs gekillt hat klickt er bisschen rum und mit Glück sammelt er ein Paar Sachen ein
gerade bei Chars die keine große Reichweite haben bleibt viel übrig. Es gibt genug andere Möglichkeiten wie man
es schafft das er alles einsammelt, bei Gold ist das am einfachsten und Items denke ich etwas kniffliger aber auch zu schaffen.
Ich werd mal gleich rumprobieren

killer110 · 15. Juni 2012

Ich stell später mal meine Version rein. Vll hilfts was.

Casi0 · 15. Juni 2012

killer110 schrieb:

Ich stell später mal meine Version rein. Vll hilfts was.

Hast du was am sammeln geändert ?

trytokillme · 15. Juni 2012

Kann es nicht sein das wenn man die Helligkeit im Spiel ändern sich die Farben sokrass ändern das PixelSearch nicht mehr richtig funktioniert?

killer110 · 15. Juni 2012

Casi0 Ja. Es sucht halt nach der Farbe des Goldes.

trytokillme Ja das kann gut sein.

Casi0 · 15. Juni 2012

trytokillme schrieb:

Kann es nicht sein das wenn man die Helligkeit im Spiel ändern sich die Farben sokrass ändern das PixelSearch nicht mehr richtig funktioniert?

Es ist möglich jedoch ist im Bot so eingestellt worden das die Helligkeit dunkler oder heller sein kann.
Natürlich wird das nicht funktionieren wenn es total dunkel ist aber wer spielt schon so? Falls das doch der Fall sein sollte dann pass den Script deinen Farben an

trytokillme · 15. Juni 2012

Ich spiel garkein Diablo 3 wollte nur vllt helfen

killer110 · 15. Juni 2012

Hier. Vll gehts damit.
Ich bin Wizzard und hab auf den Tasten 3 und 4 Buffs. Mein Attack Skill liegt auf der rechten Maustaste.

Spoiler anzeigen

Code

HotKeySet("{PGUP}","_startBot")
Opt("PixelCoordMode", 0)
$GAME_DETECTED = False
$pickBlue = True
$pickYellow = True
$pickWhite = False
$pickGold = True
$WindowWidth = 1024
$WindowHeight = 768
$hWnd = 0
$shortDelay = Random(1500,3000)
$longDelay = Random(4500,6000)
$miniDelay = Random(500,1500)
$randomX = Random(-5,5)
$randomY = Random(-5,5)
$autoRepair = True
$autoSell = True
$build = "wiz"
$sellEachLoop = False
$loopCounter = 0
$unknownCounter = 0
$password = InputBox("Passwort", "Passwort für Autorelog angeben. Wenn nicht erwünscht, nichts eingeben!", "", "*")
If StringLen($password) > 0 Then
$autoRelog = True
$loopsToRelog = InputBox("Loops", "Nach wie vielen Loops soll automatisch neu eingelogt werden? Wird nichts eingegeben, wird nur neu eingeloggt, wenn man rausgeworfen wird.", "", "")
If $loopsToRelog <= 0 Then
$loopsToRelog = 9999
EndIf
Else
$autoRelog = False
EndIf
_checkDiablo()
while 1
Sleep(50)
WEnd
Func _checkDiablo()
If ProcessExists("Diablo III.exe") Then
$GAME_DETECTED = True
$hWnd = WinGetHandle("Diablo III")
Else
$GAME_DETECTED = False
EndIf
If $GAME_DETECTED = True Then
$size = WinGetPos("Diablo III")
If Not $size[0] = 0 Or Not $size[1] = 0 Or Not $size[2] = $WindowWidth Or Not $size[3] = $WindowHeight Then
WinMove("Diablo III","",0,0,$WindowWidth,$WindowHeight)
EndIf
EndIf
EndFunc
Func _checkPostition()
_checkDiablo()
If Not WinActive("Diablo III") Then WinActivate("Diablo III")
If isArray(PixelSearch(482, 674,537, 697,0x8E1212,1,1,$hWnd)) Then
Return "login_screen"
ElseIf isArray(PixelSearch(58, 300,75, 327,0x210400,1,1,$hWnd)) Then
Return "char_selection"
ElseIf isArray(PixelSearch(951, 214,966, 227,0x74929A,5,1,$hWnd)) Then
Return "quest_repeat_point"
ElseIf isArray(PixelSearch(420, 195,441, 218,0xFDFD45,5,1,$hWnd)) Then
Return "dungeon_start"
ElseIf isArray(PixelSearch(321, 560,341, 583,0x180000,5,1,$hWnd)) Then
Return "dead"
ElseIf IsArray(PixelSearch(788, 44,982, 234,0xFC0707,5,1,$hWnd)) Then
Return "town"
Else
Return "unknown_location"
EndIf
EndFunc
Func _walkToDungeon()
MouseMove(0,0,1)
If $build = "wiz" Then
ControlSend("Diablo III","","","3")
Sleep($miniDelay)
ControlSend("Diablo III","","","4")
Sleep($miniDelay)
EndIf
ControlClick("Diablo III", "", "", "Left", 1, 211 + $randomX , 202 + $randomY)
SLeep($shortDelay)
Sleep($miniDelay)
ControlClick("Diablo III", "", "", "Left", 1, 131 + $randomX, 300 + $randomY)
SLeep($shortDelay)
Sleep($miniDelay)
ControlClick("Diablo III", "", "", "Left", 1, 123 + $randomX, 261 + $randomY)
SLeep($shortDelay)
Sleep($miniDelay)
ControlClick("Diablo III", "", "", "Left", 1, 238 + $randomX, 207 + $randomY)
SLeep($shortDelay)
Sleep($miniDelay)
If IsArray(PixelSearch(788, 44,982, 234,0xFBD330,50)) Then ;~ TÜR AUF DER KARTE EINGEZEICHNET?
ControlClick("Diablo III", "", "", "Left", 1, 272 + $randomX, 447 + $randomY)
SLeep($shortDelay)
Sleep($miniDelay)
ControlClick("Diablo III", "", "", "Left", 1, 246 + $randomX, 425 + $randomY)
SLeep($shortDelay)
ControlClick("Diablo III", "", "", "Left", 1, 339 + $randomX, 294 + $randomY)
SLeep($shortDelay)
$size = WinGetPos("Diablo III")
$door = PixelSearch(0,0,$size[2],$size[3],0x628AE5,10)
If IsArray($door) Then
;~ ConsoleWrite("FOUND DOOR BY PIXELS")
MouseMove($door[0], $door[1],1000)
Sleep($miniDelay)
MouseClick("left",$door[0], $door[1],1,1)
Else
MouseMove(618, 203,1)
Sleep($miniDelay)
MouseClick("left",618, 203,1,1)
EndIf
MouseMove(0,0,1)
SLeep($longDelay)
_walkDungeonToDoor()
Else
_restartGame()
SLeep($longDelay)
SLeep($longDelay)
SLeep($longDelay)
_selectAction()
EndIf
EndFunc
Func _walkDungeonToDoor()
ControlClick("Diablo III", "", "", "Left", 1, 285 + $randomX, 501 + $randomY)
SLeep($shortDelay)
ControlClick("Diablo III", "", "", "Left", 1, 242 + $randomX, 478 + $randomY)
SLeep($shortDelay)
ControlClick("Diablo III", "", "", "Left", 1, 398 + $randomX, 261 + $randomY)
SLeep($shortDelay)
_AttackDungeonMonsters()
EndFunc
Func _doSkills($x = -1, $y = -1)
If $x <> -1 Or $y <> -1 Then
ConsoleWrite("DoSkills at x: " + $x + " and y: " + $y)
MouseMove($x, $y,1)
Sleep($miniDelay)
MouseClick("left",$x, $y,1,1)
Sleep($miniDelay)
EndIf
ControlSend("Diablo III","","","1")
Sleep($miniDelay)
ControlSend("Diablo III","","","2")
Sleep($miniDelay)
ControlSend("Diablo III","","","3")
Sleep($miniDelay)
;~ ControlSend("Diablo III","","","4")
;~ Sleep($miniDelay)
EndFunc
Func _AttackDungeonMonsters()
If $build = "bar" Then
ControlClick("Diablo III", "", "", "Left", 1, 234 + $randomX, 130 + $randomY)
SLeep($shortDelay)
_doSkills()
$monsterAlive = True
While $monsterAlive = True
$monsterSpot1 = PixelSearch(6, 127,1005, 618,0xEE0200) ; 458, 246, 555, 367
If IsArray($monsterSpot1) Then
If $monsterSpot1[0] > 458 And $monsterSpot1[0] < 555 And $monsterSpot1[1] > 246 And $monsterSpot1[1] < 367 Then ; CHECK IF OWN CHARACTER
$monsterAlive = False
Else
ConsoleWrite("Found Monster at x: " + $monsterSpot1[0] + " and y: " + $monsterSpot1[1])
_doSkills($monsterSpot1[0],$monsterSpot1[1])
EndIf
Else
$monsterAlive = False
EndIf
Sleep($miniDelay)
WEnd
ElseIf $build = "wiz" Then
ControlSend("Diablo III","","","{SHIFTDOWN}")
For $i = 0 To 3 Step 1
ControlClick("Diablo III", "", "", "Right", 1, 234 + $randomX * $i * 10, 130 + $randomY)
Sleep(1500)
Next
ControlSend("Diablo III","","","{SHIFTUP}")
ControlClick("Diablo III", "", "", "Left", 1, 234 + $randomX, 130 + $randomY)
SLeep($shortDelay)
EndIf
_pickUp()
EndFunc
Func _pickUp()
$inventoryFull = False
;CHECK GOLD
If $pickGold = True Then
$finished = False
While $finished = False
$goldSpot = PixelSearch(214, 104,717, 515,0xFFFFAF,5)
If IsArray($goldSpot) Then
ControlClick("Diablo III", "", "", "Left", 1, $goldSpot[0], $goldSpot[1])
Sleep($miniDelay)
Else
$finished = True
EndIf
Sleep($miniDelay)
WEnd
EndIf
ControlSend("Diablo III","","","{ALT}")
Sleep($miniDelay)
If $pickBlue = True Then
$finished = False
While $finished = False
$blueSpot = PixelSearch(214, 104,717, 515,0x6969FF,5)
If IsArray($blueSpot) Then
MouseMove($blueSpot[0], $blueSpot[1])
MouseClick("left",$blueSpot[0], $blueSpot[1])
Sleep($miniDelay)
If _searchInventoryMsg() = True Then
$finished = True
$inventoryFull = True
EndIf
Else
$finished = True
EndIf
Sleep($miniDelay)
WEnd
EndIf
ControlSend("Diablo III","","","{ALT}")
Sleep($miniDelay)
If $pickYellow = True Then
$finished = False
While $finished = False
$yellowSpot = PixelSearch(214, 104,717, 515,0xFFFF00,5)
If IsArray($yellowSpot) Then
MouseMove($yellowSpot[0], $yellowSpot[1])
MouseClick("left",$yellowSpot[0], $yellowSpot[1])
Sleep($miniDelay)
If _searchInventoryMsg() = True Then
$finished = True
$inventoryFull = True
EndIf
Else
$finished = True
EndIf
Sleep($miniDelay)
WEnd
EndIf
ControlSend("Diablo III","","","{ALT}")
Sleep($miniDelay)
If $pickWhite = True Then
$finished = False
While $finished = False
$whiteSpot = PixelSearch(214, 104,717, 515,0xF6F5F6,5)
If IsArray($whiteSpot) Then
MouseMove($whiteSpot[0], $whiteSpot[1])
MouseClick("left",$whiteSpot[0], $whiteSpot[1])
Sleep($miniDelay)
If _searchInventoryMsg() = True Then
$finished = True
$inventoryFull = True
EndIf
Else
$finished = True
EndIf
Sleep($miniDelay)
WEnd
EndIf
If IsArray(PixelSearch(6, 127,1005, 618,0xEE0200)) And $build = "bar" Then
_AttackDungeonMonsters() ;ATTACK AGAIN!!!
Else
If ($autoRepair = True And _checkDamagedEquip() = True) Or $sellEachLoop = True Or $inventoryFull = True Then
ControlSend("Diablo III","","","t")
SLeep($longDelay)
SLeep($longDelay)
_selectAction()
Else
_restartGame()
SLeep($longDelay)
SLeep($longDelay)
SLeep($longDelay)
_selectAction()
EndIf
EndIf
EndFunc
Func _restartGame()
ControlSend("Diablo III","","","{ESC}")
Sleep($miniDelay)
ControlClick("Diablo III", "", "", "Left", 1, 497 + $randomX, 390)
EndFunc
Func _autoLogin()
ControlClick("Diablo III", "", "", "Left", 1, 495 + $randomX, 476)
Sleep($shortDelay)
ControlSend("Diablo III","","",$password)
Sleep($shortDelay)
ControlClick("Diablo III", "", "", "Left", 1, 497 + $randomX, 576)
Sleep($longDelay)
Sleep($longDelay)
_selectAction()
EndFunc
Func _selectAction()
Switch _checkPostition()
Case "login_screen"
If $autoRelog = True Then _autoLogin()
Case "char_selection"
$loopCounter = $loopCounter + 1
If $autoRelog = True And $loopCounter > $loopsToRelog Then
ControlSend("Diablo III","","","{ESC}")
Sleep($miniDelay)
ControlClick("Diablo III", "", "", "Left", 1, 495, 350) ; LOG OFF
$loopCounter = 0
Else
ControlClick("Diablo III", "", "", "Left", 1, 157, 281) ; START QUEST
EndIf
Sleep($longDelay)
_selectAction()
Case "quest_repeat_point"
_walkToDungeon()
Case "dungeon_start"
_walkDungeonToDoor()
Case "unknown_location"
If $unknownCounter > 1 Then
$unknownCounter = 0
_restartGame()
SLeep($longDelay)
SLeep($longDelay)
SLeep($longDelay)
_selectAction()
Else
$unknownCounter = $unknownCounter + 1
Sleep($longDelay)
_selectAction()
EndIf
case "dead"
ControlClick("Diablo III", "", "", "Left", 1, 501, 570)
SLeep($longDelay)
_selectAction()
case "town"
_townLoop()
EndSwitch
EndFunc
Func _searchInventoryMsg()
Return IsArray(PixelSearch(321, 120,698, 132,0xD90A08,5,1,$hWnd))
EndFunc
Func _townLoop()
ControlClick("Diablo III","","","Left",1, 57, 447)
Sleep($shortDelay)
ControlClick("Diablo III","","","Left",1, 105, 133)
Sleep($shortDelay)
Sleep($miniDelay)
MouseMove(439, 303)
Sleep($miniDelay)
MouseClick("left",439, 303)
Sleep($shortDelay)
If IsArray(PixelSearch(315, 595,322, 603,0xD58908,5,1,$hWnd)) Then ; SHOP OPEN
;repair
If $autoRepair = True Then
ControlClick("Diablo III","","","Left",1, 343, 414)
Sleep($miniDelay)
ControlClick("Diablo III","","","Left",1, 173, 359)
Sleep($miniDelay)
EndIf
;SELL
If $autoSell = True Then
ControlClick("Diablo III","","","Left",1, 344, 154)
Sleep($miniDelay)
;ITEMS
For $h = 0 To 5 Step 1 ;ZEILEN
For $i = 0 To 7 Step 1 ;SPALTEN
ControlClick("Diablo III","","","Right",1, 745 + 35 * $i, 410 + 33 * $h)
Sleep(250)
Next
Next
EndIf
ControlSend("Diablo III","","","{ESC}") ;CLOSE SHOP
Sleep($miniDelay)
EndIf
_restartGame()
SLeep($longDelay)
_selectAction()
EndFunc
Func _checkDamagedEquip()
Return isArray(PixelSearch(726, 43,760, 93,0xFFEF00,5,1,$hWnd))
EndFunc
Func _startBot()
_checkDiablo()
If $GAME_DETECTED = True Then
_selectAction()
Else
MsgBox(0,"NOT FOUND","Bitte zuerst Diablo starten!")
EndIf
EndFunc

Alles anzeigen

Casi0 · 15. Juni 2012

Läuft bis zur tür wenn sie zu ist startet er neu wenn sie offen ist läuft er ein paar schritte und klickt dann auf das x im eck und schließt das game

take · 15. Juni 2012

Ich spiels auf Stark Dunkel^^

Achso - ich hab 1600x900 - kann es daran vielleicht liegen?

D3Darling · 15. Juni 2012

Ich experimentiere im Moment mit verschiedenen MemoryRead Optionen (so etwas hier). Aber MemoryRead ist einfacher zu bemerken, ich werde mich also in kleinen Schritten herantasten... mal sehen ob es sich lohnt.

Casi0 · 15. Juni 2012

D3Darling schrieb:

Ich experimentiere im Moment mit verschiedenen MemoryRead Optionen (so etwas hier). Aber MemoryRead ist einfacher zu bemerken, ich werde mich also in kleinen Schritten herantasten... mal sehen ob es sich lohnt.

Das wäre eine deutliche verbesserung und würde sich zumindest beim looten vom pixelsearching abheben

Gamer_94 · 15. Juni 2012

Wenn man das im Hintergrund ausführen könnte (also den Browser oder ein anderes Spiel im Vordergrund halten) , wär das richtig gut, versuch das mal

Teilen