Cabal Online Auto Kill: Макрос-скрипт для автоматического убийства и полечивания в Cabal Online

[Барклай]

Cabal online auto kill & heal macro script
Written by: MorningWind
Pub by: Барклай

1.Screen: 1024*768/32bit, game: 800*600 window mode, maximize game window
2.Game view: view from top, close little map on the top
3.Shortcut key set to:F1~F12, skill:F2,F3,F4 pick items:F10 secondary skill:F7,F8,F9


CODE:
//------------------------------------------------------------------------------
//-------------------------------- [ settings ] --------------------------------
//------------------------------------------------------------------------------
dim color(2)
dim ys,a,t1,t2,t3,i,key,x,y,mx,my
//----------------------------------------------------------------- [ define variable ]
//skill cool down time
UserVar ys=1100
color(0)="00FFFF":color(1)="40BEC0":color(2)="8080 80"
t1=-1:t2=-1:t3=-1
key=115
//------------------------------------------------------------------------------
//-------------------------------- [ main program ] --------------------------------
//------------------------------------------------------------------------------
Rem mainprogram
i=0:a=0
Gosub pickitems
Delay 10
Gosub BUFF
Delay 10
//------------------------------------------------------------- search monster color
For 3
VBSCall FindCenterColor(10,80,1010,670,color(i),x,y)
//search monster name color
If x>=10 and y>=80
s=0
VBSCall SetCursorPos(x+10,y+8)
Delay 100
Gosub attackmonster
Else
a=a+1
If a>=3
//if not found
IfColor 21 671 000000 1
IfColor 1 686 000000 1
//if chat dialog is not open
KeyDownH 39 1
Delay 500
KeyUpH 39 1
//rotate screen
EndIf
EndIf
EndIf
EndIf
i=i+1
Delay 10
EndFor
Delay 50
Goto mainprogram
//------------------------------------------------------------------------------
//-------------------------------- [ sub programs ] --------------------------------
//----------------------------------------------------------- [ auto attack monster ]
Sub attackmonster
VBSCall FindColorEx(x-60,y-30,x+60,y,"3737C5",0,0.6,mx,my)
//move mouse to monster, check monster's HP color
VBSCall Shape=GetCursorShape(0)
//check mouse cursor
If mx>=0 and my>=0 or Shape=1439279395
Delay 50
LeftClick 1
EndIf
Delay 300
Rem run
IfColor 384 42 1E42EA 2
IfColor 384 44 0993FB 2
//if found monster's HP bar
Delay 10
KeyPressH key 1
Delay 10
key=key-1
Gosub pickitems
If key<113
key=115
EndIf
Delay ys
Goto run
EndIf
EndIf
Return attackmonster
//--------------------------------------------------------------- [ pick items ]
Sub pickitems
For 5
KeyPressH 121 1
Delay 20
EndFor
Return pickitems
//----------------------------------------------------------- [ use secondary skill ]
Sub BUFF
If datediff("s",t1,now)>=110 or t1=-1
//change time 110 to your value
Delay 50
KeyPressH 118 1
Delay 2000
t1=now
EndIf
If datediff("s",t2,now)>=370 or t2=-1
Delay 50
KeyPressH 119 1
Delay 2000
t2=now
EndIf
If datediff("s",t3,now)>=290 or t3=-1
Delay 50
KeyPressH 120 1
Delay 2000
t3=now
EndIf
Return BUFF

__________________________________________________ ______________

AUTO HEAL SCRIPT

CODE:
//auto heal when HP<
UserVar hp=70
hpx=int((229-58)/100*hp+58)
While true
IfColor hpx 46 4A4A4A 2
Delay 100
KeyPressH 53 1
EndIf
Delay 10
EndWhile