Rem 1
VBSCall FindColorEx(397,135,1217,633,"0000FF",0,0.8,intX,intY) 使用區域模糊找怪,座標自己重新設定,顏色是找怪頭上的紅色
If intX>0 and intY>0
MoveTo intX,intY
LeftClick 1 單及左鑑(攻擊)
Delay 2000 延遲2秒
Gosub XX 調用副程式XX
EndIf
Sub XX 副程式XX <--撿東西用
VBSCall FindColorEx(674,376,897,469,"00D7FF",0,0.8,intX,intY) 區域模糊找色,座標自己重新設定,顏色是找地上物品的黃色
If intX>0 and intY>0
Delay 1000
KeyPress 32,1 空白鑑(檢取)
Delay 500
KeyPress 32,1
Delay 500
KeyPress 32,1
Delay 500
KeyPress 32,1
Delay 500
KeyPress 32,1
Delay 500 重複5次~因為怕沒檢完
Goto 2
Else
Goto 1
EndIf
Rem 2
IfColor 404,11,0000A1,1 這行是補血的~坐標一樣自己設定~顏色是找血條的顏色
KeyPress 81,1
Else
Goto 1
EndIf
#很簡單的近戰外掛,可以以這個為基礎多加技能進去~遠弓的沒練我就不寫了!很懶..... |