超级玛丽变态版bgm。[@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 195金牛无内功$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
CHECKBAGS合击传奇sfIZE 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
