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 //按照剑谱出招呵呵!