七星传世护符升级活动脚本(8)

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\数据文件\七星卷章\本服排名.txt S0 5
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S10 %-10s%-18s%s 第6名|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\数据文件\七星卷章\本服排名.txt S0 6
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S11 %-10s%-18s%s 第7名|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\数据文件\七星卷章\本服排名.txt S0 7
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S12 %-10s%-18s%s 第8名|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\数据文件\七星卷章\本服排名.txt S0 8
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S13 %-10s%-18s%s 第9名|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\数据文件\七星卷章\本服排名.txt S0 9
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S14 %-10s%-18s%s 第10名|<$STR(S1)>|<$STR(S2)>

#IF
#SAY
　　　　　　　　<Color=Green 本服今日七星卷章值排行榜>\
<Color=Green 名次　　  角色名　　　　 　今日提交七星卷章数目　　  >\
#IF
!EQUAL S10 无
#SAY
<$STR(S10)>\
#IF
!EQUAL S11 无
#SAY
<$STR(S11)>\
#IF
!EQUAL S12 无
#SAY
<$STR(S12)>\
#IF
!EQUAL S13 无
#SAY
<$STR(S13)>\
#IF
!EQUAL S14 无
#SAY
<$STR(S14)>\

#IF
random 1
#SAY
　　<第 1页/@ViewHHPH>　　<第 2页/@ViewHHPH1>\

[@领取昨日奖励]
   <color=orange 请选择您要领取的奖励：>\\
    <领取昨日七星卷章达标奖励/@zuorixyhl>\
    <离开/@exit>\\

[@zuorixyhl]
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\七星卷章\奖励2.txt
#ACT
GOTO @奖励2
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\七星卷章\奖励3.txt
#ACT
GOTO @奖励3
break
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\七星卷章\奖励4.txt
#ACT
GOTO @奖励4
break
#ELSESAY
年轻人，今日的领奖名单上面没有你的名字或者你已经领取过奖励了。

[@奖励4]
<COLOR=GREEN 请选择你的奖励:>\
<领取300次奖励/@领取300次奖励>\

[@领取300次奖励]
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\七星卷章\奖励4.txt
#ACT
ReadRandomStr ..\QuestDiary\数据文件\七星卷章\300次奖励.txt S1
give $STR(S1) 1
SENDMSG 8 恭喜{<$USERNAME>}上交七星卷章时,获得了本服第一名奖励:{<$STR(S1)>}。
DELNAMELIST ..\QuestDiary\数据文件\七星卷章\奖励4.txt
break
#ELSESAY
年轻人，你已经领取过奖励了。

[@奖励3]
<COLOR=GREEN 请选择你的奖励:>\
<领取200次奖励/@领取200次奖励>\

[@领取200次奖励]
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\七星卷章\奖励3.txt
#ACT
ReadRandomStr ..\QuestDiary\数据文件\七星卷章\200次奖励.txt S1
give $STR(S1) 1
SENDMSG 8 恭喜{<$USERNAME>}上交七星卷章时,获得了本服第二名奖励:{<$STR(S1)>}。
DELNAMELIST ..\QuestDiary\数据文件\七星卷章\奖励3.txt
break
#ELSESAY
年轻人，你已经领取过奖励了。

[@奖励2]
<COLOR=GREEN 请选择你的奖励:>\
<自由分配20亿经验/@分配20亿>\

[@分配20亿]
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\七星卷章\奖励2.txt
#say
<COLOR=GREEN 请您分配您的20亿经验值>\
<全部给本体/@给本体20亿>\
<全部给元神/@给元神20亿>\
<本体元神各10亿/@各10亿>

[@给本体20亿]
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\七星卷章\奖励2.txt
#ACT
GETEXP 2000000000
SENDMSG 0 玩家%S成功领取七星卷章的20亿经验值。
DELNAMELIST ..\QuestDiary\数据文件\七星卷章\奖励2.txt
BREAK

[@给元神20亿]
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\七星卷章\奖励2.txt
#ACT
$YSNAME.GETEXP 2000000000
SENDMSG 0 玩家%S成功领取七星卷章的20亿经验值。
DELNAMELIST ..\QuestDiary\数据文件\七星卷章\奖励2.txt
BREAK

[@各10亿]
#IF
!CHECKYS
#SAY
年轻人，你还没有元神啊，赶快去找魔法祭祀。
#ACT
BREAK
#IF
!CHECKONLINE $YSNAME
#ACT
BREAK
#SAY
你的元神不在线，请先释放你的元神。
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\七星卷章\奖励2.txt
#ACT
GETEXP 1000000000
$YSNAME.GETEXP 1000000000
SENDMSG 0 玩家%S成功领取七星卷章的10亿经验值。
DELNAMELIST ..\QuestDiary\数据文件\七星卷章\奖励2.txt
BREAK