Register for your free account! | Forgot your password?

Go Back   elitepvpers > MMORPGs > Cabal Online
You last visited: Today at 23:45

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



Help me with my bot please

Discussion on Help me with my bot please within the Cabal Online forum part of the MMORPGs category.

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Feb 2008
Posts: 10
Received Thanks: 13
Help me with my bot please

Well I've been looking at alot of the scripts in the forums and i decided to create a bot of my own based on a couple of them. I tried to combine some stuff in hoping it would work, but not luck ><. So I was wondering if anyone would be kind enough to help point out the errors and give me suggestions or solutions. ALSO I need to know how to make the script search for more than one kind of mob, like both Orange + Yellow +MustardYellow.


Where I got some of the ideas for the hp/buff/ ~the problem is that its not working so well

SCIPT~~

$xTop = 20
$yTop = 100
$xBot = 1270
$yBot = 910
$mobYellow = "0xFEFE00"
$mobOrange = "0xFE8000"

Sleep(5000)
While 1
WinActivate("CABAL")

If Hex(PixelGetColor(1242, 251)) = "0xFFFFFF" Then
Sleep (5000)
Else
Send("5")
EndIf

If Hex(PixelGetColor(1252, 320)) = "0x8F6625" Then
Sleep (5000)
Else
Send("6")
EndIf

If Hex(PixelGetColor(162, 53) = "0x1A1A1A" Then
Send("-")
Else
Sleep (500)
EndIf

$coord = PixelSearch($xTop,$yTop,$xBot,$yBot,$mobYellow,50, 2)
$n = @error
If NOT @error Then
while $n = 0
$x = Random($coord[0], $coord[0]+40, 1)

$y = Random($coord[1], $coord[1]+40, 1)
MouseClick("left", $x, $y, 2, 0)
Sleep(250)
$mm = PixelGetColor ( 470 , 38 )
$mob = Hex($mm, 6)
Sleep(250)
If $mob = "0x060606" Then
ExitLoop
EndIf

$coord = PixelSearch($xTop,$yTop,$xBot,$yBot,$mobYellow,50, 2)
$n = @error
Wend

If $mob = "0x060606" Then
while $mob = "0x060606"
Send("1")
Sleep(300)
Send("2")
Sleep(300)
Send("3")
Sleep(300)
Send("4")
Sleep(300)
$mm = PixelGetColor ( 470 , 38 )
$mob = Hex($mm, 6)
WEnd
Else
Send("{Space}")
Sleep(500)
Send("{Space}")
Sleep(500)
Send("{Space}")
Sleep(500)
EndIf



Else
Send("{Right 7}")
Endif



WEnd


ERROR
Line 24
If Hex(PixelGetColor(162, 53) = "0x1A1A1A" Then
If Hex(PixelGetColor(162, 53) = "0x1A1A1A" ^ ERROR
ERROR:Error parsing function call.
gwntd is offline  
Reply




All times are GMT +1. The time now is 23:45.


Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.