中国留学之家，中国最优秀的留学咨询公司，全球顶尖大学申请专家！侠义道3合1脚本(按键精灵)

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

[General]
Description=侠义道综合脚本
BeginHotkey=120
BeginHotkeyMod=0
PauseHotkey=122
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=
[Attachment]
UEsDBBQAAgAIAGhcKTgV6YMRiAAAAGYCAAAIABEAZGl0dS5ibXBVVA0AB5ixhEeAfclHSVnKR3PyTWNiAAMzINYAYl4g5gNiRgYJsLgBVB4ZSOhoMuADHDCEH5TuDdr0Hr86AaiiPvzqUBQhqdt7/xocISlCBSA5JABTJIDiI7ii74clgIiDB4tOhLrvn5//vx4FUYpVHVTo/ef3/x/3QJTiUwcy8vv777+fQzyHRR2mKHZFWMIFWwQSjDuSAABQSwMEFAACAAgA6FJTOEG/5+siAAAAYAAAAAsAEQBzaHVsaWFuLmJtcFVUDQAHKK66R4B9yUcirrpHc/JNYIAAMyDWAGJGIOYC0wJgcS0gFuKGYBhQSCcOMzAAAFBLAwQUAAIACAAkJ2E4jUu5VpUAAADYAAAACwARAHlhb2RpYW4uYm1wVVQNAAcu4shHgH3JRyniyEdz8r3BAAFmQKwBxOxAzAXEjAwCYPFFQCzEDcEwwFP8Iq8hrSGNIYhBU4EFJPIqyyHJIUkhKsE2QQTEb0tTiAPBBZ4HFED8tCSGKBA84PtAA8yPexAKhoEKhiB+ehJDGAQ6mIL47UmKURAIkV+R5hQHgkpRjJogfnJSMxC2pDlHHZRhYHjsmRJ3JOtI1tGsw64OHCB5AFBLAwQUAAIACAAUv1o456rfU6wAAAAMAgAACQARAHRlc2h1LmJtcFVUDQAHSqfER4B9yUdFp8RHbVG7EcIwDHVochwUPkp6n63CLQPQ4IYpPAQDZAz2Yh70LBTZIda96GPJT1Luz/PBtXNjJMaVcWRMzrf4Z3LuchLoeb84l6AhsEUKyd3igdGDVXL1Wl9yocg1D8I9IkD92f8RIFIMDOaJoa/qs83X7+LBM4d5rdF86S4G9UzAVVjqhkW0zKO28YBFp96+qK/s8SQapzHd81gstZr+D/S1uoOxs5SxcdvA2An8L1BLAwQUAAIACAAsLmE4xlDPRp8BAADYAgAACAARAHNkYnouYm1wVVQNAAdS7shHgH3JR03uyEdtUr1q8zAUVYtAhroQSgoaPFyDoTIIY0FV8JiAhwxdMma0N68dPdp46Vs0Fn2Q4Ex5gL5A3TxG740JzfcRHa6RdHR/j5evX7fstF7QFNoM7RHt5rRj7AP5h7vJzkuYISplKZuglMV8OSvm+D1ZEzgYtTClDD3wQo9xfM4nhDzEm+VsVD3kptpcx+eikXu1Ax7vgHD/Vm14nNRdNp1z04Nn+6gJCgm8y5J6i7ni9aGi2D00UlhhxrSPtvK4SupD1WVdFq+TOl7nxsGgx1TYn2cXMZbUxxWxE5J6B00wqEELO+pSEn/OSiB+4bcB9mfbgPGt/L92HjO28EetstCj86U3VZ4bitjKiU/q9+LS+1DRHY8dCBv61ea4uvT+q2EfCbvwr0/v/g3jB8L2EHr/Zp+AM5pT/WNK3U35DxXNmEDRS4n9mxZfntXusmrzpz31553qS+pr2MEQqayFrTznPK7ei8sKftInzO9UAy2QirmJ16HfBD04cJEwqB9in/b6Ww+IUuLUSTe910MqjLKkH+k0psTTbtBOOdVG9O8Jw9gvUEsBAhcLFAACAAgAaFwpOBXpgxGIAAAAZgIAAAgACQAAAAAAAAAgAICBAAAAAGRpdHUuYm1wVVQFAAeYsYRHUEsBAhcLFAACAAgA6FJTOEG/5+siAAAAYAAAAAsACQAAAAAAAAAgAICBvwAAAHNodWxpYW4uYm1wVVQFAAcorrpHUEsBAhcLFAACAAgAJCdhOI1LuVaVAAAA2AAAAAsACQAAAAAAAAAgAICBGwEAAHlhb2RpYW4uYm1wVVQFAAcu4shHUEsBAhcLFAACAAgAFL9aOOeq31OsAAAADAIAAAkACQAAAAAAAAAgAICB6gEAAHRlc2h1LmJtcFVUBQAHSqfER1BLAQIXCxQAAgAIACwuYTjGUM9GnwEAANgCAAAIAAkAAAAAAAAAIACAgc4CAABzZGJ6LmJtcFVUBQAHUu7IR1BLBQYAAAAABQAFAEIBAACkBAAAAAA=

