//开心宝贝后台跳绳
//V1.0
//2009.10.30
//漂流侠 http://hi.baidu.com/piaoliuxia
//QQ：277058507
//---------------------------------------------
//以下是自定义变量
UserVar PetColor=2BBFEF 宝贝身上的特征颜色
UserVar RopeColor=000099 绳子变化时颜色（一般不动）
UserVar SearchArea="20|120|750|400" 查色范围(左上角、右下角坐标)
//UserVar FeedPet=DropList{否:0|是:1}=0 是否主动喂食
UserVar FoodXY="400|580" 食物坐标
UserVar HealthXY="730|330" 健康度坐标（需要补食位置）
UserVar FeedDelay=7000 宝贝吃饭花费时间
UserVar DelayTime=50 延迟时间
UserVar TryCount=5 尝试自动跳绳次数
UserVar LogFile="C:\RopeLog.txt" 跳绳记录位置
Dim Hwnd
Dim FlagOver
//-------------
Rect=Split(SearchArea,"|")
X1=CInt(Rect(0))
Y1=CInt(Rect(1))
X2=CInt(Rect(2))
Y2=CInt(Rect(3))
//取得鼠标所在窗体句柄
Plugin Hwnd=Window.MousePoint()
//初始化结束标志
FlagOver=0
Plugin startTime =GetSysInfo.GetTime()
text= "-----------开始时间"&Time&"计划自动起跳"&TryCount&"次-----------！"
Plugin File.WriteFileEx(LogFile, text)
m=1
For TryCount
    Plugin T1 =GetSysInfo.GetTime()
    //检测是否有弹出对话框阻挡，如果有，就点击关闭
    Plugin PopDialog = Bkgnd.FindColor(Hwnd,225,270,520,385,"FFCC00")
    If PopDialog <> "-1|-1"
        PopXY= split(PopDialog,"|")
        PopX=CInt(PopXY(0))
        PopY=CInt(PopXY(1))
        Plugin Bkgnd.LeftClick(Hwnd,PopX,PopY)
    EndIf 
    //
    //开始引导宝贝拿绳子准备起跳
    Gosub 自动引导宝贝跳绳
    //
    n=0
    While FlagOver =0
        Gosub 一次跳绳过程
        If FlagOver=0
            n=n+1
        EndIf 
    EndWhile 
    Plugin T2 =GetSysInfo.GetTime()
    T=round((T2-T1)/1000/60,1)
    n=round(n/1.6,0)
    text = "第 "&m&" 次：结束时间"&Time&"  本次共运行了"&T&"分钟，跳了 "&n&" 下（估计值）"
    //下面这句是向目标文件(LogFile)写入文本内容(text)
    Plugin File.WriteFileEx(LogFile, text)
    m=m+1
EndFor 
EndScript 
//脚本运行结束
Sub 一次跳绳过程
    Plugin UseTime1 =GetSysInfo.GetTime()
    Rem 查是否可起跳
    Delay DelayTime
    Plugin EnableJump = Bkgnd.FindColor(Hwnd,X1,Y1,X2,Y2,RopeColor)
    If EnableJump <> "-1|-1"
        //如果可以起跳，则查找宝贝身上的特征色
        Delay 50
        Plugin FindPet = Bkgnd.FindColor(Hwnd,X1,Y1,X2,Y2,PetColor)
        If FindPet <> "-1|-1"
            //如果找到宝贝位置，则后台发送鼠标左键点击
            PetPos=split(FindPet,"|")
            PetX=CInt(PetPos(0))
            PetY=CInt(PetPos(1))
            Plugin Bkgnd.LeftClick(Hwnd, PetX, PetY)
        EndIf 
    Else 
        Plugin UseTime2 =GetSysInfo.GetTime()
        UseTime = UseTime2-UseTime1
        If UseTime < 5000
            Goto 查是否可起跳
        Else 
            FlagOver = 1
        EndIf 
    EndIf 
Return 一次跳绳过程
//尝试自动引导宝贝喂食、跳绳
Sub 自动引导宝贝跳绳
    Rem 把食物、绳子拿给宠物
    HealthArray=split(HealthXY,"|")
    HealthX=CInt(HealthArray(0))
    HealthY=CInt(HealthArray(1))
    Plugin HealthColor = Bkgnd.GetPixelColor(Hwnd,HealthX,HealthY)
    If HealthColor <> "3833EE"
        //喂食
        Plugin FindPet = Bkgnd.FindColor(Hwnd,X1,Y1,X2,Y2,PetColor)