1 800*600 窗口模式;屏幕左上角,窗口蓝色外沿贴着屏幕
2 行动力条下沿贴着海平面(海天之间那条线)
3 开始在马赛码头,有一种货物(葡萄干就可以了),料理400个,够挂一天了.
4 F8自定义栏,F1操帆,F2料理,F3测量,F4警戒,F7运用;
5 会计2天3-8, 1-6 "我不知所猬"
//---以下为程序,直接COPY到TXT文件,放在按键精灵SCRIPT目录了下就可以运行----
Rem 主程序开始处
For 2000
Gosub 进马港
Delay 3200
Gosub 找马交易学徒
Delay 200
Gosub 马卖掉
Delay 1000
Gosub 马买货
Delay 1500
Gosub 服用料理
Delay 500
Gosub 找马官员
Delay 2000
Gosub 补给出港2
Delay 1500
Gosub 马-蒙
Delay 3000
Gosub 进蒙港
Delay 2500
Gosub 找蒙老板
Delay 2000
Gosub 蒙卖掉
Delay 2000
Gosub 蒙买货
Delay 2000
Gosub 服用料理
Delay 500
Gosub 找蒙官员
Delay 2500
Gosub 直接出港1
Delay 1000
Gosub 蒙-马
Delay 2000
EndFor
Rem 主程序结束处
//---------------------------------
Sub 进马港
Delay 2000
For 20
IfColor 640 408 ffffff 0
MoveTo 648 414
Delay 500
LeftClick 1
Delay 1200
Goto 进马港结束
Else
EndIf
EndFor
Rem 进马港结束
Delay 2000
Return 进马港
//---------------------------------
Sub 找马交易学徒
KeyDown 27,1
Delay 200
KeyDown 37 1
Delay 150
KeyUp 37 1
KeyPress 38 1
Delay 200
KeyPress 36 1
Delay 100
KeyDown 38 1
Delay 5000
KeyUp 38 1
Delay 500
For 6
KeyPress 9 1
Delay 500
IfColor 685 368 ffffff 0
Delay 250
IfColor 702 365 ffffff 0
Delay 200
KeyPress 13 2
Delay 1000
KeyPress 13 2
Delay 1000
KeyPress 13 2
Delay 1000
Goto 找马交易学徒结束
Else
EndIf
Else
EndIf
EndFor
Rem 找马交易学徒结束
KeyUp 27 1
Delay 100
Return 找马交易学徒
//----------------------------
Sub 马卖掉
IfColor 640 384 F8F8F7 0
Else
KeyPress 13,2
Delay 1000
EndIf
MoveTo 690 387
Delay 300
LeftClick 1
Delay 2000
MoveTo 121 147
Delay 500
LeftClick 1
Delay 1000
MoveTo 629 441 //卖出确定键
Delay 500
LeftClick 1
Delay 1000
Return 马卖掉
//----------------------------
Sub 马买货
Delay 100
MoveTo 654 389 //点击买入,弹出窗口
Delay 200
LeftClick 1
Delay 2000
MoveTo 380 340
Delay 200
KeyPress 40 1 //向下按键,移动到盐
Delay 500
Gosub 买20
KeyPress 40 1 //向下按键,移动到白兰地
Delay 500
Gosub 买20
KeyPress 40 1 //向下按键,移动到葡萄酒
Delay 500
Gosub 买20
KeyPress 40 1 //向下按键,移动到蜂蜜
Delay 500
Gosub 买20
KeyPress 40 1 //向下按键,移动到核桃
Delay 500
Gosub 买20
KeyPress 40 1 //向下按键,移动到西洋李
Delay 500
//Gosub 买20 //不买就用"//"屏蔽
KeyPress 40 1 //向下按键,移动到纸,必买;砍价
Delay 500
Gosub 买工业制品
For 20
MoveTo 654 389
Delay 1000
LeftClick 1
Delay 2000
Delay 200
MoveTo 380 198 //买火腿5个
Delay 600
LeftClick 1
Delay 600
IfColor 466 347 FFFEFE 2
MoveTo 485 351 //移动到砍价
Delay 500
LeftClick 1 //点击砍价
Delay 2200
IfColor 466 347 FFFEFE 2
//--
MoveTo 665 443
Delay 500
//IfColor 645 437 ffffff 0
LeftClick 1 //确定
Delay 1000
Delay 200
//Else
// Delay 2000
// KeyPress 27 1
//EndIf
Else //砍完价黑了
MoveTo 380 340 //把鸭肉买完
Delay 500
LeftClick 7
Delay 500
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
For 6
LeftClick 3
Delay 500
EndFor
Return 买20
Sub 买工业制品
IfColor 392 344 FFFFFF 0 //判断20的字体是否白色
MoveTo 380 340
Delay 200
For 5
LeftClick 2
Delay 500
EndFor
Else
Goto 买5个
EndIf
Rem 买5个
IfColor 397 202 FFFFFF 0
MoveTo 380 198
Delay 200
LeftClick 5
Delay 500
Else
Goto 买完
EndIf
Rem 买完
IfColor 466 347 FFFEFE 2
MoveTo 485 351 //移动到砍价
Delay 200
LeftClick 1 //点击砍价
Delay 2000
MoveTo 665 443
Delay 500
LeftClick 1 //确定
Delay 1000
Delay 200
EndIf
Return 买工业制品
//---------------------------
Sub 找马官员
KeyDown 27 1
Delay 200
KeyDown 39 1
Delay 1620
KeyUp 39 1
Delay 500
KeyDown 38 1
Delay 3000
KeyUp 38 1
Delay 500
KeyDown 39 1
Delay 500
KeyUp 39 1
Delay 500
For 4
KeyPress 9 1
Delay 1000
IfColor 640 360 ffffff 0
Delay 250
IfColor 666 363 ffffff 0
Delay 250
IfColor 689 367 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 135 147 474747 0
KeyPress 119 1
Delay 1400
KeyPress 113 1
Delay 1000
Else
Goto 服用料理结束
EndIf
EndFor
Rem 服用料理结束
KeyPress 122 1
Delay 500
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 1000
MoveTo 645 416 //确定
Delay 1000
LeftClick 1
Delay 3000
Return 补给出港2
//--------------------------
Sub 马-蒙
Delay 1000
KeyPress 27 1
Delay 1000
MoveTo 653 315
Delay 500
LeftDoubleClick 1
Delay 100
IfColor 766 607 49240C 2
KeyPress 45 1 //按inster 启航
Delay 500
KeyPress 119 1 // F8 自定义栏
Delay 1600
KeyPress 112 1 //F1 操帆
Delay 2000
Else
Delay 100000 //风暴DELAY100秒再启航
KeyPress 45 1 //按inster 启航
Delay 500
KeyPress 119 1 // F8 自定义栏
Delay 1600
KeyPress 112 1 //F1 操帆
Delay 2000
EndIf
KeyPress 36 1
Delay 800
KeyPress 119 1
Delay 1600
KeyPress 118 1 //F7 运用
Delay 2000
KeyPress 119 1
Delay 1600
KeyPress 115 1 //F4 警戒
Delay 2000
KeyPress 119 1
Delay 1600
KeyPress 114 1 //F3 测量
Delay 1000
KeyPress 36 1
Delay 30000
Gosub 找蒙
Return 马-蒙
//-----------------------------
Sub 找蒙
For 80
KeyPress 9 1
Delay 1000
IfColor 634 363 ffffff 0
Delay 250
IfColor 675 360 ffffff 0
Delay 250
IfColor 690 372 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 进蒙港
For 20
Delay 200
IfColor 110 46 ffffff,0
MoveTo 646 410
Delay 600
LeftClick 1
Delay 1000
Goto 进蒙港结束
Else
EndIf
EndFor
Rem 进蒙港结束
Delay 3000
Return 进蒙港
//------------------------------
Sub 找蒙老板
KeyDown 27 1
Delay 200
KeyDown 37 1
Delay 155
KeyUp 37 1
KeyPress 38 1
Delay 200
KeyPress 36 1
Delay 100
KeyDown 38 1
Delay 8000
KeyUp 38 1
Delay 500
For 20
KeyPress 9 1
Delay 500
IfColor 640 361 ffffff 0
Delay 250
IfColor 667 366 FFFFFF 0
Delay 250
IfColor 699 363 ffffff 0
Delay 1000
KeyPress 13 1
Delay 2000
Delay 200
KeyPress 13 1
Delay 200
Goto 找蒙老板结束
Else
EndIf
Else
EndIf
Else
EndIf
EndFor
Rem 找蒙老板结束
KeyUp 27 1
Delay 100
Return 找蒙老板
//------------------
Sub 蒙卖掉
IfColor 640 384 F8F8F7 0
Else
KeyPress 13,2
Delay 1000
EndIf
MoveTo 690 387
Delay 500
LeftClick 1
Delay 2000
MoveTo 121 147
Delay 500
For 8
LeftClick 1 //蒙要卖6种,纸和鸭肉等
Delay 1000
EndFor
MoveTo 485 351 //移动到抬价
Delay 500
LeftClick 1 //点击抬价
Delay 2000
MoveTo 629 441
Delay 500
LeftClick 1
Delay 1000
Return 蒙卖掉
//--------------------------
Sub 蒙买货
Delay 100
For 20
MoveTo 654 389
Delay 600
LeftClick 1
Delay 2000
MoveTo 380 198 //买葡萄干
Delay 500
LeftClick 1
Delay 1000
IfColor 466 347 FFFEFE 2
MoveTo 485 351 //移动到砍价
Delay 500
LeftClick 1 //点击砍价
Delay 2000
IfColor 466 347 FFFEFE 2
MoveTo 665 443
Delay 500
LeftClick 1 //确定
Delay 1000
Delay 200
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 找蒙官员
KeyDown 27 1
Delay 200
KeyDown 37 1
Delay 2750
KeyUp 37 1
Delay 500
KeyDown 38 1
Delay 6500
KeyUp 38 1
Delay 500
KeyDown 39 1
Delay 500
KeyUp 39 1
Delay 500
For 4
KeyPress 9 1
Delay 1000
IfColor 640 360 ffffff 0
Delay 250
IfColor 666 363 ffffff 0
Delay 250
IfColor 689 367 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 1600
MoveTo 645 416 //确定
Delay 300
LeftClick 1
Delay 4500
Return 直接出港1
//------------------------------
Sub 蒙-马
KeyPress 27 1
Delay 500
KeyPress 36 1
Delay 500
MoveTo 371 329
Delay 500
LeftDoubleClick 1
Delay 100
IfColor 766 607 49240C 2
KeyPress 45 1 //按inster 启航
Delay 500
KeyPress 119 1 // F8 自定义栏
Delay 1600
KeyPress 112 1 //F1 操帆
Delay 2000
Else
Delay 100000 //风暴DELAY100秒再启航
KeyPress 45 1 //按inster 启航
Delay 500
KeyPress 119 1 // F8 自定义栏
Delay 1600
KeyPress 112 1 //F1 操帆
Delay 2000
EndIf
Delay 4000
KeyPress 36 1
Delay 800
KeyPress 119 1
Delay 1600
KeyPress 118 1 //F1 运用
Delay 2000
KeyPress 119 1
Delay 1600
KeyPress 115 1 //F4 警戒
Delay 2000
KeyPress 119 1
Delay 1600
KeyPress 114 1 //F3 测量
Delay 1000
KeyPress 36 1
Delay 28000
// KeyDown 37,1
// Delay 3000
// KeyUp 37,1
// Delay 7000
Gosub 找马
Return 蒙-马
//---------------------
Sub 找马
For 80
KeyPress 9 1
Delay 1000
IfColor 635 360 ffffff 0
Delay 250
IfColor 634 368 ffffff 0
Delay 250
IfColor 661 368 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 找马
| 此篇文章为17173玩家原创作品，获得积分奖励 Z。 17173全新积分兑换系统上线 点卡周边等你拿>>>详情点击 |
