本站主推发布:新开传奇发布网,新开传奇,新开传奇发布,176复古传奇,迷失传奇,战神传奇,传奇私服,找搜服,仙剑传奇
当前位置: zhaosf首页 > 开服资料 > 传奇脚本 >

钓鱼NPC脚本非完整系统-不含素材仅供参照学习

时间:2016-08-19 00:10来源:新开传奇私服 作者:传奇私服发布网
发布这个钓鱼NPC的脚本仅供大家参考学习,另外完整的钓鱼系统还需附带鱼饵等DB数据及素材,大家如果喜欢这个钓鱼系统请关注本站,稍后测试无错后会发布在下载区。 [@MAIN] #ACT MOV N$鱼总价 0 MOV A300 ReturnBoxItem 0 ReturnBoxItem 1 ReturnBoxItem 2 ReturnBoxItem 3 ReturnBoxItem 4 ReturnBoxItem 5 ReturnBoxItem 6 ReturnBoxItem 7 #ACT OPENMERCH
发布这个钓鱼NPC的脚本仅供大家参考学习,另外完整的钓鱼系统还需附带鱼饵等DB数据及素材,大家如果喜欢这个钓鱼系统请关注本站,稍后测试无错后会发布在下载区。
[@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
 
 
(责任编辑:找搜服传奇发布网)
------分隔线----------------------------
栏目列表
推荐内容