Farmbot - For 64 Bit OS

[D00MR4ZR]

Does this even work?

[NewWorld2]

Ausführen als Admin FTW.....

So jetzt mal ans schreiben gehen

[Tuor]

Hallo,
ich habe kürzlich angefange mit autoit rumzuspielen, bin aber noch nicht wirklich gut darin. Jedenfalls hab ich angefangen einen bot zu schreiben, allerdings macht der nicht so ganz das was er machen sollte aber ich finde das Problem einfach nicht
ich stell mal den Code rein und hoffe das mir jemand helfen kann

PHP Code:

HotKeySet("{NUMPAD1}", "main")
HotKeySet("{NUMPAD3}", "ende")
HotKeySet("{NUMPAD2}", "pause")




Global $timerinit = Timerinit()
Global $timer
Global $farming = False
Global $skilltimer1
Global $skilltimer2
Global $skilltimer3
Global $skilltimer4
Global $skilltimer5
Global $skilltimer6
Global $skilltimer7
Global $skilltimer8
Global $cooldown1 = 600000 ;vitbuff
Global $cooldown2 = 600000 ;speedpot
Global $cooldown3 = 600000 ;atkpot
Global $cooldown4 = 90000 ;Energieaufladung
Global $cooldown5 = 60000 ;hppot
Global $cooldown6 = 180000 ;nugget
Global $cooldown7 = 1200 ;chip
Global $cooldown8 = 3000 ;sphaerenaufladung
Global $buffready
Global $moblebt
Global $sphaeren = 0
Global $sphaerenready
Global $tabben
Global $pixel
Global $buff
Global $health
Global $chip


Func sphaeren()
    If $sphaeren = 2 Then
        $sphaerenready = True
    Else
        If ($timer - $skilltimer8) < $cooldown8 Then
            Send ("{F5}")
            $skilltimer8 = $timer
            $sphaeren = $sphaeren + 1
            Sleep(900)
        EndIf
    EndIf
EndFunc



Func buff()
    If ($timer - $Skilltimer1) < $cooldown1 Then
        If ($timer - $Skilltimer2) < $cooldown2 Then
            If ($timer - $Skilltimer3) < $cooldown3 Then
                $buff = True
            Else
                Send ("!{F12}")
                $Skilltimer3 = $timer
                $sphaeren = $sphaeren - 1
                Sleep(100)
            EndIf
        Else
            Send ("!{F11}")
            $Skilltimer2 = $timer
            Sleep(100)
        EndIf
    Else
        Send ("!{F10}")
        $Skilltimer1 = $timer
        Sleep(1200)
    EndIf
EndFunc



Func health()
    $pixel = PixelGetColor(120, 55)
    If  Hex($pixel, 6) = "ADCC89" Then
        $health = True
    Else
        If ($timer - $skilltimer4) < $cooldown4 Then
            Send ("{F9}")
            Sleep(1200)
            $skilltimer4 = $timer
            $sphaeren = $sphaeren - 2
        Else
            If ($timer - $skilltimer5) < $cooldown5 Then
                Send ("+{F9}")
                Sleep(100)
                $skilltimer5 = $timer
            Else
                If ($timer - $skilltimer6) < $cooldown6 Then
                    Send ("+{F11}")
                    Sleep(100)
                    $skilltimer6 = $timer
                EndIf
            EndIf
        EndIf
    EndIf
EndFunc



Func chip()
    $pixel = PixelGetColor(479, 59)
    If  Hex($pixel, 6) = "F6D1A7" Then
        $chip = True
    Else
        If($timer - $skilltimer7) < $cooldown7 Then
            Send("{F3}")
            $skilltimer7 = $timer
        EndIf
    EndIf
EndFunc



Func loot()
    Send ("{F2}")
    Sleep(100)
    Send ("{F2}")
    Sleep(100)
    Send ("{F2}")
    Sleep(100)
    Send ("{F2}")
    Sleep(100)
    Send ("{F2}")
    Sleep(100)
    Send ("{F2}")
    Sleep(100)
    Send ("{F2}")
    Sleep(100)
    Send ("{F2}")
    Sleep(100)
    Send ("{F2}")
    Sleep(100)
    Send ("{F2}")
    Sleep(100)
EndFunc




