Farmbot - For 64 Bit OS

[Sophocless]

joa klar, wennde lusthast könn wir au nen gui dazu basteln ôO
hab gerade für den standart Farm bot von Racador bissl gebastelt... der code muss ein wenig umgeschrieben werden aber sonst klappts ganz gut...
hab mir jetz gerade GUI erstellt mit den eingabe feldern für Tasten kombi für das chippen und auswahl des jeweiligen Chips. muss gleich ma die farben für Luna und Seelen chip raussuchen dann kann ich das über ifabfragen im code passend abrufen.

Hatte heute irgendwie lust mich mit AutoIt zu beschäftigen xD
was ich mir nacher mal raussuchen muss ist, wie ich eingegebene Daten speichern kann das die solange bis sie gändert werden bleiben ôO

EDIT:jaja da stand cih wieder aufm schlauch... meine iniwrite und read... najo soweit hab ichs nu wennde lust hättest das zusamm zufügen müssten wir ma icq msn oder evt skype?

[Sophocless]

kurze frage zu deinem Script! welchen Server wählt der relog aus?
Bastet?
wäre gut wenn mir das noch beantworten könntest =)

EDIT:
Da haben wir wieder das mitm aufm schlauch stehn... vlt sollt ich meien Brille mal aufsetzen... XD
gerade den Server auswähl bereich gefunden...

[schmuselord1]

und zwar spiel ich auf USA-server

[Sophocless]

joa hab ich mitbekommen xD

was genau machst du eigendlich in der Attack Funktion mit send 2 und 3 ... also welche skills sind auf die tasten gelegt?das wär noch prktisch zu wissen, da du ja für Priest und breeder speziel genamcht hast.
Eine andere frage wäre welchen unterschied du bei priest und breeder mitm looten machst einfach nur ob loot pet da ist? und du hast looten auf der taste{Space}?

[schmuselord1]

looten ist standartmäßig auf space gelegt. probiers mal aus. send2 beim priest ist attack mit creature, send 3 creature attack (habn high orc).

beim loot hab ichn unterschied gemacht, weil breeder auf 3x drop server spielt und da mehr dropt ^^

[Sophocless]

ah gut zu wissen xD dann kann cih das ja gleich rausschmeißen xD
mal ne fragen zum priest ... hab nur nen aco angefangen der kleri werden sollte...
kloppste nur mitm mace drauf? oder nutzte hauptsächlich die skills?

[schmuselord1]

ich benutze immer acid spray. andere skills brauch ich ja nich zu benutzen. aber skills kann man auch leicht hinzufügen

[Gorwales]

So Leute ich hab mich mal der Sache auch beschäftigt. Ich sage mal im Vorfeld ich bin absoluter Neuling in Sachen Programmierung und daher bitte ich meine Fehler nicht all zu sehr zu strafen.

Hab als Vorlage die hier angeboten Skripte verwendet. Bei mir klappts leider nicht. Er nimmt zwar die Speedpots aber sonst tut er nicht wirklich viel auser die Cam drehen.

Bin für jede Hilfe dankbar und natürlich für jeglichen Hinweis.

Hier mal der Code:

HotKeySet("{NUMPAD1}", "combo") ;Taste zum Starten
HotKeySet("{NUMPAD2}", "pause") ;Taste für Pause
HotKeySet("{NUMPAD3}", "ende") ;Taste um den Bot zu beenden

;Chips
;Kraft Chipps: FFBE8A
;Seelen Chipps: 78CBF7
;Luna Chipps: FE7AF2
;Chips aus: 0D0D0D

;Vorzeichen
;Send ("+{x}") ;SHIFT +x
;Send ("!{x}") ;ALT +x
;Send ("^{x}") ;STRG +x

;HP
;HP Grün: 9DAB63
;HP Orang: BD7641
;HP Rot: AC2F40

;MOB HP
;Farbe: D4B091

;MANA
;Farbe: 385098

