天龍八部-完美跑商主義-轉自按鍵官網

天龍八部完美跑商主義轉自按鍵官網 xugaoming大大分享附件

附件中的圖片都是簡體天龍八部圖片，請重新自行抓取，不然繁體沒用。希望會改的大大幫忙改壹改   
我的幫城和對方幫城都是處於城市2
附件載點
http://www.badongo.com/file/9207767
附件 md5 7a5f000cf89eb9d53936b2c5c072666a
完美跑商主義
要求如下:
1,遊戲非全屏最大化
2,非聊天狀態,英文輸入狀態,聊天框內不要focus
3,地區地圖Tab最小化
4,背包置於材料欄,內無異物,:LOL
5,各面板為系統默認狀態,未被人為移動
6,幫城與幫城對跑,一趟滿票的玩家(完美跑商的條件,:lol ,簡單才完美)
7,站在錢為一旁邊,點一下錢為一
說明:只買賣大米,跑商的玩家都知道大米在94的時候賣價最高,固設為一個標準,94買94賣
①地圖可隨便修改:hang=*的值為要到達的下個圖在自動尋路面板中處於的行數
②玩家初始銀票的修改:第一個i=*的值為初始銀票價值,第2個i=*的值為回程後需要賣的個數
下面以3金(i=3;i=10)的玩家給出腳本,草原西南→洱海正東
複製內容到剪貼板
代碼:

