我的空間 ｜　會員中心　｜ VIP會員　｜ 聯合國facebook專區
黃易群俠傳M脫機外掛應用程式黃易神行
外掛聯合國討論區 › 《紅心辣椒》 › 《大航海時代外掛》 ›
17903
25
發佈主題
返回

[轉貼] 巴塞隆納到帕爾馬(可以練食品_火器買賣_香辛料理_會計)

gg2255 發表於 2010-4-26 23:21:11 | 只看該作者 回帖獎勵 |倒序瀏覽 |
這一貼不是我自己寫的是從別的地方轉貼過來_本人還沒測試過

會出問題應該只有抓點跟抓圖的地方自己在修改一下

我提供2種版本_後台跟前台_不懂抓圖的人就使用前台

以下是後台腳本

Delay 1000
　　Rem 1
　　Gosub巴塞-帕
　　Delay 1000
　　Gosub帕一巴塞
　　Delay 1000
　　Goto 1
　　Sub巴塞羅那
　　MoveTo 870，551
　　Delay 99
　　LeftDoubleClick 1
　　Delay 6000
　　KeyDown 17，1
　　Delay 99
　　KeyDown 40，1
　　Delay 3000
　　KeyUp 40，1
　　Delay 99
　　KeyUp 17，1
　　Delay 99
　　KeyDown 27，1
　　For 80
　　MoveTo 495，302
　　LeftClick 1
　　Delay 150
　　EndFor
　　Delay 999
　　Gosub二砍
　　Delay 500
　　KeyDown 27，1
　　For 75
　　MoveTo 519，490
　　LeftClick 1
　　Delay 150
　　EndFor
　　For 35
　　MoveTo 625，399
　　LeftClick 1
　　Delay 150
　　EndFor
　　For 27
　　MoveTo 539，498
　　LeftClick 1
　　Delay 150
　　EndFor
　　Rem找巴官
　　VBSCall FindPic（0，0，1024，768，“e︰火圖官。bmp”，0.9，a，b）
　　If a>0 and b>0
　　MoveTo a-1 b+6
　　Delay 50
　　LeftDoubleClick 1
　　Else
　　RightClick 1
　　EndIf
　　Delay 3000
　　KeyUp 27，1 IfColor 880，527，efe78c，2
　　MoveTo 880 527
　　Delay 50
　　LeftClick 1
　　Delay 50
　　Else
　　Goto找巴官
　　EndIf
　　Delay 6000
　　Return巴塞羅那
　　Sub二砍
　　Delay 500
　　KeyDown 27，1
　　Delay 1000
　　VBSCall FindPic（0，0，1024，768，“e︰火圖交易。bmp”，0.9，e，f）
　　If e>=0 and f>=0
　　MoveTo e+30 f+20
　　Delay 50
　　LeftDoubleClick 1
　　Delay 99
　　KeyUp 27，1
　　Else
　　Goto走
　　EndIf
　　Delay 4000
　　VBSCall FindPic（0，0，1024，768，“e︰火圖買入。bmp”，0.7，g，h）
　　If g>=0 and h>=0
　　MoveTo g+12 h+7
　　LeftClick 1
　　Else
　　Goto走
　　EndIf
　　Delay 3000
　　For 9
　　MoveTo 489，385
　　LeftClick 30
　　KeyPress 40，1
　　EndFor
　　Delay 4000
　　Rem一砍
　　VBSCall FindPic（500，350，650，450，“e︰火圖砍價。bmp”，0.6，i，j）
　　If i>0 and j>0
　　MoveTo i+12 j+7
　　LeftClick 1
　　Delay 99
　　MoveTo 0，0
　　Delay 1700
　　Else
　　Goto確定
　　EndIf
　　IfColor 531，207，deffff，2 VBSCall FindPic（0，0，1024，768，“e︰火圖砍價。bmp”，0.6，c，d）
　　If c>0 and d>0
　　MoveTo c+12 d+7
　　LeftClick 1
　　Delay 99
　　MoveTo 0，0
　　Delay 1700
　　Else
　　Goto確定
　　EndIf
　　IfColor 531，207，deffff，2
　　Rem確定
　　Delay 3000
　　MoveTo 771，495
　　LeftClick 1
　　Delay 1700
　　Else
　　Goto一砍
　　EndIf
　　KeyPress 27，1
　　Else
　　Goto一砍
　　EndIf
　　Rem走
　　KeyPress 27，1
　　Return一抬二砍
　　Sub巴塞-帕
　　Delay 1000
　　MoveTo 910，526
　　Delay 77
　　LeftClick 1
　　Delay 2000
　　MoveTo 282，434
　　Delay 77
　　LeftClick 1
　　Delay 1000
　　MoveTo 714，476
　　Delay 77
　　LeftClick 1
　　Delay 2000
　　KeyPress 27，2
　　Delay 1000
　　MoveTo 869，526
　　Delay 77
　　LeftDoubleClick 1
　　Delay 4000
　　VBSCall FindPic（0，0，1024，768，“e︰火圖外面暴風。bmp”，0.8，u，v）
　　If u>=0 and v>=0
　　Delay 180000
　　EndIf
　　MoveTo 752，471
　　Delay 77
　　LeftDoubleClick 1
　　Delay 7000
　　KeyDown 17，1 KeyDown 40，1
　　Delay 3000
　　KeyUp 40，1 KeyUp 17，1
　　Delay 99
　　MoveTo 717，59
　　Delay 99
　　LeftDoubleClick 1
　　Delay 500
　　MoveTo 717，59
　　Delay 50
　　LeftDoubleClick 1
　　Delay 500
　　KeyPress 45，1
　　Delay 500
　　KeyPress 45，1
　　Delay 500
　　MoveTo 717，59
　　Delay 50
　　LeftDoubleClick 1
　　KeyPress 121，1
　　Delay 2200
　　KeyPress 117，1
　　Delay 1000
　　MoveTo 717，59
　　Delay 50
　　LeftDoubleClick 1
　　Delay 200
　　Rem吃料理
　　IfColor 122，115，f77df7，2
　　Goto吃完
　　Else
　　KeyPress 121，1
　　Delay 2200
　　KeyPress 112，1
　　Delay 1200
　　EndIf
　　Goto吃料理
　　Rem吃完
　　MoveTo 717，59
　　Delay 50
　　LeftDoubleClick 1
　　Delay 200
　　KeyPress 121，1
　　Delay 2200
　　KeyPress 113，1
　　Delay 1200
　　KeyPress 121，1
　　Delay 2200
　　KeyPress 114，1
　　Delay 1200
　　KeyPress 121，1
　　Delay 2200
　　KeyPress 115，1
　　Delay 1200
　　KeyPress 121，1
　　Delay 2200
　　KeyPress 116，1
　　Delay 2000
　　Gosub暴風
　　Delay 1000
　　KeyPress 36，2
　　Delay 1000
　　KeyDown 38，1 KeyDown 17，1
　　Delay 2000
　　KeyUp 38，1 KeyUp 17，1
　　Delay 1000
　　Rem尋找帕港
　　VBSCall FindPic（850，510，1024，768，“e︰火圖碼頭廣場。bmp”，0.5，x，y）
　　If x>0 and y>0
　　MoveTo x+12 y+7
　　Gosub帕爾瑪
　　Else
　　Gosub尋找
　　Goto尋找帕港
　　EndIf
　　Return巴塞-帕
　　Sub帕爾瑪
　　Delay 500
　　MoveTo 869，553
　　Delay 50
　　LeftClick 1
　　Delay 7000
　　KeyDown 34，1
　　Delay 1000
　　KeyUp 34，1
　　Delay 100
　　KeyDown 17，1 KeyDown 40，1
　　Delay 3000
　　KeyUp 40，1 KeyUp 17，1
　　Delay 200
　　KeyDown 27，1
　　Delay 200
　　For 45
　　MoveTo 490，299
　　LeftClick 1
　　Delay 170
　　EndFor
　　For 20
　　MoveTo 626，392
　　LeftClick 1
　　Delay 150
　　EndFor
　　For 20
　　MoveTo 458，314
　　LeftClick 1
　　Delay 150
　　EndFor
　　Delay 1000
　　Rem找帕老頭
　　VBSCall FindPic（0，0，1024，768，“e︰火圖交易。bmp”，0.9，x，y）
　　If x>=0 and y>=0
　　MoveTo x+40 y+20
　　Delay 50
　　LeftDoubleClick 1
　　Else
　　Goto下
　　EndIf
　　Delay 3000
　　KeyUp 27，1 VBSCall FindPic（0，0，1024，768，“e︰火圖賣出。bmp”，0.7，a，b）
　　If a>=0 and b>=0
　　MoveTo a+12 b+7
　　LeftClick 1
　　Else
　　Goto找帕老頭
　　EndIf
　　Delay 3000
　　Gosub二抬
　　Delay 100
　　KeyDown 27，1
　　Rem下
　　Delay 700
　　For 20
　　MoveTo 566，470
　　LeftClick 1
　　Delay 170
　　EndFor
　　For 20
　　MoveTo 398，396
　　LeftClick 1
　　Delay 170
　　EndFor
　　For 50
　　MoveTo 540，502
　　LeftClick 1
　　Delay 190
　　EndFor
　　Rem找帕官
　　VBSCall FindPic（0，0，1024，768，“e︰火圖官。bmp”，0.9，a，b）
　　If a>0 and b>0
　　MoveTo a-1 b+6
　　Delay 50
　　LeftDoubleClick 1
　　Else
　　RightClick 1
　　EndIf
　　Delay 3000
　　KeyUp 27，1 IfColor 880，527，efe78c，2
　　MoveTo 880 527
　　Delay 50
　　LeftClick 1
　　Delay 50
　　Else
　　Goto找帕官
　　EndIf
　　Delay 6000
　　Return帕爾瑪
　　Sub二抬
　　//全部賣出
　　MoveTo 437，154
　　Delay 99
　　LeftClick 1
　　Delay 1000
　　Rem一抬
　　VBSCall FindPic（500，350，650，450，“e︰火圖漫天要價。bmp”，0.6，x，y）
　　If x>0 and y>0
　　MoveTo x+12 y+7
　　LeftClick 1
　　Delay 99
　　MoveTo 0，0
　　Delay 1700
　　Else
　　Goto二抬確定
　　EndIf
　　IfColor 531，207，deffff，2 VBSCall FindPic（0，0，1024，768，“e︰火圖漫天要價。bmp”，0.6，c，d）
　　If c>0 and d>0
　　MoveTo c+12 d+7
　　LeftClick 1
　　Delay 99
　　MoveTo 0，0
　　Delay 1700
　　Else
　　Goto二抬確定
　　EndIf
　　IfColor 531，207，deffff，2
　　Rem二抬確定
　　Delay 3000
　　MoveTo 741，497
　　LeftClick 1
　　Delay 1700
　　Else
　　Goto一抬
　　EndIf
　　Else
　　Goto一抬
　　EndIf
　　Delay 1000
　　KeyPress 27，1
　　Return帕交易
　　Sub帕一巴塞
　　Shape1 = 1539512539
　　Delay 1000
　　MoveTo 869，526
　　Delay 77
　　LeftClick 1
　　Delay 4000
　　VBSCall FindPic（0，0，1024，768，“e︰火圖外面暴風。bmp”，0.8，w，z）
　　If w>=0 and z>=0
　　Delay 180000
　　EndIf
　　MoveTo 752，471
　　Delay 77
　　LeftDoubleClick 1
　　Delay 7000
　　KeyDown 17，1 KeyDown 40，1
　　Delay 3000
　　KeyUp 40，1 KeyUp 17，1
　　Delay 99
　　MoveTo 937，279
　　Delay 99
　　LeftDoubleClick 1
　　Delay 500
　　MoveTo 937，279
　　Delay 99
　　LeftDoubleClick 1
　　Delay 500
　　KeyPress 45，1
　　Delay 1000
　　KeyPress 45，1
　　Delay 1000
　　MoveTo 937，279
　　Delay 50
　　LeftDoubleClick 1
　　Delay 200
　　KeyPress 121，1
　　Delay 2200
　　KeyPress 117，1
　　Delay 1000
　　MoveTo 937，279
　　Delay 50
　　LeftDoubleClick 1
　　Delay 200
　　KeyPress 121，1
　　Delay 2200
　　KeyPress 113，1
　　Delay 1200
　　KeyPress 121，1
　　Delay 2200
　　KeyPress 114，1
　　Delay 1000
　　MoveTo 937，279
　　Delay 50
　　LeftDoubleClick 1
　　Delay 500
　　KeyPress 121，1
　　Delay 2200
　　KeyPress 119，1
　　Delay 1200
　　KeyPress 121，1
　　Delay 2200
　　KeyPress 116，1
　　Delay 2000
　　Gosub暴風
　　Delay 1000
　　KeyPress 36，2
　　Delay 1000
　　KeyDown 38，1 KeyDown 17，1
　　Delay 2000
　　KeyUp 38，1 KeyUp 17，1
　　Delay 1000
　　Rem尋找巴港
　　Delay 200
　　VBSCall FindPic（850，510，1024，768，“e︰火圖碼頭廣場。bmp”，0.5，x，y）
　　If x>0 and y>0
　　MoveTo x+12 y+7
　　Gosub巴塞羅那
　　Else
　　Gosub尋找
　　Goto尋找巴港
　　EndIf
　　Return帕一巴塞
　　Sub尋找
　　KeyPress 9，1 KeyPress 13，2
　　Delay 200
　　Gosub風雨無阻
　　Return尋找
　　Sub風雨無阻
　　VBSCall FindPic（960，730，996，766，“e︰火圖暴風。bmp”，0.9，o，p）
　　If o>=0 and p>=0
　　KeyPress 27，3 KeyPress 46，3
　　Delay 180000
　　KeyDown 17，1 KeyDown 40，1
　　Delay 3000
　　KeyUp 40，1 KeyUp 17，1 MoveTo 512，192
　　LeftDoubleClick 1
　　Delay 500
　　KeyPress 45，2
　　Delay 500
　　KeyDown 38，1 KeyDown 17，1
　　Delay 2000
　　KeyUp 38，1 KeyUp 17，1
　　EndIf
　　Return暴風下線
　　Sub暴風
　　VBSCall FindPic（960，730，996，766，“e︰火圖暴風。bmp”，0.9，o，p）
　　If o>=0 and p>=0
　　KeyPress 27，3 KeyPress 46，3
　　Delay 50
　　KeyDown 17，1 KeyPress 76，1 KeyUp 17，1
　　Delay 200
　　KeyPress 13，1
　　Delay 300000
　　KeyPress 123，1
　　EndIf
　　Return暴風






