PutAttachment D:\ *.wav
dim hong,lan,hongT,lanT,xgT,bbh,hgsd
dim number(2),thetime(2),key(2),sj(2)
dim a,b,c,d,jn1,jn2,jn3,s1,s2,s3,t1,t2,t3,L
//声明变量
UserVar hong=DropList{30%:30|50%:50|70%:70|90%:90|95%:95}=1 人多少吃红F5
UserVar lan=DropList{30%:30|50%:50|70%:70}=1 人多少吃蓝F6
UserVar bbh=DropList{30%:30|50%:50|70%:70|90%:90|95%:95}=1 宠多少吃红F7
UserVar hongT=10000 红药冷却时间
UserVar lanT=1000 蓝药冷却时间
UserVar xgT=1000 寻怪延时
Rem 开始
Gosub 外挂提示
IfColor 247,31,101410,2
    Rem 继续找怪
    Gosub 寻怪
    Rem 正式开始
    Gosub 吃血蓝
    Delay 200
    Gosub 锁定怪
    Delay 50
Else 
    Gosub 外挂提示
EndIf 
IfColor 247,31,000fff,2
    Gosub 打怪
Else 
    IfColor 223,30,000000,1
        Gosub 外挂提示
        Goto 继续找怪
    Else 
        Goto 开始
    EndIf 
EndIf 
Sub 关闭意外窗口
    VBSCall FindPic(0,0,1024,768,"Attachment:\tlxx.bmp",0.6,x,y)
    If x>0 and y>0
        MoveTo x+2,y+2
        LeftClick 1
    EndIf 
    //条件结束
    Delay 200
Return 关闭意外窗口
Sub 外挂提示
    VBSCall FindPic(2,107,566,568,"Attachment:\tlfwg.bmp",0.6,x,y)
    If x>0 and y>0
        For 3
            Gosub 报警
        EndFor 
        Delay 20
        VBSCall FindPic(2,107,566,568,"Attachment:\tlfwgg.bmp",0.6,x,y)
        If x>0 and y>0
            MoveTo 886,746
            Delay 20
            LeftClick 1
            Delay 1000
            MoveTo 515,398
            Delay 20
            LeftClick 1
        EndIf 
    EndIf 
Return 外挂提示
Sub 报警
    strSoundFile = "d:\5201.wav"
    Set objShell = CreateObject("Wscript.Shell")
    strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
    objShell.Run strCommand, 0, True
    Delay 2000
Return 报警
Sub 吃血蓝
    IfColor hong/100*(185-65)+65,30,1b1f1a,2
        //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
        //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
        KeyPress 116,1
        //按下补血快捷键
        Delay hongT
        //补血延时
    EndIf 
    IfColor lan/100*(185-65)+65,37,1b1f1a,2
        //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
        //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
        KeyPress 117,1
        //按下补血快捷键
        Delay lanT
        //补血延时
    EndIf 
    IfColor bbh/100*(185-92)+92,70,111310,2
        //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
        //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
        KeyPress 118,1
        //按下补血快捷键
        Delay lanT
        //补血延时
    EndIf 
Return 吃血蓝
Sub 寻怪
    VBSCall FindPic(878,42,1016,197,"Attachment:\dthd.bmp",0.4,x,y)
    If x>0 and y>0
        MoveTo x+4,y+4
        LeftClick 1