#1 Bot para last chaos
35
MENSAJES
#11 Re: Bot para last chaos


1
MENSAJES
35
MENSAJES
#13 Vamos desde cero...

Opt("PixelCoordMode",2)
Opt("MouseCoordMode",2)
;F1: Ataque (lo tienes que sacar del menu de acciones ALT + A
;F2: Piel de Piedra o Escudo Divino (no esta preparado para escudo divino aun)
;F3: Agarrar objeros Mascota, conviene que sea siempre la mascota la que los recoja, si no queres que el jugador se mueva
;F4: Descansar en caso de poca energia... funciona pero no esta perfeccionado (problema con los mobs activos)
;F5: En Caso de poca energia es mejor colocar una buena posion aqui... para evitar una muerte jajaj
;F6: SIN FUNCION
;F7: SIN FUNCION
;F8: SIN FUNCION
;F9: Hojas Azules
;F10: Piedas Shain
;F12: Mascota
WinWaitActive("LastChaos - Gamigo (Window 800x600)")
Global $Paused, $counter = 0
HotKeySet("{PAUSE}", "TogglePause")
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('El control automatico ha entrado en modo de espera = presione pausa para continuar"',0,0)
WEnd
ToolTip("")
EndFunc
HotKeySet ("{ESC}","Quit")
Func Quit()
Exit
EndFunc
$Control = 0x3E1616 ; color del estado del mob... evita que busque mientas esta pegando
$Target = 0x5B9600 ;Verde
$Target2 = 0xC5C1C5 ;Blanco
$Target3 = 0x0089AA ;Azul
$Click = "Right"
$Su = 50
$In = 150
$Iz = 680
$De = 430
; piel de piedra "0x867FAF"
; Escudo Divino "0xFEF97D"
While 1 = 1
ToolTip ("Control automatico ejecutandose...",0,0)
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
MouseClick("Right")
Sleep(100)
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
$coord = PixelSearch($Su,$In,$Iz,$De,$Target,5,2)
If @error Then
Else
$x = Random($coord[0], $coord[0]+50)
$y = Random($coord[1], $coord[1]+50)
MouseClick("Right", $x, $y, 2, 0)
Send("{F1}")
EndIf
Else
Send("{F1}")
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
MouseClick("Right")
Sleep(100)
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
$coord = PixelSearch($Su,$In,$Iz,$De,$Target2,5,2)
If @error Then
Else
$x = Random($coord[0], $coord[0]+50)
$y = Random($coord[1], $coord[1]+50)
MouseClick("Right", $x, $y, 2, 0)
Send("{F1}")
EndIf
Else
Send("{F1}")
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
MouseClick("Right")
Sleep(100)
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
$coord = PixelSearch($Su,$In,$Iz,$De,$Target3,5,2)
If @error Then
Else
$x = Random($coord[0], $coord[0]+50)
$y = Random($coord[1], $coord[1]+50)
MouseClick("Right", $x, $y, 2, 0)
Send("{F1}")
EndIf
Else
Send("{F1}")
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
MouseClick("Right")
Sleep(100)
EndIf
$SearchResult = PixelSearch(182,33,182,33,"0xB32B00",5,1);BUSCA PV y toma posion
If @error Then
Send("{F5}") ;posion de emergencia COLCALA EN EL F5
Sleep(1000)
Else
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
$SearchResult = PixelSearch(516,579,516,579,"0x334433",5,1);BUSCA Si el casillero de posiones esta vacio
If @error Then
Else
Send("{F7}") ;Si no hay posion se translada a la ciudad
Send("{PAUSE}")
Sleep(100)
EndIf
EndIf
$SearchResult = PixelSearch(277,2,428,23,"0x867FAF",5,1);ACA CHEQUEA SI SE TE ACABO EL PIEL DE PIEDRA (hechicero) O EL ESCUDO DIVINO (caballero)
If @error Then
Send("{F2}")
Sleep(100)
Else
EndIf
$SearchResult = PixelSearch(394,76,394,76,"0xD8CE8A",5,1);Alimento Mascota (Piedras Shain)
If @error Then
$SearchResult = PixelSearch(391,45,391,45,"0xEEBB55",5,1)
If @error Then
Else
Send("{F11}")
Sleep(3000)
EndIf
Else
EndIf
$SearchResult = PixelSearch(395,64,395,64,"0xCC0000",5,1);Vida Mascota (Hojas Azules)
If @error Then
$SearchResult = PixelSearch(391,45,391,45,"0xEEBB55",5,1)
If @error Then
Else
Send("{F10}")
Sleep(1000)
Send("{F12}")
Sleep(2000)
Send("{F12}")
EndIf
Else
EndIf
$SearchResult = PixelSearch(694,578,694,578,"0x00EFA7",5,1); QUITA LA MASCOTA En caso de que no tengas hojas, si llego hasta ese nivel es porque no tienes.
If @error Then
$SearchResult = PixelSearch(391,45,391,45,"0xEEBB55",5,1)
If @error Then
Else
Send("{F12}")
EndIf
Else
EndIf
Send("{F3}")
$SearchResult = PixelSearch(401,26,402,27,$Control,5,2)
If @error Then
Send("{Right}")
EndIf
WEnd
Opt("PixelCoordMode",2)
Opt("MouseCoordMode",2)
;F1: Ataque (lo tienes que sacar del menu de acciones ALT + A
;F2: DISPAROS CERTEROS
;F3: Agarrar objeros Mascota, conviene que sea siempre la mascota la que los recoja, si no queres que el jugador se mueva
;F4: Descansar en caso de poca energia... funciona pero no esta perfeccionado (problema con los mobs activos)
;F5: CURACION
;F6: SIN FUNCION
;F7: ESCUDO DE MANA
;F8: SIN FUNCION
;F9: Hojas Azules
;F10: Piedas Shain
;F12: Mascota
WinWaitActive("LastChaos - Gamigo (Window 800x600)")
Global $Paused, $counter = 0
HotKeySet("{PAUSE}", "TogglePause")
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('El control automatico ha entrado en modo de espera = presione pausa para continuar"',0,0)
WEnd
ToolTip("")
EndFunc
HotKeySet ("{ESC}","Quit")
Func Quit()
Exit
EndFunc
$Control = 0x3E1C11 ; color del estado del mob... evita que busque mientas esta pegando
$Target = 0x5B9600 ;Verde
$Target2 = 0xC5C1C5 ;Blanco
$Target3 = 0xD7A700 ;amarillo
$Click = "Right"
$Su = 50
$In = 150
$Iz = 680
$De = 430
While 1 = 1
ToolTip ("Control automatico ejecutandose...",0,0)
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
MouseClick("Right")
Sleep(100)
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
$coord = PixelSearch($Su,$In,$Iz,$De,$Target,5,2)
If @error Then
Else
$x = Random($coord[0], $coord[0]+50)
$y = Random($coord[1], $coord[1]+50)
MouseClick("Right", $x, $y, 2, 0)
Send("{F1}")
EndIf
Else
Send("{F1}")
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
MouseClick("Right")
Sleep(100)
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
$coord = PixelSearch($Su,$In,$Iz,$De,$Target2,5,2)
If @error Then
Else
$x = Random($coord[0], $coord[0]+50)
$y = Random($coord[1], $coord[1]+50)
MouseClick("Right", $x, $y, 2, 0)
Send("{F1}")
EndIf
Else
Send("{F1}")
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
MouseClick("Right")
Sleep(100)
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
$coord = PixelSearch($Su,$In,$Iz,$De,$Target3,5,2)
If @error Then
Else
$x = Random($coord[0], $coord[0]+50)
$y = Random($coord[1], $coord[1]+50)
MouseClick("Right", $x, $y, 2, 0)
Send("{F1}")
EndIf
Else
Send("{F1}")
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
MouseClick("Right")
Sleep(100)
EndIf
$SearchResult = PixelSearch(182,33,182,33,"0xB32B00",5,1);BUSCA PV y Se cura
If @error Then
Send("{F5}")
Sleep(1000)
Else
EndIf
$SearchResult = PixelSearch(401,26,402,27,$Control,5,1)
If @error Then
$SearchResult = PixelSearch(516,579,516,579,"0x334433",5,1);BUSCA Si el casillero de posiones esta vacio
If @error Then
Else
Send("{F7}") ;Si no hay posion se translada a la ciudad
Send("{PAUSE}")
Sleep(100)
EndIf
EndIf
$SearchResult = PixelSearch(277,2,428,23,"0xFEC059",5,1);ACA CHEQUEA SI SE TE ACABO Disparos Certeros
If @error Then
MouseClick("Left", 38, 56, 2, 0)
Send("{F2}")
Sleep(100)
Else
EndIf
$SearchResult = PixelSearch(277,2,428,23,"0x94F195",5,1);ACA CHEQUEA SI SE TE ACABO Escudo de Mana
If @error Then
MouseClick("Left", 38, 56, 2, 0)
Send("{F7}")
Sleep(100)
Else
EndIf
$SearchResult = PixelSearch(394,76,394,76,"0xD8CE8A",5,1);Alimento Mascota (Piedras Shain)
If @error Then
$SearchResult = PixelSearch(391,45,391,45,"0xEEBB55",5,1)
If @error Then
Else
Send("{F11}")
Sleep(3000)
EndIf
Else
EndIf
$SearchResult = PixelSearch(395,64,395,64,"0xCC0000",5,1);Vida Mascota (Hojas Azules)
If @error Then
$SearchResult = PixelSearch(391,45,391,45,"0xEEBB55",5,1)
If @error Then
Else
Send("{F10}")
Sleep(1000)
Send("{F12}")
Sleep(2000)
Send("{F12}")
EndIf
Else
EndIf
$SearchResult = PixelSearch(694,578,694,578,"0x00EFA7",5,1); QUITA LA MASCOTA En caso de que no tengas hojas, si llego hasta ese nivel es porque no tienes.
If @error Then
$SearchResult = PixelSearch(391,45,391,45,"0xEEBB55",5,1)
If @error Then
Else
Send("{F12}")
EndIf
Else
EndIf
Send("{F3}")
$SearchResult = PixelSearch(401,26,402,27,$Control,5,2)
If @error Then
Send("{Right}")
EndIf
WEnd
1
MENSAJES
2,513
MENSAJES
35
MENSAJES
3
MENSAJES
3
MENSAJES
35
MENSAJES
#19 Re: Bot para last chaos
la buena noticia es que has logrado ejecutar el sctipt,
la mala, es que sigues usando el del leveo de mascota. Aqui te adjunto el correcto:1
MENSAJES