【原创】分享一个定点传送的功能（带解释）

kelove

	玩家喜欢跑图的感觉，便捷的传送太快餐了，不过有些玩家又觉得跑图太耗时间，所以就整了个定点地图传送，叫土豪传送，在QA里调用。 功能是跑到图的位置，然后记录，下次就可以直接传送过来了。 恩，就是你必须先跑一次，然后记录，同时只支持更换1个记录点，不然和传送就没区别了。 当然，有些活动地图，有规则的地图不能随便传送，所以也加入了不可定点的地图功能。 写得不好，仅供大家一起学习交流 先要设置全局HUMAN变量，记得QM载入下。 ;====这段是功能引导，可以写到QA，或者任务面板里，随时调用========    <土豪传送/@地图> | <记录地图信息(10万金币)/@记录> ;====这段就是功能实现================================== [@地图]\ #IF True #ACT ;读取全局变量 LoadVar HUMAN 土豪地图 ..\QuestDiary\游戏数据\地图数据\<$USERNAME>.txt LoadVar HUMAN 土豪地图名 ..\QuestDiary\游戏数据\地图数据\<$USERNAME>.txt LoadVar HUMAN 土豪地图坐标 ..\QuestDiary\游戏数据\地图数据\<$USERNAME>.txt #IF ;如果从来都没有记录过 CheckVar HUMAN 土豪地图 =   #ACT ;就提示下，先要记录 SENDMSG 5 你还没有记录地图信息 #ELSESAY ;如果记录过了，就可以开始传送了，传送分基本传送（随机点）和精准传送（定哪传哪） \   勇士[{color=graygolden <$USERNAME>}]你好!\\   你当前记录的地图是:  ¤¤ <$HUMAN(土豪地图)> ¤¤\   你记录的精确坐标是:  ¤¤ <$HUMAN(土豪地图坐标)> ¤¤\\     <传送(10万金币)/@传送>  <精准传送(20万金币)/@精准传送> [@记录] #IF True #ACT ;调取传送点位数据 LoadVar HUMAN 土豪地图 ..\QuestDiary\游戏数据\地图数据\<$USERNAME>.txt LoadVar HUMAN 土豪地图名 ..\QuestDiary\游戏数据\地图数据\<$USERNAME>.txt LoadVar HUMAN 土豪地图坐标 ..\QuestDiary\游戏数据\地图数据\<$USERNAME>.txt #SAY \   勇士[{color=graygolden <$USERNAME>}]你好!\   你之前记录的地图是:  ¤¤ <$HUMAN(土豪地图)> ¤¤\   你记录的精确坐标是:  ¤¤ <$HUMAN(土豪地图坐标)> ¤¤\\   目前，你在<$MAPNAME>\   要<color=green 花费10W金币>更新记录信息吗？\\     <确定，不差钱/@记录1>  <我再想想/@exit>         [@记录1] #IF ;检查钱 !CheckGold 100000 #ACT SENDMSG 7 金币不足10w！ ;钱不够就停止执行 break #IF ;看下这个图能不能做传送点 CheckVarList <$MAPNAME> ..\QuestDiary\游戏数据\地图数据\0不可记录地图.txt #ACT MessageBox 特殊地图不可使用！ #ELSEACT ;可以的话，拿钱，写入变量 take 金币 100000 CalcVar HUMAN 土豪地图 = <$MAPNAME> CalcVar HUMAN 土豪地图名 = <$M> MOV S299 $X INC S299 , INC S299 $Y CalcVar HUMAN 土豪地图坐标 = $STR(S299) ;同时把数据写到文本中持久化，重启服务器都有 SaveVar HUMAN 土豪地图 ..\QuestDiary\游戏数据\地图数据\<$USERNAME>.txt SaveVar HUMAN 土豪地图名 ..\QuestDiary\游戏数据\地图数据\<$USERNAME>.txt SaveVar HUMAN 土豪地图坐标 ..\QuestDiary\游戏数据\地图数据\<$USERNAME>.txt DELAYGOTO 500 @记录2 [@记录2] #IF True #ACT LoadVar HUMAN 土豪地图 ..\QuestDiary\游戏数据\地图数据\<$USERNAME>.txt LoadVar HUMAN 土豪地图名 ..\QuestDiary\游戏数据\地图数据\<$USERNAME>.txt LoadVar HUMAN 土豪地图坐标 ..\QuestDiary\游戏数据\地图数据\<$USERNAME>.txt SENDMSG 5 成功记录地图坐标：¤¤<$HUMAN(土豪地图)>→<$HUMAN(土豪地图坐标)>¤¤ #SAY \   恭喜勇士[{color=graygolden <$USERNAME>}]，地图记录成功！\\   你当前记录的地图是:  ¤¤ <$HUMAN(土豪地图)> ¤¤\   你记录的精确坐标是:  ¤¤ <$HUMAN(土豪地图坐标)> ¤¤\\     <确定/@exit> [@传送] #IF !CheckGold 100000 #ACT SENDMSG 7 金币不足10w！ break #IF ;这个是在特定地图里面，不能使用传送功能 EQUAL <$M> XNXN #ACT SENDMSG 5 特殊地图无法使用传送功能 #ELSEACT LoadVar HUMAN 土豪地图 ..\QuestDiary\游戏数据\地图数据\<$USERNAME>.txt LoadVar HUMAN 土豪地图名 ..\QuestDiary\游戏数据\地图数据\<$USERNAME>.txt take 金币 100000 MOV S298 $HUMAN(土豪地图) MOV S297 $HUMAN(土豪地图名) SENDMSG 0 玩家[%s]豪掷10个达不溜，使用土豪传送到¤¤<$STR(S298)>¤¤，土豪传送在游戏活动大厅中使用！ SENDMSG 5 即将传送到：¤¤<$STR(S298)>¤¤ ;基本传送 MAP $STR(S297) SENDMSG 5 传送到达！ break [@精准传送] #IF !CheckGold 200000 #ACT SENDMSG 7 金币不足20w！ break #IF EQUAL <$M> XNXN #ACT SENDMSG 5 特殊地图无法使用传送功能 #ELSEACT LoadVar HUMAN 土豪地图 ..\QuestDiary\游戏数据\地图数据\<$USERNAME>.txt LoadVar HUMAN 土豪地图名 ..\QuestDiary\游戏数据\地图数据\<$USERNAME>.txt LoadVar HUMAN 土豪地图坐标 ..\QuestDiary\游戏数据\地图数据\<$USERNAME>.txt take 金币 200000 MOV S298 $HUMAN(土豪地图) MOV S297 $HUMAN(土豪地图名) MOV S296 $HUMAN(土豪地图坐标) GETVALIDSTR $HUMAN(土豪地图坐标) , P0 P1 SENDMSG 5 即将传送到：¤¤<$STR(S298)>→<$STR(P0)>,<$STR(P1)>¤¤ ;精准传送 MapMove $STR(S297) $STR(P0) $STR(P1) SENDMSG 5 传送到达！ SENDMSG 0 玩家[%s]豪掷20个达不溜，使用土豪精准传送到¤¤<$STR(S298)>¤¤，土豪精准传送在游戏活动大厅中使用！ break 复制代码 共享出来，大家多指教·

moyan

	微微一挺，以表膜拜

he121409417

	66666666666

he121409417

	6666666666666

zxc5036652

	以前有个记忆蝴蝶，功能一样！

laji

	666666666666

910743963

	啥也不说了，楼主就是给力！

garozz

	鼓励转贴优秀传世工具和版本！

心已飘落

	传世单机就是给力

modou

	优秀的很简单的话