hment "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 开始
Call 外挂提示()
IfColor 247,31,"101410",2 Then
    Rem 继续找怪
    Call 寻怪()
    Rem 正式开始
    Call 吃血蓝()
    Delay 200
    Call 锁定怪()
    Delay 50
Else
    Call 外挂提示()
End if
IfColor 247,31,"000fff",2 Then
    Call 打怪()
Else
    IfColor 223,30,"000000",1 Then
        Call 外挂提示()
        Goto 继续找怪
    Else
        Goto 开始
    End if
End if
Sub 关闭意外窗口()
    Call FindPic(0,0,1024,768,"Attachment:\tlxx.bmp",0.6,x,y)
    If x>0 and y>0 Then
        MoveTo x+2,y+2
        LeftClick 1
    End if
    //条件结束
    Delay 200
End Sub
Sub 外挂提示()
    Call FindPic(2,107,566,568,"Attachment:\tlfwg.bmp",0.6,x,y)
    If x>0 and y>0 Then
        For 3
            Call 报警()
        Next
        Delay 20
        Call FindPic(2,107,566,568,"Attachment:\tlfwgg.bmp",0.6,x,y)
        If x>0 and y>0 Then
            MoveTo 886,746
            Delay 20
            LeftClick 1
            Delay 1000
            MoveTo 515,398
            Delay 20
            LeftClick 1
        End if
    End if
End Sub
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
End Sub
Sub 吃血蓝()
    IfColor hong/100*(185-65)+65,30,"1b1f1a",2 Then
        //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
        //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
        KeyPress 116,1
        //按下补血快捷键
        Delay hongT
        //补血延时
    End if
    IfColor lan/100*(185-65)+65,37,"1b1f1a",2 Then
        //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
        //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
        KeyPress 117,1
        //按下补血快捷键
        Delay lanT
        //补血延时
    End if
    IfColor bbh/100*(185-92)+92,70,"111310",2 Then
        //x2=血条在屏幕最右端坐标，x1=血条在屏幕最左端坐标，
        //y=x1,x2在血条中的同一纵坐标，color=血条的空血颜色值。
        KeyPress 118,1
        //按下补血快捷键
        Delay lanT
        //补血延时
    End if
End Sub
Sub 寻怪()
    Call FindPic(878,42,1016,197,"Attachment:\dthd.bmp",0.4,x,y)
    If x>0 and y>0 Then
        MoveTo x+4,y+4
        LeftClick 1