//安卓按键精灵3.2.9没有语法检查,没有运行时调试,错误提示又头痛说脚病,
//注意 if endif end* ()等能少浪费的很多时间
//网易mumu模拟器 1280x720
//碧蓝航线演习脚本示例
'pleaseha
Dim x,y
x=GetScreenX():y=GetScreenY()
//If x=1280 and y=720 then
'CmpColorEx 这个短啊省事
Dim CmpColorEx_出击 ="1058|387|FFFFFF,1178|373|10AEEE,1108|407|0896DE"
Dim CmpColorEx_演习 = "1175|683|212021,1248|675|292829,1141|687|DEEFFF"
Dim CmpColorEx_演习_第一个人敌人="105|318|42413A,228|321|42413A,153|318|DEE3DE"
Dim CmpColorEx_演习_开始演习="966|639|3ACAFF,1050|668|19AEF7,1140|625|4AD6F7,1156|616|00418C"
Dim CmpColorEx_演习_演习_出击="988|606|B5617B,1033|601|B5617B,1174|603|F7F3CE"
Dim CmpColorEx_演习_结果_胜负="92|346|1069A4,166|343|1069A4,30|345|0865A4"
Dim CmpColorEx_演习_结果_道具="600|142|8CE3FF,657|176|29DFFF,728|172|29C2FF"
Dim CmpColorEx_演习_结果_经验="1045|605|D6D6D6,1137|624|BDC2C5,1089|587|EEEBEE"
Dim CmpColorEx_演习_演习_次数不足="405|244|0881DE,598|237|F7FBF7,644|241|42DB9C"
//ElseIf x...
//Dim...
//End If
Function findxy(val)'判断位置用数字返回坐标
findxy =Array(-1,-1)'失败
Dim intX,intY,tmp_arr()
If IsArray(val) = True and IsNumeric(val(0)) = True and IsNull(val(5) = False) Then'多点找色
//TracePrint "FindMultiColor",val
FindMultiColor val(0),val(1),val(2),val(3),val(4),val(5),0,0.9,intX,intY
If intX > -1 Then
findxy = Array(intX,intY)
End If
Else
//TracePrint "CmpColorEx",val
If CmpColorEx(val, 0.9) = 1 Then '多点比色
tmp_arr=Split(val, "|")
findxy = Array(Cint(tmp_arr(0)), Cint(tmp_arr(1)))
End If
End If
End Function
Function Tapxy(val)
Tapxy=False
Dim xy()
xy = findxy(val)
If xy(0) > -1 Then
Delay 100
Tap xy(0),xy(1)
Tapxy=True
End If
End Function
Do Until Tapxy(CmpColorEx_演习_演习_次数不足)
Tapxy(CmpColorEx_出击)
Tapxy(CmpColorEx_演习)
Tapxy(CmpColorEx_演习_第一个人敌人)
Tapxy(CmpColorEx_演习_开始演习)
Tapxy(CmpColorEx_演习_演习_出击)
Tapxy(CmpColorEx_演习_结果_胜负)
Tapxy(CmpColorEx_演习_结果_道具)
Tapxy(CmpColorEx_演习_结果_经验)
Loop