===玩家自定义模块================
UserVar hp=70 "当血HP小于%几时，使用红药。"
UserVar mp=70 "当蓝MP小于%几时，使用蓝药。"
UserVar PtJnKill=DropList{"普通攻击":0|"技能攻击":1}=0 "攻击模式"
UserVar PTKj=DropList{"A键":65|"S键":83|"D键":68|"F键":70|"Q键":81|"W键":87|"E键":69|"R键":82}=0 "普通攻击快捷键"
UserVar JN1Kj=DropList{"A键":65|"S键":83|"D键":68|"F键":70|"Q键":81|"W键":87|"E键":69|"R键":82}=1 "技能1攻击快捷键"
UserVar JN2Kj=DropList{"A键":65|"S键":83|"D键":68|"F键":70|"Q键":81|"W键":87|"E键":69|"R键":82}=2 "技能2攻击快捷键"
UserVar JN3Kj=DropList{"A键":65|"S键":83|"D键":68|"F键":70|"Q键":81|"W键":87|"E键":69|"R键":82}=3 "技能3攻击快捷键"
UserVar HongKj=DropList{"A键":65|"S键":83|"D键":68|"F键":70|"Q键":81|"W键":87|"E键":69|"R键":82}=4 "红药快捷键位置"
UserVar LanKj=DropList{"A键":65|"S键":83|"D键":68|"F键":70|"Q键":81|"W键":87|"E键":69|"R键":82}=5 "蓝药快捷键位置"
UserVar Fa1Kj=DropList{"A键":65|"S键":83|"D键":68|"F键":70|"Q键":81|"W键":87|"E键":69|"R键":82}=6 "心法1快捷键位置"
UserVar Fa2Kj=DropList{"A键":65|"S键":83|"D键":68|"F键":70|"Q键":81|"W键":87|"E键":69|"R键":82}=7 "心法2快捷键位置"
UserVar JinWu=3 "普通攻击捡物间隔时间秒"
UserVar JN1ON=DropList{"开":0|"关":1}=0 "技能1攻击开关"
UserVar JN2ON=DropList{"开":0|"关":1}=0 "技能2攻击开关"
UserVar JN3ON=DropList{"开":0|"关":1}=0 "技能3攻击开关"
UserVar JN1time=1 "技能1释放时间秒"
UserVar JN2time=1 "技能2释放时间秒"
UserVar JN3time=1 "技能3释放时间秒"
JN1time=JN1time*1000:JN2time=JN2time*1000:JN3time=JN3time*1000
//=======主程模块==================
Rem 打怪主程序
Call 补红蓝()
If PtJnKill=0 Then
    Ti1=Time
    Goto 普通攻击
Else
    Goto 技能攻击
End if
//=========================
Rem 普通攻击
Call 补红蓝()
Delay 20
KeyPressH PTKj,1
Delay 120
If DateDiff("s",Ti1,time)>=JinWu Then
    Call 捡物()
    Delay 20
    Ti1=Time
End if
Goto 普通攻击
//=========================
Rem 技能攻击
Delay 10
Call 补红蓝()
Delay 10
If JN1ON=0 Then
    KeyPressH JN1Kj,1
    Delay JN1time
    Call 补红蓝()
End if
If JN2ON=0 Then
    KeyPressH JN2Kj,1
    Delay JN2time
    Call 补红蓝()
End if
If JN3ON=0 Then
    KeyPressH JN3Kj,1
    Delay JN3time
    Call 补红蓝()
End if
Call 捡物()
Goto 技能攻击
//======子程模块===================
Sub 补红蓝()
    Call FindPic(1,1,1023,767,"Attachment:\HP.bmp",0.8,X,Y)
    If X>0 and Y>0 Then
        X1=X+28+1.15*HP:X2=X+28+0.96*MP
        Rem 补红
        IfColor X1,Y-2,"545C4C",2 Then
            KeyPressH HongKj,1
            Delay 300
        End if
        Rem 补蓝
        IfColor X2,Y+21,"545E61",2 Then
            KeyPressH LanKj,1
            Delay 300
        End if
    End if
End Sub
//=========================
Sub 捡物()
    For 6
        KeyPressH 67,1
        Delay 100
        KeyPressH 67,1
        Delay 100
        KeyPressH 67,1
        Delay 100
    Next
End Sub
//=================  默认快捷键设置值  =======================
//======       Q＝红；W＝蓝；E=心法1；R=心法2     　　　======
//====   A键=普通攻击；S键=技能1；D键=技能2；F键=技能3    ====
//==================  按键6.50版本以上  ======================