CTGS--
资料文件
//--------------------------------------------------
//
脚本开始
//--------------------------------------------------
.
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
