当前位置:首页 >> 信息与通信 >>

奇迹挂机捡物按键精灵源码


//--------------------------------------------------
// 脚本开始
//--------------------------------------------------
q=0
Delay 200
KeyPress 50,1
Delay 200
RightClick 1
Delay 200
KeyPress 51,1
Delay 200
RightClick 1
Delay 200
Rem 挂机
KeyPress 49,1
If q=110
Gosub 回位
EndIf
RightDown 1
Delay 1000
Gosub 搜宝
KeyPress 18,1
Gosub 搜宝
Delay 2000
Gosub 搜宝
KeyPress 18,1
Gosub 搜宝
KeyPress 18,1
Gosub 搜宝
Delay 2000
RightUp 1
Delay 1000
q=q+1
Goto 挂机
//--------------------------------------------------
// 打怪子程序
//--------------------------------------------------
Sub 打怪
Rem 打怪
RightDown 1
Delay 00
RightUp 1
Return
//--------------------------------------------------
// 搜宝子程序
//--------------------------------------------------
Sub 搜宝
VBSCall FindPic(0,0,1400,900,"Attachment:\木瓜.bmp",1,BSx,BSy)
If BSx>=0 and BSy>=0
Gosub 木瓜
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\祝福.bmp",1,XBx,XBy)
If XBx>=0 and XBy>=0
Gosub 祝福
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\木瓜1.bmp",1,ZJx,ZJy)
If ZJx>=0 and ZJy>=0
Gosub 木瓜1
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\祝福.bmp",1,ZLx,ZLy)
If ZLx>=0 and ZLy>=0
Gosub 祝福1
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\之翼.bmp",1,ZDx,ZDy)
If ZDx>=0 and ZDy>=0
Gosub 之翼
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\之翼1.bmp",1,ZSx,ZSy)
If ZSx>=0 and ZSy>=0
Gosub 之翼1
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\之翼2.bmp",1,MYx,MYy)
If MYx>=0 and MYy>=0
Gosub 之翼2
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\生命.bmp",1,EMx,EMy)
If EMx>=0 and EMy>=0
Gosub 生命
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\灵魂.bmp",1,YJx,YJy)
If YJx>=0 and YJy>=0
Gosub 灵魂
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\汉斯.bmp",1,CBx,CBy)
If CBx>=0 and CBy>=0
Gosub 汉斯
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\宝石.bmp",1,YSx,YSy)
If YSx>=0 and YSy>=0
Gosub 宝石
Else
EndIf
VBSCall FindPic(0,0,1400,900,"Attachment:\血低.bmp",1,DDx,DDy)
If DDx>=0 and DDy>=0
KeyPress 81,1
Else
EndIf
Delay 100
Return
//--------------------------------------------------
// 捡宝子程序
//--------------------------------------------------
Sub 木瓜
KeyPress 44,1
Delay 200
RightUp 1
Delay 600
MoveTo BSx+30,BSy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "木瓜"
KeyPress 13,1
VBSCall FindPic(0,0,1400,900,"Attachment:\木瓜.bmp",1,BSx,BSy)
If BSx>=0 and BSy>=0
Delay 600
MoveTo BSx+50,BSy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "木瓜没捡到再捡"
KeyPress 13,1
Else
EndIf
KeyPress 13,1
Delay 400
SayString "哈哈木瓜捡到了"
VBSCall FindPic(0,0,1400,900,"Attachment:\木瓜.bmp",1,BSx,BSy)
If BSx>=0 and BSy>=0
Delay 600
MoveTo BSx+70,BSy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "木瓜还没捡到再捡"
KeyPress 13,1
Else
EndIf
MoveTo 640,307
RightDown 1
Return
Sub 祝福
Delay 200
RightUp 1
Delay 600
MoveTo XBx+10,XBy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "祝福"
KeyPress 13,1
MoveTo 640,307
RightDown 1
Return
Sub 木瓜1
KeyPress 44,1
Delay 200
RightUp 1
Delay 600
MoveTo ZJx+15,ZJy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "木瓜1"
KeyPress 13,1
MoveTo 640,307
RightDown 1
Return
Sub 祝福1
Delay 200
RightUp 1
Delay 600
MoveTo ZLx+10,ZLy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "祝福1"
KeyPress 13,1
MoveTo 640,307
RightDown 1
Return
Sub 之翼
KeyPress 44,1
Delay 200
RightUp 1
Delay 600
MoveTo ZDx+30,ZDy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "之翼"
VBSCall FindPic(0,0,1400,900,"Attachment:\之翼.bmp",1,ZDx,ZDy)
If ZDx>=0 and ZDy>=0
Delay 600
MoveTo ZDx+50,ZDy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString " 之翼没捡到再捡"
KeyPress 13,1
Else
EndIf
KeyPress 13,1
Delay 400
SayString "哈哈之翼捡到了"
VBSCall FindPic(0,0,1400,900,"Attachment:\木瓜.bmp",1,ZDx,ZDy)
If ZDx>=0 and ZDy>=0
Delay 600
MoveTo ZDx+70,ZDy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "之翼还没捡到再捡"
KeyPress 13,1
Else
EndIf
KeyPress 13,1
MoveTo 640,307
RightDown 1
Return
Sub 之翼1
KeyPress 44,1
Delay 200
RightUp 1
Delay 600
MoveTo ZSx+35,ZSy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "之翼1"
KeyPress 13,1
MoveTo 640,307
RightDown 1
Return
Sub 之翼2
KeyPress 44,1
Delay 200
RightUp 1
Delay 600
MoveTo MYx+35,MYy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "之翼2"
KeyPress 13,1
MoveTo 640,307
RightDown 1
Return
Sub 生命
Delay 200
RightUp 1
Delay 600
MoveTo EMx+10,EMy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "生命"
KeyPress 13,1
MoveTo 640,307
RightDown 1
Return
Sub 灵魂
Delay 200
RightUp 1
Delay 600
MoveTo YJx+5,YJy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "灵魂"
KeyPress 13,1
MoveTo 640,307
RightDown 1
Return
Sub 汉斯
Delay 200
RightUp 1
Delay 600
MoveTo CBx+30,CBy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "汉斯"
KeyPress 13,1
VBSCall FindPic(0,0,1400,900,"Attachment:\汉斯.bmp",1,CBx,CBy)
If CBx>=0 and CBy>=0
Delay 600
KeyPress 13,1
Delay 300
SayString "汉斯没捡到再捡"
KeyPress 13,1
MoveTo CBx+50,CBy+20
Delay 500
LeftClick 1
Delay 2000
Else
EndIf
KeyPress 13,1
Delay 300
SayString "哈哈汉斯捡到了"
KeyPress 13,1
VBSCall FindPic(0,0,1400,900,"Attachment:\汉斯.bmp",1,CBx,CBy)
If CBx>=0 and CBy>=0
Delay 600
KeyPress 13,1
Delay 300
SayString "汉斯还没捡到再捡"
KeyPress 13,1
MoveTo CBx+50,CBy+20
Delay 500
LeftClick 1
Delay 2000
Else
EndIf
MoveTo 640,307
RightDown 1
Return
Sub 宝石
Delay 200
RightUp 1
Delay 600
MoveTo YSx+10,YSy+20
Delay 500
LeftClick 1
Delay 1000
KeyPress 13,1
Delay 1000
SayString "宝石"
KeyPress 13,1
MoveTo 640,307
RightDown 1
Return
Sub 回位
q=0
KeyPress 77,1
Delay 1000
MoveTo 272,581
Delay 300
LeftClick 1
Delay 3000
MoveTo 942,526
Delay 1000
LeftClick 1
Delay 3000
LeftClick 1
Delay 3000
MoveTo 1010,507
Delay 1000
LeftClick 1
Delay 3000
LeftClick 1
Delay 3000
LeftClick 1
Delay 3000
MoveTo 571,688
Delay 1000
LeftClick 1
Delay 3000
MoveTo 477,592
Delay 1000
LeftClick 1
Delay 3000
LeftClick 1
Delay 3000
MoveTo 308,380
Delay 1000
LeftClick 1
Delay 3000
MoveTo 345,505
Delay 1000
LeftClick 1
Delay 3000
LeftClick 1
Delay 3000
LeftClick 1
Delay 3000
MoveTo 1021,562
Delay 3000
LeftClick 1
Delay 3000
Return 回位


相关文章:
按键精灵做连击脚本(奇迹MU战士用)
按键精灵做连击脚本 1、123 键的按法 所谓按法实际上就是各种代码方式 常见的...奇迹挂机捡物按键精灵源... 3页 2下载券 _连击延时数据【仅供参考... 3页...
按键精灵判断DNF人物位置源码
按键精灵判断DNF人物位置源码_计算机软件及应用_IT/计算机_专业资料。简单游戏脚本...5页 免费 按键精灵自动喊话收发货... 暂无评价 4页 免费 ©...
真正能实现后台运行的按键精灵代码支持最小化和切换窗口
真正能实现后台运行的按键精灵代码支持最小化和切换窗口_计算机软件及应用_IT/...hwnd UserVar yanshi=300 //间隔时间,也可设置如红蓝低于某个数时自动运行动作...
更多相关标签: