Farmbot - For 64 Bit OS

Sternburgdiesel · 01/20/2010, 18:50

Aloha,

Da ich ein Anfänger auf den Gebiet bin habe ich Anfangs ein parr fragen.

Lauft der Bot auch auf Windows Vista 32 Bit?

Und könnte mir bitte jemand eine Schritt für Schritt anleitung schreiben?

Ich weiß is vill eine dumme frage, aber hab echt kein plan von soetwas.

Grüße,

n1k1sback · 01/20/2010, 22:41

lesen hilft weiter....denn dann wüsstest du, dass der bot nicht auf 32bit os läuft, da gg dort autoit blockt.

und die sache mit dem guide wurde oft genug angesprochen und auch da hilft lesen weiter

huyhuy · 01/21/2010, 03:22

couldn't get it to send anything in vista x64. could anyone tell why?

unchris · 01/21/2010, 11:22

Any way to get this in English and does this still work

lexomat · 01/21/2010, 18:07

Getestet mit einer frischen Version von Windows 7 64-bit, sowie einer Neuinstallation von Rappelz.

Fazit: Funktioniert nicht. Simple Keys/Mouscommandos werden nicht an das Rappelz-Window gesendet.

Irgendwelche Ideen?

n1k1sback · 01/22/2010, 14:39

jo:
erst rappelz starten und eingeloggt sein und dann erst das compilierte script starten

aber ich habe jetzt auch mal ne frage^^

ich habe abshooters script minimal verändert um es für meinen mage anzupassen.

mein Problem ist allerdings, dass der char sich nicht selbst bufft.

meine buffs liegen auf: strg+1, strg+2, shift+1, shift+2

da is der code:

Code:

HotKeySet("{NUMPAD1}", "combo")
HotKeySet("{PAUSE}", "pause")
HotKeySet("{END}", "ende")

Global $timerinit = TimerInit()
Global $funktionan = False
Global $chipfarbe
Global $maus
Global $moven
Global $drehung
Global $chip
Global $mobhealth
Global $bottrap
Global $bottrap2
Global $bottrap3
Global $timerinit
Global $timer
Global $health1
Global $health4
Global $mana1
Global $cdlebenssauger
Global $rpskill1
Global $rpskill2
Global $rpskill3
Global $chipart
Global $chipsalle
Global $cooldown[13]
$cooldown[0] = 2000 ;cooldown chip
$cooldown[1] = 800
$cooldown[2] = 800
$cooldown[3] = 121000;ausweichen
$cooldown[5] = 500000

$cooldown[9] = 65000 ;hpot cd
$cooldown[10] = 181000 ;hnugget cd
$cooldown[11] = 65000 ;mpot cd
$cooldown[12] = 181000 ;mtee cd
Global $skillzuletztgenutzt[13]

Global $dualdauer = 73000
Global $dualdauersave = 71000
Global $dualtime
Global $dualtimer
Global $kreatur = 0
Global $dualtimerinit = TimerInit()
Global $dcooldown = 63000
Global $beschwoerenzuletztgenutzt

$standard = InputBox("Einstellungen?", "Letzt bekannte Einstellung? 1 - JA | 2 - NEIN")

If $standard = "2" Then
    Global $healthnuggets = InputBox("Nuggets", "Wieviel Nuggets hast du?") ; hnuggets anzahl eingeben
    IniWrite(@ScriptDir & "\script.ini", "Health", "nuggets", $healthnuggets) ; hnuggets anzahl schreiben
    Global $manatees = InputBox("Tee", "Wieviel Tee hast du?") ; mtees anzahl eingeben
    IniWrite(@ScriptDir & "\script.ini", "Mana", "tees", $manatees) ; mtees schreiben

    $chipfarbe = "78CBF7"

EndIf

