//----------------------------------------------------------------------
//本脚步是由 万古魔主 制作  联系QQ229130276
//脚步归万古魔主个人所有  未经许可任何人不得用于商业用途
//和私自传播！！！
//----------------------------------------------------------------------
VBS dim hong,lan,hongT,lanT
UserVar hong=40 血量低于几%时，自动吃红。
UserVar lan=30 蓝量低于几%时，自动吃蓝。
UserVar jialan=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48} 加蓝键
UserVar jiahong=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48} 加红键
UserVar jn1=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48}  技能1
UserVar jn2=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48}  技能2
UserVar jn3=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48}  技能3
UserVar jn4=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48}  技能4
UserVar jn5=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48} 技能5
UserVar jn6=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48} 技能6
UserVar jn7=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48}  技能7
UserVar jn8=DropList{关闭:0|1键:49|2键:50|3键:51|4键:52|5键:53|6键:54|7键:55|8键:56|9键:57|0键:48}  技能8
UserVar xg=DropList{否:1|是:2} 是否选怪
Rem ks
Delay 1500
KeyPress 9,1
Gosub 补红蓝
If xg=2
    Gosub 选怪
EndIf 
Rem sg
If jn1>0
    IfColor 373,46,300df,2
        KeyPress jn1,1
        Delay 1000
    Else 
        Goto ks
    EndIf 
    Gosub 补红蓝
EndIf 
If jn2>0
    IfColor 373,46,300df,2
        KeyPress jn2,1
        Delay 1000
    Else 
        Goto ks
    EndIf 
    Gosub 补红蓝
EndIf 
If jn3>0
    IfColor 373,46,300df,2
        KeyPress jn3,1
        Delay 1000
    Else 
        Goto ks
    EndIf 
    Gosub 补红蓝
EndIf 
If jn4>0
    IfColor 373,46,300df,2
        KeyPress jn4,1
        Delay 1000
    Else 
        Goto ks
    EndIf 
    Gosub 补红蓝
EndIf 
IfColor 373,46,300df,2
    Goto sg
Else 
    Gosub 检物
EndIf 
Goto ks
Sub 补红蓝
    If jiahong>0
        IfColor hong/100*(246-91)+91,47,2E1734,2
            Delay 32
            KeyPress jiahong,1
        EndIf 
    EndIf 
    If jialan
        IfColor lan/100*(246-91)+91,57,371F1A,2
            Delay 32
            KeyPress jialan,1
        EndIf 
    EndIf 
Return 补红蓝
Sub 选怪
    IfColor 527,47,150A18,2
        Delay 1000
        Goto ks
    EndIf 
Return 选怪
Sub 检物
    VBSCall FindColorEx(200,100,600,580,"25FF2D",1,0.8,x,y)
    //区域模煳找色  0,0,1024,768为区域范围 "FFFFFF"为颜色 1为查找方式(中间向外) 0.8为模煳值 x,y为找到颜色后的坐标变量
    If x>0 and y>0
        //如果找到颜色  比如找到颜色就会赋值给坐标变量  通过判断坐标变量可以知道有没有找到怪
        MoveTo x,y
        //把鼠标移动到该色的坐标 如果找的是怪名字或血条  可能移动不到怪身上 这时就要用鼠标偏移 如：MoveTo x+10 y+10
        Delay 500
        //延时
        VBSCall shape=GetCursorShape(0)
        If shape=876372781