七夕情人节传奇活动送花功能添加方法
在土城添加一个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
