新星际家园脚本
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
标签：星际,家园,脚本
