七夕情人节传奇活动送花功能添加方法

在土城添加一个NPC脚本内容如下

[@MAIN]

<花仙子：/FCOLOR=150>\
　　鲜花赠佳人，美人爱鲜花。公子若有意中人，不妨在此赠送她一束\
鲜花表明心迹。\
<--------------------------------------------------------------/FCOLOR=230>\
<您的魅力值：/FCOLOR=250>[ <$HUMAN(鲜花)> ]<朵/FCOLOR=250>\
<可收红玫瑰：/FCOLOR=250>[ <$HUMAN(天红玫瑰)> ]<次/FCOLOR=250>\
<可收蓝玫瑰：/FCOLOR=250>[ <$HUMAN(天蓝玫瑰)> ]<次/FCOLOR=250>\
<[每日只能赠送一定次数的玫瑰，请珍惜机会]/FCOLOR=230>\
<--------------------------------------------------------------/FCOLOR=230>\
<○/FCOLOR=103><赠送玫瑰/@送玫瑰>  <○/FCOLOR=103><魅力排行榜/@排行>  <○/FCOLOR=103><离开/@EXIT>
[@排行]
#ACT
OPENMERCHANTBIGDLG 4 384 0 0 0 0
GetRandomText ..\QuestDiary\数据文件\鲜花排行.txt S$累s1 0
GetRandomText ..\QuestDiary\数据文件\鲜花排行.txt S$累s2 1
GetRandomText ..\QuestDiary\数据文件\鲜花排行.txt S$累s3 2
GetRandomText ..\QuestDiary\数据文件\鲜花排行.txt S$累s4 3
GetRandomText ..\QuestDiary\数据文件\鲜花排行.txt S$累s5 4
#SAY
<花仙子：/FCOLOR=150>\
　　下面是鲜花美丽排行榜，排行榜每30分钟刷新一次！\
<排位　   角色名称　      魅力点/FCOLOR=254>\
　1   <$sTR(S$累s1)>\
　2   <$sTR(S$累s2)>\
　3   <$sTR(S$累s3)>\
　4   <$sTR(S$累s4)>\
　5   <$sTR(S$累s5)>\ \
<○/FCOLOR=103><返回/@MAIN>

[@送玫瑰]
#IF
EQUAL S13
#SAY
<花仙子：/FCOLOR=150>\
　　请先输入赠予人名单然后再选择赠送的种类和数量。每日只能送出\
10朵鲜花，每次送出对方都会获得经验和魅力点！\
<--------------------------------------------------------------/FCOLOR=230>\
<赠予人名：/FCOLOR=254><点击输入人名/@@InPutString13(请输入对方的角色名：)>\
<赠送鲜花：/FCOLOR=254><一支红玫瑰/FCOLOR=230>  <五支红玫瑰/FCOLOR=230>  <十支红玫瑰/FCOLOR=230>\
　　　　　<一束红玫瑰/FCOLOR=230>  <五束红玫瑰/FCOLOR=230>  <十束红玫瑰/FCOLOR=230>\
　　　　　<一束蓝玫瑰/FCOLOR=230>  <五束蓝玫瑰/FCOLOR=230>  <十束蓝玫瑰/FCOLOR=230>\
<--------------------------------------------------------------/FCOLOR=230>\
<○/FCOLOR=103><赠送玫瑰/FCOLOR=230>  <○/FCOLOR=103><返回/@MAIN>
#ELSEACT
GOTO @InPutString13


[@InPutString13]
#IF
CHECKTEXTLIST ..\QuestDiary\数据文件\玩家名字.txt <$STR(S13)>
#ELSEACT
MESSAGEBOX 错误提示：\　\玩家名字错误，游戏内没有该玩家！请重新输入！
break

