重大公開_會計_烹飪_划船_食品買賣讓你一次衝到r15

gg2255 · 發表於 2009-12-12 00:05:24

本帖最後由 gg2255 於 2009-12-13 11:44 編輯

讓新手從沒錢掛到億萬
(從法馬到貝魯特)(視窗800x600)
(烹飪使用豬之章_它會自動打開書自動買豬肉生產成香腸或是火腿_此腳本設定為生產火
腿)
(生產完會自動把火腿賣給交易所賣完會自動在買食品賣到貝魯特_然後會在從貝魯特
買食品過來法馬_也會自動打開划船技能_警戒_操帆_會計)(此腳本不需要使用料理它
會自己去酒店補行動力)
完全自動繞港_好像是開商16的排船_若不是商16_把秒數改一下就可以_不然會撞島

老鳥不要罵我_對不起老鳥
從法馬古斯塔的補船員那個畫面按下按精_補食物要先設定成預設補給
(在看不懂沒辦法了_都說的很明白)

For 9999999
Gosub 補給出港
Gosub 轉向找城
Gosub 找老板
Gosub 找官員
Gosub 再補給
Gosub 找城
Gosub 進港
Gosub 生產
Gosub 酒館老闆
Gosub 出口
Gosub 再找官員
EndFor
Sub 補給出港
Delay 1000
MoveTo 690 389
Delay 1000
LeftClick 1
Delay 2000
MoveTo 182 375
Delay 1000
LeftClick 1
Delay 2000
MoveTo 604 417
Delay 1000
LeftClick 1
Delay 2000
MoveTo 652 388
Delay 1000
LeftClick 1
Delay 2000
MoveTo 642 411
Delay 1000
LeftClick 1
Delay 5000
KeyPress 112 1
Delay 2000
KeyPress 112 1
Delay 2000
KeyPress 112 1
Delay 2000
KeyPress 113 1
Delay 2000
KeyPress 112 1
Delay 2000
KeyPress 114 1
Delay 2000
KeyPress 27 1
Delay 500
MoveTo 783 553
Delay 1000
LeftClick 1
Delay 1000
KeyPress 112 1
Delay 2000
KeyPress 115 1
Delay 2000
KeyPress 27 1
Delay 7000
KeyDown 39 1
Delay 70
KeyUp 39 1
Delay 42000    ----這邊是航行的天數修改這裡
MoveTo 782 612
Delay 500
LeftClick 1
Delay 1000
Return
Sub 轉向找城
For 30
      KeyPress 9 1
      Delay 500
      IfColor 635 363 ffffff 0       ---到貝魯特時按下tab鍵會出現視窗在抓點抓色
         Delay 250
         IfColor 675 367 ffffff 0
            Delay 500
            KeyPress 13 1
            Delay 500
            KeyPress 13 1
            Delay 1000
            KeyPress 13 1
            Delay 1000
            KeyPress 13 1
            Delay 500
            Goto 轉向找城結束
            Delay 250
            IfColor 675 367 ffffff 1
                  Goto 轉向找城
                  Delay 1000
            Else
            EndIf
         Else
         EndIf
      Else
      EndIf
EndFor
Rem 轉向找城結束
Delay 2000
MoveTo 652 412
Delay 1000
LeftClick 1
Delay 4000
Return
Sub 找老板
MoveTo 690 50
Delay 1000
LeftClick 1
Delay 1000
MoveTo 701 98
Delay 1000
LeftClick 1
Delay 1000
MoveTo 595 195
Delay 1000
LeftClick 1
Delay 12000
Rem 找交易所店主
For 10
      KeyPress 9 1
      Delay 500
      IfColor 637 363 ffffff 0    -------交易所的抓點抓色_這邊要多抓一些
         Delay 250
         IfColor 705 363 ffffff 0 ---因為貝魯特經常有許多玩家在交易所
            Delay 250
            IfColor 673 366 ffffff 0
                  Delay 250
                  IfColor 705 365 ffffff 0
                     Delay 500
                     KeyPress 13 1
                     Delay 1000
                     KeyPress 13 1
                     Goto 找交易所店主結束
                     Delay 2000
                  Else
                  EndIf
            Else
            EndIf
         Else
         EndIf
      Else
      EndIf
