御海装备DB

laowai

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

lao5216

	;====这段是功能引导，可以写到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

123395056

	感谢分享，支持楼主一下！

ccp518168

	这东西我收了！谢谢楼主！传世单机社区真好！

zhcam

	感谢分享！！！

潮人

	感谢楼主的无私分享！要想传世单机社区好 就靠你我他

syxcs

	楼主发贴辛苦了，谢谢楼主分享！我觉得传世单机社区是注册对了！