充值排名脚本，共100名

;ChangeCustomValue 5 + 1 这是加在充值平台上的变量。有的充值平台写 ChangeCustomValue 5 就行
;充值5元即可上榜

[@main]
#IF
Check [743] 1
#act
MESSAGEBOX 查看过于频繁，请间隔5秒查看排名！
BREAK
CLOSE

#IF
!SMALL $CustomValue(5) 5
#ACT
MOV S1 $USERNAME
#IF
!SMALL $CustomValue(5) 5
!PosInlist $STR(S1) ..\QuestDiary\各种排名\充值排名.txt
#ACT
MOV S8 $USERNAME
INC S8 |
INC S8 $CustomValue(5)
INC S8 |
INC S8 元
ADDVARLIST $STR(S8) ..\QuestDiary\各种排名\充值排名.txt
ClearVar S0 20
BREAK

#IF
!SMALL $CustomValue(5) 5
PosInlist $STR(S1) ..\QuestDiary\各种排名\充值排名.txt S0
#ACT
#IF
POS $STR(S0) |
POS $STR(S0) $STR(S1)
#ACT
SPLIT $STR(S0) | S10
MOV S1 $STR(S10)
INC S1 |
INC S1 $STR(S11)
INC S1 |
INC S1 $STR(S12)
MOV S8 $USERNAME
INC S8 |
INC S8 $CustomValue(5)
INC S8 |
INC S8 元
DELVARLIST $STR(S1) ..\QuestDiary\各种排名\充值排名.txt
ADDVARLIST $STR(S8) ..\QuestDiary\各种排名\充值排名.txt 1
ClearVar S0 20

#IF
TRUE
#ACT
SET [743] 1
ClearVar S10 89
DelayCall 6 @解除查看限制
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 0
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S10 0 0 1 | ;//由大到小，取第1名
SPLIT $STR(S10) | S20
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 1
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S11 1 0 1 | ;//由大到小，取第2名
SPLIT $STR(S11) | S30
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 2
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S12 2 0 1 | ;//由大到小，取第3名
SPLIT $STR(S12) | S40
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 3
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S13 3 0 1 | ;//由大到小，取第4名
SPLIT $STR(S13) | S50
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 4
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S14 4 0 1 | ;//由大到小，取第5名
SPLIT $STR(S14) | S60
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 5
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S15 5 0 1 | ;//由大到小，取第5名
SPLIT $STR(S15) | S70
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 6
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S16 6 0 1 | ;//由大到小，取第5名
SPLIT $STR(S16) | S80

#IF
TRUE
#ACT
FillText S20 16
FillText S30 16
FillText S40 16
FillText S50 16
FillText S60 16
FillText S70 16
FillText S80 16
MOV S1 ..\QuestDiary\各种排名\充值排名.txt
SENDMSG 5 赞助本服5元以上才会上充值榜！目前总共有“{$TXTLINE(<$STR(S1)>)}”个玩家上榜！
MOV S1
#SAY
<color=00fff0 名 次> <color=ff00 姓 名> <color=red 已充值>\
第</@@!PIC2 3,581>名： <$STR(S20)> <$STR(S21)><$STR(S22)>\
第</@@!PIC2 3,582>名： <$STR(S30)> <$STR(S31)><$STR(S32)>\
第</@@!PIC2 3,583>名： <$STR(S40)> <$STR(S41)><$STR(S42)>\
第</@@!PIC2 3,584>名： <$STR(S50)> <$STR(S51)><$STR(S52)>\
第</@@!PIC2 3,585>名： <$STR(S60)> <$STR(S61)><$STR(S62)>\
第</@@!PIC2 3,586>名： <$STR(S70)> <$STR(S71)><$STR(S72)>\
第</@@!PIC2 3,587>名： <$STR(S80)> <$STR(S81)><$STR(S82)>\
<下一页/@下一页>

