按鍵精靈傳奇外掛地圖尋找怪打怪撿金幣

經過2天多時間精心測試，內掛有加血，地圖之間跑路圖沒做，只做了檢測當前地圖和定點搜怪，撿金幣。

適用環境：

'外掛設置：隱藏尸體，去掉免shift攻擊

代碼：

Call 檢測地圖()
'Call 開始打怪()
'Call 撿物品()
'唐唐網絡 http://www.cnlnsq.com/  出品,如果您需要更精準的外掛請隨時聯系我們！
'特定打造,不滿意不要錢,任何游戲,只要是人玩的,均可以實現！
'原理上不會被任何網游封掉,完全基于人工模擬!
'一般性客戶端判斷外掛讀取進程可以使用工具禁止進行內存讀取.實現為所欲為！
'結合計算機強大性能和虛擬機,可以實現無限多開！
’腳本開源,可以輕易進行個性修改！
    
Sub 檢測地圖()
FindPic 169,486,519,678,"E:\按鍵精靈9\wugong\比奇省.bmp",0.9,a,b
If a > 0 And b > 0 Then
Delay 200
     Call 比奇省跑路()
Delay 900
End If
    
    
End Sub
    
    
    
Sub 比奇省跑路()
        
Dim dingweitu
dingweitu="E:\按鍵精靈9\wugong\比奇省坐標相對位置.bmp"
For  30000000
Dim ii
'左邊走路
ii = 0
'13|19|25|39|41|
'69|76|72|72|84|
zuobiaox = "150|150|149|136"
zuobiaoy = "140|132|124|120"
    
xx = Split(zuobiaox, "|")
yy = Split(zuobiaoy, "|")
    
For ii = 0 To 3
    Call 移動測試(xx(ii),yy(ii),dingweitu)
Next
    
For ii = 3 To 0
    Call 移動測試(xx(ii),yy(ii),dingweitu)
Next
    
Next
End Sub
    
    
    
Sub 移動測試(x,y,dingweitu)
KeyPress "Tab", 2
FindPic 839,68,1200,343,dingweitu,0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+x, intY+y
Delay 800
RightClick 1
Delay 3000
End If
KeyPress "Tab", 1
Delay 300
Call 開始打怪()
Delay 200
Call 撿物品()
End Sub
    
    
Sub 開始打怪()
Delay 200
Dim ci,p
ci = 1
P = 0  '怪物數量初始化
//召喚神獸
Delay 100
    
Rem 怪物檢測
MoveTo 685, 275
Delay 200
LeftClick 1
    
FindPic 173, 71, 1201, 426, "E:\按鍵精靈9\wugong\稻草人.bmp", 0.6, x, y
If x > 0 And x > 0 Then
FindPic 173, 71, 1201, 426, "E:\按鍵精靈9\wugong\稻草人.bmp", 0.5, x, y
While x>0 and y>0 and ci < 5
   MoveTo x + 11, y + 7
   LeftClick 1
   Delay 800
    //延時
   ci=ci+1
   Delay 1000
   x = 0
   y = 0
   Delay 800
   Goto 怪物檢測
Wend
End If
Delay 100
    
    
FindPic 173, 71, 1201, 426, "E:\按鍵精靈9\wugong\多鉤貓.bmp", 0.5, x, y
If x > 0 And x > 0 Then
FindPic 173, 71, 1201, 426, "E:\按鍵精靈9\wugong\多鉤貓.bmp", 0.5, x, y
While x>0 and y>0 and ci < 5
   MoveTo x + 11, y + 7
   LeftClick 1
   Delay 800
    //延時
   ci=ci+1
   Delay 1000
   x = 0
   y = 0
   Delay 800
   Goto 怪物檢測
Wend
End If
Delay 100
    
    
FindPic 173, 71, 1201, 426, "E:\按鍵精靈9\wugong\鹿.bmp", 0.5, x, y
If x > 0 And x > 0 Then
FindPic 173, 71, 1201, 426, "E:\按鍵精靈9\wugong\鹿.bmp", 0.5, x, y
While x>0 and y>0 and ci < 5
   MoveTo x + 11, y + 7
   LeftClick 1
   Delay 800
    //延時
   ci=ci+1
   Delay 1000
   x = 0
   y = 0
   Delay 800
   Goto 怪物檢測
Wend
End If
Delay 100
    
    
    
End Sub
    
    
Sub 撿物品()
Delay 50
Rem 金幣檢測
FindPic 168, 70, 1064, 462, "E:\按鍵精靈9\wugong\金幣.bmp", 0.5, intX, intY
If intX > 0 And intY > 0 Then
FindPic 168, 70, 1064, 462, "E:\按鍵精靈9\wugong\金幣.bmp", 0.5, intX, intY
While intX > 0 And intY > 0
   MoveTo intX+2, intY+2
   Delay 500
   LeftClick 1
   Delay 1000
   intX = 0
   intY = 0
   Goto 金幣檢測
Wend
End If
    
FindPic 168, 70, 1064, 462, "E:\按鍵精靈9\wugong\金幣2.bmp", 0.5, intX, intY
If intX > 0 And intY > 0 Then
FindPic 168, 70, 1064, 462, "E:\按鍵精靈9\wugong\金幣2.bmp", 0.5, intX, intY
While intX > 0 And intY > 0
   MoveTo intX+2, intY+2
   Delay 500
   LeftClick 1
   Delay 1000
   intX = 0
   intY = 0
   Goto 金幣檢測
Wend
End If
    
End Sub

用到的附件：

wugong.rar