elitepvpers

elitepvpers (https://www.elitepvpers.com/forum/)
-   Rappelz (https://www.elitepvpers.com/forum/rappelz/)
-   -   Rappelz FarmBot (https://www.elitepvpers.com/forum/rappelz/514059-rappelz-farmbot.html)

snoppen 08/22/2010 02:23

I dont think the bot works anymore

timox 08/25/2010 01:55

Hey, ich habe mir jetzt die ganzen 29 Seiten durchgelesen bin aber nicht auf eine klare Lösung gestoßen welche das "Loot-und-danach-wieder-angreif-Problem" betrifft (AlphaOrk und MagicDave haben auch das selbe problem).
Ich benutze Windows 7 Home Premium mti natürlich 64-Bit, 32-Bit Farbentiefe,Bildschirm- und Spielformat beides 1024x768.
Ich habe aber auch das Script in das .exe Format formatiert und starte diese dann als Administrator, weil er sonst beim Starten des Launchers schon abbricht :/.

Hoffe auf Antwort

MfG Timox:)

schmuselord1 08/25/2010 09:04

und was war jetzt die frage?

timox 08/25/2010 15:51

Das Problem war/ist (wie schon oben genannt) ,dass nach dem erlegen der ersten Monsters weder gelootet noch weiter angegriffen wir.
Der Bot läuft aber weiter sodass mit Num1 ein erneuter angriff ausgeführt wird.

MfG Timox:)

schmuselord1 08/25/2010 16:28

tja. das bedeutet wohl, dass er nicht aus der attackschleife rauskommt. anscheinend merkt der bot nicht, dass der mob stirbt ^^ musst da mal gucken

timox 08/25/2010 20:22

Naja so gute AutoIT kenntnisse habe ich nun auch nicht^^
Außerdem weiß ich auch nicht wo genau welche Aktionen stehen bzw. finde mich in dem Wirr-Warr nicht zurecht :/

Wäre cool wenn jemand das vorbereiten könnte oder eine kleine Einweisung in das Script schreiben könnte.

MfG Timox:)

fize 08/25/2010 20:31

hab das selbe prob naja vieleicht wirds ja mahl was xD

timox 08/25/2010 20:59

@Sophocless
Gibt es sicher nicht noch weitere Einstellungen die vorgenommen werden müssen??An welcher stelle steht im Script die Kampf-Loot Ablauf??


Bei ziemlich vielen geht die Loot/Kampf Funktion nicht.
Vielleicht will sich jemand mal etwas intensiver damit beschäftigen und die lösung auf das Problem posten.

Für mich persönlich würde es reichen wenn der Bot nur angreift und lootet denn z.B. Buffs kann man ja alle 30 min selber aktivieren.

MfG Timox:)

schmuselord1 08/25/2010 21:48

Quote:

Originally Posted by timox (Post 6553879)
Naja so gute AutoIT kenntnisse habe ich nun auch nicht^^
Außerdem weiß ich auch nicht wo genau welche Aktionen stehen bzw. finde mich in dem Wirr-Warr nicht zurecht :/

Wäre cool wenn jemand das vorbereiten könnte oder eine kleine Einweisung in das Script schreiben könnte.

MfG Timox:)

das ist kein wirrwarr. das braucht nur ein wenig zeit. guck dir mal jede einzelne funktion an. ich denke dann wirste es wissen

numenai 08/25/2010 23:52

i have the rappelz.ink problem i got the bot/script in a folder with the launcher inside it (renamed Rappelz.exe) but i dont get it to work someone tell what im doing wrong ?

schmuselord1 08/26/2010 01:20

Quote:

Originally Posted by numenai (Post 6556292)
i have the rappelz.ink problem i got the bot/script in a folder with the launcher inside it (renamed Rappelz.exe) but i dont get it to work someone tell what im doing wrong ?

no one can. you neither described the error nor did you say how exactly you tried to run it

numenai 08/26/2010 01:34

Quote:

Originally Posted by schmuselord1 (Post 6556859)
no one can. you neither described the error nor did you say how exactly you tried to run it

I open the bot with the script i press the script it open bot windown and i put it all as i want then i hit start button but then it shows the error msg about rappelz.ink

schmuselord1 08/26/2010 11:33

did you run your bot as administrator?

sliwja 08/26/2010 11:58

ok bot works but it kill one mob and then do nothing? somenthing wrong in scrypt with mobshealthempty?

schmuselord1 08/26/2010 13:18

yea. you might have to replace coordinates or/and the hexa color

sliwja 08/26/2010 14:44

my changes:
...
$mobhealthempty = PixelGetColor( 491, 28) ;150907 = health empty
...
Func attack()
While Hex($mobhealthempty, 6) = "AC613E"

but still kill one mob and dosent do nothing
---------------------------
why somone used 3 colors to check mobs hp? couldent it be on the same hight coordinate?

anyone had the same problem with atack one mob and stop?
----------------------------
worked
do the same colors and the same hight coords at all mobs hp check :)

timox 08/26/2010 16:36

hey sliwja
what did you exactly??

Timox :)

schmuselord1 08/26/2010 16:40

you have to reinitialize the color within the loop.

like this:

while hex($color, 6) <> "xxxxxxx"
attack()
$color = PixelGetColor(xxx, xxx)
WEnd

timox 08/26/2010 18:14

Hmm das geht auch nicht wenn ich nochmal selber meine Farben auslesen lass >.<

MfG Timox:)

sliwja 08/26/2010 19:29

Im not the programer just trying what i understand.
Schmuselord1 how can i know what i have color (ur "xxxxxx") and how can i make good coordinate?

