VBS dim hong,lan,hongT,lanT
//F3红，F4蓝
//在游戏中利用按键抓点抓色工具找到x1,x2,y,color所对应的值并替换。
UserVar hong=70 血量<hong%时，自动吃红。
UserVar lan=30 蓝量<lan%时，自动吃蓝。
UserVar hongT=256 补血延时时间（毫秒）
UserVar lanT=256 补蓝延时时间（毫秒）
UserVar xue=70 血量<xue%时，自动吃红。
UserVar mo=70 魔量<mo%时，自动上善。
Rem 开始
//循环开始标记
Delay 32
//循环小延时，防止出现CPU使用率过高，脚本卡
Rem 补红
IfColor hong/100*(314-188)+188,107,454545,2
    //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
    //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
    KeyPress 114,1
    //按下补血快捷键
    Delay hongT
    //补血延时
    KeyPress 32,1
EndIf 
Rem 补蓝
IfColor lan/100*(313-200)+200,127,454545,2
    //x2=蓝条在屏幕最右端坐标，x1=蓝条在屏幕最左端坐标，
    //y=x1,x2在蓝条中的同一纵坐标，color=蓝条的空蓝颜色值。
    KeyPress 115,1
    //按下补蓝快捷键
    Delay lanT
    //补蓝延时
    KeyPress 32,1
EndIf 
//跳转到循环开始
Rem 补状态
Rem 曲则全
VBSCall FindPic(189,148,273,195,"曲则全.bmp",0.7,x,y)
If x>0 and y>0
    Goto 开始找怪
Else 
    KeyPress 75,1
    Delay 300
    KeyPress 76,1
    Delay 2100
EndIf 
//++++++++++++++++++++++++++++++++++++++
//++++++++++++++++++++++++++++++++++++++
Rem 开始找怪
KeyPress 9,1
Rem 找猴子
Delay 500
VBSCall FindPic(536,125,612,201,"猴子.bmp",0.9,x2,y2)
//设定要打的怪,我只打猴子
Rem 如果找到老虎则
If x2>0 and y2>0
    Rem 使用听雨
    KeyPress 49,1
    KeyPress 49,1
    Goto 抢怪
Else 
    Delay 500
    KeyDown 65,1
    Delay 150
    KeyUp 65,1
    Delay 200
    KeyPress 9,1
    Delay 500
    VBSCall FindPic(536,125,612,201,"猴子.bmp",0.9,x2,y2)
    Rem 如果找到老虎则
    If x2>0 and y2>0
        Rem 使用听雨
        KeyPress 49,1
        KeyPress 49,1
        Goto 抢怪
    EndIf 
    Delay 500
    KeyDown 65,1
    Delay 150
    KeyUp 65,1
    Delay 200
    KeyPress 9,1
    Delay 500
    VBSCall FindPic(536,125,612,201,"猴子.bmp",0.9,x2,y2)
    Rem 如果找到老虎则
    If x2>0 and y2>0
        Rem 使用听雨
        KeyPress 49,1
        KeyPress 49,1
        Goto 抢怪
    EndIf 
    Delay 500
    KeyDown 65,1
    Delay 150
    KeyUp 65,1
    Delay 200
    KeyPress 9,1
    Delay 500
    VBSCall FindPic(536,125,612,201,"猴子.bmp",0.9,x2,y2)
    Rem 如果找到老虎则
    If x2>0 and y2>0