欢迎访问 盛大传奇_盛大传奇版本_盛大传奇官方网站_盛大热血传奇官网

传奇自动打怪找怪脚本 传奇私服新服发布网 今天新开的传奇私服 传奇新开私服发布网
当前位置: > 热血传奇私服

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

发布时间:2020-10-14 13:35:24 来源:http://www.9ak.net 作者:

新开传奇网站1.85在土城添加一个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=1中变传奇网站50\
  该玩家不在线,没办法将鲜花送过去\ \
○/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.S新开连击ENDMSG 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\
  您背传奇3外挂包内没有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