微信跳一跳 c语言源码,微信跳一跳，超高分源码公开。

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

源码如下：

Dim intX,intY,棋子x,棋子y,勾股x,勾股y,勾股,距离,延迟

do

FindPic 0,0,0,0,"Attachment:1.png","000000",0,0.9,intX,intY

If intX > -1

棋子x = intX

棋子y = intY

FindPic 0, 400, 1080, 1680, "Attachment:2.png", "000000", 0, 1, intX, intY

If intx > -1 Then

勾股x = Abs(棋子x - intx-5)

勾股x = 勾股x ^ 2

勾股y = (棋子y - inty + 103 +9 ) ^ 2

勾股=勾股x+勾股y

距离 = Int(Sqr(勾股))

TracePrint "到圆点："&距离

延迟 = 距离 * 1.34

Touch 100, 100, 延迟

Else

FindColor 0, 400, 1080, 1680, "F6F6F6|717171|699564|E07481|FFFFFF|939393|3A80F5|61EEFF", 0, 1, intX, intY

If intx > -1 Then

勾股x = Abs(棋子x - intx)

勾股x = 勾股x ^ 2

勾股y = (棋子y - inty + 103 - 102) ^ 2

勾股=勾股x+勾股y

距离 = Int(Sqr(勾股))

TracePrint "到颜色："&距离

If 距离 < 350 Then

距离=距离+15

End If

延迟 = 距离 * 1.34

Touch 100, 100, 延迟

End If

End If

End If

Delay 2000

Loop