奇迹挂机捡物脚本能给个不？

UserVar DpiX=1024 分辨率[X]
UserVar DpiY=768 分辨率[Y]
UserVar J=0 捡金
UserVar CZ=1 捡创造
UserVar MY=1 捡玛雅
UserVar TZ=1 捡套装
UserVar G=1 右键挂机
Rem 开始
Delay 100
If G=1
RightDown 1
EndIf
Delay 100
//捡金
If J=1
VBSCall FindPic(0,0,DpiX,DpiY,"Attachment:\金钱.bmp",0.9,x1,y1)
If x1>=0 and y1>=0
Delay 1500
Gosub 捡金
MoveTo 520,300
EndIf
EndIf
Delay 100
//捡创造
If CZ=1
VBSCall FindPic(0,0,DpiX,DpiY,"Attachment:\创造宝石.bmp",0.9,x2,y2)
If x2>=0 and y2>=0
Delay 1500
Gosub 捡创造
MoveTo 520,300
EndIf
EndIf
Delay 100
//捡玛雅
If MY=1
VBSCall FindPic(0,0,DpiX,DpiY,"Attachment:\玛雅之石.bmp",0.9,x3,y3)
If x3>=0 and y3>=0
Delay 1500
Gosub 捡玛雅
MoveTo 520,300
EndIf
EndIf
Delay 100
//捡套装
If TZ=1
VBSCall FindPic(0,0,DpiX,DpiY,"Attachment:\套装.bmp",0.9,x4,y4)
If x4>=0 and y4>=0
Delay 1500
Gosub 捡套装
MoveTo 520,300
EndIf
EndIf
Delay 100
Goto 开始
EndScript
//============================子程序开始============================
Sub 捡金
VBSCall FindPic(0,0,DpiX,DpiY,"Attachment:\金钱.bmp",0.9,jx,jy)
If jx>=0 and jy>=0
VBS jx=jx+44
VBS jy=jy+33
RightUp 1
Delay 100
MoveTo jx jy
Delay 100
LeftClick 1
Delay 1500
KeyPress 32,1
Delay 100
EndIf
Return 捡金
Sub 捡创造
VBSCall FindPic(0,0,DpiX,DpiY,"Attachment:\创造宝石.bmp",0.9,czx,czy)
If czx>=0 and czy>=0
VBS czx=czx+44
VBS czy=czy+33
RightUp 1
Delay 100
MoveTo czx czy
Delay 100
LeftClick 1
Delay 1500
KeyPress 32,1
Delay 100
EndIf
Return 捡创造
Sub 捡玛雅
VBSCall FindPic(0,0,DpiX,DpiY,"Attachment:\玛雅之石.bmp",0.9,myx,myy)
If myx>=0 and myy>=0
VBS myx=myx+44
VBS myy=myy+33
RightUp 1
Delay 100
MoveTo myx myy
Delay 100
LeftClick 1
Delay 1500
KeyPress 32,1
Delay 100
EndIf
Return 捡玛雅
Sub 捡套装
VBSCall FindPic(0,0,DpiX,DpiY,"Attachment:\套装.bmp",0.9,tzx,tzy)
If tzx>=0 and tzy>=0
VBS tzx=tzx+44
VBS tzy=tzy+33
RightUp 1
Delay 100
MoveTo tzx tzy
Delay 100
LeftClick 1
Delay 1500
KeyPress 32,1
Delay 100
EndIf
Return 捡套装
//============================子程序结束============================

只是思路..自己研究吧

通过找图然后移动鼠标到物品上

没有

你不在一起玩的人是不会给你脚本的~~~~~~~~要和人熟才给的~~~~脚本基本是PK的重要连招器~~

没有这个脚本