;BOTTRAP
;Nr.1: 040404
;Nr.2: 090909
;Nr.3: 0A0A0A

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 // 2 sec
$cooldown[1] = 5000 ;Cooldown Peinigen // 5 sec
$cooldown[2] = 600000 ; Cooldown Konzentration // 10 min
$cooldown[3] = 10000 ;Cooldown Angriffstoß1 // 10 sec
$cooldown[5] = 600000 ;Pot (Schnelligkeitstrank, etc) Cooldown // 10 min
$cooldown[7] = 185000 ;Nugget // 3 min 5 sec
$cooldown[8] = 185000 ;Tee // 3 min 5 sec
$cooldown[9] = 65000 ;Healthpot Cooldown // 65 sec
$cooldown[11] = 65000 ;Manapot Cooldown // 65 sec
Global $skillzuletztgenutzt[13] ;Array für die Skills // Was soll hier hin??
Global $chipfarbe = "FE7AF2" ;Farbe des Chips unter dem Mob (Hex); hier Farbe der Koordinaten 477, 60 eintragen // ART DES CHIPS OBEN VERMERKT


Func tabben()
Send("{TAB}")
Sleep(100)
EndFunc ;==>tabben Tabfunktion

Func loot()
Send("{Space}")
Sleep(500)
Send("{Space}")
Sleep(500)
Send("{Space}")
Sleep(500)
Send("{Space}")
Sleep(500)
EndFunc ;==>loot Lootfunktion wenn kein Lootpet vorhanden ist // Ich nutze kein Lootpet

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[2]) >= $cooldown[2] Then
Return True
EndIf
EndFunc ;==>buffready

Func buffen()
;Konzentration ALT+"="
Send("+{=}")
Sleep(3000)
Send("+{=}")
Sleep(3000)
Send("+{=}")
Sleep(3000)

;Togel Kraft ALT+"0"
Send("+{0}")
Sleep(100)

;SPHÄREN
;Send("+{F2}")
;Sleep(3000)
;Send("+{F2}")
;Sleep(100)

;FEUERESSENZ
;Send("^{F6}")
;Sleep(100)

;SPHÄREN
;Send("+{F2}")
;Sleep(3000)
;Send("+{F2}")
;Sleep(3000)
;Send("+{F2}")
;Sleep(3000)

;SHPÄRE DER GESUNDHEIT
;Send("+{F4}")
;Sleep(100)

;BARBARENWUT
;Send("+{F5}")
;Sleep(100)

;==> Habe ich auskommentiert da ich noch LOW bin und noch keine notwendigkeit sehe

;SPEEDPOTS
Send("!{1}") ; Gelber Trank ALT+"1"
Sleep(100)
Send("!{2}") ; Lila Trank ALT+"2"
Sleep(100)

;SPHÄREN
;Send("+{F2}")
;Sleep(3000)
;Send("+{F2}")
;Sleep(3000)
;Send("+{F2}")
;Sleep(3000)

MouseMove(200,13)
MouseClick("LEFT")

;OKTOPUSSBUFF
;Send("^{F8}")
;Sleep(3000)
;$skillzuletztgenutzt[5] = $timer
EndFunc ;==>buffen Buffen
;==> Da mein Pet noch keine Buffs hat habe ich auch das auskommentiert
Func chippen()
Send("+{1}");Chips liegen auf Shift+1
$skillzuletztgenutzt[0] = $timer
Sleep(100)
EndFunc ;==>chippen Chippen

Func farbenauslesen()
$health1 = PixelGetColor(11, 54) ;Farbe vom Char links
$health2 = PixelGetColor(11, 54) ;rot
$health3 = PixelGetColor(11, 54) ;tot
$health4 = PixelGetColor(486, 422) ;Zeigt das Bestätigungsfenster bei Tod
$mana1 = PixelGetColor(90, 66) ;Mana hälfte
$mobhealth = PixelGetColor(540, 30) ;Check ob der Mob Leben hat
$bottrap = PixelGetColor(441, 16) ;Check ob Bottrap
$bottrap2 = PixelGetColor(446, 6) ;Check ob Bottrap
$bottrap3 = PixelGetColor(436, 6) ;Check ob Bottrap
$chipsalle = PixelGetColor(58,720) ;2. Postion in der Skillleiste leer
$chip = PixelGetColor(477, 60) ;Farbenauslesen vom Chip
Sleep(10)
EndFunc ;==>farbenauslesen

Func townbreak()
Send ("!{+}") ; Hier liegt die Townscroll auf ALT+"+"
Sleep (10000)
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 skill7bereit()
If ($timer - $skillzuletztgenutzt[7]) >= $cooldown[7] Then
Return True
EndIf
EndFunc ;==>skill7bereit

