纠正了以前会空点导致人物跑位的问题。
沙的对比度大家选0.5吧，高了不认。
里面没废话全部复制吧。
=========================开始========================================
//游戏内《快捷键登陆》设置：F2=子定义栏、F7=装载、F9=露天市场。
//游戏内《子定义栏登陆》设置：F4=料理、F5=采集。
//屏幕800*600左上角
//石材
//沙
//姜
//玛瑙
dim Obj,CI,HI.W
set Obj = createobject("WScript.Shell")
VBS set TiShiObj = createobject("WScript.Shell")
Plugin hwnd = Window.GetKeyFocusWnd()
Delay 1000
VBSCall CI=InputBox ("请输入几轮采集后丢弃垃圾（1轮采集20次）！想在电脑面前长时间不被打扰且舱位多就选2-4，人不在就选1")
CI=int(CI)
Delay 1000
VBSCall HI=InputBox ("请输入料理数量！！千万留几个跑路用啊！！")
HI=int(HI)
Delay 1000
VBSCall JM=InputBox ("请输入卖姜的价格（支持3位数）")
Delay 1000
VBSCall MNM=InputBox ("请输入卖玛瑙的价格（支持4位数）")
Delay 1000
Tishi="886您！爱干吗干吗去吧！"
Gosub 提示Tishi
Plugin Window.Min(hwnd)
Delay 1000
W=(int(HI)/(CI*2))
For 1
For W
For CI
For 20
Gosub 采集
EndFor
For 2
Gosub 料理
EndFor
EndFor
Delay 4000
MoveTo 30 30
Delay 300
Gosub 激活窗口
Delay 2000
MoveTo 30 30
Delay 300
Gosub 丢弃废物
Delay 1000
MoveTo 30 30
Delay 300
Gosub 市场
Delay 1000
MoveTo 30 30
Delay 300
Gosub 满丢姜
Delay 1000
MoveTo 30 30
Delay 300
Gosub 玛瑙满关机
Delay 1000
MoveTo 30 30
Delay 300
Gosub 返回窗口
Delay 1000
EndFor
Gosub 关机
EndFor
EndScript
Sub 采集
Plugin Window.SendKeyPress(hwnd,112)
Delay 1000
Plugin Window.SendKeyPress(hwnd,115)
Delay 1000
Plugin Window.SendKeyPress(hwnd,27)
Delay 6400
Return 采集
Sub 料理
Plugin Window.SendKeyPress(hwnd,112)
Delay 1000
Plugin Window.SendKeyPress(hwnd,116)
Delay 1200
Plugin Window.SendKeyPress(hwnd,27)
Delay 1000
Return 料理
Sub 丢弃废物
KeyPress 118 1
Delay 3000
IfColor 404 390 c9bba5 0
MoveTo 404 390
Delay 300
LeftClick 1
Delay 2000
Else
Goto 11111
EndIf
VBSCall Call FindPic(90,190,385,250,"e:图片/石材.bmp",0.8,x,y)
If x>=0 and y>=0
Delay 600
MoveTo x+30 y+30
Delay 300
LeftClick 1
Delay 1000
MoveTo x+118 y+125
Delay 300
LeftClick 1
Delay 1000
MoveTo x+118 y+195
Delay 300
LeftClick 1
Delay 1000
MoveTo 637 414
Delay 300
LeftClick 1
Delay 1000
Else
KeyPress 27 1Delay 1000
KeyPress 27 1Delay 1000
KeyPress 27 1
Delay 1000
EndIf
Rem 丢弃石头
Rem 22222
KeyPress 118 1
Delay 2000
IfColor 404 390 c9bba5 0
MoveTo 404 390
Delay 300
LeftClick 1
Delay 2000
Else
Goto 22222
EndIf
VBSCall Call FindPic(95,190,385,250,"e:图片/沙.bmp",0.5,x,y)
If x>=0 and y>=0
Delay 600
MoveTo x+30 y+30
Delay 300
LeftClick 1
Delay 1000
MoveTo x+118 y+125
Delay 300
LeftClick 1
Delay 1000
MoveTo x+118 y+195
Delay 300
LeftClick 1
Delay 1000
MoveTo 637 414
Delay 300
LeftClick 1
Delay 1000
Else
KeyPress 27 1Delay 1000
KeyPress 27 1Delay 1000
KeyPress 27 1
Delay 1000
EndIf
Return 丢弃废物
Sub 激活窗口
Plugin Window.Foreground(hwnd)
Delay 300
Tishi="不许动！举起双手，对了还有脚"
Delay 300
Gosub 提示Tishi
Delay 300
Plugin Window.Active(hwnd)
Delay 600
Plugin Window.Restore(hwnd)
Delay 600
Return 激活窗口
Sub 返回窗口
Tishi="我走了，吻别个先！我靠！！那 那男的走开！"
Gosub 提示Tishi
Delay 300
Plugin Window.Min(hwnd)
Delay 600
Return 返回窗口
Sub 提示Tishi
VBSCall TiShiObj.Popup(Tishi,5,"糕糕滴出品，喜欢就尖叫《my god》吧",0)
Delay 300
Return 提示Tshi
Sub 市场
Rem 33333
KeyPress 120 1
Delay 3000
IfColor 653 429 d8cebb 0
MoveTo 304 101
Delay 300
Else
Goto 33333
EndIf
VBSCall Call FindPic(110,115,395,175,"e:图片/玛瑙.bmp",0.8,x,y)
If x>=0 and y>=0
Delay 600
MoveTo x+30 y+30
Delay 300
LeftClick 1
Delay 1000
MoveTo 354 244
Delay 300
LeftClick 1
Delay 1000
MoveTo 520 268
Delay 300
For 4
LeftClick 1
Delay 800
EndFor
Gosub 商品价格1
Else
KeyPress 27 1Delay 1000
KeyPress 27 1Delay 1000
KeyPress 27 1
Delay 1000
EndIf
Rem 44444
KeyPress 120 1
Delay 2000
IfColor 653 429 d8cebb 0
MoveTo 304 101
Delay 300
Else
Goto 44444
EndIf
Delay 1000
VBSCall Call FindPic(110,115,395,175,"e:图片/姜.bmp",0.8,x,y)
If x>=0 and y>=0
Delay 600
MoveTo x+30 y+30
Delay 300
LeftClick 1
Delay 1000
MoveTo 354 244
Delay 300
LeftClick 1
Delay 1000
MoveTo 520 268
Delay 300
For 3
LeftClick 1
Delay 800
EndFor
Gosub 商品价格2
Else
KeyPress 27 1
KeyPress 27 1
KeyPress 27 1
Delay 1000
EndIf
IfColor 595 429 d9cfc1 0
MoveTo 595 429
Delay 300
LeftClick 1
Delay 1000
Else
IfColor 443 430 cec0ac 0
MoveTo 443 430
Delay 300
LeftClick 1
Delay 1000
EndIf
EndIf
Return 市场
Sub 满丢姜
Rem 55555
KeyPress 118 1
Delay 3000
IfColor 404 390 c9bba5 0
MoveTo 404 390
Delay 500
LeftClick 1
Delay 2000
Else
Goto 55555
EndIf
IfColor 371 384 6868cf 0
VBSCall Call FindPic(95,190,385,250,"e:图片/姜.bmp",0.8,x,y)
If x>=0 and y>=0
Delay 600
MoveTo x+30 y+30
Delay 300
LeftClick 1
Delay 1000
MoveTo x+118 y+125
Delay 300
LeftClick 1
Delay 1000
MoveTo x+118 y+195
Delay 300
LeftClick 1
Delay 1000
MoveTo 637 414
Delay 300
LeftClick 1
Delay 3000
Else
KeyPress 27 1
KeyPress 27 1
KeyPress 27 1
Delay 1000
EndIf
Else
KeyPress 27 1
KeyPress 27 1
KeyPress 27 1
Delay 1000
EndIf
Return 满丢姜
Sub 玛瑙满关机
Rem 66666
KeyPress 118 1
Delay 3000
IfColor 404 390 c9bba5 0
MoveTo 404 390
Delay 500
LeftClick 1
Delay 2000
Else
Goto 66666
EndIf
IfColor 371 384 6868cf 0
VBSCall Call FindPic(95,190,385,250,"e:图片/玛瑙.bmp",0.8,x,y)
If x>=0 and y>=0
Delay 600
VBS Obj.Run "shutdown /f /s /t 60"
Else
KeyPress 27 1
KeyPress 27 1
KeyPress 27 1
Delay 1000
EndIf
Else
KeyPress 27 1
KeyPress 27 1
KeyPress 27 1
Delay 1000
EndIf
Return 玛瑙满关机
Sub 关机
VBS Obj.Run "shutdown /f /s /t 60"
Return 关机
Sub 商品价格1
m1=mid(MNM,1,1):m2=mid(MNM,2,1)
m3=mid(MNM,3,1):m4=mid(MNM,4,1)
For 4
If m1=""
m1=-1
EndIf
If m1>=0
bx=430+(((m1+19) MOD 10+3) MOD 3)*24
by=320-(INT((m1+2)/3))*24
Delay 300
MoveTo bx by
Delay 300
LeftClick 1
Delay 300
EndIf
m1=m2:m2=m3:m3=m4:m4-1
EndFor
MoveTo 468 415
Delay 300
LeftClick 1
Delay 1000
Return 商品价格1
Sub 商品价格2
j1=mid(JM,1,1):j2=mid(JM,2,1)
j3=mid(JM,3,1)
For 3
If j1=""
j1=-1
EndIf
If j1>=0
ax=430+(((j1+19) MOD 10+3) MOD 3)*24
ay=320-(INT((j1+2)/3))*24
Delay 300
MoveTo ax ay
Delay 300
LeftClick 1
Delay 300
EndIf
j1=j2:j2=j3:j3=-1
EndFor
Rem 确定
MoveTo 468 415
Delay 300
LeftClick 1
Delay 1000
Return 商品价格2
===================结束========
