//————————————————–
// 脚本开始
//————————————————–
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 回位
以前不懂，看贴总是不回，一直没提升等级和增加经验；现在我明白了，反正回贴可以升级，也可以赚经验，而升级又需要经验，我就把这句话复制下来，遇贴就回，捞经验就闪。
相关资源：KK录像机-瓜
声明：本站部分文章及图片源自用户投稿，如本站任何资料有侵权请您尽早请联系jinwei@zod.com.cn进行处理,非常感谢！