i used screen capture to see width coordinate in windows (dont know is it perfectly)

then chose the same color and the same hight which working on mobhealthfull
and then change query
so its look something like that:
...
$mobhealthfull = PixelGetColor( 1262, 28) ;AC613E = health full
$mobhealthempty = PixelGetColor( 1090, 28) ;150907 = health empty

also chaged
$mobhealth3v4 = PixelGetColor(1174, 28)
...
Func attack()
While Hex($mobhealthempty, 6) = "AC613E"
readcolor()
...
Sleep($sleepattack2)
If Hex($mobhealth3v4, 6) = "AC613E" Then
While Hex($mobhealth3v4, 6) = "AC613E"
checkskills1()
WEnd
<<<<dont know for what it is but that changed>>
Fuc checkmageskill()
While Hex($mobhealthempty, 6) = "AC613E"


i dont know is it ok but working.
now have problem with my hp bar, also seems to dosent work.

and when skills working? (working first skill when i choose MG class)

timox 08/26/2010 19:55

@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:)

schmuselord1 08/26/2010 22:29

Quote:

Originally Posted by timox (Post 6566000)
@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 08/26/2010 22:37

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

schmuselord1 08/27/2010 00:07

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 08/27/2010 06:56

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 08/27/2010 10:27

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

sliwja 08/27/2010 11:39

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 08/27/2010 13:52

@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;)

sliwja 08/27/2010 14:03

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

schmuselord1 08/27/2010 15:42

Quote:

Originally Posted by timox (Post 6573754)
@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 08/27/2010 16:15

need help
 
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.

timox 08/27/2010 19:27

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

Originally Posted by schmuselord1 (Post 6569209)
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

schmuselord1 08/27/2010 21:09

Code:

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 08/27/2010 21:29

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 08/27/2010 22:57

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

Fisl 08/27/2010 23:47

hmm funzt immer noch ned
 
hab jz mal deinen code zum auslesen der farben genommen nur es scheint alles seine richtigkeit zu haben nur funzts ned. kanns sein dass die mobs gelb sein müssen oder so ich checks sonst einfach netmehr

die farben werden ausgelesen und stimmen mit den standartfarben überein nur er funktioniert einfach ned so richtig aufm rechner. aufm rechner vom bruder funzt er anscheinend bis aufs pot using bzw hp tränke nehmen

der code is ja ned wirklich so komplex dass ich da jz ned durchblicken würde nur ich komm einfach ned drauf was es problem sein könnte ausser dass die koords ned stimmen nur kein plan wie ich die richtigen bekommen

mim windows 7 koords tool auf keinen fall hab ich scho gesehn

vl weis ja doch noch wer rat.

der looti bug is mir wayne ich will dass das teil ordentlich chipt und angreift sodass de mobs down gehn

plz help leutz will ned nen ganz neues autoit prog schreibn keine lust dazu in den ferien -.-

Fisl 08/28/2010 00:10

hmm vl kann mir ja jz wer helfen
 
hab den umfang des problems schonmal eingegrenzt auf eine funktion

Func attack()
While Hex($mobhealthempty, 6) = "A35139"
readcolor()
;If $mageclass = 1 Then ;attack schleife mageclass
; checkmageskill()
; 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()
MsgBox(0,"HexColour","myhealthhalf: " & Hex($myhealthhalf) & ",$myhealthnearfull: " & Hex($myhealthnearfull) & " " & "mobhealthfull: " & Hex($mobhealthfull) & " " & "mobhealthempty: " & Hex($mobhealthempty))
Sleep(100)
WEnd
EndIf
;EndIf
WEnd
;Sleep($sleeprandohundred)
;$skillcount = 0
;$skillrandom = Random(1, $skillrandomcounted, 1)
If $r_lootpet <> 1 Then
loot()
EndIf
;healthcheckskills()
;pethealthcheckskills()
EndFunc

so sieht die func jz aus weil ich sehen wollte wo ich hier drin hängen bleibe und wenn ich die message box vor den checkskills hinsetzte wirds aufgerufen und danach is nada

weis wer woran das liegen kann

Fisl 08/28/2010 01:19

habs hinbekommen nach langer sucherei
 
hatte ne schöne endlosschleife

habe keinen plan warums bei manchen geht und es ist mir einleuchtend dass es so gehört wie ichs jz gemacht hab is in c# und java mit random eigentlich auch genauso

$skillrandom = Random(1, $skillrandomcounted, 1)+1
das + 1 zum schluss hat geholfen maybe hat ja noch wer das prob

greetz und danke für den nice bot werd jedoch wohl noch einiges ummachen gefällt mir noch ned so ganz und so schwer is autoit im vergleich zu c# ma wirklich ned xD

greetz leutz macht weiter so. erste ma dass ich community beanspruche aber das gefällt mir :P

Tonic1900 09/03/2010 20:09

gzgzgzgzgzgzgzgzg and THX THX THX

Der bot ist so weit klasse alles ok aber die Tränke und Rollen nimmt er nicht sehr Schade...
würde mich freuen wenn mann am bot noch ein wenig arbeiten würde das er nicht nur zu 80% geht sondern zu 100% ^^ aber da ich ein kleines licht am Progra. bin sage ich mal THX THX für so ne Arbeit ...
Wenn der Bot neu gemacht ist das er Tränke und rollen nimmt bitte ich um Link zum testen thx

sliwja 09/03/2010 22:47

i trying to little rebuild this bot for mana but have problem why only one skill is using? even i clear some code. I tride diferents combinations :(
if i have half mp want to do 3 things.
-------------------------
solve problem


All times are GMT +2. The time now is 12:36.

Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.