If $standard = "1" Then
    $chipsart = IniRead(@ScriptDir & "\script.ini", "Chips", "art", "3")
    $chipsinput = IniRead(@ScriptDir & "\script.ini", "Chips", "anzahl", "100")
    $healthnuggets = IniRead(@ScriptDir & "\script.ini", "Health", "nuggets", "10")
    $manatees = IniRead(@ScriptDir & "\script.ini", "Mana", "tees", "10")

    $chipfarbe = "78CBF7"
EndIf

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

Func kameradrehen()
    MouseMove(520, 380)
    MouseDown("right")
    MouseMove(900, 380)
    MouseUp("right")
    Sleep(10)
EndFunc   ;==>kameradrehen

Func move()
    MouseMove(600, 200)
    MouseClick("left")
    Sleep(10)
EndFunc   ;==>move

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

Func buffen()
    Send("^{F4}")
    Sleep(100)
    Send("^{F5}")
    Sleep(100)
    Send("+{F4}")
    Sleep(100)
    Send("+{F5}")
    Sleep(100)
    $skillzuletztgenutzt[5] = $timer
EndFunc   ;==>buffen

Func chippen()
    Send("{2}")
    $skillzuletztgenutzt[0] = $timer
    Sleep(100)
EndFunc   ;==>chippen

Func farbenauslesen()
    $health1 = PixelGetColor(11, 54) ;orange
    $health4 = PixelGetColor(486, 422) ;totsafe
    $mana1 = PixelGetColor(108, 67)
    $mobhealth = PixelGetColor(489, 27)
    $bottrap = PixelGetColor(441, 16)
    $chip = PixelGetColor(477, 60)
    $bottrap2 = PixelGetColor(446, 6)
    $bottrap3 = PixelGetColor(436, 6)
    $cdlebenssauger = PixelGetColor(160, 710)
    $chipsalle = PixelGetColor(58, 720)
    Sleep(10)
EndFunc   ;==>farbenauslesen

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

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 hnuggetready()
    If ($timer - $skillzuletztgenutzt[10]) >= $cooldown[10] Then
        Return True
    EndIf
EndFunc   ;==>hnuggetready

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

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

Func dualbereit()
    If $timer - $beschwoerenzuletztgenutzt >= $dcooldown Then
        Return True
    EndIf
EndFunc   ;==>dualbereit

Func kreaturzurueck()
    If $dualtimer - $dualtime > $dualdauer Then
        Return True
    EndIf
EndFunc   ;==>kreaturzurueck

Func kreaturzuruecksave()
    If $dualtimer - $dualtime > $dualdauersave Then
        Return True
    EndIf
EndFunc   ;==>kreaturzuruecksave

Func nachhealth()
    If buffready() = True Then buffen()
    If Hex($mobhealth, 6) = "883422" Then
        If Hex($bottrap, 6) <> "A780FD" And Hex($bottrap2, 6) <> "A780FD" And Hex($bottrap3, 6) <> "A17BF3" Then
            If Hex($chip, 6) = $chipfarbe Then ;attackschleife
                If Hex($cdlebenssauger, 6) <> "1C2122" Then
                    Send("{F5}")
                    Sleep(2000)
                EndIf

                If skill1bereit() = True Then
                    Send("{3}")
                    Sleep(1000)
                    $skillzuletztgenutzt[1] = $timer
                EndIf
				
				If skill2bereit() = True Then
                    send("{4}")
                    Sleep(1000)
                    $skillzuletztgenutzt[2] = $timer
                EndIf


                Send("!{1}")
                Sleep(500)

                $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
    EndIf
EndFunc   ;==>nachhealth

Func nachmana()
    If buffready() = True Then buffen()
    If Hex($mobhealth, 6) = "883422" Then
        If Hex($bottrap, 6) <> "A780FD" And Hex($bottrap2, 6) <> "A780FD" And Hex($bottrap3, 6) <> "A17BF3" Then
            If Hex($chip, 6) = $chipfarbe Then ;attackschleife

                If skill1bereit() = True Then
                    Send("{3}")
                    Sleep(1000)
                    $skillzuletztgenutzt[1] = $timer
                EndIf
				
				If skill2bereit() = True Then
                    send("{4}")
                    Sleep(1000)
                    $skillzuletztgenutzt[2] = $timer
                EndIf


                Send("!{1}")
                Sleep(500)

                $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
    EndIf