[@下一页]
#IF
TRUE
#ACT
ClearVar S10 89
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 7
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S10 7 0 1 | ;//由大到小，取第1名
SPLIT $STR(S10) | S20
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 8
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S11 8 0 1 | ;//由大到小，取第2名
SPLIT $STR(S11) | S30
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 9
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S12 9 0 1 | ;//由大到小，取第3名
SPLIT $STR(S12) | S40
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 10
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S13 10 0 1 | ;//由大到小，取第4名
SPLIT $STR(S13) | S50
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 11
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S14 11 0 1 | ;//由大到小，取第5名
SPLIT $STR(S14) | S60
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 12
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S15 12 0 1 | ;//由大到小，取第5名
SPLIT $STR(S15) | S70
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 13
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S16 13 0 1 | ;//由大到小，取第5名
SPLIT $STR(S16) | S80

#IF
TRUE
#ACT
FillText S20 16
FillText S30 16
FillText S40 16
FillText S50 16
FillText S60 16
FillText S70 16
FillText S80 16
#SAY
<color=00fff0 名 次> <color=ff00 姓 名> <color=red 已充值>\
第</@@!PIC2 3,588>名： <$STR(S20)> <$STR(S21)><$STR(S22)>\
第</@@!PIC2 3,589>名： <$STR(S30)> <$STR(S31)><$STR(S32)>\
第 10 名： <$STR(S40)> <$STR(S41)><$STR(S42)>\
第 11 名： <$STR(S50)> <$STR(S51)><$STR(S52)>\
第 12 名： <$STR(S60)> <$STR(S61)><$STR(S62)>\
第 13 名： <$STR(S70)> <$STR(S71)><$STR(S72)>\
第 14 名： <$STR(S80)> <$STR(S81)><$STR(S82)>\
<上一页/@main> <下一页/@下一页b>

[@下一页b]
#IF
TRUE
#ACT
ClearVar S10 89
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 14
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S10 14 0 1 | ;//由大到小，取第1名
SPLIT $STR(S10) | S20
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 15
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S11 15 0 1 | ;//由大到小，取第2名
SPLIT $STR(S11) | S30
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 16
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S12 16 0 1 | ;//由大到小，取第3名
SPLIT $STR(S12) | S40
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 17
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S13 17 0 1 | ;//由大到小，取第4名
SPLIT $STR(S13) | S50
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 18
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S14 18 0 1 | ;//由大到小，取第5名
SPLIT $STR(S14) | S60
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 19
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S15 19 0 1 | ;//由大到小，取第5名
SPLIT $STR(S15) | S70
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 20
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S16 20 0 1 | ;//由大到小，取第5名
SPLIT $STR(S16) | S80

#IF
TRUE
#ACT
FillText S20 16
FillText S30 16
FillText S40 16
FillText S50 16
FillText S60 16
FillText S70 16
FillText S80 16
#SAY
<color=00fff0 名 次> <color=ff00 姓 名> <color=red 已充值>\
第 15 名： <$STR(S20)> <$STR(S21)><$STR(S22)>\
第 16 名： <$STR(S30)> <$STR(S31)><$STR(S32)>\
第 17 名： <$STR(S40)> <$STR(S41)><$STR(S42)>\
第 18 名： <$STR(S50)> <$STR(S51)><$STR(S52)>\
第 19 名： <$STR(S60)> <$STR(S61)><$STR(S62)>\
第 20 名： <$STR(S70)> <$STR(S71)><$STR(S72)>\
第 21 名： <$STR(S80)> <$STR(S81)><$STR(S82)>\
<上一页/@下一页> <下一页/@下一页c>

