EndIf
If i=1
Plugin BGKM5.LClick(hwnd,435-main_win_left,170-main_win_top)
EndIf
If i=2
Plugin BGKM5.LClick(hwnd,464-main_win_left,180-main_win_top)
EndIf
If i=3
Plugin BGKM5.LClick(hwnd,495-main_win_left,170-main_win_top)
EndIf
Delay 500
//是否滚动地图, 如果4次切换都找不到,则下次进入滚动地图,每个地图滚动过后不再滚动
//上 878 213 下 878 480
If rollmap=1 and j mod 8 >4
If i=0 or i=3
For 5
//Delay mindly
Plugin BGKM5.LClick(hwnd,878-main_win_left,213-main_win_top)
EndFor
EndIf
If i=1 or i=2
For 5
//Delay mindly
Plugin BGKM5.LClick(hwnd,878-main_win_left,480-main_win_top)
EndFor
EndIf
Delay mindly
EndIf
EndIf
//除错:找不到任何怪超时自动点击狩猎,这里设置的将近2分钟
If j>=outtimes
Plugin BGKM5.MMove(hwnd,650-main_win_left,78-main_win_top)
Delay 500
Plugin BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
Plugin BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
//Plugin BGKM5.LClick(hwnd,650-main_win_left,78-main_win_top)
Delay maxdly
EndIf
//找怪
Plugin bcxy=Bkgnd.FindColor(hwnd,left-main_win_left,top-main_win_top,right-main_win_left,bottom-main_win_top,c)
monsterxy=split(bcxy,"|",-1,1)
x=monsterxy(0)*1
y=monsterxy(1)*1
If bcxy<>"-1|-1"
//与游戏兼容性团队打怪标记
If term<>2
Plugin bcxy=Bkgnd.FindColor(hwnd,x-20,y-80,x+20,y,c1)
termxy=split(bcxy,"|",-1,1)
x1=termxy(0)*1
y1=termxy(1)*1
If bcxy<>"-1|-1"
//避免打别人正在打的怪
If term=0 and j<maxerr-125
Delay mindly
Goto rr
EndIf
Else
//组队情况下,如果怪没有人打则不去打,高级怪哦!
If term=1 and j<maxerr-125
Delay mindly
Goto rr
EndIf
EndIf
EndIf
//与游戏兼容性是否有需要避开的怪存在,小心被那些JY怪给阉了!
Plugin bcxy=Bkgnd.FindColor(hwnd,x-50,y-50,x+50,y+50,dagc)
dagxy=split(bcxy,"|",-1,1)
x1=dagxy(0)*1
y1=dagxy(1)*1
If bcxy<>"-1|-1" and dagc<>""
Delay mindly
Goto rr
EndIf
Plugin BGKM5.Lclick(hwnd,x+15,y-25)
//Plugin BGKM5.Lclick(hwnd,x+15,y-25)
Plugin BGKM5.Lclick(hwnd,284-main_win_left,178-main_win_top)
Delay 100
j=0:x=-1:y=-1
Delay maxdly
EndIf
//与游戏兼容性是否战斗状态
Plugin bcxy=Bkgnd.FindColor(hwnd,300-main_win_left,360-main_win_top,320-main_win_left,380-main_win_top,"FCFCFC")
btlxy=split(bcxy,"|",-1,1)
btlx=btlxy(0)*1
btly=btlxy(1)*1
If btlx>=0 and btly>=0
gameinfotext="[" & time & "]开始打怪:" & toltimes & vbcrlf & gameinfotext
Gosub renewDrgGameInf2
While 1
//判断画面是否出现战斗提示,是则按照攻击顺序表攻击
Plugin bcxy=Bkgnd.FindColor(hwnd,300-main_win_left,360-main_win_top,320-main_win_left,380-main_win_top,"FCFCFC")
Delay 100
If bcxy<>"-1|-1"
If rndatk=1
//这段用来自动探索组合招式
rndid=int(rnd*3)
Plugin BGKM5.Lclick(hwnd,atkdirx(rndid)-main_win_left,atkdiry(rndid)-main_win_top)
Plugin BGKM5.Lclick(hwnd,atkdirx(rndid)-main_win_left,atkdiry(rndid)-main_win_top)
Else
//按照剑谱出招呵呵!