dim inbattle,btlx,btly,ex,i,k,term
dim blood,bloodx,bloody,bldUpSpd,bldUpTime,beginTime
dim monst(2),tolTimes,perExp,tolExp,dieNums,reLive,tolsecond,howlong,dl,hl,ml,sl
dim rndAtk,attackOrder
dim maxDly,minDly
dim makeoredusttimes,rollmap
left=125:top=245:right=860:bottom=480:c1="00B4FF":i=0:j=0
tolTimes=1:tolExp=1:perExp=0.02:dienums=0:reLive=0
maxDly=5000:minDly=1000:beginTime=now
bloodx1=610:bloodx2=689:bloody1=235:bloody2=240
makeoredusttimes=0:rollmap=1
//攻击方向：0上1中2下
dim atkDirx(3),atkDiry(3)
atkdirx(0)=337:atkdiry(0)=328
atkdirx(1)=370:atkdiry(1)=371
atkdirx(2)=339:atkdiry(2)=419
dim fhlj,fhljlen,diedly
fhlj="22015":fhljlen=len(fhlj)
//路径坐标0代表复活点
dim fhx(6),fhy(6)
fhx(0)=800:fhy(0)=270
fhx(1)=800:fhy(1)=208
fhx(2)=800:fhy(2)=228
fhx(3)=800:fhy(3)=248
fhx(4)=800:fhy(4)=268
fhx(5)=800:fhy(5)=288
///////////////////////////////////////////
//----------自定义变量-----------
//c是需要打的怪的特征色
//c1是团队刷怪（怪上方的黄色团队打怪标志）
//dagc是需要避免的怪:年长的恶魔犬[4] 99FF
//鼠怪[1] FF00 狂狗[2] BF4C 雄性火蜘蛛2 BF4C 鼠怪头领[3] FF99 鼠怪领袖[2]FF66.
//刽子手护腿:杀人蜂卫兵[3]ffff 骷髅勇士[3]FFCC 骷髅兵[2] 8434
//term=0组队开关 0单刷1组队2遇到就打,刷高级怪的时候最好设置为1,怪少的时候可以设置为2
//maxerr组队情况下设置连续多少次找不到组队刷怪时， 自己刷怪！
//bldUpSpd常态下回血速度/秒, bldUpTime为恢复时间
//rndAtk是否探索组合招式0否1是随机出招
//attackOrder出招顺序表1上2中3下
//eatbread战斗过后是否直接吃面包0否1是
//makeoredust是否磨矿粉0否1是
///////////////////////////////////////////
monst(0)="骷髅勇士[3]"
monst(1)="FFCC"
c=monst(1)
dagc="8AE7"
term=0
blood=250
bldUpSpd=2.0
rndAtk=0
maxErr=130
outTimes=30
//attackOrder="323322"
//attackOrder="222"
attackOrder="112322"
eatbread=0
makeoredust=0
////////////////////////////////////////////
randomize
While 1
    //msgbox j
    Rem rr
    //是否退出挂机
    If exit_my_script=1
        Gosub ExitDrgGame
    EndIf 
    //是否暂停挂机
    If pause_my_script=1
        Delay 100
        Goto rr
    EndIf 
    //获取控制信息
    Gosub getdrgCtlInf
    Gosub renewDrgGameInf
    zd=0:ex=0
    i=i+1:i=i mod 4
    j=j+1:j=j mod maxErr
    //关闭弹出窗口
    Plugin subhwnd=Window.Find(0,subtip(0))
    If subhwnd*1>0
        Plugin Window.Close(subhwnd)
    EndIf 
    Plugin subhwnd=Window.Find(0,subtip(1))
    If subhwnd*1>0
        reLive=reLive+1
        Plugin Window.Close(subhwnd)
        //msgbox "第" & reLive & "成功复活!",61," -- 网页对话框"
        //Delay mindly
    EndIf 
    //与游戏兼容性未授权、未准备好（怪刚好消失）
    Plugin bcxy=Bkgnd.FindColor(hwnd, 420-main_win_left,364-main_win_top, 431-main_win_left,369-main_win_top,"8eccd0")
    If bcxy<>"-1|-1"
        Plugin BGKM5.LClick(hwnd,487-main_win_left,368-main_win_top)
    EndIf 
    //找不到怪就自动切换地图
    Plugin bcxy=Bkgnd.FindColor(hwnd, 440-main_win_left,160-main_win_top, 490-main_win_left,180-main_win_top,"B6")
    //msgbox bcxy & "11111111111111111"
    If bcxy<>"-1|-1"
        //msgbox i
        If i=0
            Plugin BGKM5.LClick(hwnd,464-main_win_left,160-main_win_top)