301传奇论坛 biue idc idc服务器 qq 查广告 11 yun cz 教学
查看: 47|回复: 5

[GOM引擎脚本] GOM引擎传奇商行脚本下载-钦此提供参考

[复制链接]
  • TA的每日心情
    开心
    昨天 23:13
  • 1379

    主题

    1414

    帖子

    4万

    积分

    管理员

    Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100

    积分
    45313

    最佳新人活跃会员热心会员推广达人灌水之王突出贡献优秀版主荣誉管理论坛元老

    QQ
    发表于 2020-7-31 19:51:37 | 显示全部楼层 |阅读模式
    [@化魔商行_1]
    {

    #IF
    #ACT
    CLOSEBIGDIALOGBOX

    #IF
    #ACT
    GetListString ..\..\..\..\老王数据\商行名单.txt 0 S$一号商行资料1
    GetListString ..\..\..\..\老王数据\商行名单.txt 1 S$一号商行资料2
    GetListString ..\..\..\..\老王数据\商行名单.txt 2 S$一号商行资料3
    GetListString ..\..\..\..\老王数据\商行名单.txt 3 S$一号商行资料4
    GetListString ..\..\..\..\老王数据\商行名单.txt 4 S$一号商行资料5
    GetListString ..\..\..\..\老王数据\商行名单.txt 5 S$一号商行资料6
    GetListString ..\..\..\..\老王数据\商行名单.txt 6 S$一号商行资料7
    GetListString ..\..\..\..\老王数据\商行名单.txt 7 S$一号商行资料8
    GetListString ..\..\..\..\老王数据\商行名单.txt 8 S$一号商行资料9
    GetListString ..\..\..\..\老王数据\商行名单.txt 9 S$一号商行资料10


    #IF
    NOT EQUAL S$一号商行资料1
    #ACT
    MOV S$一号商行资料显示1 <$STR(S$一号商行资料1)>
    #ELSEACT
    MOV S$一号商行资料显示1  
    #IF
    NOT EQUAL S$一号商行资料2
    #ACT
    MOV S$一号商行资料显示2 <$STR(S$一号商行资料2)>
    #ELSEACT
    MOV S$一号商行资料显示2  
    #IF
    NOT EQUAL S$一号商行资料3
    #ACT
    MOV S$一号商行资料显示3 <$STR(S$一号商行资料3)>
    #ELSEACT
    MOV S$一号商行资料显示3  
    #IF
    NOT EQUAL S$一号商行资料4
    #ACT
    MOV S$一号商行资料显示4 <$STR(S$一号商行资料4)>
    #ELSEACT
    MOV S$一号商行资料显示4  
    #IF
    NOT EQUAL S$一号商行资料5
    #ACT
    MOV S$一号商行资料显示5 <$STR(S$一号商行资料5)>
    #ELSEACT
    MOV S$一号商行资料显示5  
    #IF
    NOT EQUAL S$一号商行资料6
    #ACT
    MOV S$一号商行资料显示6 <$STR(S$一号商行资料6)>
    #ELSEACT
    MOV S$一号商行资料显示6  
    #IF
    NOT EQUAL S$一号商行资料7
    #ACT
    MOV S$一号商行资料显示7 <$STR(S$一号商行资料7)>
    #ELSEACT
    MOV S$一号商行资料显示7  
    #IF
    NOT EQUAL S$一号商行资料8
    #ACT
    MOV S$一号商行资料显示8 <$STR(S$一号商行资料8)>
    #ELSEACT
    MOV S$一号商行资料显示8  
    #IF
    NOT EQUAL S$一号商行资料9
    #ACT
    MOV S$一号商行资料显示9 <$STR(S$一号商行资料9)>
    #ELSEACT
    MOV S$一号商行资料显示9  
    #IF
    NOT EQUAL S$一号商行资料10
    #ACT
    MOV S$一号商行资料显示10 <$STR(S$一号商行资料10)>
    #ELSEACT
    MOV S$一号商行资料显示10  

    #if
    #say
    \ \
    <$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)>\



    [@装备商行回收价格]

    #IF
    CHECKLEVELEX > 0
    #ACT
    MOV N$商行回收行号 0
    MOV N$提现资源编号 32
    GOTO @商行显示界面

    [@商行显示界面]
    #IF
    CHECKLEVELEX > 0
    #ACT
    MOV N$商行回收行号中转 <$STR(N$商行回收行号)>
    MOV N$商行回收行号中转1 <$STR(N$商行回收行号)>
    MOV N$商行回收行号中转2 <$STR(N$商行回收行号)>
    MOV N$商行回收行号中转3 <$STR(N$商行回收行号)>
    MOV N$商行回收行号中转4 <$STR(N$商行回收行号)>
    MOV N$商行回收行号中转5 <$STR(N$商行回收行号)>
    MOV N$商行回收行号中转6 <$STR(N$商行回收行号)>
    MOV N$商行回收行号中转7 <$STR(N$商行回收行号)>
    MOV N$商行回收行号中转8 <$STR(N$商行回收行号)>
    MOV N$商行回收行号中转9 <$STR(N$商行回收行号)>

    INC N$商行回收行号中转1 2
    INC N$商行回收行号中转2 4
    INC N$商行回收行号中转3 6
    INC N$商行回收行号中转4 8
    INC N$商行回收行号中转5 10
    INC N$商行回收行号中转6 12
    INC N$商行回收行号中转7 14
    INC N$商行回收行号中转8 16
    MOV N$商行回收显示行号 <$STR(N$商行回收行号中转)>
    DIV N$商行回收显示行号 2
    INC N$商行回收显示行号 1
    MOV N$商行回收显示行号1 <$STR(N$商行回收行号中转1)>
    DIV N$商行回收显示行号1 2
    INC N$商行回收显示行号1 1
    MOV N$商行回收显示行号2 <$STR(N$商行回收行号中转2)>
    DIV N$商行回收显示行号2 2
    INC N$商行回收显示行号2 1
    MOV N$商行回收显示行号3 <$STR(N$商行回收行号中转3)>
    DIV N$商行回收显示行号3 2
    INC N$商行回收显示行号3 1
    MOV N$商行回收显示行号4 <$STR(N$商行回收行号中转4)>
    DIV N$商行回收显示行号4 2
    INC N$商行回收显示行号4 1
    MOV N$商行回收显示行号5 <$STR(N$商行回收行号中转5)>
    DIV N$商行回收显示行号5 2
    INC N$商行回收显示行号5 1
    MOV N$商行回收显示行号6 <$STR(N$商行回收行号中转6)>
    DIV N$商行回收显示行号6 2
    INC N$商行回收显示行号6 1
    MOV N$商行回收显示行号7 <$STR(N$商行回收行号中转7)>
    DIV N$商行回收显示行号7 2
    INC N$商行回收显示行号7 1
    MOV N$商行回收显示行号8 <$STR(N$商行回收行号中转8)>
    DIV N$商行回收显示行号8 2
    INC N$商行回收显示行号8 1

    MOV S$商行物品中转一
    MOV S$商行物品中转二
    MOV S$商行物品中转三
    MOV S$商行物品中转四
    MOV S$商行物品中转五
    MOV S$商行物品中转六
    MOV S$商行物品中转七
    MOV S$商行物品中转八
    MOV S$商行物品中转九
    GetRandomText ..\..\..\..\老王数据\商人三合前回收价格.txt S$商行物品中转一 <$STR(N$商行回收行号中转)>
    GetRandomText ..\..\..\..\老王数据\商人三合前回收价格.txt S$商行物品中转二 <$STR(N$商行回收行号中转1)>
    GetRandomText ..\..\..\..\老王数据\商人三合前回收价格.txt S$商行物品中转三 <$STR(N$商行回收行号中转2)>
    GetRandomText ..\..\..\..\老王数据\商人三合前回收价格.txt S$商行物品中转四 <$STR(N$商行回收行号中转3)>
    GetRandomText ..\..\..\..\老王数据\商人三合前回收价格.txt S$商行物品中转五 <$STR(N$商行回收行号中转4)>
    GetRandomText ..\..\..\..\老王数据\商人三合前回收价格.txt S$商行物品中转六 <$STR(N$商行回收行号中转5)>
    GetRandomText ..\..\..\..\老王数据\商人三合前回收价格.txt S$商行物品中转七 <$STR(N$商行回收行号中转6)>
    GetRandomText ..\..\..\..\老王数据\商人三合前回收价格.txt S$商行物品中转八 <$STR(N$商行回收行号中转7)>
    GetRandomText ..\..\..\..\老王数据\商人三合前回收价格.txt S$商行物品中转九 <$STR(N$商行回收行号中转8)>
    MOV S$商行物品检测 <$STR(S$商行物品中转九)>


    MOV S$商行物品回收触发一 <$STR(S$商行物品中转一)>
    MOV S$商行物品回收触发二 <$STR(S$商行物品中转二)>
    MOV S$商行物品回收触发三 <$STR(S$商行物品中转三)>
    MOV S$商行物品回收触发四 <$STR(S$商行物品中转四)>
    MOV S$商行物品回收触发五 <$STR(S$商行物品中转五)>
    MOV S$商行物品回收触发六 <$STR(S$商行物品中转六)>
    MOV S$商行物品回收触发七 <$STR(S$商行物品中转七)>
    MOV S$商行物品回收触发八 <$STR(S$商行物品中转八)>
    MOV S$商行物品回收触发九 <$STR(S$商行物品中转九)>



    #IF
    CHECKLEVELEX > 0
    #ACT
    MOV S$商行回收显示行号 <$STR(N$商行回收显示行号)>
    MOV S$商行回收显示行号1 <$STR(N$商行回收显示行号1)>
    MOV S$商行回收显示行号2 <$STR(N$商行回收显示行号2)>
    MOV S$商行回收显示行号3 <$STR(N$商行回收显示行号3)>
    MOV S$商行回收显示行号4 <$STR(N$商行回收显示行号4)>
    MOV S$商行回收显示行号5 <$STR(N$商行回收显示行号5)>
    MOV S$商行回收显示行号6 <$STR(N$商行回收显示行号6)>
    MOV S$商行回收显示行号7 <$STR(N$商行回收显示行号7)>
    MOV S$商行回收显示行号8 <$STR(N$商行回收显示行号8)>
    SetStringBlank <$STR(S$商行回收显示行号)> 3 1
    SetStringBlank <$STR(S$商行回收显示行号1)> 3 1
    SetStringBlank <$STR(S$商行回收显示行号2)> 3 1
    SetStringBlank <$STR(S$商行回收显示行号3)> 3 1
    SetStringBlank <$STR(S$商行回收显示行号4)> 3 1
    SetStringBlank <$STR(S$商行回收显示行号5)> 3 1
    SetStringBlank <$STR(S$商行回收显示行号6)> 3 1
    SetStringBlank <$STR(S$商行回收显示行号7)> 3 1
    SetStringBlank <$STR(S$商行回收显示行号8)> 3 1





    #IF
    EQUAL S$商行物品中转一
    #ACT
    MOV S$商行回收显示一
    #ELSEACT
    GetStringPos ..\..\..\..\老王数据\商人三合前回收价格.txt <$STR(S$商行物品中转一)>
    INC N0 1
    GetListString ..\..\..\..\老王数据\商人三合前回收价格.txt <$STR(N0)> S$商行回收奖励货币一 S$商行奖励金额一
    MOV N$商行奖励金额触发一 <$STR(S$商行奖励金额一)>
    SetStringBlank <$STR(S$商行物品中转一)> 40 1
    SetStringBlank <$STR(S$商行奖励金额一)> 15 1
    MOV S$商行回收显示一 {<$STR(S$商行物品中转一)>/SCOLOR=254}{<$STR(S$商行回收奖励货币一)>:<$STR(S$商行奖励金额一)>/SCOLOR=116}


    #IF
    EQUAL S$商行物品中转二
    #ACT
    MOV S$商行回收显示二
    #ELSEACT
    GetStringPos ..\..\..\..\老王数据\商人三合前回收价格.txt <$STR(S$商行物品中转二)>
    INC N0 1
    GetListString ..\..\..\..\老王数据\商人三合前回收价格.txt <$STR(N0)> S$商行回收奖励货币二 S$商行奖励金额二
    MOV N$商行奖励金额触发二 <$STR(S$商行奖励金额二)>
    SetStringBlank <$STR(S$商行物品中转二)> 40 1
    SetStringBlank <$STR(S$商行奖励金额二)> 15 1
    MOV S$商行回收显示二 {<$STR(S$商行物品中转二)>/SCOLOR=254}{<$STR(S$商行回收奖励货币二)>:<$STR(S$商行奖励金额二)>/SCOLOR=116}

    #IF
    EQUAL S$商行物品中转三
    #ACT
    MOV S$商行回收显示三
    #ELSEACT
    GetStringPos ..\..\..\..\老王数据\商人三合前回收价格.txt <$STR(S$商行物品中转三)>
    INC N0 1
    GetListString ..\..\..\..\老王数据\商人三合前回收价格.txt <$STR(N0)> S$商行回收奖励货币三 S$商行奖励金额三
    MOV N$商行奖励金额触发三 <$STR(S$商行奖励金额三)>
    SetStringBlank <$STR(S$商行物品中转三)> 40 1
    SetStringBlank <$STR(S$商行奖励金额三)> 15 1
    MOV S$商行回收显示三 {<$STR(S$商行物品中转三)>/SCOLOR=254}{<$STR(S$商行回收奖励货币三)>:<$STR(S$商行奖励金额三)>/SCOLOR=116}


    #IF
    EQUAL S$商行物品中转四
    #ACT
    MOV S$商行回收显示四
    #ELSEACT
    GetStringPos ..\..\..\..\老王数据\商人三合前回收价格.txt <$STR(S$商行物品中转四)>
    INC N0 1
    GetListString ..\..\..\..\老王数据\商人三合前回收价格.txt <$STR(N0)> S$商行回收奖励货币四 S$商行奖励金额四
    MOV N$商行奖励金额触发四 <$STR(S$商行奖励金额四)>
    SetStringBlank <$STR(S$商行物品中转四)> 40 1
    SetStringBlank <$STR(S$商行奖励金额四)> 15 1
    MOV S$商行回收显示四 {<$STR(S$商行物品中转四)>/SCOLOR=254}{<$STR(S$商行回收奖励货币四)>:<$STR(S$商行奖励金额四)>/SCOLOR=116}


    #IF
    EQUAL S$商行物品中转五
    #ACT
    MOV S$商行回收显示五
    #ELSEACT
    GetStringPos ..\..\..\..\老王数据\商人三合前回收价格.txt <$STR(S$商行物品中转五)>
    INC N0 1
    GetListString ..\..\..\..\老王数据\商人三合前回收价格.txt <$STR(N0)> S$商行回收奖励货币五 S$商行奖励金额五
    MOV N$商行奖励金额触发五 <$STR(S$商行奖励金额五)>
    SetStringBlank <$STR(S$商行物品中转五)> 40 1
    SetStringBlank <$STR(S$商行奖励金额五)> 15 1
    MOV S$商行回收显示五 {<$STR(S$商行物品中转五)>/SCOLOR=254}{<$STR(S$商行回收奖励货币五)>:<$STR(S$商行奖励金额五)>/SCOLOR=116}


    #IF
    EQUAL S$商行物品中转六
    #ACT
    MOV S$商行回收显示六
    #ELSEACT
    GetStringPos ..\..\..\..\老王数据\商人三合前回收价格.txt <$STR(S$商行物品中转六)>
    INC N0 1
    GetListString ..\..\..\..\老王数据\商人三合前回收价格.txt <$STR(N0)> S$商行回收奖励货币六 S$商行奖励金额六
    MOV N$商行奖励金额触发六 <$STR(S$商行奖励金额六)>
    SetStringBlank <$STR(S$商行物品中转六)> 40 1
    SetStringBlank <$STR(S$商行奖励金额六)> 15 1
    MOV S$商行回收显示六 {<$STR(S$商行物品中转六)>/SCOLOR=254}{<$STR(S$商行回收奖励货币六)>:<$STR(S$商行奖励金额六)>/SCOLOR=116}


    #IF
    EQUAL S$商行物品中转七
    #ACT
    MOV S$商行回收显示七
    #ELSEACT
    GetStringPos ..\..\..\..\老王数据\商人三合前回收价格.txt <$STR(S$商行物品中转七)>
    INC N0 1
    GetListString ..\..\..\..\老王数据\商人三合前回收价格.txt <$STR(N0)> S$商行回收奖励货币七 S$商行奖励金额七
    MOV N$商行奖励金额触发七 <$STR(S$商行奖励金额七)>
    SetStringBlank <$STR(S$商行物品中转七)> 40 1
    SetStringBlank <$STR(S$商行奖励金额七)> 15 1
    MOV S$商行回收显示七 {<$STR(S$商行物品中转七)>/SCOLOR=254}{<$STR(S$商行回收奖励货币七)>:<$STR(S$商行奖励金额七)>/SCOLOR=116}


    #IF
    EQUAL S$商行物品中转八
    #ACT
    MOV S$商行回收显示八
    #ELSEACT
    GetStringPos ..\..\..\..\老王数据\商人三合前回收价格.txt <$STR(S$商行物品中转八)>
    INC N0 1
    GetListString ..\..\..\..\老王数据\商人三合前回收价格.txt <$STR(N0)> S$商行回收奖励货币八 S$商行奖励金额八
    MOV N$商行奖励金额触发八 <$STR(S$商行奖励金额八)>
    SetStringBlank <$STR(S$商行物品中转八)> 40 1
    SetStringBlank <$STR(S$商行奖励金额八)> 15 1
    MOV S$商行回收显示八 {<$STR(S$商行物品中转八)>/SCOLOR=254}{<$STR(S$商行回收奖励货币八)>:<$STR(S$商行奖励金额八)>/SCOLOR=116}


    #IF
    EQUAL S$商行物品中转九
    #ACT
    MOV S$商行回收显示九
    #ELSEACT
    GetStringPos ..\..\..\..\老王数据\商人三合前回收价格.txt <$STR(S$商行物品中转九)>
    INC N0 1
    GetListString ..\..\..\..\老王数据\商人三合前回收价格.txt <$STR(N0)> S$商行回收奖励货币九 S$商行奖励金额九
    MOV N$商行奖励金额触发九 <$STR(S$商行奖励金额九)>
    SetStringBlank <$STR(S$商行物品中转九)> 40 1
    SetStringBlank <$STR(S$商行奖励金额九)> 15 1
    MOV S$商行回收显示九 {<$STR(S$商行物品中转九)>/SCOLOR=254}{<$STR(S$商行回收奖励货币九)>:<$STR(S$商行奖励金额九)>/SCOLOR=116}


    #IF
    CHECKLEVELEX > 0
    #ACT
    OPENMERCHANTBIGDLG 12 462 1 4 0 -50 1 700 40
    #SAY
    \ \ \
    <Imgex:<$STR(N$提现资源编号)>:6:7:8:96:203/@商行上一页><Imgex:<$STR(N$提现资源编号)>:9:10:11:580:203/@商行下一页>\
    <> \
    <> \
    <> \
    <> \ \
    <>                            <NO.<$STR(S$商行回收显示行号)>/FCOLOR=229>    <$STR(S$商行回收显示一)>\
    <> \
    <>                            <NO.<$STR(S$商行回收显示行号1)>/FCOLOR=229>    <$STR(S$商行回收显示二)>\
    <> \
    <>                            <NO.<$STR(S$商行回收显示行号2)>/FCOLOR=229>    <$STR(S$商行回收显示三)>\
    <> \
    <>                            <NO.<$STR(S$商行回收显示行号3)>/FCOLOR=229>    <$STR(S$商行回收显示四)>\
    <> \
    <>                            <NO.<$STR(S$商行回收显示行号4)>/FCOLOR=229>    <$STR(S$商行回收显示五)>\
    <> \
    <>                            <NO.<$STR(S$商行回收显示行号5)>/FCOLOR=229>    <$STR(S$商行回收显示六)>\
    <> \
    <>                            <NO.<$STR(S$商行回收显示行号6)>/FCOLOR=229>    <$STR(S$商行回收显示七)>\
    <> \
    <>                            <NO.<$STR(S$商行回收显示行号7)>/FCOLOR=229>    <$STR(S$商行回收显示八)>\
    <> \
    <>                            <NO.<$STR(S$商行回收显示行号8)>/FCOLOR=229>    <$STR(S$商行回收显示九)>\
    <> \
    <>                            <注意:以上价格为商人三合前回收价格>




    [@商行上一页]
    #IF
    EQUAL N$商行回收行号 0
    #ACT
    MESSAGEBOX 当前已经是第一页!!
    BREAK
    #ELSEACT
    DEC N$商行回收行号 18
    GOTO @商行显示界面
    BREAK

    [@商行下一页]
    #IF
    EQUAL S$商行物品检测
    #ACT
    MESSAGEBOX 当前已经是最后一页!!
    BREAK
    #ELSEACT
    INC N$商行回收行号 18
    GOTO @商行显示界面
    BREAK




    }



    回复

    使用道具 举报

    该用户从未签到

    0

    主题

    10

    帖子

    11

    积分

    新手上路

    Rank: 1

    积分
    11
    发表于 2020-7-31 19:55:22 | 显示全部楼层
    找传奇版本,传奇教程就到301传奇论坛

    回复

    使用道具 举报

    该用户从未签到

    0

    主题

    8

    帖子

    9

    积分

    新手上路

    Rank: 1

    积分
    9
    发表于 2020-7-31 19:57:02 | 显示全部楼层
    看了LZ的帖子,我只想说一句很好很强大!

    回复

    使用道具 举报

    该用户从未签到

    0

    主题

    12

    帖子

    13

    积分

    新手上路

    Rank: 1

    积分
    13
    发表于 2020-7-31 19:58:04 | 显示全部楼层
    膜拜神贴,后面的请保持队形~

    回复

    使用道具 举报

    该用户从未签到

    0

    主题

    8

    帖子

    9

    积分

    新手上路

    Rank: 1

    积分
    9
    发表于 2020-7-31 19:59:23 | 显示全部楼层
    膜拜神贴,后面的请保持队形~

    回复

    使用道具 举报

    该用户从未签到

    0

    主题

    14

    帖子

    15

    积分

    新手上路

    Rank: 1

    积分
    15
    发表于 2020-7-31 20:00:31 | 显示全部楼层
    看了LZ的帖子,我只想说一句很好很强大!

    回复

    使用道具 举报