您的位置首页百科知识

新星际家园脚本

新星际家园脚本

的有关信息介绍如下:

新星际家园脚本

VBS Dim x,y,yn  SaveMousePos  KeyPress 90 1  //  Rem start_002  For 150  RestoreMousePos  //每6秒按一次"Z"自修  KeyPress 90 1  Delay 6000  EndFor  //每15分钟补充一次能量  Gosub 补充能量和体力  Goto start_002  //  Sub 补充能量和体力  KeyPress 68 1  Delay 1000  //  VBSCall Call FindPic(0,50,1023,767,"低级能量包.bmp",0.8,x,y)  If x>=0 and y>=0  VBSCall Call SetCursorPos(x+14,y+16)  RightClick 1  Delay 1000  MoveR 56 98  Delay 500  LeftClick 1  EndIf  Delay 500  //  RestoreMousePos  Gosub 补充体力  //  Delay 500  KeyPress 68 1  Delay 500  Return  //  Sub 补充体力  yn=0  VBSCall Call FindPic(0,50,1023,767,"营养汉堡餐.bmp",0.8,x,y)  If x>=0 and y>=0  VBSCall Call SetCursorPos(x+14,y+16)  Delay 500  LeftDoubleClick 1  yn=1  EndIf  //如果没有专用食品就用默认的第一排第二个位的食品  If yn=0  VBSCall Call FindPic(0,50,1023,767,"标识.bmp",0.8,x,y)  If x>=0 and y>=0  VBSCall Call SetCursorPos(x+6,y+50)  Delay 500  LeftDoubleClick 1  EndIf  EndIf  Return  EndScript