Func skill8bereit()
If ($timer - $skillzuletztgenutzt[8]) >= $cooldown[8] Then
Return True
EndIf
EndFunc ;==>skill8bereit

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) = "D4B091" Then ;hier Farbe der Koordinaten 489, 27 eintragen
If Hex($bottrap, 6) <> "040404" And Hex($bottrap2, 6) <> "090909" And Hex($bottrap3, 6) <> "0A0A0A" Then ;hier Farbe der Koordinaten von Bottraps eintragen
If Hex($chip, 6) = $chipfarbe Then ;attackschleife
Send("{1}")
Sleep(500) ;castingtime in ms +250 - 500 (auch bei skills ohne casttime)

If skill1bereit() = True Then
Send("{2}")
Sleep(500)
$skillzuletztgenutzt[1] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden

If skill2bereit() = True Then
Send("{3}")
Sleep(500)
$skillzuletztgenutzt[2] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden

If skill3bereit() = True Then
Send("{4}")
Sleep(500)
$skillzuletztgenutzt[3] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden

If skill7bereit() = True Then
Send("{5}")
Sleep(500)
$skillzuletztgenutzt[7] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden

If skill8bereit() = True Then
Send("{6}")
Sleep(500)
$skillzuletztgenutzt[8] = $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) = "D4B091" Then ;hier Farbe der Koordinaten 489, 27 eintragen
If Hex($bottrap, 6) <> "040404" And Hex($bottrap2, 6) <> "090909" And Hex($bottrap3, 6) <> "0A0A0A" Then ;hier Farbe der Koordinaten von Bottraps eintragen
If Hex($chip, 6) = $chipfarbe Then ;attackschleife
Send("{1}") ; Hier liegt der Angriffsbutton "1"
Sleep(500) ;castingtime in ms +250 - 500 (auch bei skills ohne casttime)

If skill1bereit() = True Then
Send("{2}") ; Hier liegt Peinigen auf "2"
Sleep(500)
$skillzuletztgenutzt[1] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden

If skill2bereit() = True Then
Send("{3}") ; Hier liegt Angrifsstoß auf "3"
Sleep(500)
$skillzuletztgenutzt[2] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden

If skill3bereit() = True Then
Send("{4}") ; Hier liegt Dunkler Schlag auf "4"
Sleep(500)
$skillzuletztgenutzt[3] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden

If skill7bereit() = True Then
Send("{5}") ; Hier ist ein leeres Feld
Sleep(500)
$skillzuletztgenutzt[7] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden

If skill8bereit() = True Then
Send("{6}") ; Hier ist ein leeres Feld
Sleep(500)
$skillzuletztgenutzt[8] = $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() ; Da ich kein Lootpetnutze habe ich es aktiviert
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) = "385098" Then ;hier Farbe der Koordinaten 108, 67 bei vollem Mana eintragen
If buffready() = True Then buffen()
If Hex($mobhealth, 6) = "D4B091" Then ;hier Farbe der Koordinaten 489, 27 eintragen
If Hex($bottrap, 6) <> "040404" And Hex($bottrap2, 6) <> "090909" And Hex($bottrap3, 6) <> "0A0A0A" Then ;Hier Bottraps einsetzen
If Hex($chip, 6) = $chipfarbe Then ;attackschleife
Send("{1}") ; Hier liegt der Angriffsbutton "1"
Sleep(500) ;castingtime in ms +250 - 500 (auch bei skills ohne casttime)

If skill1bereit() = True Then
Send("{2}") ; Hier liegt der Peinigen "2"
Sleep(500)
$skillzuletztgenutzt[1] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden

If skill2bereit() = True Then
Send("{3}") ; Hier liegt der Angrifsstoß "3"
Sleep(500)
$skillzuletztgenutzt[2] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden

If skill3bereit() = True Then
Send("{4}") ; Hier liegt der Dunkler Schlag "4"
Sleep(500)
$skillzuletztgenutzt[3] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden

If skill7bereit() = True Then
Send("{5}") ; Hier ist ein leeres Feld
Sleep(50)
$skillzuletztgenutzt[7] = $timer
EndIf ;==>nach diesem Muster müssen die skills eingefügt werden

If skill8bereit() = True Then
Send("{6}") ; Hier ist ein leeres Feld
Sleep(500)
$skillzuletztgenutzt[8] = $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("!{4}") ; Hier liegen die Manapots auf Alt+"4"
Sleep(500)
$skillzuletztgenutzt[11] = $timer
EndIf
nachmana()
;wenn mtee cooldown nicht dann trinke
EndIf
Else
If hpotready() = True Then
Send("!{3}") ; Hier liegen die Healpots auf Alt+"3"
Sleep(100)
$skillzuletztgenutzt[9] = $timer
EndIf
Send("!{z}") ; Keine Ahnung was das hier für eine Funktion erfüllt
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("!{3}") ; Hier liegen die Healpots auf Alt+"3"
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

