找回密码
 立即注册
查看: 14799|回复: 67

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

    [复制链接]
  • TA的每日心情
    慵懒
    2021-9-14 16:47
  • 签到天数: 9 天

    连续签到: 1 天

    [LV.3]初领妙道

    343

    主题

    0

    回帖

    1054

    积分

    锋芒毕露

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

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

    您需要 登录 才可以下载或查看,没有账号?立即注册

    ×
    [@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



    楼主热帖
  • TA的每日心情

    2019-8-29 15:03
  • 签到天数: 479 天

    连续签到: 2 天

    [LV.9]妙领天机

    8

    主题

    3052

    回帖

    3066

    积分

    声名显赫

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

    使用道具 举报

  • TA的每日心情

    2019-8-30 08:35
  • 签到天数: 471 天

    连续签到: 9 天

    [LV.9]妙领天机

    6

    主题

    3129

    回帖

    3136

    积分

    声名显赫

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

    使用道具 举报

  • TA的每日心情
    开心
    2019-8-28 17:43
  • 签到天数: 471 天

    连续签到: 3 天

    [LV.9]妙领天机

    13

    主题

    3106

    回帖

    3131

    积分

    声名显赫

    积分
    3131
    发表于 2019-10-24 16:19:31 | 显示全部楼层
    佩服佩服!
    回复

    使用道具 举报

  • TA的每日心情

    2019-8-29 19:57
  • 签到天数: 476 天

    连续签到: 1 天

    [LV.9]妙领天机

    0

    主题

    3012

    回帖

    3010

    积分

    声名显赫

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

    使用道具 举报

  • TA的每日心情
    难过
    2019-8-29 15:31
  • 签到天数: 459 天

    连续签到: 4 天

    [LV.9]妙领天机

    13

    主题

    3036

    回帖

    3057

    积分

    声名显赫

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

    使用道具 举报

  • TA的每日心情
    开心
    2019-8-30 02:52
  • 签到天数: 479 天

    连续签到: 13 天

    [LV.9]妙领天机

    8

    主题

    3043

    回帖

    3058

    积分

    声名显赫

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

    使用道具 举报

  • TA的每日心情
    无聊
    2019-8-28 16:16
  • 签到天数: 469 天

    连续签到: 6 天

    [LV.9]妙领天机

    3

    主题

    2973

    回帖

    2977

    积分

    声名显赫

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

    使用道具 举报

  • TA的每日心情
    慵懒
    2019-8-30 00:02
  • 签到天数: 479 天

    连续签到: 2 天

    [LV.9]妙领天机

    7

    主题

    3035

    回帖

    3043

    积分

    声名显赫

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

    使用道具 举报

  • TA的每日心情
    慵懒
    2019-8-30 10:24
  • 签到天数: 479 天

    连续签到: 1 天

    [LV.9]妙领天机

    0

    主题

    3086

    回帖

    3083

    积分

    声名显赫

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

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

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

    GMT+8, 2024-12-23 21:50 , Processed in 0.139287 second(s), 45 queries .

    Powered by 任逍遥 X3.5

    Copyright © 2001-2024, Rxiaoyao Cloud.

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