欢迎光临散文网 会员登陆 & 注册

从零开始写全自动:普通层地板查找与击杀判断

2023-07-17 12:33 作者:叁森N  | 我要投稿

怪物与地板判断代码:

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


从零开始写全自动:普通层地板查找与击杀判断的评论 (共 条)

分享到微博请遵守国家法律