黃易群俠傳M脫機外掛應用程式黃易神行
17557
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 找巴
回覆

使用道具 舉報


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
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
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
神之罰 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
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
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
azrael200 2011-3-21 14:53:36
好有用  多謝多謝 感謝大大的分享!!!!
回覆

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 註冊

123下一頁

手機版 | Archiver | 外掛聯合國

GMT+8, 2024-3-29 01:22 , Processed in 0.069082 second(s), 18 queries , Memcache On.

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

回頂部
第二步?
第三步?