//学了一个星期,下面是总结,大侠别笑话.
//看看有麻该修改的地方,比如主程序~~~
dim color(2)
dim s,x,y,dim
// 声明 鼠标特征码
Shape1=1415218675
//颜色变量
color(0)="4a30d6":color(1)="deaead":color(2)="946173"
//开始找色
Rem 多色找怪
s=0
For 3
    Delay 10
    VBSCall FindCenterColor(150,100,930,600,color(s),x,y)
    If x>0 and y>0
        Delay 60
        MoveTo x y
        //摘到了,把鼠标放到上面,然后跳到 打怪
        Goto 打怪
    Else 
        Delay 60
        //没找到就移动下当前位置(还没弄)
        Goto 移动位置
    EndIf 
    //貌似递加循环
    s=s+1
EndFor 
//打怪开始
Rem 打怪
//得到当前鼠标特征
VBSCall Shape=GetCursorShape(0)
//判断（核对）是不是跟上面定义的特征码一样。
If Shape=Shape1
    //条件对，就开打(这里应该把核对特征跟打怪分还吧)
    Delay 60
    LeftClick 1
    Delay 300
    LeftClick 1
    Delay 300
    LeftClick 1
    Delay 300
    LeftClick 1
    Delay 300
    KeyPress 113,1
    RightClick 1
    Delay 60
    //打完后判断怪是否死亡
    Goto 判断死亡
Else 
    //死亡,执行再去找怪
    Goto 多色找怪
EndIf 
//判断死亡
Rem 判断死亡
//判断鼠标 x,y 上的颜色数组是否还存在.
IfColor x,y,"&"color("&s&"),0
    //如果存在,则跳转,继续打.
    Goto 打怪
Else 
    //死亡,则跳到 加血加辅助.
    Gosub 血盾
EndIf 
//加血,加辅助
Sub 血盾
    //找内存还没学,下面是找指定区域也没有这种颜色
    //我把截了一张血条三分之二时候的样子,如果图片不动
    //则没反映,如果发现不了整个图片则~~
    VBSCall FindPic(0,0,400,200,"C:\Documents and Settings\Administrator\桌面\土盾.bmp",0.9,x,y)
    If x>=0 and y>=0
        Delay 50
    Else 
        //没发现图片,则按F7加血.
        KeyPress 117,1
        Delay 200
        RightClick 1
    EndIf 
    //加辅助,同样的,在指定区域内是否发现图片(辅助技能图片小截图>
    VBSCall FindPic(0,0,400,200,"C:\Documents and Settings\Administrator\桌面\血条.bmp",0.9,x,y)
    If x>=0 and y>=0
        Delay 50
    Else 
        //没有发现,则按F6,然后点鼠标右键.
        KeyPress 118,1
        Delay 50
        RightClick 1
    EndIf 
Return 
//ovry
Gosub 多色找怪
//我现在想问的是:怎样控制人物走动以及怎样判断包裹是否已满(后台)的