我们先在Market_Def文件夹下面建一个文本文档，改名游戏推广员-3.txt，然后加入以下脚本：
(@@InPutInteger, @@InPutString)
[@main]
<COLOR=clSkyBlue 你好！我是游戏推广员，一个好的游戏需要宣传，更需要您的推荐>\
<COLOR=clSkyBlue 如果感觉本服好玩，可介绍您的朋友过来一起玩哦！当然也会在物>\
<COLOR=clSkyBlue 质上给予奖励的！每个新区我们都要花费上千元的广告费，如果游>\
<COLOR=clSkyBlue 戏中的忠实玩家能带来广告效益，我们何尝不愿意把这昂贵的广告>\
<COLOR=clSkyBlue 费奖励给这些为我们宣传游戏的忠实玩家们呢？>\
<COLOR=clSkyBlue 所以针对这一现象，我们制定了如下奖励方案：>\
<介绍3个还朋友来本服，奖励100游戏点或者100QB/@介绍1> <COLOR=clAqua ←点击查看要求>\
<介绍5个还朋友来本服，奖励200游戏点或者200QB/@介绍1> <COLOR=clAqua ←点击查看要求>\
<介绍8个还朋友来本服，奖励350游戏点或者350QB/@介绍1> <COLOR=clAqua ←点击查看要求>\
[@介绍1]
<COLOR=clLime ①：><COLOR=clSkyBlue 介绍过来的朋友,每人等级达到85级,免费闭关修炼,无需他>\
<COLOR=clSkyBlue 花钱,大家算一下应当知道85级不是什么难事,免费闭关一秒30万>\
<COLOR=clSkyBlue 经验,并不需要多久就能到达。>\
<COLOR=clLime ②：><COLOR=clSkyBlue 在地图打怪时间累计超过2小时,也就是在打宝地图打怪时间>\
<COLOR=clAqua ↑↑↑↑↑↑↑↑↑><COLOR=clLime 只需达到这两点要求便可><COLOR=clAqua ↑↑↑↑↑↑↑↑>\
<COLOR=clSkyBlue 玩家操作流程: ①输入介绍来朋友的游戏名称→><COLOR=clLime 最多输入8个人名>\
<COLOR=clSkyBlue ②嘱咐朋友在注册账号时名字为你的游戏名称>\
<COLOR=clLime 名字不是游戏ID，在登陆器上注册账号时会有一个><COLOR=clAqua "你的名字"><COLOR=clLime 选项>\
<我要输入朋友的游戏名称/@@InPutString4> <我要领取奖励/@我要领取奖励>\
[@@InPutString4]
#if
checklevelex > 0
#act
DelayGoto 1 ~InPutString4
break
[~InPutString4]
#if
CHECKVAR HUMAN 宣传次数 < 8
#say
<COLOR=clLime 恭喜>：<$STR(S4)> <COLOR=clLime 已经记录到您的朋友列表！感谢您的支持>\
<COLOR=clLime 恭喜>：<$STR(S4)> <COLOR=clLime 已经记录到您的朋友列表！感谢您的支持>\
<COLOR=clLime 恭喜>：<$STR(S4)> <COLOR=clLime 已经记录到您的朋友列表！感谢您的支持>\
<COLOR=clLime 恭喜>：<$STR(S4)> <COLOR=clLime 已经记录到您的朋友列表！感谢您的支持>\
<COLOR=clLime 恭喜>：<$STR(S4)> <COLOR=clLime 已经记录到您的朋友列表！感谢您的支持>\ \
<返 回/介绍1>
#elseact
messagebox 您的账号已经记录的8个名字！
break
[@我要领取奖励]
注意：<COLOR=clSkyBlue 切勿自己一人申请多号作弊，当系统检测到你朋友的账号>\
<COLOR=clSkyBlue 在您的IP地址登陆过时这个资格将会无效。>\
<COLOR=clLime 系统奖励给您的是虚拟物品，拿到虚拟物品以后会告知您客服的>\
<COLOR=clLime QQ是多少，然后联系客服，十分钟内办理好！>\
<领取350元游戏点/@领取350> <领取200元游戏点/@领取200> <领取100元游戏点/@领取100>\
<COLOR=clSkyBlue 有人可能会怀疑这是不是真的？我相信通过这道程序带来的玩家>\
<COLOR=clSkyBlue 都是忠实玩家，15000元可以给我带来800个长期在线的玩家，您>\
<COLOR=clSkyBlue 说我愿意花这个宣传费不？况且现在传奇界暂还无人开发这套程>\
<COLOR=clSkyBlue 序来宣传自己的游戏，可想我们的技术也是相当到位的！>\
[@领取350]
#if
checknamelist ..\QuestDiary\游戏宣传\查询宣传.txt
#act
messagebox 您今天已经查询过数据，避免服务器负荷过大，明日再来查询吧！
break
#elseact
DELAYGOTO 1 @查询1
break
[@领取200]
#if
checknamelist ..\QuestDiary\游戏宣传\查询宣传.txt
#act
messagebox 您今天已经查询过数据，避免服务器负荷过大，明日再来查询吧！
break
#elseact
DELAYGOTO 1 @查询1
break
[@领取100]
#if
checknamelist ..\QuestDiary\游戏宣传\查询宣传.txt
#act
messagebox 您今天已经查询过数据，避免服务器负荷过大，明日再来查询吧！
break
#elseact
DELAYGOTO 1 @查询1
break
[@查询1]
#if
checklevelex > 0
#say
系统正在扫描ID数据库中包含您名字的游戏账号.
#act
DELAYGOTO 1000 @查询2
break
[@查询2]
#if
checklevelex > 0
#say
系统正在扫描ID数据库中包含您名字的游戏账号..
#act
DELAYGOTO 1000 @查询3
break
[@查询3]
#if
checklevelex > 0
#say
系统正在扫描ID数据库中包含您名字的游戏账号...
#act
DELAYGOTO 1000 @查询4
break
[@查询4]
#if
checklevelex > 0
#say
系统正在扫描ID数据库中包含您名字的游戏账号....
#act
DELAYGOTO 1000 @查询5
break
[@查询5]
#if
checklevelex > 0
#say
系统正在扫描ID数据库中包含您名字的游戏账号.....
#act
DELAYGOTO 1000 @查询6
break
[@查询6]
#if
checklevelex > 0
#say
账号注册资料中并未达到包含您游戏名称的数量，请稍后再试
|
[复制链接]
赣公网安备36050202000600号