Quote:
Originally Posted by kenv202
campbel what is ur coding to kill a mob until it dies? can u add a tut + script lines for it plz?
i alrdy looked at ur source code but couldnt get it to merge with this other script line from the "bot your won way" tut lol
|
my name is camplesg, you can also call me camp.... about the code to kill a mob untill die it like this if you take a look closely
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 Camplesg","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 ;this is the color on the option window when ur pressing ESC if the terminate function doesnt work for you just find a pixel of color on the option menu then replace here
$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}")
<=== for those of you key 1,2,3,4 doesnt work remove the 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 ;this is the black color on the HP bar if it not working then get the color and pixel on the Hp bar and replace here.
$Color1 = 0
Send("0")
Sleep(100)
EndIf
$Color = PixelGetColor(653,7) ;
If $Color = 14935010 Then ;this one is the atk 1 mob function (when ur clicking on a mob its HP bar showing upon the top, so just take a pixel and color outside of the HP bar,it's the silver color on the bar. if ur bot doesnt atk then u have to fix this).
$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
hope this help ur understand the code
New Pixel Bot for NA CABAL <script included>
