中国留学之家，中国最优秀的留学咨询公司，全球顶尖大学申请专家！【天龙八部】完美跑商主义

djlz2008 - 2008-4-14 13:30:00

Rem 再来
// =============================================================
Rem 领票
VBSCall Call FindPic(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x+50 y-90
Delay 1000
LeftClick 2
Delay 1000
Else
Goto 领票
EndIf
Gosub 买东西
// =============================================================
// 从帮会到洱海帮会
// 当前地图本帮帮会
xx=526
yy=572
Gosub gopos
Delay 25000
// 当前地图草原
hang=4
Gosub gopic
Delay 10000
Gosub 过地图
// 当前地图雁南
hang=2
Gosub gopic
Delay 10000
Gosub 过地图
// 当前地图洛阳
hang=3
Gosub gopic
Delay 10000
Gosub 过地图
// 当前地图敦黄
hang=2
Gosub gopic
Delay 10000
Gosub 过地图
// 当前地图剑阁
hang=1
Gosub gopic
Delay 10000
Gosub 过地图
// 当前地图大理
hang=2
Gosub gopic
Delay 10000
Gosub 过地图
// 当前地图洱海
hang=5
Gosub gopic
Delay 10000
Gosub 进城
// 当前地图洱海帮会
xx=659
yy=296
Gosub gopos
Delay 25000
Gosub 找商人
// =============================================================
i=3
Gosub 卖东西
Gosub 买东西
// =============================================================
// 从洱海帮会到本帮帮会
Rem 测试
xx=526
yy=572
Gosub gopos
Delay 25000
hang=2
Gosub gopic
Delay 10000
Gosub 过地图
hang=3
Gosub gopic
Delay 10000
Gosub 过地图
hang=2
Gosub gopic
Delay 10000
Gosub 过地图
hang=3
Gosub gopic
Delay 10000
Gosub 过地图
hang=5
Gosub gopic
Delay 10000
Gosub 过地图
hang=1
Gosub gopic
Delay 10000
Gosub 过地图
hang=5
Gosub gopic
Delay 10000
Gosub 进城
xx=659
yy=296
Gosub gopos
Delay 25000
Gosub 找商人
// ==============================================================
i=10
Gosub 卖东西
// 交票再来
MoveTo x+50 y-65
Delay 1000
LeftClick 2
Delay 2000
Goto 再来
// ==============================================================
Sub 买东西
Rem 找包
VBSCall Call FindPic(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
If x>=0 and y>=0
Delay 1000
Else
Goto 找包
EndIf
Rem 打开商店
MoveTo x+50 y+9
Delay 1000
LeftClick 2
Delay 3000
// 买大米,94银的时候买
VBSCall Call FindPic(340,150,680,450,"Attachment:\94.bmp",1,x6,y6)
If x6>=0 and y6>=0
MoveTo x6-80 y6-5
Delay 500
Else
Goto 打开商店
EndIf
Rem 买
LeftClick 5
// 检查是否操作过快,是否商品列表已经改变
VBSCall Call FindPic(300,30,750,150,"Attachment:\重.bmp",0.9,x7,y7)
If x7>=0 and y7>=0
Goto 打开商店
EndIf
// 检查是否用完商票,是否买够
VBSCall Call FindPic(300,30,750,150,"Attachment:\再.bmp",0.9,x8,y8)
If x8>=0 and y8>=0
Delay 500
Else
Goto 买
EndIf
Return 买东西
Sub 卖东西
Rem 找包1
VBSCall Call FindPic(0,150,260,440,"Attachment:\包裹.bmp",0.9,x,y)
If x>=0 and y>=0
Delay 1000
Else
Goto 找包1
EndIf
Rem 打开商店1
MoveTo x+50 y+9
Delay 1000
LeftClick 2
Delay 3000
// 卖大米,94银的时候卖
VBSCall Call FindPic(340,150,680,450,"Attachment:\94.bmp",1,x9,y9)
If x9>=0 and y9>=0
MoveTo 830 455
Delay 2000
Else
Goto 打开商店1
EndIf
j=0
For i
j=j+1
VBSCall Call FindPic(300,30,750,150,"Attachment:\重.bmp",0.9,x10,y10)
If x10>=0 and y10>=0
Goto 打开商店1
EndIf
RightClick 3
Delay 1000
If (j Mod 5)=0
MoveR -136,34
Else
MoveR 34,0
EndIf
Delay 2000
EndFor
Return 卖东西
Sub gopos
KeyPress 9,1
Rem 区域
Delay 2000
VBSCall Call FindPic(377,111,660,140,"Attachment:\区域地图.bmp",0.9,x2,y2)
If x2>=0 and y2>=0
Delay 1000
MoveTo xx yy
Delay 1000
LeftClick 1
Delay 10000
LeftClick 1
KeyPress 9,1
Else
Goto 区域
EndIf
Return gopos
Sub 过地图
Rem 过图
Delay 3000
VBSCall Call FindPic(865,250,1024,500,"Attachment:\自动寻路(全).bmp",0.9,x4,y4)
If x4>=0 and y4>=0
Goto 过图
Else
Delay 3000
EndIf
Return 过地图
Sub gopic
KeyPress 192,1
Rem 找全
Delay 2000
VBSCall Call FindPic(865,250,1024,500,"Attachment:\自动寻路(全).bmp",0.9,x3,y3)
If x3>=0 and y3>=0
Delay 1000
MoveTo x3+64 y3+44+(hang-1)*16
Delay 1000
LeftClick 2
Delay 1000
MoveTo x3+64,y3+210
Delay 500
LeftClick 1
Delay 10000
LeftClick 1
Else
Goto 找全
EndIf
Return gopic
Sub 进城
Rem 过城
Delay 3000
VBSCall Call FindPic(0,150,200,300,"Attachment:\城市2.bmp",1,x1,y1)
If x1>=0 and y1>=0
Delay 1000
MoveTo x1 y1+5
Delay 1000
LeftClick 2
Delay 3000
Else
Goto 过城
EndIf
Return 进城
Sub 找商人
Rem 找人
Delay 2000
VBSCall Call FindPic(345,145,630,460,"Attachment:\钱为一.bmp",0.9,x5,y5)
If x5>=0 and y5>=0
MoveTo x5 y5+84
Delay 2000
VBSCall Shape=GetCursorShape(0)
If Shape = 302826352
Delay 2000
LeftClick 2
Else
Goto 找人
EndIf
Else
Goto 找人
EndIf
Return 找商人

留学之家留学DIY社区