以下是前台_不會抓圖的使用此版本只要將每個NPC的色數字修改就可以



腳本開始


F1 操帆 F2 自定義 F3 運用 F4 警戒 F5 烹飪 。海平面對準最左上方西瓜國旗的白線



Rem 主程式開始處
For 2000
Gosub 進巴港
Delay 2200
Gosub 找巴交易所頭家
Delay 500
Gosub 巴賣掉
Delay 1000
Gosub 巴買貨
Delay 1500
Gosub 服用料理
Delay 800
Gosub 找巴官員
Delay 2000
Gosub 補給出港2
Delay 1500
Gosub 巴-帕
Delay 3000
Gosub 進帕港
Delay 2500
Gosub 找帕頭家
Delay 2000
Gosub 帕賣掉
Delay 2000
Gosub 帕買貨
Delay 2000
Gosub 服用料理
Delay 800
Gosub 找帕官員
Delay 2500
Gosub 直接出港1
Delay 1000
Gosub 帕-巴
Delay 2000
EndFor
Rem 主程式結束處
//---------------------------------
Sub 進巴港
Delay 2000
For 20
IfColor 646 409 FFFFFF 0
MoveTo 648 414
Delay 500
LeftClick 1
Delay 1200
Goto 進巴港結束
Else
EndIf
EndFor
Rem 進巴港結束
Delay 2000
Return 進巴港
//---------------------------------
Sub 找巴交易所頭家
Delay 2000
KeyDown 27,1
Delay 200
KeyDown 37,1
Delay 150
KeyUp 37,1
Delay 500
KeyDown 38 1
Delay 14000
KeyUp 38 1
Delay 500
KeyUp 27,1
Delay 500
For 5
KeyPress 9 1
Delay 500
IfColor 639,362,FFFFFF,0
Delay 250
IfColor 691,370,FFFFFF,0
Delay 250
IfColor 711,372,FFFFFF,0
Delay 250
IfColor 691,373,FFFFFF,0
KeyPress 13,2
Delay 500
KeyPress 13,2
Delay 500
Goto 找巴交易所頭家結束
Else
EndIf
Else
EndIf
Else
EndIf
Else
EndIf
EndFor
Rem 找巴交易所頭家結束
Delay 500
Return 找巴交易所頭家
//---------------------------------
Sub 巴賣掉
MoveTo 690 387
Delay 800
LeftClick 1
Delay 2000
MoveTo 121 147
Delay 800
LeftClick 1
Delay 1000
MoveTo 629 441 //賣出確定鍵
Delay 800
LeftClick 1
Delay 1000
Return 巴賣掉
//---------------------------------
Sub 巴買貨
Delay 500
MoveTo 654 389 //點擊買入,彈出視窗
Delay 800
LeftClick 1 //點擊購買
Delay 2000
KeyPress 40 1
KeyPress 40 1
KeyPress 40 1
Delay 800
Gosub 買20
KeyPress 40 1
Delay 800
Gosub 買20
Delay 500
MoveTo 489,352
Delay 1200
LeftClick 1
Delay 1200
MoveTo 668,442
Delay 1500
LeftClick 1
Delay 1200
MoveTo 654 389 //點擊買入,彈出視窗
Delay 800
LeftClick 1 //點擊購買
Delay 2000
KeyPress 40 1
KeyPress 40 1
KeyPress 40 1
KeyPress 40 1
KeyPress 40 1
Delay 800
Gosub 買20
KeyPress 40 1
Delay 800
Gosub 買20
Delay 800
KeyPress 40 1
Delay 800
MoveTo 489,352
Delay 1200
LeftClick 1
Delay 1200
MoveTo 668,442
Delay 1500
LeftClick 1
Delay 1200
KeyPress 113,1
Delay 1500
KeyPress 113,1
Delay 1500
Delay 500
MoveTo 654 389 //點擊買入,彈出視窗
Delay 800
LeftClick 1 //點擊購買
Delay 2000
KeyPress 40 1
KeyPress 40 1
KeyPress 40 1
Delay 800
Gosub 買20
KeyPress 40 1
Delay 800
Gosub 買20
Delay 500
MoveTo 489,352
Delay 1200
LeftClick 1
Delay 1200
MoveTo 668,442
Delay 1500
LeftClick 1
Delay 1200
MoveTo 654 389 //點擊買入,彈出視窗
Delay 800
LeftClick 1 //點擊購買
Delay 2000
KeyPress 40 1
KeyPress 40 1
KeyPress 40 1
KeyPress 40 1
KeyPress 40 1
Delay 800
Gosub 買20
KeyPress 40 1
Delay 800
Gosub 買20
Delay 800
KeyPress 40 1
Delay 800
MoveTo 489,352
Delay 1200
LeftClick 1
Delay 1200
MoveTo 668,442
Delay 1500
LeftClick 1
Delay 1200
For 20
MoveTo 654 389
Delay 1000
LeftClick 1
Delay 2000
Delay 400
MoveTo 380 198
Delay 600
LeftClick 1
Delay 600
IfColor 652 438 FEFEFE 2 //判斷是否可以購買
Delay 400
Else
KeyPress 40 1
Delay 400
MoveTo 380 198
Delay 600
LeftClick 1
Delay 600
EndIf
IfColor 471 348 FFFEFE 2
MoveTo 485 351
Delay 600
LeftClick 1
Delay 2200
IfColor 470 348 FFFEFE 2
MoveTo 665 443
Delay 600
LeftClick 1
Delay 1000
Delay 200
Else
MoveTo 380 340
Delay 500
LeftClick 5
Delay 800
MoveTo 665 443
Delay 800
LeftClick 1
Delay 1500
Goto 巴買貨結束
EndIf
Else
MoveTo 665 443
Delay 1000
LeftClick 1
Delay 2000
Goto 巴買貨結束
EndIf
EndFor
Rem 巴買貨結束
Return 巴買貨
//---------------------------
Sub 買20
Delay 200
MoveTo 388 339
Delay 500
LeftClick 20
Delay 500
Return 買20
//---------------------------
Sub 找巴官員
KeyPress 27,1
Delay 200
KeyDown 40,1
Delay 10000
KeyUp 40,1
Delay 200
RightClick 1
Delay 1500
KeyDown 37,1
Delay 600
KeyUp 37,1
Delay 200
KeyDown 38,1
Delay 8000
KeyUp 38,1
For 5
KeyPress 9 1
Delay 1000
IfColor 639 361 ffffff 0
Delay 250
IfColor 695 361 ffffff 0
Delay 250
IfColor 696 373 ffffff 0
KeyUp 27 1
Delay 1000
KeyPress 13 2
Delay 800
KeyPress 13 2
Delay 800
KeyPress 13 2
Goto 找巴官員結束
Else
EndIf
Else
EndIf
Else
EndIf
EndFor
Rem 找巴官員結束
Delay 1000
KeyPress 13 2
Delay 500
KeyPress 13 2
Delay 500
MoveTo 647 388 //前往碼頭
Delay 500
LeftClick 1
Delay 2000
Return 找巴官員
//-------------------------------------
Sub 服用料理
For 10
IfColor 116 148 474747 0
KeyPress 113 1
Delay 1400
KeyPress 116 1
Delay 1000
Else
Goto 服用料理結束
EndIf
EndFor
Rem 服用料理結束
Delay 800
Return 服用料理
//--------------------------------------
Sub 補給出港2
Delay 1000
MoveTo 690 387 //補給
Delay 200
LeftClick 1
Delay 2000
MoveTo 197 380 //補給到所儲存數量
Delay 600
LeftClick 1
Delay 1000
MoveTo 601 423 //確定
Delay 500
LeftClick 1
Delay 1000
KeyPress 27 1 //ESC
Delay 1000
MoveTo 652 388 //出航
Delay 800
LeftClick 1
Delay 1500
MoveTo 645 416 //確定
Delay 1000
LeftClick 1
Delay 3000
Return 補給出港2
//--------------------------
Sub 巴-帕
Delay 500
KeyPress 27,1
Delay 500
KeyDown 39,1
Delay 130
KeyUp 39,1
Delay 500
IfColor 771 610 49240C 2
KeyPress 45 1 //按inster 啟航
Delay 500
KeyPress 113 1 // F2 自定義欄
Delay 1600
KeyPress 112 1 //F1 操帆
Delay 2000
Else
Delay 100000 //風暴DELAY100秒再啟航
KeyPress 45 1 //按inster 啟航
Delay 500
KeyPress 113 1 // F2 自定義欄
Delay 1600
KeyPress 112 1 //F1 操帆
Delay 2000
EndIf
KeyPress 36 1
Delay 800
KeyPress 113 1
Delay 1600
KeyPress 114 1 //F3 運用
Delay 2000
KeyPress 113 1
Delay 1600
KeyPress 115 1 //F4 警戒
Delay 2000
KeyPress 36 1
Delay 50000
Gosub 找帕
Return 巴-帕
//-----------------------------
Sub 找帕
For 80
KeyPress 9 1
Delay 1000
IfColor 640 363 ffffff 0
Delay 250
IfColor 642 373 ffffff 0
Delay 250
IfColor 680 373 ffffff 0
MoveTo 690 372
KeyPress 36 1
Delay 500
KeyPress 13 2
Delay 2000
Goto 跳出找帕
Else
EndIf
Else
EndIf
Else
KeyPress 27 2
Delay 700
KeyPress 36 1
Delay 300
EndIf
EndFor
Rem 跳出找帕
For 2
MoveTo 400 400
KeyPress 36 1
Delay 1000
KeyPress 13 2
Delay 300
KeyPress 13 2
Delay 300
EndFor
Return 找帕
//------------------------------
Sub 進帕港
Delay 2000
For 20
IfColor 669 415 EFE474 0
MoveTo 664 415
Delay 800
LeftClick 1
Delay 2500
Goto 進帕港結束
Else
EndIf
EndFor
Rem 進帕港結束
Delay 2500
Return 進帕港
//---------------------------------
Sub 找帕頭家
Delay 2000
KeyPress 27,1
Delay 200
KeyDown 37,1
Delay 160
KeyUp 37,1
Delay 140
KeyDown 38,1
Delay 7000
KeyUp 38,1
Delay 200
KeyDown 39,1
Delay 250
KeyUp 39,1
Delay 200
KeyDown 38,1
Delay 4000
KeyUp 38,1
For 20
KeyPress 9 1
Delay 500
IfColor 639,362 ffffff 0
Delay 250
IfColor 691,370 FFFFFF 0
Delay 250
IfColor 711,372 ffffff 0
Delay 250
KeyPress 13 1
Delay 2000
KeyPress 13 1
Delay 200
Goto 找帕頭家結束
Else
EndIf
Else
EndIf
Else
EndIf
EndFor
Rem 找帕頭家結束
KeyUp 27 1
Delay 100
Return 找帕頭家
//------------------
Sub 帕賣掉
IfColor 646 385 FFFFFF 0
Else
KeyPress 13,2
Delay 1000
EndIf
MoveTo 690 387
Delay 500
LeftClick 1
Delay 2000
MoveTo 335,101
Delay 1000
LeftClick 1
Delay 1400
MoveTo 485 351
Delay 600
LeftClick 1
Delay 1700
LeftClick 1
Delay 1500
MoveTo 629 441
Delay 600
LeftClick 1
Delay 1500
Return 帕賣掉
//--------------------------
Sub 帕買貨
Delay 100
For 20
MoveTo 654 389
Delay 600
LeftClick 1
Delay 2000
MoveTo 382 195
Delay 600
LeftClick 1
Delay 1000
IfColor 396 205 FFFFFF 2
MoveTo 485 351
Delay 500
LeftClick 1
Delay 2000
IfColor 471 348 FFFEFE 2
MoveTo 665 443
Delay 500
LeftClick 1
Delay 1000
Else
MoveTo 380 340
Delay 500
LeftClick 7
Delay 500
MoveTo 665 443
Delay 500
LeftClick 1 //確定
Delay 1000
Goto 帕買貨結束
EndIf
Else
MoveTo 665 443
Delay 500
LeftClick 1 //確定
Delay 2000
Goto 帕買貨結束
EndIf
EndFor
Rem 帕買貨結束
Return 帕買貨
//------------------------
Sub 找帕官員
Delay 500
KeyPress 27,1
Delay 500
KeyDown 40,1
Delay 5000
KeyUp 40,1
Delay 500
RightClick 1
Delay 1500
KeyDown 37,1
Delay 500
KeyUp 37,1
Delay 500
KeyDown 38,1
Delay 7000
KeyUp 38,1
For 5
KeyPress 9 1
Delay 1000
IfColor 639 361 ffffff 0
Delay 250
IfColor 675 360 ffffff 0
Delay 250
IfColor 696 373 ffffff 0
KeyUp 27 1
Delay 1000
KeyPress 13 2
Delay 800
KeyPress 13 2
Delay 800
KeyPress 13 2
Goto 找帕官員結束
Else
EndIf
Else
EndIf
Else
EndIf
EndFor
Rem 找帕官員結束
Delay 1000
KeyPress 13 2
Delay 500
KeyPress 13 2
Delay 500
MoveTo 647 388 //前往碼頭
Delay 500
LeftClick 1
Delay 4000
Return 找帕官員
//-----------------------------
Sub 直接出港1
Delay 1000
MoveTo 652 388 //出航
Delay 200
LeftClick 1
Delay 2000
MoveTo 645 416 //確定
Delay 300
LeftClick 1
Delay 4500
Return 直接出港1
//------------------------------
Sub 帕-巴
KeyPress 27,1
Delay 500
KeyDown 39,1
Delay 320
KeyUp 39,1
Delay 2000
IfColor 771 610 49240C 2
KeyPress 45 1 //按inster 啟航
Delay 500
KeyPress 113 1 // F2 自定義欄
Delay 1600
KeyPress 112 1 //F1 操帆
Delay 2000
Else
Delay 100000 //風暴DELAY100秒再啟航
KeyPress 45 1 //按inster 啟航
Delay 500
KeyPress 113 1 // F2 自定義欄
Delay 1600
KeyPress 112 1 //F1 操帆
Delay 2000
EndIf
KeyPress 36 1
Delay 800
KeyPress 113 1
Delay 1600
KeyPress 114 1 //F3 運用
Delay 2000
KeyPress 113 1
Delay 1600
KeyPress 115 1 //F4 警戒
Delay 2000
KeyPress 36 1
Delay 60000
Gosub 找巴
Return 帕-巴
//---------------------
Sub 找巴
For 80
KeyPress 9 1
Delay 1000
IfColor 660 360 ffffff 0
Delay 250
IfColor 696 361 ffffff 0
Delay 250
IfColor 696 370 ffffff 0
Delay 250
IfColor 684 373 ffffff 0
Delay 250
MoveTo 690 372
KeyPress 36 1
Delay 500
KeyPress 13 2
Delay 2000
Goto 跳出找巴
Else
EndIf
Else
EndIf
Else
EndIf
Else
KeyPress 27 2
Delay 700
KeyPress 36 1
Delay 300
EndIf
EndFor
Rem 跳出找巴
For 2
MoveTo 400 400
KeyPress 36 1
Delay 1000
KeyPress 13 2
Delay 300
KeyPress 13 2
Delay 300
EndFor
Return 找巴
customer
收藏收藏 分享分享 讚讚 幹幹 分享分享 FB分享
回覆