EndFor
Rem 找交易所店主結束
Delay 1000
MoveTo 687 386 ------這以下是購買食品
Delay 1000
LeftClick 1
Delay 2000
MoveTo 122 150
Delay 1000
LeftClick 1
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo 459 349
Delay 250
LeftClick 1
Delay 500
MoveTo 631 444
Delay 1000
LeftClick 1
Delay 1000
MoveTo 648 388
Delay 1000
LeftClick 1
Delay 2000
MoveTo 387 332
Delay 1000
LeftClick 1
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo 384 270
Delay 1000
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo 386 190
Delay 1000
LeftClick 1
Delay 1000
MoveTo 660 441
Delay 1000
LeftClick 1
Delay 1000
MoveTo 648 388
Delay 1000
LeftClick 1
Delay 2000
MoveTo 95 204
Delay 1000
LeftClick 1
Delay 500
MoveTo 387 332
Delay 1000
LeftClick 1
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo 384 270
Delay 1000
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo 386 190
Delay 1000
LeftClick 1
Delay 1000
MoveTo 660 441
Delay 1000
LeftClick 1
Delay 1000
MoveTo 648 388
Delay 1000
LeftClick 1
Delay 3000
MoveTo 92 261
Delay 1000
LeftClick 1
Delay 1000
MoveTo 387 332
Delay 1000
LeftClick 1
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo 384 270
Delay 1000
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo 386 190
Delay 1000
LeftClick 1
Delay 1000
MoveTo 660 441
Delay 1000
LeftClick 1
Delay 1000
MoveTo 690 50
Delay 1000
LeftClick 1
Delay 2000
MoveTo 701 98
Delay 1000
LeftClick 1
Delay 1000
MoveTo 574 303
Delay 1000
LeftClick 1
Delay 12000
Return 找老板
Sub 找官員
For 10
      KeyPress 9 1
      Delay 500
      IfColor 636 361 ffffff 0 ---這邊是找碼頭官員_這邊也是多抓一些
         Delay 250
         IfColor 694 368 ffffff 0
            Delay 250
            IfColor 643 364 ffffff 0
                  Delay 250
                  IfColor 669 369 ffffff 0
                     Delay 500
                     KeyPress 13 1
                     Delay 500
                     KeyPress 13 1
                     Goto 找官員結束
                     Delay 1000
                  Else
                  EndIf
            Else
            EndIf
         Else
         EndIf
      Else
      EndIf
EndFor
Rem 找官員結束
Delay 1000
MoveTo 647 391
Delay 1500
LeftClick 1
Delay 6000
Return 找官員
Sub 再補給
MoveTo 690 389
Delay 1000
LeftClick 1
Delay 2000
MoveTo 182 375
Delay 1000
LeftClick 1
Delay 2000
MoveTo 604 417
Delay 1000
LeftClick 1
Delay 2000
MoveTo 652 388
Delay 1000
LeftClick 1
Delay 2000
MoveTo 642 411
Delay 1000
LeftClick 1
Delay 8000
KeyPress 112 1
Delay 2000
KeyPress 112 1
Delay 2000
KeyPress 112 1
Delay 2000
KeyPress 113 1
Delay 2000
KeyPress 112 1
Delay 2000
KeyPress 114 1
Delay 2000
KeyPress 27 1
Delay 500
MoveTo 783 553
Delay 1000
LeftClick 1
Delay 1000
KeyPress 112 1
Delay 2000
KeyPress 115 1
Delay 2000
KeyPress 27 1
Delay 7000
KeyDown 39 1
Delay 70
KeyUp 39 1
Delay 44000    ----到法馬的天數
MoveTo 782 612
Delay 500
LeftClick 1
Delay 1000
Return 再補給
Sub 找城
For 30
      KeyPress 9 1
      Delay 500
      IfColor 642 361 ffffff 0 ---進法馬港口的抓點抓色
         Delay 250
         IfColor 707 363 ffffff 0
            Delay 250
            IfColor 656 366 ffffff 0
                  Delay 250
                  IfColor 694 367 ffffff 0
                     Delay 500
                     KeyPress 13 1
                     Delay 500
                     KeyPress 13 1
                     Delay 1000
                     KeyPress 13 1
                     Delay 1000
                     KeyPress 13 1
                     Delay 500
                     Goto 找城結束
                     Delay 250
                     IfColor 694 367 ffffff 1
                        Goto 找城
                        Delay 1000
                     Else
                     EndIf
                  Else
                  EndIf
            Else
            EndIf
         Else
         EndIf
      Else
      EndIf
