Autoit.ES

Publicado: **12 Mar 2010, 04:25**

Hola, sigo esta web desde hace casi ya un año, leyendo tutoriales y probando programas y bien, me dije: "Por qué no hacer mi primer programa?"

Yo juego un juego On-Line llamado Counter Strike, especificamente a un mod que se llama Hide and Seek. La cosa es que hice masomenos un script que prende y apaga una linterna a gran velocidad. La linterna se prende presionando la tecla "f"

Tengo 3 problemas o dudas.

Cuando aprieto f1 para saltar a la gui de ayuda el programa crashea
Quiero hacer un hoy Key que active la function "flash" presionando w + F, que no se pueda volver a activar cuando se esté ejecutando esa func y prohibir activar la func luego de 2 segundos de haber terminado
Despues necesito que se pause las functions "restart" y "togglepause" cuando aprieto las teclas "º" (está al lado del 1), "y" "u" "i" pero que sigan luego de presionar enter.

les dejo el código

Código: Seleccionar todo


Opt("TrayIconHide", 1)  
Global $Paused
HotKeySet("{f2}", "TogglePause") ;f2
HotKeySet("{f4}", "Terminate") ;f4
HotKeySet("{f1}", "ShowMessage")  ;f1
HotKeySet("{w+D}" ,"flash") ;


; XXXXXXXXXXXXX Aca empieza el script XXXXXXXXXXXXXXXXXX
MsgBox(0,"Flash Light By Keloks","Para abrir los controles Presione F1", 3)
    
func flash() 
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
	EndFunc
	
 
  
func restart() 
	Global $Paused
	$Paused = $Paused
        While $Paused
        ToolTip('Auto Flash está "PAUSADO", F1 --> AYUDA',1,0)
    WEnd
    
While 1
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
	WEnd
EndFunc

	$Paused = NOT $Paused
        While $Paused
        ToolTip('Auto Flash está "PAUSADO", F1 --> AYUDA',1,0)
    WEnd
    ToolTip('Auto Flash está "ACTIVADO", F1 --> AYUDA',1,0)
   

While 1
		Send("{f}")
		sleep(20)
		Send("{f}")
		sleep(20)
WEnd

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        ToolTip('Auto Flash está "PAUSADO", F1 --> AYUDA',1,0)
    WEnd
    ToolTip('Auto Flash está "ACTIVADO", F1 --> AYUDA',1,0)
EndFunc


Func Terminate()
    Exit 0
EndFunc


Func ShowMessage()
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("//Auto Flash// by Keloks.com.ar", 301, 211, 192, 124, 0)
GUISetBkColor(0xFFFFFF)
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Administrador\Mis documentos\Mis imágenes\Logo.jpg", 0, 0, 300, 39, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Aceptar = GUICtrlCreateButton("Aceptar", 72, 144, 150, 33, BitOR($BS_FLAT,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("F1  Ver ayuda", 16, 64, 80, 20)
GUICtrlSetFont(-1, 9, 400, 0, "@Arial Unicode MS")
$Label2 = GUICtrlCreateLabel("F2  Activar / desactivar Auto Flash", 16, 88, 187, 20)
GUICtrlSetFont(-1, 9, 400, 0, "@Arial Unicode MS")
$Label3 = GUICtrlCreateLabel("F4  Cerrar Script", 16, 112, 93, 20)
GUICtrlSetFont(-1, 9, 400, 0, "@Arial Unicode MS")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $Pic1
		ShellExecute ("http://www.keloks.com.ar")
		
	case $Aceptar
		GUISetState(@SW_HIDE)
		$Aceptar = restart()
	EndSwitch
WEnd


EndFunc

Por favor, quiero aprender, es mi primer script y espero no estar abusando de su sabiduria

Publicado: **12 Mar 2010, 05:15**

tander escribió: 1.-Cuando aprieto f1 para saltar a la gui de ayuda el programa crashea
2.-Quiero hacer un hoy Key que active la function "flash" presionando w + F, que no se pueda volver a activar cuando se esté ejecutando esa func y prohibir activar la func luego de 2 segundos de haber terminado
3.-Despues necesito que se pause las functions "restart" y "togglepause" cuando aprieto las teclas "º" (está al lado del 1), "y" "u" "i" pero que sigan luego de presionar enter.
Por favor, quiero aprender, es mi primer script y espero no estar abusando de su sabiduria

Claro que no abusas al preguntar, pero puedes caer al usar estos "poderes mágicos" que da la programación. Recuerda que si usas estas ayudas en el counter, es bueno ser legal con los otros y anunciarlo de alguna manera, o pasar los comandos a los otros para que todos los tengan y jugar en igualdad de condiciones. Si no es como quien compite en moto en una carrera ciclista y luego piensa que es le mejor.

Felicidades por el Counter, seguro que la siguiente versión es real 100%. Creo que en el counter se pueden asignar las teclas que usas para sus funciones, o sea que además de configurar con "las ayudas en autoit", puedes remapear las teclas para hacerte un interface más adaptado y comodo.
De la pregunta 1, O por ejemplo cambiar F1... no se por qué hace crash realmente o no entiendo tu pregunta.
de la pregunta 2.- hay muchisimas maneras de hacerlo, puedes hacer un if para comprobar si esta en marcha la función con una variable global por ejemplo, en la primera linea de la función, con lo que solo se ejecuta si ya ha salido previamente dejando la variable en off: $mifunciónoff=1 o 0
pregunta 3: Igualmente puedes hacerlo de muchas maneras con unas variables globales y con if que llamen a otra función que espere un ENTER para proseguir, por ejemplo, el Enter puede cambiar el valor de esa variable global con lo que sale del bucle de espera.....
Son solo ejemplos puedes hacerlo de otras maneras, pero es esta es muy clara y comprensible.
Que te divierta el Counter y ya mostraras la función
Salu2:)

Autoit.ES

Script Linterna Counter Strike

Script Linterna Counter Strike

Re: Script Linterna Counter Strike