djlz2008 - 2008-4-14 13:34:00
一、自动打怪
①xp模式1024*768
②游戏处于窗口模式
③游戏窗口大小808*627
④key说明:
122即F11需在游戏自定义快界键中替换CTRL+TAB,锁怪功能
112即F1:门派基础攻击
113技能1,j1为对应冷却时间/秒
114技能1,.............
.....
===================================================================
t1=now:t2=now:t3=now
j1=30:j2=40:j3=120
x=68:y=61
Plugin hwnd=Window.Foreground()
Plugin winRect=Window.GetWindowRect(hwnd)
xy= Split(winRect, "|", -1, 1)
Rem 寻怪
Delay 500
Plugin Window.SendKeyPress(hwnd,122)
Delay 500
Plugin Window.SendKeyPress(hwnd,112)
Delay 1000
Rem 杀怪
Plugin Window.SendKeyPress(hwnd,112)
Delay 500
Gosub 判断死亡
If DateDiff("s",t1,now)>=ji1
Plugin Window.SendKeyPress(hwnd,113)
t1=now
Delay 700
EndIf
Gosub 判断死亡
If DateDiff("s",t2,now)>=ji2
Plugin Window.SendKeyPress(hwnd,114)
t2=now
Delay 700
EndIf
Gosub 判断死亡
If DateDiff("s",t3,now)>=ji3
Plugin Window.SendKeyPress(hwnd,115)
t3=now
Delay 700
EndIf
Gosub 判断死亡
Goto 杀怪
Sub 判断死亡
IfColor xy(0)+x+186,xy(1)+y,101410,2
Goto 寻怪
Else
IfColor xy(0)+x+186,xy(1)+y,0011FF,2
fengxue=0
Else
Goto 寻怪
EndIf
EndIf
Return 判断死亡
================================================================
二、给自己加血,加蓝,给宝宝加血
①以上条件包括
②将游戏设为非聊天模式,英文输入状态下
③药品摆放位置:
④m1自己血下限设置
m2自己蓝下限设置
m3宝宝血下限设置
===============================================================
// 少于%点加血
m1=40:m2=30:m3=50
x=68:y=61
Plugin hwnd=Window.Foreground()
Rem 加血
Plugin winRect=Window.GetWindowRect(hwnd)
xy= Split(winRect, "|", -1, 1)
IfColor xy(0)+x+1.22*m1,xy(1)+y,111111,2
Plugin Window.SendKeyPress(hwnd,54)
Delay 300
EndIf
IfColor xy(0)+x+1.22*m2,xy(1)+y+6,111111,2
Plugin Window.SendKeyPress(hwnd,55)
Delay 300
EndIf
IfColor xy(0)+x+m3,xy(1)+y+39,111111,2
Plugin Window.SendKeyPress(hwnd,56)
Delay 300
EndIf
Delay 500
Goto 加血
================================================三、自动给自己和宝宝加状态
①以上条件包括
②状态技能摆放见上图
③状态持续ji10,ji11,ji12,ji13
其中F10位置放的是葵花神力,需要选种目标才能加请注意,代码121
=======================================================================
x=68:y=61
t10=now:t11=now:t12=now:t13=now
ji10=300:ji11=300:ji12=6000:ji13=1000
Plugin hwnd=Window.Foreground()
Plugin Window.SendKeyPress(hwnd,49)
Delay 400
Plugin Window.SendKeyPress(hwnd,50)
Delay 400
Plugin Window.SendKeyPress(hwnd,51)
Delay 400
Plugin winRect=Window.GetWindowRect(hwnd)
xy= Split(winRect, "|", -1, 1)
Rem 状态
If DateDiff("s",t10,now)>=ji10
Plugin Window.SendKeyPress(hwnd,49)
t10=now
Delay 1000
EndIf
If DateDiff("s",t11,now)>=ji11
Plugin Window.SendKeyPress(hwnd,50)
t11=now
Delay 1000
EndIf
If DateDiff("s",t12,now)>=ji12
Plugin Window.SendKeyPress(hwnd,51)
t12=now
Delay 1000
EndIf
If DateDiff("s",t13,now)>=ji13
Delay 500
Plugin Window.Active(hwnd)
Delay 500
MoveTo xy(0)+x-30,xy(1)+y
Delay 500
LeftClick 1
Delay 500
Plugin Window.SendKeyPress(hwnd,121)
Delay 2000
MoveTo xy(0)+x-20,xy(1)+y+50
Delay 500
LeftClick 1
Delay 500
Plugin Window.SendKeyPress(hwnd,121)
t13=now
EndIf
Delay 50000
Goto 状态四、自动跑商:
这个就只适合自己用了
①首先3金票;材料包裹27格;城市在草原,标志性的字// 魂//字;再次只跑洛阳:经我多次测试,成功率98%;洛阳人满时,与要手动进城
②我具体安排如下
a,以上条件包括;
b,将点击商人出现的对话窗口,商品列表窗口,自己的背包依次自左至右互不重叠的排列,洛阳和自己帮会的都要手动调一下,(由于做的时候只在808*627窗口下做的,如果改成最大化游戏的时候就不用调试各个窗口位置,我嫌改了后又得把各个代码中查图范围重新做一边麻烦)
c,包裹处于材料那栏的位置
d,将人物停在帮会商人处,并点开对话框
e,跑洛阳两次,第一次在帮中买49的米,到洛阳1金14卖掉后买花
第二次在帮中买94的米,到洛阳2金20,先卖掉6个,买花满,后衣次卖一个买一个,(防止达到金钱上限)
③最后这个只适合自己
===========================================================================
Plugin hwnd=Window.Foreground()
Plugin Window.Move(hwnd,0,0)
Plugin Window.Active(hwnd)
WaitKey
// .................准备工作....................
Rem 再来
Rem 找包
VBSCall Call FindPic(0,0,808,627,"Attachment:\包裹.bmp",0.9,x,y)
If x>=0 and y>=0
intX=x:intY=y
MoveTo intX+50 intY-90
Delay 500
LeftClick 1
Delay 100
LeftClick 1
Delay 100
MoveTo intX+50 intY+9
Delay 500
LeftClick 1
Delay 100
LeftClick 1
Delay 1000
Else
Goto 找包
EndIf
Rem 找格
VBSCall Call FindPic(500,0,808,627,"Attachment:\卖的.bmp",0.9,x1,y1)
If x1>=0 and y1>=0
Delay 100
Else
Goto 找格
EndIf
// .......................准备工作完成..............................
maijia="Attachment:\49.bmp"
nomon="Attachment:\再.bmp"
Gosub 买东西
// =======================从帮会到洛阳=============================
xx=413
yy=478
Gosub gopos
Delay 25000
hang=4
Gosub gopic
Delay 10000
Gosub 过地图
hang=2
Gosub gopic
Delay 10000
Gosub 过地图
xx=425
yy=289
Gosub gopos
Delay 20000
tupath="Attachment:\洛阳商人.bmp"
Gosub 找商人
// =================在洛阳卖东西接着买东西=====================
Delay 3000
Rem 找包裹
VBSCall Call FindPic(0,0,808,627,"Attachment:\包裹.bmp",0.9,m,n)
If m>=0 and n>=0
intX=m:intY=n
Delay 500
Else
Goto 找包裹
EndIf
chujia="Attachment:\14.bmp"
i=6
Gosub 卖东西
maijia="Attachment:\花.bmp"
nomon="Attachment:\不.bmp"
Gosub 买东西
// ====================从洛阳到帮会========================
hang=5
Gosub gopic
Delay 10000
Gosub 过地图
hang=1
Gosub gopic
Delay 10000
Gosub 过地图
hang=5
Gosub gopic
Delay 10000
Gosub 进城
xx=518
yy=265
Gosub gopos
Delay 20000
tupath="Attachment:\钱为一.bmp"
Gosub 找商人
// =====================卖东西接着买东西=====================================
Delay 3000
intX=x:intY=y
MoveTo intX+50 intY+9
Delay 500
LeftClick 1
Delay 100
LeftClick 1
Delay 1000
Rem 找格1
VBSCall Call FindPic(500,0,808,627,"Attachment:\卖的.bmp",0.9,x1,y1)
If x1>=0 and y1>=0
Delay 100
Else
Goto 找格1
EndIf
MoveTo x1-37 y1+34
Delay 3000
j=0
For 18
j=j+1
RightClick 1
Delay 100
RightClick 1
Delay 1000
If (j Mod 5)=0
MoveR -136,34
Else
MoveR 34,0
EndIf
Delay 2000
EndFor
//--------========================================
maijia="Attachment:\94.bmp"
nomon="Attachment:\再.bmp"
Gosub 买东西
Delay 2000
xx=413
yy=478
Gosub gopos
Delay 30000
hang=4
Gosub gopic
Delay 10000
Gosub 过地图
hang=2
Gosub gopic
Delay 10000
Gosub 过地图
xx=425
yy=289
Gosub gopos
Delay 20000
tupath="Attachment:\洛阳商人.bmp"
Gosub 找商人
//--------============================================
Delay 3000
intX=m:intY=n
chujia="Attachment:\20.bmp"
i=6
Gosub 卖东西
SaveMousePos
maijia="Attachment:\花.bmp"
nomon="Attachment:\满.bmp"
Gosub 买东西
RestoreMousePos
Delay 2000
j=1
For 4
j=j+1
RightClick 1
Delay 100
RightClick 1
Delay 1000
SaveMousePos
Delay 3000
Gosub 买东西
RestoreMousePos
If (j Mod 5)=0
MoveR -136,34
Else
MoveR 34,0
EndIf
Delay 2000
EndFor
RightClick 1
Delay 400
RightClick 1
Delay 1000
MoveR 34,0
RightClick 1
Delay 400
RightClick 1
Delay 1000
// ================================
hang=5
Gosub gopic
Delay 10000
Gosub 过地图
hang=1
Gosub gopic
Delay 10000
Gosub 过地图
hang=5
Gosub gopic
Delay 10000
Gosub 进城
xx=518
yy=265
Gosub gopos
Delay 20000
tupath="Attachment:\钱为一.bmp"
Gosub 找商人
// =========================
Delay 3000
intX=x:intY=y
MoveTo intX+50 intY+9
Delay 500
LeftClick 1
Delay 100
LeftClick 1
Delay 1000
Rem 找格2
VBSCall Call FindPic(500,0,808,627,"Attachment:\卖的.bmp",0.9,x1,y1)
If x1>=0 and y1>=0
Delay 100
Else
Goto 找格2
EndIf
MoveTo x1-37 y1+34
Delay 3000
j=0
For 27
j=j+1
RightClick 1
Delay 100
RightClick 1
Delay 1000
If (j Mod 5)=0
MoveR -136,34
Else
MoveR 34,0
EndIf
Delay 2000
EndFor
// 交还银票
MoveTo intX+50 intY-65
Delay 500
LeftClick 1
Delay 100
LeftClick 1
Delay 2000
Goto 再来
Sub 买东西
Rem 打开商店
MoveTo intX+50 intY+9
Delay 500
LeftClick 1
Delay 500
LeftClick 1
LeftClick 1
LeftClick 1
Delay 1000
VBSCall Call FindPic(200,100,500,400,maijia,1,x2,y2)
If x2>=0 and y2>=0
MoveTo x2-80 y2-5
Delay 500
Else
Goto 打开商店
EndIf
Rem 买
LeftClick 1
Delay 100
LeftClick 1
Delay 100
LeftClick 1
Delay 100
LeftClick 1
// 检查
VBSCall Call FindPic(250,0,600,150,"Attachment:\重.bmp",0.9,x3,y3)
If x3>=0 and y3>=0
Goto 打开商店
EndIf
VBSCall Call FindPic(250,0,600,150,nomon,0.9,x4,y4)
If x4>=0 and y4>=0
Delay 500
Else
Goto 买
EndIf
Return 买东西
Sub 卖东西
Rem 打开商店1
MoveTo intX+50 intY+9
Delay 500
LeftClick 1
Delay 100
LeftClick 1
Delay 1000
MoveTo x1-37 y1+34
Delay 4000
VBSCall Call FindPic(400,300,650,627,chujia,1,x5,y5)
If x5>=0 and y5>=0
Delay 1000
Else
Goto 打开商店1
EndIf
j=0
For i
j=j+1
VBSCall Call FindPic(250,0,600,150,"Attachment:\重.bmp",0.9,x3,y3)
If x3>=0 and y3>=0
Goto 打开商店1
EndIf
RightClick 1
Delay 100
RightClick 1
Delay 1000
If (j Mod 5)=0
MoveR -136,34
Else
MoveR 34,0
EndIf
Delay 2000
EndFor
Return 卖东西
// ============================================
Sub gopic
KeyPress 192,1
Rem 找全
Delay 2000
VBSCall Call FindPic(400,200,808,500,"Attachment:\自动寻路(全).bmp",0.9,x6,y6)
If x6>=0 and y6>=0
Delay 1000
MoveTo x6+64 y6+44+(hang-1)*16
Delay 1000
LeftClick 1
LeftClick 1
Delay 1000
MoveTo x6+64,y6+210
Delay 500
LeftClick 1
Delay 2000
LeftClick 1
Else
Goto 找全
EndIf
Return gopic
Sub 过地图
Rem 过图
Delay 3000
VBSCall Call FindPic(400,200,808,500,"Attachment:\自动寻路(全).bmp",0.9,x7,y7)
If x7>=0 and y7>=0
Goto 过图
Else
Delay 3000
EndIf
Return 过地图
Sub 进城
Rem 过城图
Delay 3000
VBSCall Call FindPic(0,0,808,627,"Attachment:\魂.bmp",0.9,x8,y8)
If x8>=0 and y8>=0
Delay 1000
MoveTo x8 y8+5
Delay 1000
LeftClick 1
LeftClick 1
Delay 3000
Else
Goto 过城图
EndIf
Return 进城
Sub gopos
KeyPress 9,1
Rem 区域
Delay 2000
VBSCall Call FindPic(250,0,808,400,"Attachment:\区域地图.bmp",0.9,x9,y9)
If x9>=0 and y9>=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 2000
VBSCall Call FindPic(200,100,700,500,tupath,0.9,x10,y10)
If x10>=0 and y10>=0
MoveTo x10 y10+84
Delay 1000
VBSCall Shape=GetCursorShape(0)
If Shape = 302826352
Delay 2000
LeftClick 1
Else
Goto 找人
EndIf
Else
Goto 找人
EndIf
Return 找商人
============================================================================
=========================================================================
①xp模式1024*768
②游戏处于窗口模式
③游戏窗口大小808*627
④key说明:
122即F11需在游戏自定义快界键中替换CTRL+TAB,锁怪功能
112即F1:门派基础攻击
113技能1,j1为对应冷却时间/秒
114技能1,.............
.....
===================================================================
t1=now:t2=now:t3=now
j1=30:j2=40:j3=120
x=68:y=61
Plugin hwnd=Window.Foreground()
Plugin winRect=Window.GetWindowRect(hwnd)
xy= Split(winRect, "|", -1, 1)
Rem 寻怪
Delay 500
Plugin Window.SendKeyPress(hwnd,122)
Delay 500
Plugin Window.SendKeyPress(hwnd,112)
Delay 1000
Rem 杀怪
Plugin Window.SendKeyPress(hwnd,112)
Delay 500
Gosub 判断死亡
If DateDiff("s",t1,now)>=ji1
Plugin Window.SendKeyPress(hwnd,113)
t1=now
Delay 700
EndIf
Gosub 判断死亡
If DateDiff("s",t2,now)>=ji2
Plugin Window.SendKeyPress(hwnd,114)
t2=now
Delay 700
EndIf
Gosub 判断死亡
If DateDiff("s",t3,now)>=ji3
Plugin Window.SendKeyPress(hwnd,115)
t3=now
Delay 700
EndIf
Gosub 判断死亡
Goto 杀怪
Sub 判断死亡
IfColor xy(0)+x+186,xy(1)+y,101410,2
Goto 寻怪
Else
IfColor xy(0)+x+186,xy(1)+y,0011FF,2
fengxue=0
Else
Goto 寻怪
EndIf
EndIf
Return 判断死亡
================================================================
二、给自己加血,加蓝,给宝宝加血
①以上条件包括
②将游戏设为非聊天模式,英文输入状态下
③药品摆放位置:
④m1自己血下限设置
m2自己蓝下限设置
m3宝宝血下限设置
===============================================================
// 少于%点加血
m1=40:m2=30:m3=50
x=68:y=61
Plugin hwnd=Window.Foreground()
Rem 加血
Plugin winRect=Window.GetWindowRect(hwnd)
xy= Split(winRect, "|", -1, 1)
IfColor xy(0)+x+1.22*m1,xy(1)+y,111111,2
Plugin Window.SendKeyPress(hwnd,54)
Delay 300
EndIf
IfColor xy(0)+x+1.22*m2,xy(1)+y+6,111111,2
Plugin Window.SendKeyPress(hwnd,55)
Delay 300
EndIf
IfColor xy(0)+x+m3,xy(1)+y+39,111111,2
Plugin Window.SendKeyPress(hwnd,56)
Delay 300
EndIf
Delay 500
Goto 加血
================================================三、自动给自己和宝宝加状态
①以上条件包括
②状态技能摆放见上图
③状态持续ji10,ji11,ji12,ji13
其中F10位置放的是葵花神力,需要选种目标才能加请注意,代码121
=======================================================================
x=68:y=61
t10=now:t11=now:t12=now:t13=now
ji10=300:ji11=300:ji12=6000:ji13=1000
Plugin hwnd=Window.Foreground()
Plugin Window.SendKeyPress(hwnd,49)
Delay 400
Plugin Window.SendKeyPress(hwnd,50)
Delay 400
Plugin Window.SendKeyPress(hwnd,51)
Delay 400
Plugin winRect=Window.GetWindowRect(hwnd)
xy= Split(winRect, "|", -1, 1)
Rem 状态
If DateDiff("s",t10,now)>=ji10
Plugin Window.SendKeyPress(hwnd,49)
t10=now
Delay 1000
EndIf
If DateDiff("s",t11,now)>=ji11
Plugin Window.SendKeyPress(hwnd,50)
t11=now
Delay 1000
EndIf
If DateDiff("s",t12,now)>=ji12
Plugin Window.SendKeyPress(hwnd,51)
t12=now
Delay 1000
EndIf
If DateDiff("s",t13,now)>=ji13
Delay 500
Plugin Window.Active(hwnd)
Delay 500
MoveTo xy(0)+x-30,xy(1)+y
Delay 500
LeftClick 1
Delay 500
Plugin Window.SendKeyPress(hwnd,121)
Delay 2000
MoveTo xy(0)+x-20,xy(1)+y+50
Delay 500
LeftClick 1
Delay 500
Plugin Window.SendKeyPress(hwnd,121)
t13=now
EndIf
Delay 50000
Goto 状态四、自动跑商:
这个就只适合自己用了
①首先3金票;材料包裹27格;城市在草原,标志性的字// 魂//字;再次只跑洛阳:经我多次测试,成功率98%;洛阳人满时,与要手动进城
②我具体安排如下
a,以上条件包括;
b,将点击商人出现的对话窗口,商品列表窗口,自己的背包依次自左至右互不重叠的排列,洛阳和自己帮会的都要手动调一下,(由于做的时候只在808*627窗口下做的,如果改成最大化游戏的时候就不用调试各个窗口位置,我嫌改了后又得把各个代码中查图范围重新做一边麻烦)
c,包裹处于材料那栏的位置
d,将人物停在帮会商人处,并点开对话框
e,跑洛阳两次,第一次在帮中买49的米,到洛阳1金14卖掉后买花
第二次在帮中买94的米,到洛阳2金20,先卖掉6个,买花满,后衣次卖一个买一个,(防止达到金钱上限)
③最后这个只适合自己
===========================================================================
Plugin hwnd=Window.Foreground()
Plugin Window.Move(hwnd,0,0)
Plugin Window.Active(hwnd)
WaitKey
// .................准备工作....................
Rem 再来
Rem 找包
VBSCall Call FindPic(0,0,808,627,"Attachment:\包裹.bmp",0.9,x,y)
If x>=0 and y>=0
intX=x:intY=y
MoveTo intX+50 intY-90
Delay 500
LeftClick 1
Delay 100
LeftClick 1
Delay 100
MoveTo intX+50 intY+9
Delay 500
LeftClick 1
Delay 100
LeftClick 1
Delay 1000
Else
Goto 找包
EndIf
Rem 找格
VBSCall Call FindPic(500,0,808,627,"Attachment:\卖的.bmp",0.9,x1,y1)
If x1>=0 and y1>=0
Delay 100
Else
Goto 找格
EndIf
// .......................准备工作完成..............................
maijia="Attachment:\49.bmp"
nomon="Attachment:\再.bmp"
Gosub 买东西
// =======================从帮会到洛阳=============================
xx=413
yy=478
Gosub gopos
Delay 25000
hang=4
Gosub gopic
Delay 10000
Gosub 过地图
hang=2
Gosub gopic
Delay 10000
Gosub 过地图
xx=425
yy=289
Gosub gopos
Delay 20000
tupath="Attachment:\洛阳商人.bmp"
Gosub 找商人
// =================在洛阳卖东西接着买东西=====================
Delay 3000
Rem 找包裹
VBSCall Call FindPic(0,0,808,627,"Attachment:\包裹.bmp",0.9,m,n)
If m>=0 and n>=0
intX=m:intY=n
Delay 500
Else
Goto 找包裹
EndIf
chujia="Attachment:\14.bmp"
i=6
Gosub 卖东西
maijia="Attachment:\花.bmp"
nomon="Attachment:\不.bmp"
Gosub 买东西
// ====================从洛阳到帮会========================
hang=5
Gosub gopic
Delay 10000
Gosub 过地图
hang=1
Gosub gopic
Delay 10000
Gosub 过地图
hang=5
Gosub gopic
Delay 10000
Gosub 进城
xx=518
yy=265
Gosub gopos
Delay 20000
tupath="Attachment:\钱为一.bmp"
Gosub 找商人
// =====================卖东西接着买东西=====================================
Delay 3000
intX=x:intY=y
MoveTo intX+50 intY+9
Delay 500
LeftClick 1
Delay 100
LeftClick 1
Delay 1000
Rem 找格1
VBSCall Call FindPic(500,0,808,627,"Attachment:\卖的.bmp",0.9,x1,y1)
If x1>=0 and y1>=0
Delay 100
Else
Goto 找格1
EndIf
MoveTo x1-37 y1+34
Delay 3000
j=0
For 18
j=j+1
RightClick 1
Delay 100
RightClick 1
Delay 1000
If (j Mod 5)=0
MoveR -136,34
Else
MoveR 34,0
EndIf
Delay 2000
EndFor
//--------========================================
maijia="Attachment:\94.bmp"
nomon="Attachment:\再.bmp"
Gosub 买东西
Delay 2000
xx=413
yy=478
Gosub gopos
Delay 30000
hang=4
Gosub gopic
Delay 10000
Gosub 过地图
hang=2
Gosub gopic
Delay 10000
Gosub 过地图
xx=425
yy=289
Gosub gopos
Delay 20000
tupath="Attachment:\洛阳商人.bmp"
Gosub 找商人
//--------============================================
Delay 3000
intX=m:intY=n
chujia="Attachment:\20.bmp"
i=6
Gosub 卖东西
SaveMousePos
maijia="Attachment:\花.bmp"
nomon="Attachment:\满.bmp"
Gosub 买东西
RestoreMousePos
Delay 2000
j=1
For 4
j=j+1
RightClick 1
Delay 100
RightClick 1
Delay 1000
SaveMousePos
Delay 3000
Gosub 买东西
RestoreMousePos
If (j Mod 5)=0
MoveR -136,34
Else
MoveR 34,0
EndIf
Delay 2000
EndFor
RightClick 1
Delay 400
RightClick 1
Delay 1000
MoveR 34,0
RightClick 1
Delay 400
RightClick 1
Delay 1000
// ================================
hang=5
Gosub gopic
Delay 10000
Gosub 过地图
hang=1
Gosub gopic
Delay 10000
Gosub 过地图
hang=5
Gosub gopic
Delay 10000
Gosub 进城
xx=518
yy=265
Gosub gopos
Delay 20000
tupath="Attachment:\钱为一.bmp"
Gosub 找商人
// =========================
Delay 3000
intX=x:intY=y
MoveTo intX+50 intY+9
Delay 500
LeftClick 1
Delay 100
LeftClick 1
Delay 1000
Rem 找格2
VBSCall Call FindPic(500,0,808,627,"Attachment:\卖的.bmp",0.9,x1,y1)
If x1>=0 and y1>=0
Delay 100
Else
Goto 找格2
EndIf
MoveTo x1-37 y1+34
Delay 3000
j=0
For 27
j=j+1
RightClick 1
Delay 100
RightClick 1
Delay 1000
If (j Mod 5)=0
MoveR -136,34
Else
MoveR 34,0
EndIf
Delay 2000
EndFor
// 交还银票
MoveTo intX+50 intY-65
Delay 500
LeftClick 1
Delay 100
LeftClick 1
Delay 2000
Goto 再来
Sub 买东西
Rem 打开商店
MoveTo intX+50 intY+9
Delay 500
LeftClick 1
Delay 500
LeftClick 1
LeftClick 1
LeftClick 1
Delay 1000
VBSCall Call FindPic(200,100,500,400,maijia,1,x2,y2)
If x2>=0 and y2>=0
MoveTo x2-80 y2-5
Delay 500
Else
Goto 打开商店
EndIf
Rem 买
LeftClick 1
Delay 100
LeftClick 1
Delay 100
LeftClick 1
Delay 100
LeftClick 1
// 检查
VBSCall Call FindPic(250,0,600,150,"Attachment:\重.bmp",0.9,x3,y3)
If x3>=0 and y3>=0
Goto 打开商店
EndIf
VBSCall Call FindPic(250,0,600,150,nomon,0.9,x4,y4)
If x4>=0 and y4>=0
Delay 500
Else
Goto 买
EndIf
Return 买东西
Sub 卖东西
Rem 打开商店1
MoveTo intX+50 intY+9
Delay 500
LeftClick 1
Delay 100
LeftClick 1
Delay 1000
MoveTo x1-37 y1+34
Delay 4000
VBSCall Call FindPic(400,300,650,627,chujia,1,x5,y5)
If x5>=0 and y5>=0
Delay 1000
Else
Goto 打开商店1
EndIf
j=0
For i
j=j+1
VBSCall Call FindPic(250,0,600,150,"Attachment:\重.bmp",0.9,x3,y3)
If x3>=0 and y3>=0
Goto 打开商店1
EndIf
RightClick 1
Delay 100
RightClick 1
Delay 1000
If (j Mod 5)=0
MoveR -136,34
Else
MoveR 34,0
EndIf
Delay 2000
EndFor
Return 卖东西
// ============================================
Sub gopic
KeyPress 192,1
Rem 找全
Delay 2000
VBSCall Call FindPic(400,200,808,500,"Attachment:\自动寻路(全).bmp",0.9,x6,y6)
If x6>=0 and y6>=0
Delay 1000
MoveTo x6+64 y6+44+(hang-1)*16
Delay 1000
LeftClick 1
LeftClick 1
Delay 1000
MoveTo x6+64,y6+210
Delay 500
LeftClick 1
Delay 2000
LeftClick 1
Else
Goto 找全
EndIf
Return gopic
Sub 过地图
Rem 过图
Delay 3000
VBSCall Call FindPic(400,200,808,500,"Attachment:\自动寻路(全).bmp",0.9,x7,y7)
If x7>=0 and y7>=0
Goto 过图
Else
Delay 3000
EndIf
Return 过地图
Sub 进城
Rem 过城图
Delay 3000
VBSCall Call FindPic(0,0,808,627,"Attachment:\魂.bmp",0.9,x8,y8)
If x8>=0 and y8>=0
Delay 1000
MoveTo x8 y8+5
Delay 1000
LeftClick 1
LeftClick 1
Delay 3000
Else
Goto 过城图
EndIf
Return 进城
Sub gopos
KeyPress 9,1
Rem 区域
Delay 2000
VBSCall Call FindPic(250,0,808,400,"Attachment:\区域地图.bmp",0.9,x9,y9)
If x9>=0 and y9>=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 2000
VBSCall Call FindPic(200,100,700,500,tupath,0.9,x10,y10)
If x10>=0 and y10>=0
MoveTo x10 y10+84
Delay 1000
VBSCall Shape=GetCursorShape(0)
If Shape = 302826352
Delay 2000
LeftClick 1
Else
Goto 找人
EndIf
Else
Goto 找人
EndIf
Return 找商人
============================================================================
=========================================================================