Func search()
    If $tabben = 3 Then
        MouseMove(500, 380)
        MouseDown("right")
        MouseMove(550, 380)
        MouseUp("right")
        Sleep(10)
        MouseMove(512, 200)
        MouseClick("left")
        Sleep(10)
        $tabben = 0
    Else
        Send("{TAB}")
        $tabben = $tabben + 1
        Sleep(100)
    EndIf
EndFunc



Func main()
    SendKeepActive("Rappelz")
    Opt("PixelCoordMode", 2)
    Opt("MouseCoordMode", 2)

    $farming = True

    While $farming = True
        $timer = TimerDiff($timerinit)
        $sphaerenready = False
        $buff = False
        $chip = False
        $health = False
        sphaeren()
        If $sphaerenready = True Then
            buff()
            If $buff = True Then
                health()
                If $health = True Then
                    chip()
                    If $chip = True Then
                        Send("{F1}")
                        $loot = True
                    Else
                        $pixel = PixelGetColor(488,30)
                        If Hex($pixel, 6) = "281A12" And $loot = True Then
                            loot()
                        Else
                            search()
                        EndIf
                    EndIf
                EndIf
            EndIf
        EndIf
    WEnd
EndFunc

Func pause()
    $farming = False
    Sleep(10)
EndFunc

Func ende()
    Exit
EndFunc

While 1
    Sleep(50)
WEnd 


PS: Der bot ist für meinen Söldner gedacht, daher das mit den sphären

[NewWorld2]

Was macht er den was er nicht machen soll ?...
Ich lass ihn mal bei mir laufen eventuell finde ich ja den fehler ( keine hoffnung schöpfen bin auch nur anfänger)

[Tuor]

naja, er bufft sich nit, nimmt keine tränke und so. Er rennt eigendlich nur herum und tabbt mobs an, aber kein chip oder ähnliches...
nur wenn ich manuell einen mob anchipp oder er an jemanden vorbei kommt der nen angechippten mob hat versucht er ihn anzugreifen.

[n1k1sback]

Ich bin jetzt auch kein AutoIt experte aber mir kommt die chip schleife von den Bedingungen komisch vor...

mach doch copy-paste mit dem bot den Racador gepostet hat und pass ihn einfach an....dannn funzt das auch alles^^

vor allem is der bot direkt für nen gladi gemacht.....musst also denk mal nicht viel ändern

[D00MR4ZR]

Does it still work?

[Tuor]

ich glaub des funktioniert nimmer so ganz ~.~
GG hatte update, den rest könnt ihr euch denken ^^


Edit: ok, funktioniert doch... war mein Fehler

[marcx]

funktioniert noch wunderbar...

[SNSID]

Hy Leute.. also habe ma ne frage hab mi das programm runtergeladen und das gestartet es läuft ja im hintergrund... ich habe mal alles was racador dort eingetragen hat kopiert und gestartet aber er fängt net ma an...kan ich das den einfach kopieren und einfügen in der hoffnung das er geht???

[TurboGolom]

hab auch mal ne frage und zwar hab ich das script bei auoIt gestartet im game Numpad gedrückt aber es passiert nichts xD desweiteren kann mir einer erklären wie ich das mit dem farbabgleichen mach weil das versteh ich absolut nicht
vielen dank für die Hilfe

[n1k1sback]

@ doomr4zor

the bot works fine

an die leute, die frage warum der bot nicht läuft

1. schaut euch die erste zeile vom code an....ihr wedet schnell feststellen, dass nur "num" drücken nix bringt

2. ohne autoit kenntnisse könnt ihrs gleich lassen...allerdings ist autoit sehr leicht anzueignen
-->googelt mal nach autoit guide.....das sollte helfen

3. der bot muss von EUCH komplett auf euren char abgestimmt werden....einfach mal laufen lassen wird nix bringen, es sei denn hier habt nen gladi und die selbe tastenbelegung wie Racador

[gotar]

kann mir jemand nochmal erklären wie man die farben aus dem farbenscrypt herrausfindet?

[n1k1sback]

1. in rappelz eingeloggt sein (1024*768)
2. farbe chip script als admin starten
3. mob chippen
4. farbe ablesen

[gotar]

ok danke für die schnelle antwort