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

本帖最后由 花落无间 于 2015-5-14 11:33 编辑

//--------------------------------------------------

// 脚本开始

//--------------------------------------------------

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 回位

以前不懂，看贴总是不回，一直没提升等级和增加经验；现在我明白了，反正回贴可以升级，也可以赚经验，而升级又需要经验，我就把这句话复制下来，遇贴就回，捞经验就闪。