# 微信跳一跳脚本

Dim ll=0.36'向右跳约束系数

Dim rr=0.38'向左跳约束系数

Dim 跳跃步数=0

Dim 亮点坐标(),小人坐标()

Randomize

Do

KeepCapture

If 亮点坐标(0) > 0 Then

Call 检测光点(亮点坐标(0), 亮点坐标(1))

Else

Call 按压屏幕()

End If

TracePrint 跳跃步数

Delay 2000 + Int((200 - (-200) + 1) * Rnd() - 200)

Loop

////////思路模块//////////////////////////////////////////////////////

Sub 按压屏幕()

Dim intX=小人坐标(0)

Dim intY=小人坐标(1)

Dim a,b,c,tt,rt

Dim i

Dim k=0.308'向右跳系数

If intX > 0 Then

i=ll

If intX > 540 Then '小人在屏幕右半侧

k = 0.328'向左跳系数

i=rr

End If

a = Abs(intX - 562.25)

b = Abs(intY - 979)

c = (Sqr(a ^ 2 + b ^ 2))

// TracePrint a,b,c

tt = a / k

tt = 逼近(tt, c, i)

rt=c/tt

TracePrint rt,tt

ShowMessage "没找到点"

Touch 749, 1504, tt

End If

End Sub

Function 逼近(tt, c, i)

Dim t=tt

Dim rt=c/t

Do

rt=c/t

If rt > i Then

t = t + rt / t

ElseIf rt < i Then

t = t - rt / t

End If

Loop Until Abs(rt - i) < 0.00001

End Function

Sub 检测光点(x,y)

Dim intX=小人坐标(0)

Dim intY=小人坐标(1)

Dim a,b,c,tt,rt

a = Abs(intX - x)

b = Abs(intY - y)

c = (Sqr(a ^ 2 + b ^ 2))

TracePrint a,b,c

ShowMessage "找到点了"

Touch 749, 1504,c*1.393

End Sub

/////////图色模块//////////////////////////////////////////////////////////////

Function 寻找亮点()

Dim x,y

FindMultiColor 128, 717, 912, 1142, "F5F5F5","-19|-6|F5F5F5,18|-1|F5F5F5", 0, 1, x, y

// TracePrint x,y

If x < 0 Then

FindMultiColor 128, 717, 912, 1142, "F5F5F5","-19|-5|F5F5F5,19|-3|F5F5F5", 0, 1, x, y

End If

If x < 0 Then

FindMultiColor 128, 717, 912, 1142, "F5F5F5","-17|-9|F5F5F5,18|-3|F5F5F5", 0, 1, x, y

End If

// TracePrint x,y

End Function

Function 寻找小人()

Dim intX,intY

FindMultiColor 3, 788, 1073, 1513, "613837", "-38|1|492B2B,37|0|51363A,-1|-118|3A3434,0|17|663C36,-1|-156|76484F", 0, 0.95, intX, intY

// TracePrint intX,intY

If intX < 0 Then

FindMultiColor 3, 788, 1073, 1513, "633939", "-37|0|492B2B,37|0|53383C,1|-187|3D3534", 0, 0.9, intX, intY

TracePrint intX,intY

End If

// TracePrint intX,intY

End Function

### 推荐阅读更多精彩内容

• ¥开启¥ 【iAPP实现进入界面执行逐一显】 〖2017-08-25 15:22:14〗 《//首先开一个线程，因...
小菜c阅读 3,051评论 0 4
• 背景 一年多以前我在知乎上答了有关LeetCode的问题, 分享了一些自己做题目的经验。 张土汪：刷leetcod...
张土汪阅读 8,931评论 0 30
• 《ilua》速成开发手册3.0 官方用户交流：iApp开发交流（1） 239547050iApp开发交流（2） 1...
叶染柒丶阅读 3,323评论 0 5
• 可能是因为小时候家里父母太过于约束的原因，都说是认知水平的原因，一直以来都很少看书，很少看一些语文、数学以外的闲...
Usha阅读 752评论 0 0
• 这文章的题目实有些混淆视听，我并没得什么大病，只是近日因睡眠质量糟糕加上前几日考试压力大，总觉得身体不大安好，脸上...
娃zi山阅读 80评论 0 1