神奇魔石传世私服脚本(2)

#IF
CHECKVAR HUMAN 魔石 > $STR(P1)
#ACT
FORMATSTR S0 %s|%s <$USERNAME>|<$HUMAN(魔石)>
INSERTVARLIST $STR(P0) $STR(S0) .\QuestDiary\无限排名\神奇魔石.txt
#ELSEACT
INC P0 1
GOTO @神奇魔石排行

[@检测第一次数]
#IF
random 1
#ACT
mov P0 $STR(S2)

#IF
large P0 99
SMALL P0 200
#ACT
mov S3 <Color=orange[]
INC S3 10亿经验
INC S3 >

#IF
large P0 199
#ACT
mov S3 <Color=orange[]
INC S3 30亿经验+勋章灵佩凭证
INC S3 >

[@检测次数]
#IF
random 1
#ACT
mov P1 $STR(S2)

#IF
large P1 99
#ACT
mov S4 <Color=orange[]
INC S4 10亿经验
INC S4 >

[@dailyret]
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排名\神奇魔石.txt S0 0
#IF
!equal S0 无
#ACT
mov S10
mov S11
mov S12
mov S13
mov S14
#ELSESAY
　　目前暂无信息，请稍后查看。\\
　　<离开/@exit>\
#ELSEACT
break

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排名\神奇魔石.txt S0 0
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
MOV S3
goto @检测第一次数
FORMATSTR S10 %-10s%-18s%-12s%s 第1名|<$STR(S1)>|<$STR(S2)>|<$STR(S3)>

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排名\神奇魔石.txt S0 1
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
MOV S4
goto @检测次数
FORMATSTR S11 %-10s%-18s%-12s%s 第2名|<$STR(S1)>|<$STR(S2)>|<$STR(S4)>

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排名\神奇魔石.txt S0 2
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S12 %-10s%-18s%-12s%s 第3名|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排名\神奇魔石.txt S0 3
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S13 %-10s%-18s%-12s%s 第4名|<$STR(S1)>|<$STR(S2)>

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排名\神奇魔石.txt S0 4
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
FORMATSTR S14 %-10s%-18s%-12s%s 第5名|<$STR(S1)>|<$STR(S2)>
#IF
random 1
#SAY
<color=orange 你今天为神奇魔石注入灵力：>{Color=Green <$HUMAN(魔石)>}次！\
<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
#ACT
ReadRandomStr ..\QuestDiary\无限排名\神奇魔石.txt S0 5
#IF
!equal S0 无
#SAY
　　<第 1页/@dailyret>　　<第 2页/@dailyret2>\
#ELSESAY
　　<第 1页/@dailyret>\

#IF
random 1
#SAY
<返回/@main>　　<关闭/@exit>

[@dailyret2]
#ACT
mov S10
mov S11
mov S12
mov S13
mov S14

#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)>