leotry

[quote name='tekno61' date='09.03.2008, 20:30:16' post='400712']
RC-1 numb-bot. Na Cabal.
Release candidate- 1
If you're having issues with the bot PLEASE re-read the 'setup' section below.

Setup: Okay, so i kind of skimped on this part when i posted it... heres the walkthrough, if any part of this confuses you, please let me know (post in this thread) and I'll help asap

(this guide assumes you have cabal bypassed, if not check out the other stickied thread for that)

Step 1: Download / install/ run [Only registered and activated users can see links. ]

Step 1.5 Create a 'new' macro, click the 'script' tab and paste the code below in. Click the 'setup' tab at the top and tick software compatability mode. Ensure no other macros share the same enable hotkey as this one.

Step 2: Set your desktop resolution to 1024x768

Step 2.5yes i did forget this and I'm too lazy to renumber)Install this (very ugly) ui mod: [Only registered and activated users can see links. ] x:\program files\OGplanet\cabal online\data\ui\theme\ folder. the reason its so plain / ugly is simple, the colors appear NOWHERE in the entire game, thus making pixel detection realllly easy, if you know of another color that i could use that is less ugly, let me know)

Step 3: Open cabal

Step 4:In options set the resolution to 1024x768, click the box for windowed mode, and in the 'game' part click on auto-attack

Step 5lace a skill you enjoy spamming in the first slot (number 1 slot).

Step 6lace your potions (hp) in stack 7

Step 7:Hit the maximize window button (so it takes up the whole screen)

Step 8: Hit the bots hotkey and enjoy the farming

POSSIBLE ISSUES: Due to the complicated nature of making scripts a LOT of things could go wrong, if you are going to say it didn't work prettyyyy please attach a screenshot (edit your info out or pm it to me) so i can make sure that the pixel check is okay.

