Farmbot - For 64 Bit OS
Zuersteinmal der Bot ist selbstgeschrieben und ist keinesfalls vollständig, jedoch habe ich mich bemüht ihn einfach zu gestalten, sodass ihn jeder verändern kann und so zur Verfügung zu stellen.
Fragen bitte im Thread posten!
Was ihr braucht:
- minimale Programmierkentnisse
- ein 64-Bit OS ( Betriebssystem ) ; z.B Vista x64
-> wurde bereits auf Vista und Windows 7 x64 getestet
- Rappelz im Windowed Mode bei 1024*768 (es ist nicht zwingend notwendig, aber ihr müsst alle Farben nochmal auslesen)
- Autoit und SCI IT ->
- Geduld
Was ihr machen müsst:
- Eure Tastenbelegung mit der des Scryptes abgleichen (oder umgekehrt)
- Skills mit den jeweiligen Cooldowns einstellen (im scrypt erklärt)
- Farbenauslesen -> anbei findet ihr das farbenauslesescrypt
- das scrypt weiterleiten
Zusätzliche bereits vorhandene Funktionen sind:
- Dualscrypt
- Dp Follow scrypt
- Mutterwitzescrypt
- Dpchipper -> noch nicht ausgereift
- funktionierender shoutbot (whärend des farmens)
Das kein Verdacht auf Viren besteht hier schonmal das Scrypt:
Code:
HotKeySet("{NUMPAD1}", "combo") ;Taste zum Starten
HotKeySet("{NUMPAD2}", "pause") ;Taste für Pause
HotKeySet("{NUMPAD3}", "ende") ;Taste um den Bot zu beenden
Global $timerinit = TimerInit() ;Initialisierung des timers
Global $funktionan = False ;Initiierung des Bots in Pause
Global $chipfarbe ;Verschiedene Variablen verden als Global deklariert
Global $maus
Global $moven
Global $drehung
Global $chip
Global $mobhealth
Global $bottrap
Global $bottrap2
Global $bottrap3
Global $timerinit
Global $timer
Global $health1
Global $health2
Global $health3
Global $health4
Global $mana1
Global $chipart
Global $chipsalle
Global $cooldown[13] ;Initialisierung eines Arrays für die Cooldowns der Skills in ms (Millisekunden)
$cooldown[0] = 2000 ;Cooldown Chip
$cooldown[5] = 600000 ;Pot (Schnelligkeitstrank, etc) Cooldown
$cooldown[9] = 65000 ;Healthpot Cooldown
$cooldown[11] = 65000 ;Manapot Cooldown
Global $skillzuletztgenutzt[13] ;Array für die Skills
Global $chipfarbe = "FFBE8A" ;Farbe des Chips unter dem Mob (Hex); hier Farbe der Koordinaten 477, 60 eintragen
Func tabben()
Send("{TAB}")
Sleep(100)
EndFunc ;==>tabben Tabfunktion
Func loot()
Send("{Space}")
Sleep(1500)
Send("{Space}")
Sleep(500)
Send("{Space}")
Sleep(500)
Send("{Space}")
Sleep(500)
EndFunc ;==>loot Lootfunktion wenn kein Lootpet vorhanden ist
Func kameradrehen()
MouseMove(520, 380)
MouseDown("right")
MouseMove(900, 380)
MouseUp("right")
Sleep(10)
EndFunc ;==>kameradrehen dreht die Kamera
Func move()
MouseMove(600, 200)
MouseClick("left")
Sleep(10)
EndFunc ;==>move Laufbewegung
Func buffready()
If ($timer - $skillzuletztgenutzt[5]) >= $cooldown[5] Then
Return True
EndIf
EndFunc ;==>buffready wenn der Cooldown 5 abgelaufen ist -> true
Func buff2ready()
If ($timer - $skillzuletztgenutzt[3]) >= $cooldown[3] Then
Return True
EndIf
EndFunc ;==>buffready
Func buffen()
Send("^{F4}")
Sleep(100)
Send("^{F5}")
Sleep(100)
Send("^{F6}")
Sleep(100)
$skillzuletztgenutzt[5] = $timer
EndFunc ;==>buffen Buffen
Func chippen()
Send("{F2}")
$skillzuletztgenutzt[0] = $timer
Sleep(100)
EndFunc ;==>chippen Chippen
Func farbenauslesen()
$health1 = PixelGetColor(11, 54) ;Farbe vom Char links
$health4 = PixelGetColor(486, 422) ;Zeigt das Bestätigungsfenster bei Tod
$mana1 = PixelGetColor(108, 67) ;Mana hälfte
$mobhealth = PixelGetColor(489, 27) ;Check ob der Mob Leben hat
$bottrap = PixelGetColor(441, 16) ;Check ob Bottrap
$chip = PixelGetColor(477, 60) ;Farbenauslesen vom Chip
$bottrap2 = PixelGetColor(446, 6) ;Check ob Bottrap
$bottrap3 = PixelGetColor(436, 6) ;Check ob Bottrap
$chipsalle = PixelGetColor(58,720) ;2. Postion in der Skillleiste leer
Sleep(10)
EndFunc ;==>farbenauslesen
Func townbreak()
MsgBox(0, "BOT", "Ich bin fertig!")
EndFunc ;==>townbreak
Func chipbereit()
If ($timer - $skillzuletztgenutzt[0]) >= $cooldown[0] Then
Return True
EndIf
EndFunc ;==>chipbereit
Func skill1bereit()
If ($timer - $skillzuletztgenutzt[1]) >= $cooldown[1] Then
Return True
EndIf
EndFunc ;==>skill1bereit in diesem Bereich passt ihr die cooldowns eurer skills an
Func skill2bereit()
If ($timer - $skillzuletztgenutzt[2]) >= $cooldown[2] Then
Return True
EndIf
EndFunc ;==>skill2bereit
Func skill3bereit()
If ($timer - $skillzuletztgenutzt[3]) >= $cooldown[3] Then
Return True
EndIf
EndFunc ;==>skill3bereit
Func hpotready()
If ($timer - $skillzuletztgenutzt[9]) >= $cooldown[9] Then
Return True
EndIf
EndFunc ;==>hpotready
Func mpotready()
If ($timer - $skillzuletztgenutzt[11]) >= $cooldown[11] Then
Return True
EndIf
EndFunc ;==>mpotready
Func nachhealth() ;BOTSCHLEIFE wenn Leben orange
If buffready() = True Then buffen()
If Hex($mobhealth, 6) = "883422" Then ;hier Farbe der Koordinaten 489, 27 eintragen
If Hex($bottrap, 6) <> "A780FD" And Hex($bottrap2, 6) <> "A780FD" And Hex($bottrap3, 6) <> "A17BF3" Then ;hier Farbe der Koordinaten von Bottraps eintragen
If Hex($chip, 6) = $chipfarbe Then ;attackschleife
Send("{F1}")
Sleep(1000) ;castingtime in ms +250 - 500 (auch bei skills ohne casttime)
If skill1bereit() = True Then
Send("{F3}")
Sleep(50)
$skillzuletztgenutzt[1] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden
$drehung = 0
$moven = 0
Else
If chipbereit() = True Then
chippen()
Sleep(50)
EndIf
EndIf
Else
tabben()
$drehung = $drehung + 1
If $drehung > 2 Then
kameradrehen()
$drehung = 0
$moven = $moven + 1
EndIf
If $moven > 10 Then
move()
$moven = 0
EndIf
EndIf
Else
tabben()
$drehung = $drehung + 1
If $drehung > 2 Then
kameradrehen()
$drehung = 0
$moven = $moven + 1
EndIf
If $moven > 10 Then
move()
$moven = 0
EndIf
;loot()
EndIf
EndFunc ;==>nachhealth
Func nachmana() ;BOTSCHLEIFE wenn Mana unter einem gewissen Punkt
If buffready() = True Then buffen()
If Hex($mobhealth, 6) = "883422" Then ;hier Farbe der Koordinaten 489, 27 eintragen
If Hex($bottrap, 6) <> "A780FD" And Hex($bottrap2, 6) <> "A780FD" And Hex($bottrap3, 6) <> "A17BF3" Then ;hier Farbe der Koordinaten von Bottraps eintragen
If Hex($chip, 6) = $chipfarbe Then ;attackschleife
Send("{F1}")
Sleep(1000) ;castingtime in ms +250 - 500 (auch bei skills ohne casttime)
If skill1bereit() = True Then
Send("{F3}")
Sleep(50)
$skillzuletztgenutzt[1] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden
$drehung = 0
$moven = 0
Else
If chipbereit() = True Then
chippen()
Sleep(50)
EndIf
EndIf
Else
tabben()
$drehung = $drehung + 1
If $drehung > 2 Then
kameradrehen()
$drehung = 0
$moven = $moven + 1
EndIf
If $moven > 10 Then
move()
$moven = 0
EndIf
EndIf
Else
tabben()
$drehung = $drehung + 1
If $drehung > 2 Then
kameradrehen()
$drehung = 0
$moven = $moven + 1
EndIf
If $moven > 10 Then
move()
$moven = 0
EndIf
;loot()
EndIf
EndFunc ;==>nachmana
Func combo() ;HAUPTBOTSCHLEIFE
$funktionan = True
SendKeepActive("Rappelz") ;Rappelz ist immer Vordergrund
Opt("PixelCoordMode", 2) ;die Pixel werden direkt aus dem Fenster ausgelsen
Opt("MouseCoordMode", 2) ;die Maus bewegt sich nur im Fenster
While $funktionan = True
farbenauslesen()
$timer = TimerDiff($timerinit) ;timer init
$timer = $timer + 3600000 ; timer + 1stunde
If Hex($chipsalle, 6) <> "0D0D0D" Then ;hier Farbe der Koordinaten 58, 720 eintragen
If Hex($health1, 6) <> "BD7641" Then ;hier Farbe der Koordinaten 11, 54 bei orangem Leben eintragen
If Hex($health1, 6) <> "AC3F40" Then ;hier Farbe der Koordinaten 11, 54 bei rotem Leben eintragen
If Hex($mana1, 6) = "7289AA" Then ;hier Farbe der Koordinaten 108, 67 bei vollem Mana eintragen
If buffready() = True Then buffen()
If Hex($mobhealth, 6) = "883422" Then ;hier Farbe der Koordinaten 489, 27 eintragen
If Hex($bottrap, 6) <> "A780FD" And Hex($bottrap2, 6) <> "A780FD" And Hex($bottrap3, 6) <> "A17BF3" Then
If Hex($chip, 6) = $chipfarbe Then ;attackschleife
Send("{F1}")
Sleep(1000) ;castingtime in ms +250 - 500 (auch bei skills ohne casttime)
If skill1bereit() = True Then
Send("{F3}")
Sleep(50)
$skillzuletztgenutzt[1] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden
$drehung = 0
$moven = 0
Else
If chipbereit() = True Then
chippen()
Sleep(50)
EndIf
EndIf
Else
tabben()
$drehung = $drehung + 1
If $drehung > 2 Then
kameradrehen()
$drehung = 0
$moven = $moven + 1
EndIf
If $moven > 10 Then
move()
$moven = 0
EndIf
EndIf
Else
tabben()
$drehung = $drehung + 1
If $drehung > 2 Then
kameradrehen()
$drehung = 0
$moven = $moven + 1
EndIf
If $moven > 10 Then
move()
$moven = 0
EndIf
;loot()
EndIf
Else
If mpotready() = True Then
Send("{F11}")
Sleep(500)
$skillzuletztgenutzt[11] = $timer
EndIf
nachmana()
;wenn mtee cooldown nicht dann trinke
EndIf
Else
If hpotready() = True Then
Send("{F9}")
Sleep(100)
$skillzuletztgenutzt[9] = $timer
EndIf
Send("!{z}")
Sleep(50)
MouseClick("left",482,390)
Sleep(50)
MouseClick("left",450,216)
Sleep(50)
Exit ;Ausloggen wenn Leben rot
;wenn hpot cooldown nicht dann esse
EndIf
Else
If hpotready() = True Then
Send("{F9}")
Sleep(100)
$skillzuletztgenutzt[9] = $timer
EndIf
nachhealth()
;wenn hnugget cooldown nicht dann esse
EndIf
Else
townbreak()
EndIf
WEnd
EndFunc ;==>combo
Func pause()
$funktionan = False
Sleep(10)
EndFunc ;==>pause
Func ende()
Exit
EndFunc ;==>ende
While 1
Sleep(50)
WEnd
Aber cool das du dich ran gesetzt hast um so nen Bot zu schreiben 
