[General]
Description=全自动跑商
BeginHotkey=50
BeginHotkeyMod=2
PauseHotkey=191
PauseHotkeyMod=2
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=ca-cs
[Script]
UserVar bcfx=0 帮车夫横坐标
UserVar bcfy=0  帮车夫纵坐标
UserVar bbbu=DropList{进帮派:1|长安买商品:2|跑去长寿:3}=1 从哪里开始
UserVar pro=DropList{60以上:150000|40级以上60级以下:100000}=150000 人物等级
UserVar cayouxian1=DropList{佛珠:3|扇子:2|武器:1}=1 长安第一优先商品
UserVar cayouxian2=DropList{佛珠:3|扇子:2|武器:1}=3 长安第二优先商品
UserVar cayouxian3=DropList{佛珠:3|扇子:2|武器:1}=2 长安第三优先商品
UserVar fz1=6500 佛珠直接买进价
UserVar fz2=7500 佛珠对比后最高买进价
UserVar fz3=10000 佛珠直接卖掉价
UserVar fz4=6000 佛珠对比后最低卖出价
UserVar sz1=3300 扇子直接买进价
UserVar sz2=4800 扇子对比后最高买进价
UserVar sz3=6000 扇子直接卖掉价
UserVar sz4=3000 扇子对比后最低卖出价
UserVar wq1=4500 武器直接买进价
UserVar wq2=6000 武器对比后最高买进价
UserVar wq3=8000 武器直接卖掉价
UserVar wq4=4000 武器最低卖掉价
UserVar csyouxian1=DropList{面粉:3|鹿茸:2|商品符:1}=1 长寿第一优先商品
UserVar csyouxian2=DropList{面粉:3|鹿茸:2|商品符:1}=3 长寿第二优先商品
UserVar csyouxian3=DropList{面粉:3|鹿茸:2|商品符:1}=2 长寿第三优先商品
UserVar mf1=2500 面粉直接买进价
UserVar mf2=3500 面粉对比后最高买进价
UserVar mf3=4500 面粉直接卖掉价
UserVar mf4=2000 面粉对比后最低卖掉价
UserVar lr1=6500 鹿茸直接买进价
UserVar lr2=7500 鹿茸对比后最高买进价
UserVar lr3=10000 鹿茸直接卖掉价
UserVar lr4=6000 鹿茸对比后最低卖出价
UserVar spf1=4500 商品符直接买进价
UserVar spf2=6000 商品符最高买进价
UserVar spf3=7500 商品符直接卖掉价
UserVar spf4=4000 商品符对比后最低卖出价
VBS cffz=0
VBS dqzt=0
VBS dqsr=0
VBS csdqzt=0
VBS csdqsr=0
VBS dxiang=0
VBS maidqzt=0
VBS gmcs=0
VBS gmzs=0
If bbbu=1
Gosub 进帮派
Gosub 进金库
Beep
Beep
Beep
Beep
Beep
Beep
Beep
Beep
Beep
Rem dengkongge
WaitKey x
If x=32
Else
Goto dengkongge
EndIf
Gosub 长安商品排序
EndIf
If bbbu=2
Gosub 长安商品排序
EndIf
If bbbu=3
gm1=1
gm2=1
gm3=1
Gosub 跑去长寿
EndIf
Sub 进帮派
t=1
l=2
k=-1
j=0
m=0
n=0
b=0
a=0
MoveTo 100,100
Delay 500*t
KeyPress 9,1
Delay 500*t
Rem mmap
VBSCall FindColor(3,22,643,502,"404CE0",x1,y1)
If x1>=0 and y1>=0
Else
KeyPress 9,1
Delay 500*t
Goto mmap
EndIf
x=431
y=135
x
=x+l
l=l*k
Gosub py
Delay 200
LeftClick 1
Delay 500*t
KeyPress 9,1
Delay 500*t
MoveTo 100,100
Rem mmpa
VBSCall FindColor(3,22,643,502,"404CE0",x1,y1)
If x1>=0 and y1>=0
KeyPress 9,1
Delay 500*t
Goto mmpa
EndIf
Delay 200*t
Gosub ifmove
VBSCall FindPic(3,22,502,603,"摊.bmp",0.8,x,y)
If x>0 and y>0
KeyDown 18,1
KeyPress 72,1
KeyUp 18,1
Delay 200*t
EndIf
KeyPress 120,1
Delay 200*t
Rem 帮主管
VBSCall FindPic(3,22,643,502,"帮主管的灯.bmp",0.8,x,y)
If x>0 and y>0
x=x-73
y=y+115
Gosub py
Delay 400
LeftClick 1
Delay 300
Rem fchat
VBSCall FindColor(71,274,104,291,"f8",x,y)
If x>0 and y>0
Gosub py
Delay 200
LeftClick 1
Delay 300
Rem schat
VBSCall FindColor(310,274,347,290,"f8fcf8",x,y)
If x>0 and y>0
x=x-200
y=y+25
Gosub py
LeftClick 1
Else
If m<8
m=m+1
Delay 300
Goto schat
Else
Goto 帮主管
EndIf
EndIf
Else
If j<20
j=j+1
Delay 300
Goto fchat
Else
Goto 帮主管
EndIf
EndIf
Else
Goto mmap
EndIf
Rem sureb
VBSCall FindColor(0,0,643,502,"f0f4a0",x,y)
If x>0 and y>0
Else
If a<20
Delay 200
a=a+1
Goto sureb
Else
Delay 200
Goto 帮主管
EndIf
EndIf
Return 进帮派
Sub 进金库
VBS a=0
Rem lkcf
If bcfx>0 or bcfy>0
x=bcfx
y=bcfy
Gosub py
Delay 100
LeftClick 1
Delay 200
Rem cffchat
VBSCall FindColor(50,249,165,308,"f8fcf8",x,y)
If x>0 and y>0
x=x+10
y=y+40
Gosub py
Delay 200
LeftClick 1
Delay 200
Else
If a<20
Delay 200
a=a+1
Goto cffchat
Else
Delay 200
Goto lkcf
EndIf
EndIf
Else
VBSCall FindPic(0,0,643,502,"车夫.bmp",0.72,x,y)
If x>0 and y>0
x=x+20
y=y+50
Gosub py
Delay 200
LeftClick 1
Delay 200
Goto cffchat
Else
MessageBox 不到帮派车夫，请手工设置
EndScript
EndIf 404页面网站源码
EndIf
Rem jsure
VBSCall FindColor(0,0,643,502,"f0f4a0",x,y)
If x>0 an
d y>0
If c<30
Delay 200
c=c+1
Goto jsure
Else
Delay 200
VBS a=20
Goto cffchat
EndIf
Else
EndIf
Return 进金库
Sub 接任务
Rem squ
VBS jd=0
VBS ti=0
VBS trw=0
VBS fangfa=0
x=136
y=80
Gosub py
Delay 100
LeftClick 1
Delay 200
MoveR 23,-13
LeftClick 1
Gosub ifmove
Delay 1000
Rem fdchat
VBSCall FindColor(3,100,620,502,"304c90",x,y)
If x>0 and y>0
Gosub py
Delay 100
LeftClick 1
Delay 200
MoveTo 100,100
Delay 100
Rem fschat
VBSCall FindColor(0,0,643,502,"f8",x,y)
If x>0 and y>0
Rem fthi
Delay 100
VBSCall FindColor(0,0,643,502,"f8",x,y)
If x>0 and y>0
VBSCall FindColor(387,346,405,357,"f8",x1,y1)
If x1>0 and y1>0
x=x+10
y=y+5
Gosub py
Delay 100
LeftClick 1
Delay 500
Rem completed
Plugin xiong=DBSoft.OCR(0,66,267,86,290,0,0,"Songti_13.Dll",0,0,"f8fcf8",0,0,"")
If xiong="雄"
x=255
y=322
Gosub py
Delay 100
LeftClick 1
Delay 200
Else
If ti<30
Delay 200
ti=ti+1
Goto completed
Else
Delay 200
Gosub jingbao
EndIf
EndIf
Else
x=x+230
y=y+36
Gosub py
Delay 100
LeftClick 1
Delay 1500
VBSCall FindColor(62,279,94,294,"f8fcf8",x,y)
If x>0 and y>0
MessageBox 无法申请到商人
Delay 100
Gosub jingbao
Else
Goto fdchat
EndIf
EndIf
Else
EndIf
Else
Delay 100
If jd<30
jd=jd+1
Delay 200
Goto fschat
Else
Delay 200
Goto fdchat
EndIf
EndIf
Else
If fangfa=0
x=585
y=109
Gosub py
Delay 100
LeftClick 1
Delay 200
MoveR -23,-13
LeftClick 1
Gosub ifmove
Delay 1000
VBS fangfa=1
Goto fdchat
Else
Goto squ
EndIf
EndIf
Return 接任务
Sub 离开帮派
VBS hn=0
VBS bm=0
VBS gv=0
VBS jt=0
Rem jqr
VBSCall FindPic(0,0,643,502,"机关人.bmp",0.6,x,y)
If x>0 and y>0
Delay 100
Rem djqr
x=x+20
y=y+30
Gosub py
Delay 100
LeftClick 1
Delay 200
Rem lkl
VBSCall FindColor(72,278,100,289,"f8fcf8",x,y)
If x>0 and y>0
x=x+10
y=y+35
Gosub py
Delay 100
LeftClick 1
Delay 200
Rem gud
VBSCall FindColor(0,0,643,502,"f0f4a0",x,y)
If x>0 and y>0
jt=1
Gosub py
Delay 100
LeftClick 1
Delay 300
Goto gud
Else
If jt=1
Goto led
EndIf
If gv<30
Delay 200
gv=gv+1
Goto gud
Else
Goto jqr
EndIf
EndIf
Else
If bm<30
Delay 200
bm=bm+1
Goto lkl
Else
Goto jqr
EndIf
EndIf
Else
If hn<30
Delay 200
hn=hn+1
VBSCall FindPic(0,0,643,502,"机关人2.bmp",0.6,x,y)
If x>0 and y>0
Goto djqr
Else
Goto jqr
EndIf
Else
MessageBox 不到传送机器人
Gosub jingbao
EndIf
EndIf
Rem led
Return 离开帮派
Sub 长安第一个商人
VBS l=2
VBS k=-1
VBS cf=0
VBS az=0
VBS maidqzt=1
Rem camap
VBSCall FindColor(3,22,643,502,"404CE0",x1,y1)
If x1>=0 and y1>=0
Else
KeyPress 9,1
Delay 500
Goto camap
EndIf
x=445
y=229
x=x+l
l=l*k
Gosub py
Delay 100
LeftClick 1
Delay 500
KeyPress 9,1
Delay 500
Rem campa
VBSCall FindColor(3,22,643,502,"404CE0",x1,y1)
If x1>=0 and y1>=0
KeyPress 9,1
Delay 500
Goto campa
EndIf
Delay 200
MoveTo 100,100
Delay 100
Gosub ifmove
Delay 200
KeyPress 120,1
Delay 200
VBSCall FindPic(3,22,502,603,"摊.bmp",0.8,x,y)
If x>0 and y>0
KeyDown 18,1
KeyPress 72,1
KeyUp 18,1
Delay 200
EndIf
Rem cafrist
VBSCall FindColor(0,0,620,502,"2834a0",x,y)
If x>150 and y<330 and x<435
x=x+5
y=y+35
Gosub py
Delay 100
LeftClick 1
x=100
y=100
Gosub py
Delay 100
Rem djy
VBSCall FindColor(72,
279,101,290,"f8fcf8",x,y)
If x>0 and y>0
x=x+10
y=y+20
Gosub py
LeftClick 1
Delay 500
Else
If cf<30
cf=cf+1
Delay 200
Goto djy
Else
Goto cafrist
EndIf
EndIf
Else
Goto camap
EndIf
Rem befsr
Plugin xia=DBSoft.OCR(0,68,313,90,336,0,0,"Songti_15.Dll",0,0,"00fcf8",0,0,"")
If xia="下"
Else
If az<30
Delay 200
az=az+1
Goto befsr
Else
Goto cafrist
EndIf
EndIf
VBS dqsr=1
Return 长安第一个商人
Sub 长安第二个商人
VBS l=2
VBS k=-1
VBS df=0
VBS bz=0
VBS dqzt=1
Rem damap
VBSCall FindColor(3,22,643,502,"404CE0",x1,y1)
If x1>=0 and y1>=0
Else
KeyPress 9,1
Delay 500
Goto damap
EndIf
x=350
y=288
x=x+l
l=l*k
Gosub py
Delay 100
LeftClick 1
Delay 500
KeyPress 9,1
Delay 500
Rem eampa
VBSCall FindColor(3,22,643,502,"404CE0",x1,y1)
If x1>=0 and y1>=0
KeyPress 9,1
Delay 500
Goto eampa
EndIf
Delay 200
MoveTo 100,100
Delay 100
Gosub ifmove
Delay 200
KeyPress 120,1
Delay 200
VBSCall FindPic(3,22,502,603,"摊.bmp",0.8,x,y)
If x>0 and y>0
KeyDown 18,1
KeyPress 72,1
KeyUp 18,1
Delay 200
EndIf
Rem casecond
VBSCall FindColor(0,0,643,502,"1814a8",x,y)
If x<600 and x>300 and y<300 and y>100
x=x-224
y=y+104
Gosub py
Delay 100
LeftClick 1
x=100
y=100
Gosub py
Delay 100
Rem djy2
VBSCall FindColor(72,279,101,290,"f8fcf8",x,y)
If x>0 and y>0
x=x+10
y=y+20
Gosub py
LeftClick 1
Delay 500
Else
If df<30
df=df+1
Delay 200
Goto djy2
Else
Goto casecond
EndIf
EndIf
Else
Goto damap
EndIf
Rem bessr
Plugin xia=DBSoft.OCR(0,68,313,90,336,0,0,"Songti_15.Dll",0,0,"00fcf8",0,0,"")
If xia="下"
Else
If bz<30
Delay 200
bz=bz+1
Goto bessr
Else
Goto casecond
EndIf
EndIf
VBS dqsr=2
If ddeng=1
Goto dddeng
EndIf
Return 长安第二个商人
Sub 长寿第一个商人
VBS cz=0
VBS l=2
VBS k=-1
VBS ef=0
Rem famap
VBSCall FindColor(3,22,643,502,"404CE0",x1,y1)
If x1>=0 and y1>=0
Else
KeyPress 9,1
Delay 500
Goto famap
EndIf
x=329
y=377
x=x+l
l=l*k