Rem 定位
atx = -1
aty = -1
//一号位
MoveTo 69,448
Delay 100
RightClick 1
Delay 200
VBSCall FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
If atx > 0 and aty > 0
myx = 69
myy = 448
rex = 49
rey = 542
col = 1
LeftClick 1
Goto 查找准备标记
EndIf
LeftClick 1
//二号位
MoveTo 199,425
Delay 100
RightClick 1
Delay 200
VBSCall FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
If atx > 0 and aty > 0
myx = 199
myy = 425
rex = 176
rey = 522
col = 1
LeftClick 1
Goto 查找准备标记
EndIf
LeftClick 1
//三号位
MoveTo 320,403
Delay 100
RightClick 1
Delay 200
VBSCall FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
If atx > 0 and aty > 0
myx = 320
myy = 403
rex = 301
rey = 502
col = 1
LeftClick 1
Goto 查找准备标记
EndIf
LeftClick 1
//四号位
MoveTo 440,383
Delay 100
RightClick 1
Delay 200
VBSCall FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
If atx > 0 and aty > 0
myx = 440
myy = 383
rex = 422
rey = 477
col = 1
LeftClick 1
Goto 查找准备标记
EndIf
LeftClick 1
//五号位
MoveTo 578,384
Delay 100
RightClick 1
Delay 200
VBSCall FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
If atx > 0 and aty > 0
myx = 578
myy = 384
rex = 557
rey = 477
col = 2
LeftClick 1
Goto 查找准备标记
EndIf
LeftClick 1
//六号位
MoveTo 695,411
Delay 100
RightClick 1
Delay 200
VBSCall FindPic (0,330,1024,600,"Attachment:\定位自己位置.bmp",1,atx,aty)
If atx > 0 and aty > 0
myx = 695
myy = 411
rex = 681
rey = 502
col = 2
LeftClick 1
Goto 查找准备标记
EndIf
LeftClick 1
//七号位