微信跳一跳脚本

按键精灵脚本

来自知乎

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

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

Dim 跳跃步数=0

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


Randomize


Do

KeepCapture

跳跃步数 = 跳跃步数 + 1

亮点坐标 = 寻找亮点()

小人坐标 = 寻找小人()

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

逼近=t

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

寻找亮点=array(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

寻找小人=array(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