EndFor
Rem 找城結束
Delay 3000
MoveTo 652 412
Delay 1000
LeftClick 1
Delay 4000
Return 找城
Sub 進港
MoveTo 690 50
Delay 1000
LeftClick 1
Delay 1000
MoveTo 701 98
Delay 1000
LeftClick 1
Delay 1000
MoveTo 447 194
Delay 1000
LeftClick 1
Delay 14000
Rem 找交易所老闆
For 10
      KeyPress 9 1
      Delay 500
      IfColor 637 363 ffffff 0
         Delay 250
         IfColor 705 363 ffffff 0
            Delay 500
            KeyPress 13 1
            Delay 1000
            KeyPress 13 1
            Goto 找交易所老闆結束
            Delay 2000
         Else
         EndIf
      Else
      EndIf
EndFor
Rem 找交易所老闆結束
Delay 1000
MoveTo 687 386
Delay 1000
LeftClick 1
Delay 3000
MoveTo 122 150
Delay 1000
LeftClick 1
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo 459 349
Delay 500
LeftClick 1
Delay 500
MoveTo 631 444
Delay 1000
LeftClick 1
Delay 2000
MoveTo 648 388
Delay 1000
LeftClick 1
Delay 3000
MoveTo 93 370
Delay 1000
LeftClick 1
Delay 500
MoveTo 387 332
Delay 1000
LeftClick 1
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo 384 270
Delay 1000
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo 386 190
Delay 1000
LeftClick 1
Delay 1000
MoveTo 660 444
Delay 1000
LeftClick 1
Delay 2000
MoveTo 690 50
Delay 1000
LeftClick 1
Delay 1000
MoveTo 701 98
Delay 1000
LeftClick 1
Delay 500
MoveTo 430 228
Delay 1000
LeftClick 1
Delay 4000
Return 進港
Sub 生產
For 10
      KeyPress 9 1
      Delay 500
      IfColor 638 364 ffffff 0
         Delay 250
         IfColor 694 365 ffffff 0
            Delay 1000
            KeyPress 13 1
            Delay 1000
            KeyPress 13 1
            Goto 找館酒結束
            Delay 1000
         Else
         EndIf
      Else
      EndIf
EndFor
Rem 找館酒結束
Delay 3000
KeyDown 38,1
Delay 2000
KeyUp 38 1
Delay 1000
Return 生產
Sub 酒館老闆
For 10
      KeyPress 9 1
      Delay 500
      IfColor 638 364 ffffff 0
         Delay 250
         IfColor 688 370 ffffff 0
            Delay 500
            KeyPress 13 1
            Delay 1000
            KeyPress 13 1
            Goto 找館酒老闆結束
         Else
         EndIf
      Else
      EndIf
