玩过英魂的就不用我多说了把。
///
Hwnd = Plugin.Window.GetKeyFocusWnd()
sRect = Plugin.Window.GetClientRect(Hwnd)
z=Split(sRect,"|")
xx = CLng(z(0))
yy = CLng(z(1))
Delay 2333
/
Hwnd = Plugin.Window.Search("英魂") //搜索所有记事本窗口句柄
MyArray = Split(Hwnd, "|") //分解句柄
If UBound(MyArray) >= 0 Then //判断是否搜到句柄？
For i = 0 To UBound(MyArray) - 1
hwndEx = Clng(MyArray(i)) //类型转换
Call Plugin.Window.Move(hwndEx, i * 300 + 100, i * 300 + 2) //调整窗口位置
Call Plugin.Window.Active(hwndEx) //激活前面
//启动线程
Delay 10 //启动线程需要点时间
Next
End If
//游戏目录 父目录
m1=minute(now)
归属 12.22
jieshu = 0
noww = 0
Sub tanchuang()
Do
XY=Plugin.Color.FindMutiColor(111+xx,50+yy,1023+xx,600+yy,"C8C5C8","-9|-1|1E1504,10|-1|191205,-7|-19|298FBE,5|-19|298FBE",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 11
LeftClick 1
End If
///擂台
XY=Plugin.Color.FindMutiColor(111+xx,50+yy,1023+xx,600+yy,"D1CDCF","-12|0|181104,-14|-5|181104,-14|-12|298FBE,-5|38|1D1406,14|34|297393",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 11
LeftClick 1
End If
///去弹窗
XY=Plugin.Color.FindMutiColor(111+xx,50+yy,1023+xx,600+yy,"D3D0D3","-10|0|1E1505,-25|-1|261A05,-38|26|538FBC,-15|26|4B86B8",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 11
LeftClick 1
End If
// XY=Plugin.Color.FindMutiColor(111+xx,50+yy,1023+xx,600+yy,"BCB9BC","0|-3|DBD8DB,3|-3|DCD8DC,3|-1|B2AEAF,7|-1|1B1305,16|-1|2889B5,-5|-1|221704",0.7)
// MyArray = Split(XY, "|")
// X = CInt(MyArray(0)): Y = CInt(MyArray(1))
// If X > 0 and Y > 0 Then
// MoveTo X, Y
// Delay 11
// LeftClick 1
// End If
Loop
End Sub
Sub tanchuang2()
Do
// //分解
// XY=Plugin.Color.FindMutiColor(111+xx,50+yy,1023+xx,600+yy,"C8C5C8","-5|0|1C1404,1|7|1C1306,1|-19|298FBE,14|-10|181105,19|3|287FA5",0.7)
// MyArray = Split(XY, "|")
// X = CInt(MyArray(0)): Y = CInt(MyArray(1))
// If X > 0 and Y > 0 Then
// MoveTo X, Y
// Delay 11
// LeftClick 1
// End If
///地图
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"D2CFD2","-7|0|191204,-7|-12|1A1205,-7|-15|298FBE,14|0|298AB6,11|0|191205",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 11
LeftClick 1
End If
///宠物
XY=Plugin.Color.FindMutiColor(111+xx,50+yy,1023+xx,600+yy,"D2CFD2","-10|-1|181104,9|2|181204,12|0|2984AE,-3|-13|298FBE,-1|-8|171104",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 11
LeftClick 1
End If
Loop
End Sub
Sub suo()
// Do
///去弹窗
XY=Plugin.Color.FindMutiColor(144+xx,68+yy,900+xx,563+yy,"4AA6DE","-4|0|081E26,7|0|082129,-7|-14|635542",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
TracePrint "弹窗"
MoveTo X, Y
Delay 111
LeftClick 1
Delay 111
End If
XY=Plugin.Color.FindMutiColor(144+xx,68+yy,900+xx,563+yy,"D3D0D3","1|1|C7C4C7,-3|1|171104,0|4|171104",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
TracePrint "弹窗"
MoveTo X, Y
Delay 111
LeftClick 1
Delay 111
End If
XY=Plugin.Color.FindMutiColor(144+xx,68+yy,900+xx,663+yy,"163979","-5|0|4A90D1,-9|0|68FAFD,-13|0|4A3630",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
TracePrint "弹窗"
MoveTo 798 + xx, 125 + yy
Delay 11
LeftClick 5
Delay 111
End If
MoveTo 708 + xx, 182 + yy
Delay 11
LeftClick 5
Delay 11
MoveTo 708 + xx, 300 + yy
Delay 11
LeftClick 5
Delay 11
/
If suoji = 0 Then
suott1 = second(noww)
XY=Plugin.Color.FindMutiColor(973+xx,14+yy,1143+xx,167+yy,"FFA110","-3|18|F69E11,1|18|FFA410",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
Delay 1000
x11 = X
y11 = Y
// TracePrint "x11"
// TracePrint x11
// TracePrint "y11"
// TracePrint y11
End If
suoji = suoji + 1
End If
//TracePrint "suo"
suott2 = second(noww)
If suott2 - suott1 > 0 or suott2 - suott1 = 0 Then
suott2 = suott2 - suott1
Else
suott2 = 60 -suott1+suott2
End If
If suott2 > 3 Then
XY=Plugin.Color.FindMutiColor(973+xx,14+yy,1143+xx,167+yy,"FFA110","-3|18|F69E11,1|18|FFA410",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X = x11 and Y = y11 Then
MoveTo 309 + xx, 275 + yy
Delay 101
RightClick 100
Delay 111
RightClick 100
Delay 111
TracePrint "卡着"
suoji=0
Else
suoji=0
End If
End If
// Loop
End Sub
Sub fenjie()
For 1
//
//XY=Plugin.Color.FindMutiColor(426+xx,484+yy ,532+xx,542+yy,"0000DF","1|1|0000D5,5|1|0605BE,9|1|120ECB,6|4|0000E0",0.7)
//
//MyArray = Split(XY, "|")
//X = CInt(MyArray(0)): Y = CInt(MyArray(1))
//if X>0 and Y>0
//TracePrint "ok"
//TracePrint "ok1"
// MoveTo 1000 + xx, 696 + yy
//
// Delay 11
// LeftClick 1
//
// Delay 2000
//
TracePrint "分解 1"
// MoveTo 950 + xx, 696 + yy
Delay 11
LeftClick 1
Delay 2000
MoveTo 860 + xx, 696 + yy
Delay 11
LeftClick 1
/
jiance=0
For 1
Rem diyiye
If jiance = 1 Then
jiance=2
End If
For 1
Rem fenfen1
//金色武器
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"4F5868","8|0|3EE8F3,8|-11|036C8F,2|-10|129CB7,-5|-5|245981",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fenfen1
Else
//a=a+1
End If
Rem fenfen2
//金色鞋子
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"53FCF7","-3|-5|06445E,0|-9|2171B5,11|-11|100808",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fenfen2
Else
//a=a+1
End If
Rem fenfen3
//金色衣服
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"BDF3EF","0|-10|508AC5,3|-11|7DD2F3,12|-10|26CFE3,10|5|2E2933",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fenfen3
Else
//a=a+1
End If
Rem fenfen4
//金色项链
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"1A596B","-4|0|65FCFB,-4|5|DCD0C7,-4|-6|306573,-6|-10|23C5DE",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fenfen4
Else
//a=a+1
End If
Rem fen1
//蓝色头盔
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy ,"526929","2|-5|916026,21|0|AC7728,7|7|374915",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen1
Else
//a=a+1
End If
Rem fen2
///蓝色武器
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"AF6B1A","8|0|EBD33E,9|-5|A0A8A5,18|-6|EFC739",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 2
Goto fen2
Else
//a=a+1
End If
Rem fen3
///蓝色鞋子
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"C88E2B","5|-11|695F28,10|-5|ECD03F,21|-1|B6D6EE,24|-2|090909",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen3
Else
//a=a+1
End If
Rem fen4
蓝色项链
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"BD8224","2|7|151508,4|8|726A28,6|12|E9D144,9|13|676321",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen4
Else
//a=a+1
End If
Rem fen5
/红色衣服
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy ,"942063","5|-6|284573,13|-6|4C309A,21|-11|EA40A9",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen5
Else
//a=a+1
End If
Rem fen6
//红色武器
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"F64AB4","1|-11|6E7382,7|-11|E9E8F2,10|-6|8D9DBB",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen6
Else
//a=a+1
End If
Rem fen7
///红色鞋子
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"202E4A","4|0|4E2A99,10|-5|F049AB,2|11|9BF5FE",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen7
Else
//a=a+1
End If
rem fen8
/红色鞋子
/
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"FF4EBA","4|6|4A1F23,-3|-10|5B2927,6|-5|FC4BBA",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen8
Else
//a=a+1
End If
Rem fen9
红色项链
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"F79ED5","0|-2|471658,1|-7|F754B7,-5|13|424139",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen9
Else
//a=a+1
End If
Rem fen10
白色项链
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"FEFEFE","1|-4|20304C,10|-6|101420,12|7|5077C3",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen10
Else
//a=a+1
End If
Rem fen11
白色武器
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"F8F4F9","2|-10|736D6C,8|-10|E6E5E6,11|0|533929,9|1|54371F",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen11
Else
//a=a+1
End If
Rem fen12
//白色鞋子
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"FFFBFF","-4|-11|4C3D38,0|-11|6D5C52,9|-12|B5AA9D,10|-9|291C18",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen12
Else
//a=a+1
End If
rem fen13
///白色头盔
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"EBEBE9","-6|-10|4A494A,5|5|86867D,2|11|50201E,15|0|BEBBBE",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen13
Else
//a=a+1
End If
Next
If jiance = 2 Then
goto xiaxia1
End If
jiance=1
MoveTo 718 + xx, 535 + yy
Delay 111
LeftClick 1
Delay 500
Goto diyiye
Rem xiaxia1
For 10
MoveTo 860 + xx, 696 + yy
Delay 111
LeftClick 1
Delay 111
Next
Next
Next
End Sub
Sub fenjie2()
For 1
///去弹窗
//
XY=Plugin.Color.FindMutiColor(300+xx,484+yy ,499+xx,542+yy,"0000DF","1|1|0000D5,5|1|0605BE,9|1|120ECB,6|4|0000E0",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
if X>0 and Y>0
TracePrint "ok22222"
//TracePrint "ok1"
// MoveTo 1000 + xx, 696 + yy
//
// Delay 11
// LeftClick 1
//
// Delay 2000
//
// Do
XY=Plugin.Color.FindMutiColor(339+xx,480+yy,605+xx,654+yy,"23568C","2|0|101F73,8|0|4A3630,-16|3|4A3530,-3|15|493530,-2|-13|4B3631",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
Exit For
Else
// TracePrint "分解2222"
// MoveTo 950 + xx, 696 + yy
// Delay 11
// LeftClick 1
// Delay 2000
MoveTo 860 + xx, 696 + yy
Delay 11
LeftClick 1
///
a = 1
Delay 2000
End If
// Loop
a = 1
jiance2=0
Rem dierye
If jiance2 = 1 Then
jiance2=2
End If
For 1
Rem fenfen1
//金色武器
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"4F5868","8|0|3EE8F3,8|-11|036C8F,2|-10|129CB7,-5|-5|245981",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fenfen1
Else
//a=a+1
End If
Rem fenfen2
//金色鞋子
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"53FCF7","-3|-5|06445E,0|-9|2171B5,11|-11|100808",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fenfen2
Else
//a=a+1
End If
Rem fenfen3
//金色衣服
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"BDF3EF","0|-10|508AC5,3|-11|7DD2F3,12|-10|26CFE3,10|5|2E2933",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fenfen3
Else
//a=a+1
End If
Rem fenfen4
//金色项链
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"1A596B","-4|0|65FCFB,-4|5|DCD0C7,-4|-6|306573,-6|-10|23C5DE",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fenfen4
Else
//a=a+1
End If
Rem fen1
//蓝色头盔
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy ,"526929","2|-5|916026,21|0|AC7728,7|7|374915",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen1
Else
//a=a+1
End If
Rem fen2
///蓝色武器
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"AF6B1A","8|0|EBD33E,9|-5|A0A8A5,18|-6|EFC739",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 2
Goto fen2
Else
//a=a+1
End If
Rem fen3
///蓝色鞋子
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"C88E2B","5|-11|695F28,10|-5|ECD03F,21|-1|B6D6EE,24|-2|090909",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen3
Else
//a=a+1
End If
Rem fen4
蓝色项链
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"BD8224","2|7|151508,4|8|726A28,6|12|E9D144,9|13|676321",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen4
Else
//a=a+1
End If
Rem fen5
/红色衣服
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy ,"942063","5|-6|284573,13|-6|4C309A,21|-11|EA40A9",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen5
Else
//a=a+1
End If
Rem fen6
//红色武器
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"F64AB4","1|-11|6E7382,7|-11|E9E8F2,10|-6|8D9DBB",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen6
Else
//a=a+1
End If
Rem fen7
///红色鞋子
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"202E4A","4|0|4E2A99,10|-5|F049AB,2|11|9BF5FE",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen7
Else
//a=a+1
End If
rem fen8
/红色鞋子
/
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"FF4EBA","4|6|4A1F23,-3|-10|5B2927,6|-5|FC4BBA",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen8
Else
//a=a+1
End If
Rem fen9
红色项链
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"F79ED5","0|-2|471658,1|-7|F754B7,-5|13|424139",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen9
Else
//a=a+1
End If
Rem fen10
白色项链
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"FEFEFE","1|-4|20304C,10|-6|101420,12|7|5077C3",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen10
Else
//a=a+1
End If
Rem fen11
白色武器
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"F8F4F9","2|-10|736D6C,8|-10|E6E5E6,11|0|533929,9|1|54371F",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen11
Else
//a=a+1
End If
Rem fen12
//白色鞋子
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"FFFBFF","-4|-11|4C3D38,0|-11|6D5C52,9|-12|B5AA9D,10|-9|291C18",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen12
Else
//a=a+1
End If
rem fen13
///白色头盔
XY=Plugin.Color.FindMutiColor(347+xx,147+yy ,804+xx,553+yy,"EBEBE9","-6|-10|4A494A,5|5|86867D,2|11|50201E,15|0|BEBBBE",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 300
RightClick 10
Delay 300
LeftClick 1
Delay 2200
a = a - 1
Goto fen13
Else
//a=a+1
End If
Next
If jiance2 = 2 Then
goto xiaxia1
End If
jiance2=1
MoveTo 718 + xx, 535 + yy
Delay 111
LeftClick 1
Delay 500
Goto dierye
Rem xiaxia1
For 10
MoveTo 860 + xx, 696 + yy
Delay 111
LeftClick 1
Delay 111
Next
// Next
End If
Next
End Sub
///
Sub ying()
Do
Hwnd = Plugin.Window.Search("英魂") //搜索所有记事本窗口句柄
MyArray = Split(Hwnd, "|") //分解句柄
If UBound(MyArray) >= 0 Then //判断是否搜到句柄？
For i = 0 To UBound(MyArray) - 1
hwndEx = Clng(MyArray(i)) //类型转换
Call Plugin.Window.Move(hwndEx, i * 300 + 100, i * 300 + 2) //调整窗口位置
Call Plugin.Window.Active(hwndEx) //激活前面
//启动线程
Delay 100 //启动线程需要点时间
Next
End If
//游戏目录 父目录
Hwnd = Plugin.Window.findex( hwndEx, 0, "GameSehll31473119", "COS31473119")
Delay 10000
Loop
End Sub
/ 防拉点
/
/// // /// / /
/// // /// / /
/// // /// / /
/// // /// / /
//线程ID1 = BeginThread(bb_xiang1)
//Delay 200
//线程ID2 = BeginThread(bb_xiang2)
//Delay 200
//钥匙
//线程ID4 = BeginThread(bb_xiang4)
///
线程ID5 = BeginThread(bb_xiang5)
线程ID6 = BeginThread(bb_xiang6)
线程ID7 = BeginThread(bb_xiang7)
//Delay 200
线程ID9 = BeginThread(bb_fuhuo)
//Delay 20
//线程ID10 = BeginThread(suo)
线程IDtan = BeginThread(tanchuang)
线程IDtan2 = BeginThread(tanchuang2)
线程IDying = BeginThread(ying)
///
Sub bb_xiang4()
Do
///钥匙
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"B71C92","0|-3|EA61E8,-4|-7|47BCDB,1|-8|43BADE",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 5
RightClick 1
Delay 2
//KeyPress "W", 1
TracePrint "1231111"
Delay 2
//KeyPress "E", 1
Else
End If
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"B95CB9","-7|-11|276C89,-5|-15|43B5D0",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 5
RightClick 1
Delay 2
//KeyPress "W", 1
TracePrint "1231111"
Delay 2
//KeyPress "E", 1
Else
End If
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"FF60F5","5|-3|4BD2E5,4|7|76FEFA",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 5
RightClick 1
Delay 2
//KeyPress "W", 1
TracePrint "1231111"
Delay 2
//KeyPress "E", 1
Else
End If
///钥匙钥匙县城
///
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"EA61E8","-3|-4|41BFDE,1|-5|43BADE",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 5
RightClick 1
Delay 2
//KeyPress "W", 1
TracePrint "1231111"
Delay 2
//KeyPress "E", 1
Else
End If
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"C932B5","-1|3|54A6D2,4|-3|54B2DC",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 5
RightClick 1
Delay 2
//KeyPress "W", 1
TracePrint "1231111"
Delay 2
//KeyPress "E", 1
Else
End If
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"FF63E5","2|2|5DEFEA,-1|5|6EFFFF",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 5
RightClick 1
Delay 2
//KeyPress "W", 1
TracePrint "1231111"
Delay 2
//KeyPress "E", 1
Else
End If
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"F171E6","1|-5|5DA2DE,-3|-4|6C97DE",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 5
RightClick 1
Delay 2
//KeyPress "W", 1
TracePrint "1231111"
Delay 2
//KeyPress "E", 1
Else
End If
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"5EF1F3","0|-3|FE82EB,0|3|A76EB4,3|0|5FF9F4",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 5
RightClick 1
Delay 2
//KeyPress "W", 1
TracePrint "1231111"
Delay 2
//KeyPress "E", 1
Else
End If
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"F778E6","2|2|50C7D8,4|0|54CAD7",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 5
RightClick 1
Delay 2
//KeyPress "W", 1
TracePrint "1231111"
Delay 2
//KeyPress "E", 1
Else
End If
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"E464CC","-4|1|5DC3CF,-1|4|5DE3E4",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 5
RightClick 1
Delay 2
//KeyPress "W", 1
TracePrint "1231111"
Delay 2
//KeyPress "E", 1
Else
End If
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"5ED8D7","3|0|E3A2D5,-3|0|B862B8",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 5
RightClick 1
Delay 2
//KeyPress "W", 1
TracePrint "1231111"
Delay 2
//KeyPress "E", 1
Else
End If
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"43BBD2","2|5|FF81F4,2|12|70FFFF,-3|7|4AD0E5",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 5
RightClick 1
Delay 2
//KeyPress "W", 1
TracePrint "1231111"
Delay 2
//KeyPress "E", 1
Else
End If
Loop
End Sub
/
/
/
Sub bb_xiang5()
Do
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"35CED8","0|-4|6C554F,-2|1|287F9A",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
TracePrint "新的识别 1"
MoveTo X, Y
Delay 11
KeyPress "2", 1
Delay 11
KeyPress "W", 1
Delay 11
RightClick 1
Else
End If
/
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"35B2BF","0|-3|5D514C,-5|-7|344462",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
TracePrint "新的识别 6"
MoveTo X, Y
Delay 11
RightClick 1
Delay 11
KeyPress "2", 1
// TracePrint "1231111"
Delay 11
KeyPress "E", 1
End If
//新的识别 5
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"73625A","2|-2|1E8ECD,3|0|71615A",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
TracePrint "新的识别 5"
MoveTo X, Y
Delay 11
RightClick 1
Delay 11
KeyPress "2", 1
// TracePrint "1231111"
Delay 11
KeyPress "E", 1
End If
/// 新的识别 4
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"2B4B82","3|-3|B28883,7|8|2BFFFF",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
TracePrint "新的识别4"
MoveTo X, Y
Delay 11
RightClick 1
Delay 11
KeyPress "2", 1
Delay 3
Delay 11
KeyPress "E", 1
End If
Loop
End Sub
Sub bb_xiang6()
Do
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"2D3F6D","1|8|2899B9,-3|11|78635B",0.8)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
TracePrint "新的识别 2"
MoveTo X, Y
Delay 11
KeyPress "2", 1
Delay 11
KeyPress "W", 1
Delay 11
RightClick 1
Else
End If
/// 新的识别 1
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"1FD3E8","-3|1|79615D,0|4|6D5D53",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
TracePrint "新的识别"
MoveTo X, Y
Delay 11
RightClick 1
Delay 11
KeyPress "2", 1
Delay 3
Delay 11
KeyPress "E", 1
End If
// 新的识别 2
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"293F74","6|-2|7F6867,5|4|33ECFB",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
TracePrint "新的识别2"
MoveTo X, Y
Delay 11
RightClick 1
Delay 11
KeyPress "2", 1
Delay 3
Delay 11
KeyPress "E", 1
End If
///新的识别 3
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"2BD2E1","-2|2|775F5A,2|3|675B55",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 11
RightClick 1
Delay 11
KeyPress "2", 1
TracePrint "新的识别3"
Delay 11
KeyPress "E", 1
End If
Loop
End Sub
Sub bb_xiang7()
Do
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"2BCDD2","-3|2|79645A,2|4|695B55",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
TracePrint "新的识别 2"
MoveTo X, Y
Delay 11
KeyPress "2", 1
Delay 11
KeyPress "W", 1
Delay 11
RightClick 1
Else
End If
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"2899A2","4|0|6D5D56,0|3|6E5B56",0.8)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
TracePrint "新的识别 2"
MoveTo X, Y
Delay 11
KeyPress "2", 1
Delay 11
KeyPress "W", 1
Delay 11
RightClick 1
Else
End If
///新的识别8
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"2EE0E7","2|0|208188,1|3|6A5B55",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
TracePrint "新的识别8"
MoveTo X, Y
Delay 11
RightClick 1
End If
///新的识别9
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"485B7B","-3|1|7E6767,6|-3|7B6665",0.9)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
TracePrint "新的识别9"
MoveTo X, Y
Delay 11
RightClick 1
End If
///新的识别10
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"267EA0","4|1|6C5C56,3|2|6B5C56",0.8)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
TracePrint "新的识别9"
MoveTo X, Y
Delay 11
RightClick 1
End If
Loop
End Sub
/
/
/
/
/
/
/// // /// / /
/
/
/
/
//
///
//
Sub bb_fuhuo()
Do
Delay 100
XY=Plugin.Color.FindMutiColor(400+xx,120+yy,800+xx,600+yy,"AB7E1B","-26|-1|A87C1C,-12|22|C69012",0.9)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
Delay 112
MoveTo X, Y
Delay 112
LeftClick 1
Delay 1100
KeyPress "G", 1
Delay 1800
MoveTo di30,di31
Delay 11
RightClick 1
Delay 11300
End If
loop
End Sub
Sub shenxing()
KeyPress "W", 1
// MoveTo 858 + xx, 405 + yy
// Delay 11
// LeftClick 1
// Delay 11
// MoveTo 708 + xx, 184 + yy
// Delay 11
// LeftClick 1
// Delay 11
// MoveTo 507 + xx, 184 + yy
// Delay 11
// LeftClick 1
// Delay 11
// MoveTo 628 + xx, 419 + yy
// Delay 11
// LeftClick 1
// Delay 11
// MoveTo 708 + xx, 300 + yy
// Delay 11
// LeftClick 1
// Delay 11
// MoveTo 797 + xx, 125 + yy
// Delay 11
// LeftClick 1
// Delay 11
// MoveTo 807 + xx, 180 + yy
// Delay 11
// LeftClick 1
// Delay 11
/
/关闭冒险币
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"C6C3C6","-6|0|362624,7|0|352524,-431|449|3175AD,-435|446|79CEF4",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 11
LeftClick 1
End If
XY=Plugin.Color.FindMutiColor(151+xx,53+yy,1071+xx,640+yy,"FBF8AF","-4|1|EFDC83,6|3|F4F7EA,-2|6|344E8F,-3|6|AB9520",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
Delay 11
LeftClick 1
End If
End Sub
Sub suiji()
// h = hour(now)
m = minute(now)
TracePrint m
If m > 0 and m < 15 Then
TracePrint "a4"
Goto a4
Else
If m > 14 and m < 30 Then
TracePrint "a5"
Goto a5
Else
If m > 29 and m < 45 Then
TracePrint "a6"
Goto a6
Else
If m >44 and m < 59 Then
TracePrint "a7"
Goto a7
Else
If m = 0 Then
TracePrint "a4"
Goto a4
End If
End If
End If
End If
End If
End Sub
Rem aaa
TracePrint "suiji"
Delay 3000
Call suiji()
TracePrint "2"
Rem a4
app1 = 0
//石头人
第1个点
di30=1068+xx
di31 =73 + yy
第2个点
di32=1068+xx
di33=88+yy
第3个点
di34=1029+xx
di35 =47+yy
//第4个点
di36=1060+xx
di37 =45+yy
第5个点
//
//di38=1048+xx
//di39 =45+yy
For 1
q = 0
While q = 0
放拉
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y > 84 + yy Then
MoveTo di30, di31
RightClick 1
Delay 1000
MoveTo di30, di31
RightClick 1
Delay 1000
End If
// XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"090605","2|0|A7E7EF,5|0|A7E7EF,5|-1|000000,7|0|A7E7EF,7|-5|000000,7|4|A7E7EF,14|4|A7E7EF,13|4|000000,13|-2|000000,15|-2|A7E7EF,39|-2|A7E7EF",0.6)
// MyArray = Split(XY, "|")
// X = CInt(MyArray(0)): Y = CInt(MyArray(1))
// If X > 0 and Y > 0 Then
// TracePrint "被拉到冰原的次数为"&noww&"次"
// Else
// Goto chuansong
// End If
m = minute(now)
If m > 0 and m < 15 Then
// Goto a4
Else
If m >14 and m < 31 Then
Goto a5
Else
If m >30 and m < 45 Then
Goto a6
Else
If m >44 and m < 59 Then
Goto a7
Else
If m = 15 Then
Goto a5
End If
End If
End If
End If
End If
///
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y>68+yy Then
MoveTo di30, di31
KeyPress "A", 1
Delay 55
LeftClick 1
Delay 50
LeftClick 1
// MoveTo 707 + xx, 182 + yy
// Delay 11
// LeftClick 1
// Delay 11
Call shenxing()
//Call bb_fuhuo()
Call fenjie2()
Else
q=1
End If
Wend
While q = 1
放拉
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y > 84 + yy Then
MoveTo di30, di31
RightClick 1
Delay 1000
MoveTo di30, di31
RightClick 1
Delay 1000
End If
// XY = Plugin.Color.FindMutiColor(0, 0, 1366, 768, "090605", "2|0|A7E7EF,5|0|A7E7EF,5|-1|000000,7|0|A7E7EF,7|-5|000000,7|4|A7E7EF,14|4|A7E7EF,13|4|000000,13|-2|000000,15|-2|A7E7EF,39|-2|A7E7EF", 0.6)
// MyArray = Split(XY, "|")
// X = CInt(MyArray(0)): Y = CInt(MyArray(1))
// If X > 0 and Y > 0 Then
// TracePrint "被拉到冰原的次数为"&noww&"次"
// Else
// Goto chuansong
// End If
m = minute(now)
If m > 0 and m < 16 Then
// Goto a4
Else
If m >15 and m < 31 Then
Goto a5
Else
If m >30 and m < 45 Then
Goto a6
Else
If m >44 and m < 59 Then
Goto a7
Else
If m = 0 Then
Goto a4
End If
End If
End If
End If
End If
// TracePrint "q=1"
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y < 75+yy Then
MoveTo di32, di33
KeyPress "A", 1
Delay 55
LeftClick 1
Delay 50
LeftClick 1
// MoveTo 707 + xx, 182 + yy
// Delay 11
// LeftClick 1
// Delay 11
Call shenxing()
//Call bb_fuhuo()
Call fenjie2()
Else
q=2
End If
Wend
While q = 2
放拉
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y > 84 + yy Then
MoveTo di30, di31
RightClick 1
Delay 1000
MoveTo di30, di31
RightClick 1
Delay 1000
End If
// XY = Plugin.Color.FindMutiColor(0, 0, 1366, 768, "090605", "2|0|A7E7EF,5|0|A7E7EF,5|-1|000000,7|0|A7E7EF,7|-5|000000,7|4|A7E7EF,14|4|A7E7EF,13|4|000000,13|-2|000000,15|-2|A7E7EF,39|-2|A7E7EF", 0.6)
// MyArray = Split(XY, "|")
// X = CInt(MyArray(0)): Y = CInt(MyArray(1))
// If X > 0 and Y > 0 Then
// TracePrint "被拉到冰原的次数为"&noww&"次"
// Else
// Goto chuansong
// End If
m = minute(now)
If m > 0 and m < 16 Then
// Goto a4
Else
If m >15 and m < 31 Then
Goto a5
Else
If m >30 and m < 45 Then
Goto a6
Else
If m >44 and m < 59 Then
Goto a7
Else
If m = 0 Then
Goto a4
End If
End If
End If
End If
End If
// TracePrint "q=1"
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-2|18|FFA210,1|18|FFA410",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y > 39+yy Then
MoveTo di34, di35
KeyPress "A", 1
Delay 200
LeftClick 1
Delay 400
LeftClick 1
// MoveTo 707 + xx, 182 + yy
// Delay 11
// LeftClick 1
// Delay 11
Call shenxing()
//Call bb_fuhuo()
Call fenjie2()
Else
q=3
End If
Wend
While q = 3
放拉
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y > 84 + yy Then
MoveTo di30, di31
RightClick 1
Delay 1000
MoveTo di30, di31
RightClick 1
Delay 1000
End If
// XY = Plugin.Color.FindMutiColor(0, 0, 1366, 768, "090605", "2|0|A7E7EF,5|0|A7E7EF,5|-1|000000,7|0|A7E7EF,7|-5|000000,7|4|A7E7EF,14|4|A7E7EF,13|4|000000,13|-2|000000,15|-2|A7E7EF,39|-2|A7E7EF", 0.6)
// MyArray = Split(XY, "|")
// X = CInt(MyArray(0)): Y = CInt(MyArray(1))
// If X > 0 and Y > 0 Then
// TracePrint "被拉到冰原的次数为"&noww&"次"
// Else
// Goto chuansong
// End If
m = minute(now)
If m > 0 and m < 16 Then
// Goto a4
Else
If m >15 and m < 31 Then
Goto a5
Else
If m >30 and m < 45 Then
Goto a6
Else
If m >44 and m < 59 Then
Goto a7
Else
If m = 0 Then
Goto a4
End If
End If
End If
End If
End If
// TracePrint "q=1"
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-2|18|FFA210,1|18|FFA410",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X < 1058+xx Then
MoveTo di36, di37
KeyPress "A", 1
Delay 205
LeftClick 1
Delay 400
LeftClick 1
// MoveTo 707 + xx, 182 + yy
// Delay 11
// LeftClick 1
// Delay 11
Call shenxing()
//Call bb_fuhuo()
Call fenjie2()
Else
q=4
End If
Wend
While q = 4
放拉
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y > 84 + yy Then
MoveTo di30, di31
RightClick 1
Delay 1000
MoveTo di30, di31
RightClick 1
Delay 1000
End If
// XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"090605","2|0|A7E7EF,5|0|A7E7EF,5|-1|000000,7|0|A7E7EF,7|-5|000000,7|4|A7E7EF,14|4|A,0.6)
// MyArray = Split(XY, "|")
// X = CInt(MyArray(0)): Y = CInt(MyArray(1))
// If X > 0 and Y > 0 Then
// TracePrint "被拉到冰原的次数为"&noww&"次"
// Else
// Goto chuansong
// End If
m = minute(now)
If m > 0 and m < 16 Then
// Goto a4
Else
If m >15 and m < 31 Then
Goto a5
Else
If m >30 and m < 45 Then
Goto a6
Else
If m >44 and m < 59 Then
Goto a7
Else
If m = 0 Then
Goto a4
End If
End If
End If
End If
End If
Call shenxing()
//Call bb_fuhuo()
Call fenjie2()
//
app1 = app1 + 1
TracePrint "q=2"
MoveTo di30, di31
Delay 11
KeyPress "A", 1
RightClick 1
Delay 11
// MoveTo 707 + xx, 182 + yy
// Delay 11
// LeftClick 1
// Delay 111
m2 = minute(now)
If m2 - m1 > 0 or m2-m1=0 Then
m2=m2-m1
Else
m2=60-m1+m2
End If
Delay 20
TracePrint "m"
TracePrint m1
TracePrint m2
Call shenxing()
If app1 > 4 Then
Call fenjie()
app1 = 0
m2=0
Else
If m2 > 10 Then
Call fenjie()
m1 = minute(now)
app1=0
End If
End If
q = 0
Call suiji()
Goto a4
Wend
Next
//
TracePrint "5"
Rem a5
// 哥不灵
第1个点
di30=1115+xx
di31 =44 + yy
第2个点
di32=1117+xx
di33=57+yy
第3个点
di34=1127+xx
di35 =76+yy
第4个点
//
//di36=1043+xx
//di37 =64+yy
app1 = 0
For 1
q = 0
While q = 0
放拉
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y > 84 + yy Then
MoveTo di30, di31
RightClick 1
Delay 1000
MoveTo di30, di31
RightClick 1
Delay 1000
End If
m = minute(now)
If m > 0 and m < 16 Then
Goto a4
Else
If m >15 and m < 30 Then
// Goto a5
Else
If m >29 and m < 45 Then
Goto a6
Else
If m >44 and m < 59 Then
Goto a7
Else
If m = 30 Then
Goto a6
End If
End If
End If
End If
End If
// h = hour(now)
// m = minute(now)
// If h mod 2 = 0 Then
// If m >57 Then
// Goto guishu
// End If
// End If
// h = hour(now)
// m = minute(now)
// If h mod 2 = 1 Then
// If jieshu = 0 Then
// If m = 0 or m > 0 and m <7 Then
// Goto guishu
// End If
// End If
// End If
///
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y>34+yy Then
MoveTo di30, di31
KeyPress "A", 1
Delay 1500
LeftClick 1
Delay 1500
// MoveTo 707 + xx, 182 + yy
// Delay 11
// LeftClick 1
// Delay 11
Call shenxing()
//Call bb_fuhuo()
Call fenjie2()
Else
q=1
End If
Wend
While q = 1
放拉
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y > 84 + yy Then
MoveTo di30, di31
RightClick 1
Delay 1000
MoveTo di30, di31
RightClick 1
Delay 1000
End If
m = minute(now)
If m > 0 and m < 16 Then
Goto a4
Else
If m >15 and m < 30 Then
// Goto a5
Else
If m >29 and m < 45 Then
Goto a6
Else
If m >44 and m < 59 Then
Goto a7
Else
If m = 0 Then
Goto a4
End If
End If
End If
End If
End If
// TracePrint "q=1"
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y < 46+yy Then
MoveTo di32, di33
KeyPress "A", 1
Delay 55
LeftClick 1
Delay 50
LeftClick 1
// MoveTo 707 + xx, 182 + yy
// Delay 11
// LeftClick 1
// Delay 11
Call shenxing()
//Call bb_fuhuo()
Call fenjie2()
Else
q=2
End If
Wend
While q = 2
放拉
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y > 84 + yy Then
MoveTo di30, di31
RightClick 1
Delay 1000
MoveTo di30, di31
RightClick 1
Delay 1000
End If
m = minute(now)
If m > 0 and m < 16 Then
Goto a4
Else
If m >15 and m < 30 Then
// Goto a5
Else
If m >29 and m < 45 Then
Goto a6
Else
If m >44 and m < 59 Then
Goto a7
Else
If m = 0 Then
Goto a4
End If
End If
End If
End If
End If
// TracePrint "q=2"
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y < 65+yy Then
MoveTo di34, di35
KeyPress "A", 1
Delay 55
LeftClick 1
Delay 50
LeftClick 1
// MoveTo 707 + xx, 182 + yy
// Delay 11
// LeftClick 1
// Delay 11
Call shenxing()
//Call bb_fuhuo()
Call fenjie2()
Else
q=3
End If
Wend
While q = 3
放拉
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y > 84 + yy Then
MoveTo di30, di31
RightClick 1
Delay 1000
MoveTo di30, di31
RightClick 1
Delay 1000
End If
m = minute(now)
If m > 0 and m < 16 Then
Goto a4
Else
If m >15 and m < 31 Then
// Goto a5
Else
If m >30 and m < 45 Then
Goto a6
Else
If m >44 and m < 59 Then
Goto a7
Else
If m = 0 Then
Goto a4
End If
End If
End If
End If
End If
Call shenxing()
//Call bb_fuhuo()
Call fenjie2()
//
app1 = app1 + 1
TracePrint "q=2"
MoveTo di30, di31
Delay 1500
KeyPress "A", 1
RightClick 1
Delay 1500
// MoveTo 707 + xx, 182 + yy
// Delay 11
// LeftClick 1
// Delay 111
m2 = minute(now)
If m2 - m1 > 0 or m2-m1=0 Then
m2=m2-m1
Else
m2=60-m1+m2
End If
Delay 20
TracePrint "m"
TracePrint m1
TracePrint m2
Call shenxing()
If app1 > 4 Then
Call fenjie()
app1 = 0
m2=0
Else
If m2 > 10 Then
Call fenjie()
m1 = minute(now)
app1=0
End If
End If
q = 0
Call suiji()
Goto a5
Wend
Next
TracePrint "6"
yi = 0
Rem a6
TracePrint "a6"
yi30=1072+xx
yi31 =82 + yy
While yi = 0
// XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"090605","2|0|A7E7EF,5|0|A7E7EF,5|-1|000000,7|0|A7E7EF,7|-5|000000,7|4|A7E7EF,14|4|A,0.6)
// MyArray = Split(XY, "|")
// X = CInt(MyArray(0)): Y = CInt(MyArray(1))
// If X > 0 and Y > 0 Then
// TracePrint "被拉到冰原的次数为"&noww&"次"
// Else
// Goto chuansong
// End If
// TracePrint "q=1"
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
// If Y > 105 + yy Then
// yi=1
// End If
If X > 1072+xx Then
MoveTo yi30, yi31
RightClick 1
Delay 100
MoveTo yi30, yi31
RightClick 1
Delay 100
// MoveTo 707 + xx, 182 + yy
// Delay 11
// LeftClick 1
// Delay 11
Call shenxing()
//Call bb_fuhuo()
// Call fenjie2()
Else
For 10
MoveTo 1062 + xx, 123 + yy
RightClick 1
Delay 700
MoveTo 1062 + xx, 123 + yy
RightClick 1
Next
yi=1
End If
Wend
// 食人龙
第1个点
di30=1062+xx
di31 =123 + yy
第2个点
di32=1033+xx
di33=130+yy
第3个点
//di34=1127+xx
//di35 =73+yy
第4个点
//
//di36=1043+xx
//di37 =64+yy
app1 = 0
TracePrint "66"
For 1
q = 0
While q = 0
///放啦
XY=Plugin.Color.FindMutiColor(1012+xx,35+yy,1141+xx,160+yy,"FFA110","-2|18|FFA210,2|18|FFA610",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
If X > 1069+xx Then
For 10
MoveTo 1073+xx,80+yy
Delay 111
RightClick 1
Delay 700
Next
End If
XY=Plugin.Color.FindMutiColor(1012+xx,35+yy,1141+xx,160+yy,"FFA110","-2|18|FFA210,2|18|FFA610",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)) : Y = CInt(MyArray(1))
If X > 1069 + xx and Y > 97 + yy Then
For 10
MoveTo 1073+xx,80+yy
Delay 111
RightClick 1
Delay 700
Next
End If
// XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"090605","2|0|A7E7EF,5|0|A7E7EF,5|-1|000000,7|0|A7E7EF,7|-5|000000,7|4|A7E7EF,14|4|A,0.6)
// MyArray = Split(XY, "|")
// X = CInt(MyArray(0)): Y = CInt(MyArray(1))
// If X > 0 and Y > 0 Then
// TracePrint "被拉到冰原的次数为"&noww&"次"
// Else
// Goto chuansong
// End If
m = minute(now)
If m > 0 and m < 16 Then
Goto a4
Else
If m >15 and m < 31 Then
Goto a5
Else
If m >30 and m < 45 Then
// Goto a6
Else
If m >44 and m < 59 Then
Goto a7
Else
If m = 0 Then
Goto a4
End If
End If
End If
End If
End If
TracePrint "q=0"
/
///
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X<1059+xx Then
MoveTo di30, di31
KeyPress "A", 1
Delay 55
LeftClick 1
Delay 50
LeftClick 1
// MoveTo 707 + xx, 182 + yy
// Delay 11
// LeftClick 1
// Delay 11
Call shenxing()
//Call bb_fuhuo()
Call fenjie2()
Else
q=1
End If
Wend
While q = 1
// XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"090605","2|0|A7E7EF,5|0|A7E7EF,5|-1|000000,7|0|A7E7EF,7|-5|000000,7|4|A7E7EF,14|4|A,0.6)
// MyArray = Split(XY, "|")
// X = CInt(MyArray(0)): Y = CInt(MyArray(1))
// If X > 0 and Y > 0 Then
// TracePrint "被拉到冰原的次数为"&noww&"次"
// TracePrint "被拉到冰原"&noww&"次"
// Else
// Goto chuansong
// End If
m = minute(now)
If m > 0 and m < 16 Then
Goto a4
Else
If m >15 and m < 31 Then
Goto a5
Else
If m >30 and m < 45 Then
// Goto a6
Else
If m >44 and m < 59 Then
Goto a7
Else
If m = 0 Then
Goto a4
End If
End If
End If
End If
End If
TracePrint "q=1"
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 1033+xx Then
MoveTo di32, di33
KeyPress "A", 1
Delay 55
LeftClick 1
Delay 50
LeftClick 1
// MoveTo 707 + xx, 182 + yy
// Delay 11
// LeftClick 1
// Delay 11
Call shenxing()
//Call bb_fuhuo()
Call fenjie2()
Else
q=2
End If
Wend
While q = 2
// XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"090605","2|0|A7E7EF,5|0|A7E7EF,5|-1|000000,7|0|A7E7EF,7|-5|000000,7|4|A7E7EF,14|4|A,0.6)
// MyArray = Split(XY, "|")
// X = CInt(MyArray(0)): Y = CInt(MyArray(1))
// If X > 0 and Y > 0 Then
// TracePrint "被拉到冰原的次数为"&noww&"次"
// Else
// Goto chuansong
// End If
m = minute(now)
If m > 0 and m < 16 Then
Goto a4
Else
If m >15 and m < 31 Then
Goto a5
Else
If m >30 and m < 45 Then
// Goto a6
Else
If m >44 and m < 59 Then
Goto a7
Else
If m = 0 Then
Goto a4
End If
End If
End If
End If
End If
TracePrint "q=2"
Call shenxing()
//Call bb_fuhuo()
Call fenjie2()
//
app1 = app1 + 1
TracePrint "q=2"
MoveTo di30, di31
Delay 11
KeyPress "A", 1
RightClick 1
Delay 11
// MoveTo 707 + xx, 182 + yy
// Delay 11
// LeftClick 1
// Delay 111
m2 = minute(now)
If m2 - m1 > 0 or m2-m1=0 Then
m2=m2-m1
Else
m2=60-m1+m2
End If
Delay 20
TracePrint "m"
TracePrint m1
TracePrint m2
Call shenxing()
If app1 > 4 Then
Call fenjie()
app1 = 0
m2=0
Else
If m2 > 10 Then
Call fenjie()
m1 = minute(now)
app1=0
End If
End If
q = 0
Call suiji()
Goto a6
Wend
Next
TracePrint "7"
Rem a7
// 树精
第1个点
di30=1111+xx
di31 =87 + yy
第2个点
di32=1134+xx
di33=91+yy
第3个点
//di34=1127+xx
//di35 =73+yy
第4个点
//
//di36=1043+xx
//di37 =64+yy
app1=0
For 1
q = 0
While q = 0
// XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"A7E7EF","3|0|A7E7EF,3|-3|A7E7EF,2|4|A7E7EF,6|0|A7E7EF,11|-2|A7E7EF,2|5|A7E7EF,3|5|A7E7EF",0.6)
//
// MyArray = Split(XY, "|")
// X = CInt(MyArray(0)): Y = CInt(MyArray(1))
// If X > 0 and Y > 0 Then
// TracePrint "被拉到冰原的次数为"&noww&"次"
// Else
// Goto chuansong
// End If
放拉
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y > 99 + yy Then
MoveTo di30, di31
RightClick 1
Delay 1000
MoveTo di30, di31
RightClick 1
Delay 1000
End If
///
///
m = minute(now)
If m > 0 and m < 16 Then
Goto a4
Else
If m >15 and m < 31 Then
Goto a5
Else
If m >30 and m < 45 Then
Goto a6
Else
If m >44 and m < 59 Then
// Goto a7
Else
If m = 0 Then
Goto a4
End If
If m = 59 Then
End If
End If
End If
End If
End If
h = hour(now)
m = minute(now)
// If m >59 Then
// Goto guishu
// End If
// h = hour(now)
// m = minute(now)
// If h mod 2 = 1 Then
// If jieshu = 0 Then
// If m = 0 or m > 0 and m <5 Then
// Goto guishu
// End If
// End If
// End If
///
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X>1110+xx Then
MoveTo di30, di31
KeyPress "A", 1
Delay 55
LeftClick 1
Delay 50
LeftClick 1
// MoveTo 707 + xx, 182 + yy
// Delay 11
// LeftClick 1
// Delay 11
Call shenxing()
//Call bb_fuhuo()
Call fenjie2()
Else
q=1
End If
Wend
While q = 1
// XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"A7E7EF","3|0|A7E7EF,3|-3|A7E7EF,2|4|A7E7EF,6|0|A7E7EF,11|-2|A7E7EF,2|5|A7E7EF,3|5|A7E7EF",0.6)
//
// MyArray = Split(XY, "|")
// X = CInt(MyArray(0)): Y = CInt(MyArray(1))
// If X > 0 and Y > 0 Then
// TracePrint "被拉到冰原的次数为"&noww&"次"
// Else
// Goto chuansong
// End If
放拉
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y > 99 + yy Then
MoveTo di30, di31
RightClick 1
Delay 8000
MoveTo di30, di31
RightClick 1
Delay 2000
End If
/
m = minute(now)
If m > 0 and m < 16 Then
Goto a4
Else
If m >15 and m < 31 Then
Goto a5
Else
If m >30 and m < 45 Then
Goto a6
Else
If m >44 and m < 59 Then
// Goto a7
Else
If m = 0 Then
Goto a4
End If
If m = 59 Then
End If
End If
End If
End If
End If
// TracePrint "q=1"
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X < 1131+xx Then
MoveTo di32, di33
KeyPress "A", 1
Delay 55
LeftClick 1
Delay 50
LeftClick 1
// MoveTo 707 + xx, 182 + yy
// Delay 11
// LeftClick 1
// Delay 11
Call shenxing()
//Call bb_fuhuo()
Call fenjie2()
Else
q=2
End If
Wend
While q = 2
// XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"A7E7EF","3|0|A7E7EF,3|-3|A7E7EF,2|4|A7E7EF,6|0|A7E7EF,11|-2|A7E7EF,2|5|A7E7EF,3|5|A7E7EF",0.6)
//
// MyArray = Split(XY, "|")
// X = CInt(MyArray(0)): Y = CInt(MyArray(1))
// If X > 0 and Y > 0 Then
// TracePrint "被拉到冰原的次数为"&noww&"次"
// TracePrint "被拉到冰原的次数为"&noww&"次"
// Else
// Goto chuansong
// End If
放拉
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y > 99 + yy Then
MoveTo di30, di31
RightClick 1
Delay 1000
MoveTo di30, di31
RightClick 1
Delay 1000
End If
m = minute(now)
If m > 0 and m < 16 Then
Goto a4
Else
If m >15 and m < 31 Then
Goto a5
Else
If m >30 and m < 45 Then
Goto a6
Else
If m >44 and m < 59 Then
// Goto a7
Else
If m = 0 Then
Goto a4
End If
If m = 59 Then
Goto guishu
End If
End If
End If
End If
End If
Call shenxing()
//Call bb_fuhuo()
Call fenjie2()
//
app1 = app1 + 1
TracePrint "q=2"
MoveTo di30, di31
Delay 11
KeyPress "A", 1
RightClick 1
Delay 11
// MoveTo 707 + xx, 182 + yy
// Delay 11
// LeftClick 1
// Delay 111
m2 = minute(now)
If m2 - m1 > 0 or m2-m1=0 Then
m2=m2-m1
Else
m2=60-m1+m2
End If
Delay 20
TracePrint "m"
TracePrint m1
TracePrint m2
Call shenxing()
If app1 > 4 Then
Call fenjie()
app1 = 0
m2=0
Else
If m2 > 10 Then
Call fenjie()
m1 = minute(now)
app1=0
End If
End If
q = 0
Goto a7
Wend
Next
/归属
Rem guishu
TracePrint "guishu"
dd1 = 1052+xx
dd2 = 80+yy
/ 归属点
dd3 = 1081+xx
dd4 = 56+yy
//
b = 0
For 1
While b = 0
/
///
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y < 69 + yy Then
MoveTo dd1, dd2
Delay 111
RightClick 1
Else
b=1
End If
Wend
ben=1
Rem pan1
While b = 1
TracePrint "1"
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X< 1075+xx Then
MoveTo dd3, dd4
Delay 111
RightClick 1
Else
h = hour(now)
m = minute(now)
If h mod 2 = 0 Then
If m < 6 Then
ben = ben + 1
b = 2
Else
If ben > 10 Then
Goto a4
Else
b=2
End If
End If
End If
TracePrint "2"
b=2
End If
Wend
While b = 2
TracePrint "3"
/判断归属
XY=Plugin.Color.FindMutiColor(267+xx,451+yy,552+xx,618+yy,"12300D","3|0|68BE88,5|2|17240A,5|12|67F1D7,-5|11|1B371C",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X>0 Then
MoveTo 569+xx,341+yy
Delay 111
KeyPress "A", 1
Delay 111
LeftClick 1
Delay 111
Else
If ben > 10 Then
jieshu=1
Goto a4
End If
ben = ben + 1
TracePrint ben
Goto pan1
End If
Wend
Next
Rem chuansong
noww = noww + 1
StopThread 线程IDtan
StopThread 线程IDtan2
TracePrint "传送"
chuan0 = 1045 + xx
chuan1 = 139 + yy
p = 0
For 1
While p=0
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 1044 + xx Then
MoveTo chuan0, chuan1
RightClick 1
Call shenxing()
Else
Delay 2000
p=11
End If
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"A7E7EF","3|0|A7E7EF,3|-3|A7E7EF,2|4|A7E7EF,6|0|A7E7EF,11|-2|A7E7EF,2|5|A7E7EF,3|5|A7E7EF",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
TracePrint "被拉到冰原的次数为"&noww&"次"
TracePrint "被拉到冰原"&noww&"次"
noww=0
线程IDtan = BeginThread(tanchuang)
线程IDtan2 = BeginThread(tanchuang2)
Call suiji()
Goto aaa
End If
Wend
While p = 11
XY=Plugin.Color.FindMutiColor(1012+xx,10+yy,1147+xx,157+yy,"FFA110","-8|9|FFA110,1|18|FFA210",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If Y<129+yy Then
MoveTo chuan0, chuan1
RightClick 1
Call shenxing()
Else
Delay 5000
p=1
End If
Wend
While p = 1
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"2D4148","-1|0|71A2B3,-2|-1|354D55,1|-1|71A2B3,164|-33|71A5B7,236|-114|C7C4C7,245|-115|191205,251|-114|2889B5",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
LeftClick 1
MoveTo 700 + xx, 310 + yy
Delay 2000
p=2
Else
MoveTo 700 + xx, 310 + yy
LeftClick 1
Delay 2000
End If
Wend
Rem bingyuan
While p = 2
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"D2D1D0","4|0|D2D1D0,3|-1|140B00,4|-1|EDEDED,6|-1|140B00,3|1|140B00,3|3|140B00,3|5|140B00,4|5|D4D4D4",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
MoveTo X, Y
LeftClick 1
Delay 10
LeftClick 1
Delay 10
LeftClick 1
Delay 3000
End If
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"FCFAF8","-5|2|8C5510,-1|7|FFFFFF,-3|9|845110,3|13|834D10,3|7|FCFBF9,3|4|FFFFFF,5|5|FFFFFF",0.7)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
Else
p=3
End If
Wend
While p = 3
XY=Plugin.Color.FindMutiColor(153+xx,65+yy,924+xx,580+yy,"3C2A1A","-5|0|886842,-9|7|42461C,-4|9|866540,-5|13|44531D,-1|13|88613D,2|15|3E521C",0.6)
MyArray = Split(XY, "|")
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
If X > 0 and Y > 0 Then
TracePrint "来冰原了"
线程IDtan = BeginThread(tanchuang)
线程IDtan2 = BeginThread(tanchuang2)
Call suiji()
Else
Goto bingyuan
End If
Wend
Next
2036
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