[Sophocless]

Chips aus = 0D0D0D???
welche farbe ist chip aus? also wo hast du des ausgelesen?... das feld wo der chipp abgebildet ist, ist doch unterhalb des Mobb Fensters -> in freier Natur... ändertsich mit jeden meter den du dich bewegst?
Ist mir nur gerade aufgefallen.


ich les mir morgen mal das restliche script durch vlt findet mann ja was!?

Achso und wegen deinem Beitrag in meinem Thread! welche Tasten hast du denn für deine Hp Items also pots scrolls usw.?

Die werden übrigens erst ab 50% hp benutzt oder nochweniger... muss selber mal nachschauen gleich.

[Gorwales]

Also diesen Farbcode Chips aus = 0D0D0D habe ich nicht verändert da ich den mit unterschiedlichen Werten ausgelesen habe und mir dachte vieleicht ist das ein fester Wert.

EDIT:
Also er nimmt die Pots nicht bis er stibt.
Und ich hab dir die .ini per PM gesendet.

Tastenbelegung:

ALT+1 Healpot
ALT+2 Healscroll
ALT+3 Healeat

Alt+4 Manapot
Alt+5 ManaScroll
Alt+6 Manaeat

[Dostrix]

i must bypass GameGaurd to use this?

[Gorwales]

This bot need 64bit OS and you dont need bypass.

[Gorwales]

Mal nen anderen Denkansatz wie sieht es mit Buffbots aus könnte es so funktionieren?

HotKeySet("{NUMPAD7}", "buffschleife")
HotKeySet("{NUMPAD8}", "pause") ;
HotKeySet("{NUMPAD9}", "ende")

func buffschleife()
$active = True
While $active = True
Send ("{2}");Speedpot auf Taste 2
sleep 10
Send ("{3}");Attakspeedpot auf Taste 3
sleep 600000 ;Cooldown des Buffs in dem Fall Speedpot
Wend
Endfunc

func pause()
$active = False
Endfunc ;==>pause

Func ende()
Exit
EndFunc ;==>ende

[Sophocless]

Originally Posted by Gorwales

Mal nen anderen Denkansatz wie sieht es mit Buffbots aus könnte es so funktionieren?

HotKeySet("{NUMPAD7}", "buffschleife")
HotKeySet("{NUMPAD8}", "pause") ;
HotKeySet("{NUMPAD9}", "ende")

func buffschleife()
$active = True
While $active = True
Send ("{2}");Speedpot auf Taste 2
sleep 10
Send ("{3}");Attakspeedpot auf Taste 3
sleep 600000 ;Cooldown des Buffs in dem Fall Speedpot
Wend
Endfunc

func pause()
$active = False
Endfunc ;==>pause

Func ende()
Exit
EndFunc ;==>ende

joa schaut gut aus.... allerdings habe ich bei mir das problem beim buffbot gehabt, das ich dadurch das ich nichtmehr draufgeachtet habe wann gebufft wird, gerade andere aktionen ausgeführt und so wurde nur ein teil der buffs gecastet. vlt könnt mann ja noch so eine art block der eigenen befehle reinhauen. dann erscheint nen tooltip sagt wird gebufft.... dann wird gebufft und der tooltip geht wieder weg. der Block verhindert dann das mann 5 sekunden vor buff anfang (timing... kA xD) selbst keine tasten befehle mehr reinhauen kann.... also nur noch bewegen per maus so wäre gewährleistet das keine aktion ausgeführt wird wenn gebufft wird.
aber das script im eigendlichen sinne ist gut ... =) und da es sich in dem falle nur um die BuffPots handelt würd es ja kein problem geben beim "buffen" da diese ja funktionieren egal was mann macht....

[schackalus]

Ich habe eine Frage .
Ich habe mir dieses Programm heruntergeladen und installiert.
Dann habe ich mir den obrigen Script kopiert und dann eingefügt und die beliebigen Tasten eingefügt.
Wie starte ich den Bot und so weiter(Bot starten,was machen um zu starten)
Danke liebes Forum