Rappelz FarmBot

@sliwja
that's a program scripted by me

Quote:

HotKeySet("{~}","_exit") HotKeySet("{+}","_getdata") Func _exit() Exit EndFunc Func _getdata() $pos = MouseGetPos() $color = PixelGetColor($pos[0],$pos[1]) $colorHex = Hex($color) MsgBox(0,"Mouse Data","Posotion:" & $pos[0] & "," & $pos[1] & " " & "Color Decimal:" & $color & " " & "Color Hex:" & $colorHex) ; MsgBox(0,"Mouse Pos","Pos:" & $pos[0] & "," & $pos[1]) ; MsgBox(0,"Mouse Color Dec","Color Dec:" & $color) ; MsgBox(0,"Mouse Color Hex","Color Hex:" & $colorHex) Sleep(100) EndFunc While 1 Sleep(50) WEnd

Description:
-start it
-use "~" to exit and "+" to get position and color
-maybe you have to open another litte folder so rappelz is in background

@SchmuseLord1
Ich habe auf jedenfall die richtige Farbe mit der dazu passenden Position eingegeben doch er lootet nicht und greift nur ein Monster an :/
Ich habe bei Func readcolor() bei "1024x768"
$mobhealthempty = PixelGetColor(490 , 30) ;[linie 1194] eingegeben (selber mit nem eigenen Programm ausgelesen)
und bei Func attack()
While Hex($mobhealthempty, 6) <> "23110D" ; (er kommt nicht aus der Angriffschleife raus :/)

Ist da ein Fehler oder fehlt da noch etwas??

MfG Timox:)

Quote:

Originally Posted by timox @sliwja that's a program scripted by me Description: -start it -use "~" to exit and "+" to get position and color -maybe you have to open another litte folder so rappelz is in background @SchmuseLord1 Ich habe auf jedenfall die richtige Farbe mit der dazu passenden Position eingegeben doch er lootet nicht und greift nur ein Monster an :/ Ich habe bei Func readcolor() bei "1024x768" $mobhealthempty = PixelGetColor(490 , 30) ;[linie 1194] eingegeben (selber mit nem eigenen Programm ausgelesen) und bei Func attack() While Hex($mobhealthempty, 6) <> "23110D" ; (er kommt nicht aus der Angriffschleife raus :/) Ist da ein Fehler oder fehlt da noch etwas?? MfG Timox:)

schick mir mal bitte die gesamte attackschleife+ mainschleife.

btw. wozu haste das programm geschrieben? sowas gibt es schon für autoit v3 (autoit window info). außerdem liest du vom ganzen bildschirm und nicht vom client.
dein programm wäre nur besser, wenn du bei print die farbe mitsamt koordinate in eine textdatei automatisch schreiben lassen würdest.

Also hat mir mein Programm falsche Daten genannt?!
Naja stimmt das kann man auch einfach mit IniWrite machen :/

Attack-Schleife:

Quote:

Func attack() While Hex($mobhealthempty, 6) <> "23110D" ;150907 readcolor() If $mageclass = 1 Then ;attack schleife mageclass magecheckskills1() sleep($sleeprandohundred) ElseIf $mageclass <> 1 Then ;attack schleife nicht mage If $r_angriffmodifier ="Alt" Then send("{ALTDOWN}") send($r_angrifftaste) send("{ALTUP}") ElseIf $r_angriffmodifier ="Strg" Then send("{CTRLDOWN}") send($r_angrifftaste) send("{CTRLUP}") ElseIf $r_angriffmodifier ="Shift" Then send("{SHIFTDOWN}") send($r_angrifftaste) send("{SHIFTUP}") ElseIf $r_angriffmodifier ="None" Then Send($r_angrifftaste) EndIf Sleep($sleepattack2) If Hex($mobhealth3v4, 6) = "C6776A" Then While Hex($mobhealth3v4, 6) = "C6776A" checkskills1() WEnd EndIf EndIf WEnd Sleep($sleeprandohundred) $skillcount = 0 $skillrandom = Random(1, $skillrandomcounted, 1) If $r_lootpet <> 1 Then loot() EndIf healthcheck() healthcheckskills() pethealthcheckskills() EndFunc

Und was genau ist die Main-Schleife??Die Combo-Func?!

Quote:

Func combo() SendKeepActive("Rappelz") ;Rappelz always in foreground Opt("PixelCoordMode", 2) ;pixel directly read from client Opt("MouseCoordMode", 2) $funktionan = True If $r_lootpet == 1 Then If $lootpetcounter = 0 Then If $r_resolution = "1600x900" Then MouseClick("left",531,886,1) sleep($sleeprandohundred) MouseClick("left",1406,721,1) $lootpetcounter = 1 ElseIf $r_resolution = "1024x768" Then MouseClick("left",240,755,1) Sleep($sleeprandohundred) MouseClick("left",832,588,1) $lootpetcounter = 1 EndIf EndIf EndIf ;mouse only moves in client While $funktionan = True readcolor() $timer = TimerDiff($timerinit) ;timer init $timer = $timer + 3600000 ; timer + 1stunde ;healthcheck() If Hex($mobhealthfull, 6) = "AC613E" Then If Hex($bottrap, 6) <> "A780FD" And Hex($bottrap2, 6) <> "A780FD" And Hex($bottrap3, 6) <> "A780FD" And Hex($bottrap4, 6) <> "A780FD" And Hex($bottrap5, 6) <> "A780FD" Then Sleep($sleeprandohundred) If Hex($chipactive, 6) = ($chipcolor) Then attack() Else If chipbereit() = True Then Chippen() Sleep(50) EndIf EndIf Else tabben() $drehung = $drehung + 1 If $drehung > 2 Then turncamera() $drehung = 0 $moven = $moven + 1 EndIf If $moven > 5 Then move() $moven = 0 EndIf EndIf Else tabben() $drehung = $drehung + 1 If $drehung > 2 Then turncamera() $drehung = 0 $moven = $moven + 1 EndIf If $moven > 5 Then move() $moven = 0 EndIf EndIf WEnd EndFunc

