今天窝牛号就给我们广大朋友来聊聊梦幻晴天,以下观点希望能帮助到您。

答Sub 飘移

rem 开始

x1=3

y1=22

x2=643

y2=502

Rem 鼠标位子

VBSCall FindColor(x1,y1,x2,y2,"c87c20",x3,y3)

If x3>0 and y3>0

IfColor x3+1,y3+1,A86c30,0

IfColor x3+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

VBS x4=Abs(x-x3)

VBS y4=Abs(y-y3)

If x4>50 or y4>50

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

x5=10

EndIf

If x5<-10

x5=-10

EndIf

If y5>10

y5=10

EndIf

If y5<-10

y5=-10

EndIf

MoveR x5,y5

VBSCall GetCursorPos(x3,y3)

Goto 鼠标位子计算

EndIf

If x4<4 and y4<4

Else

MoveR x5,y5

Delay 100

Goto 鼠标位子

EndIf

Return

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

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

//例子：

//x=100

/胡雹/y=100

//gosub 飘移

//不模哗需要用moveto了

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

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

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

对于梦幻晴天，看完本文，小编觉得你已经对它有了更进一步的认识，也相信你能很好的处理它。如果你还有其他问题未解决，可以看看窝牛号的其他内容。

本站所发布的文字与图片素材为非商业目的改编或整理，版权归原作者所有，如侵权或涉及违法，请联系我们删除