Vista, search bot, i need you !

05/20/2008 22:39 Landa#16
stickman_v2 is ready..

place your rappelz window in the upper left corner..if its not exactly..the bot wont work..
until yet it works with 1024 solution..see scrrenshot on page 1
u have to disable vibration and camera effect ingame...if the screen is moving(shaking) the bot will implode

Keysettings:
Pet Attack= Alt+1, Alt+2
Magic Spells. F3-F8
Heal= F9-10
---------------------------------------------

;THX to JT and VYn....
;Visit: [Only registered and activated users can see links. Click Here To Register...]
#include <GUIConstants.au3>
#include <GUIListBox.au3>
#include <Misc.au3>
#include <Array.au3>
$Form1_1 = GUICreate("stickman_v2", 500, 380, 278, 199)
GUISetIcon("C:\136.ico")
$Start = GUICtrlCreateButton("Start", 190, 140, 91, 25, 0)
$gui = GUICtrlCreatePic ( "ut2004.JPG", 0, 0,500 ,380 )
GUISetState(@SW_SHOW)
Global $Paused
hotkeyset("^!x", "MeinExit")
HotKeySet("{PAUSE}", "TogglePause")

Func Load()
EndFunc


$red = 13938833
$green = 9941093
$black = 2298381
$white = 14146009
$wait = 500
$wait2 =2000

Func Start()
Do
WinActivate("Rappelz");
Sleep($wait)

$HPPfull = PixelGetColor( 138 , 78 )
$HpEnemy = PixelGetColor( 491 , 51 )
$i = 0
$Enemy = PixelGetColor( 673,37 )
IF $HPPfull = $green Then ;Health Full
ToolTip("HP full")
sleep(200)

If $Enemy = $white THen

IF $HpEnemy = $red THen
ToolTip("Respekt mah fucking authorithaaa!!")
Sleep($wait)
ControlSend("Rappelz", "", "", "{ALTDOWN}")
Sleep($wait)
ControlSend("Rappelz", "", "", "{1}")
Sleep($wait)
ControlSend("Rappelz", "", "", "{ALTUP}")
Sleep($wait2)
ControlSend("Rappelz", "", "", "{ALTDOWN}")
Sleep($wait)
ControlSend("Rappelz", "", "", "{2}")
Sleep($wait)
ControlSend("Rappelz", "", "", "{ALTUP}")
Sleep($wait2)
ControlSend("Rappelz", "", "", "{F4}")
Sleep($wait2)
ControlSend("Rappelz", "", "", "{F5}")
Sleep($wait2)
ControlSend("Rappelz", "", "", "{F6}")
Sleep($wait2)
ControlSend("Rappelz", "", "", "{F7}")
Sleep($wait2)
ControlSend("Rappelz", "", "", "{F8}")
Sleep($wait2)
ControlSend("Rappelz", "", "", "{F3}")
Sleep($wait2)
ControlSend("Rappelz", "", "", "{F3}")
Sleep($wait2)
ControlSend("Rappelz", "", "", "{F3}")
Sleep($wait2)

$HpEnemy = PixelGetColor( 491 , 51 )
$HPPfull = PixelGetColor( 138 , 78 )

Else

ToolTip("my treasure....")
Sleep($wait)
ControlSend("Rappelz", "", "", "{F2}")
Sleep($wait)
$i = $i+1
$HpEnemy = PixelGetColor( 491 , 51 )
Sleep($wait)
$Enemy = PixelGetColor( 650,34 )
Sleep($wait)
$HPPfull = PixelGetColor( 138 , 78 )

EndIf


Else

ToolTip("Search+destroY")
Sleep($wait)
WinActivate("stickman_v2")
Sleep($wait)
MouseMove(500, 500, 3)
Sleep($wait)
MouseDown("right")
MouseMove(814, 500, 3)
Sleep($wait)
WinActivate("stickman_v2")
MouseUp("right")
Sleep($wait)
WinActivate("Rappelz")
Sleep($wait)
ControlSend("Rappelz","","","{Tab}")
Sleep(1000)
$HpEnemy = PixelGetColor( 491 , 51 )
Sleep($wait)
$Enemy = PixelGetColor( 650,34 )
Sleep($wait)
EndIf

ELSE

ToolTip("Oh MY GODS! I GONNA DIE !!")
sleep(200)
ControlSend("Rappelz", "", "", "{F9}")
Sleep($wait2)
ControlSend("Rappelz", "", "", "{F10}")
Sleep($wait2)
$HPPfull = PixelGetColor( 138 , 78 )

EndIf

Until _IsPressed("7A")
EndFunc

Load()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Start

Start()
EndSwitch
WEnd

Func MeinExit()
Exit
Endfunc

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
WEnd
EndFunc

Func _send1()
Send("{enter}")
Send("DIE! TIME TO DIE{!}")
Send("{enter}")
EndFunc

---------------------------------------------
DOWNLOAD:
[Only registered and activated users can see links. Click Here To Register...]

coming soon...
-buff
-random move if no mob availible
-chatbot
-GUI with keysettings
05/22/2008 10:51 stickman#17
Ok thank's, i want to test it this night !
Hum ... What is "Send("DIE! TIME TO DIE{!}")" ? It send this on the channel, and "oh my good" too? Because they can see that's a bot !
05/22/2008 12:07 Landa#18
hehe...next version he chat random.
05/22/2008 12:22 landa123#19
in v2 is not chating..in v3 he is chating different sentences,,,in v4 he is chatting random.
05/23/2008 22:26 stickman#20
Chatting isn't good ... ?! And, i'm frensh,if my answer is in english ...
07/15/2008 16:42 Karndeep#21
hey..
i have a holy warrior in rappelz..
can u help me.. i need a bot becuase i try the Jarb bot and it didnt work..
so can u help me please...
07/16/2008 11:37 anbieter4trala#22
probiert doch mal meine version des jarb bots. da könnt ihr alles genau einstellen und er läuft über stunden einwandfrei. einfach im forum hier schaun welches der threads von mir eröffnet wurde. dieser läuft sicher bug frei auf jedem pc, so viel steht schon fest. persönliche beratung gibts auch noch von mir. gilt auch für Landa ;)