Simone
纯干货上架，下面介绍几款大神编辑的实用游戏辅助代码，让你轻松玩出位。赶紧收藏吧。
代码1
x1=800:y1=600//目标点
x2=100:y2=100//起始点
MoveTox2,y2
k=(y2-y1)/(x2-x1)
b=y2-k*x2
Forx=x2Tox1Stepsgn(x1-x2)
//sgn函数为返回表示数字符号的整数。当(x1-x2)>0时,返回值为1.当(x1-x2)<0时,返回值为-1.当=0时,返回值为0
LeftDown1
MoveTox,(k*x+b)
LeftUp1
Delay1
Next
代码2
Call鼠标慢慢跑(100,100,800,600,5)
Sub鼠标慢慢跑(x1,y1,x2,y2,time1)
Dima,x,y,i
x=x1:y=y1
a=x2/y2
MoveTox1,y1
Fori=yToy2-1
y=y+1
x=y*a
LeftDown1
MoveTox,y
Delaytime1
Next
EndSub
代码3
//点到点直线移动，鼠标移动速度开始快后来越来越慢
Call老鼠慢慢跑(100,100,800,600,100)
Sub老鼠慢慢跑(x1,y1,x2,y2,times)
MoveTox1,y1
Whileabs(x1-x2)>5orabs(y1-y2)>5
GetCursorPosx1,y1
LeftDown1
MoveR(x2-x1)/4,(y2-y1)/4
LeftUp1
Delaytimes
Wend
LeftDown1
MoveTox2,y2
LeftUp1
EndSub
代码4
//点到点直线移动，并且可以设置移动几次到达目标地点
Dima,b,c,d,n,t//起点（100,100),终点（800,600）
a=100:b=100:c=800:d=600
//匀速直线移动
UserVarn=100"多少次移动到位"
UserVart=50"每一次移动相隔多少时间"
Call老鼠慢慢跑()
Sub老鼠慢慢跑
MoveToa,b
Delayt
Forn
x=(c-a)/n:y=(d-b)/n
LeftDown1
MoveRx,y
LeftUp1
Delayt
Next
EndSub
代码5
MoveTo100,100
Call老鼠慢慢跑(800,600,5,50)
Sub老鼠慢慢跑(x,y,mousestep,mouseDelay)
'x,y:移动终点坐标'mousestep:移动间距'mouseDelay:移动时间间隔(ms)
DimXstep,Ystep
Dimcurx,cury,PianYiX,PianYiY
GetCursorPoscurx,cury
Ifabs(curx-x) LeftDown1 MoveTox,y LeftUp1 ExitSub EndIf Xstep=(x-curx)/mousestep Ystep=(y-cury)/mousestep Ifabs(Xstep)>abs(Ystep)Then PianYiX=mousestep*sgn(Xstep) PianYiY=(y-cury)/abs(Xstep) Else PianYiX=(x-curx)/abs(Ystep) PianYiY=mousestep*sgn(Ystep) EndIf LeftDown1 MoveRPianYiX,PianYiY LeftUp1 DelaymouseDelay Call老鼠慢慢跑(x,y,mousestep,mouseDelay) EndSub
