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

讓新手從沒錢掛到億萬
(從法馬到貝魯特)(視窗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 再找官員

謝謝大大分享~~
不過能不能請大大詳細解釋一下使用方法跟場合呢?

可否說明一下
視窗大小?
或者是一些該注意的設定~謝謝

謝謝大大分享!!!!!!!!太感謝你了~

請問一下大大 快捷鍵是怎麼設定的?
稍微看了一下code 他前面一段一直按f1 可是f1該設什麼呢?
謝謝大大

3QQQQQQQQQ喔  
等很久了呢，應該很好用吧!

感謝大大的分享,來試試看好不好用,不知按精大大是用幾版的

謝謝大大分享!!!!!!!!太感謝你了~
本文章轉自外掛聯合國http://www.wgun.net