按键 跳一跳 源码.txt

Dim pai = 3.14159265358979323846
Dim BackgroundColor
Dim ArruratePointx,ArruratePointy,topy
Dim whitepointx,whitepointy
Dim Cheesex,Cheesey
Dim speed
Dim midx,midy//中点坐标
Dim ContinuousjumpCount = 0//连跳中心点计次
Dim ScorePlus = 0//加分的积木停留时间
Dim MyValue1,MyValue2
Dim 背景色
ShowMessage "5秒后开始"
Delay 5000
Call 获得手机分辨率()
Call 计算速度()

///////////////////////////循环部分///////////////////////////
Do
    KeepCapture 
    Call 跳跃()
    Call 随机延迟()
    Delay 1000 + MyValue1 * 100 + ScorePlus
Loop
/////////////////////////////////////////////////////////////


///////////////////////////准备工作///////////////////////////

Sub 获得手机分辨率
    KeepCapture 

    Dim i,j
    Dim rColor
    i = 0
    Do
        rColor = GetPixelColor(0+i,0,0)
        
        If rColor = "000000" Then 
            midx = i/2
            Goto 获得手机分辨率标记1
        Else 
            i = i + 1
        End If
    Loop

    Rem 获得手机分辨率标记1
    j = 0
    Do
        rColor = GetPixelColor(0,0+j,0)
        If rColor = "000000" Then 
            midy = j/2
            Goto 获得手机分辨率标记2
        Else 
            j = j + 1
            //TracePrint j
        End If
    Loop
    Rem 获得手机分辨率标记2
    TracePrint "手机分辨率为： "&midx*2,midy*2
    ReleaseCapture 
End Sub