//借鉴 超级版主 wanghao19942 非常感谢
Dim hwnd,mp,sp,jinyan1,mpdz,spdz,jingyan1,jingyan2,jingyandz
//定义窗口句柄hwnd 自定义加红蓝底线mp，sp 红蓝内存地址 mpdz spdz
//经验值jingyan1 2（判断怪是否死亡）经验地址jingyandz
Dim jn1,jn2,jn3,jn4,jn5,jianwu
//定义技能建 捡物键（好像可以不要这句 知道的朋友麻烦告诉下谢谢）
//攻击技能 jn1 jn2 加蓝加红快捷键 3 4 选怪 5
UserVar hong=100 当血少于hong时加血(非百分比)
UserVar lan=100 当血少于lan时加血(非百分比)
UserVar mpdz=&h00000000 红内存地址
UserVar spdz=&h00000000 蓝内存地址
UserVar jingyandz=&h00000000 经验内存地址
//很多网友说想自定义内存地址 所以就弄出来了 也是的，网游经常换地址 麻烦
UserVar jn1=DropList{数字1:49|数字2:50|数字3:51|数字4:52|数字5:53|数字6:54|数字7:55|数字8:56|数字9:57}=50 攻击技能选择
UserVar jn2=2 攻击技能2设置
//技能1和2 区别设定是想练习2种用户自定义模式
UserVar jn3=DropList{E:69|数字2:50|数字3:51|数字4:52|数字5:53|数字6:54|数字7:55|数字8:56|数字9:57}=69 加红快捷键
UserVar jn4=DropList{R:82|数字2:50|数字3:51|数字4:52|数字5:53|数字6:54|数字7:55|数字8:56|数字9:57}=82 加蓝快捷键
//上面为加红蓝快捷键 默认 E R 建议不动
UserVar jn5=DropList{Q:81|数字2:50|数字3:51|数字4:52|数字5:53|数字6:54|数字7:55|数字8:56|数字9:57}=81 选怪快捷键
//上面为选怪快捷键 默认 Q 建议不动
UserVar jianwu=DropList{空格:32|选项2:值2}=32 捡物快捷键
//-----------------------转换键码---------------------------
key(0)=Asc(UCase(jn2))
//借鉴 超级版主 wanghao19942 非常感谢
//-----------------------主程序-----------------------------
Plugin hwnd=Window.Foreground()
Rem 开始打怪
Gosub 检查红蓝
Gosub 读经验
Gosub 抓怪
Gosub 打怪
Gosub 二次读经验
Gosub 捡物
Goto 开始打怪
//-----------------------红蓝-----------------------------
Sub 检查红蓝
    Rem 查红
    Plugin mp=Memory.Read16Bit(hwnd,mpdz)
    If mp<hong
        Plugin Bkgnd.KeyDown(hwnd,jn3)
        Delay 50
        Plugin Bkgnd.KeyUp(hwnd,jn3)
    EndIf 
    Rem 查蓝
    Plugin sp=Memory.Read16Bit(hwnd,spdz)
    If sp<lan
        Plugin Bkgnd.KeyDown(hwnd,jn4)
        Delay 50
        Plugin Bkgnd.KeyUp(hwnd,jn4)
    EndIf 
Return 检查红蓝
//-----------------------读经验-----------------------------
Sub 读经验
    Plugin jingyan1=Memory.Read16Bit(hwnd,jingyandz)
Return 读经验
//-----------------------抓怪-----------------------------
Sub 抓怪
    Plugin Bkgnd.KeyDown(hwnd,jn5)
    Delay 50
    Plugin Bkgnd.KeyUp(hwnd,jn5)
Return 抓怪
//-----------------------打怪-----------------------------
Sub 打怪
    Plugin Bkgnd.KeyDown(hwnd,jn1)
    Delay 50
    Plugin Bkgnd.KeyUp(hwnd,jn1)
    Delay 2000
Return 打怪
//-----------------------二次检查红蓝------暂时先不用 测试下再看-----------------------
Sub 二次检查红蓝
Return 二次检查红蓝
//-----------------------二次读经验-----------------------------
Sub 二次读经验
    Plugin jingyan2=Memory.Read16Bit(hwnd,jingyandz)
    If jingyan2=jingyan1
        Gosub 转动视角
        Gosub 打怪
    EndIf 
Return 二次读经验
//-----------------------捡物-----------------------------
Sub 捡物
    For 3
        Plugin Bkgnd.KeyDown(hwnd,jianwu)
        Delay 50
        Plugin Bkgnd.KeyUp(hwnd,jianwu)
    EndFor 
Return 捡物
//-----------------------转动视角----默认键为方向键右---------------
//-----------------------因为游戏特殊性 不转动的时候怪没刷出来 前面很远的怪不能选 后面很近的怪也不能选
Sub 转动视角
    Plugin Bkgnd.KeyDown(hwnd,39)
    Delay 1300
    Plugin Bkgnd.KeyUp(hwnd,39)
Return 转动视角