写了一个杀鸡取蛋练保管的脚本,测试了一下还行.
需要361后台鼠标插件.支持大航海9.16更新的最新的版本
有什么问题请告诉我.感觉按键精灵有时候还是会范病,容易出錯.但流程没有问题.
重要的是全部都是后台可完成,读行动力内存,控制食物.
出来的鸭子都变成羽毛,节省仓位. 下一步争取加上卖羽毛的环节.
设置方面:
F1 快捷键
F4禽之章
F5 纤维的书
F6 保管的书
F7 料理1
F8 料理2
其他的就让程序自动执行吧:
1
UserVar dlytime = 1000
2Plugin hwn= Window.GetKeyFocusWnd()
3Plugin stitle = Window.GetText(hwn)
4If stitle="大航海时代 Online"
5 For 20
6 Gosub 吃料理
7 Delay 1000
8 Gosub 取蛋
9 Delay 1000
10 Gosub 吃料理
11 Delay 1000
12 Gosub 孵鸡
13 Delay 1000
14 Gosub 吃料理
15 Delay 1000
16 Gosub 拔鸭毛
17 Delay 1000
18 EndFor
19EndIf
20Return
21Sub 取蛋
22 VBS dim times = 0,b=0,oldb=0
23 //MoveTo 30,3
24 Plugin b= Memory.Read16Bit(hwn,&h00AC24D8)
25 oldb = b
26 Rem sstart
27 Delay 200
28 Plugin Window.SendKeyPress(hwn,27)
29 Delay 500
30 Plugin Window.SendKeyPress(hwn,112)
31 Delay 1500
32 //---F4
33 Plugin Window.SendKeyPress(hwn,115)
34 Delay 1500
35 Plugin Window.SendKeyPress(hwn,13)
36 Delay 1000
37 For 2000
38 times =times+1
39 Plugin BGKM5.MMove(hwn,460,300)
40 Delay 100
41 Plugin BGKM5.LClick(hwn,460,300)
42 //LeftClick 1
43 Delay 150
44 Plugin b= Memory.Read16Bit(hwn,&h00AC24D8)
45 If times>8
46 times=0
47 //无须拔
48 If oldb=b
49 Goto nnext
50 EndIf
51 oldb=b
52 EndIf
53 EndFor
54 Rem nnext
55 Plugin BGKM5.MMove(hwn,707,402)
56 Delay dlytime
57 Plugin BGKM5.LClick(hwn,707,402)
58 Delay dlytime
59 Plugin BGKM5.LClick(hwn,509,404)
60 Delay dlytime
61Return 取蛋
62Sub 孵鸡
63 VBS dim times = 0,b=0,oldb=0
64 //MoveTo 30,3
65 Plugin b= Memory.Read16Bit(hwn,&h00AC24D8)
66 oldb = b
67 Rem sstart
68 Delay 200
69 Plugin Window.SendKeyPress(hwn,27)
70 Delay 500
71 Plugin Window.SendKeyPress(hwn,112)
72 Delay 1200
73 //---F6
74 Plugin Window.SendKeyPress(hwn,117)
75 Delay 1500
76 For 6
77 Plugin Window.SendKeyPress(hwn,40)
78 Delay 800
79 EndFor
80 Plugin Window.SendKeyPress(hwn,13)
81 Delay 1000
82 For 2000
83 times =times+1
84 Plugin BGKM5.MMove(hwn,460,300)
85 Delay 100
86 Plugin BGKM5.LClick(hwn,460,300)
87 //LeftClick 1
88 Delay 150
89 Plugin b= Memory.Read16Bit(hwn,&h00AC24D8)
90 If times>6
91 times=0
92 //无须拔
93 If oldb=b
94 Goto nnext
95 EndIf
96 oldb=b
97 EndIf
98 EndFor
99 Rem nnext
100 Plugin BGKM5.MMove(hwn,707,402)
101 Delay dlytime
102 Plugin BGKM5.LClick(hwn,707,402)
103 Delay dlytime
104 Plugin BGKM5.LClick(hwn,509,404)
105 Delay dlytime
106Return 孵鸡
107Sub 拔鸭毛
108 VBS dim times = 0,b=0,oldb=0
109 //MoveTo 30,3
110 Plugin b= Memory.Read16Bit(hwn,&h00AC24D8)
111 oldb = b
112 Rem sstart
113 Delay 200
114 Plugin Window.SendKeyPress(hwn,27)
115 Delay 500
116 Plugin Window.SendKeyPress(hwn,112)
117 Delay 1200
118 //---F5
119 Plugin Window.SendKeyPress(hwn,116)
120 Delay 1500
121 // down
122 Plugin Window.SendKeyPress(hwn,40)
123 Delay 800
124 Plugin Window.SendKeyPress(hwn,13)
125 Delay 1000
126 For 2000
127 times =times+1
128 Plugin BGKM5.MMove(hwn,460,300)
129 Delay 100
130 Plugin BGKM5.LClick(hwn,460,300)
131 //LeftClick 1
132 Delay 150
133 Plugin b= Memory.Read16Bit(hwn,&h00AC24D8)
134 If times>6
135 times=0
136 //无须拔
137 If oldb=b
138 Goto nnext
139 EndIf
140 oldb=b
141 EndIf
142 EndFor
143 Rem nnext
144 Plugin BGKM5.MMove(hwn,707,402)
145 Delay dlytime
146 Plugin BGKM5.LClick(hwn,707,402)
147 Delay dlytime
148 Plugin BGKM5.LClick(hwn,509,404)
149 Delay dlytime
150Return 拔鸭毛
151Sub 吃料理
152 VBS dim i =0
153 VBS dim s=0
154 Delay dlytime * 0.5
155 For 12
156 i=i+1
157 Plugin s= Memory.Read16Bit(hwn,&h00AC24D8)
158 If s>500
159 Goto exi
160 EndIf
161 Plugin Window.SendKeyPress(hwn,27)
162 Delay 500
163 // -- f1
164 Plugin Window.SendKeyPress(hwn,112)
165 Delay 1000
166 //---F8
167 Plugin Window.SendKeyPress(hwn,119)
168 //Plugin Window.SendKeyPress(hwn,122)
169 Delay 800
170 Plugin Window.SendKeyPress(hwn,112)
171 Delay 1000
172 // f7
173 Plugin Window.SendKeyPress(hwn,118)
174 //Plugin Window.SendKeyPress(hwn,122)
175 Delay 800
176 //VBSCall MessageBox(s)
177 EndFor
178 Rem exi
179Return 吃料理
180
UserVar dlytime = 10002
Plugin hwn= Window.GetKeyFocusWnd()3
Plugin stitle = Window.GetText(hwn)4
If stitle="大航海时代 Online"5
For 206
Gosub 吃料理7
Delay 10008
Gosub 取蛋9
Delay 100010
Gosub 吃料理11
Delay 100012
Gosub 孵鸡13
Delay 100014
Gosub 吃料理15
Delay 100016
Gosub 拔鸭毛17
Delay 100018
EndFor 19
EndIf 20
Return 21
Sub 取蛋22
VBS dim times = 0,b=0,oldb=023
//MoveTo 30,324
Plugin b= Memory.Read16Bit(hwn,&h00AC24D8)25
oldb = b26
Rem sstart27
Delay 20028
Plugin Window.SendKeyPress(hwn,27)29
Delay 50030
Plugin Window.SendKeyPress(hwn,112)31
Delay 150032
//---F433
Plugin Window.SendKeyPress(hwn,115)34
Delay 150035
Plugin Window.SendKeyPress(hwn,13)36
Delay 100037
For 200038
times =times+139
Plugin BGKM5.MMove(hwn,460,300)40
Delay 10041
Plugin BGKM5.LClick(hwn,460,300)42
//LeftClick 143
Delay 15044
Plugin b= Memory.Read16Bit(hwn,&h00AC24D8)45
If times>846
times=047
//无须拔48
If oldb=b49
Goto nnext50
EndIf 51
oldb=b52
EndIf 53
EndFor 54
Rem nnext55
Plugin BGKM5.MMove(hwn,707,402)56
Delay dlytime57
Plugin BGKM5.LClick(hwn,707,402)58
Delay dlytime59
Plugin BGKM5.LClick(hwn,509,404)60
Delay dlytime61
Return 取蛋62
Sub 孵鸡63
VBS dim times = 0,b=0,oldb=064
//MoveTo 30,365
Plugin b= Memory.Read16Bit(hwn,&h00AC24D8)66
oldb = b67
Rem sstart68
Delay 20069
Plugin Window.SendKeyPress(hwn,27)70
Delay 50071
Plugin Window.SendKeyPress(hwn,112)72
Delay 120073
//---F674
Plugin Window.SendKeyPress(hwn,117)75
Delay 150076
For 677
Plugin Window.SendKeyPress(hwn,40)78
Delay 80079
EndFor 80
Plugin Window.SendKeyPress(hwn,13)81
Delay 100082
For 200083
times =times+184
Plugin BGKM5.MMove(hwn,460,300)85
Delay 10086
Plugin BGKM5.LClick(hwn,460,300)87
//LeftClick 188
Delay 15089
Plugin b= Memory.Read16Bit(hwn,&h00AC24D8)90
If times>691
times=092
//无须拔93
If oldb=b94
Goto nnext95
EndIf 96
oldb=b97
EndIf 98
EndFor 99
Rem nnext100
Plugin BGKM5.MMove(hwn,707,402)101
Delay dlytime102
Plugin BGKM5.LClick(hwn,707,402)103
Delay dlytime104
Plugin BGKM5.LClick(hwn,509,404)105
Delay dlytime106
Return 孵鸡107
Sub 拔鸭毛108
VBS dim times = 0,b=0,oldb=0109
//MoveTo 30,3110
Plugin b= Memory.Read16Bit(hwn,&h00AC24D8)111
oldb = b112
Rem sstart113
Delay 200114
Plugin Window.SendKeyPress(hwn,27)115
Delay 500116
Plugin Window.SendKeyPress(hwn,112)117
Delay 1200118
//---F5119
Plugin Window.SendKeyPress(hwn,116)120
Delay 1500121
// down122
Plugin Window.SendKeyPress(hwn,40)123
Delay 800124
Plugin Window.SendKeyPress(hwn,13)125
Delay 1000126
For 2000127
times =times+1128
Plugin BGKM5.MMove(hwn,460,300)129
Delay 100130
Plugin BGKM5.LClick(hwn,460,300)131
//LeftClick 1132
Delay 150133
Plugin b= Memory.Read16Bit(hwn,&h00AC24D8)134
If times>6135
times=0136
//无须拔137
If oldb=b138
Goto nnext139
EndIf 140
oldb=b141
EndIf 142
EndFor 143
Rem nnext144
Plugin BGKM5.MMove(hwn,707,402)145
Delay dlytime146
Plugin BGKM5.LClick(hwn,707,402)147
Delay dlytime148
Plugin BGKM5.LClick(hwn,509,404)149
Delay dlytime150
Return 拔鸭毛151
Sub 吃料理152
VBS dim i =0153
VBS dim s=0154
Delay dlytime * 0.5155
For 12156
i=i+1157
Plugin s= Memory.Read16Bit(hwn,&h00AC24D8)158
If s>500159
Goto exi160
EndIf 161
Plugin Window.SendKeyPress(hwn,27)162
Delay 500163
// -- f1164
Plugin Window.SendKeyPress(hwn,112)165
Delay 1000166
//---F8167
Plugin Window.SendKeyPress(hwn,119)168
//Plugin Window.SendKeyPress(hwn,122)169
Delay 800170
Plugin Window.SendKeyPress(hwn,112)171
Delay 1000172
// f7173
Plugin Window.SendKeyPress(hwn,118)174
//Plugin Window.SendKeyPress(hwn,122)175
Delay 800176
//VBSCall MessageBox(s)177
EndFor 178
Rem exi179
Return 吃料理180
浙公网安备 33010602011771号