------------小插曲------------
前几天在印度和一位西班牙朋友刷战
这位朋友说他刷到战45就回欧洲
我说你回去的时候把剩下的炮送我吧
他说70W一组卖给你
我说算了，我还是用商店货吧
他说你都商65了，怎么说也有十几亿了吧
我爆汗，自从去年GF开服到现在，总共赚得估计的不超过4E
------------言归正传-------------
我没条件多开，又不会把握行情
快速冲商还真是比较头疼
偶尔到3782造过一次酒
发现这里造酒经验还真多
统筹好的话，商54级以下，一小时10K经验没问题
但是操作太机械，好累
所以想到了用脚本
从商55到商65大约用了一个礼拜的时间
感谢Intel、Kimi，蠢bubu、善解人意等几位大大提供1*书
------------脚本说明------------------
1.适合食品取引R10+，行动力大于300的大大
2. 800*600窗口模式
3. 修改游戏目录下的GV Online Sc.ini文件，窗口分辨率及位置改为
select_device=0,0,800,600,22,1
4. windows外观设置为windows经典模式，windows xp模式不适用(非常重要)
5. 脚本启动时玩家位置说明，C为交易所老板，B为休息处老板，
几条杠为休息处前的几条石凳，A为脚本启动时的玩家位置
C
—A B
| |
—
6. 快捷键设置：F1为自定义栏
自定义栏设置：F5为 酿酒秘传
---------万恶的广告时间---------------
现2-3 法国 香榭丽大酒店
会长 嫣儿，很nice的一mm噢
同时因为昨天的疏忽，让少帅白跑一趟，在此郑重道个歉
同时怀念下百年好荷的众XDJM
--------久等了，代码来了------------
VBS set TiShiObj = createobject("WScript.Shell")
Plugin hwn=Window.GetKeyFocusWnd()
VBS dim XDL
Rem 主程序开始处
Gosub 定位
Delay 1000
For 999999999999
Gosub 第一次购买
KeyPress 27,1
Gosub 走向酒吧
Gosub 找酒吧老板
Gosub 吃饭
Gosub 生产威士忌
Gosub 吃饭
Gosub 走向交易所
Gosub 找交易所老板
Gosub 第二次购买
Gosub 生产阿瓜维特
Gosub 卖出
EndFor
Rem 主程序结束处
Sub 第一次购买
For 3
KeyPress 112,1
Gosub 自定义栏判定
Delay 1000
KeyPress 112,1
Gosub 延时判定
Gosub 购买小麦
EndFor
Return 第一次购买
Sub 走向酒吧
Delay 1000
KeyDown 40,1
Delay 2600
KeyUp 40,1
Delay 1000
Return 走向酒吧
Sub 找酒吧老板
VBS REfind=0
KeyDown 27,1
Delay 2000
Rem 寻找酒吧老板
If REfind<100
KeyPress 9 1
Delay 500
VBS
REfind=REfind+1
IfColor 704 352 ffffff
0
IfColor 687 361 ffffff 0
IfColor 666 363 FFFFFF 0
VBS MrRight=1
Goto 选定酒吧老板
EndIf
EndIf
Else
Goto 寻找酒吧老板
EndIf
Goto 寻找酒吧老板
Else
Gosub 出错报警下线
EndIf
Rem 选定酒吧老板
KeyUp 27,1
If MrRight=1
KeyPress 13 1
EndIf
Gosub 延时判定
Return 找酒吧老板
Sub 吃饭
Rem 开始补充体力
VBSCall ReadMemory(&h00a4de54,2,XDL)
If XDL>300
Delay 200
Goto 补充体力结束
Else
Gosub 延时判定
MoveTo 651 385
Delay 1000
LeftClick 1
Gosub 延时判定
MoveTo 602 439
Delay 1000
LeftClick 1
Delay 1000
Gosub 延时判定
Goto 开始补充体力
EndIf
Rem 补充体力结束
Return 吃饭
Sub 生产威士忌
KeyPress 112,1
Delay 1000
Gosub 自定义栏判定
Delay 1000
KeyPress 116,1
Gosub 延时判定
KeyPress 40,15
Delay 500
KeyPress 38,1
Delay 500
KeyPress 13,1
Delay 500
Delay 2500
// Gosub 生产界面判定
MoveTo 457,321
Delay 800
For 60
LeftClick 1
Delay 1000
EndFor
MoveTo 705,427
Delay 800
LeftClick 1
Delay 500
Gosub 技能书界面判定
MoveTo 515,429
Delay 800
LeftClick 1
Delay 500
Return 生产威士忌
Sub 走向交易所
Delay 1000
KeyDown 38,1
Delay 2600
KeyUp 38,1
Delay 1000
Return 走向交易所
Sub 找交易所老板
VBS REfind=0
KeyDown 27,1
Delay 2000
Rem 寻找交易所老板
If REfind<100
KeyPress 9 1
Delay 500
VBS
REfind=REfind+1
IfColor 704 352 ffffff
0
IfColor 687 361 ffffff 0
IfColor 674 352 FFFFFF 0
VBS MrRight=1
Goto 选定交易所老板
EndIf
EndIf
Else
Goto 寻找交易所老板
EndIf
Goto 寻找交易所老板
Else
Gosub 出错报警下线
EndIf
Rem 选定交易所老板
KeyUp 27,1
If MrRight=1
KeyPress 13 1
EndIf
Gosub 点餐界面判定
Return 找交易所老板
Sub 第二次购买
For 3
KeyPress 112,1
Gosub 自定义栏判定
Delay 1000
KeyPress 112,1
Gosub 延时判定
Gosub 购买小麦
EndFor
Return 第二次购买
Sub 生产阿瓜维特
KeyPress 112,1
Delay 1000
Gosub 自定义栏判定
Delay 1000
KeyPress 116,1
Gosub 延时判定
KeyPress 40,1
Delay 500
KeyPress 40,1
Delay 500
KeyPress 13,1
Delay 500
Delay 2500
MoveTo 457,321
Delay 800
For 65
LeftClick 1
Delay 1000
EndFor
MoveTo 705,427
Delay 800
LeftClick 1
Delay 500
Gosub 技能书界面判定
MoveTo 515,429
Delay 800
LeftClick 1
Delay 500
Return 生产阿瓜维特
Sub 卖出
MoveTo 690,384
Delay 800
LeftClick 1
Delay 500
Gosub 延时判定
MoveTo 334,94
Delay 800
LeftClick 1
Delay 500
MoveTo 634,436
Delay 800
LeftClick 1
Delay 500
IfColor 671,431,ffffff,0
IfColor
168,341,ffffff,0
IfColor 168,361,ffffff,0
MoveTo 690,435
Delay 800
LeftClick 1
Delay 500
EndIf
EndIf
Else
Delay 100
EndIf
Return 卖出
Sub 交涉界面判定
Rem 等待交涉界面
IfColor 680,377,ffffff,0
IfColor
720,377,ffffff,0
IfColor 760,401,ffffff,0
Goto 确认交涉界面
Delay 500
EndIf
EndIf
Else
Delay 100
Goto 等待交涉界面
EndIf
Rem 确认交涉界面
Return 交涉界面判定
Sub 交易界面判定
Return 交易界面判定
Sub 点餐界面判定
Return 点餐界面判定
Sub 菜单界面判定
Delay 500
Rem 等待3
IfColor 583,425,ffffff,0
IfColor
639,425,ffffff,0
Goto 网络顺畅3
EndIf
Else
Delay 500
Goto 等待3
EndIf
Rem 网络顺畅3
Return 菜单界面判定
Sub 自定义栏判定
Rem 等待自定义栏
IfColor 662,97,ffffff,0
IfColor
662,129,ffffff,0
IfColor 662,161,ffffff,0
Goto 确认自定义栏
Delay 500
EndIf
EndIf
Else
Delay 100
Goto 等待自定义栏
EndIf
Rem 确认自定义栏
Return 自定义栏判定
Sub 购买小麦
MoveTo 651,382
Delay 800
LeftClick 1
Delay 500
Gosub 延时判定
KeyPress 40,1
Delay 500
KeyDown 17,1
MoveTo 384,193
Delay 800
LeftClick 1
Delay 500
KeyUp 17,1
Gosub 确定还是返回
Return 购买小麦
Sub 技能书界面判定
Rem 等待技能书
IfColor 439,425,ffffff,0
IfColor
495,425,ffffff,0
Goto 确认技能书
Delay 500
EndIf
Else
Delay 100
Goto 等待技能书
EndIf
Rem 确认技能书
Return 技能书界面判定
Sub 生产界面判定
Rem 等待生产界面
IfColor 599,423,ffffff,0
IfColor
687,423,ffffff,0
Goto 确认生产界面
Delay 500
EndIf
Else
Delay 100
Goto 等待生产界面
EndIf
Rem 确认生产界面
Return 生产界面判定
Sub 出错报警下线
VBS BREAK=0
While BREAK<20
Beep
VBS BREAK=BREAK+1
EndWhile
MoveTo 782 48
LeftClick 1
Delay 200
KeyPress 38 1
Delay 200
KeyPress 13 1
Delay 200
KeyPress 120 2
Delay 1000
MoveTo 374 355
Delay 1000
LeftClick 1
Delay 20000
KeyPress 123 1
Return 出错报警下线
Sub 延时判定
Shape1=2012885647
//网络延时的时候的漏斗形状
Shape2=2106545426
//正常情况下的黄色箭头
Delay 500
Rem 等待
VBSCall Shape=GetCursorShape(0)
If shape = shape1
Delay 500
Goto 等待
ElseIf shape = shape2
Goto 网络顺畅
EndIf
Rem 网络顺畅
Return 延时判定
Sub 定位
KeyDown 17,1
Delay 200
KeyDown 40,1
Delay 3000
KeyUp 40,1
Delay 200
KeyUp 17,1
Delay 1000
Gosub 找酒吧老板
MoveTo 649,382
Delay 800
LeftClick 1
Delay 500
Gosub 延时判定
MoveTo 387,308
Delay 800
LeftClick 1
Delay 500
MoveTo 230,208
Delay 800
LeftClick 1
Delay 500
MoveTo 230,258
Delay 800
LeftClick 1
Delay 500
MoveTo 602,430
Delay 800
LeftClick 1
Delay 500
Gosub 延时判定
Delay 500
KeyPress 36,1
Delay 1000
KeyDown 38,1
Delay 500
KeyUp 38,1
Delay 500
KeyDown 37,1
Delay 1500
KeyUp 37,1
Gosub 走向交易所
Delay 1000
Gosub 找交易所老板
Return 定位
Sub 确定还是返回
Delay 500
IfColor 645 430 ffffff 0
MoveTo 665 435
Delay 500
LeftClick 1
Delay 500
Else
MoveTo 720 435
Delay 500
LeftClick 1
Delay 500
EndIf
Return 确定还是返回
相关新闻