EndFor
Rem 找館酒老闆結束
Delay 3000
MoveTo 646 389
Delay 1000
LeftClick 1
Delay 2000
MoveTo 599 437
Delay 1500
LeftClick 1
Delay 2000
MoveTo 646 389
Delay 1000
LeftClick 1
Delay 2000
MoveTo 599 437
Delay 1500
LeftClick 1
Delay 2000
KeyPress 112 1
Delay 2000
KeyPress 116 1
Delay 2000
KeyPress 40 1
Delay 250
KeyPress 40 1
Delay 250
KeyPress 40 1
Delay 250
KeyPress 40 1
Delay 500
MoveTo 457 435
Delay 1000
LeftClick 1
Delay 3000
MoveTo 455 395
Delay 1000
LeftClick 1
Delay 30000
MoveTo 707 437
Delay 1000
LeftClick 1
Delay 1000
MoveTo 512 439
Delay 1000
LeftClick 1
Delay 1000
MoveTo 646 389
Delay 1000
LeftClick 1
Delay 2000
MoveTo 599 437
Delay 1000
LeftClick 1
Delay 2000
MoveTo 646 389
Delay 1000
LeftClick 1
Delay 2000
MoveTo 599 437
Delay 1000
LeftClick 1
Delay 2000
MoveTo 646 389
Delay 1000
LeftClick 1
Delay 2000
MoveTo 599 437
Delay 1000
LeftClick 1
Delay 2000
KeyPress 112 1
Delay 2000
KeyPress 116 1
Delay 2000
KeyPress 40 1
Delay 250
KeyPress 40 1
Delay 250
KeyPress 40 1
Delay 250
KeyPress 40 1
Delay 500
MoveTo 457 435
Delay 1000
LeftClick 1
Delay 3000
MoveTo 455 395
Delay 1000
LeftClick 1
Delay 30000
MoveTo 707 437
Delay 1000
LeftClick 1
Delay 1000
MoveTo 512 439
Delay 1000
LeftClick 1
Delay 1000
MoveTo 646 389
Delay 1000
LeftClick 1
Delay 2000
MoveTo 599 437
Delay 1000
LeftClick 1
Delay 2000
KeyPress 112 1
Delay 2000
KeyPress 116 1
Delay 2000
KeyPress 40 1
Delay 250
KeyPress 40 1
Delay 250
KeyPress 40 1
Delay 250
KeyPress 40 1
Delay 500
MoveTo 457 435
Delay 1000
LeftClick 1
Delay 3000
MoveTo 455 395
Delay 1000
LeftClick 1
Delay 20000
MoveTo 707 437
Delay 1000
LeftClick 1
Delay 1000
MoveTo 512 439
Delay 1000
LeftClick 1
Delay 1000
MoveTo 646 389
Delay 1000
LeftClick 1
Delay 2000
MoveTo 599 437
Delay 1500
LeftClick 1
Delay 2000
MoveTo 646 389
Delay 1000
LeftClick 1
Delay 2000
MoveTo 599 437
Delay 1500
LeftClick 1
Delay 2000
MoveTo 646 389
Delay 1000
LeftClick 1
Delay 2000
MoveTo 599 437
Delay 1500
LeftClick 1
Delay 3000
KeyPress 112 1
Delay 2000
KeyPress 116 1
Delay 2000
KeyPress 40 1
Delay 250
KeyPress 40 1
Delay 250
KeyPress 40 1
Delay 250
KeyPress 40 1
Delay 500
MoveTo 457 435
Delay 1000
LeftClick 1
Delay 3000
MoveTo 455 395
Delay 1000
LeftClick 1
Delay 25000
MoveTo 707 437
Delay 1000
LeftClick 1
Delay 1000
MoveTo 512 439
Delay 1000
LeftClick 1
Delay 1000
MoveTo 646 389
Delay 1000
LeftClick 1
Delay 2000
MoveTo 599 437
Delay 1000
LeftClick 1
Delay 2000
MoveTo 646 389
Delay 1000
LeftClick 1
Delay 2000
MoveTo 599 437
Delay 1000
LeftClick 1
Delay 2000
MoveTo 646 389
Delay 1000
LeftClick 1
Delay 2000
MoveTo 599 437
Delay 1000
LeftClick 1
Delay 2000
MoveTo 646 389
Delay 1000
LeftClick 1
Delay 2000
MoveTo 599 437
Delay 1000
LeftClick 1
Delay 2000
KeyDown 17,1
KeyDown 37,1
Delay 3200
KeyUp 17 1
KeyUp 37 1
Delay 1000
KeyDown 38,1
Delay 2000
KeyUp 38 1
Delay 1000
Return 酒館老闆
Sub 出口
For 10
      KeyPress 9 1
      Delay 500
      IfColor 635 364 ffffff 0
         Delay 250
         IfColor 662 367 ffffff 0
            Delay 1000
            KeyPress 13 1
            Delay 1000
            KeyPress 13 1
            Goto 出口結束
            Delay 1000
         Else
         EndIf
      Else
      EndIf
