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 Center="300,200" "El punto inicial del cuadrado que se abre gradualmente para buscar monstruos"
UserVar L=20 "La distancia entre los dos puntos de búsqueda de monstruos"
UserVar M=3 "Desde qué círculo comienzas a buscar "
//Definición de variable
Dim s,v,i,n,x,y,a1, b1,a2,b2,c1,c2,x0 ,y0,k1,k2
//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 (cadena Expresión a partir de la cual se devuelven los caracteres)
//Parámetro 2 (la posición inicial de la parte del carácter extraído en el parámetro 1 )
//Parámetro 3 (el número de caracteres que se devolverán; 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)" desde el primer carácter de la cadena "LTop" Comience a buscar caracteres s-1
//int(Mid(LTop,1,s-1)): Convierta los caracteres recuperados en números enteros
//Obtenga la actividad del mouse Asigne la abscisa de la esquina superior izquierda del rango a la variable a1
a1=int(Mid(LTop,1, s-1))
//Obtenga la ordenada de la esquina superior izquierda del rango de actividad del mouse y asígnela a la Variable b1
b1=int(Mid(LTop,s+ 1))
s=InStr(RBot,",")
//Obtener el mouse Asigne la abscisa de la esquina inferior derecha del rango activo a la variable a2
a2=int(Mid(RBot,1,s-1))
//Asignar la ordenada de la esquina inferior derecha del rango activo del mouse Ir a la variable b2
b2=int(Mid(RBot,s+1))
s=InStr(Center,",")
//Get Asigna las coordenadas del punto inicial a x0, y0
x0=int(Medio(Centro,1,s-1))
y0=int(Medio(Centro,s+1))
//Compare 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 para garantizar que la línea de involuta pueda cubrir completamente el rango de actividad del mouse
Si x0- a1>=a2-x0 Then
n=a1
Else
//Convierte la distancia de x0 a a2 hacia la izquierda para facilitar el siguiente bucle While juicio de x>=n
n=x0-(a2-x0)
Finalizar si
Rem comienza a buscar monstruos
//Asigne la distancia del punto a v
v=L
//Asigne el número de puntos iniciales de apertura gradual a i
i=M
//Asigna las coordenadas del punto de apertura gradual a x,y
x=x0:y=y0-v
Mientras x>=n
k1=0:k2=v
Para 2
Para i
x=x+k1:y=y+k2
//Mueve el mouse y realiza el juicio de cambio de color solo si el punto (x, y) está dentro del rango de actividad del mouse
Si x>=a1 y x<=a2 e y>=b1 and y<=b2 Luego
//Después de calcular xey, primero tome el color de los puntos xey y asígnelos a c1
c1=GetPixelColor(x,y)
>Mover a x,y
Retraso 10
//Mover a x,y después de un retraso de 10 milisegundos y luego tomar el color del punto x,y nuevamente y asignarlo a c2
c2=GetPixelColor(x,y)
// Si el color de los puntos x e y es diferente antes y después de que se mueva el mouse, realice la acción de matar monstruos
Si c1<>c2 Entonces
//Código para matar monstruos
Retraso 1000
//Reiniciar la búsqueda después de matar monstruos
Ir a comienza a buscar monstruos
Finalizar si
Retraso 1
Finalizar si
Siguiente
k1=v: k2=0
Siguiente
i=i+1:v=v*(-1)
Mientras
Retraso 200
//Reiniciar la búsqueda después de buscar en el rango de actividad del mouse
Goto comienza a buscar monstruos