Rappelz FarmBot

[timox]

@sliwja
that's a program scripted by me

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

[schmuselord1]

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.

[timox]

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

Attack-Schleife:

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?!

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

[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.

[timox]

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

[kaizerblack]

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

[sliwja]

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?

[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:

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

[sliwja]

i see all have other colour
why dont do that?

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

and we have one colour to full and empty health

[schmuselord1]

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

[Fisl]

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 kleben.

[timox]

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

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

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

[schmuselord1]

Func loot()
$lootcounter = Random (5, 8, 1)
While $sleepcounter < $lootcounter
$sleeprandohundred = Random(300, 400, 1)
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

[timox]

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

[sliwja]

found solve of colour

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