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

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)

Retraso 10

Si cj="1"

Complemento BGKM5.Key haga clic (Hwnd,key(2) )

EndIf

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

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