[@下一页c]
#IF
TRUE
#ACT
ClearVar S10 89
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 21
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S10 21 0 1 | ;//由大到小，取第1名
SPLIT $STR(S10) | S20
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 22
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S11 22 0 1 | ;//由大到小，取第2名
SPLIT $STR(S11) | S30
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 23
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S12 23 0 1 | ;//由大到小，取第3名
SPLIT $STR(S12) | S40
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 24
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S13 24 0 1 | ;//由大到小，取第4名
SPLIT $STR(S13) | S50
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 25
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S14 25 0 1 | ;//由大到小，取第5名
SPLIT $STR(S14) | S60
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 26
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S15 26 0 1 | ;//由大到小，取第5名
SPLIT $STR(S15) | S70
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 27
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S16 27 0 1 | ;//由大到小，取第5名
SPLIT $STR(S16) | S80

#IF
TRUE
#ACT
FillText S20 16
FillText S30 16
FillText S40 16
FillText S50 16
FillText S60 16
FillText S70 16
FillText S80 16
#SAY
<color=00fff0 名 次> <color=ff00 姓 名> <color=red 已充值>\
第 22 名： <$STR(S20)> <$STR(S21)><$STR(S22)>\
第 23 名： <$STR(S30)> <$STR(S31)><$STR(S32)>\
第 24 名： <$STR(S40)> <$STR(S41)><$STR(S42)>\
第 25 名： <$STR(S50)> <$STR(S51)><$STR(S52)>\
第 26 名： <$STR(S60)> <$STR(S61)><$STR(S62)>\
第 27 名： <$STR(S70)> <$STR(S71)><$STR(S72)>\
第 28 名： <$STR(S80)> <$STR(S81)><$STR(S82)>\
<上一页/@下一页b> <下一页/@下一页d>

[@下一页d]
#IF
TRUE
#ACT
ClearVar S10 89
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 28
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S10 28 0 1 | ;//由大到小，取第1名
SPLIT $STR(S10) | S20
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 29
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S11 29 0 1 | ;//由大到小，取第2名
SPLIT $STR(S11) | S30
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 30
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S12 30 0 1 | ;//由大到小，取第3名
SPLIT $STR(S12) | S40
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 31
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S13 31 0 1 | ;//由大到小，取第4名
SPLIT $STR(S13) | S50
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 32
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S14 32 0 1 | ;//由大到小，取第5名
SPLIT $STR(S14) | S60
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 33
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S15 33 0 1 | ;//由大到小，取第5名
SPLIT $STR(S15) | S70
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 34
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S16 34 0 1 | ;//由大到小，取第5名
SPLIT $STR(S16) | S80

#IF
TRUE
#ACT
FillText S20 16
FillText S30 16
FillText S40 16
FillText S50 16
FillText S60 16
FillText S70 16
FillText S80 16
#SAY
<color=00fff0 名 次> <color=ff00 姓 名> <color=red 已充值>\
第 29 名： <$STR(S20)> <$STR(S21)><$STR(S22)>\
第 30 名： <$STR(S30)> <$STR(S31)><$STR(S32)>\
第 31 名： <$STR(S40)> <$STR(S41)><$STR(S42)>\
第 32 名： <$STR(S50)> <$STR(S51)><$STR(S52)>\
第 33 名： <$STR(S60)> <$STR(S61)><$STR(S62)>\
第 34 名： <$STR(S70)> <$STR(S71)><$STR(S72)>\
第 35 名： <$STR(S80)> <$STR(S81)><$STR(S82)>\
<上一页/@下一页c> <下一页/@下一页e>

[@下一页e]
#IF
TRUE
#ACT
ClearVar S10 89
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 35
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S10 35 0 1 | ;//由大到小，取第1名
SPLIT $STR(S10) | S20
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 36
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S11 36 0 1 | ;//由大到小，取第2名
SPLIT $STR(S11) | S30
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 37
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S12 37 0 1 | ;//由大到小，取第3名
SPLIT $STR(S12) | S40
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 38
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S13 38 0 1 | ;//由大到小，取第4名
SPLIT $STR(S13) | S50
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 39
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S14 39 0 1 | ;//由大到小，取第5名
SPLIT $STR(S14) | S60
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 40
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S15 40 0 1 | ;//由大到小，取第5名
SPLIT $STR(S15) | S70
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 41
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S16 41 0 1 | ;//由大到小，取第5名
SPLIT $STR(S16) | S80

