Ayuda con un bot
Publicado: 03 Oct 2010, 16:13
Hola no se si va aqui o no la pregunta pero bueno hay va:
tengo el siugiente codigo y quiere ejecutarlo en un solo programa
pero al meterle la opcion de pociones solo toma pociones y no hace el resto del programa si en cambio ejecuto un programa sin las pociones y el que si que las lleva, se ejeucta al completo pero me gustaria ahcerlo en un solo programa
Global $Pausa, $contador,$Min_prox_dis = 0
Global $Input_Time
HotKeySet("{F11}", "Rutina_pausa")
HotKeySet("{esc}", "_Exit")
Func _Exit()
Exit
EndFunc
#forceref $Input_Time ;Para el control del reloj
Func Rutina_pausa()
$Pausa = NOT $Pausa
While $Pausa
sleep(100)
ToolTip('Modo Pausa"',0,0)
WEnd
ToolTip("")
EndFunc
Sleep( 1000)
$Min_prox_dis = @MIN
While 1
$contador +=1
ToolTip ("Programa ejecutandoce ...",0,0)
;~~~~~~~~~~~~~~~~~~~
; DISPARO RAPIDO
;~~~~~~~~~~~~~~~~~~~
if @MIN = $Min_prox_dis then
$Min_prox_dis +=5
Send("{F3}")
Sleep( 500)
;~
if $Min_prox_dis > 60 then
$Min_prox_dis = @MIN
endif
endif
;~~~~~~~~~~~~~~~~~~~
; SELECCIONAR BICHO
;~~~~~~~~~~~~~~~~~~~
Send("{TAB}")
Sleep(500)
;~~~~~~~~~~~~~~~~~~~
;~ ATACAR
;~~~~~~~~~~~~~~~~~~~
Send("{F1}")
Sleep(500)
;~~~~~~~~~~~~~~~~~~~
;~ Pociones
;~~~~~~~~~~~~~~~~~~~
Send("{F5}")
Sleep(100000)
;~~~~~~~~~~~~~~~~~~~
;~ RECOGER
;~~~~~~~~~~~~~~~~~~~
Send("{F2}")
Sleep(500)
WEnd
tengo el siugiente codigo y quiere ejecutarlo en un solo programa
pero al meterle la opcion de pociones solo toma pociones y no hace el resto del programa si en cambio ejecuto un programa sin las pociones y el que si que las lleva, se ejeucta al completo pero me gustaria ahcerlo en un solo programa
Global $Pausa, $contador,$Min_prox_dis = 0
Global $Input_Time
HotKeySet("{F11}", "Rutina_pausa")
HotKeySet("{esc}", "_Exit")
Func _Exit()
Exit
EndFunc
#forceref $Input_Time ;Para el control del reloj
Func Rutina_pausa()
$Pausa = NOT $Pausa
While $Pausa
sleep(100)
ToolTip('Modo Pausa"',0,0)
WEnd
ToolTip("")
EndFunc
Sleep( 1000)
$Min_prox_dis = @MIN
While 1
$contador +=1
ToolTip ("Programa ejecutandoce ...",0,0)
;~~~~~~~~~~~~~~~~~~~
; DISPARO RAPIDO
;~~~~~~~~~~~~~~~~~~~
if @MIN = $Min_prox_dis then
$Min_prox_dis +=5
Send("{F3}")
Sleep( 500)
;~
if $Min_prox_dis > 60 then
$Min_prox_dis = @MIN
endif
endif
;~~~~~~~~~~~~~~~~~~~
; SELECCIONAR BICHO
;~~~~~~~~~~~~~~~~~~~
Send("{TAB}")
Sleep(500)
;~~~~~~~~~~~~~~~~~~~
;~ ATACAR
;~~~~~~~~~~~~~~~~~~~
Send("{F1}")
Sleep(500)
;~~~~~~~~~~~~~~~~~~~
;~ Pociones
;~~~~~~~~~~~~~~~~~~~
Send("{F5}")
Sleep(100000)
;~~~~~~~~~~~~~~~~~~~
;~ RECOGER
;~~~~~~~~~~~~~~~~~~~
Send("{F2}")
Sleep(500)
WEnd