|
|
马上加入TC
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
好久没上过论坛了，丢个源码上来。好坏我就不评价了，我读书少，写的差勿喷
功能 自动寻路到(序号,当前X,当前Y,到达X,到达Y)
调试输出("执行移动到:"&到达X&","&到达Y)
变量 游戏距离X,屏幕距离X,比例,BP,OB,角COA,角OBP,OP,角BOP,角POD,OD,DP,点击距离X,点击距离Y,点击X,点击Y,角OPB
变量 角COB,角OAP,原OB,原BP,处理结果,角BOD,pi
pi=4*数学反正切值(1)
游戏距离X=16
屏幕距离X=数学开方(512*512+256*256)
比例=屏幕距离X/游戏距离X
原BP=到达X-当前X
原OB=到达Y-当前Y
OB=数学绝对值(原OB)
BP=数学绝对值(原BP)
处理结果=处理(原OB,原BP)
如果(原BP==0&&原OB==0)
调试输出("人物就在目的地!")
OD=0
DP=0
否则
如果(原BP*原OB>=0)
角COA=数学反正切值(0.5)
角OBP=2*角COA
OP=数学开方(OB*OB+BP*BP-2*BP*OB*数学余弦值(角OBP))
如果(OB>=BP)
角BOP=数学反余弦值((OB*OB+OP*OP-BP*BP)/(2*OB*OP))
角POD=角COA+角BOP
OD=-OP*数学余弦值(角POD)*处理结果
DP=OP*数学正弦值(角POD)*处理结果
否则
角OPB=数学反余弦值((OP*OP+BP*BP-OB*OB)/(2*OP*BP))
角POD=角COA+角OPB
OD=OP*数学余弦值(角POD)*处理结果
DP=OP*数学正弦值(角POD)*处理结果
结束
否则
如果(原BP*原OB<=0)
角BOD=数学反正切值(0.5)
角OBP=pi-2*角BOD
OP=数学开方(OB*OB+BP*BP-2*BP*OB*数学余弦值(角OBP))
如果(OB>=BP)
角BOP=数学反余弦值((OB*OB+OP*OP-BP*BP)/(2*OB*OP))
角POD=角BOD-角BOP
如果(原OB>=0&&原BP<=0)
OD=-OP*数学余弦值(角POD)
DP=OP*数学正弦值(角POD)
否则
OD=OP*数学余弦值(角POD)
DP=-OP*数学正弦值(角POD)
结束
否则
角BOP=数学反余弦值((OP*OP+OB*OB-BP*BP)/(2*OB*OP))
角POD=角BOP-角BOD
如果(原OB>=0&&原BP<=0)
OD=-OP*数学余弦值(角POD)
DP=-OP*数学正弦值(角POD)
否则
OD=OP*数学余弦值(角POD)
DP=OP*数学正弦值(角POD)
结束
结束
结束
结束
点击距离X=取整(OD*比例)
点击距离Y=取整(DP*比例)
点击X=512+点击距离X
点击Y=384+点击距离Y
调试输出("执行点击坐标:"&点击X&","&点击Y)
大漠[序号].MoveTo(点击X,点击Y)
等待(30,50)
大漠[序号].LeftClick()
等待(随机数(300,500))
结束
结束
|
评分
-
查看全部评分
|
/2 
发表于 2018-3-31 13:27:00
楼主