新开传奇钓鱼活动脚本适用于GOM引擎-GM无忧

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

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

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

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

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

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

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

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

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

声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。

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

作者信息

最新文章

GM无忧教你使用简单变量实现多个封号教程

GOM引擎版本进入游戏几分钟就掉线的解决方法

HeroM2引擎提示游戏引擎启动异常的解决方法

新Blue引擎引擎登录网关及游戏网关激活码

Blue引擎杀怪触发(切割)脚本教程

传奇服务端没有启动程序的解决教程

GOM引擎在游戏界面添加自定义按钮详细教程

传奇登录器必备补丁NewopUI.pak详细说明

GOM引擎微端更新速度太慢的详细解决方法

GOM引擎MapInfo.txt地图参数详细说明

热门文章

新手如何在传奇设置添加GM权限管理员和查看GM命令

安装传奇服务端提示请关闭调试或监控工具后再试

1.76热血传奇各地图怪物掉落装备大全

传奇道士1.76金币版：全阶段升级攻略与战术详解

盛大传奇1.76版本道士升级经验攻略

传奇开始游戏不能点点了没有反应怎么回事

传奇1.76武器升级攻略：关键要素、首饰选择与黑铁矿策略

传奇地图山谷矿区二层

传奇的口令命令大全

GOM引擎人物打怪杀怪物品爆率倍数脚本示例

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

相关文章

作者信息

最新文章

热门文章