EndFunc   ;==>nachmana



Func combo()
    $funktionan = True
    SendKeepActive("Rappelz")
    Opt("PixelCoordMode", 2)
    Opt("MouseCoordMode", 2)
    While $funktionan = True
        farbenauslesen()
        $timer = TimerDiff($timerinit) ;timer init
        $timer = $timer + 3600000 ; timer + 1stunde
        $dualtimer = TimerDiff($dualtimerinit)
        $dualtimer = $dualtimer + 180000
        If Hex($chipsalle, 6) <> "0D0D0D" And $healthnuggets > 1 And $manatees > 1 Then
            If Hex($health1, 6) = "23110D" And Hex($health4, 6) = "BFC1C0" Then Exit
            If Hex($health1, 6) <> "BD7641" Then
                If Hex($health1, 6) <> "AC3F40" Then
                    If Hex($mana1, 6) = "8499C3" Then
                        If buffready() = True Then buffen()
                        If Hex($mobhealth, 6) = "883422" Then
                            If Hex($bottrap, 6) <> "A780FD" And Hex($bottrap2, 6) <> "A780FD" And Hex($bottrap3, 6) <> "A17BF3" Then
                                If Hex($chip, 6) = $chipfarbe Then ;attackschleife

                If skill1bereit() = True Then
                    Send("{3}")
                    Sleep(1000)
                    $skillzuletztgenutzt[1] = $timer
                EndIf
				
				If skill2bereit() = True Then
                    send("{4}")
                    Sleep(1000)
                    $skillzuletztgenutzt[2] = $timer
                EndIf


                Send("!{1}")
                Sleep(500)

                                    $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
                        EndIf
                    Else
                        If mteeready() = True Then
                            Send("+{F5}")
                            $skillzuletztgenutzt[12] = $timer
                            $manatees = $manatees - 1
                            Send("+{5}")
                            IniWrite(@ScriptDir & "\script.ini", "Mana", "tees", $manatees)
                            Sleep(500)
                        EndIf
                        If mpotready() = True Then
                            Send("+{6}")
                            Sleep(500)
                            $skillzuletztgenutzt[11] = $timer
                        EndIf
                        nachmana()
                        ;wenn mtee cooldown nicht dann trinke
                    EndIf
                Else
                    ;rot
                    If hpotready() = True Then
                        Send("!{6}")
                        Sleep(100)
                        $skillzuletztgenutzt[9] = $timer
                    EndIf

                    If hnuggetready() = True Then
                        Send("!{5}")
                        $healthnuggets = $healthnuggets - 1
                        $skillzuletztgenutzt[10] = $timer
                        IniWrite(@ScriptDir & "\script.ini", "Health", "nuggets", $healthnuggets)
                        Sleep(100)
                    EndIf



                    Send("!{z}")
                    Sleep(50)
                    MouseClick("left", 482, 390)
                    Sleep(50)
                    MouseClick("left", 450, 216)
                    Sleep(50)
                    Exit

                    nachhealth()
                    ;wenn hpot cooldown nicht dann esse
                EndIf
            Else
                ;orange
                If hpotready() = True Then
                    Send("!{6}")
                    Sleep(100)
                    $skillzuletztgenutzt[9] = $timer
                EndIf

                If hnuggetready() = True Then
                    Send("!{5}")
                    $healthnuggets = $healthnuggets - 1
                    $skillzuletztgenutzt[10] = $timer
                    IniWrite(@ScriptDir & "\script.ini", "Health", "nuggets", $healthnuggets)
                    Sleep(100)
                EndIf

                nachhealth()
                ;wenn hnugget cooldown nicht dann esse
            EndIf
        Else
            ;chipsalle oder tees / nuggets
            Send("!{z}")
            Sleep(50)
            MouseClick("left", 482, 390)
            Sleep(50)
            MouseClick("left", 450, 216)
            Sleep(50)
            Exit
        EndIf
    WEnd
