一个小小的读自定坐标器(坐标内容无限,一只鱼提供)

//一个小小的读自定坐标器(坐标内容无限)
VBS Dim use_x(),use_y()
UserVar utxt=[2200,1200][1800,1600][2500,1500] 【人物路线设置】坐标之间大于100
UserVar lm=40 【灵敏度范围设置】数值越大灵敏度范围越宽
UserVar usd=100 【人物走路速度】数值越大越快
UserVar sd=300 【间隔速度设置】数值越大越慢
If utxt<>0
Gosub 【定义坐标系】
Gosub 【X坐标】
Gosub 【Y坐标】
Gosub 【查找最近坐标】
VBS pp=qq : qp=0
Rem 〖新-路线〗
Gosub 【X坐标】
Gosub 【Y坐标】
If okX>=use_x(pp)-lm And okX<=use_x(pp)+lm
If okY>=use_y(pp)-lm And okY<=use_y(pp)+lm
Rem 〖来-回〗
If qp=1
VBS pp=pp-1
If pp<0
VBS pp=0 : qp=0
Goto 〖来-回〗
EndIf 
ElseIf qp=0
VBS pp=pp+1
If pp>qi
VBS pp=qi : qp=1
Goto 〖来-回〗
EndIf 
EndIf 
EndIf 
EndIf 
If okXuse_x(pp)+lm
KeyDownH 37 1
Delay usd
KeyUpH 37 1
Else 
Goto 〖跳过X〗
EndIf 
Delay sd
Gosub 【战斗】
Gosub 【补药】
Rem 〖跳过X〗
If okYuse_y(pp)+lm
KeyDownH 38 1
Delay usd
KeyUpH 38 1
Else 
Goto 〖跳过Y〗
EndIf 
Delay sd
Gosub 【战斗】
Gosub 【补药】
Rem 〖跳过Y〗
Goto 〖新-路线〗
EndIf 
Sub 【定义坐标系】
VBS kk="]" : ii=0 : uu=1
Rem 〖坐标数量〗
VBS upos=Instr(uu,utxt,kk)
If upos<>0
VBS ii=ii+1:uu=upos+1
Goto 〖坐标数量〗
EndIf 
VBS ReDim use_x(ii),use_y(ii)
VBS ii=0 : uu=1
Rem 〖坐标赋值〗
VBS upos=Instr(uu,utxt,kk)
If upos<>0
VBS tt=Mid(utxt,uu,upos-uu)
VBS ss=Instr(1,tt,",")
VBS use_x(ii)=Cint(mid(tt,2,ss-2)) : use_y(ii)=Cint(Right(tt,Len(tt)-ss))
VBS ii=ii+1 : uu=upos+1
Goto 〖坐标赋值〗
EndIf 
Return 【定义坐标系】
Sub 【查找最近坐标】
VBS qq=0 : qi=ii-1
VBS dd=Abs(okX-use_x(qq))^2+Abs(okY-use_y(qq))^2
For qi
VBS qq=qq+1
VBS db=Abs(okX-use_x(qq))^2+Abs(okY-use_y(qq))^2
If db

取人物中心点坐标(onelife提供)

VBS diM hwnd,x,y,Temp,Rect(4)
Plugin hwnd=Window.Foreground()
Plugin Window.Move(hwnd,0,0)
Plugin Temp=Window.GetClientRect(hwnd)
VBS xStr=0
VBS M=InStr(Temp,"|")
While M>0
Rect(xStr)=Mid(Temp,1,M-1)
VBS Temp=Mid(Temp,M+1,len(Temp)-M)
VBS M=InStr(Temp,"|")
xStr=xStr+1
EndWhile 
Rect(Ubound(Rect)-1)=Temp
VBS M=0
While M:D 少女祈祷中...

游戏, 脚本 记录 # 1145 阅读

評論已關閉