#IF
S13.checkonline
#SAY
<花仙子：/FCOLOR=150>\
　　请先输入赠予人名单然后再选择赠送的种类和数量。每日只能送出\
10朵鲜花，每次送出都会获得经验！\
<--------------------------------------------------------------/FCOLOR=230>\
<赠予人名：/FCOLOR=254>[ {<$STR(S13)>/FCOLOR=251} ]  <重新输入/@@InPutString13(请输入对方的角色名：)>\
<赠送鲜花：/FCOLOR=254><一支红玫瑰{FCOLOR=250}/@1支红>  <五支红玫瑰{FCOLOR=250}/@5支红>  <十支红玫瑰{FCOLOR=250}/@10支红>\
　　　　　<一束红玫瑰{FCOLOR=250}/@1束红>  <五束红玫瑰{FCOLOR=250}/@5束红>  <十束红玫瑰{FCOLOR=250}/@10束红>\
　　　　　<一束蓝玫瑰{FCOLOR=250}/@1束蓝>  <五束蓝玫瑰{FCOLOR=250}/@5束蓝>  <十束蓝玫瑰{FCOLOR=250}/@10束蓝>\
<--------------------------------------------------------------/FCOLOR=230>\
<○/FCOLOR=103><赠送玫瑰/FCOLOR=230>  <○/FCOLOR=103><返回/@MAIN>
#ELSEACT
MESSAGEBOX 错误提示：\　\该玩家不在线！你送给谁呢？
break

[@1支红]
#IF
S13.CHECKVAR HUMAN 天红玫瑰 = 0
#SAY
<花仙子：/FCOLOR=150>\
　　<$STR(S13)>今日收到红玫瑰次数已满10次，不能再赠送了！\ \
<○/FCOLOR=103><返回/@MAIN>
#ACT
break
#IF
S13.checkonline
#ELSESAY
<花仙子：/FCOLOR=150>\
　　该玩家不在线，没办法将鲜花送过去\ \
<○/FCOLOR=103><返回/@MAIN>
#ELSEACT
break
#IF
CHECKITEM 一支红玫瑰 1
#ACT
TAKE 一支红玫瑰 1
S13.CALCVAR HUMAN 天红玫瑰 - 1
S13.SAVEVAR HUMAN 天红玫瑰 ..\QuestDiary\数据文件\鲜花.txt
S13.CALCVAR HUMAN 鲜花 + 30
S13.SAVEVAR HUMAN 鲜花 ..\QuestDiary\数据文件\鲜花数量.txt
SENDMSG 7 [花仙子]：您赠送给<$STR(S13)>1支红玫瑰。
S13.SENDMSG 7 [花仙子]：您收到一支红玫瑰，获得魅力30朵，总计魅力<$HUMAN(鲜花)>朵。
S13.SENDMSG 0 {┌─────────────────|7:0:0}{游戏快讯|151:0:0}{──────────────────→|7:0:0}
S13.SENDMSG 0 {└|7:0:0}{[花仙子]|251:0:0}{：[ |103:0:1}{%s|251:0:1}{ ]收到了1支红玫瑰，获得了30朵魅力，100W经验|103:0:1}
#ELSESAY
<花仙子：/FCOLOR=150>\
　　您背包内没有1支红玫瑰\ \
<○/FCOLOR=103><返回/@MAIN>
#ELSEACT
break

#IF
S13.SMALL <$LEVEL> 99
#ACT
S13.CHANGEEXP + 1000000

[@5支红]
#IF
S13.CHECKVAR HUMAN 天红玫瑰 < 5
#SAY
<花仙子：/FCOLOR=150>\
　　<$STR(S13)>今日收到红玫瑰的次数不足5次，不能一次赠送他5支玫瑰！\ \
<○/FCOLOR=103><返回/@MAIN>
#ACT
break

#IF
S13.checkonline
#ELSESAY
<花仙子：/FCOLOR=150>\
　　该玩家不在线，没办法将鲜花送过去\ \
<○/FCOLOR=103><返回/@MAIN>
#ELSEACT
break

#IF
CHECKITEM 一支红玫瑰 5
#ACT
TAKE 一支红玫瑰 5
S13.CALCVAR HUMAN 天红玫瑰 - 5
S13.SAVEVAR HUMAN 天红玫瑰 ..\QuestDiary\数据文件\鲜花.txt
S13.CALCVAR HUMAN 鲜花 + 150
S13.SAVEVAR HUMAN 鲜花 ..\QuestDiary\数据文件\鲜花数量.txt
SENDMSG 7 [花仙子]：您赠送给<$STR(S13)>5支红玫瑰。
S13.SENDMSG 7 [花仙子]：您收到五支红玫瑰，获得魅力150朵，总计魅力<$HUMAN(鲜花)>朵。
S13.SENDMSG 0 {┌─────────────────|7:0:0}{游戏快讯|151:0:0}{──────────────────→|7:0:0}
S13.SENDMSG 0 {└|7:0:0}{[花仙子]|251:0:0}{：[ |103:0:1}{%s|251:0:1}{ ]收到了5支红玫瑰，获得了150朵魅力，500w经验|103:0:1}
#ELSESAY
<花仙子：/FCOLOR=150>\
　　您背包内没有5支红玫瑰\ \
<○/FCOLOR=103><返回/@MAIN>
#ELSEACT
break

