设为首页收藏本站我的广告
开启辅助访问

任逍遥

 找回密码
 立即注册
搜索
任逍遥»论坛 › 【传奇资源】 › 『传奇技术』 › 最新传奇钓鱼活动脚本适用于GOM引擎
1234567下一页
返回列表 发新帖
查看: 14333|回复: 67

最新传奇钓鱼活动脚本适用于GOM引擎

    [复制链接]
往后余生
  • TA的每日心情
    慵懒
    2021-9-14 16:47

    • 签到天数: 9 天

    连续签到: 1 天

    [LV.3]初领妙道

    343

    主题

    343

    帖子

    1054

    积分

    锋芒毕露

    Rank: 6Rank: 6

    积分
    1054
    发表于 2019-10-16 17:15:17 | 显示全部楼层 |阅读模式

    马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

    您需要 登录 才可以下载或查看，没有帐号？立即注册

    x
    [@MAIN]

    #ACT
    MOV N$鱼总价 0
    MOV A300
    ReturnBoxItem 0
    ReturnBoxItem 1
    ReturnBoxItem 2
    ReturnBoxItem 3
    ReturnBoxItem 4
    ReturnBoxItem 5
    ReturnBoxItem 6
    ReturnBoxItem 7
    #ACT
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>\
    垂钓者：\
    　　我这里出售一些钓鱼所需物品。如果你钓到鱼\
    了也可以卖给我，我会给你合适的价格！\ \
    <○/FCOLOR=103><买渔具、钓饵、钓窝/@出售>\
    <○/FCOLOR=103><卖鱼/@出售>\
    <○/FCOLOR=103><怎么钓鱼？/@询问>\

    [@清空]
    #ACT
    MOV N$鱼总价 0
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>
    <Img:381:17:-206:-40>\ \
    ;商品区---第一排
    <$STR(S$售货0)>　
    <$STR(S$售货1)>　
    <$STR(S$售货2)>　
    <$STR(S$售货3)>\
    　\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
    ;出售页第一排
    <ITEMBOX:0:-1:0:-1:-41:33:30:*>
    <ITEMBOX:1:-1:0:5:-41:33:30:*>
    <ITEMBOX:2:-1:0:11:-41:33:30:*>
    <ITEMBOX:3:-1:0:17:-41:33:30:*>\
    ;出售页第二排
    <ITEMBOX:4:-1:0:-1:-21:33:30:*>
    <ITEMBOX:5:-1:0:5:-21:33:30:*>
    <ITEMBOX:6:-1:0:11:-21:33:30:*>
    <ITEMBOX:7:-1:0:17:-21:33:30:*>\
    <出售价：[ /FCOLOR=255>{<$STR(N$鱼总价)>/FCOLOR=222}< ]元宝/FCOLOR=255>\
    <○/FCOLOR=103><卖出物品/FCOLOR=230>\
    <○/FCOLOR=103><返回/@MAIN>\

    [@出售]
    #IF
    #ACT
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    GetRandomText ..\QuestDiary\数据库\商店数据\渔场.txt <$STR(S$售货0)> 0
    GetRandomText ..\QuestDiary\数据库\商店数据\渔场.txt <$STR(S$售货1)> 1
    GetRandomText ..\QuestDiary\数据库\商店数据\渔场.txt <$STR(S$售货2)> 2
    GetRandomText ..\QuestDiary\数据库\商店数据\渔场.txt <$STR(S$售货3)> 3

    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>
    <Img:381:17:-206:-40>\ \
    ;商品区---第一排
    <$STR(S$售货0)>　
    <$STR(S$售货1)>　
    <$STR(S$售货2)>　
    <$STR(S$售货3)>\
    　\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
    ;出售页第一排
    <ITEMBOX:0:-1:0:-1:-41:33:30:*>
    <ITEMBOX:1:-1:0:5:-41:33:30:*>
    <ITEMBOX:2:-1:0:11:-41:33:30:*>
    <ITEMBOX:3:-1:0:17:-41:33:30:*>\
    ;出售页第二排
    <ITEMBOX:4:-1:0:-1:-21:33:30:*>
    <ITEMBOX:5:-1:0:5:-21:33:30:*>
    <ITEMBOX:6:-1:0:11:-21:33:30:*>
    <ITEMBOX:7:-1:0:17:-21:33:30:*>\
    <出售价：[ /FCOLOR=255>{<$STR(N$鱼总价)>/FCOLOR=222}< ]元宝/FCOLOR=255>\
    <○/FCOLOR=103><卖出物品/FCOLOR=230>\
    <○/FCOLOR=103><返回/@MAIN>\

    [@ItemOutBox0]
    #ACT
    DEC N$鱼总价 <$STR(N$鱼售价0)>


    #IF
    LARGE N$鱼总价 0
    #ACT
    MOV S$卖出按钮 <卖出物品/@卖出>
    #ELSEACT
    MOV S$卖出按钮 <卖出物品/FCOLOR=230>>

    #IF
    #ACT
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>
    <Img:381:17:-206:-40>\ \
    ;商品区---第一排
    <$STR(S$售货0)>　
    <$STR(S$售货1)>　
    <$STR(S$售货2)>　
    <$STR(S$售货3)>\
    　\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
    ;出售页第一排
    <ITEMBOX:0:-1:0:-1:-41:33:30:*>
    <ITEMBOX:1:-1:0:5:-41:33:30:*>
    <ITEMBOX:2:-1:0:11:-41:33:30:*>
    <ITEMBOX:3:-1:0:17:-41:33:30:*>\
    ;出售页第二排
    <ITEMBOX:4:-1:0:-1:-21:33:30:*>
    <ITEMBOX:5:-1:0:5:-21:33:30:*>
    <ITEMBOX:6:-1:0:11:-21:33:30:*>
    <ITEMBOX:7:-1:0:17:-21:33:30:*>\
    <出售价：[ /FCOLOR=255>{<$STR(N$鱼总价)>/FCOLOR=222}< ]元宝/FCOLOR=255>\
    <○/FCOLOR=103><$STR(S$卖出按钮)>\
    <○/FCOLOR=103><返回/@MAIN>\


    [@ItemIntoBox0]
    #IF
    CHECKTEXTLIST ..\QuestDiary\数据库\钓鱼\鱼库.txt <$BOXITEM[0].NAME>
    #ELSEACT
    UNALLOWITEMINTOBOX
    SENDMSG 5 {[垂钓者]：|251:0:1}我们这里不收这个东西！
    break

    #IF
    #ACT
    GetStringPos ..\QuestDiary\数据库\钓鱼\鱼库.txt <$BOXITEM[0].NAME>
    GetRandomText ..\QuestDiary\数据库\钓鱼\鱼库价格.txt <$STR(N$鱼单价0)> <$STR(N0)>
    #ACT
    MOV N$鱼数量0 <$BOXITEM[0].DURA>
    INC N$鱼数量0 1
    MUL N$鱼售价0 <$STR(N$鱼单价0)> <$STR(N$鱼数量0)>
    INC N$鱼总价 <$STR(N$鱼售价0)>

    #IF
    #ACT
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>
    <Img:381:17:-206:-40>\ \
    ;商品区---第一排
    <$STR(S$售货0)>　
    <$STR(S$售货1)>　
    <$STR(S$售货2)>　
    <$STR(S$售货3)>\
    　\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
    ;出售页第一排
    <ITEMBOX:0:-1:0:-1:-41:33:30:*>
    <ITEMBOX:1:-1:0:5:-41:33:30:*>
    <ITEMBOX:2:-1:0:11:-41:33:30:*>
    <ITEMBOX:3:-1:0:17:-41:33:30:*>\
    ;出售页第二排
    <ITEMBOX:4:-1:0:-1:-21:33:30:*>
    <ITEMBOX:5:-1:0:5:-21:33:30:*>
    <ITEMBOX:6:-1:0:11:-21:33:30:*>
    <ITEMBOX:7:-1:0:17:-21:33:30:*>\
    <出售价：[ /FCOLOR=255>{<$STR(N$鱼总价)>/FCOLOR=222}< ]元宝/FCOLOR=255>\
    <○/FCOLOR=103><卖出物品/@卖出>\
    <○/FCOLOR=103><返回/@MAIN>\


    [@ItemOutBox1]
    #ACT
    DEC N$鱼总价 <$STR(N$鱼售价1)>


    #IF
    LARGE N$鱼总价 0
    #ACT
    MOV S$卖出按钮 <卖出物品/@卖出>
    #ELSEACT
    MOV S$卖出按钮 <卖出物品/FCOLOR=230>>

    #IF
    #ACT
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>
    <Img:381:17:-206:-40>\ \
    ;商品区---第一排
    <$STR(S$售货0)>　
    <$STR(S$售货1)>　
    <$STR(S$售货2)>　
    <$STR(S$售货3)>\
    　\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
    ;出售页第一排
    <ITEMBOX:0:-1:0:-1:-41:33:30:*>
    <ITEMBOX:1:-1:0:5:-41:33:30:*>
    <ITEMBOX:2:-1:0:11:-41:33:30:*>
    <ITEMBOX:3:-1:0:17:-41:33:30:*>\
    ;出售页第二排
    <ITEMBOX:4:-1:0:-1:-21:33:30:*>
    <ITEMBOX:5:-1:0:5:-21:33:30:*>
    <ITEMBOX:6:-1:0:11:-21:33:30:*>
    <ITEMBOX:7:-1:0:17:-21:33:30:*>\
    <出售价：[ /FCOLOR=255>{<$STR(N$鱼总价)>/FCOLOR=222}< ]元宝/FCOLOR=255>\
    <○/FCOLOR=103><$STR(S$卖出按钮)>\
    <○/FCOLOR=103><返回/@MAIN>\


    [@ItemIntoBox1]
    #IF
    CHECKTEXTLIST ..\QuestDiary\数据库\钓鱼\鱼库.txt <$BOXITEM[1].NAME>
    #ELSEACT
    UNALLOWITEMINTOBOX
    SENDMSG 5 {[垂钓者]：|251:0:1}我们这里不收这个东西！
    break

    #IF
    #ACT
    GetStringPos ..\QuestDiary\数据库\钓鱼\鱼库.txt <$BOXITEM[1].NAME>
    GetRandomText ..\QuestDiary\数据库\钓鱼\鱼库价格.txt <$STR(N$鱼单价1)> <$STR(N0)>
    #ACT
    MOV N$鱼数量1 <$BOXITEM[1].DURA>
    INC N$鱼数量1 1
    MUL N$鱼售价1 <$STR(N$鱼单价1)> <$STR(N$鱼数量1)>
    INC N$鱼总价 <$STR(N$鱼售价1)>

    #IF
    #ACT
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>
    <Img:381:17:-206:-40>\ \
    ;商品区---第一排
    <$STR(S$售货0)>　
    <$STR(S$售货1)>　
    <$STR(S$售货2)>　
    <$STR(S$售货3)>\
    　\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
    ;出售页第一排
    <ITEMBOX:0:-1:0:-1:-41:33:30:*>
    <ITEMBOX:1:-1:0:5:-41:33:30:*>
    <ITEMBOX:2:-1:0:11:-41:33:30:*>
    <ITEMBOX:3:-1:0:17:-41:33:30:*>\
    ;出售页第二排
    <ITEMBOX:4:-1:0:-1:-21:33:30:*>
    <ITEMBOX:5:-1:0:5:-21:33:30:*>
    <ITEMBOX:6:-1:0:11:-21:33:30:*>
    <ITEMBOX:7:-1:0:17:-21:33:30:*>\
    <出售价：[ /FCOLOR=255>{<$STR(N$鱼总价)>/FCOLOR=222}< ]元宝/FCOLOR=255>\
    <○/FCOLOR=103><卖出物品/@卖出>\
    <○/FCOLOR=103><返回/@MAIN>\






    [@ItemOutBox2]
    #ACT
    DEC N$鱼总价 <$STR(N$鱼售价2)>


    #IF
    LARGE N$鱼总价 0
    #ACT
    MOV S$卖出按钮 <卖出物品/@卖出>
    #ELSEACT
    MOV S$卖出按钮 <卖出物品/FCOLOR=230>>

    #IF
    #ACT
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>
    <Img:381:17:-206:-40>\ \
    ;商品区---第一排
    <$STR(S$售货0)>　
    <$STR(S$售货1)>　
    <$STR(S$售货2)>　
    <$STR(S$售货3)>\
    　\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
    ;出售页第一排
    <ITEMBOX:0:-1:0:-1:-41:33:30:*>
    <ITEMBOX:1:-1:0:5:-41:33:30:*>
    <ITEMBOX:2:-1:0:11:-41:33:30:*>
    <ITEMBOX:3:-1:0:17:-41:33:30:*>\
    ;出售页第二排
    <ITEMBOX:4:-1:0:-1:-21:33:30:*>
    <ITEMBOX:5:-1:0:5:-21:33:30:*>
    <ITEMBOX:6:-1:0:11:-21:33:30:*>
    <ITEMBOX:7:-1:0:17:-21:33:30:*>\
    <出售价：[ /FCOLOR=255>{<$STR(N$鱼总价)>/FCOLOR=222}< ]元宝/FCOLOR=255>\
    <○/FCOLOR=103><$STR(S$卖出按钮)>\
    <○/FCOLOR=103><返回/@MAIN>\


    [@ItemIntoBox2]
    #IF
    CHECKTEXTLIST ..\QuestDiary\数据库\钓鱼\鱼库.txt <$BOXITEM[2].NAME>
    #ELSEACT
    UNALLOWITEMINTOBOX
    SENDMSG 5 {[垂钓者]：|251:0:1}我们这里不收这个东西！
    break

    #IF
    #ACT
    GetStringPos ..\QuestDiary\数据库\钓鱼\鱼库.txt <$BOXITEM[2].NAME>
    GetRandomText ..\QuestDiary\数据库\钓鱼\鱼库价格.txt <$STR(N$鱼单价2)> <$STR(N0)>
    #ACT
    MOV N$鱼数量2 <$BOXITEM[2].DURA>
    INC N$鱼数量2 1
    MUL N$鱼售价2 <$STR(N$鱼单价2)> <$STR(N$鱼数量2)>
    INC N$鱼总价 <$STR(N$鱼售价2)>

    #IF
    #ACT
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>
    <Img:381:17:-206:-40>\ \
    ;商品区---第一排
    <$STR(S$售货0)>　
    <$STR(S$售货1)>　
    <$STR(S$售货2)>　
    <$STR(S$售货3)>\
    　\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
    ;出售页第一排
    <ITEMBOX:0:-1:0:-1:-41:33:30:*>
    <ITEMBOX:1:-1:0:5:-41:33:30:*>
    <ITEMBOX:2:-1:0:11:-41:33:30:*>
    <ITEMBOX:3:-1:0:17:-41:33:30:*>\
    ;出售页第二排
    <ITEMBOX:4:-1:0:-1:-21:33:30:*>
    <ITEMBOX:5:-1:0:5:-21:33:30:*>
    <ITEMBOX:6:-1:0:11:-21:33:30:*>
    <ITEMBOX:7:-1:0:17:-21:33:30:*>\
    <出售价：[ /FCOLOR=255>{<$STR(N$鱼总价)>/FCOLOR=222}< ]元宝/FCOLOR=255>\
    <○/FCOLOR=103><卖出物品/@卖出>\
    <○/FCOLOR=103><返回/@MAIN>\


    [@ItemOutBox3]
    #ACT
    DEC N$鱼总价 <$STR(N$鱼售价3)>


    #IF
    LARGE N$鱼总价 0
    #ACT
    MOV S$卖出按钮 <卖出物品/@卖出>
    #ELSEACT
    MOV S$卖出按钮 <卖出物品/FCOLOR=230>>

    #IF
    #ACT
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>
    <Img:381:17:-206:-40>\ \
    ;商品区---第一排
    <$STR(S$售货0)>　
    <$STR(S$售货1)>　
    <$STR(S$售货2)>　
    <$STR(S$售货3)>\
    　\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
    ;出售页第一排
    <ITEMBOX:0:-1:0:-1:-41:33:30:*>
    <ITEMBOX:1:-1:0:5:-41:33:30:*>
    <ITEMBOX:2:-1:0:11:-41:33:30:*>
    <ITEMBOX:3:-1:0:17:-41:33:30:*>\
    ;出售页第二排
    <ITEMBOX:4:-1:0:-1:-21:33:30:*>
    <ITEMBOX:5:-1:0:5:-21:33:30:*>
    <ITEMBOX:6:-1:0:11:-21:33:30:*>
    <ITEMBOX:7:-1:0:17:-21:33:30:*>\
    <出售价：[ /FCOLOR=255>{<$STR(N$鱼总价)>/FCOLOR=222}< ]元宝/FCOLOR=255>\
    <○/FCOLOR=103><$STR(S$卖出按钮)>\
    <○/FCOLOR=103><返回/@MAIN>\


    [@ItemIntoBox3]
    #IF
    CHECKTEXTLIST ..\QuestDiary\数据库\钓鱼\鱼库.txt <$BOXITEM[3].NAME>
    #ELSEACT
    UNALLOWITEMINTOBOX
    SENDMSG 5 {[垂钓者]：|251:0:1}我们这里不收这个东西！
    break

    #IF
    #ACT
    GetStringPos ..\QuestDiary\数据库\钓鱼\鱼库.txt <$BOXITEM[3].NAME>
    GetRandomText ..\QuestDiary\数据库\钓鱼\鱼库价格.txt <$STR(N$鱼单价3)> <$STR(N0)>
    #ACT
    MOV N$鱼数量3 <$BOXITEM[3].DURA>
    INC N$鱼数量3 1
    MUL N$鱼售价3 <$STR(N$鱼单价3)> <$STR(N$鱼数量3)>
    INC N$鱼总价 <$STR(N$鱼售价3)>

    #IF
    #ACT
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>
    <Img:381:17:-206:-40>\ \
    ;商品区---第一排
    <$STR(S$售货0)>　
    <$STR(S$售货1)>　
    <$STR(S$售货2)>　
    <$STR(S$售货3)>\
    　\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
    ;出售页第一排
    <ITEMBOX:0:-1:0:-1:-41:33:30:*>
    <ITEMBOX:1:-1:0:5:-41:33:30:*>
    <ITEMBOX:2:-1:0:11:-41:33:30:*>
    <ITEMBOX:3:-1:0:17:-41:33:30:*>\
    ;出售页第二排
    <ITEMBOX:4:-1:0:-1:-21:33:30:*>
    <ITEMBOX:5:-1:0:5:-21:33:30:*>
    <ITEMBOX:6:-1:0:11:-21:33:30:*>
    <ITEMBOX:7:-1:0:17:-21:33:30:*>\
    <出售价：[ /FCOLOR=255>{<$STR(N$鱼总价)>/FCOLOR=222}< ]元宝/FCOLOR=255>\
    <○/FCOLOR=103><卖出物品/@卖出>\
    <○/FCOLOR=103><返回/@MAIN>\

    [@ItemOutBox4]
    #ACT
    DEC N$鱼总价 <$STR(N$鱼售价4)>


    #IF
    LARGE N$鱼总价 0
    #ACT
    MOV S$卖出按钮 <卖出物品/@卖出>
    #ELSEACT
    MOV S$卖出按钮 <卖出物品/FCOLOR=230>>

    #IF
    #ACT
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>
    <Img:381:17:-206:-40>\ \
    ;商品区---第一排
    <$STR(S$售货0)>　
    <$STR(S$售货1)>　
    <$STR(S$售货2)>　
    <$STR(S$售货3)>\
    　\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
    ;出售页第一排
    <ITEMBOX:0:-1:0:-1:-41:33:30:*>
    <ITEMBOX:1:-1:0:5:-41:33:30:*>
    <ITEMBOX:2:-1:0:11:-41:33:30:*>
    <ITEMBOX:3:-1:0:17:-41:33:30:*>\
    ;出售页第二排
    <ITEMBOX:4:-1:0:-1:-21:33:30:*>
    <ITEMBOX:5:-1:0:5:-21:33:30:*>
    <ITEMBOX:6:-1:0:11:-21:33:30:*>
    <ITEMBOX:7:-1:0:17:-21:33:30:*>\
    <出售价：[ /FCOLOR=255>{<$STR(N$鱼总价)>/FCOLOR=222}< ]元宝/FCOLOR=255>\
    <○/FCOLOR=103><$STR(S$卖出按钮)>\
    <○/FCOLOR=103><返回/@MAIN>\


    [@ItemIntoBox4]
    #IF
    CHECKTEXTLIST ..\QuestDiary\数据库\钓鱼\鱼库.txt <$BOXITEM[4].NAME>
    #ELSEACT
    UNALLOWITEMINTOBOX
    SENDMSG 5 {[垂钓者]：|251:0:1}我们这里不收这个东西！
    break

    #IF
    #ACT
    GetStringPos ..\QuestDiary\数据库\钓鱼\鱼库.txt <$BOXITEM[4].NAME>
    GetRandomText ..\QuestDiary\数据库\钓鱼\鱼库价格.txt <$STR(N$鱼单价4)> <$STR(N0)>
    #ACT
    MOV N$鱼数量4 <$BOXITEM[4].DURA>
    INC N$鱼数量4 1
    MUL N$鱼售价4 <$STR(N$鱼单价4)> <$STR(N$鱼数量4)>
    INC N$鱼总价 <$STR(N$鱼售价4)>

    #IF
    #ACT
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>
    <Img:381:17:-206:-40>\ \
    ;商品区---第一排
    <$STR(S$售货0)>　
    <$STR(S$售货1)>　
    <$STR(S$售货2)>　
    <$STR(S$售货3)>\
    　\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
    ;出售页第一排
    <ITEMBOX:0:-1:0:-1:-41:33:30:*>
    <ITEMBOX:1:-1:0:5:-41:33:30:*>
    <ITEMBOX:2:-1:0:11:-41:33:30:*>
    <ITEMBOX:3:-1:0:17:-41:33:30:*>\
    ;出售页第二排
    <ITEMBOX:4:-1:0:-1:-21:33:30:*>
    <ITEMBOX:5:-1:0:5:-21:33:30:*>
    <ITEMBOX:6:-1:0:11:-21:33:30:*>
    <ITEMBOX:7:-1:0:17:-21:33:30:*>\
    <出售价：[ /FCOLOR=255>{<$STR(N$鱼总价)>/FCOLOR=222}< ]元宝/FCOLOR=255>\
    <○/FCOLOR=103><卖出物品/@卖出>\
    <○/FCOLOR=103><返回/@MAIN>\

    [@ItemOutBox5]
    #ACT
    DEC N$鱼总价 <$STR(N$鱼售价5)>


    #IF
    LARGE N$鱼总价 0
    #ACT
    MOV S$卖出按钮 <卖出物品/@卖出>
    #ELSEACT
    MOV S$卖出按钮 <卖出物品/FCOLOR=230>>

    #IF
    #ACT
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>
    <Img:381:17:-206:-40>\ \
    ;商品区---第一排
    <$STR(S$售货0)>　
    <$STR(S$售货1)>　
    <$STR(S$售货2)>　
    <$STR(S$售货3)>\
    　\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
    ;出售页第一排
    <ITEMBOX:0:-1:0:-1:-41:33:30:*>
    <ITEMBOX:1:-1:0:5:-41:33:30:*>
    <ITEMBOX:2:-1:0:11:-41:33:30:*>
    <ITEMBOX:3:-1:0:17:-41:33:30:*>\
    ;出售页第二排
    <ITEMBOX:4:-1:0:-1:-21:33:30:*>
    <ITEMBOX:5:-1:0:5:-21:33:30:*>
    <ITEMBOX:6:-1:0:11:-21:33:30:*>
    <ITEMBOX:7:-1:0:17:-21:33:30:*>\
    <出售价：[ /FCOLOR=255>{<$STR(N$鱼总价)>/FCOLOR=222}< ]元宝/FCOLOR=255>\
    <○/FCOLOR=103><$STR(S$卖出按钮)>\
    <○/FCOLOR=103><返回/@MAIN>\

    [@ItemIntoBox5]
    #IF
    CHECKTEXTLIST ..\QuestDiary\数据库\钓鱼\鱼库.txt <$BOXITEM[5].NAME>
    #ELSEACT
    UNALLOWITEMINTOBOX
    SENDMSG 5 {[垂钓者]：|251:0:1}我们这里不收这个东西！
    break

    #IF
    #ACT
    GetStringPos ..\QuestDiary\数据库\钓鱼\鱼库.txt <$BOXITEM[5].NAME>
    GetRandomText ..\QuestDiary\数据库\钓鱼\鱼库价格.txt <$STR(N$鱼单价5)> <$STR(N0)>
    #ACT
    MOV N$鱼数量5 <$BOXITEM[5].DURA>
    INC N$鱼数量5 1
    MUL N$鱼售价5 <$STR(N$鱼单价5)> <$STR(N$鱼数量5)>
    INC N$鱼总价 <$STR(N$鱼售价5)>

    #IF
    #ACT
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>
    <Img:381:17:-206:-40>\ \
    ;商品区---第一排
    <$STR(S$售货0)>　
    <$STR(S$售货1)>　
    <$STR(S$售货2)>　
    <$STR(S$售货3)>\
    　\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
    ;出售页第一排
    <ITEMBOX:0:-1:0:-1:-41:33:30:*>
    <ITEMBOX:1:-1:0:5:-41:33:30:*>
    <ITEMBOX:2:-1:0:11:-41:33:30:*>
    <ITEMBOX:3:-1:0:17:-41:33:30:*>\
    ;出售页第二排
    <ITEMBOX:4:-1:0:-1:-21:33:30:*>
    <ITEMBOX:5:-1:0:5:-21:33:30:*>
    <ITEMBOX:6:-1:0:11:-21:33:30:*>
    <ITEMBOX:7:-1:0:17:-21:33:30:*>\
    <出售价：[ /FCOLOR=255>{<$STR(N$鱼总价)>/FCOLOR=222}< ]元宝/FCOLOR=255>\
    <○/FCOLOR=103><卖出物品/@卖出>\
    <○/FCOLOR=103><返回/@MAIN>\


    [@ItemOutBox6]
    #ACT
    DEC N$鱼总价 <$STR(N$鱼售价6)>


    #IF
    LARGE N$鱼总价 0
    #ACT
    MOV S$卖出按钮 <卖出物品/@卖出>
    #ELSEACT
    MOV S$卖出按钮 <卖出物品/FCOLOR=230>>

    #IF
    #ACT
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>
    <Img:381:17:-206:-40>\ \
    ;商品区---第一排
    <$STR(S$售货0)>　
    <$STR(S$售货1)>　
    <$STR(S$售货2)>　
    <$STR(S$售货3)>\
    　\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
    ;出售页第一排
    <ITEMBOX:0:-1:0:-1:-41:33:30:*>
    <ITEMBOX:1:-1:0:5:-41:33:30:*>
    <ITEMBOX:2:-1:0:11:-41:33:30:*>
    <ITEMBOX:3:-1:0:17:-41:33:30:*>\
    ;出售页第二排
    <ITEMBOX:4:-1:0:-1:-21:33:30:*>
    <ITEMBOX:5:-1:0:5:-21:33:30:*>
    <ITEMBOX:6:-1:0:11:-21:33:30:*>
    <ITEMBOX:7:-1:0:17:-21:33:30:*>\
    <出售价：[ /FCOLOR=255>{<$STR(N$鱼总价)>/FCOLOR=222}< ]元宝/FCOLOR=255>\
    <○/FCOLOR=103><$STR(S$卖出按钮)>\
    <○/FCOLOR=103><返回/@MAIN>\


    [@ItemIntoBox6]
    #IF
    CHECKTEXTLIST ..\QuestDiary\数据库\钓鱼\鱼库.txt <$BOXITEM[6].NAME>
    #ELSEACT
    UNALLOWITEMINTOBOX
    SENDMSG 5 {[垂钓者]：|251:0:1}我们这里不收这个东西！
    break

    #IF
    #ACT
    GetStringPos ..\QuestDiary\数据库\钓鱼\鱼库.txt <$BOXITEM[6].NAME>
    GetRandomText ..\QuestDiary\数据库\钓鱼\鱼库价格.txt <$STR(N$鱼单价6)> <$STR(N0)>
    #ACT
    MOV N$鱼数量6 <$BOXITEM[6].DURA>
    INC N$鱼数量6 1
    MUL N$鱼售价6 <$STR(N$鱼单价6)> <$STR(N$鱼数量6)>
    INC N$鱼总价 <$STR(N$鱼售价6)>

    #IF
    #ACT
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>
    <Img:381:17:-206:-40>\ \
    ;商品区---第一排
    <$STR(S$售货0)>　
    <$STR(S$售货1)>　
    <$STR(S$售货2)>　
    <$STR(S$售货3)>\
    　\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
    ;出售页第一排
    <ITEMBOX:0:-1:0:-1:-41:33:30:*>
    <ITEMBOX:1:-1:0:5:-41:33:30:*>
    <ITEMBOX:2:-1:0:11:-41:33:30:*>
    <ITEMBOX:3:-1:0:17:-41:33:30:*>\
    ;出售页第二排
    <ITEMBOX:4:-1:0:-1:-21:33:30:*>
    <ITEMBOX:5:-1:0:5:-21:33:30:*>
    <ITEMBOX:6:-1:0:11:-21:33:30:*>
    <ITEMBOX:7:-1:0:17:-21:33:30:*>\
    <出售价：[ /FCOLOR=255>{<$STR(N$鱼总价)>/FCOLOR=222}< ]元宝/FCOLOR=255>\
    <○/FCOLOR=103><卖出物品/@卖出>\
    <○/FCOLOR=103><返回/@MAIN>\


    [@ItemOutBox7]
    #ACT
    DEC N$鱼总价 <$STR(N$鱼售价7)>


    #IF
    LARGE N$鱼总价 0
    #ACT
    MOV S$卖出按钮 <卖出物品/@卖出>
    #ELSEACT
    MOV S$卖出按钮 <卖出物品/FCOLOR=230>>

    #IF
    #ACT
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>
    <Img:381:17:-206:-40>\ \
    ;商品区---第一排
    <$STR(S$售货0)>　
    <$STR(S$售货1)>　
    <$STR(S$售货2)>　
    <$STR(S$售货3)>\
    　\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
    ;出售页第一排
    <ITEMBOX:0:-1:0:-1:-41:33:30:*>
    <ITEMBOX:1:-1:0:5:-41:33:30:*>
    <ITEMBOX:2:-1:0:11:-41:33:30:*>
    <ITEMBOX:3:-1:0:17:-41:33:30:*>\
    ;出售页第二排
    <ITEMBOX:4:-1:0:-1:-21:33:30:*>
    <ITEMBOX:5:-1:0:5:-21:33:30:*>
    <ITEMBOX:6:-1:0:11:-21:33:30:*>
    <ITEMBOX:7:-1:0:17:-21:33:30:*>\
    <出售价：[ /FCOLOR=255>{<$STR(N$鱼总价)>/FCOLOR=222}< ]元宝/FCOLOR=255>\
    <○/FCOLOR=103><$STR(S$卖出按钮)>\
    <○/FCOLOR=103><返回/@MAIN>\


    [@ItemIntoBox7]
    #IF
    CHECKTEXTLIST ..\QuestDiary\数据库\钓鱼\鱼库.txt <$BOXITEM[7].NAME>
    #ELSEACT
    UNALLOWITEMINTOBOX
    SENDMSG 5 {[垂钓者]：|251:0:1}我们这里不收这个东西！
    break

    #IF
    #ACT
    GetStringPos ..\QuestDiary\数据库\钓鱼\鱼库.txt <$BOXITEM[7].NAME>
    GetRandomText ..\QuestDiary\数据库\钓鱼\鱼库价格.txt <$STR(N$鱼单价7)> <$STR(N0)>
    #ACT
    MOV N$鱼数量7 <$BOXITEM[7].DURA>
    INC N$鱼数量7 1
    MUL N$鱼售价7 <$STR(N$鱼单价7)> <$STR(N$鱼数量7)>
    INC N$鱼总价 <$STR(N$鱼售价7)>

    #IF
    #ACT
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>
    <Img:381:17:-206:-40>\ \
    ;商品区---第一排
    <$STR(S$售货0)>　
    <$STR(S$售货1)>　
    <$STR(S$售货2)>　
    <$STR(S$售货3)>\
    　\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
    ;出售页第一排
    <ITEMBOX:0:-1:0:-1:-41:33:30:*>
    <ITEMBOX:1:-1:0:5:-41:33:30:*>
    <ITEMBOX:2:-1:0:11:-41:33:30:*>
    <ITEMBOX:3:-1:0:17:-41:33:30:*>\
    ;出售页第二排
    <ITEMBOX:4:-1:0:-1:-21:33:30:*>
    <ITEMBOX:5:-1:0:5:-21:33:30:*>
    <ITEMBOX:6:-1:0:11:-21:33:30:*>
    <ITEMBOX:7:-1:0:17:-21:33:30:*>\
    <出售价：[ /FCOLOR=255>{<$STR(N$鱼总价)>/FCOLOR=222}< ]元宝/FCOLOR=255>\
    <○/FCOLOR=103><卖出物品/@卖出>\
    <○/FCOLOR=103><返回/@MAIN>\


    [@卖出]
    #ACT
    DELBOXITEM 0
    DELBOXITEM 1
    DELBOXITEM 2
    DELBOXITEM 3
    DELBOXITEM 4
    DELBOXITEM 5
    DELBOXITEM 6
    DELBOXITEM 7
    GAMEGOLD + <$STR(N$鱼总价)>
    SENDMSG 6 {[垂钓者]：|251:0:1}{客官，您出售的鱼我一共给您[ |150:0:1}{<$STR(N$鱼总价)>|255:0:1}{ ]元宝，您拿好咯！~欢迎再来！|150:0:1}
    UpDateBoxItem 0
    UpDateBoxItem 1
    UpDateBoxItem 2
    UpDateBoxItem 3
    UpDateBoxItem 4
    UpDateBoxItem 5
    UpDateBoxItem 6
    UpDateBoxItem 7
    MOV N$鱼总价 0
    GOTO @清空


    [@询问]
    #ACT
    OPENMERCHANTBIGDLG 17 380 1 0 0 100
    #SAY
    <Img:55:4:248:-27/@EXIT>
    <Img:382:17:28:-24>\
    垂钓者：\
    　<1./FCOLOR=222>钓鱼需要装备钓竿，当有了钓竿后就会在技能\
    页面生成一个钓鱼技能。在渔场靠近水边的位置按\
    下钓鱼技能热键即可。\ \
    　<2./FCOLOR=222>浮漂：浮漂出现点了下或者动了下，就不要管\
    它除此之外就可以收杆上鱼了！\ \
    　<3./FCOLOR=222>窝料：窝料是特殊的制成的饵料，用于钓鱼前\
    使用。使用后30分钟内引鱼入窝，钓鱼几率提升！\ \
    　<4./FCOLOR=222>出售：获得鱼后可以出售给我，我会给你相应\
    元宝作为报酬。越稀少的鱼越贵，比如一条中华鲟\
    的售价高达 12000元宝。还有些特殊的东西钓到后\
    不妨鼠标移动查看下属性！\ \
    　<5./FCOLOR=222>活动：每个星期五、星期六、星期天的晚上20\
    点到21点是钓鱼的黄金时期，钓鱼几率大大提高！\ \
    <○/FCOLOR=103><买渔具、钓饵、钓窝/@出售>\
    <○/FCOLOR=103><卖鱼/@出售>\
    <○/FCOLOR=103><返回/@MAIN>\


    [@购物0]
    #IF
    CHECKBAGSIZE 1
    #ELSEACT
    SENDMSG 5 背包空位不足，无法购买！
    break

    #IF
    CHECKGAMEGOLD > 499
    #ACT
    GAMEGOLD - 500
    GIVE 钓鱼竿 1
    SENDMSG 6 {[垂钓者]：|251:0:1}{客官，这可是上好的钓竿，收您[ |150:0:1}{500|255:0:1}{ ]元宝。钓竿您拿好咯！~欢迎再来！|150:0:1}
    break
    #ELSEACT
    SENDMSG 5 元宝不足500！
    break


    [@购物1]
    #IF
    CHECKBAGSIZE 1
    #ELSEACT
    SENDMSG 5 背包空位不足，无法购买！
    break

    #IF
    CHECKGAMEGOLD > 98
    #ACT
    GAMEGOLD - 99
    GIVE 蚯蚓钓饵 99
    SENDMSG 6 {[垂钓者]：|251:0:1}{客官，收您[ |150:0:1}{99|255:0:1}{ ]元宝。1组[ |150:0:1}{蚯蚓钓饵|250:0:1}{ ]您拿好咯！~欢迎再来！|150:0:1}
    break
    #ELSEACT
    SENDMSG 5 元宝不足99！
    break


    [@购物2]
    #IF
    CHECKBAGSIZE 1
    #ELSEACT
    SENDMSG 5 背包空位不足，无法购买！
    break

    #IF
    CHECKGAMEGOLD > 999
    #ACT
    GAMEGOLD - 1000
    GIVE 麝香红虫 99
    SENDMSG 6 {[垂钓者]：|251:0:1}{客官，收您[ |150:0:1}{100|255:0:1}{ ]金刚石。这是1组[ |150:0:1}{麝香红虫|253:0:1}{ ]您拿好咯！~欢迎再来！|150:0:1}
    break
    #ELSEACT
    MESSAGEBOX 费用不足：\　\元宝不足100，是否进入网页充值获得元宝？(Y/N) @充值 @取消
    break



    [@购物3]
    #IF
    CHECKBAGSIZE 1
    #ELSEACT
    SENDMSG 5 背包空位不足，无法购买！
    break

    #IF
    CHECKGAMEGOLD > 4999
    #ACT
    GAMEGOLD - 5000
    GIVE 窝料 1
    SENDMSG 6 {[垂钓者]：|251:0:1}{客官，收您[ |150:0:1}{500|255:0:1}{ ]金刚石。这是1袋[ |150:0:1}{窝料|253:0:1}{ ]您拿好咯！~欢迎再来！|150:0:1}
    break
    #ELSEACT
    MESSAGEBOX 费用不足：\　\元宝不足5000，是否进入网页充值获得元宝？(Y/N) @充值 @取消
    break



    楼主热帖

    任逍遥网游论坛 VIP会员 10大特权详细资料

    任逍遥 论坛内积分获取途径总览

    回复

    使用道具 举报

    3281329yong
  • TA的每日心情
    衰
    2019-8-29 15:03

    • 签到天数: 479 天

    连续签到: 2 天

    [LV.9]妙领天机

    8

    主题

    2928

    帖子

    2934

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2934
    发表于 2019-10-16 19:49:42 | 显示全部楼层
    纯粹路过，没任何兴趣，仅仅是看在老用户份上回复一下

    任逍遥网游论坛 VIP会员 10大特权详细资料

    任逍遥 论坛内积分获取途径总览

    回复

    使用道具 举报

    njwsr123
  • TA的每日心情
    衰
    2019-8-30 08:35

    • 签到天数: 471 天

    连续签到: 9 天

    [LV.9]妙领天机

    6

    主题

    2990

    帖子

    2991

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2991
    发表于 2019-10-20 22:08:24 | 显示全部楼层
    不错 支持下

    任逍遥网游论坛 VIP会员 10大特权详细资料

    任逍遥 论坛内积分获取途径总览

    回复

    使用道具 举报

    未注册用户01
  • TA的每日心情
    开心
    2019-8-28 17:43

    • 签到天数: 471 天

    连续签到: 3 天

    [LV.9]妙领天机

    13

    主题

    2943

    帖子

    2955

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2955
    发表于 2019-10-24 16:19:31 | 显示全部楼层
    佩服佩服！

    任逍遥网游论坛 VIP会员 10大特权详细资料

    任逍遥 论坛内积分获取途径总览

    回复

    使用道具 举报

    a857936270
  • TA的每日心情
    衰
    2019-8-29 19:57

    • 签到天数: 476 天

    连续签到: 1 天

    [LV.9]妙领天机

    0

    主题

    2862

    帖子

    2860

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2860
    发表于 2019-10-26 10:25:16 | 显示全部楼层
    支持，赞一个

    任逍遥网游论坛 VIP会员 10大特权详细资料

    任逍遥 论坛内积分获取途径总览

    回复

    使用道具 举报

    星雨流光
  • TA的每日心情
    难过
    2019-8-29 15:31

    • 签到天数: 459 天

    连续签到: 4 天

    [LV.9]妙领天机

    13

    主题

    2907

    帖子

    2915

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2915
    发表于 2019-10-27 02:07:36 | 显示全部楼层
    LZ是天才，坚定完毕

    任逍遥网游论坛 VIP会员 10大特权详细资料

    任逍遥 论坛内积分获取途径总览

    回复

    使用道具 举报

    @Xizi_QN2JuVJJ
  • TA的每日心情
    开心
    2019-8-30 02:52

    • 签到天数: 479 天

    连续签到: 13 天

    [LV.9]妙领天机

    8

    主题

    2922

    帖子

    2929

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2929
    发表于 2019-11-7 00:04:33 | 显示全部楼层
    确实不错，顶先

    任逍遥网游论坛 VIP会员 10大特权详细资料

    任逍遥 论坛内积分获取途径总览

    回复

    使用道具 举报

    【小喬】
  • TA的每日心情
    无聊
    2019-8-28 16:16

    • 签到天数: 469 天

    连续签到: 6 天

    [LV.9]妙领天机

    3

    主题

    2831

    帖子

    2832

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2832
    发表于 2019-11-9 15:59:26 | 显示全部楼层
    回个帖子，下班咯~

    任逍遥网游论坛 VIP会员 10大特权详细资料

    任逍遥 论坛内积分获取途径总览

    回复

    使用道具 举报

    boys。。。
  • TA的每日心情
    慵懒
    2019-8-30 00:02

    • 签到天数: 479 天

    连续签到: 2 天

    [LV.9]妙领天机

    7

    主题

    2898

    帖子

    2899

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2899
    发表于 2019-11-11 20:27:54 | 显示全部楼层
    楼主呀，，，您太有才了。。。

    任逍遥网游论坛 VIP会员 10大特权详细资料

    任逍遥 论坛内积分获取途径总览

    回复

    使用道具 举报

    漫步彩虹a
  • TA的每日心情
    慵懒
    2019-8-30 10:24

    • 签到天数: 479 天

    连续签到: 1 天

    [LV.9]妙领天机

    0

    主题

    2937

    帖子

    2934

    积分

    声名显赫

    Rank: 7Rank: 7Rank: 7

    积分
    2934
    发表于 2019-11-15 23:55:13 | 显示全部楼层
    锄禾日当午，发帖真辛苦。谁知坛中餐，帖帖皆辛苦！

    任逍遥网游论坛 VIP会员 10大特权详细资料

    任逍遥 论坛内积分获取途径总览

    回复

    使用道具 举报

    下一页 »
    1234567下一页
    返回列表 发新帖
    高级模式
    B Color Image Link Quote Code Smilies
    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    QQ|Archiver|手机版|小黑屋|任逍遥

    GMT+8, 2024-4-19 05:28 , Processed in 0.072900 second(s), 49 queries .

    Powered by 任逍遥 X3.4

    Copyright © 2001-2023, Rxiaoyao Cloud.

    快速回复 返回顶部 返回列表