//*＝＝＝＝＝＝＝＝＝＝＝＝以下用户可修改的代码＝＝＝＝＝＝＝＝＝＝＝＝
UserVar Ztai=1 此功能是加状态，1为只加一个状态，2为只加二个状态，3为只加三个状态。0为不加
UserVar Fka=20 此功能是防卡,20=20秒<单位:秒>在20秒左右,有时候回卡住或被人拉走导致人物发呆
UserVar Zdj=1 此功能是死亡后自动关机1为开,2为关闭功能
//*＝＝＝＝＝＝＝＝＝＝＝＝以上是用户修改的代码＝＝＝＝＝＝＝＝＝＝＝＝
Dim PFx,PFy,Ztai,Swx,Swy,fx,fy,Fka
Dim File,F1,SaveString,FileName
FileName="long\"&now&".ini"
Set File = CreateObject("Scripting.FileSystemObject")
Set F1 =File.CreateTextFile(FileName,2)
F1.Close
t2=now
t1=now
Gshu=0
Plugin Fx=Sys.GetScRX()
Plugin Fy=Sys.GetScRY()
Rem Gxue
IfColor 432,35,a5,2
    VBSCall Gxue=GetPixelColor(432,35)
Else 
    KeyPress 9,1
    Delay 500
    Goto Gxue
EndIf 
Gosub 自动加状态
Gosub 背包
SaveString="*****************欢迎使用恶魔游武林-挂机开始*****************"
Gosub 保存日志
SaveString="***当前分辨率 "&Fx&"×"&Fy&""
Gosub 保存日志
SaveString="***当前加状态 "&Ztai&""
Gosub 保存日志
SaveString="***当前防卡设置 "&Fka&""
Gosub 保存日志
SaveString="***当前自动关机 "&Zdj&""
Gosub 保存日志
Rem 开始
VBSCall Gxue=GetPixelColor(432,35)
If Gxue=0000A5
    Gshu=Gshu+1
    Gosub 打怪
EndIf 
Gosub 拣东西
KeyPress 9,1
Delay 200
Gosub 自动红蓝
Gosub 死亡回城
Goto 开始
Sub 自动红蓝
    IfColor 179,34,b5,1
        KeyPress 50,1
        Delay 1000
    EndIf 
    IfColor 135,46,ad9e00,1
        KeyPress 57,1
        Delay 1000
    EndIf 
Return 自动红蓝
Sub 紧急加血
    IfColor 179,34,b5,1
        KeyPress 50,1
        Delay 800
    EndIf 
Return 紧急加血
Sub 背包
    KeyPress 66,1
    Delay 200
    IfColor 179,34,b5,1
        KeyPress 50,1
        Delay 1000
    EndIf 
    VBSCall FindPic(0,342,281,768,"Attachment:\配方.bmp",0.8,PFx,PFy)
    While PFx>0 and PFy>0
        MoveTo PFx+4,PFy+4
        Delay 200
        IfColor 179,34,b5,1
            KeyPress 50,1
            Delay 1000
        EndIf 
        LeftDown 1
        Delay 200
        MoveTo 146,251
        Delay 200
        LeftUp 1
        Delay 200
        IfColor 179,34,b5,1
            KeyPress 50,1
            Delay 1000
        EndIf 
        VBSCall FindPic(0,342,281,768,"Attachment:\配方.bmp",0.8,PFx,PFy)
    EndWhile 
    IfColor 179,34,b5,1
        KeyPress 50,1
    EndIf 
    VBSCall FindPic(0,342,281,768,"Attachment:\配方win.bmp",0.8,fx,fy)
    While fx>0 and fy>0
        MoveTo fx+4,fy+4
        Delay 200
        RightClick 1
        For 5