1.         如果表达式 (FindPet <> "-1|-1") 为真,则
  2.             PetPos=split(FindPet,"|")
  3.             PetX=CInt(PetPos(0))
  4.             PetY=CInt(PetPos(1))
  5.             FoodArray=split(FoodXY,"|")
  6.             FoodX=CInt(FoodArray(0))
  7.             FoodY=CInt(FoodArray(1))
  8.             调用插件命令 Bkgnd.LeftClick(Hwnd,130,390)
  9.             延时200毫秒
  10.             调用插件命令 Bkgnd.LeftDown(Hwnd, FoodX, FoodY)
  11.             //Delay 200
  12.             调用插件命令 Bkgnd.MoveTo(Hwnd, PetX, PetY)
  13.             延时200毫秒
  14.             调用插件命令 Bkgnd.LeftClick(Hwnd, PetX, PetY)
  15.             延时FeedDelay毫秒
  16.         条件结束
  17.     条件结束
  18.     调用插件命令 FindPet = Bkgnd.FindColor(Hwnd,X1,Y1,X2,Y2,PetColor)
  19.     如果表达式 (FindPet <> "-1|-1") 为真,则
  20.         PetPos=split(FindPet,"|")
  21.         PetX=CInt(PetPos(0))
  22.         PetY=CInt(PetPos(1))
  23.         //拿绳子
  24.         调用插件命令 Bkgnd.LeftClick(Hwnd,130,390)
  25.         延时200毫秒
  26.         调用插件命令 Bkgnd.LeftDown(Hwnd, 400, 520)
  27.         //Delay 200
  28.         调用插件命令 Bkgnd.MoveTo(Hwnd, PetX, PetY)
  29.         延时200毫秒
  30.         调用插件命令 Bkgnd.LeftClick(Hwnd, PetX, PetY)
  31.         延时500毫秒
  32.         调用插件命令 Bkgnd.LeftClick(Hwnd,130, 390)
  33.         FlagOver=0
  34.     否则
  35.         FlagOver=1
  36.     条件结束
  37. 子程序结束,回到调用处
  38. 子程序 OnScriptExit
  39.     调用插件命令 T2 =GetSysInfo.GetTime()
  40.     T=round((T2-T1)/1000/60,1)
  41.     n=round(n/1.6,0)
  42.     text = "第 "&m&" 次：结束时间"&Time&" 本次共运行了"&T&"分钟，跳了 "&n&" 下（估计值）"
  43.     //下面这句是向目标文件(LogFile)写入文本内容(text)
  44.     调用插件命令 File.WriteFileEx(LogFile, text)
  45.     调用插件命令 EndTime =GetSysInfo.GetTime()
  46.     TotalTime=round((EndTime-StartTime)/1000/60,0)
  47.     text= "----结束！"&Time&" 共经过"&TotalTime&"分钟，实际尝试自动起跳"&m&"次"
  48.     //下面这句是向目标文件(LogFile)写入文本内容(text)
  49.     调用插件命令 File.WriteFileEx(LogFile, text)
  50.     弹出窗口 "脚本运行结束！快看看创造的记录吧~~"
  51.     调用外部VBScript子程序 运行一个外部程序(LogFile)
  52. 子程序结束,回到调用处