#IF
S13.SMALL <$LEVEL> 99
#ACT
S13.CHANGEEXP + 1000000
S13.CHANGEEXP + 1000000
S13.CHANGEEXP + 1000000
S13.CHANGEEXP + 1000000
S13.CHANGEEXP + 1000000
break


[@10支红]
#IF
S13.CHECKVAR HUMAN 天红玫瑰 < 10
#SAY
<花仙子：/FCOLOR=150>\
　　<$STR(S13)>今日收到红玫瑰的次数不足10次，不能一次赠送10支玫瑰！\ \
<○/FCOLOR=103><返回/@MAIN>
#ACT
break
#IF
S13.checkonline
#ELSESAY
<花仙子：/FCOLOR=150>\
　　该玩家不在线，没办法将鲜花送过去\ \
<○/FCOLOR=103><返回/@MAIN>
#ELSEACT
break
#IF
CHECKITEM 一支红玫瑰 10
#ACT
TAKE 一支红玫瑰 10
S13.CALCVAR HUMAN 天红玫瑰 - 10
S13.SAVEVAR HUMAN 天红玫瑰 ..\QuestDiary\数据文件\鲜花.txt
S13.CALCVAR HUMAN 鲜花 + 300
S13.SAVEVAR HUMAN 鲜花 ..\QuestDiary\数据文件\鲜花数量.txt
SENDMSG 7 [花仙子]：您赠送给<$STR(S13)>10支红玫瑰。
S13.SENDMSG 7 [花仙子]：您收到五支红玫瑰，获得魅力300朵，总计魅力<$HUMAN(鲜花)>朵。
S13.SENDMSG 0 {┌─────────────────|7:0:0}{游戏快讯|151:0:0}{──────────────────→|7:0:0}
S13.SENDMSG 0 {└|7:0:0}{[花仙子]|251:0:0}{：[ |103:0:1}{%s|251:0:1}{ ]收到了10支红玫瑰，获得了300朵魅力，1000W经验|103:0:1}
#ELSESAY
<花仙子：/FCOLOR=150>\
　　您背包内没有10支红玫瑰\ \
<○/FCOLOR=103><返回/@MAIN>
#ELSEACT
break

#IF
S13.SMALL <$LEVEL> 99
#ACT
S13.CHANGEEXP + 1000000
S13.CHANGEEXP + 1000000
S13.CHANGEEXP + 1000000
S13.CHANGEEXP + 1000000
S13.CHANGEEXP + 1000000
S13.CHANGEEXP + 1000000
S13.CHANGEEXP + 1000000
S13.CHANGEEXP + 1000000
S13.CHANGEEXP + 1000000
S13.CHANGEEXP + 1000000
break




[@1束红]
#IF
S13.CHECKVAR HUMAN 天红玫瑰 = 0
#SAY
<花仙子：/FCOLOR=150>\
　　<$STR(S13)>今日收到红玫瑰次数已满10次，不能再赠送了！\ \
<○/FCOLOR=103><返回/@MAIN>
#ACT
break
#IF
S13.checkonline
#ELSESAY
<花仙子：/FCOLOR=150>\
　　该玩家不在线，没办法将鲜花送过去\ \
<○/FCOLOR=103><返回/@MAIN>
#ELSEACT
break
#IF
CHECKITEM 一束红玫瑰 1
#ACT
TAKE 一束红玫瑰 1
S13.CALCVAR HUMAN 天红玫瑰 - 1
S13.SAVEVAR HUMAN 天红玫瑰 ..\QuestDiary\数据文件\鲜花.txt
S13.CALCVAR HUMAN 鲜花 + 100
S13.SAVEVAR HUMAN 鲜花 ..\QuestDiary\数据文件\鲜花数量.txt
SENDMSG 7 [花仙子]：您赠送给<$STR(S13)>1束红玫瑰。
S13.SENDMSG 7 [花仙子]：您收到一束红玫瑰，获得魅力100朵，总计魅力<$HUMAN(鲜花)>朵。
S13.SENDMSG 0 {┌─────────────────|7:0:0}{游戏快讯|151:0:0}{──────────────────→|7:0:0}
S13.SENDMSG 0 {└|7:0:0}{[花仙子]|251:0:0}{：[ |103:0:1}{%s|251:0:1}{ ]收到了1束红玫瑰，获得了100朵魅力，500W经验|103:0:1}
#ELSESAY
<花仙子：/FCOLOR=150>\
　　您背包内没有1束红玫瑰\ \
<○/FCOLOR=103><返回/@MAIN>
#ELSEACT
break

