pero aqui viene lo feo...llevo una par de dias haciendo jugo de neuronas tratando de que cuando el bot reconozca el pixel de salida y envie la box con los botones de reintentar o cancelar pasado unos segundos el mouse haga click en reintentar y asi siga funcionando
ojala me echen una manito...pq ya llevo varios dolores de cabeza con esto
les dejo el codigo pq la verdad no se donde como o que hacer ^^
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", "")
Send("{UP 30}")
MouseWheel("down",25)
$title_b = "CABALBOT"
$Process = WinGetProcess($title_b, "")
$Pickup = 0
Global $lastaction = 0
While $Pickup = 0
$Color3 = PixelGetColor(448, 398) ;
If $Color3 = 0x000000 Then ;
$Color3 = 0
Call("Terminate")
Else
Send("{space 5}")
Send("1")
sleep(10)
Send("2")
sleep(10)
Send("3")
sleep(10)
send("1")
sleep(10)
send("2")
sleep(10)
Send("6")
sleep(10)
send("7")
sleep(10)
Send("8")
Call("HealFindMonster")
EndIf
WEnd
Func FIGHT()
Sleep(10)
Send("{1 2}")
Sleep(10)
Send("{2 2}")
Sleep(10)
send("{3 2}")
Sleep(10)
send("{4 2}")
Sleep(10)
Send("{SPACE 4}")
Send("1")
Send("2")
Send("3")
Send("6")
send("7")
Send("8")
Call("HealFindMonster")
EndFunc
Func Terminate()
$MB_MsgBoxButtons = 5
$MB_Cancel = 2
if MsgBox($MB_MsgBoxButtons, $title_b, "Tai Seguro Wn??") == $MB_Cancel Then <--- aqui es donde sale el box...
EXIT
EndIf
EndFunc
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
$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
se agradece vuestra ayuda ^^