使用道具 舉報


c5217816 當前離線
UID
1367525
熱心
35 值
嘉獎
0 次
違規
0 次
在線時間
2 小時
經驗
24 點
積分
78
精華
0
最後登錄
2018-8-6
閱讀權限
20
註冊時間
2009-12-8
論壇幣
11 幣
聯合幣
6 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
c5217816 2010-5-11 04:46:08
感謝大大分享
感謝大大分享
感謝大大分享
試用看看
回覆

使用道具 舉報

akmilk6406 當前離線
UID
279306
熱心
14 值
嘉獎
0 次
違規
0 次
在線時間
2 小時
經驗
10 點
積分
26
精華
0
最後登錄
2015-8-25
閱讀權限
20
註冊時間
2007-3-11
論壇幣
9 幣
聯合幣
9 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
akmilk6406 2010-6-15 10:11:43
請問改顏色是自己收尋就好嗎還是需要便更
回覆

使用道具 舉報

078066583 當前離線
UID
161882
熱心
24 值
嘉獎
0 次
違規
0 次
在線時間
32 小時
經驗
17 點
積分
82
精華
0
最後登錄
2017-11-7
閱讀權限
20
註冊時間
2007-1-24
論壇幣
2 幣
聯合幣
7 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
078066583 2010-6-18 00:08:43
正需要這個腳本..謝謝大大的分享~~
回覆