#IF
S13.SMALL <$LEVEL> 99
#ACT
S13.CHANGEEXP + 5000000

[@5束红]
#IF
S13.CHECKVAR HUMAN 天红玫瑰 < 5
#SAY
<花仙子：/FCOLOR=150>\
　　<$STR(S13)>今日收到红玫瑰的次数不足5次，不能一次赠送他5束玫瑰！\ \
<○/FCOLOR=103><返回/@MAIN>
#ACT
break

#IF
S13.checkonline
#ELSESAY
<花仙子：/FCOLOR=150>\
　　该玩家不在线，没办法将鲜花送过去\ \
<○/FCOLOR=103><返回/@MAIN>
#ELSEACT
break

#IF
CHECKITEM 一束红玫瑰 5
#ACT
TAKE 一束红玫瑰 5
S13.CALCVAR HUMAN 天红玫瑰 - 5
S13.SAVEVAR HUMAN 天红玫瑰 ..\QuestDiary\数据文件\鲜花.txt
S13.CALCVAR HUMAN 鲜花 + 500
S13.SAVEVAR HUMAN 鲜花 ..\QuestDiary\数据文件\鲜花数量.txt
SENDMSG 7 [花仙子]：您赠送给<$STR(S13)>5束红玫瑰。
S13.SENDMSG 7 [花仙子]：您收到五束红玫瑰，获得魅力500朵，总计魅力<$HUMAN(鲜花)>朵。
S13.SENDMSG 0 {┌─────────────────|7:0:0}{游戏快讯|151:0:0}{──────────────────→|7:0:0}
S13.SENDMSG 0 {└|7:0:0}{[花仙子]|251:0:0}{：[ |103:0:1}{%s|251:0:1}{ ]收到了5束红玫瑰，获得了500朵魅力，2500w经验|103:0:1}
#ELSESAY
<花仙子：/FCOLOR=150>\
　　您背包内没有5束红玫瑰\ \
<○/FCOLOR=103><返回/@MAIN>
#ELSEACT
break

#IF
S13.SMALL <$LEVEL> 99
#ACT
S13.CHANGEEXP + 5000000
S13.CHANGEEXP + 5000000
S13.CHANGEEXP + 5000000
S13.CHANGEEXP + 5000000
S13.CHANGEEXP + 5000000
break


[@10束红]
#IF
S13.CHECKVAR HUMAN 天红玫瑰 < 10
#SAY
<花仙子：/FCOLOR=150>\
　　<$STR(S13)>今日收到红玫瑰的次数不足10次，不能一次赠送10束玫瑰！\ \
<○/FCOLOR=103><返回/@MAIN>
#ACT
break
#IF
S13.checkonline
#ELSESAY
<花仙子：/FCOLOR=150>\
　　该玩家不在线，没办法将鲜花送过去\ \
<○/FCOLOR=103><返回/@MAIN>
#ELSEACT
break
#IF
CHECKITEM 一束红玫瑰 10
#ACT
TAKE 一束红玫瑰 10
S13.CALCVAR HUMAN 天红玫瑰 - 10
S13.SAVEVAR HUMAN 天红玫瑰 ..\QuestDiary\数据文件\鲜花.txt
S13.CALCVAR HUMAN 鲜花 + 1000
S13.SAVEVAR HUMAN 鲜花 ..\QuestDiary\数据文件\鲜花数量.txt
SENDMSG 7 [花仙子]：您赠送给<$STR(S13)>10束红玫瑰。
S13.SENDMSG 7 [花仙子]：您收到五束红玫瑰，获得魅力1000朵，总计魅力<$HUMAN(鲜花)>朵。
S13.SENDMSG 0 {┌─────────────────|7:0:0}{游戏快讯|151:0:0}{──────────────────→|7:0:0}
S13.SENDMSG 0 {└|7:0:0}{[花仙子]|251:0:0}{：[ |103:0:1}{%s|251:0:1}{ ]收到了10束红玫瑰，获得了1000朵魅力，5000W经验|103:0:1}
#ELSESAY
<花仙子：/FCOLOR=150>\
　　您背包内没有10束红玫瑰\ \
<○/FCOLOR=103><返回/@MAIN>
#ELSEACT
break

