//
//详细使用方法请看"脚本说明"
//下面是脚本的所有子程序列表,方便调用及修改主程序
//都是源码,看己看着改吧.
//
//寻仙全自动采集脚本［驭剑游侠］
//作者:Vrx1
//时间:2009.02.18
//按键:6.86
//
//++++++++++++++++++++++++ 子程序 列表 +++++++++++++++++++++
//
//     名称                      功能及解释
//Sub 走到指定坐标			目的坐标存入WalkToP(0),WalkToP(1)
//Sub 打开购物窗口			打开小贩窗口
//Sub 走到小贩旁边			走到小贩边上
//Sub 走到采集点			走到2级狩猎点
//Sub 读取坐标				通过Pxy(0),Pxy(1)返回坐标值
//Sub 清理窗口				关闭所有窗口,并重新召唤宝宝
//Sub 开始采集				进行采集,直到工具用完
//Sub 检查数值				检查四个主要物品数量,存入ObjN(0-4)
//Sub 回宁海城				回到宁海制皮点
//Sub 开始制衣				制作游侠裤子
//Sub 打开宁海城地图
//Sub 打开宁海县地图
//Sub 读取单个坐标值
//Sub 检查背包空格
//Sub 读取单个数字
//Sub 打开背包
//Sub 关闭宝宝
//Sub 召唤宝宝
//Sub 开始制皮
//Sub 关闭窗口
//Sub 买弓箭
//Sub 买剪刀
//Sub 卖裤子
//Sub 取消PK
//
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//
UserVar JumpPoint=DropList{默认:0|小贩:1|采集:2|制皮:3}=0 脚本起点
UserVar KeySetting=123456 功能键(侍骑猎皮裤寻)
UserVar nGongJian=4 购买弓箭数量
//用Goto保证定义的变量全局有效,而且精简程序
// - - 不过按键好像全部都是全局变量
Goto 初始化开始
Rem 初始化完成
//
//++++++++++++++++++++++++++++　主程序　++++++++++++++++++++++++
//
Rem 脚本开始
Gosub 清理窗口
Gosub 召唤宝宝
Gosub 走到采集点
Rem 跳转点采集
Gosub 关闭宝宝
Gosub 开始采集
//如果采集过程中出意外(GoTo语句尽量不要放Sub里面)
If ObjN(0)=-1
    If ObjN(3)<100
        tToGet=60
        Goto 脚本开始
    EndIf 
EndIf 
Rem 跳转点制皮
Gosub 清理窗口
Gosub 召唤宝宝
Gosub 回宁海城
Gosub 开始制皮
Gosub 关闭窗口
Rem 跳转点制裤子
Gosub 走到小贩旁边
Gosub 开始制衣
Gosub 买弓箭
Goto 脚本开始
EndScript 
//
//+++++++++++++++++++++++++初始化部分++++++++++++++++++++++++
Rem 初始化开始
VBS Dim ObjN(4),Keys(7),Pxy(2),WalkToP(2)
Plugin hwnd=Window.GetKeyFocusWnd()
Plugin CLRECT_STR=Window.GetClientRect(hwnd)
VBS CLRECT_VAL=split(CLRECT_STR,"|")
VBS cx=Cint(CLRECT_VAL(0)):cy=Cint(CLRECT_VAL(1))
VBS num=0:tx=0:ty=0:clfont="E0E0E0":tToGet=160
VBS ObjN(1)=0:ObjN(2)=0:ObjN(3)=0:ObjN(0)=0:isPacFull=0
VBS KeySetting=UCase(KeySetting):num=1
//设置快捷键
For 6
    keys(num)=mid(KeySetting,num,1)
    num=num+1
EndFor 
//跳转入主程序相应部分.
Gosub 检查数值
If JumpPoint>0
    If JumpPoint=1
        Goto 跳转点制裤子
    EndIf 
    If JumpPoint=2
        Goto 跳转点采集