微端传奇游戏靠脚本实现和传奇世界官方一样的天人排行

开区开单机传奇如何实现和传奇世界官方一样的天人排行脚本如下：
[@天人排行]
{
#IF
random 1
#ACT
mov S0 $USERNAME
inc S0 |
#IF
PosEx $STR(S0) .\QuestDiary\无限排名\<$STR(S10)>.txt S0
#ACT
DELVARLIST $STR(S0) ..\QuestDiary\无限排名\<$STR(S10)>.txt
#IF
large P0 5
#ACT
break
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排名\<$STR(S10)>.txt S0 $STR(P0)
MOV P5 0
#IF
!equal S0 无
#ACT
mov S1
GETVALIDSTR $STR(S0) | S1 S2
GETVALIDSTR $STR(S2) | P5 S3
#IF
LARGE $TRJJ $STR(P5)
#ACT
MOV S0
GOTO @天人雕像
#ELSEACT
inc P1 1
inc P0 1
goto @天人排行
break
[@天人雕像]
#IF
EQUAL $TRFL 3
#ACT
GOTO @幻神圣殿
#IF
EQUAL $TRFL 4
#ACT
GOTO @赤魔圣殿
#IF
random 1
#ACT
MOV S30 $TRJJ
INC S30 |
#IF
PosEx $STR(S30) .\QuestDiary\数据文件\文本数据\天人重数.txt S2
#ACT
ReplaceText S2 $TRJJ
ReplaceText S2 |
INC S2 $JOB
#IF
random 1
#ACT
MOV S0 $USERNAME
INC S0 的护法数据
#IF
!EQUAL $GUILDNAME 无
!CHICKTXT .\QuestDiary\数据文件\飞升台数据\<$STR(S0)>.txt
#ACT
MOV S1
FORMATSTR S0 %s|%s|%s <$USERNAME>|<$TRJJ>|<$STR(P2)>
INSERTVARLIST $STR(P0) $STR(S0) .\QuestDiary\无限排名\<$STR(S10)>.txt
SETNPCNAME $STR(P1) $USERNAME $STR(P2)
FORMATSTR S1 　　　　　　　　　　　　　　　　　　{COLOR=Green#32%s}\　　　　　　　　%s，隶属于{COLOR=Green#32%s}行会\　　　　　　　　于%s年%s月%s日凭借他%s级实力，经过1次渡劫，终于飞升成功!\\　　　　　　　　那时天地变色、云霞翻滚，浩天破地的能量震撼着整个中州，九道\　　　　　　　　浩天神雷如期而至将渡劫者力量提炼的更加精纯，使其足以突破凡\　　　　　　　　间的束搏飞升更高的所在。 <$USERNAME>|<$STR(S2)>|<$GUILDNAME>|<$YEAR>|<$MONTH>|<$DAY>|<$LEVEL>
INSERTVARLIST $STR(P0) $STR(S1) .\QuestDiary\无限排名\<$STR(S11)>.txt
GOTO @修复雕像
break
#IF
EQUAL $GUILDNAME 无
!CHICKTXT .\QuestDiary\数据文件\飞升台数据\<$STR(S0)>.txt
#ACT
MOV S1
FORMATSTR S0 %s|%s|%s <$USERNAME>|<$TRJJ>|<$STR(P2)>
INSERTVARLIST $STR(P0) $STR(S0) .\QuestDiary\无限排名\<$STR(S10)>.txt
SETNPCNAME $STR(P1) $USERNAME $STR(P2)
FORMATSTR S1 　　　　　　　　　　　　　　　　　　{COLOR=Green#32%s}\　　　　　　　　%s\　　　　　　　　于%s年%s月%s日凭借他%s级实力，经过1次渡劫，终于飞升成功!\\　　　　　　　　那时天地变色、云霞翻滚，浩天破地的能量震撼着整个中州，九道\　　　　　　　　浩天神雷如期而至将渡劫者力量提炼的更加精纯，使其足以突破凡\　　　　　　　　间的束搏飞升更高的所在。 <$USERNAME>|<$STR(S2)>|<$YEAR>|<$MONTH>|<$DAY>|<$LEVEL>
INSERTVARLIST $STR(P0) $STR(S1) .\QuestDiary\无限排名\<$STR(S11)>.txt
GOTO @修复雕像
break
#IF
!EQUAL $GUILDNAME 无
CHICKTXT .\QuestDiary\数据文件\飞升台数据\<$STR(S0)>.txt
#ACT
GOTO @检测护法数据
MOV S1
FORMATSTR S0 %s|%s|%s <$USERNAME>|<$TRJJ>|<$STR(P2)>
INSERTVARLIST $STR(P0) $STR(S0) .\QuestDiary\无限排名\<$STR(S10)>.txt
SETNPCNAME $STR(P1) $USERNAME $STR(P2)
FORMATSTR S1 　　　　　　　　　　　　　　　　　　{COLOR=Green#32%s}\　　　　　　　　%s，隶属于{COLOR=Green#32%s}行会\　　　　　　　　于%s年%s月%s日凭借他%s级实力，经过1次渡劫，终于飞升成功!\\　　　　　　　　那时天地变色、云霞翻滚，浩天破地的能量震撼着整个中州，九道\　　　　　　　　浩天神雷如期而至将渡劫者力量提炼的更加精纯，使其足以突破凡\　　　　　　　　间的束搏飞升更高的所在。\\\　　　　　　　　　　%s渡劫时，有他的好友为他护法，这些人是：%s <$USERNAME>|<$STR(S2)>|<$GUILDNAME>|<$YEAR>|<$MONTH>|<$DAY>|<$LEVEL>|<$USERNAME>|<$STR(S12)>
INSERTVARLIST $STR(P0) $STR(S1) .\QuestDiary\无限排名\<$STR(S11)>.txt
GOTO @修复雕像
break
#IF
EQUAL $GUILDNAME 无
CHICKTXT .\QuestDiary\数据文件\飞升台数据\<$STR(S0)>.txt
#ACT
GOTO @检测护法数据
MOV S1
FORMATSTR S0 %s|%s|%s|%s <$USERNAME>|<$TRJJ>|<$STR(P2)>
INSERTVARLIST $STR(P0) $STR(S0) .\QuestDiary\无限排名\<$STR(S10)>.txt
SETNPCNAME $STR(P1) $USERNAME $STR(P2)
FORMATSTR S1 　　　　　　　　　　　　　　　　　　{COLOR=Green#32%s}\　　　　　　　　%s\　　　　　　　　于%s年%s月%s日凭借他%s级实力，经过1次渡劫，终于飞升成功!\\　　　　　　　　那时天地变色、云霞翻滚，浩天破地的能量震撼着整个中州，九道\　　　　　　　　浩天神雷如期而至将渡劫者力量提炼的更加精纯，使其足以突破凡\　　　　　　　　间的束搏飞升更高的所在。\\\　　　　　　　　　　%s渡劫时，有他的好友为他护法，这些人是：%s <$USERNAME>|<$STR(S2)>|<$YEAR>|<$MONTH>|<$DAY>|<$LEVEL>|<$USERNAME>|<$STR(S12)>
INSERTVARLIST $STR(P0) $STR(S1) .\QuestDiary\无限排名\<$STR(S11)>.txt
MOV P0 0
MOV P1 35
GOTO @修复雕像
break
[@修复雕像]
#IF
EQUAL $TRFL 3
gender MAN
#ACT
MOV P0 0
MOV P1 35
GOTO @开始修复
#IF
EQUAL $TRFL 3
gender WOMAN
#ACT
MOV P0 0
MOV P1 41
GOTO @开始修复
#IF
EQUAL $TRFL 4
gender MAN
#ACT
MOV P0 0
MOV P1 47
GOTO @开始修复
#IF
EQUAL $TRFL 4
gender WOMAN
#ACT
MOV P0 0
MOV P1 53
GOTO @开始修复
[@开始修复]
#IF
LARGE P0 5
#ACT
break
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\无限排名\<$STR(S10)>.txt S0 $STR(P0)
#IF
!equal S0 无
#ACT
GETVALIDSTR $STR(S0) | S0 S1
GETVALIDSTR $STR(S1) | S1 P3
SETNPCNAME $STR(P1) $STR(S0) $STR(P3)
INC P0 1
INC P1 1
GOTO @开始修复
break
[@检测护法数据]
#IF
random 1
#ACT
MOV S12 \
MOV S20
MOV S21
MOV S22
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\数据文件\飞升台数据\<$STR(S0)>.txt S20 0
#IF
!equal S20 无
#ACT
GETVALIDSTR $STR(S20) | S21 S22
INC S12 　　　　　　　　　　　　　　　　　　
INC S12 $STR(S21)
INC S12 　
INC S12 <Color=Green[]
INC S12 $STR(S22)
INC S12 >
INC S12 \
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\数据文件\飞升台数据\<$STR(S0)>.txt S20 1
#IF
!equal S20 无
#ACT
GETVALIDSTR $STR(S20) | S21 S22
INC S12 　　　　　　　　　　　　　　　　　　
INC S12 $STR(S21)
INC S12 　
INC S12 <COLOR=Green[]
INC S12 $STR(S22)
INC S12 >
INC S12 \
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\数据文件\飞升台数据\<$STR(S0)>.txt S20 2
#IF
!equal S20 无
#ACT
GETVALIDSTR $STR(S20) | S21 S22
INC S12 　　　　　　　　　　　　　　　　　　
INC S12 $STR(S21)
INC S12 　
INC S12 <Color=Green[]
INC S12 $STR(S22)
INC S12 >
INC S12 \
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\数据文件\飞升台数据\<$STR(S0)>.txt S20 3
#IF
!equal S20 无
#ACT
GETVALIDSTR $STR(S20) | S21 S22
INC S12 　　　　　　　　　　　　　　　　　　
INC S12 $STR(S21)
INC S12 　
INC S12 <Color=Green[]
INC S12 $STR(S22)
INC S12 >
INC S12 \
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\数据文件\飞升台数据\<$STR(S0)>.txt S20 4
#IF
!equal S20 无
#ACT
GETVALIDSTR $STR(S20) | S21 S22
INC S12 　　　　　　　　　　　　　　　　　　
INC S12 $STR(S21)
INC S12 　
INC S12 <Color=Green[]
INC S12 $STR(S22)
INC S12 >
INC S12 \
#IF
random 1
#ACT
ReadRandomStr ..\QuestDiary\数据文件\飞升台数据\<$STR(S0)>.txt S20 5
#IF
!equal S20 无
#ACT
GETVALIDSTR $STR(S20) | S21 S22
INC S12 　　　　　　　　　　　　　　　　　　
INC S12 $STR(S21)
INC S12 　
INC S12 <Color=Green[]
INC S12 $STR(S22)
INC S12 >
INC S12 \
[@幻神圣殿]
#IF
gender MAN
checkjob warrior
#ACT
mov P2 178
#IF
gender WOMAN
checkjob warrior
#ACT
mov P2 179
#IF
gender MAN
checkjob wizard
#ACT
mov P2 180
#IF
gender WOMAN
checkjob wizard
#ACT
mov P2 181
#IF
gender MAN
checkjob taoist
#ACT
mov P2 182
#IF
gender WOMAN
checkjob taoist
#ACT
mov P2 183
[@赤魔圣殿]
#IF
gender MAN
checkjob warrior
#ACT
mov P2 184
#IF
gender WOMAN
checkjob warrior
#ACT
mov P2 185
#IF
gender MAN
checkjob wizard
#ACT
mov P2 186
#IF
gender WOMAN
checkjob wizard
#ACT
mov P2 187
#IF
gender MAN
checkjob taoist
#ACT
mov P2 188
#IF
gender WOMAN
checkjob taoist
#ACT
mov P2 189
}