找回密码
 立即注册
查看: 66|回复: 0

[脚本资源] 七夕情人节传奇活动送花功能添加方法

[复制链接]

0

威望

2660

元宝

1万

金币

VIP会员

积分
6864
逍遥MIR 发表于 2024-7-11 06:38:14 | 显示全部楼层 |阅读模式
在土城添加一个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
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|小黑屋|逍遥版本库

GMT+8, 2024-11-25 08:12 , Processed in 0.044298 second(s), 28 queries .

Powered by XyBbk! X3.5

Copyright © 2001-2024, XyBbk Cloud.

快速回复 返回顶部 返回列表