- 按键认证导师
- 1779400
- 60
- 3
- 105 朵
- 169 个
- 90 个
- 1260
- 2013-05-02
|
1#
t
T
发表于 2022-02-23 22:25
|
|只看楼主
- //调用插件
- Import "GK.luae"
- //====脚本大纲====
- //----封装函数----
- //----封装函数----
- //----脚本子程序----
- //启动程序
- //进入游戏
- //领取元宝
- //----脚本子程序----
- //调用程序
- //====脚本大纲====
- Sub 启动程序 ////////////////////////启动程序
- Dim 是否启动
- Do
- Delay 500
- 是否启动=sys.IsRunning("com.sqw.jwdzg.jwdzg_pz")
-
- If 是否启动 = false Then
- RunApp "com.sqw.jwdzg.jwdzg_pz"
- End If
- Loop Until 是否启动=true :TracePrint "启动游戏成功"
- End Sub
- Sub 进入游戏 ////////////////////////进入游戏
- Dim 欢迎_叉=array(147,22,217,81,"DEF7F7","83|450|3165CE,-43|449|000000,33|90|94AEA5,18|79|84929C,839|7|8CA2B5,818|29|B5D7DE,889|77|6B8284,893|99|000408,873|117|7B9ABD",true)
- Dim 开始游戏_按钮=array(1071,413,1129,451,"29518C","-2|8|A5C7D6,8|7|ADD3DE,-87|90|2145A5,25|-138|A5CFD6,-316|-22|3141B5,-287|-107|4A5D9C,-327|-101|6B8263,113|122|29827B,114|-232|4249B5",true)
- Dim 更新提示_确定按钮=array(685,200,720,273,"6B8A31","-2|20|D6F7FF,-1|197|3945AD,-1|252|BDD7EF,-248|64|395163,-244|-4|426173,-110|-180|9CAEBD,-402|151|000000,-635|402|082431,-618|440|313031",true)
- Dim 离线收益_确定按钮=array(753,331,787,396,"6B8231","-2|12|D6F3EF,-2|25|637D21,-197|-1|ADA294,-228|-35|FFFFFF,-362|158|D6E7F7,-376|159|CEE3F7,-365|67|D6E7FF,-410|78|84BADE,-694|219|000C21",true)
- Dim 头像红点=array(6,572,67,634,"2928B5","5|-577|6BAE5A,3|-426|3969A5,3|-230|6B6552,1159|-90|31458C,1164|-528|21288C,1171|-348|84C3EF,1180|-407|94DBFF,1201|56|524D4A,1197|-171|42417B")
- Do
- Delay 500
- TracePrint "执行启动游戏。。。"
- If GK.Find(欢迎_叉) Then
- ElseIf GK.Find(开始游戏_按钮) Then
- ElseIf GK.Find(更新提示_确定按钮) Then
- ElseIf GK.Find(头像红点) Then : Exit Sub
- End If
- loop Until GK.Find(离线收益_确定按钮)
-
- End Sub
- Sub 领取元宝 ////////////////////////领取元宝
- Dim 头像红点=array(6,572,67,634,"2928B5","5|-577|6BAE5A,3|-426|3969A5,3|-230|6B6552,1159|-90|31458C,1164|-528|21288C,1171|-348|84C3EF,1180|-407|94DBFF,1201|56|524D4A,1197|-171|42417B",true)
- Dim 身份界面=array(8,665,55,706,"84DBFF","-3|-109|CEE3FF,1|-125|C6DFFF,829|-170|212C9C,819|-199|212894,848|-27|8CB6DE,956|-10|18557B,1099|-134|5A7121,1043|-135|4A96E7,1167|-362|397DAD")
- Dim 身份界面_宝箱坐标=array(993,64)
- Dim 身份界面_退出按钮=array(28,685)
- Dim 恭喜获得元宝=array(574,339,607,365,"4A719C","-22|-27|C6EFF7,37|15|104973,17|31|21385A,17|24|000C21,271|158|000818,540|203|101400,618|54|081C21,-260|46|B5E7F7,-229|-173|7BDBFF",true)
- Dim 领取元宝开关=0
- Dim 主界面=array(21,588,46,616,"5A7DA5","16|-423|4A719C,14|-228|948E7B,5|-241|F7F3F7,11|-571|6BAE5A,43|-21|214DA5,38|-582|84B2CE,1155|-419|5259C6,1201|-166|423C6B,1201|-215|292831")
- Do
- Delay 500
- TracePrint "执行领取元宝。。。"
- If GK.Find(头像红点) Then
- ElseIf 领取元宝开关>20 then :GK.ck(身份界面_退出按钮) :领取元宝开关=0
- ElseIf GK.Find(身份界面) Then : Gk.ck(身份界面_宝箱坐标) : 领取元宝开关=领取元宝开关+1
- ElseIf GK.Find(恭喜获得元宝) Then :Delay 3000 :GK.ck(身份界面_退出按钮)
- ElseIf gk.find(主界面)then : exit sub
- End If
- loop
-
- End Sub
- //------调用程序
- 启动程序
- 进入游戏
- 领取元宝
复制代码
|