¡Dream Zhuxian está buscando un guión de elfo de botón! Entran los expertos

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

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

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, "|")

//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