从零开始写全自动:普通层地板查找与击杀判断
怪物与地板判断代码:
Function 小怪()//这个是一个名为“小怪”的函数
Dim 怪()//定义一个数组为“怪”,“()”是用来装这个数组返回来的值的,一定要加
Dim 闪电={"4DB194-101010","11|6|4DB194-101010,8|18|4DB195-101010,-18|22|4CB094-101010,28|21|4CB094-101010"}//同样也是定义一个数组,数组的内容就是“{}”里面的内容,不要这个也可以,定义出来是为了看起来更方便一点,后面的代码可以一眼就看出这串是用来做什么用的。
Dim 火球={"3751A5-101010","10|7|152A51-101010,-32|-21|152A51-101010,-8|-32|152A51-101010,-33|14|6A91B0-101010,19|-29|668BAD-101010"}
Dim 怪特征={"CBE0E9-101010","7|22|014A82-101010,12|25|1C5D9A-101010,-15|-24|6B6A6A-101010,-10|-57|2B2BA3-101010,-3|-81|F6F7F8-101010"}
Dim 确定={"A3E1F3-101010","0|-19|29ABF1-101010,-3|-36|65E1FF-101010,-4|26|2892DD-101010,-8|49|D2CFCD-101010,-7|55|393938-101010"}
Dim 返回={"DA9F43-101010","22|-11|8EC6D8-101010,-1|-48|959494-101010,-6|29|C7913D-101010,73|10|E5A94B-101010,-66|-24|D29940-101010"}
Do//创建一个循环,因为要执行的指令并不是一次的,需要多次执行,所以用了一个循环把要运行的代码装起来。
if zm.FindMultiColor( 5,203,718,977,"-66|-13|F2F3F5-020202,-70|13|29299C-020202,-71|66|4E7C9F-020202,38|99|2C527D-020202","F9AAEE-020202","-47|68|86B6C2-020202,-22|-17|394056-020202,16|0|5A8192-020202,4|18|668E9D-020202","F9AAEE-020202",怪,500) then//这是是魔杖(也就是远程那只小怪的特征),意思就是如果有找到魔杖,则执行以下代码
一阶技能//这个也是一个函数子程序,功能是用来找开一阶技能用的。
If zm.FindMultiColor (129,405,485,870,闪电,火球,true,"+0,-0,500",500)then //找闪电术或者火球术。
Tap 怪["x"], 怪["y"]
Delay 500
End If
Else
Exit Do
End If //魔杖
Loop
Do //上面判断结束后,会退出循环,来到这个新的循环结构。
If zm.FindMultiColor(0,217,717,985,石板颜色1,石板颜色2,石板颜色3 ,石板颜色4,true, "+50,-50,200",200,"右上")Then //这里是在找石板 与被封印起来的石板,如果条件满足则找怪物特征,否则退出循环。
If zm.FindMultiColor (9,240,681,974,"4C499F-101010","32|29|413D84-101010,-23|33|3B3D73-101010,-25|-26|494597-101010,29|-33|474494-101010,-9|-8|4E4AA2-101010",0.9,"右上")Then //被封印地板
Do
if zm.FindMultiColor (9,240,681,974,怪特征,确定,true,"+0,-0,50",50,"右上") then //怪物特征及误解返回特征
zm.FindMultiColor 540,1140,680,1259, 返回, true, "+0,-0,50", 50
Else
Exit Do
End If
Loop
End If
Else
zm.FindMultiColor (9,240,681,974,怪特征,确定,true,"+0,-0,50",500,"右上")
ShowMessage "小怪已击杀"
Exit Do
End If//找石板
Loop
End Function
以上就是一整条判断逻辑,看不懂绝对不是我的锅,我!不!背!!!
8