EndFor
Rem 出口結束
Delay 2000
MoveTo 690 50
Delay 1500
LeftClick 1
Delay 1500
MoveTo 701 98
Delay 1000
LeftClick 1
Delay 2000
MoveTo 447 194
Delay 1000
LeftClick 1
Delay 6000
Rem 找交易所店家
For 10
      KeyPress 9 1
      Delay 500
      IfColor 637 363 ffffff 0
         Delay 250
         IfColor 705 363 ffffff 0
            Delay 500
            KeyPress 13 1
            Delay 500
            KeyPress 13 1
            Goto 找交易所店家結束
            Delay 2000
         Else
         EndIf
      Else
      EndIf
EndFor
Rem 找交易所店家結束
Delay 1000
MoveTo 687 386
Delay 1000
LeftClick 1
Delay 3000
MoveTo 122 150
Delay 1000
LeftClick 1
Delay 500
MoveTo 459 349
Delay 500
LeftClick 1
Delay 500
MoveTo 631 444
Delay 1000
LeftClick 1
Delay 2000
MoveTo 648 388
Delay 1000
LeftClick 1
Delay 3000
MoveTo 387 332
Delay 1000
LeftClick 1
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo 384 270
Delay 1000
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo 386 190
Delay 1000
LeftClick 1
Delay 1000
MoveTo 660 441
Delay 1000
LeftClick 1
Delay 1000
MoveTo 648 388
Delay 1000
LeftClick 1
Delay 3000
MoveTo 95 204
Delay 1000
LeftClick 1
Delay 500
MoveTo 387 332
Delay 1000
LeftClick 1
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo 384 270
Delay 1000
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo 386 190
Delay 1000
LeftClick 1
Delay 1000
MoveTo 660 441
Delay 1000
LeftClick 1
Delay 1000
MoveTo 648 388
Delay 1000
LeftClick 1
Delay 3000
MoveTo 92 261
Delay 1000
LeftClick 1
Delay 1000
MoveTo 387 332
Delay 1000
LeftClick 1
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo 384 270
Delay 1000
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo 386 190
Delay 1000
LeftClick 1
Delay 1000
MoveTo 660 441
Delay 1000
LeftClick 1
Delay 1000
MoveTo 690 50
Delay 1000
LeftClick 1
Delay 3000
MoveTo 701 98
Delay 1000
LeftClick 1
Delay 3000
MoveTo 391 303
Delay 1000
LeftClick 1
Delay 16000
Return 出口
Sub 再找官員
For 10
      KeyPress 9 1
      Delay 500
      IfColor 636 361 ffffff 0
         Delay 250
         IfColor 694 368 ffffff 0
            Delay 250
            IfColor 643 364 ffffff 0
                  Delay 250
                  IfColor 669 369 ffffff 0
                     Delay 1000
                     KeyPress 13 1
                     Delay 1000
                     KeyPress 13 1
                     Goto 再找官員結束
                     Delay 1000
                  Else
                  EndIf
            Else
            EndIf
         Else
         EndIf
      Else
      EndIf
EndFor
Rem 再找官員結束
Delay 1000
MoveTo 647 391
Delay 1500
LeftClick 1
Delay 5000
Return 再找官員

qq852319 該用戶已被刪除	qq852319 2009-12-12 18:53:13 提示: 作者被禁止或刪除內容自動屏蔽
qq852319 該用戶已被刪除
	回覆使用道具舉報

jimmy419 該用戶已被刪除	jimmy419 2009-12-20 01:08:35 提示: 作者被禁止或刪除內容自動屏蔽
jimmy419 該用戶已被刪除
	回覆使用道具舉報

外掛聯合國

[原創] 重大公開_會計_烹飪_划船_食品買賣讓你一次衝到r15

相關POST