详细完整的神秘旅者脚本(3)

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排名\技能项链.txt S0 5
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
MOV S3
goto @检测次数
FORMATSTR S10 %-10s%-18s%-12s%s 第6名|<$STR(S1)>|<$STR(S2)>|<$STR(S3)>

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排名\技能项链.txt S0 6
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
MOV S3
goto @检测次数
FORMATSTR S11 %-10s%-18s%-12s%s 第7名|<$STR(S1)>|<$STR(S2)>|<$STR(S3)>

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排名\技能项链.txt S0 7
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
MOV S3
goto @检测次数
FORMATSTR S12 %-10s%-18s%-12s%s 第8名|<$STR(S1)>|<$STR(S2)>|<$STR(S3)>

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排名\技能项链.txt S0 8
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
MOV S3
goto @检测次数
FORMATSTR S13 %-10s%-18s%-12s%s 第9名|<$STR(S1)>|<$STR(S2)>|<$STR(S3)>

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排名\技能项链.txt S0 9
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S1 S2
MOV S3
goto @检测次数
FORMATSTR S14 %-10s%-18s%-12s%s 第10名|<$STR(S1)>|<$STR(S2)>|<$STR(S3)>

#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页/@paihang>　　<第 2页/@paihang2>\

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

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

#IF
large P0 49999
#ACT
mov S3 <Color=orange[]
INC S3 全新大师技能任选一本
INC S3 >

[@shangjiao]
#ACT
checkitembox 请放入超级技能项链 1 12
#SAY
　　勇士可以在我这里递交<color=green 超级技能项链>用于提炼技能经\
验，每次递交都<color=green 可获得8000万-1亿经验，同时还可额外累>\
<color=green 积200点技能经验！>\\
　　<离开/@exit>\

[@getboxitem12]
#IF
!CHECKBAGSIZE 2
#ACT
break
#SAY
　　请将包裹保留2个空位\
\
　　<离开/@exit>

#IF
checkitemUPBOX
#ELSEACT
SENDMSG 5 升级框中的物品不存在或者是复制物品！
break
#IF
EQUAL $CHECKBOXITEM.NAME 超级技能项链
#SAY
　　恭喜你获得了{color=green <$STR(P10)>经验}！\
　　恭喜你获得了<color=green 200点技能经验>！\\
　　<离开/@exit>\
#ACT
TAKEID $CHECKBOXITEM.ItemExD
Calcvar HUMAN 技链1 + 200
SAVEVAR HUMAN 技链1 ..\QUESTDIARY\数据文件\个人变量\技能点数.txt
Calcvar HUMAN 技链2 + 200
SAVEVAR HUMAN 技链2 ..\QUESTDIARY\数据文件\个人变量\技能点数.txt
MOVR P10 2
INC P10 8
MUL P10 10000000
CHANGEEXP + $STR(P10)
SENDMSG 10 恭喜%s在中州神秘使者处递交超级技能项链时获得了200点技能经验，并幸运的获得了<$STR(P10)>经验的奖励！
GOTO @提交技能项链
break
#ELSESAY
　　你好像给错东西了，战歌网，麻烦再找一下吧！\\
　　<啊，给错了？我再找找/@exit>\

[@提交技能项链]
#IF
random 1
#ACT
MOV P0 0
GOTO @技能项链排行
checkitembox 请放入超级技能项链 1 12

[@技能项链排行]
#IF
PosEx $USERNAME .\QuestDiary\无限排名\技能项链.txt S0
#ACT
DELVARLIST $STR(S0) ..\QuestDiary\无限排名\技能项链.txt

#IF
large P0 999
#ACT
break

#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排名\技能项链.txt S0 $STR(P0)
MOV P1 0

#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S0 P1

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

[@xhjnjy]
　　你目前可使用的技能经验：{Color=Green <$HUMAN(技链2)>点}。\
　　<Color=Green 使用技能经验，>可<领悟各种技能书/@jiangli1>！\
　　{color=orange 注：技能经验领悟技能书截止时间为<$STR(G12)>月<$STR(G13)>日24点！}\\
　　<使用25000点技能经验领悟大师野蛮冲撞等技能书/@jnjyduihuan&25000&大师技能>\
　　<使用12000点技能经验领悟惊天动地等套装技能书/@jnjyduihuan&12000&套装技能>\
　　<使用5000点技能经验领悟瞬移技能书/@jnjyduihuan&5000&瞬移技能>\
　　<使用2000点技能经验领悟本职业权威级天人技能书/@jnjyduihuan&2000&权威技能>\
　　<使用1200点技能经验领悟本职业宗师级天人技能书/@jnjyduihuan&1200&宗师技能>\