怪兽必须死最实用按键精灵源码分享

在怪兽必须死游戏中，有许多玩家在问哪里有最实用按键精灵源码？小编就这个问题分析了一下，给大家带来最实用按键精灵源码分享，感兴趣的玩家跟小编一起来看看吧！

h=0

While h = 0

shijian = Plugin.Sys.GetDateTime()

TracePrint shijian

For 10

Call START（）

Next

shijian = Plugin.Sys.GetDateTime()

TracePrint shijian

Delay 3000

Call update()

Delay 3000

Wend

Sub START（）

FindPic 0,0,800,800,"Attachment:8.bmp",0.9,X,Y

If X > 0 And Y > 0 Then

Call Damage（）

For 10

Call Touch（）

Next

End If

End Sub

//技能施放

Sub Damage（）

cc=1

For cc = 1 To 7

pic1 = "Attachment:" & cc & ".bmp"

FindPic X,Y,X+350,Y-100,pic1,0.9,X1,Y1

If X1 > 0 And Y1 > 0 Then

MoveTo X1 , Y1

LeftClick 1

Delay 10

Else

Delay 1

End If

Next

End Sub

//点击

Sub Touch（）

YY = Y - 120

XX = X+20

For 2

XX = XX + 80

For 5

YY = YY - 45

MoveTo XX , YY

LeftClick 1

Delay 15

Next

YY = Y - 120

Next

End Sub

//升级

Sub update()

MoveTo X, Y

LeftClick 1

Delay 15

Delay 1000

//*********

Call down（）

dd=11

For dd = 11 To 14

flag=0

n=0

While flag = 0

pic2 = "Attachment:" & dd & ".bmp"

FindPic X,Y,X+350,Y-600,pic2,0.7,X1,Y1

If X1 > 0 And Y1 > 0 Then

TracePrint "找到英雄：" & dd

MoveTo X1+220 , Y1+10

LeftClick 1

Delay 1000

FindPic X,Y,X+350,Y-600,"Attachment:delete.bmp",0.9,X2,Y2

If X2 > 0 And Y2 > 0 Then

TracePrint "升级金币不够，取消升级："& dd

MoveTo X2+5 , Y2+5

LeftClick 1

flag = 1

Delay 1500

Else

TracePrint "找到英雄：" & dd & "升级成功"

Delay 500

End if

Else

TracePrint "没找到英雄："& dd & "，开始上拉。"

Call up（）//向上拉

Delay 1000

n = n + 1

delay 100

If n> 5 Then

flag = 1

Else

flag = 0

End If

End If

Wend

Next

Delay 500

FindPic X,Y,X+350,Y-500,"Attachment:close.bmp",0.9,X3,Y3

If X3 > 0 And Y3 > 0 Then

TracePrint "找到关闭按钮"

MoveTo X3+5 , Y3+5

LeftClick 1

End If

End Sub

Sub down（）

i=0

While i=0

FindPic X,Y,X+350,Y-600,"Attachment:downStart.bmp",0.7,X4,Y4

If X4 > 0 And Y4 > 0 Then

TracePrint "找到参考点"

For 1

MoveTo X4 + 100, Y4 + 330

Delay 100

LeftDown 1

Delay 500

MoveTo X4 + 100, Y4 + 220

Delay 1000

LeftUp 1

Delay 500

next

Delay 500

FindPic X,Y,X+350,Y-600,"Attachment:downEnd.bmp",0.9,X5,Y5

If X5 > 0 And Y5 > 0 Then

i = 1

TracePrint "确认到底部"

End If

Else

TracePrint "没找到参考点"

End If

wend

End Sub

Sub up（）

FindPic X,Y,X+350,Y-600,"Attachment:downStart.bmp",0.7,X5,Y5

If X5 > 0 And Y5 > 0 Then

MoveTo X5 + 100, Y5 + 220

Delay 100

LeftDown 1

Delay 500

MoveTo X5 + 100, Y5 + 310

Delay 1000

LeftUp 1

Delay 500

End If

End Sub

友情提示： 技能命名为数字，用for循环找图施放。英雄升级同理。

好了，小编的讲解就到这里，更多精彩详情敬请关注飞鹏网专区！

上一篇：江湖侠客令黄蓉值得培养吗 黄蓉全方位解析

下一篇：王者荣耀李白打法技巧分享