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次