Script para matar monstruos automáticamente de Dream Zhuxian
Retraso 2000
Retraso 2000
UserVar Var=DropList{Simulación normal: 0|Simulación de hardware :1|Super simulación:2}=0 Establecer modo de simulación
If var=0
SetSimMode 0
ElseIf var=1
SetSimMode 1
Else
SetSimMode 2
EndIf
//La siguiente oración encuentra múltiples colores dentro del área de la pantalla, devuelve el coordenadas de posición de color del segundo punto en la esquina superior izquierda
Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "73F4FF", "1|0|C7FBFF,2|0|1AB7E3 ,3| 0|1AB7E3,4|0|1AB7E3,5|0|1AB7E3,6|0|23D2F0,0|1|16B3E3,6|1|16B3E3,0|2|12ADE3,6|2|15BBEA,0 |3| 17DBFF,6|3|14CDF7,0|4|8DEBFF,6|4|0CBBF0,0|5|16D1FF,6|5|059FE3,0|6|029BE3,1|6|029BE3,2|6 |029BE3, 3|6|04CAFF,4|6|029BE3,5|6|029BE3,6|6|029BE3", 1)
//La siguiente oración se usa para dividir la cadena p>
MyArray = Split(XY, "|")
//La siguiente oración convierte una cadena en un valor numérico
m = Clng(MyArray(0)) : n = Clng( MyArray(1))
If m<0
msgbox "Se produjo un error en el script. Verifique la configuración de resolución y la configuración de color del escritorio. El script tiene ¡detenido!",16
EndScript
EndIf
UserVar a=DropList{F1:1|F2:2|F3:3|F4:4|F5 :5|F6:6|F7 :7|F8:8}=1 Cómo usan las habilidades los personajes
UserVar b=DropList{Ataque normal: 1|Habilidades 1:2}=1 Cómo atacan las mascotas p>
UserVar renhong=40 La salud del personaje aumenta (%)
UserVar renlan=30 La salud del personaje aumenta (%)
UserVar chonghong=40 La salud de la mascota aumenta ( %)
UserVar chonglan= 30 Mascotas agregan azul (%)
Rem Start
Mientras 1
Gosub juzga para entrar en combate
EndWhile
Sub Encuentra monstruos con precisión
Mover a m+255,n-445
Retraso 100
VBSCall var=GetCursorShape(0)
Si var=1227848726
Retraso 500
Clic izquierdo 1
Ir a finaliza la caza de monstruos
EndIf
MoveTo m +174,n-426
Retraso 100
VBSCall var=GetCursorShape(0)
Si var=1227848726
Retraso 500
Clic izquierdo 1
Ir a finaliza la búsqueda de monstruos
EndIf
MoveTo m +97,n
-382
Retraso 100
VBSCall var=GetCursorShape(0)
Si var=1227848726
Retraso 500
LeftClick 1
Goto termina buscando monstruos
EndIf
KeyDown 18,1
KeyPress 65,1
KeyUp 18,1
La caza de monstruos Rem termina
Devuelve la caza de monstruos precisa
Operación de mascota secundaria
Si b=1
KeyDown 18,1
KeyPress 65,1
KeyUp 18,1
ElseIf b=2
//Habilidad 1
VBSCall FindPic(0,0,1024,768,"Attachment:\法.bmp",0.9,intX,intY)
Si intx>0< / p>
Retraso 300
Mover a intx,inty
Clic izquierdo 1
Retraso 300
VBSCall FindPic(0,0 , 1024,768,"Adjunto:\ball.bmp",0.9,intX,intY)
Si intx>0
Mover a intx+23,inty+41
Retraso 300
Clic izquierdo 1
Gosub encuentra monstruos con precisión
EndIf
Else
KeyDown 18 , 1
KeyPress 65,1
KeyUp 18,1
EndIf
EndIf
//El siguiente Encuentre colores multipunto dentro del área de la pantalla y devuelva las coordenadas de posición de color del segundo punto en la esquina superior izquierda
Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "52F7FF" , "-1| 1|69F6FF,0|1|41F3FF,1|1|22B7CC,-1|2|57F2FF,0|2|30EEFF,1|2|27E4F9,-2|3|54DBED,-1| 3|45ECFF,0 |3|25E7FE,1|3|23E0FA,2|3|137E9B,3|3|1F94AD,-2|4|57EBFF,-1|4|36E7FF,0|4|1FE1FD,1| 4|1EDCFB,2 |4|117694,3|4|27BDD7,4|4|127F9D,-5|5|50E6FF,-2|5|49E6FF,-1|5|29E1FF,0|5|1ADCFD,1 |5|1ADAFC, 2|5|127998,3|5|2FDCFA,4|5|14A2C2,-6|6|55E4FF,-5|6|38E0FF,-4|6|25A0BF,-3|6|44E1FF ,-2|6 |31DEFF,-1|6|1BDBFF,0|6|15D9FE,1|6|15D8FE,2|6|1892B3,3|6|2DDEFF,4|6|14D2F8,-7|7| 48BDDB,-6|7|40DDFF,-5|7|21D8FF,-4|7|1DBDE2,-3|7|27D9FF,-2|7|1CD7FF,-1|7|11D5FF,0|7|10D5FF, 1|7|11D5FF ,2|7|1BB6DB,3|7|24D8FF,4|7|10D2FD,5|7|0C87AD,-7|8|34D8FF,-6|8|17D2FF,-5|8|0
BD0FF,-4|8|0EC2EF,-3|8|12D1FF,-2|8|0BD0FF,-1|8|0BCEFE,0|8|0BCFFE,1|8|0BD0FF,2|8|0FC9F6,3| 8|0BCFE,4|8|0AC7FA,5|8|09B5E8,-8|9|07A9D6,-7|9|06C3FA,-6|9|05BEF7,-5|9|05BFF7,-4|9|05C2F9 ,-3|9|05C2F9,-2|9|05C0F8,-1|9|05BFF7,0|9|05C1F8,1|9|05C2F9,2|9|05C0F8,3|9|05BBF5,4|9| 05B5F1,5|9|069FD7,-4|10|03A9E6,-3|10|02AEEE,-2|10|0498D3,-1|10|0499D3,0|10|0499D3,1|10|03A4E2,2| 10|02ADEE,2|11|0A4665", 1)
//La siguiente oración se usa para dividir la cadena
MyArray = Split(XY, "|") p >
//La siguiente oración convierte una cadena en un valor numérico
X = Clng(MyArray(0)): Y = Clng(MyArray(1))
If x >0
Ir a Inicio
EndIf
Regresar operación de mascota
Sub más Snow Blue
/ /Carácter Agregar sangre
Retraso 100
IfColor renhong*0.62+716+m n-572 311E73 2
Mover a renhong*0.62+716+m,n -572
Retraso 500
Clic derecho 1
EndIf
//Carácter más azul
Retraso 100
IfColor renlan*0.62+716+m n-560 604714 2
Mover a renlan*0.62+716+m,n-560
Retraso 500
Clic derecho 1
EndIf
//La mascota agrega sangre
Retraso 100
IfColor chonghong*0.53+571+m n- 572 604714 2
Mover a chonghong*0.53+571+m,n-572
Retraso 500
Clic derecho 1
EndIf
EndIf
p>
//Las mascotas agregan azul
Retraso 100
IfColor chonglan*0.53+572+m n -560 604717 2
Mover a chonglan*0.53 +572+m,n-560
Retraso 500
Clic derecho 1
EndIf
Devolver Jia Xuelan
Subverificación
VBSCall FindPic(m-12,n-568,m+787,n+13,"Adjunto:\que. bmp",0.9,intX,intY)
Si intx>0
Mientras 1
Bip
Retraso 1000
VBSLlamar a FindPic(m-12,n-568, m+787,n+13,"Attachment:\que.bmp",0.9,intX,intY)
Si intx<
;0
Goto salta de la verificación
EndIf
EndWhile
EndIf
Rem salta de la verificación
Verificación de devolución
Tecla de subcarácter
Retraso 100
Si a=1
Presión de tecla 112,1
ElseIf a=2
Presionar tecla 113,1
ElseIf a=3
Presionar tecla 114,1
ElseIf a= 4
Pulsación de tecla 115,1
ElseIf a=5
Pulsación de tecla 116,1
ElseIf a=6
Presionar tecla 117,1
ElseIf a=7
Presionar tecla 118,1
ElseIf a=8
KeyPress 119,1
EndIf
Botón de retorno de personaje
Sub determina entrar en combate
VBSCall FindPic(m+8, n-564 , m+32 , n-546,"Attachment:\x.bmp",0.9,X,Y)
Si x>0
//Matar monstruos
Mientras 1
Retraso 500
//Operación de caracteres para determinar si aparece la palabra francesa
//La siguiente oración busca varios colores dentro del área de la pantalla y regresa a las coordenadas de posición de color superior izquierda del segundo punto de la esquina
Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "F6E5A1", "1|0|E5C683,0 |1|FFEDAC,1|1|EFD292,-4|2|E1B679,-3|2|FFE6A9,-2|2|FFE6A9,-1|2|FFE6A9,0|2|FFE6A9,1|2|FFE6A9 ,2|2|FFE6A9,3| 2|FFE6A9,4|2|FFE6A9,5|2|E0B377,-4|3|D39B61,-3|3|EFC68C,-2|3|EFC68C,-1|3 |EFC68C,0|3|FFDFA6, 1|3|FDDBA2,2|3|EFC68C,3|3|EFC68C,4|3|EFC68C,5|3|D49D62,0|4|FFD8A3,1|4|EFC08A ,0|5|FFD19F,1| 5|EFBA87,-4|6|EEB383,-3|6|EFB484,-2|6|EFB484,-1|6|EFB484,0|6|FFCA9C,1|6 |FDC699,2|6|EFB484, 3|6|EFB484,4|6|EFB484,5|6|EBAF7F,-4|7|FFC299,-3|7|FFC399,-2|7|FFC399,-1 |7|FFC399,0|7| FFC399,1|7|FFC399,2|7|FFC399,3|7|FFC399,4|7|FFC399,5|7|FABD93,-2|8|C2713F,-1 |8|FFBB96,0|8| C77847,-3|9|B15B26,-2|9|FDB290,-1|9|FAAF8C,2|9|F2A681,3|9|F9AD8A,-4|10|A0470E ,-3|10|F6A484,1 |10|973F00,2|10|D07B4F,3|10|FFAD90,4|10|E5926D,-4|11|DE8561,-3|11|FFA68D,3|11| FBA288,4|11|FFA68D,5 |11|BB6131,-4|12|FF9
F89,-3|12|FF9F89,-2|12|F3947A,-1|12|F4957B,0|12|FC9C86,1|12|FF9F89,2|12|FF9F89,3|12|FF9F89,4|12 |FF9F89,5|12|F09175,-4|13|E48063,-3|13|FD9683,-2|13|FD9784,-1|13|F9937E,0|13|F18B74,1|13|E58165,2 |13|D67452,3|13|C26338,4|13|F08B73,5|13|FF9886,5|14|D46E4D", 1)
//La siguiente oración se usa para dividir la cadena
MyArray = Split(XY, "|")
//La siguiente oración convierte una cadena en un valor numérico
X = Clng(MyArray(0 )) : Y = Clng(MyArray(1))
Verificación de Gosub
Si x>0
Botón de carácter de Gosub
Gosub búsqueda precisa Extraño
Retraso 1000
Operación de mascota Gosub
EndIf
// La siguiente oración encuentra múltiples colores dentro del área de la pantalla, Devuelve las coordenadas de posición de color del segundo punto en la esquina superior izquierda
Plugin XY = Color.FindMutiColor(0, 0, 1024, 768, "52F7FF", "-1|1|69F6FF,0| 1|41F3FF,1 |1|22B7CC,-1|2|57F2FF,0|2|30EEFF,1|2|27E4F9,-2|3|54DBED,-1|3|45ECFF,0|3|25E7FE,1 |3|23E0FA, 2|3|137E9B,3|3|1F94AD,-2|4|57EBFF,-1|4|36E7FF,0|4|1FE1FD,1|4|1EDCFB,2|4|117694,3 |4|27BDD7, 4|4|127F9D,-5|5|50E6FF,-2|5|49E6FF,-1|5|29E1FF,0|5|1ADCFD,1|5|1ADAFC,2|5|127998, 3|5|2FDCFA ,4|5|14A2C2,-6|6|55E4FF,-5|6|38E0FF,-4|6|25A0BF,-3|6|44E1FF,-2|6|31DEFF,-1| 6|1BDBFF,0 |6|15D9FE,1|6|15D8FE,2|6|1892B3,3|6|2DDEFF,4|6|14D2F8,-7|7|48BDDB,-6|7|40DDFF,-5 |7|21D8FF, -4|7|1DBDE2,-3|7|27D9FF,-2|7|1CD7FF,-1|7|11D5FF,0|7|10D5FF,1|7|11D5FF,2|7|1BB6DB ,3|7|24D8FF,4|7|10D2FD,5|7|0C87AD,-7|8|34D8FF,-6|8|17D2FF,-5|8|0BD0FF,-4|8|0EC2EF,-3| 8|12D1FF,- 2|8|0BD0FF,-1|8|0BCEFE,0|8|0BCFFE,1|8|0BD0FF,2|8|0FC9F6,3|8|0BCFFE,4|8|0AC7FA,5| 8|09B5E8,- 8|9|07A9D6,-7|9|06C3FA,-6|9|05BEF7,-5|9|05BFF7,-4|9|05C2F9,-3|9|05C2F9,-2|9 |05C0F8,-1 |9|05BFF7,0|9|05C1F8,1|9|05C2F9,2|9|05C0F8,3|9|05BBF5,4|9|05B5F1,5|9|069FD7,-4|10 |03
A9E6,-3|10|02AEEE,-2|10|0498D3,-1|10|0499D3,0|10|0499D3,1|10|03A4E2,2|10|02ADEE,2|11|0A4665", 1)
//La siguiente oración se usa para dividir la cadena
MyArray = Split(XY, "|")
//La siguiente oración convierte la cadena En valores
X = Clng(MyArray(0)): Y = Clng(MyArray(1))
//Determina si finalizar la batalla
If x >0
Gosub plus azul nieve
Retraso 300
Ir a inicio
EndIf
EndWhile
EndIf
Devuelve Judgment para entrar a la batalla
Te he dado algo, pero si aún no lo entiendes, no hay nada que pueda hacer al respecto. eso