传奇私服服务端中全民智能推广系统脚本

#IF
CHECKVAR HUMAN 推广人 = 暂无
#ACT
BREAK
#IF
CHECKVAR HUMAN 首次充值 = 已领取
#ACT
BREAK
#IF
CheckOnline <$HUMAN(推广人)>
#ACT
Div N33 <$STR(N33)> 20
GAMEGOLD -  <$STR(N33)>
GuildNoticeMsg 254 162 [推广通知]:推广人【<$HUMAN(推广人)>】获得了来自[<$USERNAME>]的5%首次充值的奖励,共计[<$STR(N33)>]个元宝~！你也来推广吧！
CreateFile QuestDiary\传奇服务端\全民推广系统\临时数据\<$HUMAN(推广人)>.txt
AddTextList .\QuestDiary\传奇服务端\全民推广系统\临时数据\<$HUMAN(推广人)>.txt <$STR(N33)>
MOV S81 <$HUMAN(推广人)>
S81.GOTO @充值--通知推广人奖励
CALCVAR HUMAN 首次充值  = 已领取
SAVEVAR HUMAN 首次充值 ..\QuestDiary\传奇服务端\全民推广系统\被推广人数据.txt
#ELSEACT
Div N33 <$STR(N33)> 20
GAMEGOLD -  <$STR(N33)>
CreateFile QuestDiary\传奇服务端\全民推广系统\临时数据\<$HUMAN(推广人)>.txt
AddTextList .\QuestDiary\传奇服务端\全民推广系统\临时数据\<$HUMAN(推广人)>.txt <$STR(N33)>
AddTextList .\QuestDiary\传奇服务端\全民推广系统\临时数据\离线名单.txt <$HUMAN(推广人)>
CALCVAR HUMAN 首次充值  = 已领取
SAVEVAR HUMAN 首次充值 ..\QuestDiary\传奇服务端\全民推广系统\被推广人数据.txt
GuildNoticeMsg 254 162 [推广通知]:推广人【<$HUMAN(推广人)>】获得了来自[<$USERNAME>]的5%首次充值的奖励,共计[<$STR(N33)>]个元宝~！你也来推广吧！
[@充值--通知推广人奖励]
#IF
CHECKLEVELEX > 0
#ACT
GetListString .\QuestDiary\传奇服务端\全民推广系统\临时数据\<$USERNAME>.txt 0 S81
GAMEGOLD + <$STR(S81)>
messagebox  [推广通知]:\你获得了来自[<$HUMAN(被推广人)>]的5%首次充值的奖励,共计[<$STR(S81)>]个元宝！！

确实是难得好帖啊，顶先