EndFunc   ;==>combo

Func pause()
    $funktionan = False
    Sleep(10)
EndFunc   ;==>pause

Func ende()
    Exit
EndFunc   ;==>ende

While 1
    Sleep(50)
WEnd

NewWorld2 · 01/22/2010, 21:16

Das erste was mir einfällt ist die cast time der buffs und dein sleep .!?
Und schreib auch mal in die Combo das er sich buffen soll.
sag ma bescheid obs klappt

n1k1sback · 01/22/2010, 21:56

Die buffs sind instant und die sleepzeit dazwischen ist doch bei buffen() angegeben, damit das buffen bei nem kleinen lag nicht abgebrochen wird.

Die buffanweisung ist doch auch in der combo() anweisung bei der Bedingung If buffready() = true Then buffen()

oder habe ich da iwas falsch verstanden?

NewWorld2 · 01/23/2010, 17:52

Du hast ein sleep von 100 das sind 100milisekunden ... wen deine casttime bei windwaffe oder so aber länger ist sind die buffs danach hinfällig !
stell einfach mal auf 5000 ( 5sek) und schau obs dan funzt ....

Sry habs bei combo nicht gesehen weils so zwichen drin steht ^^

n1k1sback · 01/25/2010, 13:47

habs auf 5000 gestellt und funzt trotzdem nicht....kp was los is

Tuor · 01/25/2010, 20:27

Deine buffs sin doch auf 1 und 2 aber der Bot drückt F4 und F5... könnte vll daran liegen?^^

n1k1sback · 01/25/2010, 20:48

OMG

manchmal sieht man den wald vor lauter bäumen nicht....ganau das wars^^

sollte zumindest nur daran gelegen haben^^

ich probiers gleich aus xP

NewWorld2 · 01/25/2010, 21:08

6 augen sehen mehr als 4 :P

sirsmoka · 01/26/2010, 12:02

Hallo Leute

ich wollte das ganze auch mal versuchen habe aber massiv Pobleme. Ich habe alle anweisungen befolgt, aber wenn ich das farbauslesescript starte bekomme ich immer gesagt das script ist auf pause modus. zudem hängt das bild sobald ich auf spiel gehe. und als farb ausgabe steht ständig nur 000000 da. hat jemand ne ahnung was ich falsch mache?

mfg

EDIT:

Ich habe Windows 7 64 Bit
Ähm Framework 1.0 (x86) update grad auf 4.0
Als admin geöffnet (benutzerkontensteuerung deaktiviert)

trotzdem ist das script dauernd auf pause.
Ich hab anscheinend was zum laufen gebracht aber es funktioniert nur auf dem desktop und nicht im rappelzfenster.

KentuckyFC · 01/26/2010, 13:36

Quote:

Originally Posted by sirsmoka

Hallo Leute

ich wollte das ganze auch mal versuchen habe aber massiv Pobleme. Ich habe alle anweisungen befolgt, aber wenn ich das farbauslesescript starte bekomme ich immer gesagt das script ist auf pause modus. zudem hängt das bild sobald ich auf spiel gehe. und als farb ausgabe steht ständig nur 000000 da. hat jemand ne ahnung was ich falsch mache?

mfg

1. Hast du Windows Xp/Vista/Se7en als 64bit version?
2. Hast du Net framework 3.5?
3. Als Administrator geöffnet (Nur in Vista/Se7en benötigt)

Wenn dies alles nicht hilft einfach Kompabilitäts modus auf Windows xp probieren