{za}奇迹挂机捡物按键精灵源码507

//--------------------------------------------------//  脚本开始//--------------------------------------------------.q=0Delay200KeyPress50,1Delay200RightClick1Delay200KeyPress51,1Delay200RightClick1Delay200Rem挂机KeyPress49,1Ifq=110Gosub回位EndIfRightDown1Delay1000Gosub搜宝KeyPress18,1Gosub搜宝Delay2000Gosub搜宝KeyPress18,1Gosub搜宝KeyPress18,1Gosub搜宝Delay2000RightUp1Delay1000q=q1Goto挂机//--------------------------------------------------.//  打怪子程序//--------------------------------------------------.Sub打怪Rem打怪RightDown1Delay00RightUp1Return//--------------------------------------------------.//  搜宝子程序//--------------------------------------------------.Sub搜宝VBSCallFindPic(0,0,1400,900,"Attachment:\木瓜.bmp",1,BSx,BSy).IfBSx>=0andBSy>=0Gosub木瓜ElseEndIfVBSCallFindPic(0,0,1400,900,"Attachment:\祝福.bmp",1,XBx,XBy).IfXBx>=0andXBy>=0Gosub祝福ElseEndIfVBSCallFindPic(0,0,1400,900,"Attachment:\木瓜1.bmp",1,ZJx,ZJy).IfZJx>=0andZJy>=0Gosub木瓜1ElseEndIfVBSCallFindPic(0,0,1400,900,"Attachment:\祝福.bmp",1,ZLx,ZLy).IfZLx>=0andZLy>=0Gosub祝福1ElseEndIfVBSCallFindPic(0,0,1400,900,"Attachment:\之翼.bmp",1,ZDx,ZDy).IfZDx>=0andZDy>=0Gosub之翼ElseEndIfVBSCallFindPic(0,0,1400,900,"Attachment:\之翼1.bmp",1,ZSx,ZSy).IfZSx>=0andZSy>=0Gosub之翼1ElseEndIfVBSCallFindPic(0,0,1400,900,"Attachment:\之翼2.bmp",1,MYx,MYy).IfMYx>=0andMYy>=0Gosub之翼2ElseEndIfVBSCallFindPic(0,0,1400,900,"Attachment:\生命.bmp",1,EMx,EMy).IfEMx>=0andEMy>=0Gosub生命ElseEndIfVBSCallFindPic(0,0,1400,900,"Attachment:\灵魂.bmp",1,YJx,YJy).IfYJx>=0andYJy>=0Gosub灵魂ElseEndIfVBSCallFindPic(0,0,1400,900,"Attachment:\汉斯.bmp",1,CBx,CBy).IfCBx>=0andCBy>=0Gosub汉斯ElseEndIfVBSCallFindPic(0,0,1400,900,"Attachment:\宝石.bmp",1,YSx,YSy).IfYSx>=0andYSy>=0Gosub宝石ElseEndIfVBSCallFindPic(0,0,1400,900,"Attachment:\血低.bmp",1,DDx,DDy).IfDDx>=0andDDy>=0KeyPress81,1ElseEndIfDelay100Return//--------------------------------------------------.//  捡宝子程序//--------------------------------------------------.Sub木瓜KeyPress44,1Delay200RightUp1Delay600MoveToBSx30,BSy20Delay500LeftClick1Delay1000KeyPress13,1Delay1000SayString"木瓜"KeyPress13,1VBSCallFindPic(0,0,1400,900,"Attachment:\木瓜.bmp",1,BSx,BSy).IfBSx>=0andBSy>=0Delay600MoveToBSx50,BSy20Delay500LeftClick1Delay1000KeyPress13,1Delay1000SayString"木瓜没捡到再捡"KeyPress13,1ElseEndIfKeyPress13,1Delay400SayString"哈哈木瓜捡到了"VBSCallFindPic(0,0,1400,900,"Attachment:\木瓜.bmp",1,BSx,BSy).IfBSx>=0andBSy>=0Delay600MoveToBSx70,BSy20Delay500LeftClick1Delay1000KeyPress13,1Delay1000SayString"木瓜还没捡到再捡"KeyPress13,1ElseEndIfMoveTo640,307RightDown1ReturnSub祝福Delay200RightUp1Delay600MoveToXBx10,XBy20Delay500LeftClick1Delay1000KeyPress13,1Delay1000SayString"祝福"KeyPress13,1MoveTo640,307RightDown1ReturnSub木瓜1KeyPress44,1Delay200RightUp1Delay600MoveToZJx15,ZJy20Delay500LeftClick1Delay1000KeyPress13,1Delay1000SayString"木瓜1"KeyPress13,1MoveTo640,307RightDown1ReturnSub祝福1Delay200RightUp1Delay600MoveToZLx10,ZLy20Delay500LeftClick1Delay1000KeyPress13,1Delay1000SayString"祝福1"KeyPress13,1MoveTo640,307RightDown1ReturnSub之翼KeyPress44,1Delay200RightUp1Delay600MoveToZDx30,ZDy20Delay500LeftClick1Delay1000KeyPress13,1Delay1000SayString"之翼"VBSCallFindPic(0,0,1400,900,"Attachment:\之翼.bmp",1,ZDx,ZDy).IfZDx>=0andZDy>=0Delay600MoveToZDx50,ZDy20Delay500LeftClick1Delay1000KeyPress13,1Delay1000SayString"之翼没捡到再捡"KeyPress13,1ElseEndIfKeyPress13,1Delay400SayString"哈哈之翼捡到了"VBSCallFindPic(0,0,1400,900,"Attachment:\木瓜.bmp",1,ZDx,ZDy).IfZDx>=0andZDy>=0Delay600MoveToZDx70,ZDy20Delay500LeftClick1Delay1000KeyPress13,1Delay1000SayString"之翼还没捡到再捡"KeyPress13,1ElseEndIfKeyPress13,1MoveTo640,307RightDown1ReturnSub之翼1KeyPress44,1Delay200RightUp1Delay600MoveToZSx35,ZSy20Delay500LeftClick1Delay1000KeyPress13,1Delay1000SayString"之翼1"KeyPress13,1MoveTo640,307RightDown1ReturnSub之翼2KeyPress44,1Delay200RightUp1Delay600MoveToMYx35,MYy20Delay500LeftClick1Delay1000KeyPress13,1Delay1000SayString"之翼2"KeyPress13,1MoveTo640,307RightDown1ReturnSub生命Delay200RightUp1Delay600MoveToEMx10,EMy20Delay500LeftClick1Delay1000KeyPress13,1Delay1000SayString"生命"KeyPress13,1MoveTo640,307RightDown1ReturnSub灵魂Delay200RightUp1Delay600MoveToYJx5,YJy20Delay500LeftClick1Delay1000KeyPress13,1Delay1000SayString"灵魂"KeyPress13,1MoveTo640,307RightDown1ReturnSub汉斯Delay200RightUp1Delay600MoveToCBx30,CBy20Delay500LeftClick1Delay1000KeyPress13,1Delay1000SayString"汉斯"KeyPress13,1VBSCallFindPic(0,0,1400,900,"Attachment:\汉斯.bmp",1,CBx,CBy).IfCBx>=0andCBy>=0Delay600KeyPress13,1Delay300SayString"汉斯没捡到再捡"KeyPress13,1MoveToCBx50,CBy20Delay500LeftClick1Delay2000ElseEndIfKeyPress13,1Delay300SayString"哈哈汉斯捡到了"KeyPress13,1VBSCallFindPic(0,0,1400,900,"Attachment:\汉斯.bmp",1,CBx,CBy).IfCBx>=0andCBy>=0Delay600KeyPress13,1Delay300SayString"汉斯还没捡到再捡"KeyPress13,1MoveToCBx50,CBy20Delay500LeftClick1Delay2000ElseEndIfMoveTo640,307RightDown1ReturnSub宝石Delay200RightUp1Delay600MoveToYSx10,YSy20Delay500LeftClick1Delay1000KeyPress13,1Delay1000SayString"宝石"KeyPress13,1MoveTo640,307RightDown1ReturnSub回位q=0KeyPress77,1Delay1000MoveTo272,581Delay300LeftClick1Delay3000MoveTo942,526Delay1000LeftClick1Delay3000LeftClick1Delay3000MoveTo1010,507Delay1000LeftClick1Delay3000LeftClick1Delay3000LeftClick1Delay3000MoveTo571,688Delay1000LeftClick1Delay3000MoveTo477,592Delay1000LeftClick1Delay3000LeftClick1Delay3000MoveTo308,380Delay1000LeftClick1Delay3000MoveTo345,505Delay1000LeftClick1Delay3000LeftClick1Delay3000LeftClick1Delay3000MoveTo1021,562Delay3000LeftClick1Delay3000Return回位