#IF
S13.SMALL <$LEVEL> 99
#ACT
S13.CHANGEEXP + 5000000
S13.CHANGEEXP + 5000000
S13.CHANGEEXP + 5000000
S13.CHANGEEXP + 5000000
S13.CHANGEEXP + 5000000
S13.CHANGEEXP + 5000000
S13.CHANGEEXP + 5000000
S13.CHANGEEXP + 5000000
S13.CHANGEEXP + 5000000
S13.CHANGEEXP + 5000000
break



[@1束蓝]
#IF
S13.CHECKVAR HUMAN 天蓝玫瑰 = 0
#SAY
<花仙子：/FCOLOR=150>\
　　<$STR(S13)>今日收到蓝玫瑰次数已满10次，不能再赠送了！\ \
<○/FCOLOR=103><返回/@MAIN>
#ACT
break
#IF
S13.checkonline
#ELSESAY
<花仙子：/FCOLOR=150>\
　　该玩家不在线，没办法将鲜花送过去\ \
<○/FCOLOR=103><返回/@MAIN>
#ELSEACT
break
#IF
CHECKITEM 一束蓝玫瑰 1
#ACT
TAKE 一束蓝玫瑰 1
S13.CALCVAR HUMAN 天蓝玫瑰 - 1
S13.SAVEVAR HUMAN 天蓝玫瑰 ..\QuestDiary\数据文件\鲜花.txt
S13.CALCVAR HUMAN 鲜花 + 999
S13.SAVEVAR HUMAN 鲜花 ..\QuestDiary\数据文件\鲜花数量.txt
SENDMSG 7 [花仙子]：您赠送给<$STR(S13)>1束蓝玫瑰。
S13.SENDMSG 7 [花仙子]：您收到一束蓝玫瑰，获得魅力999朵，总计魅力<$HUMAN(鲜花)>朵。
S13.SENDMSG 0 {┌─────────────────|7:0:0}{游戏快讯|151:0:0}{──────────────────→|7:0:0}
S13.SENDMSG 0 {└|7:0:0}{[花仙子]|251:0:0}{：[ |103:0:1}{%s|251:0:1}{ ]收到了1束蓝玫瑰，获得了999朵魅力，1000W经验|103:0:1}
#ELSESAY
<花仙子：/FCOLOR=150>\
　　您背包内没有1束蓝玫瑰\ \
<○/FCOLOR=103><返回/@MAIN>
#ELSEACT
break

#IF
S13.SMALL <$LEVEL> 99
#ACT
S13.CHANGEEXP + 10000000

[@5束蓝]
#IF
S13.CHECKVAR HUMAN 天蓝玫瑰 < 5
#SAY
<花仙子：/FCOLOR=150>\
　　<$STR(S13)>今日收到蓝玫瑰的次数不足5次，不能一次赠送他5束玫瑰！\ \
<○/FCOLOR=103><返回/@MAIN>
#ACT
break

#IF
S13.checkonline
#ELSESAY
<花仙子：/FCOLOR=150>\
　　该玩家不在线，没办法将鲜花送过去\ \
<○/FCOLOR=103><返回/@MAIN>
#ELSEACT
break