使用道具 舉報

kingto193 當前離線
UID
803945
熱心
8 值
嘉獎
0 次
違規
0 次
在線時間
9 小時
經驗
8 點
積分
8
精華
0
最後登錄
2010-10-3
閱讀權限
5
註冊時間
2008-3-23
論壇幣
6 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
5層
kingto193 2010-8-9 12:23:42
感謝大大分享~~可以好好練一下火器了
回覆

使用道具 舉報

101101 當前離線
UID
509067
熱心
27 值
嘉獎
0 次
違規
0 次
在線時間
14 小時
經驗
29 點
積分
78
精華
0
最後登錄
2016-2-25
閱讀權限
20
註冊時間
2007-8-22
論壇幣
5 幣
聯合幣
3 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
6層
101101 2010-8-26 13:46:47
感謝大大的分享，
收錄下來，
有空就來試試看。
回覆

使用道具 舉報

神之罰 當前離線
UID
129566
熱心
29 值
嘉獎
0 次
違規
0 次
在線時間
58 小時
經驗
31 點
積分
31
精華
0
最後登錄
2011-10-21
閱讀權限
20
註冊時間
2006-12-27
論壇幣
1 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
7層
神之罰 2010-9-23 22:50:06
感謝大大的分享囉
非常謝謝拉
下載囉
回覆

