Ayuda a escribir este archivo fuente desde el objeto clave como script de fondo
//Es posible que el asistente de pulsaciones de teclas no funcione en el juego
///361 plug- debe estar instalado,
UserVar jn1=a Establecer clave de habilidad 1
UserVar jn2=2 Establecer clave de habilidad 2
UserVar jn3=F11 Establecer clave de habilidad 3 UserVar jn2=2 establece la clave de habilidad 2
UserVar jn3=F11 Establece la clave de habilidad 3
UserVar s1=60, establece el intervalo de lanzamiento de la habilidad 1
UserVar s2=90, establece el intervalo de lanzamiento de habilidad en 2
UserVar s3=120, establece el intervalo de lanzamiento de habilidad 3
Título de la ventana UserVar jb
Plug-in Hwnd = Window.Search(jb)
jb = split(Hwnd,"|")
Hwnd = clng(jb(0))
número tenue (2),el tiempo(2), clave(2),sj(2)
dim a,b,c,d,jn1,jn2,jn3,s1,s2,s3,t1,t2, t3,L
número(0)=jn1:número(1)=jn2:número(2)=jn3
eltiempo(0)=s1:eltiempo(1)=s2 :thetime(2)=s3 p>
t1=now:t2=now:t3=now
Gosub determina el número de pulsaciones de teclas
Gosub determina el tiempo
Mientras es verdadero
Si DateDiff("s",t1,now)>=sj(0)
Retraso 10
Si cj ="1"
Complemento Bkgnd.KeyPress(Hwnd, key(0))
Else
Complemento BGKM5.> If DateDiff("s",t3 ,now)>=sj(2) p>
Retraso 10
Si cj="1"
Complemento BGKM5.Key haga clic (Hwnd,key(2) )
EndIf p>
t3=now
EndIf
Retraso 10
EndWhile
Sub Determinar la clave
a=0:b=0
Para 3
L=Len(número(a))
Si L=1
clave(b)=Asc(UCase(número(a)))
Si clave(b)<48 o clave(b)>90
Saltar al final
ElseIf tecla(b)>57 y tecla(b)<65
Saltar al final
EndIf p>
ElseIf L>1 y L<4
si UCase(Left(number(a),1))="F"
key(b)=Asc (UCase(Izquierda(número(a)) ,1)))+Derecha(número(a),L-1)+41
Si clave(b)<112 o clave(b)>
;123
Ir al final
EndIf