求梦幻西游鼠标偏移源代码,给与100RMB

2024-07-17 23:24:05作者:饭克斯

Sub飘移

rem开始

x1=3

y1=22

x2=643

y2=502

Rem鼠标位子

VBSCallFindColor(x1,y1,x2,y2,c87c20,x3,y3)

Ifx3>0andy3>0

IfColorx3+1,y3+1,A86c30,0

IfColorx3+3,y3+3,804c28,0

x3=x3-19-3

y3=y3-18-3

Else

x1=x3+1

y1=y3+1

Goto鼠标位子

EndIf

Else

x1=x3+1

y1=y3+1

Goto鼠标位子

EndIf

Else

Goto鼠标位子

EndIf

Rem鼠标位子计算

x5=x-x3

y5=y-y3

VBSx4=Abs(x-x3)

VBSy4=Abs(y-y3)

Ifx4>50ory4>50

Ifx5>10//想移动快点可以把这里的10全改成20,30,50之类的

x5=10

EndIf

Ifx5<-10

x5=-10

EndIf

Ify5>10

y5=10

EndIf

Ify5<-10

y5=-10

EndIf

MoveRx5,y5

VBSCallGetCursorPos(x3,y3)

Goto鼠标位子计算

EndIf

Ifx4<4andy4<4

Else

MoveRx5,y5

Delay100

Goto鼠标位子

EndIf

Return

//以上脚本子程序已经把梦幻鼠标的漂移问题解决了,要想更完美,在此基础上改

//---------------------------------------------------------------------------------------------------

//例子:

//x=100

//y=100

//gosub飘移

//不需要用moveto了

//---------------------------------------------------------------------------------------------------

//运行环境:32色,经典主题,窗口位置0,0

//---------------------------------------------------------------------------------------------------

展开全文

热门推荐

相关攻略