I have problem ^^'
I have search very very very (x999
I from france, and, cabal french server open, i play on mercury server.
I have bot, not detected, i run it, run cabal, but this bot do nothing lol..
I have script, and maybe its wrong script writting ^^^(sorry for my english kk
I send yu source script for cabal and i say you if you can help me for this script can target monster and use skill 1,2,3,4 and 5.
Thank you a lot for your help. If you cant help me, i understand
Byebye all
The script :
Opt("WinWaitDelay", 100)
Opt("WinTitleMatchMode", 4)
Opt("WinDetectHiddenText", 1)
Opt("PixelCoordMode", 2)
Opt("MouseCoordMode", 2)
WinWait("CABAL", "")
If Not WinActive("CABAL", "") Then WinActivate("CABAL", "")
WinWaitActive("CABAL", "")
TrayTip("Cabal Bot by .....","Bot activated, you may AFK",30)
Send("{UP 30}")
MouseWheel("down",25)
$title_b = "CABAL"
$Process = WinGetProcess($title_b, "") ;Open process
$Pickup = 0
Global $lastaction = 0
While $Pickup = 0
$Color3 = PixelGetColor(602,195) ;
If $Color3 = 8552572 Then ;
$Color3 = 0
Call("Terminate")
Else
Send("{space 5}")
Send("6")
send("7")
Send("8")
Call("HealFindMonster")
EndIf
WEnd
;~ auto fight function will not call it
Func FIGHT()
Sleep(500)
Send("{1 2}")
Sleep(500)
Send("{2 2}")
Sleep(500)
send("{3 2}")
Sleep(500)
send("{4 2}")
Sleep(100)
Send("{SPACE 4}")
Send("6")
send("7")
Send("8")
Call("HealFindMonster")
EndFunc ;==>FIGHT
Func Terminate()
$MB_MsgBoxButtons = 5 ;What buttons that show in messagebox 5 = Retry and Cancel
$MB_Cancel = 2 ;What button is pressed to exit the script 2 = Cancel, If Cancel buton is pushed the script stops.
If MsgBox($MB_MsgBoxButtons, $title_b, "Retry or Cancel the bot?") == $MB_Cancel Then
Exit
EndIf
EndFunc ;==>Terminate
Func HealFindMonster()
$Color1 = PixelGetColor(132,28) ;
If $Color1 = 2105376 Then ;
$Color1 = 0
Send("0")
Sleep(100)
EndIf
$Color = PixelGetColor(653,7) ;
If $Color = 14935010 Then
$Color = 0
Call("FIGHT")
Else
Send("{RIGHT 2}")
$coord = PixelSearch( 100, 100, 1024, 718, 0XE1DE0C, 50, 2)
If Not @error Then
MouseMove($coord[0],$coord[1],0)
MouseClick("left",$coord[0],$coord[1])
EndIf
EndIf
EndFunc ;==>HealFindMonster







