翎风传奇一条龙认证商行脚本，传奇开区时怎么设置商行教程

(@@InPutInteger,@@InPutString)
[@认证商行]
{

#Or
        ISONMAP mima
        ISONMAP mima2
        ISONMAP XINR1
#Act
        Messagebox \\对不起此地图不允许使用此功能！
Break
#If
        Equal        P0        0
#Act
        Mov        P0        1
        Mov        N0        0
        Mov        S$商人列表
        Mov        S$商人信息        开始读取
        Goto        @读取商人信息
Break
#ElseSay
\ \
\ \
<所有商行排行不分先后,请认准商人封号，谨防上当受骗/SCOLOR=253>　　<关闭窗口/@exit>\\
<$STR(S$商人列表)>

[@读取商人信息]
#If
        Equal        S$商人信息
#Act
        OpenBigDialogBox 4 402
Break
#Say
\ \
\ \
<所有商行排行不分先后,请认准商人封号，谨防上当受骗/SCOLOR=253>　　<关闭窗口/@exit>\\
<$STR(S$商人列表)>
#Elseact
        GetListString        ..\QuestDiary\管理机器码\商人信息.txt        <$STR(N0)>        S$商人信息        S$临时信息
#If
        Not        Equal        S$商人信息
#Act
        ANSIREPLACETEXT        <$STR(S$商人信息)>        ：        :
        Inc        S$商人列表        <$STR(S$商人信息)>\
        Inc        N0        1
        Goto        @读取商人信息
Break
#Elseact
        Inc        N0        1
        Goto        @读取商人信息
Break
}