Farmbot - For 64 Bit OS

[schackalus]

Ich bin jetzt ein "bisschen" weiter im Programm.
Ich habe 1. Den Script mit meinen Skills und Cooldowns abgeglichen nun, den ganzen unteren Rest verstehe ich nicht aber die Farben der jeweiligen Chips bleiben doch bei jedem Spieler gleich oder??
So mein größtest Problem ist, wenn ich die Exe öffne kommt eine schwarze Konsole wenn ich jetzt Num1 drücke, kommt ein "AutoIt Error" Line199 (File "C:\Users\Name\Desktop\Rappelz\Rappelz-exe"):
Error: Unknown function name.

wer weiß weiter?
danke im vorraus!

[sungjin]

how you make this thing work sorry im noob never use this O_o please help?

[**~CHAMP~**]

nice

[schackalus]

What you need:
1) Windows Vista, 7 64 bit version and then just copy the script autoit open a program and then a farbscript download and then the color of the mob, and then analyze insert NumPad 1 and go

[schackal110]

ich habe ein Problem mit dem Bot er chippt,tabbt,lootet alles nur er macht keine anderen Skills außer den auf F3 Göttliches Kreuz ich will mich auch mal heilen auf F6 nur das macht der nicht.
Mein größtest Problem ist aber immer wenn ich Bot starte, macht der Mindere Lichtwaffe (F11) und ich will, dass der sich healt und auch andere skills mal macht
hier meine frage muss ich bei:

$cooldown[0] = 2000 ;Cooldown Chip // 2 sec
$cooldown[6] = 15000 ;Cooldown Kleine Heilung // 15 sec
$cooldown[4] = 10000 ; Cooldown Heiliger Schlag // 10 sec
$cooldown[3] = 15000 ;Cooldown Göttliches Kreuz // 15 sec
$cooldown[5] = 60000 ;Pot (Schnelligkeitstrank, etc) Cooldown // 10 min
$cooldown[10] = 60000 ;Manascroll // 60 sec
$cooldown[5] = 60000 ;Manapot // 60 sec
$cooldown[8] = 60000 ;Healthpot Cooldown // 60 sec
Global $skillzuletztgenutzt[13] ;Array für die Skills
Global $chipfarbe = "FE7AF2" ;Farbe des Chips unter dem Mob (Hex); hier Farbe der Koordinaten 477, 60 eintragen // ART DES CHIPS OBEN VERMERKT


z.B$cooldown[6] = 15000 ;Cooldown Kleine Heilung // 15 sec
Hinter dem Cooldown die Taste angeben, wo der skill ist? oder was? aber der macht keine kleine heilung aber immer mindere Lichtwaffe hier mein ganzer script!



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[6] = 15000 ;Cooldown Kleine Heilung // 15 sec
$cooldown[4] = 10000 ; Cooldown Heiliger Schlag // 10 sec
$cooldown[3] = 15000 ;Cooldown Göttliches Kreuz // 15 sec
$cooldown[5] = 60000 ;Pot (Schnelligkeitstrank, etc) Cooldown // 10 min
$cooldown[10] = 60000 ;Manascroll // 60 sec
$cooldown[5] = 60000 ;Manapot // 60 sec
$cooldown[8] = 60000 ;Healthpot Cooldown // 60 sec
Global $skillzuletztgenutzt[13] ;Array für die Skills
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(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()

;YETIBUFF
Send("^{Ctrl+F1}")
Sleep(3000)
$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
$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 ("!{F12}")
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("{F1}")
Sleep(1000) ;castingtime in ms +250 - 500 (auch bei skills ohne casttime)

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

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

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

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

If skill8bereit() = True Then
Send("^{F4}")
Sleep(50)
$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("{F1}")
Sleep(1000) ;castingtime in ms +250 - 500 (auch bei skills ohne casttime)

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

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

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

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

If skill8bereit() = True Then
Send("^{F4}")
Sleep(50)
$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 ;==>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("{F1}")
Sleep(1000) ;castingtime in ms +250 - 500 (auch bei skills ohne casttime)

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

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

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

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

If skill8bereit() = True Then
Send("^{F4}")
Sleep(50)
$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("!{F8}")
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

[sungjin]

hey schackalus that all i need
im using Windows Vista, 64 bit version what script you talking about and autoit where can i download that and a farbscript pls help me all the way. ty im really noob at this sorry for annoying you.. :X

[tMrz]

Here is a question. Is it possible to use buttons directly instead of typing the skills name? I'm on a server that I cannot actually type the name of the skills. Yet, don't think English codes will work with this one.

[schmuselord1]

buttons are pressed directly. at least with that bot

[tMrz]

Well, I am trying to manage to get attacks properly working, but no luck so far. I'm using an assassin, buffs seems to work fine tho but no chance on attacks and so on. (Am trying to attack with pet on "F2" / "2" button)

Edit; Don't care about the skill cds neither skills.

Edit 2 ; I'm running on Win7 x64 Ultimate, having a desktop resolution of 1280*1024 (Last option for resolution) and 1024*768 windowed mode for the game. But while translating one of the user comments, he told that there's no need for the exact res. And my ui is in Turkish by the way, don't know if the characters of the gui will make some conflicts. Tried to change one of the skill's name but had no luck.

[schmuselord1]

Originally Posted by tMrz

Well, I am trying to manage to get attacks properly working, but no luck so far. I'm using an assassin, buffs seems to work fine tho but no chance on attacks and so on. (Am trying to attack with pet on "F2" / "2" button)

Edit; Don't care about the skill cds neither skills.

Edit 2 ; I'm running on Win7 x64 Ultimate, having a desktop resolution of 1280*1024 (Last option for resolution) and 1024*768 windowed mode for the game. But while translating one of the user comments, he told that there's no need for the exact res. And my ui is in Turkish by the way, don't know if the characters of the gui will make some conflicts. Tried to change one of the skill's name but had no luck.

dude. have you ever tried to take a look on the source code? it only sends buttons such as F2 or 2 or whatever you want it to press. so turkish skillnamewont cause any trouble.
btw. you need to have 1024*768 for the game because it reads certain coordinates and checks its colour on your rappelz client. if you change the resolution it will cause the bot to malfunction due to the following displacement.

if you want to add some skills, you will have to take direct action on the code.

[tMrz]

Originally Posted by schmuselord1

you need to have 1024*768 for the game because it reads certain coordinates and checks its colour on your rappelz client.

You mean that I need to be on full screen or windowed? On windowed, as I said before, the bot keeps tabbing targets, buffs himself but no attack so far. (With the code that you posted, haven't changed anything on it.) On full screen, the bot keeps picking my life bar and pet's life bar, which I think that's the color picking of my life bar and pet's?. (Tried working both fabre chip and without it, both same.)

[FrostyCannon]

Do you play on a laptop or desktop? For some reason I have yet to get the bots to work on my laptop, it just does the tab mobs thing, but on the desktop it works perfect.

[Rappelz-Player]

Is this working with rappelz USA latest epic as of 19 August 2010

[gho0ostR]

kenn mich mit proggen überhaupt net aus

vl kann mir wer helfen:

xfire:weissiii
steam:gho0ostR

thx schon mal im vorraus

mfg

[kathyusha]

Hi,

is it possible that the bot doesn´t work with the german client?
because it doesn´t work on my desktop (win 7 64 Bit).
it seems that GG still blocks the keyboard input.
i got the autoit from autoit hompage and scite also from autoit Hp.
can any1 help me to get that bot run.

mfg Kathyusha