Rem 再來
// =============================================================
Rem 領票
VBSCall Call FindPic(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
If x>=0 and y>=0
    MoveTo x+50 y-90
     Delay 1000
    LeftClick 2
    Delay 1000
Else
    Goto 領票
EndIf
Gosub 買東西
// =============================================================
// 從幫會到洱海幫會
// 當前地圖本幫幫會
xx=526
yy=572
Gosub gopos
Delay 25000
// 當前地圖草原
hang=4
Gosub gopic
Delay 10000
Gosub 過地圖
// 當前地圖雁南
hang=2
Gosub gopic
Delay 10000
Gosub 過地圖
// 當前地圖洛陽
hang=3
Gosub gopic
Delay 10000
Gosub 過地圖
// 當前地圖敦黃
hang=2
Gosub gopic
Delay 10000
Gosub 過地圖
// 當前地圖劍閣
hang=1
Gosub gopic
Delay 10000
Gosub 過地圖
// 當前地圖大理
hang=2
Gosub gopic
Delay 10000
Gosub 過地圖
// 當前地圖洱海
hang=5
Gosub gopic
Delay 10000
Gosub 進城
// 當前地圖洱海幫會
xx=659
yy=296
Gosub gopos
Delay 25000
Gosub 找商人
// =============================================================
i=3
Gosub 賣東西
Gosub 買東西
// =============================================================
// 從洱海幫會到本幫幫會
Rem 測試
xx=526
yy=572
Gosub gopos
Delay 25000
hang=2
Gosub gopic
Delay 10000
Gosub 過地圖
hang=3
Gosub gopic
Delay 10000
Gosub 過地圖
hang=2
Gosub gopic
Delay 10000
Gosub 過地圖
hang=3
Gosub gopic
Delay 10000
Gosub 過地圖
hang=5
Gosub gopic
Delay 10000
Gosub 過地圖
hang=1
Gosub gopic
Delay 10000
Gosub 過地圖
hang=5
Gosub gopic
Delay 10000
Gosub 進城
xx=659
yy=296
Gosub gopos
Delay 25000
Gosub 找商人
// ==============================================================
i=10
Gosub 賣東西
// 交票再來
MoveTo x+50 y-65
Delay 1000
LeftClick 2
Delay 2000
Goto 再來
// ==============================================================
Sub 買東西
Rem 找包
VBSCall Call FindPic(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
If x>=0 and y>=0
    Delay 1000
Else
    Goto 找包
EndIf
Rem 打開商店
MoveTo x+50 y+9
Delay 1000
LeftClick 2
Delay 3000
// 買大米,94銀的時候買
VBSCall Call FindPic(340,150,680,450,"Attachment:\94.bmp",1,x6,y6)
If x6>=0 and y6>=0
    MoveTo x6-80 y6-5
    Delay 500
Else
    Goto 打開商店
EndIf
Rem 買
LeftClick 5
// 檢查是否操作過快,是否商品列表已經改變
VBSCall Call FindPic(300,30,750,150,"Attachment:\重.bmp",0.9,x7,y7)
If x7>=0 and y7>=0
    Goto 打開商店
EndIf
// 檢查是否用完商票,是否買夠
VBSCall Call FindPic(300,30,750,150,"Attachment:\再.bmp",0.9,x8,y8)
If x8>=0 and y8>=0
    Delay 500
Else
Goto 買
EndIf
Return 買東西
Sub 賣東西
Rem 找包1
VBSCall Call FindPic(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
If x>=0 and y>=0
    Delay 1000
Else
    Goto 找包1
EndIf
Rem 打開商店1
MoveTo x+50 y+9
Delay 1000
LeftClick 2
Delay 3000
// 賣大米,94銀的時候賣
VBSCall Call FindPic(340,150,680,450,"Attachment:\94.bmp",1,x9,y9)
If x9>=0 and y9>=0
    MoveTo 830 455
    Delay 2000
Else
    Goto 打開商店1
EndIf
j=0
For i
    j=j+1
    VBSCall Call FindPic(300,30,750,150,"Attachment:\重.bmp",0.9,x10,y10)
    If x10>=0 and y10>=0
        Goto 打開商店1
    EndIf
    RightClick 3
    Delay 1000
    If (j Mod 5)=0
        MoveR -136,34
    Else
        MoveR 34,0
    EndIf
    Delay 2000
EndFor
Return 賣東西
Sub gopos
KeyPress 9,1
Rem 區域
Delay 2000
VBSCall Call FindPic(377,111,660,140,"Attachment:\區域地圖.bmp",0.9,x2,y2)
If x2>=0 and y2>=0
    Delay 1000
    MoveTo xx yy
    Delay 1000
    LeftClick 1
    Delay 10000
    LeftClick 1
    KeyPress 9,1
Else
    Goto 區域
EndIf
Return gopos
Sub 過地圖
Rem 過圖
Delay 3000
VBSCall Call FindPic(865,250,1024,500,"Attachment:\自動尋路(全).bmp",0.9,x4,y4)
If x4>=0 and y4>=0
    Goto 過圖
Else
    Delay 3000
EndIf
Return 過地圖
Sub gopic
KeyPress 192,1
Rem 找全
Delay 2000
VBSCall Call FindPic(865,250,1024,500,"Attachment:\自動尋路(全).bmp",0.9,x3,y3)
If x3>=0 and y3>=0
    Delay 1000
    MoveTo x3+64 y3+44+(hang-1)*16
    Delay 1000
    LeftClick 2
    Delay 1000
    MoveTo x3+64,y3+210
    Delay 500
    LeftClick 1
    Delay 10000
    LeftClick 1
Else
    Goto 找全
EndIf
Return gopic
Sub 進城
Rem 過城
Delay 3000
VBSCall Call FindPic(0,150,200,300,"Attachment:\城市2.bmp",1,x1,y1)
If x1>=0 and y1>=0
    Delay 1000
    MoveTo x1 y1+5
    Delay 1000
    LeftClick 2
    Delay 3000
Else
    Goto 過城
EndIf
Return 進城
Sub 找商人
Rem 找人
Delay 2000
VBSCall Call FindPic(345,145,630,460,"Attachment:\錢為一.bmp",0.9,x5,y5)
If x5>=0 and y5>=0
    MoveTo x5 y5+84
    Delay 2000
    VBSCall Shape=GetCursorShape(0)
    If Shape = 302826352
        Delay 2000
        LeftClick 2
    Else
        Goto 找人
    EndIf
Else
    Goto 找人
EndIf
Return 找商人

好複雜@@暈暈倒!    這是蝦咪?!

區域地圖.bmp

不知道哪裡抓的圖.知道的告訴一下

請參閱附件
裡面有簡體版的範例

剪貼板 是指按鍵精靈媽     yociexp171.gif
因為沒用過按鍵精靈
所以不太清楚其用法
然後你的按鍵官網是指哪個網頁
能給清楚一點媽

實在是看不太懂yociexp196.gif

小弟不才........只能修改到自動拎銀票 ,買大米,出城門,
出城門後不會動........

回覆 4# 的文章
就是看了圖.才找不到那4個字 在哪

說真的..我還速一頭霧水

區域地圖.bmp

不知道哪裡抓的圖.知道的告訴一下

他抓"顯示"兩個字，簡體版的

vrbrothers
兄弟論壇  兄弟工作室開發出按鍵精靈
他是大陸人，所以是簡體網站，
具體網址GOOGLE或YAHOO搜吧
剪貼板 ctr+c後檔案儲存的地方，在按下ctr+v，就會把東西貼出來
，屬於系統的一個功能的稱呼，大陸人把他英文翻城中文譯名的稱法。
台灣翻成剪貼簿。