Solicite el script detallado del asistente del botón de inactividad de SD Gundam Mission 1
UserVar LTop="200, 100" "Rango de actividad del mouse: coordenadas de la esquina superior izquierda"
UserVar RBot="700, 500" "Rango de actividad del mouse: coordenadas de la esquina inferior derecha"
UserVar RBot="700, 500" "Rango de actividad del mouse: coordenadas de la esquina inferior derecha"
p>
UserVar Center="300, 200" "El punto de partida de el cuadrado abre gradualmente la búsqueda de monstruos"
UserVar L=20 "La distancia entre los dos puntos de búsqueda de monstruos"
UserVar M=3 "Desde qué círculo comenzar a buscar" p>
//Definición de variable
Dim s, v, i, n, x, y, a1, b1, a2, b2, c1, c2, x0, y0, k1, k2 p>
//Busque una coma en la variable de rango de actividad "LTop" en la esquina superior izquierda del mouse, que se usa para distinguir las coordenadas X e Y de la esquina superior izquierda
s=InStr(LTop, ","")
//Mid(parámetro 1, parámetro 2, parámetro 3): devuelve el número especificado de caracteres de la cadena
/ /Parámetro 1 (expresión de cadena, a partir de la cual se devuelven los caracteres)
//Parámetro 2 (la posición inicial de la parte del carácter extraída en el parámetro 1)
//Parámetro 3 (requerido El número de caracteres devueltos, si se omite, se devolverán todos los caracteres de la cadena desde el parámetro 2 hasta el final de la cadena)
//"Mid(LTop, 1, s-1)" de la cadena " LTop" Tome s-1 caracteres comenzando desde el primer carácter en
//int(Mid(LTop, 1, s-1)): convierta los caracteres obtenidos en números enteros
/ /Obtiene la abscisa de la esquina superior izquierda del rango de actividad del mouse y asígnala a la variable a1
a1=int(Mid(LTop, 1, s-1))
/ /Obtener el rango de actividad del mouse Asigna la coordenada vertical de la esquina superior izquierda a la variable b1
b1=int(Mid(LTop, s 1))
s=InStr(RBot, ","")
//Obtenga la abscisa de la esquina inferior derecha del rango de actividad del mouse y asígnela a la variable a2
a2=int(Mid(RBot, 1, s -1))
//Obtener el rango de actividad del mouse. Asigne la ordenada de la esquina inferior derecha a la variable b2
b2=int(Mid(RBot, s 1)) p>
s=InStr(Center, ","")
//Obtener las coordenadas del punto inicial y asignarlas a x0, y0
x0=int(Mid(Center , 1, s-1))
y0=int(Mid(Center, s 1) ))
//Compara las longitudes de x0 a a1 y x0 a a2, y tome la distancia más larga para limitar el rango de involuta del cuadrado y garantizar que la línea de involuta pueda cubrir completamente el rango de actividad del mouse
Si x0-a1gt;=a2-x0 Entonces
n =a1
Else
// Convierta la distancia de x0 a a2 hacia la izquierda, lo cual es conveniente El siguiente juicio de bucle de While xgt;=n
n=x0-(a2-x0)
Finalizar si
Rem comienza a buscar monstruos
//Asigna la distancia del punto a v
v=L
//Asignar el número de puntos de inicio de apertura gradual a i
i=M
//Asignar las coordenadas de la apertura gradual apunta a x, y
x=x0: y=y0-v
Mientras xgt;=n
k1=0:k2=v
Para 2
Para i
x=x k1:y=y k2
//Mueva el mouse y realice el juicio de cambio de color solo cuando el punto (x, y) está dentro del rango de actividad del mouse
Si xgt;=a1 y xlt;=a2
and ygt;=b1 and ylt;=b2 Entonces
//Después de calcular x, y, primero tome el color del punto x, y y asígnelo a c1
c1=GetPixelColor (x, y)
Mover a x, y
Retraso 10
//Mover a x, y y luego tomar los colores de los puntos x e y nuevamente después de un retraso de 10 milisegundos Asigne valor a c2
c2=GetPixelColor(x, y)
//Si los colores de los puntos x e y son diferentes antes de que se mueva el mouse y después de que el mouse se mueva, realiza la acción de matar monstruos
If c1lt; c2 Then
//Código para derrotar monstruos
Retraso 1000
//Reiniciar después de derrotar monstruos Iniciar búsqueda
Ir a Iniciar búsqueda de monstruos
Finalizar si
Retraso 1
Fin Si
Siguiente p>
k1=v:k2=0
Siguiente
i=i 1:v=v*(-1 )
Wend p>
Retraso 200
//Reiniciar la búsqueda después de buscar en el rango de actividad del mouse
Goto comienza a buscar monstruos p>