#IF
TRUE
#ACT
FillText S20 16
FillText S30 16
FillText S40 16
FillText S50 16
FillText S60 16
FillText S70 16
FillText S80 16
#SAY
<color=00fff0 名 次> <color=ff00 姓 名> <color=red 已充值>\
第 36 名： <$STR(S20)> <$STR(S21)><$STR(S22)>\
第 37 名： <$STR(S30)> <$STR(S31)><$STR(S32)>\
第 38 名： <$STR(S40)> <$STR(S41)><$STR(S42)>\
第 39 名： <$STR(S50)> <$STR(S51)><$STR(S52)>\
第 40 名： <$STR(S60)> <$STR(S61)><$STR(S62)>\
第 41 名： <$STR(S70)> <$STR(S71)><$STR(S72)>\
第 42 名： <$STR(S80)> <$STR(S81)><$STR(S82)>\
<上一页/@下一页d> <下一页/@下一页f>

[@下一页f]
#IF
TRUE
#ACT
ClearVar S10 89
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 42
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S10 42 0 1 | ;//由大到小，取第1名
SPLIT $STR(S10) | S20
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 43
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S11 43 0 1 | ;//由大到小，取第2名
SPLIT $STR(S11) | S30
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 44
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S12 44 0 1 | ;//由大到小，取第3名
SPLIT $STR(S12) | S40
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 45
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S13 45 0 1 | ;//由大到小，取第4名
SPLIT $STR(S13) | S50
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 46
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S14 46 0 1 | ;//由大到小，取第5名
SPLIT $STR(S14) | S60
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 47
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S15 47 0 1 | ;//由大到小，取第5名
SPLIT $STR(S15) | S70
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 48
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S16 48 0 1 | ;//由大到小，取第5名
SPLIT $STR(S16) | S80

#IF
TRUE
#ACT
FillText S20 16
FillText S30 16
FillText S40 16
FillText S50 16
FillText S60 16
FillText S70 16
FillText S80 16
#SAY
<color=00fff0 名 次> <color=ff00 姓 名> <color=red 已充值>\
第 43 名： <$STR(S20)> <$STR(S21)><$STR(S22)>\
第 44 名： <$STR(S30)> <$STR(S31)><$STR(S32)>\
第 45 名： <$STR(S40)> <$STR(S41)><$STR(S42)>\
第 46 名： <$STR(S50)> <$STR(S51)><$STR(S52)>\
第 47 名： <$STR(S60)> <$STR(S61)><$STR(S62)>\
第 48 名： <$STR(S70)> <$STR(S71)><$STR(S72)>\
第 49 名： <$STR(S80)> <$STR(S81)><$STR(S82)>\
<上一页/@下一页e> <下一页/@下一页g>

[@下一页g]
#IF
TRUE
#ACT
ClearVar S10 89
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 49
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S10 49 0 1 | ;//由大到小，取第1名
SPLIT $STR(S10) | S20
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 50
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S11 50 0 1 | ;//由大到小，取第2名
SPLIT $STR(S11) | S30
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 51
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S12 51 0 1 | ;//由大到小，取第3名
SPLIT $STR(S12) | S40
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 52
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S13 52 0 1 | ;//由大到小，取第4名
SPLIT $STR(S13) | S50
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 53
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S14 53 0 1 | ;//由大到小，取第5名
SPLIT $STR(S14) | S60
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 54
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S15 54 0 1 | ;//由大到小，取第5名
SPLIT $STR(S15) | S70
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 55
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S16 55 0 1 | ;//由大到小，取第5名
SPLIT $STR(S16) | S80