The first script is laptop compatibility (I test that one myself) The later is desktop compatibility which I do not test, therefore it will always be a few days behind in revision / functionality (since I'm passing my code to someone else and he updates it for desktops).

With that said, goodnight
Disclaimer: By downloading / using this you understand that you are breaking the TOS you agreed to when you joined cabal NA and as a result you can be banned, suspended or some other BS. In the event of this happening the author holds NO responsibility for your actions whatsoever. These scripts are being distributed under and open creative commons license as a 'proof of concept' and may be freely distributed so long as credit is given to the author.

With that said, enjoy, and farm away.

Laptop compatibility
[codebox]VBS dim coordx, coordy
VBS dim hong,lan,hongT,lanT
UserVar hong=70 If HP<hong%, supply HP
UserVar hongT=256 Delay after supply for HP(in milliseconds)
VBS dim isMob = 0
Rem [MacroStart]
VBSCall FindColorEx(0,0,1024,685,"00DBDE",1,0.9,x,y)
//Search a fuzzy color in a fixed area (0,0,1024,768) is the area, "FFFFFF" is the color, 1 means searching from center to periphery, 0.8 means the fuzzy degree. The found coordinates will be saved in (x,y)
VBS coordx = x
VBS coordy = y
If coordx>=0 and coordy>=0
//If found the fuzzy color, x and y will be larger than 0
Gosub [Kill]
EndIf
VBSCall FindColorEx(0,0,1024,685,"006DD6",1,0.9,x,y)
VBSCall FindColorEx(0,0,1024,685,"10DFDE",1,0.9,x,y)
//Search a fuzzy color in a fixed area (0,0,1024,768) is the area, "FFFFFF" is the color, 1 means searching from center to periphery, 0.8 means the fuzzy degree. The found coordinates will be saved in (x,y)
VBS coordx = x
VBS coordy = y
If coordx>=0 and coordy>=0
//If found the fuzzy color, x and y will be larger than 0
Gosub [Kill]
EndIf
Delay 50
Goto [MacroStart]
Sub [MobCheck]
IfColor 379,29,f700ff,0
isMob = 1
KeyDown 32,10
Delay 10
KeyUp 32,10
Else
isMob = 0
EndIf
Return
Sub [HP]
IfColor hong/100*(231-59)+59 45 0 2
//x2=Right side of the HP bar, x1=Left side of the HP bar
//y=Y axis of the center of HP bar, color=The color when HP bar is empty
KeyDown 187,1
Delay 17
KeyUp 187,1
//Press the supply HP hot key
// Delay hongT
//delay after supply HP, waiting for supply complete
EndIf
Return
Sub [Kill]
MoveTo x y
//Move mouse cursor to the color. For some games, you may use the coordinates with offsets like 'MoveTo x+10 y+10'
Delay 50
LeftClick 1
//Click left mouse button to attack
Delay 50
Gosub [MobCheck]
// If isMob = 1
// KeyPress 50,1
While isMob = 1
KeyDown 49,1
Delay 2
KeyUp 49,1
Gosub [MobCheck]
Gosub [HP]
EndWhile
Delay 100
KeyPress 32,10
// EndIf
VBS coordx = 0
VBS coordy = 0
Return[/codebox]

Img of bot in use: bayimg - image: [Only registered and activated users can see links. ]
heres the code you should try if the above isn't working
Desktop Compatability mode:

[codebox][General]
Description=Farm4
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
AutoRun=0
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=

[Script]
//6DD6 - org
VBS dim coordx, coordy
VBS dim hong,lan,hongT,lanT
UserVar hong=70 If HP<hong%, supply HP
UserVar hongT=256 Delay after supply for HP(in milliseconds)
VBS dim isMob = 0
Rem [MacroStart]
VBSCall FindColorEx(0,0,1024,685,"00DBDE",1,0.9,x,y)
//Search a fuzzy color in a fixed area (0,0,1024,768) is the area, "FFFFFF" is the color, 1 means searching from center to periphery, 0.8 means the fuzzy degree. The found coordinates will be saved in (x,y)
VBS coordx = x
VBS coordy = y
If coordx>=0 and coordy>=0
//If found the fuzzy color, x and y will be larger than 0
Gosub [Kill]
EndIf
VBSCall FindColorEx(0,0,1024,685,"006DD6",1,0.9,x,y)
VBSCall FindColorEx(0,0,1024,685,"10DFDE",1,0.9,x,y)
//Search a fuzzy color in a fixed area (0,0,1024,768) is the area, "FFFFFF" is the color, 1 means searching from center to periphery, 0.8 means the fuzzy degree. The found coordinates will be saved in (x,y)
VBS coordx = x
VBS coordy = y
If coordx>=0 and coordy>=0
//If found the fuzzy color, x and y will be larger than 0
Gosub [Kill]
EndIf
Delay 50
Goto [MacroStart]
Sub [MobCheck]
IfColor 379,29,f700ff,0
isMob = 1
KeyPress 32,10
Else
isMob = 0
EndIf
Return
Sub [HP]
IfColor hong/100*(231-59)+59 45 0 2
//x2=Right side of the HP bar, x1=Left side of the HP bar
//y=Y axis of the center of HP bar, color=The color when HP bar is empty
KeyPress 187,1
//Press the supply HP hot key
// Delay hongT
//delay after supply HP, waiting for supply complete
EndIf
Return
Sub [Kill]
MoveTo x y
//Move mouse cursor to the color. For some games, you may use the coordinates with offsets like 'MoveTo x+10 y+10'
Delay 50
LeftClick 1
//Click left mouse button to attack
Delay 50
Gosub [MobCheck]
// If isMob = 1
// KeyPress 50,1
While isMob = 1
KeyPress 49,1
Delay 2
Gosub [MobCheck]
Gosub [HP]
EndWhile
Delay 100
KeyPress 32,10
// EndIf
VBS coordx = 0
VBS coordy = 0
Return[/codebox]

Enjoy: Numb

P.s. If your bot isn't working please confirm the following things.

1. You are running in windowed mode maximized to fit your screen (like in the image i posted), with a desktop resolution of 1024x768 with 16 bit color depth (rick click on the desktop for this).

2. You are running Q-macro in 'software compatibility mode' I haven't tested the other modes, so I'm not sure if they'll work.

3. post a screenshot (edit out your info!!!!) so I can pixel check to make sure my color detection is right.
Sometime tomorrow (after i sleep now) I'll be posting a (much) more detailed info on how to setup the bot. as for now if it doesn't work, gimme some time to troubleshoot it. Many thanks for the feedback, info, testing, troubleshooting, comments, hate mail, and love.

P.s. thanks to the mods for closing my old thread since it is now outdated.

p.p.s- after about 10 minutes of internal testing I THINK i found a gray color code that SHOULDN'T interfere with gameplay too much, this will allow you to farm any 'gray' mob... why you would want to I'm really unsure. I'll add red / orange support asap, at my present level there aren't any red monsters for me to get the hex code off of...this script (below) may run into issues in BI / UG due to the heavy concentration of snow. Test at your own risk

[codebox][Script]
VBS dim coordx, coordy
VBS dim hong,lan,hongT,lanT
UserVar hong=70 If HP<hong%, supply HP
UserVar hongT=256 Delay after supply for HP(in milliseconds)
VBS dim isMob = 0
Rem [MacroStart]
VBSCall FindColorEx(0,0,1024,685,"00DBDE",1,0.9,x,y)
//Search a fuzzy color in a fixed area (0,0,1024,768) is the area, "FFFFFF" is the color, 1 means searching from center to periphery, 0.8 means the fuzzy degree. The found coordinates will be saved in (x,y)
VBS coordx = x
VBS coordy = y
If coordx>=0 and coordy>=0
//If found the fuzzy color, x and y will be larger than 0
Gosub [Kill]
EndIf
//Gray testing
VBSCall FindColorEx(0,0,1024,685,"736d6b",1,0.9,x,y)
//Yellow 1
VBSCall FindColorEx(0,0,1024,685,"006DD6",1,0.9,x,y)
// Yellow 2
VBSCall FindColorEx(0,0,1024,685,"10DFDE",1,0.9,x,y)

//Search a fuzzy color in a fixed area (0,0,1024,768) is the area, "FFFFFF" is the color, 1 means searching from center to periphery, 0.8 means the fuzzy degree. The found coordinates will be saved in (x,y)
VBS coordx = x
VBS coordy = y
If coordx>=0 and coordy>=0
//If found the fuzzy color, x and y will be larger than 0
Gosub [Kill]
EndIf
Delay 50
Goto [MacroStart]
Sub [MobCheck]
IfColor 379,29,f700ff,0
isMob = 1
KeyPress 32,10
Else
isMob = 0
EndIf
Return
Sub [HP]
IfColor hong/100*(231-59)+59 45 0 2
//x2=Right side of the HP bar, x1=Left side of the HP bar
//y=Y axis of the center of HP bar, color=The color when HP bar is empty
KeyPress 187,1
//Press the supply HP hot key
// Delay hongT
//delay after supply HP, waiting for supply complete
EndIf
Return
Sub [Kill]
MoveTo x y
//Move mouse cursor to the color. For some games, you may use the coordinates with offsets like 'MoveTo x+10 y+10'
Delay 50
LeftClick 1
//Click left mouse button to attack
Delay 50
Gosub [MobCheck]
// If isMob = 1
// KeyPress 50,1
While isMob = 1
KeyPress 49,1
Delay 2
Gosub [MobCheck]
Gosub [HP]
EndWhile
Delay 100
KeyDown 32,10
Delay 30
KeyUp 32,10
// EndIf
VBS coordx = 0
VBS coordy = 0
Return[/codebox]

ALINTIDIR TÜRKÇEYE BİRİ ÇEVİRİRSE İYİ OLUR

__________________

FR€€PiRAT€

emeğine sağlık repin verildi

__________________

















.

mc_speed

Ne işe yarıyor Bu Cabal NA Amerikan Versiyonuna ait sanırım.Çünkü Cabal Avrupa Versiyonunda Macroyu hemen algılıyor gameguard...

cengovski

eet ....

cengovski

bize by pass yapicak bisey lazim gg ye

SecurtySysteM...

Kanka lar bu ne şimdi anlamadim

__________________



.. LânêtLênmiş bêdênimin kutsâL küLLêrindê ..
.. Kâyıρ ruhLâr kêndiLêrinê bir yoL buLuyor ..
.. GünâhLârım intihâr süsü vêrmişkên sâģımdâki mêLêĸLêrê ..
.. Hêrbiri cêhênnêmdê bênim için duâ êdiyor

cengovski

yaw bi macro bot iste mesela sari renge tiklio felan atak yapioda bizim eu versiyon game guard hemen cakio