[@tqrecoder]
{
#if
#act
mov N$行号 0
mov N$新页 1
goto @显示
[@显示]
#if
#act
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$显示0
Inc N$行号 1
Mov S$行数0 <$Str(N$行号)>
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$显示1
Inc N$行号 1
Mov S$行数1 <$Str(N$行号)>
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$显示2
Inc N$行号 1
Mov S$行数2 <$Str(N$行号)>
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$显示3
Inc N$行号 1
Mov S$行数3 <$Str(N$行号)>
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$显示4
Inc N$行号 1
Mov S$行数4 <$Str(N$行号)>
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$显示5
Inc N$行号 1
Mov S$行数5 <$Str(N$行号)>
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$显示6
Inc N$行号 1
Mov S$行数6 <$Str(N$行号)>
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$显示7
Inc N$行号 1
Mov S$行数7 <$Str(N$行号)>
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$显示8
Inc N$行号 1
Mov S$行数8 <$Str(N$行号)>
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$显示9
Inc N$行号 1
Mov S$行数9 <$Str(N$行号)>
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$显示10
Inc N$行号 1
Mov S$行数10 <$Str(N$行号)>
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$显示11
Inc N$行号 1
Mov S$行数11 <$Str(N$行号)>
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$显示12
Inc N$行号 1
Mov S$行数12 <$Str(N$行号)>
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$显示13
Inc N$行号 1
Mov S$行数13 <$Str(N$行号)>
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$显示14
Inc N$行号 1
Mov S$行数14 <$Str(N$行号)>
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$显示15
Inc N$行号 1
Mov S$行数15 <$Str(N$行号)>
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$显示16
Inc N$行号 1
Mov S$行数16 <$Str(N$行号)>
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$显示17
Inc N$行号 1
Mov S$行数17 <$Str(N$行号)>
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$显示18
Inc N$行号 1
Mov S$行数18 <$Str(N$行号)>
Getliststring ..\..\..\..\带头大哥跨区脚本\通区掉落\通区掉落列表.txt <$Str(N$行号)> S$新页
#IF
#ACT
GetStringPos ..\EffectImageList.txt UI3.Wzl
MOV N$资源编号 <$STR(N0)>
GetStringPos ..\EffectImageList.txt NEWOPUI.PAK
MOV N$资源编号1 <$STR(N0)>
OPENMERCHANTBIGDLG <$STR(N$资源编号)> 914 1 4 0 -80 0
#SAY
<IMGEX:<$STR(N$资源编号1)>:233:233:234:585:-10/@EXIT>
\ \ \ \
<><$Str(S$显示0)>\
<><$Str(S$显示1)>\
<><$Str(S$显示2)>\
<><$Str(S$显示3)>\
<><$Str(S$显示4)>\
<><$Str(S$显示5)>\
<><$Str(S$显示6)>\
<><$Str(S$显示7)>\
<><$Str(S$显示8)>\
<><$Str(S$显示9)>\
<><$Str(S$显示10)>\
<><$Str(S$显示11)>\
<><$Str(S$显示12)>\
<><$Str(S$显示13)>\
<><$Str(S$显示14)>\
<><$Str(S$显示15)>\
<><$Str(S$显示16)>\
<><$Str(S$显示17)>\
<><$Str(S$显示18)>\ \
<> <上一页/@上一页> {当前第<$Str(N$新页)>页/FCOLOR=250} <下一页/@下一页>\
<>\
<>\
<>\ \ \
[@上一页]
#IF
Equal N$新页 1
#Act
Messagebox 当前已是第一页.
#ElseAct
Dec N$新页 1
Dec N$行号 38
Goto @显示
[@下一页]
#IF
Equal S$新页
#Act
messagebox 当前已是最后一页.
Break
#Elseact
Inc N$新页 1
Goto @显示
}
