Comercio automático de Magic Domain (secuencia de comandos del asistente de botones)
No hay artículos en el almacén de bebés y usted mismo puede agregar algunos.
VBS dim tp(16),a,x,y,linex,liney,bx, por,s, i,jsq
VBS jsjg,jsjiage,jyjg,jyjiage,zdljg,zdljiage,mhjg,mhjiage,hmjg,hmjiage
VBS jszjg,jszjiage,jyzjg,jyzjiage, zdlzjg,zdlzjiage, mhzxjg,mhzxjiage,hmzxjg,hmzxjiage
VBS lhjg,lhjiage,ojg,ojiage,gxjg,gxjiage,sxjg,sxjiage,fzjg,fzjiage
VBS zzjg,zzjiage, cjqsjg,cjqsjiage, zongjiage
//Declarar variables
UserVar jsjg=1 Precio de bajo nivel de reducción de daños
UserVar jyjg=1 Experiencia de precio de bajo nivel
UserVar zdljg=5 El precio del poder de combate de bajo nivel
UserVar mhjg=3 El precio del alma demoníaca
UserVar hmjg=7 El precio del demonio fantasma
UserVar jszjg=15 Precio Intermedio de reducción de daños
UserVar jyzjg=15 Precio Intermedio de Experiencia
UserVar zdlzjg=60 Precio Intermedio de Combate
UserVar mhzxjg=90 Precio del corazón demoníaco
UserVar hmzxjg=120 Precio del corazón fantasma
UserVar lhjg=60 Precio del alma
UserVar ojg=20 Precio del tipo O Baby
UserVar gxjg=6 El precio de la estrella solitaria
UserVar sxjg=6 El precio de la estrella doble
UserVar fzjg=15 El precio de el cerdo francés
UserVar zzjg= 15 El precio del cerdo de guerra
UserVar cjqsjg=7 El precio de Shafi
VBS tp(0)= "1js1":tp(1)="2jyx1":tp(2) ="3zdx5":tp(3)="4mh4":tp(4)="5hm8":tp(5)="6jsz15"
VBS tp(6)="7jyz15":tp( 7)="8zdz60":tp(8)="9mhzx100":tp(9)="10hmzx120":tp(10)="11lh70" :tp(11)="12o20"
VBS tp(12)="13gx5":tp(13)="14sx5":tp(14)="15fz14":tp(15)=" 16zz14":tp(16)="17cjqs7"
//Inicializar variables, x es el lado izquierdo del área, y es el lado izquierdo del área, bx es la parte inferior del área, por es la parte inferior del área, s es el número de imágenes
UserVar str1="Recibir el juicio Caballero Shafi 7 Doble defensa 22 Cerdo 18 Doble estrella solitaria 8 Poder de combate +1/5" Por favor ingrese la primera oración del grito automático
UserVar str2="La velocidad de las personas que venden junto al puesto número 1, el precio de todos los artículos que no son aceptados se incrementa No cuente" Por favor ingrese la segunda oración de los gritos automáticos
UserVar str3="Caballero del juicio cercano Shafi 7 Doble defensa 22 Cerdo 18 Doble estrella solitaria 8 Poder de combate +1/5" Ingrese la tercera oración de la oración de gritos automáticos
UserVar str4="Por favor, coloque las cosas lo más rápido posible, el tiempo no espera a nadie y el precio no se contará si no acepta los artículos." Ingrese la cuarta oración del mensaje automático
p>
UserVar str5="Esta es la quinta oración del grito automático" Ingrese la quinta oración del grito automático
UserVar Yanshi=5000 Tiempo de espera entre dos oraciones, 1 segundo El reloj es 1000
//******************Fin del ajuste******************* *****
Retraso 4000
Rem comienza a hablar
KeyPress 13 1
Retraso 300
SayExpression str1
KeyPress 13 1
Delay Yanshi
Gosub comprueba si hay una transacción
KeyPress 13 1
Retraso 300
SayExpression str2
KeyPress 13 1
Gosub verifica si hay una transacción
Retraso Yanshi
KeyPress 13 1
Delay 300
SayExpression str3
KeyPress 13 1
Gosub comprueba si hay una transacción
Delay DaYanshi
Rem espera medio minuto antes de pasar a la siguiente ronda de ventas
Goto comienza a gritar
EndScript
Se inicia el subprograma
Gosub calcula el número de artículos
Retraso 100
Precio de entrada de Gosub
Retraso 100
Transacción Gosub en espera
Se inicia el proceso de devolución
p>
Sub verifica si hay una transacción
VBSCall findpic(0,0, 1024,768,"..myphotocommerce.bmp",0.9,x,y)
Si x>=0 y y>=0
Retraso 300
MoveTo 443,446
Retraso 500
Clic izquierdo 1
Retraso 2000
Gosub detecta y coloca elementos
Retraso 500
Se inicia el programa Gosub
EndIf
EndIf
Return Check si hay una transacción
Sub Check para poner elementos
VBS i=0
VBS a = 0 : x = 51 : y = 264
VBS s=0
Para 12
Rem comienza a detectar elementos
If i>=6
Goto detecta el final de la colocación de elementos
EndIf
IfColor x,y,80808,2
Delay 2000
VBS i=i+1
Goto comienza a detectar y colocar elementos
Más
EBV x=x+34
EBV
i=0
EBV a=a+1
Si a=5
EBV x = 51 : y = 264+34
EndIf
EndIf
EndFor
Rem detecta el final de la colocación de artículos
Return detecta la colocación de artículos
Sub detecta ¿Se ha cerrado la transacción antes de tiempo
IfColor 125,144,896c6,2
IfColor 149,141,896c6,2
Ir a La transacción no se ha cerrado
Else
Goto comienza a gritar
EndIf
Else
Goto comienza a gritar
EndIf
Rem La transacción no ha finalizado
Regresar Verifique si la transacción finalizó anticipadamente
Sub Calcular el número de artículos
VBS i =0
Gosub detecta si la transacción finalizó anticipadamente
Para 17
VBS a = 0 : x = 34 : y = 247 : bx = 294 : by = 347
VBS s=0
Retraso 100
Mientras que a = 0
//Si la variable a es igual a 0, ejecute el siguiente comando en un bucle
Retraso 10
VBSCall findpic(x,y,bx,by,"..myphoto"&tp(i)&".bmp" ,0.9,x,y)
//Búsqueda en mapa de región
Si x>=0 y y>=0
//Retraso 1000
//MoveTo x,y
//Retraso 1000
//MoveTo 247,294
//Retraso 3000
x = x + 34 : by = y + 34
//Agrega 1 a la izquierda del área.
El 34 aquí se refiere al ancho de la imagen, automodificación
s = s + 1
// Si se encuentra la imagen, agregue 1 al número
Línea Rem
Retraso 10
VBSCall findpic(x,y,bx,by,"..myphoto"&tp(i)&".bmp",0.9,linex ,liney)
//Esto es para buscar nuevamente en la misma línea
Si linex>=0 y liney>=0
//Retraso 1000
//Mover a linex,liney
//Retraso 1000
//Mover a 247,294
//Retraso 3000
x = linex + 34
//Agrega 1 a la izquierda del área
s = s + 1
//Agrega 1 a la cantidad
Ir a línea
//Regresar a la misma fila y buscar nuevamente
De lo contrario
//De lo contrario
x = 34 : y = y + 34 : by = 347
//El lado izquierdo es inicialmente 0, el lado superior se suma con 1 y el lado inferior es el área de inicialización
EndIf
Else
//Si no se encuentra ninguna imagen
a = 1
//La variable a es 1 ( salir del bucle)
EndIf
EndWhile
Gosub Calcular precio
// VBSCall messagebox("***Encontrado" & s & ""&"tp("&i&") "&"Misma imagen" & tp(i) & " ")
VBS i=i+1
//Emergente el resultado
EndFor
Volver Calcular el número de artículos
Sub Calcular precio
//"Calcular precio"
If i=0
Rizhi="Piedra de bajo nivel que reduce daños"
VBS jsjiage =(jsjg*s)
//VBSCall
messagebox("Total" & jsjiage & " MS")
ElseIf i=1
Rizhi="Experimente la piedra de bajo nivel"
VBS jyjiage=jyjg *s
//VBSCall messagebox("Total" & jyjiage & " MS")
ElseIf i=2
Rizhi="Piedra de combate de bajo nivel "
VBS zdljiage=zdljg*s
//VBSCall messagebox("Total" & zdljiage & " MS")
ElseIf i=3
Rizhi="Mohun"
VBS mhjiage=mhjg*s
//VBSCall messagebox("Total" & mhjiage & " MS")
ElseIf i =4
Rizhi="phantom"
VBS hmjiage=(hmjg*s)
//VBSCall messagebox("Total" & hmjiage & " MS")
ElseIf i=5
Rizhi="Piedra intermedia de reducción de daño"
VBS jszjiage=jszjg*s
ElseIf i= 6
Rizhi="Piedra intermedia experimentada"
VBS jyzjiage=jyzjg*s
ElseIf i=7
Rizhi ="Piedra intermedia de poder de combate"
VBS zdlzjiage=zdlzjg*s
ElseIf i=8
Rizhi="Corazón de alma demoníaca"
VBS mhzxjiage=mhzxjg*s
ElseIf i=9
Rizhi="El corazón del fantasma"
VBS hmzxjiage=hmzxjg*s
ElseIf i=10
Rizhi="alma"
VBS lhjiage=lhjg*s
//VBSCall messagebox("Total" & lhjiage & " MS" )
ElseIf i=11
Rizhi="Bebé en forma de O"
VBS ojiage=ojg*s
ElseIf i=12
Rizhi="Lone Star"
VBS gxjiage=gxjg*s
ElseIf i=13
Rizhi="Doble Estrella"
VBS sxjiage=sxjg*s
ElseIf i=14
R
izhi="Cerdo francés"
VBS fzjiage=fzjg*s
ElseIf i=15
Rizhi="Cerdo de guerra"
VBS zzjiage=zzjg*s
ElseIf i=16
Rizhi="Shafei"
VBS cjqsjiage=cjqsjg*s
VBS zongjiage=0
VBS zongjiage=(jsjiage+jyjiage+zdljiage+mhjiage+hmjiage+jszjiage+jyzjiage+zdlzjiage+mhzxjiage+hmzxjiage+lhjiage+ojiage+gxjiage+sxjiage+fzjiage+zzjiage+cjqsjiage)< / p>
//VBSCall messagebox("Total" & zongjiage & " MS")
Else
VBS zongjiage=0
EndIf
Regresar Calcular el precio
Sub Ingresar el precio
MoveTo 200,410
Delay 1000
Gosub Verificar si la transacción tiene se ha avanzado Fin
Clic Izquierdo 1
Retraso 100
Gosub detecta si la transacción ha finalizado anticipadamente
Clic Izquierdo 1
Retraso 1000
SayString zongjiage
Retraso 1000
Entrada Rem ms
MoveTo 263,415
Retraso 1000
p>Gosub detecta si la transacción ha finalizado anticipadamente
LeftClick 1
Retraso 100
Gosub detecta si la transacción ha finalizado ha finalizado antes
Clic izquierdo 1
Retraso 500
IfColor 263,415,8ccfde,2
Ir a entrada ms
Else
MoveTo 136,513
Delay 500
Gosub detecta si la transacción finalizó anticipadamente
LeftClick 1
Retraso 300
EndIf
Precio de entrada de retorno
Sub transacción en espera
jsq=0
Rem esperando transacción
Si jsq>=20
MoveTo 205,515
Delay 1000
Gosub detecta si la transacción finalizó anticipadamente
Clic izquierdo 1
Retraso 300
Obtenido
o La otra parte no intercambia
EndIf
IfColor 233,494,a5f62,2
Delay 1000
jsq=jsq+1
Ir a esperar transacción
Else
EndIf
Rem la otra parte no realiza transacciones
Devolver transacción en espera