// 元灵化身828.12
//1024*768/32色（全屏窗口皆可，建议全屏）
dim a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s
dim aa,bb
dim T1,T2,T3
dim gj1,gj2,gj3,weichongwu1,weichongwu2,gongji,gongjiKG,wcc
UserVar gongji=droplist{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55}=0 攻击/组合技能键
UserVar chihong=droplist{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55}=2 吃红键
UserVar chilan=droplist{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55}=3 吃蓝键
UserVar weichongwu2=droplist{F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55}=6 喂宠物键
UserVar gongjiyanshi=droplist{0.5秒:500|1.0秒:1000|2.0秒:2000|3.0秒:3000|4.0秒:4000|5.0秒:5000|6.0秒:6000|7.0秒:7000|8.0秒:8000|9.0秒:9000|10秒:10000|11秒:11000|12秒:12000|13秒:13000|14秒:14000|15秒:15000|20秒:20000|25秒:25000}=4 攻击延时[秒*2]
UserVar hongT=256 吃红延时[毫秒]
UserVar lanT=256 吃蓝延时[毫秒]
UserVar hong=70 红低于%多少自动吃红
UserVar lan=30 蓝低于%多少自动吃蓝
UserVar T3=droplist{低于设置饱食度就吃:0|20秒[20秒]:10000|40秒[40秒]:20000|60秒[1分钟]:30000}=1 喂宠延时
UserVar baoshi=95 宠饱食度低于%多少自动喂食
UserVar wcc=droplist{1个/次:1|2个/次:2|3个/次:3|4个/次:4|5个/次:5}=0 喂食数量
UserVar gongjiKG=droplist{自动打怪:0|仅补蓝红:1}=0 打怪选择
UserVar dingdianKG=droplist{是:0|否:1}=1 是否定点打怪
UserVar DDKG=droplist{经常:5|偶尔:20|很少:30}=0 回定点频率
UserVar gj1=droplist{全部:0|人形系:1|妖兽系:2|幽冥系:3|鳞皇系:4|天空系:5|金属系:6|五毒系:7|元素系:8|木魔系:9}=0 第一优先攻击
UserVar gj2=droplist{全部:0|人形系:1|妖兽系:2|幽冥系:3|鳞皇系:4|天空系:5|金属系:6|五毒系:7|元素系:8|木魔系:9}=0 第二优先攻击
UserVar shiquKG=droplist{是:0|否:1}=0 是否自动拾取
UserVar shiqu=droplist{数字键1:49|数字键2:50|数字键3:51|数字键4:52|数字键5:53|数字键6:54|数字键7:55}=1 拾取键
UserVar o=droplist{打怪优先:1|适中:2|拾取优先:3}=1 打怪拾取优先选择
//***************************************
//****************人物血条抓取***********
//***************************************
Delay 1000
VBSCall FindPic(0,0,60,150,"Attachment:\人物1024.bmp",0.8,x,y)
//区域找图  0,0,1024,768为区域范围  "神盾.bmp"为图片名（路径）  0.9为找图的相似度 x,y为找到图片后的坐标变量
If x>=0 and y>=0
    a=x+243
    d=x+224
    b=y-32
    c=a-117
    f=d-105
    e=y-16
EndIf 
Delay 100
If a>0
    Delay 100
Else 
    MessageBox "出错了！抓取人物血量时出错，请检查游戏分辨率是否为1024*768/32色！（窗口化/全屏皆可！）"
EndIf 
//***************************************
Rem stat1
If gongjiKG=1
    Gosub 人物补血补蓝
    Gosub 喂宠
    Goto stat1
EndIf 
//**************设置挂机点***************
//***************************************
If gongjiKG=0
    Delay 100
    If dingdianKG=0
        Delay 100
        VBSCall FindPic(0,0,1024,768,"Attachment:\自动寻径1024a.bmp",0.8,x,y)
        //区域找图  0,0,1024,768为区域范围  "神盾.bmp"为图片名（路径）  0.9为找图的相似度 x,y为找到图片后的坐标变量
        If x>=0 and y>=0
            MoveTo x,y
            Delay 1000
            LeftClick 1
            Delay 100
            VBSCall FindPic(0,0,1024,768,"Attachment:\自动寻径1024c.bmp",0.8,x,y)
            If x>=0 and y>=0
                MoveTo x+3,y+3
                Delay 1000
                LeftClick 1
                Delay 1000
                KeyPress 13,1
            EndIf 
            Delay 100
            VBSCall FindPic(0,0,1024,768,"Attachment:\自动寻径1024b.bmp",0.8,x,y)
            If x>=0 and y>=0
                MoveTo x+3,y+3
                Delay 1000
                LeftClick 1
                Delay 1000
                KeyPress 49,1
                Delay 1000
                KeyPress 13,1
                Delay 1000
                KeyPress 27,1
                Delay 1000
            EndIf 
        EndIf 
    EndIf 
EndIf 
//**********************************
//***********主程序*****************
//**********************************
Delay 100
Plugin T1=Sys.GetTime()
Delay 10
bb=1
Delay 10
Rem stat