使用道具 舉報

derekabc 當前離線
UID
1113350
熱心
14 值
嘉獎
0 次
違規
0 次
在線時間
1 小時
經驗
19 點
積分
19
精華
0
最後登錄
2011-2-7
閱讀權限
10
註冊時間
2009-1-19
論壇幣
13 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
8層
derekabc 2011-2-7 09:38:50
好有用  多謝多謝 感謝大大的分享!!!!
yeah
回覆

使用道具 舉報

derekabc 當前離線
UID
1113350
熱心
14 值
嘉獎
0 次
違規
0 次
在線時間
1 小時
經驗
19 點
積分
19
精華
0
最後登錄
2011-2-7
閱讀權限
10
註冊時間
2009-1-19
論壇幣
13 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
9層
derekabc 2011-2-7 09:39:15
好有用  多謝多謝 感謝大大的分享!!!!
yeah
回覆

使用道具 舉報

azrael200 當前離線
UID
1633286
熱心
7 值
嘉獎
0 次
違規
0 次
在線時間
0 小時
經驗
8 點
積分
22
精華
0
最後登錄
2018-8-7
閱讀權限
20
註冊時間
2011-2-2
論壇幣
1 幣
聯合幣
6 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
10層
azrael200 2011-3-21 14:53:36
好有用  多謝多謝 感謝大大的分享!!!!
回覆

使用道具 舉報

高級模式
B Color Image Link Quote Code Smilies
您需要登錄後才可以回帖 登錄 | 註冊

123下一頁

手機版 | Archiver | 外掛聯合國

GMT+8, 2024-11-22 07:29 , Processed in 0.057661 second(s), 17 queries , Memcache On.

版權說明:
　　本站不會製作、經銷、代理外掛程式。僅免費提供外掛程式下載前之掃毒及掃木馬等安全檢測驗證，協助會員遠離盜號危險程式。本站所有資料均來自網際網路收集整理，說明文字暨下載連結轉載自原程 式開發站。站上出現之公司名稱、遊戲名稱、程式等，商標及著作權，均歸各公司及程式原創所有，本站程式所有權歸外掛聯合國所有。本程式所有權歸外掛聯合國所有.......

回頂部
第二步?
第三步?