#IF
CHECKITEM 一束蓝玫瑰 5
#ACT
TAKE 一束蓝玫瑰 5
S13.CALCVAR HUMAN 天蓝玫瑰 - 5
S13.SAVEVAR HUMAN 天蓝玫瑰 ..\QuestDiary\数据文件\鲜花.txt
S13.CALCVAR HUMAN 鲜花 + 4995
S13.SAVEVAR HUMAN 鲜花 ..\QuestDiary\数据文件\鲜花数量.txt
SENDMSG 7 [花仙子]：您赠送给<$STR(S13)>5束蓝玫瑰。
S13.SENDMSG 7 [花仙子]：您收到五束蓝玫瑰，获得魅力500朵，总计魅力<$HUMAN(鲜花)>朵。
S13.SENDMSG 0 {┌─────────────────|7:0:0}{游戏快讯|151:0:0}{──────────────────→|7:0:0}
S13.SENDMSG 0 {└|7:0:0}{[花仙子]|251:0:0}{：[ |103:0:1}{%s|251:0:1}{ ]收到了5束蓝玫瑰，获得了4995朵魅力，5000w经验|103:0:1}
#ELSESAY
<花仙子：/FCOLOR=150>\
　　您背包内没有5束蓝玫瑰\ \
<○/FCOLOR=103><返回/@MAIN>
#ELSEACT
break

#IF
S13.SMALL <$LEVEL> 99
#ACT
S13.CHANGEEXP + 10000000
S13.CHANGEEXP + 10000000
S13.CHANGEEXP + 10000000
S13.CHANGEEXP + 10000000
S13.CHANGEEXP + 10000000
break


[@10束蓝]
#IF
S13.CHECKVAR HUMAN 天蓝玫瑰 < 10
#SAY
<花仙子：/FCOLOR=150>\
　　<$STR(S13)>今日收到蓝玫瑰的次数不足10次，不能一次赠送10束玫瑰！\ \
<○/FCOLOR=103><返回/@MAIN>
#ACT
break
#IF
S13.checkonline
#ELSESAY
<花仙子：/FCOLOR=150>\
　　该玩家不在线，没办法将鲜花送过去\ \
<○/FCOLOR=103><返回/@MAIN>
#ELSEACT
break
#IF
CHECKITEM 一束蓝玫瑰 10
#ACT
TAKE 一束蓝玫瑰 10
S13.CALCVAR HUMAN 天蓝玫瑰 - 10
S13.SAVEVAR HUMAN 天蓝玫瑰 ..\QuestDiary\数据文件\鲜花.txt
S13.CALCVAR HUMAN 鲜花 + 9999
S13.SAVEVAR HUMAN 鲜花 ..\QuestDiary\数据文件\鲜花数量.txt
SENDMSG 7 [花仙子]：您赠送给<$STR(S13)>10束蓝玫瑰。
S13.SENDMSG 7 [花仙子]：您收到五束蓝玫瑰，获得魅力9999朵，总计魅力<$HUMAN(鲜花)>朵。
S13.SENDMSG 0 {┌─────────────────|7:0:0}{游戏快讯|151:0:0}{──────────────────→|7:0:0}
S13.SENDMSG 0 {└|7:0:0}{[花仙子]|251:0:0}{：[ |103:0:1}{%s|251:0:1}{ ]收到了10束蓝玫瑰，获得了9999朵魅力，1亿经验|103:0:1}
#ELSESAY
<花仙子：/FCOLOR=150>\
　　您背包内没有10束蓝玫瑰\ \
<○/FCOLOR=103><返回/@MAIN>
#ELSEACT
break

#IF
S13.SMALL <$LEVEL> 99
#ACT
S13.CHANGEEXP + 10000000
S13.CHANGEEXP + 10000000
S13.CHANGEEXP + 10000000
S13.CHANGEEXP + 10000000
S13.CHANGEEXP + 10000000
S13.CHANGEEXP + 10000000
S13.CHANGEEXP + 10000000
S13.CHANGEEXP + 10000000
S13.CHANGEEXP + 10000000
S13.CHANGEEXP + 10000000
break

淡定，淡定，淡定……

楼主加油，我们都看好你哦。

真是难得给力的帖子啊。

感恩无私的分享与奉献 :)

看到这帖子真是高兴！

激动人心，无法言表！

我只是路过打酱油的。

无回帖，不论坛，这才是人道。

我只是路过打酱油的。