[Script]
//当前版本:2008年3月16日9:48
Gosub format2
VBS dim x00,y00
x00=xjc-389+4
y00=yjc+280-8
VBS dim xjingyan,yjingyan,cjingyan,colorjy1,colortempjy2
cjingyan="6365F7"
xjingyan=xjc-757
yjingyan=yjc+141
VBS dim xb,yb
VBS dim xz,yz
VBS dim xtemp,ytemp
VBS dim color
color="DEF3F7"
VBS dim xzuobiao,yzuobiao
VBS dim sz(4)
VBS dim yao1,yao2,yao3,yao
VBS dim shubiao
VBS dim xchushi,ychushi
VBS dim wuguai
wuguai=0
VBS dim zblx,zbly,zbhx,zbhy,zbzbx,zbzby,qzbx,qzby
zblx=xjc-452
zbly=yjc+510
zbhx=xjc-488
zbhy=yjc+510
zbzbx=xjc-92
zbzby=yjc+3
//Gosub hongyao
//MoveTo zblx zbly
//xshuzi=812
//yshuzi=738
//Gosub szsb
//VBSCall MessageBox(jg)
//EndScript
//Gosub lanyao
//VBSCall MessageBox(lannow)
//EndScript
If option1=1
Gosub maindaguai
EndIf
If option1=2
Gosub mainfz
EndIf
If option1=3
Gosub main25
EndIf
EndScript
Sub format2
UserVar option1=DropList{自动打怪:1|辅助武功:2|木人练功:3}=1 脚本目的
UserVar tt=2 查怪时间毫秒
UserVar dgsj=7 打怪时间秒
UserVar hgsj=100 回归时间秒
UserVar dgfw=12 打怪范围
UserVar hongmin=10 红药下限
UserVar hongmax=180 红药数量
UserVar lanmin=10 兰药下限
UserVar lanmax=350 兰药数量
VBS dim xjc,yjc
VBS dim option1
Plugin windowx=GetSysInfo.GetScreenResolutionX()
Plugin windowy=GetSysInfo.GetScreenResolutionY()
VBSCall call FindPic(0,0,windowx-1,windowy-1,"Attachment:\ditu.bmp",0.9,xjc,yjc)
If xjc-1 and yjc=-1
VBSCall MessageBox("没有找到侠义道游戏窗口!")
Goto jieshu
EndIf
Return
Sub maindaguai
qzbx=zbzbx
qzby=zbzby
Gosub zuobiao
xchushi=xzuobiao
ychushi=yzuobiao
Plugin timefh0=GetSysInfo.GetTime()
Gosub zhaoguai
Return
Sub main25
Rem wg25
jsq25=1
KeyPress 50,1
Delay 1000
Gosub zhaozhuang
Delay 2000
Gosub zhaozhuang
Delay 2000
//延时30秒
qzbx=zbzbx
qzby=zbzby
Gosub zuobiao
xchushi=xzuobiao
ychushi=yzuobiao
//找到木人巷中开始打桩的坐标
VBS dim xinfa,yxinfa
//x和y是心法栏坐标
VBS dim timebegin,timejishi
//定义起始时间,计时时间
xxinfa=xjc-304
//960
yxinfa=yjc+522
//750
Rem dsjc
Gosub 检测打坐时间
Rem begin25
Plugin timejishi=GetSysInfo.GetTime()
If timejishi-timebegin>=60000
timebegin=timebegin+60000
KeyPress 51,1
//按3键KeyPress 51,1
Delay 2000
MoveTo xjc-544 yjc+522
//720 750
LeftClick 1
//单击打坐
Delay 1000
KeyPress 50,1
jsq25=jsq25+1
//按2
EndIf
Gosub hongyao
Gosub lanyao
buyhong=hongmax-hongnow
buylan=lannow-lanmin
//查看红兰药是否够
If buylan<0
//兰药小于指定数量
quehong=0
//不买红药
quelan=lanmax-lannow
Gosub maiyaoshangdian
xmubiao=46
ymubiao=23
Gosub yidong1
xmubiao=xchushi
ymubiao=ychushi
Gosub yidong1
//买兰药
Goto wg25
//重新开始
EndIf
If jsq25>60
jsq25=1
Goto dsjc
//1小时后重新检测心法开始时间
EndIf
//gosub 买药
Delay 100
Goto begin25
Return
Sub mainfz
xzi=xjc-389
yzi=yjc+242
//自己坐标
Rem fzwg
jsqfz=1
KeyPress 51,1
//按3键
Delay 800
MoveTo xzi yzi
Delay 100
RightClick 1
Delay 100
VBS dim xinfa,yxinfa
//x和y是心法栏坐标
VBS dim timebegin,timejishi
//定义起始时间,计时时间
xxinfa=xjc-304
//960
yxinfa=yjc+522
//750
Rem fzcxjc
xunhuan=1
Gosub 检测打坐时间
Rem beginfz
Plugin timejishi=GetSysInfo.GetTime()
If timejishi-timebegin>=60000
timebegin=timebegin+60000
KeyPress 50,1
//按2键KeyPress 51,1
Delay 2000
MoveTo xjc-544 yjc+522
//720 750
LeftClick 1
//单击打坐
Delay 1000
KeyPress 51,1
jisfz=jsqfz+1
//按3
EndIf
Gosub hongyao
Gosub lanyao
buyhong=hongmax-hongnow
buylan=lannow-lanmin
//查看红兰药是否够
If buylan<0
//兰药小于指定数量
quehong=0
//不买红药
quelan=lanmax-lannow
Gosub maiyao
//买兰药
Goto fzwg
//重新开始
EndIf
If jsqfz>60
jsqfz=1
Goto fzcxjc
EndIf
//gosub 买药
Delay 100
Goto beginfz
Return
//
//
//
Sub 检测打坐时间
MoveTo xxinfa yxinfa
LockMouse
Delay 100
For 6000
VBSCall Call FindPic(xjc-314,yjc+492,xjc-164,yjc+547,"Attachment:\shulian.bmp",0.9,xjcxinfa,yjcxinfa)
//VBSCall MessageBox(xjcxinfa)
If xjcxinfa<0
Plugin timebegin=GetSysInfo.GetTime()
timebegin=timebegin-3000
// VBSCall MessageBox(xjcxinfa)
UnlockMouse
MoveTo xjc-544 yjc+522
Goto 返回检测打坐时间
EndIf
Delay 10
EndFor
Rem 返回检测打坐时间
Return
//
//
//
//
//
Sub zhaoguai
Rem z00
kaiguan=0
Gosub hongyao
Gosub lanyao
buyhong=hongmax-hongnow
buylan=lannow-lanmin
If buyhong<0 or buylan<0
quehong=hongmax-hongnow
quelan=lanmax-lannow
Gosub maiyao
EndIf
yb=0
While yb<=6 and kaiguan=0
Gosub heibao
If kaiguan=1
Goto z00
EndIf
qzbx=zbzbx
qzby=zbzby
Gosub zuobiao
fwx=abs(xzuobiao-xchushi)
fwy=abs(yzuobiao-ychushi)
If fwx>(dgfw+1-1) or fwy>(dgfw+1-1)
Goto dg0009
EndIf
Plugin timefh1=GetSysInfo.GetTime()
If (timefh1-timefh0)>hgsj*1000
Plugin timefh0=GetSysInfo.GetTime()
wuguai=wuguai+1
Goto dg0009
EndIf
//上左//
If kaiguan=0
Gosub heibao
If kaiguan=1
Goto z00
EndIf
xb=yb
While xb>=0.5
xz=-1*xb*64+x00
yz=-1*(yb)*32+y00
MoveTo xz yz
Delay tt
xxs=-1
yxs=-1
Gosub panduan
xb=xb-0.5
EndWhile
EndIf
//上右
If kaiguan=0
xb=0
Gosub heibao
If kaiguan=1
Goto z00
EndIf
While xb<yb
xz=1*xb*64+x00
yz=-1*(yb)*32+y00
MoveTo xz yz
Delay tt
xxs=1
yxs=-1
Gosub panduan
xb=xb+0.5
EndWhile
EndIf
//右上
If kaiguan=0
xb=yb
Gosub heibao
If kaiguan=1
Goto z00
EndIf
While xb>=0.5
xz=1*yb*64+x00
yz=-1*(xb)*32+y00
MoveTo xz yz
Delay tt
xxs=1
yxs=-1
Gosub panduan
xb=xb-0.5
EndWhile
EndIf
If kaiguan=0
xb=0
Gosub heibao
If kaiguan=1
Goto z00
EndIf
While xb<yb
xz=1*yb*64+x00
yz=1*(xb)*32+y00
MoveTo xz yz
Delay tt
xxs=1
yxs=1
Gosub panduan
xb=xb+0.5
EndWhile
EndIf
If kaiguan=0
//下右
xb=yb
Gosub heibao
If kaiguan=1
Goto z00
EndIf
While xb>=0.5
xz=1*xb*64+x00
yz=1*(yb)*32+y00
MoveTo xz yz
Delay tt
xxs=1
yxs=1
Gosub panduan
xb=xb-0.5
EndWhile
EndIf
If kaiguan=0
xb=0
Gosub heibao
If kaiguan=1
Goto z00
EndIf
While xb<yb
xz=-1*xb*64+x00
yz=1*(yb)*32+y00
MoveTo xz yz
Delay tt
xxs=-1
yxs=1
Gosub panduan
xb=xb+0.5
EndWhile
EndIf
If kaiguan=0
//左下
xb=yb
Gosub heibao
If kaiguan=1
Goto z00
EndIf
While xb>=0.5
xz=-1*yb*64+x00
yz=1*(xb)*32+y00
MoveTo xz yz
Delay tt
xxs=-1
yxs=1
Gosub panduan
xb=xb-0.5
EndWhile
EndIf
If kaiguan=0
//左上
xb=0
Gosub heibao
If kaiguan=1
Goto z00
EndIf
While xb<=yb
xz=-1*yb*64+x00
yz=-1*(xb)*32+y00
MoveTo xz yz
Delay tt
xxs=-1
yxs=-1
Gosub panduan
xb=xb+0.5
EndWhile
EndIf
If kaiguan=0
yb=yb+1
If yb>6
wuguai=wuguai+1
EndIf
EndIf
Rem zg0011
EndWhile
Rem dg0009
If kaiguan=0
If int(wuguai/2)<>(wuguai/2)
xmubiao=xchushi
ymubiao=ychushi
Gosub yidong
EndIf
If wuguai=0
xmubiao=xchushi
ymubiao=ychushi
Gosub yidong
EndIf
If wuguai=2
xmubiao=xchushi+5
ymubiao=ychushi+5
Gosub yidong
EndIf
If wuguai=4
xmubiao=xchushi+5
ymubiao=ychushi-5
Gosub yidong
EndIf
If wuguai=6
xmubiao=xchushi-5
ymubiao=ychushi-5
Gosub yidong
EndIf
If wuguai>=8
xmubiao=xchushi-5
ymubiao=ychushi+5
Gosub yidong
wuguai=0
EndIf
EndIf
Goto z00
Return
//
//
//
Sub panduan
VBS dim shubiao
VBSCall shubiao=GetCursorShape(0)
If shubiao=0
Gosub jianwu
EndIf
If shubiao=1636693117
Gosub daguai
EndIf
Return
//
Sub jianwu
Gosub heibao
If kaiguan=1
Goto jianwu00
EndIf
LeftClick 2
Delay 500
kaiguan=1
VBSCall FindColor(xjc-770,yjc+157,xjc-712,yjc+165,"6365F7",x08,y08)
VBSCall FindColor(xjc-707,yjc+157,xjc-674,yjc+165,"6365F7",x09,y09)
If x08>0 and x09<0
kaiguan=0
EndIf
Rem jianwu00
Return
//
//
Sub daguai
Gosub heibao
If kaiguan=1
Goto daguai01
EndIf
If xb>2 or yb>2
LeftClick 1
Delay sqrt(xb*xb+yb*yb)*110
kaiguan=1
Else
RightClick 2
Gosub dasiguai
EndIf
Rem daguai01
//EndIf
Return
//
//
Sub dasiguai
//判断怪是否被打死
VBS dim timedg0,timedg1
Plugin timedg0=GetSysInfo.GetTime()
Rem dsg01
Gosub heibao
If kaiguan=1
Goto z01
EndIf
VBSCall colortempjy1=GetPixelColor(xjingyan,yjingyan)
VBSCall colortempjy2=GetPixelColor(xjingyan,yjingyan+18)
Delay 100
If colortempjy1=cjingyan or colortempjy2=cjingyan
kaiguan=1
Goto z01
EndIf
Plugin timedg1=GetSysInfo.GetTime()
If (timedg1-timedg0)>dgsj*1000
kaiguan=1
Goto z01
EndIf
Goto dsg01
Rem z01
Return
//
//
//
//
Sub hongyao
qzbx=zbhx
qzby=zbhy
Gosub chayao
hongnow=yao
If hongnow<=0
hongnow=999
EndIf
Return
Sub lanyao
qzbx=zblx
qzby=zbly
Gosub chayao
lannow=yao
//If hongnow<=0
//hongnow=999
//EndIf
Return
//
Sub chayao
//查看背包里红兰药情况
//Gosub heibao
xshuzi=qzbx
yshuzi=qzby
Gosub szsb
yao1=jg
xshuzi=xshuzi+6
Gosub szsb
yao2=jg
xshuzi=xshuzi+6
Gosub szsb
yao3=jg
If yao1=-1
yao=0
Goto 药识别完成
EndIf
If yao2=-1
yao=yao1
yao2=0
Goto 药识别完成
EndIf
If yao3=-1
yao=yao1*10+yao2
yao3=0
Goto 药识别完成
EndIf
yao=yao1*100+yao2*10+yao3
Rem 药识别完成
Return
Sub maiyao
//买药子程序,用于打开随身药店购买药品.
//买药子程序,此买药子程序为随身药店买药
xzi=xjc-389
yzi=yjc+197
Rem my00
yuanhuan=0
Rem yd01
xxz=xzi
yyz=yzi
MoveTo xxz yyz
Delay 30
VBSCall FindPic(xzi-60,yzi,xzi+15,yzi+100,"Attachment:\yaodian.bmp",0.7,xssyd,yssyd)
If xssyd<0
yuanhuan=yuanhuan+1
If yuanhuan>10
MessageBox 未找到随身药店
Goto jieshu
EndIf
yyz=yyz+10
Goto yd01
EndIf
Rem yd02
Delay 1000
teshu=0
MoveTo xxz yzi
Delay 30
KeyDown 18,1
RightClick 1
KeyUp 18,1
Rem yd021
Delay 100
VBSCall FindPic(xzi-400,yzi-300,xzi+400,yzi+300,"Attachment:\teshu.bmp",0.7,xssyd1,yssyd1)
If xssyd1<0
teshu=teshu+1
If teshu>5
teshu=0
Goto yd02
EndIf
Goto yd021
EndIf
Rem yd03
Delay 1000
tishi=0
MoveTo xssyd1+2 yssyd1+2
Delay 100
LeftClick 1
Rem yd031
Delay 1000
VBSCall yaodianyanse=GetPixelColor(xjc-410,yjc+162)
If yaodianyanse<>"63EBD6"
tishi=tishi+1
If tishi>5
tishi=0
Goto yd02
EndIf
Goto yd031
EndIf
Rem yd04
Delay 1000
MoveTo xjc-423 yjc+301
Delay 500
LeftClick 1
Delay 1000
VBSCall yaodianyanse=GetPixelColor(xjc-410,yjc+162)
If yaodianyanse="63EBD6"
MoveTo xjc-423 yjc+301
Delay 500
LeftClick 1
MessageBox 钱不够,打不开随身药店
Goto jieshu
EndIf
Rem yd05
tishi1=0
Delay 1000
VBSCall FindPic(xzi-400,yzi-300,xzi+400,yzi+300,"Attachment:\sdbz.bmp",0.8,xssyd2,yssyd2)
If xssyd2<0
Delay 1000
tishi1=tishi1+1
If tishi1>15
MessageBox 没有找到药店标志
Goto jieshu
EndIf
Goto yd05
EndIf
MoveTo xjc-204 yjc+532
Delay 300
LeftClick 1
MoveTo xssyd2+245 yssyd2-273
Delay 800
For int(quelan/9)
Delay 150
RightClick 2
EndFor
MoveTo xssyd2+245-174 yssyd2-273
Delay 800
For int(quehong/9)
Delay 150
RightClick 2
EndFor
MoveTo xssyd2+245+7 yssyd2-273-43
Delay 100
LeftClick 1
Return
//
//
//
Sub zuobiao
Rem zuobiao01
qzbx=zbzbx
qzby=zbzby
xshuzi=qzbx
yshuzi=qzby
i=1
For 3
Gosub szsb
sz(i)=jg
xshuzi=xshuzi+6
i=i+1
EndFor
xzuobiao=sz(1)*100+sz(2)*10+sz(3)
xshuzi=qzbx+24
i=1
For 3
Gosub szsb
sz(i)=jg
xshuzi=xshuzi+6
i=i+1
EndFor
yzuobiao=sz(1)*100+sz(2)*10+sz(3)
If xzuobiao<=0
Delay 1000
Goto zuobiao01
EndIf
Return
Sub szsb
//数字识别
//1924567380空
VBSCall ctemp1=GetPixelColor(xshuzi+3,yshuzi+3)
If ctemp1=color
jg=1
Goto wancheng
EndIf
VBSCall ctemp1=GetPixelColor(xshuzi+2,yshuzi+7)
If ctemp1=color
jg=9
Goto wancheng
EndIf
VBSCall ctemp1=GetPixelColor(xshuzi+3,yshuzi+5)
VBSCall ctemp2=GetPixelColor(xshuzi+2,yshuzi+6)
If ctemp1=color and ctemp2=color
jg=2
Goto wancheng
EndIf
VBSCall ctemp1=GetPixelColor(xshuzi+3,yshuzi+2)
VBSCall ctemp2=GetPixelColor(xshuzi+2,yshuzi+3)
If ctemp1=color and ctemp2=color
jg=4
Goto wancheng
EndIf
VBSCall ctemp1=GetPixelColor(xshuzi+5,yshuzi+1)
VBSCall ctemp2=GetPixelColor(xshuzi+1,yshuzi+4)
If ctemp1=color and ctemp2=color
jg=5
Goto wancheng
EndIf
VBSCall ctemp1=GetPixelColor(xshuzi+4,yshuzi+2)
VBSCall ctemp2=GetPixelColor(xshuzi+1,yshuzi+4)
If ctemp1=color and ctemp2=color
jg=6
Goto wancheng
EndIf
VBSCall ctemp1=GetPixelColor(xshuzi+1,yshuzi+2)
VBSCall ctemp2=GetPixelColor(xshuzi+4,yshuzi+3)
If ctemp1=color and ctemp2=color
jg=7
Goto wancheng
EndIf
VBSCall ctemp1=GetPixelColor(xshuzi+3,yshuzi+4)
VBSCall ctemp2=GetPixelColor(xshuzi+2,yshuzi+4)
If ctemp1=color and ctemp2<>color
jg=3
Goto wancheng
EndIf
VBSCall ctemp1=GetPixelColor(xshuzi+3,yshuzi+1)
VBSCall ctemp2=GetPixelColor(xshuzi+1,yshuzi+4)
If ctemp1=color and ctemp2<>color
jg=8
Goto wancheng
EndIf
VBSCall ctemp1=GetPixelColor(xshuzi+3,yshuzi+1)
If ctemp1=color
jg=0
Goto wancheng
EndIf
VBSCall ctemp1=GetPixelColor(xshuzi+3,yshuzi+1)
If ctemp1<>color
jg=-1
Goto wancheng
EndIf
Rem wancheng
Return
//原打怪待调试
//
//
//
Sub yidong1
//反回指定坐标点的子程序,用于返回定点打怪的起始点,以及回原点后向其他方向移动找怪使用.
// 向指定点走动,3秒后,不论是否走到指定位置,均开始搜索怪物
//
qzbx=zbzbx
qzby=zbzby
VBS dim bj
bj=2
//定义走路步进值
VBS dim x02,y02
//定义屏幕鼠标指向坐标
VBS dim zlsj0,zlsj1
//定义走路时间
Plugin zlsj0=GetSysInfo.GetTime()
Gosub zuobiao
//检测当前坐标
While abs(xzuobiao-xmubiao)>2 or abs(yzuobiao-ymubiao)>2
VBSCall FindColor(x00-350,y00-250,x00+350,y00+250,"63EBD6",x05,y05)
If x05>0
MoveTo xjc-424 yjc+302
Delay 100
LeftClick 1
EndIf
qzbx=zbzbx
qzby=zbzby
Gosub zuobiao
xjuli=xmubiao-xzuobiao
yjuli=ymubiao-yzuobiao
//计算当前坐标与目的坐标的距离
If abs(xjuli)>5 and abs(yjuli)>5
//横纵都大于5
bj=4
x02=x00+bj*64*(xjuli/abs(xjuli))
y02=y00+bj*(yjuli/abs(yjuli))*32
MoveTo x02 y02
Delay 100
VBSCall shape=GetCursorShape(0)
If shape<>885666304
//885666304 对话形状
LeftClick 1
EndIf
qzbx=zbzbx
qzby=zbzby
VBSCall FindColor(x00-350,y00-250,x00+350,y00+250,"63EBD6",x05,y05)
If x05>0
MoveTo xjc-424 yjc+302
Delay 100
LeftClick 1
EndIf
Gosub zuobiao
xjuli=xmubiao-xzuobiao
yjuli=ymubiao-yzuobiao
If abs(xjuli)<5 or abs(yjuli)<5
Goto pp001
EndIf
bj=3
x02=x00+bj*64*(xjuli/abs(xjuli))
y02=y00+bj*(yjuli/abs(yjuli))*32
MoveTo x02 y02
Delay 100
VBSCall shape=GetCursorShape(0)
If shape<>885666304
//885666304 对话形状
LeftClick 1

留学之家留学DIY社区