#IF
TRUE
#ACT
FillText S20 16
FillText S30 16
FillText S40 16
FillText S50 16
FillText S60 16
FillText S70 16
FillText S80 16
#SAY
<color=00fff0 名 次> <color=ff00 姓 名> <color=red 已充值>\
第 50 名： <$STR(S20)> <$STR(S21)><$STR(S22)>\
第 51 名： <$STR(S30)> <$STR(S31)><$STR(S32)>\
第 52 名： <$STR(S40)> <$STR(S41)><$STR(S42)>\
第 53 名： <$STR(S50)> <$STR(S51)><$STR(S52)>\
第 54 名： <$STR(S60)> <$STR(S61)><$STR(S62)>\
第 55 名： <$STR(S70)> <$STR(S71)><$STR(S72)>\
第 56 名： <$STR(S80)> <$STR(S81)><$STR(S82)>\
<上一页/@下一页f> <下一页/@下一页h>

[@下一页h]
#IF
TRUE
#ACT
ClearVar S10 89
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 56
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S10 56 0 1 | ;//由大到小，取第1名
SPLIT $STR(S10) | S20
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 57
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S11 57 0 1 | ;//由大到小，取第2名
SPLIT $STR(S11) | S30
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 58
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S12 58 0 1 | ;//由大到小，取第3名
SPLIT $STR(S12) | S40
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 59
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S13 59 0 1 | ;//由大到小，取第4名
SPLIT $STR(S13) | S50
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 60
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S14 60 0 1 | ;//由大到小，取第5名
SPLIT $STR(S14) | S60
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 61
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S15 61 0 1 | ;//由大到小，取第5名
SPLIT $STR(S15) | S70
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 62
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S16 62 0 1 | ;//由大到小，取第5名
SPLIT $STR(S16) | S80

#IF
TRUE
#ACT
FillText S20 16
FillText S30 16
FillText S40 16
FillText S50 16
FillText S60 16
FillText S70 16
FillText S80 16
#SAY
<color=00fff0 名 次> <color=ff00 姓 名> <color=red 已充值>\
第 57 名： <$STR(S20)> <$STR(S21)><$STR(S22)>\
第 58 名： <$STR(S30)> <$STR(S31)><$STR(S32)>\
第 59 名： <$STR(S40)> <$STR(S41)><$STR(S42)>\
第 60 名： <$STR(S50)> <$STR(S51)><$STR(S52)>\
第 61 名： <$STR(S60)> <$STR(S61)><$STR(S62)>\
第 62 名： <$STR(S70)> <$STR(S71)><$STR(S72)>\
第 63 名： <$STR(S80)> <$STR(S81)><$STR(S82)>\
<上一页/@下一页g> <下一页/@下一页i>

[@下一页i]
#IF
TRUE
#ACT
ClearVar S10 89
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 63
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S10 63 0 1 | ;//由大到小，取第1名
SPLIT $STR(S10) | S20
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 64
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S11 64 0 1 | ;//由大到小，取第2名
SPLIT $STR(S11) | S30
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 65
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S12 65 0 1 | ;//由大到小，取第3名
SPLIT $STR(S12) | S40
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 66
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S13 66 0 1 | ;//由大到小，取第4名
SPLIT $STR(S13) | S50
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 67
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S14 67 0 1 | ;//由大到小，取第5名
SPLIT $STR(S14) | S60
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 68
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S15 68 0 1 | ;//由大到小，取第5名
SPLIT $STR(S15) | S70
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 69
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S16 69 0 1 | ;//由大到小，取第5名
SPLIT $STR(S16) | S80

#IF
TRUE
#ACT
FillText S20 16
FillText S30 16
FillText S40 16
FillText S50 16
FillText S60 16
FillText S70 16
FillText S80 16
#SAY
<color=00fff0 名 次> <color=ff00 姓 名> <color=red 已充值>\
第 64 名： <$STR(S20)> <$STR(S21)><$STR(S22)>\
第 65 名： <$STR(S30)> <$STR(S31)><$STR(S32)>\
第 66 名： <$STR(S40)> <$STR(S41)><$STR(S42)>\
第 67 名： <$STR(S50)> <$STR(S51)><$STR(S52)>\
第 68 名： <$STR(S60)> <$STR(S61)><$STR(S62)>\
第 69 名： <$STR(S70)> <$STR(S71)><$STR(S72)>\
第 70 名： <$STR(S80)> <$STR(S81)><$STR(S82)>\
<上一页/@下一页h> <下一页/@下一页j>

