独家传奇服务端复古版推荐金币奖励脚本

独家传奇服务端复古版推荐金币奖励脚本

出处：本站整理作者：佚名发布时间：2012-05-02阅读次数：

 
等级以及见奖励可以根据自己的游戏模式进行相应的修改 传奇服务端

首先在个人变量增加以下几个变量
VAR String HUMAN 推广
VAR String HUMAN 推荐
VAR Integer HUMAN 推记
VAR Integer HUMAN 金币

LOADVAR HUMAN 金币 ..\QuestDiary\数据文件\个人变量\个人变量.txt
LOADVAR HUMAN 推记 ..\QuestDiary\数据文件\个人变量\个人变量.txt
LOADVAR HUMAN 推广 ..\QuestDiary\数据文件\个人变量\个人变量.txt
LOADVAR HUMAN 推荐 ..\QuestDiary\数据文件\个人变量\个人变量.txt

在QManage.txt增加以下一段：

[@开始推广]
#ACT
CALCVAR HUMAN 推荐 = $PARAM(0)
SAVEVAR HUMAN 推荐 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
SENDMSG 5 (*)你推荐的玩家[<<$PARAM(0)>>]正式将你设置成为他的推广员，战歌网，只要他达到一定的等级，你就可以去领取大量的金币了！
break

在QFunction-0.txt增加以下一段：

[@PlayLevelUp]
#IF
CHECK [51] 1
CHECKLEVELEX = 28
#ACT
CALCVAR HUMAN 金币 = 1
SAVEVAR HUMAN 金币 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt

#IF
CHECK [51] 1
CHECKLEVELEX = 35
#ACT
CALCVAR HUMAN 金币 = 2
SAVEVAR HUMAN 金币 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt

#IF
CHECK [51] 1
CHECKLEVELEX = 46
#ACT
CALCVAR HUMAN 金币 = 3
SAVEVAR HUMAN 金币 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt

以下为NPC脚本：

(@s_repair @ZZSD )
[@main]FLASH(1)
\\
　　推广游戏不光是为我们带来更为旺盛的人气，也可以让你获得<color=green 大>\
<color=green 量的金币>，只要将我们的游戏推广给其他玩家且达到一定的等级，就\可以获得相应的金币奖励。\\
　　<color=00FF80C0 当等级超过28级就不能使用推荐功能了>\\
　　当你推荐的玩家等级达到<color=green 28级>时你可以获得<color=green 一个金条>。\
　　当你推荐的玩家等级达到<color=green 35级>时你可以获得<color=green 二个金条>。\
　　当你推荐的玩家等级达到<color=green 46级>时你可以获得<color=green 一块金砖>。\
　　<我的推荐员/@推荐>     <我来领取金币/@金币>    <我去努力努力/@exit>

[@金币]
#IF
EQUAL $HUMAN(推荐) 无
#ACT
SENDMSG 5 (*)你没有推荐的玩家！
break
close
#IF
!CHECKONLINE $HUMAN(推荐)
#ACT
SENDMSG 5 <$HUMAN(推荐)>现在不在线，无法领取金币！
break
close
#IF
EQUAL $HUMANINFO.$HUMAN(推荐).$HUMAN(金币) 无
#ACT
SENDMSG 5 (*)你推荐的玩家<<$HUMAN(推荐)>>还没有达到28级，无法领取金币！
break
close
#IF
EQUAL $HUMANINFO.$HUMAN(推荐).$HUMAN(金币) 1
CHECK [52] 0
#ACT
SET [52] 1
GIVE 金条 1
SENDMSG 0 (*)恭喜<%s>所推荐的玩家<$HUMAN(推荐)>成功等级到28级，获得了一个金条的奖励
break
#IF
EQUAL $HUMANINFO.$HUMAN(推荐).$HUMAN(金币) 2
CHECK [53] 0
#ACT
SET [53] 1
GIVE 金条 2
SENDMSG 0 (*)恭喜<%s>所推荐的玩家<$HUMAN(推荐)>成功等级到35级，获得了二个金条的奖励
break
#IF
EQUAL $HUMANINFO.$HUMAN(推荐).$HUMAN(金币) 3
CHECK [54] 0
#ACT
SET [54] 1
GIVE 金砖 1
SENDMSG 0 (*)恭喜<%s>所推荐的玩家<$HUMAN(推荐)>成功等级到46级，获得了一块金砖的奖励
break
#ELSEACT
SENDMSG 5 (*) 你推荐的玩家没有达到相应的等级或者你已经领取过奖励了！
break

[@推荐]
#IF
CHECKLEVELEX > 28
#ACT
SENDMSG 5 (*)等级超过28级，不能推荐了！
break
close
#IF
CHECK [51] 1
#ACT
SENDMSG 5 (*)你已经推荐过了，一人只能推荐一人！
break
close
#IF
CHECKLEVELEX > 0
#ACT
queryvalue 请输入你的推广员名字 2 14 1203
break
#ELSEACT
break

[@getstring1203]
#IF
RANDOM 1
#ACT
Getstring S1
#IF
!CHECKONLINE $STR(S1)
#ACT
SENDMSG 5 <$STR(S1)>现在不在线，无法使用推广系统！
break
close
#IF
EQUAL $HUMANINFO.$STR(S1).$HUMAN(推荐) 无
#ACT
#ELSEACT
SENDMSG 5 (*)对方已经有推荐的玩家了，你不要来捣乱了，换个人吧！
break
close
#IF
!EQUAL S1 $USERNAME
#ACT
HCALL $STR(S1) @开始推广
SET [51] 1
CALCVAR HUMAN 推广 = $STR(S1)
SAVEVAR HUMAN 推广 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
SENDMSG 5 (*)恭喜你，推荐员设置成功，请抓紧升级吧！
break
close
#ELSEACT
SENDMSG 5 (*)自己不能做自己的推广员，请不要耍赖！
break
close