怪兽必须死自动升级技巧 按键精灵源码分享

在怪兽必须死游戏中，有许多玩家不知道怎么自动升级？怎么自动升级？小编就这个问题分析了一下，给大家带来的是按键精灵源码分享，感兴趣的玩家跟小编一起来看看吧！

看懂的自己截图，复制黏贴即可使用。

功能：自动点击一秒15下（多了会报错），自动施放技能（冷却结束立马施放），自动升级英雄（楼主选择了四只升级）。

//---------------------

//----怪兽必须死--------

//----version：4-------

//----qq：10927831-----

//------2016.3.13------

//-------------------------------------

//---功能：点击，施放技能，升级-----

//-------------------------------------

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

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

上一篇：天天飞车在公众号内累计签到10天可获得多少钻石奖励

下一篇：六龙争霸3D请问小龙今天最多能做多少个悬赏任务 3月14日每日一题答案