[@下一页j]
#IF
TRUE
#ACT
ClearVar S10 89
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 70
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S10 70 0 1 | ;//由大到小，取第1名
SPLIT $STR(S10) | S20
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 71
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S11 71 0 1 | ;//由大到小，取第2名
SPLIT $STR(S11) | S30
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 72
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S12 72 0 1 | ;//由大到小，取第3名
SPLIT $STR(S12) | S40
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 73
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S13 73 0 1 | ;//由大到小，取第4名
SPLIT $STR(S13) | S50
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 74
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S14 74 0 1 | ;//由大到小，取第5名
SPLIT $STR(S14) | S60
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 75
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S15 75 0 1 | ;//由大到小，取第5名
SPLIT $STR(S15) | S70
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 76
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S16 76 0 1 | ;//由大到小，取第5名
SPLIT $STR(S16) | S80

#IF
TRUE
#ACT
FillText S20 16
FillText S30 16
FillText S40 16
FillText S50 16
FillText S60 16
FillText S70 16
FillText S80 16
#SAY
<color=00fff0 名 次> <color=ff00 姓 名> <color=red 已充值>\
第 71 名： <$STR(S20)> <$STR(S21)><$STR(S22)>\
第 72 名： <$STR(S30)> <$STR(S31)><$STR(S32)>\
第 73 名： <$STR(S40)> <$STR(S41)><$STR(S42)>\
第 74 名： <$STR(S50)> <$STR(S51)><$STR(S52)>\
第 75 名： <$STR(S60)> <$STR(S61)><$STR(S62)>\
第 76 名： <$STR(S70)> <$STR(S71)><$STR(S72)>\
第 77 名： <$STR(S80)> <$STR(S81)><$STR(S82)>\
<上一页/@下一页i> <下一页/@下一页k>

[@下一页k]
#IF
TRUE
#ACT
ClearVar S10 89
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 77
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S10 77 0 1 | ;//由大到小，取第1名
SPLIT $STR(S10) | S20
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 78
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S11 78 0 1 | ;//由大到小，取第2名
SPLIT $STR(S11) | S30
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 79
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S12 79 0 1 | ;//由大到小，取第3名
SPLIT $STR(S12) | S40
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 80
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S13 80 0 1 | ;//由大到小，取第4名
SPLIT $STR(S13) | S50
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 81
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S14 81 0 1 | ;//由大到小，取第5名
SPLIT $STR(S14) | S60
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 82
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S15 82 0 1 | ;//由大到小，取第5名
SPLIT $STR(S15) | S70
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 83
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S16 83 0 1 | ;//由大到小，取第5名
SPLIT $STR(S16) | S80

#IF
TRUE
#ACT
FillText S20 16
FillText S30 16
FillText S40 16
FillText S50 16
FillText S60 16
FillText S70 16
FillText S80 16
#SAY
<color=00fff0 名 次> <color=ff00 姓 名> <color=red 已充值>\
第 78 名： <$STR(S20)> <$STR(S21)><$STR(S22)>\
第 79 名： <$STR(S30)> <$STR(S31)><$STR(S32)>\
第 80 名： <$STR(S40)> <$STR(S41)><$STR(S42)>\
第 81 名： <$STR(S50)> <$STR(S51)><$STR(S52)>\
第 82 名： <$STR(S60)> <$STR(S61)><$STR(S62)>\
第 83 名： <$STR(S70)> <$STR(S71)><$STR(S72)>\
第 84 名： <$STR(S80)> <$STR(S81)><$STR(S82)>\
<上一页/@下一页j> <下一页/@下一页l>

