Rappels Bot by Bomberhack

09/09/2008 08:04 anbieter4trala#16
bevor hier kein source drin steht benutzt den bot keiner, denn das wäre zu unsicher.
du hast das ja mit autoit gemacht denk ich mal ?
09/09/2008 18:09 Bomberhack#17
Hallo

habe hier die Source Code

Also:


#include <GUIConstants.au3>
#include <Misc.au3>
#include <Array.au3>
$Form1_1 = GUICreate("Rappel´s Bot German by Bomberhack", 340, 200, 278, 199)
GUISetIcon("C:\136.ico")
$Start = GUICtrlCreateButton("Start", 80, 140, 91, 25, 0)
GUICtrlCreateGroup("", 180, 200, 1, 1)
$Label4 = GUICtrlCreateLabel("F1: Attack (mit Kreatur)", 10, 40, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("F3: Force Chip´s", 10, 60, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("F10: Pick up", 10, 80, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label1 = GUICtrlCreateLabel("Alle Attack Skills kommen auf F2", 10, 100, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label1 = GUICtrlCreateLabel("Eure Hauptleiste:", 10, 20, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label1 = GUICtrlCreateLabel("und auf F4-F9", 10, 120, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label1 = GUICtrlCreateLabel("Hier der Ultimaive Rappelz Bot", 10, 0, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label6 = GUICtrlCreateLabel("To exit press Ctrl + Alt + X", 10, 180, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
hotkeyset("^!x", "MeinExit")

Func Load()
EndFunc

Func Start()
Do
WinActivate("Rappelz")
sleep(1000)
ControlSend("Rappelz","","","{Tab}")
sleep(500)
ControlSend("Rappelz","","","{F3}")
sleep(1000)
ControlSend("Rappelz","","","{F1}")
sleep(1000)
ControlSend("Rappelz","","","{F2}")
sleep(500)
ControlSend("Rappelz","","","{F4}")
sleep(500)
ControlSend("Rappelz","","","{F5}")
sleep(500)
ControlSend("Rappelz","","","{F6}")
sleep(500)
ControlSend("Rappelz","","","{F7}")
sleep(500)
ControlSend("Rappelz","","","{F8}")
sleep(500)
ControlSend("Rappelz","","","{F9}")
sleep(500)
ControlSend("Rappelz","","","{F10}")
sleep(3000)
ControlSend("Rappelz","","","{F10}")
sleep(1000)
ControlSend("Rappelz","","","{F10}")
sleep(1000)

Until _IsPressed("7A")
EndFunc

Load()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Start
Start()
EnaDisElts($GUI_ENABLE)
EndSwitch
WEnd

Func MeinExit()
Exit
Endfunc


ENDE

OK Das ist der Source Code Bitteschön , war aber eigendlich nicht nötig da mein Bot ja gescannt wordebn ist von Virus Total naja mir egal ich botte damit nicht mehr bzw. spiele das game nicht mehr warum sollte ich euch dann sen cource vorinthalten. vielleicht kann ja ein anderer User den Code weiterführen ^^

MfG
09/09/2008 18:12 Bomberhack#18
so hier noch der Auto Potter Source Code bitteschön:

Also:

#include <GUIConstants.au3>
#include <Misc.au3>
#include <Array.au3>
$Form1_1 = GUICreate("AutoPot Script by Bomberhack", 300, 140, 278, 199)
GUISetIcon("C:\136.ico")
$Start = GUICtrlCreateButton("Start", 80, 90, 91, 25, 0)
GUICtrlCreateGroup("", 180, 200, 1, 1)
$Label4 = GUICtrlCreateLabel("F11:Potten (oder Skill) für HP", 10, 40, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("F12:Potten (oder Skill) für MP", 10, 60, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
$Label6 = GUICtrlCreateLabel("To exit press Ctrl + Alt + X", 10, 120, 392, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
hotkeyset("^!x", "MeinExit")

Func Load()
EndFunc

Func Start()
Do
sleep(500)
ControlSend("Rappelz","","","{F11}")
sleep(60000)
ControlSend("Rappelz","","","{F12}")
sleep(60000)
Until _IsPressed("7A")
EndFunc

Load()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Start
Start()
EnaDisElts($GUI_ENABLE)
EndSwitch
WEnd

Func MeinExit()
Exit
Endfunc


ENDE

OK das ist er. Viel Spaß

MfG
09/10/2008 07:32 geiger#19
HAHA......man sollte NIE alles gleich für vertrauenswürdig deklarieren.....^^
09/10/2008 08:02 anbieter4trala#20
klar das der nicht lange geht. kein movement, keine heilskills, und keine überprüfung wann der gegner tot ist.
der tab nur und greift dann alles mit dieser unvorteilhaften kombo an.
noch nie was von pixelsearch gehört?
09/10/2008 08:52 verT!c4L#21
Ich kann anbieter nur zu stimmen, das is nix ganzes und nix halbes...
09/10/2008 12:15 anbieter4trala#22
tja vertical, wir sind halt etwas besseres gewöhnt^^
aber es is echt schwer mit rappelz zu botten, muss ich zugeben. aber wenn mans raus hat dann klappts prima 24 stunden.
09/10/2008 13:57 Bomberhack#23
jahaha wenn ihr was besseres gewohnt sein dann schreibt doch selber einen ^^ außerdem pixelsearch geht nich bei Rappelz , zumindest habe ich es nicht hingekriegt mit auto it bei windows geht alles ^^ aber im Rappelz fenster leider nicht

naja wie gesacht der code ist daa , dann haut mal rein macht pixelsearch i mein die grundlage ist ja gegeben eigl. ^^ :D

k wünsch euch viel spaß

MfG
09/10/2008 14:26 anbieter4trala#24
was wir damit sagen wollten ist dass wir schon längst selbst einen bot haben der alles schon eingebaut hat..........

und pixelsearch und mouseclick geht in rappelz^^ musst nur wissen wie
09/10/2008 15:20 Bomberhack#25
echt ey ?

dolled ding ^^ wo gibt es denn so einen bot bitteschön ? threadlink o. downloadlink währe nett ^^

will mir das mal ansehen

außerdem dann poste doch mal den auto it code für mouseclick ^^ in rappelz der funkt
09/10/2008 15:26 verT!c4L#26
Quote:
Func _GetPlayerHP()
= PixelSearch(, , , , 0x000000, 120)
If @error Then
= 0
Else
= Round((-)/(-)*100, 2)
EndIf
GUICtrlSetData(, )
GUICtrlSetData(, )
Return
EndFunc
Quote:
Func _Rotate()
GUICtrlSetData(, "Rotate...")
WinActivate("JARB")
sleep(120)
MouseMove(6, (0.5*), 0)
sleep(120)
MouseDown("right")
MouseMove(256, (0.5*), 0)
sleep(120)
WinActivate("JARB")
MouseUp("right")
sleep(120)
WinActivate("R4pelz") ;bzgl Crawler geändert
sleep(120)
EndFunc
Sind nur Code-Snippets, nicht volständig, aber zur Anschauung O.K.
Code by Anbieter4trala
09/10/2008 15:26 verT!c4L#27
Hat mein Browser doch glatt Doublepost gemacht -.-
09/10/2008 15:36 geiger#28
Quote:
Originally Posted by verT!c4L View Post
Hat mein Browser doch glatt Doublepost gemacht -.-

Browser owned verT!c4L :mofo:
09/10/2008 15:47 Bomberhack#29
@anbieter4trala

wo bleiben die Link´s ?!? erst große worte mit "wir alle haben so was" ne und jetzt nix dahinter oda was

@vertical danke so (oder so ähnlich) hatte ich das auch probiert

kannst du die pixel search ins script mir reinschreiben ?? währe nett und dann mal uploaden oda so ^^
09/10/2008 16:32 verT!c4L#30
Ich soll dein Bot ausbauen, vervollständigen, korrigieren?! Neeeeeee....
Hab noch genug zu tun ^^
Ja, der Browser auffer Arbeit hat mich geowned, echt hart...
Aber irgendwas is ja immer :P
So, erstmal Feierabend!