MfG Timox:)

deine farbauslese ist falsch. die war nicht im client. ich habs getestet. richtig ist folgendes:

While Hex($mobhealthempty, 6) <> "B77B52" ....
$mobhealthempty = PixelGetColor(488,28)


damit erfasst er den letzten hp-pixel.
ich hoffe es klappt. viel spaß damit, wenn ja.

Super jetzt greift er wenigstens schon mehr Monster an:) :
1.Hat er angegriffen aber mit etwas 1/4 Hp zurückgelassen und das nächste angegriffen.Loot ging nicht :/
Nachdem er drei Monster hatte hat er aufgehört und wenn ich Num1 gedrückt habe hat er nur einen weiter getabt :/

Seitdem Tabt der bot nurnoch auch wenn ich ihn ganz neu starte und greift nicht mehr an :( Ich habe aber nichts am Code verändert.

MfG Timox:)

#edit

just kidding
ich hatte keine chips mehr -.-
Da sollte man aber echt noch eine Funktion machen dass man es sich aussuchen kann ob gechippt werden soll.

MfG Timox:)

Hi....i tried to work out this bot but it seems it doesnt work! i am using 32-bit system, wondering if other people using 32-bit system manage to work this out! if somebody able to make it work can you please inform me how, step by step?

THanks :D

dosent work on 32-bit system and probably wont work.

tomix thx for script that will help me :)
btw
if i chose mage my pet wont atack?
thinking how many i need to change to dual summon or mayby someone have already done it?

@sliwja
SchmuseLord told me that my script doesn't work because it reads the position of the whole screen and not of the game screen :/
but this seems to work:

Quote:

While Hex($mobhealthempty, 6) <> "B77B52" .... $mobhealthempty = PixelGetColor(488,28)

@SchmuseLord
Nun lootet er aber immernoch nicht, sondern greift sofort das nächste Monster an :/
Gibt es da schon eine Lösung??

MfG

Timox;)

i see all have other colour :)
why dont do that?

Quote:

While Hex($mobhealthempty, 6) = "AC613E" .... (the same colour like fullhealth) $mobhealthempty = PixelGetColor(488,28)

and we have one colour to full and empty health

Quote:

Originally Posted by timox @sliwja SchmuseLord told me that my script doesn't work because it reads the position of the whole screen and not of the game screen :/ but this seems to work: @SchmuseLord Nun lootet er aber immernoch nicht, sondern greift sofort das nächste Monster an :/ Gibt es da schon eine Lösung?? MfG Timox;)

ja. geh mal bitte in die lootfunction. zeig, was dort drinne is

Brauche Hilfee

Habe jetzt die ganzen 31 Seiten durchgelesen nur ich bekomms immer noch ned zum laufen.

Der Bot Connected wunderbar. Wenn ich chippen + looten + angreifen im Bot konfiguriere, haut er den 1ten mob um dann ist sense. Habe versucht mithilfe eines weiteren auto it programms kords auszulesen und farbe zu ändern hat nix gebracht. Habs bei herumprobieren soweit ma geschafft gehabt dass er chippt und ein paar hittet aber keineswegs umgehaun hat.

Will das ganze unter 1024x768 zum laufen bringen nur ohne hilfe kann ich mir das in die :mofo: kleben.

@Fisl
Musst im script selber herrausfinden wo du das eintragen muss.

Quote:

Originally Posted by schmuselord1 deine farbauslese ist falsch. die war nicht im client. ich habs getestet. richtig ist folgendes: While Hex($mobhealthempty, 6) <> "B77B52" .... $mobhealthempty = PixelGetColor(488,28) damit erfasst er den letzten hp-pixel. ich hoffe es klappt. viel spaß damit, wenn ja.

@SchmuseLord

Quote:

Func loot() $lootcounter = Random (5, 8, 1) While $sleepcounter < $lootcounter Sleep( $sleeprandohundred ) Send("{2}") $sleepcounter += 1 Sleep( $sleeprandohundred ) WEnd $sleepcounter = 0 EndFunc ;==>loot lootfunktion if no lootpet available

probiers mal damit. ist dein lootbutton auch auf "2"?

wenns nicht geht, liegts daran, dass $r_lootpet = 1 ist. musst mal in der gui gucken, ob du da lootpet ausstellen kannst. ansonsten setz mal in der attack-schleife $r_lootpet auf 0

Wieso hat der Script ersteller das automatisch auf 2 gesetzt wobei man sich doch aussuchen kann auf welche Taste das liegen soll...
Ich hatte das auf ein aber haben mich auch schon gefragt was das bedeutensoll...

Naja danke :)
Ich probier es gleich aus.

MfG Timox:)

found solve of colour:)

Quote:

Func combo() ... While $funktionan = True readcolor() MsgBox(0,"HexColour","myhealthhalf: " & Hex($myhealthhalf) & ",$myhealthnearfull: " & Hex($myhealthnearfull) & " " & "mobhealthfull: " & Hex($mobhealthfull) & " " & "mobhealthempty: " & Hex($mobhealthempty)) Sleep(100)

now i know which colour is where :)