[@下一页l]
#IF
TRUE
#ACT
ClearVar S10 89
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 84
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S10 84 0 1 | ;//由大到小，取第1名
SPLIT $STR(S10) | S20
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 85
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S11 85 0 1 | ;//由大到小，取第2名
SPLIT $STR(S11) | S30
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 86
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S12 86 0 1 | ;//由大到小，取第3名
SPLIT $STR(S12) | S40
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 87
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S13 87 0 1 | ;//由大到小，取第4名
SPLIT $STR(S13) | S50
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 88
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S14 88 0 1 | ;//由大到小，取第5名
SPLIT $STR(S14) | S60
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 89
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S15 89 0 1 | ;//由大到小，取第5名
SPLIT $STR(S15) | S70
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 90
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S16 90 0 1 | ;//由大到小，取第5名
SPLIT $STR(S16) | S80

#IF
TRUE
#ACT
FillText S20 16
FillText S30 16
FillText S40 16
FillText S50 16
FillText S60 16
FillText S70 16
FillText S80 16
#SAY
<color=00fff0 名 次> <color=ff00 姓 名> <color=red 已充值>\
第 85 名： <$STR(S20)> <$STR(S21)><$STR(S22)>\
第 86 名： <$STR(S30)> <$STR(S31)><$STR(S32)>\
第 87 名： <$STR(S40)> <$STR(S41)><$STR(S42)>\
第 88 名： <$STR(S50)> <$STR(S51)><$STR(S52)>\
第 89 名： <$STR(S60)> <$STR(S61)><$STR(S62)>\
第 90 名： <$STR(S70)> <$STR(S71)><$STR(S72)>\
第 91 名： <$STR(S80)> <$STR(S81)><$STR(S82)>\
<上一页/@下一页k> <下一页/@下一页m>

[@下一页m]
#IF
TRUE
#ACT
ClearVar S10 89
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 91
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S10 91 0 1 | ;//由大到小，取第1名
SPLIT $STR(S10) | S20
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 92
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S11 92 0 1 | ;//由大到小，取第2名
SPLIT $STR(S11) | S30
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 93
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S12 93 0 1 | ;//由大到小，取第3名
SPLIT $STR(S12) | S40
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 94
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S13 94 0 1 | ;//由大到小，取第4名
SPLIT $STR(S13) | S50
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 95
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S14 95 0 1 | ;//由大到小，取第5名
SPLIT $STR(S14) | S60
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 96
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S15 96 0 1 | ;//由大到小，取第5名
SPLIT $STR(S15) | S70
#IF
LARGE $TXTLINE(..\QuestDiary\各种排名\充值排名.txt) 97
#ACT
READRANDOMSTR ..\QuestDiary\各种排名\充值排名.txt S16 97 0 1 | ;//由大到小，取第5名
SPLIT $STR(S16) | S80

#IF
TRUE
#ACT
FillText S20 16
FillText S30 16
FillText S40 16
FillText S50 16
FillText S60 16
FillText S70 16
FillText S80 16
#SAY
<color=00fff0 名 次> <color=ff00 姓 名> <color=red 已充值>\
第 92 名： <$STR(S20)> <$STR(S21)><$STR(S22)>\
第 93 名： <$STR(S30)> <$STR(S31)><$STR(S32)>\
第 94 名： <$STR(S40)> <$STR(S41)><$STR(S42)>\
第 95 名： <$STR(S50)> <$STR(S51)><$STR(S52)>\
第 96 名： <$STR(S60)> <$STR(S61)><$STR(S62)>\
第 97 名： <$STR(S70)> <$STR(S71)><$STR(S72)>\
第 98 名： <$STR(S80)> <$STR(S81)><$STR(S82)>\
<上一页/@下一页l> <下一页/@下一页n>

[@解除查看限制]
#IF
Check [743] 1
#act
SET [743] 0
break