atkid=mid(attackorder,k+1,1) k=k+1:k=k mod len(attackOrder) If atkid="1" //Plugin mmove.Lclick(hwnd,atkdirx(0)-main_win_left,atkdiry(0)-main_win_top) Plugin BGKM5.Lclick(hwnd,atkdirx(0)-main_win_left,atkdiry(0)-main_win_top) Plugin BGKM5.Lclick(hwnd,atkdirx(0)-main_win_left,atkdiry(0)-main_win_top) ElseIf atkid="2" //Plugin mmove.Lclick(hwnd,atkdirx(1)-main_win_left,atkdiry(1)-main_win_top) Plugin BGKM5.Lclick(hwnd,atkdirx(1)-main_win_left,atkdiry(1)-main_win_top) Plugin BGKM5.Lclick(hwnd,atkdirx(1)-main_win_left,atkdiry(1)-main_win_top) Else //Plugin mmove.Lclick(hwnd,atkdirx(2)-main_win_left,atkdiry(2)-main_win_top) Plugin BGKM5.Lclick(hwnd,atkdirx(2)-main_win_left,atkdiry(2)-main_win_top) Plugin BGKM5.Lclick(hwnd,atkdirx(2)-main_win_left,atkdiry(2)-main_win_top) EndIf EndIf EndIf //未授权 Plugin bcxy=Bkgnd.FindColor(hwnd,390-main_win_left,368-main_win_top,395-main_win_left,373-main_win_top,"ba") Delay 100 If bcxy<>"-1|-1" Goto exwhilebtl EndIf //与游戏兼容性战斗是否结束 Plugin bcxy=Bkgnd.FindColor(hwnd,350-main_win_left,365-main_win_top,365-main_win_left,380-main_win_top,"7a") //msgbox bcxy If bcxy<>"-1|-1" Goto exwhilebtl EndIf //TracePrint "attack: " & atkid Delay 700 EndWhile Rem exwhilebtl If bcxy<>"-1|-1" //ietxt(1).innerText="结束战斗:" & bcxy TracePrint "结束战斗:" & bcxy //信息,后台喊话不发 //Plugin BGKM5.LClick(hwnd,127-main_win_left,696-main_win_top) //Plugin BGKM5.LClick(hwnd,127-main_win_left,696-main_win_top) //Plugin BGKM5.LClick(hwnd,127-main_win_left,696-main_win_top) //SayString toltimes & "/" & dienums //防止待机 VBSCall GetCursorPos(nnnx,nnny) MoveTo nnnx+1 nnny Delay mindly //与游戏兼容性是否死亡 Plugin bcxy=Bkgnd.FindColor(hwnd,310-main_win_left,310-main_win_top,320-main_win_left,320-main_win_top,"1717c8") chkdiexy=split(bcxy,"|",-1,1) If bcxy<>"-1|-1" TracePrint "you died......" & dienums gameinfotext="[" & time & "]死亡,开始复活!!!!!!!" & dienums & vbcrlf & gameinfotext Gosub renewDrgGameInf2 //msgbox bcxy dienums=dienums+1 //msgbox "你太弱了,经不起战斗的考验,快回家修炼去吧!",48," -- ghost网页对话框" Gosub die Else //与游戏兼容性自己在队列的第几个位置(名字绿色) Plugin bcxy=Bkgnd.FindColor(hwnd,610-main_win_left,218-main_win_top,641-main_win_left,406-main_win_top,"6600") chkplacexy=split(bcxy,"|",-1,1) mytermid=chkplacexy(1)+13 //msgbox bcxy & "11111111" If bcxy<>"-1|-1" TracePrint "mytermid" & mytermid //是否吃面包? If eatbread=1 Gosub eatbreadsub EndIf //与游戏兼容性血量-红 Plugin bcxy=Bkgnd.FindColor(hwnd,bloodx1-main_win_left-1,mytermid,bloodx2-main_win_left+5,mytermid+2,"0000A3") chkbloodxy=split(bcxy,"|",-1,1) x=chkbloodxy(0)*1 y=chkbloodxy(1)*1 // msgbox mytermid-main_win_top+67 Plugin bcxy=Bkgnd.FindColor(hwnd,bloodx1-main_win_left-1,mytermid,bloodx2-main_win_left+5,mytermid+2,"999999") chkbloodxy2=split(bcxy,"|",-1,1) bloodx=chkbloodxy2(0)*1 //msgbox bcxy & bloodx If x>0 or (x<0 and bloodx<0) k=0 TracePrint "杀死怪物:" & toltimes &"次." gameinfotext="[" & time & "]杀死怪物:" & toltimes &"次." & vbcrlf & gameinfotext Gosub renewDrgGameInf2 toltimes=toltimes+1 tolExp=tolExp+perExp //失血数量转化为恢复时间 If x>0 and bloodx=-1 bloodx=bloodx2 EndIf bldUpTime=int(((bloodx2-bloodx)/(bloodx2-bloodx1+1)*blood)/bldupspd)*1000 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) If bldUpTime<0 bldUpTime=maxdly EndIf If bldUptime>int(blood/bldUpSpd+5)*1000 bldUpTime=int(blood/bldUpSpd)*1000 EndIf //是否磨矿粉1~2次