逍遥MIR 发表于 2024-7-11 05:33:25

最新官方传奇年货活动脚本明文分享

[@main]

是谁每天陪伴着你?是谁默默的支持着你?\
是谁为你奋不顾身?是谁对你情真意切?\
<精致礼品盒/fcolor=249>传递你的祝福,向兄弟、姐妹、战友、爱人\
表达你最真切感情。玛法自有真情在,\
谁能成为玛法大陆人缘最好的人呢?让我们试目以待。\ \
<赠送鲜花/@鲜花>\
\
\

[@鲜花]
即日起,您可以购买鲜花送给您的亲朋好友,每送出一朵\
鲜花您将获得<70000内功经验/FColor=56>或<15万英雄经验+70000内功经验(英雄/FColor=56>\
<等级达到200不受限制)/FColor=56>。一次性收到<9999朵/FColor=56>鲜花的玩家,将获得称号\
<“君临天下”/FColor=56>或<“倾国倾城”/FColor=56>,并可以在之后的7天内每天免费领取\
<188/FColor=56>个灵符礼包+<4/FColor=56>个庆典蛋糕或<3/FColor=56>个主宰者灵珠。\
一次性收到<4888朵/FColor=56>鲜花的玩家,将获得称号<“勇者无敌”/FColor=56>或<“国色天香”/FColor=56>\
,并可以在之后的7天内每天免费领取<90/FColor=56>个灵符礼包+<2/FColor=56>个庆典蛋糕。\
<送鲜花得内功经验/@赠送鲜花111>             <送鲜花得英雄经验/@赠送鲜花222>\
<下一页/@鲜花1>                  <返回/@MAIN>\

[@鲜花1]
一次性收到<2888朵/FColor=56>鲜花的玩家,将获得称号<“国士无双”/FColor=56>或<“绝代/FColor=56>\
<佳人”/FColor=56>,并可以在之后的7天内每天免费领取<52/FColor=56>个灵符礼包+<1/FColor=56>个\
庆典蛋糕。\
当获得以\
上称号后的7天内可以每天额外领取<20/FColor=56>个灵符礼包。\
<(两种称号不可同时获得)/FColor=56>\ \
<送鲜花得内功经验/@赠送鲜花111>             <送鲜花得英雄经验/@赠送鲜花222>\
<上一页/@鲜花>                  <返回/@MAIN>\

[@赠送鲜花222]
#IF
#ACT
MOV S11
MOV S12
MOV S13
MOV S14
MOV S15
MOV S16
break
#SAY
<查询我收到的鲜花数量/@查询鲜花>      <免费领取称号奖励/@称号奖励>\ \
\
\
<使用元宝赠送1-999朵鲜花/@元宝鲜花2>     \ \
<鲜花数量每月清空一次/FColor=56>\
<返回/@MAIN>\

#ELSEACT
MOV S11
MOV S12
MOV S13
MOV S14
MOV S15
MOV S16
break
#ELSESAY
<查询我收到的鲜花数量/@查询鲜花>      <免费领取称号奖励/@称号奖励>\ \ \ \ \ \ \ \
<返回/@MAIN>\

[@主宰鲜花2]
#IF
CHECKFENGHAO 玛法主宰者
#ACT
MOV S19
break
#SAY
主宰者免费赠送鲜花:\ \
<输入对方名字/@@InPutString19>\

#IF
CHECKFENGHAO 玛法主宰者
#ACT
MOV S19
break
#SAY
主宰者免费赠送鲜花:\ \
<输入对方名字/@@InPutString19>\

#ELSEACT
break
#ELSESAY
你没有玛法主宰者称号,无法赠送鲜花。

[@@InPutString19]
#Act
DelaYGoto 1 ~InPutString19
break

[~InPutString19]
#IF
EQUAL <$STR(S19)> <$USERNAME>
#ACT
MESSAGEBOX 只可以赠送给其他玩家,不可以赠送给自己!
BREAK
CLOSE

#IF
CheckOnline <$STR(S19)>
#ACT
#ELSEACT
MESSAGEBOX <$STR(S19)>没有在线!
MOV S19
BREAK
CLOSE

#IF
checknamelist ..\QuestDiary\data\玛法主宰者\每日赠送鲜花名单.txt
#ACT
BREAK
#SAY
尊敬的主宰者大人,您今天已经免费赠送过鲜花了!
#ELSEACT
addnamelist ..\QuestDiary\data\玛法主宰者\每日赠送鲜花名单.txt
MOV A49
MOV A49 <$USERNAME>
MOV G97
MOV G97 24
hcall <$STR(S19)> @在线接收鲜花
SENDMSG 0 恭喜:<$USERNAME>赠送了<$STR(G97)>朵鲜花给<$STR(S19)>!
GOTO @赠送英雄奖励
break
CLOSE

[@荣耀鲜花2]
#ACT
MOV S18
MOV N18 0
break
#SAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花100荣耀点/FCOLOR=250>\ \
      赠送玩家:<______________/@@InPutString18>\
      赠送数量:<______________/@@InPutInteger18>\ \
请核对以上信息,确认后点击确定赠送!\
我确定以上信息准确无误,提交

[@@InPutString18]
#Act
DelaYGoto 1 ~InPutString18
break

[~InPutString18]
#IF
EQUAL <$STR(S18)> <$USERNAME>
#ACT
MESSAGEBOX 不可以赠送给自己!
MOV S18
BREAK
CLOSE

#IF
CheckOnline <$STR(S18)>
#ACT

#ELSEACT
MESSAGEBOX <$STR(S18)>没有在线!
MOV S18
BREAK
CLOSE

#IF
LARGE N18 0
#ACT
BREAK
#SAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花100荣耀点/FCOLOR=250>\ \
<更改信息/@@InPutString18>  赠送玩家:<$STR(S18)>\
<更改信息/@@InPutInteger18>  赠送数量:<$STR(N18)>\ \
请核对以上信息,确认后点击确定赠送!\
<我确定以上信息准确无误,提交/@荣耀鲜花22>\

#ELSEACT
break
#ELSESAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花100荣耀点/FCOLOR=250>\ \
<更改信息/@@InPutString18>  赠送玩家:<$STR(S18)>\
      赠送数量:<______________/@@InPutInteger18>\ \
请核对以上信息,确认后点击确定赠送!\
我确定以上信息准确无误,提交

[@@InPutInteger18]
#Act
MOV N88
MUL N88 N18 100
DelaYGoto 1 ~InPutInteger18
break

[~InPutInteger18]
#IF
LARGE N18 0
SMALL N18 1000
#ACT

#ELSEACT
MESSAGEBOX 请输入1-999之间的整数!
break
CLOSE

#IF
LARGE HUMAN 荣耀点 N88
#ACT

#ELSEACT
MESSAGEBOX 对不起,你没有足够数量的荣耀点!
break
CLOSE

#IF
CheckStringlength <$STR(S18)> > 2
#ACT
break
#SAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花100荣耀点/FCOLOR=250>\ \
<更改信息/@@InPutString18>  赠送玩家:<$STR(S18)>\
<更改信息/@@InPutInteger18>  赠送数量:<$STR(N18)>\ \
请核对以上信息,确认后点击确定赠送!\
<我确定以上信息准确无误,提交/@荣耀鲜花22>\

#ELSEACT
break
#ELSESAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花100荣耀点/FCOLOR=250>\ \
      赠送玩家:<______________/@@InPutString18>\
<更改信息/@@InPutInteger18>  赠送数量:<$STR(N18)>\ \
请核对以上信息,确认后点击确定赠送!\
我确定以上信息准确无误,提交

[@荣耀鲜花22]
#IF
EQUAL <$STR(S18)> <$USERNAME>
#ACT
MESSAGEBOX 不可以赠送给自己!
BREAK
CLOSE

#IF
CheckOnline <$STR(S18)>
#ACT
MOV N88
MUL N88 N18 100

#ELSEACT
MESSAGEBOX <$STR(S18)>没有在线!
MOV S18
BREAK
CLOSE

#IF
LARGE HUMAN 荣耀点 N88
#ACT
CALCVAR HUMAN 荣耀点 - <$STR(N88)>
SAVEVAR HUMAN 荣耀点 ..\QuestDiary\data\游戏币.txt
MOV A49
MOV A49 <$USERNAME>
MOV G97
MOV G97 N18
hcall <$STR(S18)> @在线接收鲜花
SENDMSG 0 <$USERNAME>向<$STR(S18)>赠送了<$STR(G97)>朵玫瑰,祝所有玩家白色情人节快乐!
GOTO @赠送英雄奖励
break
CLOSE

#ELSEACT
MESSAGEBOX 你没有足够的元宝!
MOV S18
BREAK
CLOSE

[@元宝鲜花2]
#ACT
MOV S17
MOV N17 0
break
#SAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花20元宝/FCOLOR=250>\ \
      赠送玩家:<______________/@@InPutString17>\
      赠送数量:<______________/@@InPutInteger17>\ \
请核对以上信息,确认后点击确定赠送!\
我确定以上信息准确无误,提交

[@@InPutString17]
#Act
DelaYGoto 1 ~InPutString17
break

[~InPutString17]
#IF
EQUAL <$STR(S17)> <$USERNAME>
#ACT
MESSAGEBOX 不可以赠送给自己!
MOV S17
BREAK
CLOSE

#IF
CheckOnline <$STR(S17)>
#ACT

#ELSEACT
MESSAGEBOX <$STR(S17)>没有在线!
MOV S17
BREAK
CLOSE

#IF
LARGE N17 0
#ACT
BREAK
#SAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花20元宝/FCOLOR=250>\ \
<更改信息/@@InPutString17>  赠送玩家:<$STR(S17)>\
<更改信息/@@InPutInteger17>  赠送数量:<$STR(N17)>\ \
请核对以上信息,确认后点击确定赠送!\
<我确定以上信息准确无误,提交/@元宝鲜花22>\

#ELSEACT
break
#ELSESAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花20元宝/FCOLOR=250>\ \
<更改信息/@@InPutString17>  赠送玩家:<$STR(S17)>\
      赠送数量:<______________/@@InPutInteger17>\ \
请核对以上信息,确认后点击确定赠送!\
我确定以上信息准确无误,提交

[@@InPutInteger17]
#Act
DelaYGoto 1 ~InPutInteger17
break

[~InPutInteger17]
#IF
LARGE N17 0
SMALL N17 1000
#ACT

#ELSEACT
MESSAGEBOX 请输入1-999之间的整数!
break
CLOSE

#IF
CHECKGAMEGOLD > <$STR(N17)>
#ACT

#ELSEACT
MESSAGEBOX 对不起,你没有足够数量的元宝!
break
CLOSE

#IF
CheckStringlength <$STR(S17)> > 2
#ACT
break
#SAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花20元宝/FCOLOR=250>\ \
<更改信息/@@InPutString17>  赠送玩家:<$STR(S17)>\
<更改信息/@@InPutInteger17>  赠送数量:<$STR(N17)>\ \
请核对以上信息,确认后点击确定赠送!\
<我确定以上信息准确无误,提交/@元宝鲜花22>\

#ELSEACT
break
#ELSESAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花20元宝/FCOLOR=250>\ \
      赠送玩家:<______________/@@InPutString17>\
<更改信息/@@InPutInteger17>  赠送数量:<$STR(N17)>\ \
请核对以上信息,确认后点击确定赠送!\
我确定以上信息准确无误,提交

[@元宝鲜花22]
#IF
EQUAL <$STR(S17)> <$USERNAME>
#ACT
MESSAGEBOX 不可以赠送给自己!
BREAK
CLOSE

#IF
CheckOnline <$STR(S17)>
#ACT
#ELSEACT
MESSAGEBOX <$STR(S17)>没有在线!
MOV S17
BREAK
CLOSE
#IF
#ACT
MUL N71 N17 20
#IF
CHECKGAMEGOLD > <$STR(N71)>
#ACT
CALCVAR HUMAN 挑战点 + <$STR(N71)>
SAVEVAR HUMAN 挑战点 ..\QuestDiary\data\挑战点.txt
CALCVAR HUMAN 日祝福点 + <$STR(N71)>
CALCVAR HUMAN 周祝福点 + <$STR(N71)>
SAVEVAR HUMAN 日祝福点 ..\QuestDiary\data\日祝福点.txt
SAVEVAR HUMAN 周祝福点 ..\QuestDiary\data\周祝福点.txt
SENDMSG 6 祝福点数增加<$STR(N71)>点。
GAMEGOLD - <$STR(N71)>
MOV A49
MOV A49 <$USERNAME>
MOV G97
MOV G97 N17
hcall <$STR(S17)> @在线接收鲜花
SENDMSG 0 <$USERNAME>向<$STR(S17)>赠送了<$STR(G97)>朵玫瑰,祝所有玩家白色情人节快乐!
GOTO @赠送英雄奖励
break
CLOSE
#ELSEACT
MESSAGEBOX 你没有足够的元宝!
MOV S17
BREAK
CLOSE

[@@InPutString16]
#Act
MOV N88
MUL N88 2888 100
DelaYGoto 1 ~InPutString16
break

[~InPutString16]
#IF
EQUAL <$STR(S16)> <$USERNAME>
#ACT
MESSAGEBOX 只可以赠送给其他玩家,不可以赠送给自己!
BREAK
CLOSE

#IF
CheckOnline <$STR(S16)>
#ACT
#ELSEACT
MESSAGEBOX <$STR(S16)>没有在线!
MOV S16
BREAK
CLOSE

#IF
LARGE HUMAN 荣耀点 N88
#ACT
CALCVAR HUMAN 荣耀点 - <$STR(N88)>
SAVEVAR HUMAN 荣耀点 ..\QuestDiary\data\游戏币.txt
MOV A49
MOV A49 <$USERNAME>
MOV G97
MOV G97 2888
hcall <$STR(S16)> @在线接收鲜花
SENDMSG 0 <$USERNAME>向<$STR(S16)>赠送了<$STR(G97)>朵玫瑰,祝所有玩家白色情人节快乐!
GOTO @赠送英雄奖励
break
CLOSE
#ELSEACT
MESSAGEBOX 你没有足够的荣耀点!
MOV S6
BREAK
CLOSE

[@@InPutString15]
#Act
DelaYGoto 1 ~InPutString15
break

[~InPutString15]
#IF
EQUAL <$STR(S15)> <$USERNAME>
#ACT
MESSAGEBOX 只可以赠送给其他玩家,不可以赠送给自己!
BREAK
CLOSE

#IF
CheckOnline <$STR(S15)>
#ACT
#ELSEACT
MESSAGEBOX <$STR(S15)>没有在线!
MOV S15
BREAK
CLOSE

#IF
CHECKGAMEGOLD > 2887
#ACT
CALCVAR HUMAN 挑战点 + 2888
SAVEVAR HUMAN 挑战点 ..\QuestDiary\data\挑战点.txt
SENDMSG 6 挑战点数增加2888点。
CALCVAR HUMAN 日祝福点 + 2888
CALCVAR HUMAN 周祝福点 + 2888
SAVEVAR HUMAN 日祝福点 ..\QuestDiary\data\日祝福点.txt
SAVEVAR HUMAN 周祝福点 ..\QuestDiary\data\周祝福点.txt
SENDMSG 6 祝福点数增加2888点。
GAMEGOLD - 2888
MOV A49
MOV A49 <$USERNAME>
MOV G97
MOV G97 2888
hcall <$STR(S15)> @在线接收鲜花
SENDMSG 0 <$USERNAME>向<$STR(S15)>赠送了<$STR(G97)>朵玫瑰,祝所有玩家白色情人节快乐!
GOTO @赠送英雄奖励
break
CLOSE
#ELSEACT
MESSAGEBOX 你没有足够的元宝!
MOV S15
BREAK
CLOSE

[@@InPutString14]
#Act
MOV N88
MUL N88 4888 100
DelaYGoto 1 ~InPutString14
break

[~InPutString14]
#IF
EQUAL <$STR(S14)> <$USERNAME>
#ACT
MESSAGEBOX 只可以赠送给其他玩家,不可以赠送给自己!
BREAK
CLOSE

#IF
CheckOnline <$STR(S14)>
#ACT

#ELSEACT
MESSAGEBOX <$STR(S14)>没有在线!
MOV S14
BREAK
CLOSE

#IF
LARGE HUMAN 荣耀点 N88
#ACT
CALCVAR HUMAN 荣耀点 - <$STR(N88)>
SAVEVAR HUMAN 荣耀点 ..\QuestDiary\data\游戏币.txt
MOV A49
MOV A49 <$USERNAME>
MOV G97
MOV G97 4888
hcall <$STR(S14)> @在线接收鲜花
SENDMSG 0 <$USERNAME>向<$STR(S14)>赠送了<$STR(G97)>朵玫瑰,祝所有玩家白色情人节快乐!
GOTO @赠送英雄奖励
break
CLOSE

#ELSEACT
MESSAGEBOX 你没有足够的荣耀点!
MOV S14
BREAK
CLOSE

[@@InPutString13]
#Act
DelaYGoto 1 ~InPutString13
break

[~InPutString13]
#IF
EQUAL <$STR(S13)> <$USERNAME>
#ACT
MESSAGEBOX 只可以赠送给其他玩家,不可以赠送给自己!
BREAK
CLOSE

#IF
CheckOnline <$STR(S13)>
#ACT

#ELSEACT
MESSAGEBOX <$STR(S13)>没有在线!
MOV S13
BREAK
CLOSE

#IF
CHECKGAMEGOLD > 4887
#ACT
CALCVAR HUMAN 挑战点 + 4888
SAVEVAR HUMAN 挑战点 ..\QuestDiary\data\挑战点.txt
SENDMSG 6 挑战点数增加4888点。
CALCVAR HUMAN 日祝福点 + 4888
CALCVAR HUMAN 周祝福点 + 4888
SAVEVAR HUMAN 日祝福点 ..\QuestDiary\data\日祝福点.txt
SAVEVAR HUMAN 周祝福点 ..\QuestDiary\data\周祝福点.txt
SENDMSG 6 祝福点数增加4888点。
GAMEGOLD - 4888
MOV A49
MOV A49 <$USERNAME>
MOV G97
MOV G97 4888
hcall <$STR(S13)> @在线接收鲜花
SENDMSG 0 <$USERNAME>向<$STR(S13)>赠送了<$STR(G97)>朵玫瑰,祝所有玩家白色情人节快乐!
GOTO @赠送英雄奖励
break
CLOSE

#ELSEACT
MESSAGEBOX 你没有足够的元宝!
MOV S13
BREAK
CLOSE

[@@InPutString12]
#Act
MOV N88
MUL N88 9999 100
DelaYGoto 1 ~InPutString12
break

[~InPutString12]
#IF
EQUAL <$STR(S12)> <$USERNAME>
#ACT
MESSAGEBOX 只可以赠送给其他玩家,不可以赠送给自己!
BREAK
CLOSE

#IF
CheckOnline <$STR(S12)>
#ACT

#ELSEACT
MESSAGEBOX <$STR(S12)>没有在线!
MOV S12
BREAK
CLOSE

#IF
LARGE HUMAN 荣耀点 N88
#ACT
CALCVAR HUMAN 荣耀点 - <$STR(N88)>
SAVEVAR HUMAN 荣耀点 ..\QuestDiary\data\游戏币.txt
MOV A49
MOV A49 <$USERNAME>
MOV G97
MOV G97 9999
hcall <$STR(S12)> @在线接收鲜花
SENDMSG 0 <$USERNAME>向<$STR(S12)>赠送了<$STR(G97)>朵玫瑰,祝所有玩家白色情人节快乐!
GOTO @赠送英雄奖励
break
CLOSE
#ELSEACT
MESSAGEBOX 你没有足够的荣耀点!
MOV S12
BREAK
CLOSE

[@@InPutString11]
#Act
DelaYGoto 1 ~InPutString11
break

[~InPutString11]
#IF
EQUAL <$STR(S11)> <$USERNAME>
#ACT
MESSAGEBOX 只可以赠送给其他玩家,不可以赠送给自己!
BREAK
CLOSE

#IF
CheckOnline <$STR(S11)>
#ACT

#ELSEACT
MESSAGEBOX <$STR(S11)>没有在线!
MOV S11
BREAK
CLOSE

#IF
CHECKGAMEGOLD > 9998
#ACT
CALCVAR HUMAN 挑战点 + 9999
SAVEVAR HUMAN 挑战点 ..\QuestDiary\data\挑战点.txt
SENDMSG 6 挑战点数增加9999点。
CALCVAR HUMAN 日祝福点 + 9999
CALCVAR HUMAN 周祝福点 + 9999
SAVEVAR HUMAN 日祝福点 ..\QuestDiary\data\日祝福点.txt
SAVEVAR HUMAN 周祝福点 ..\QuestDiary\data\周祝福点.txt
SENDMSG 6 祝福点数增加9999点。
GAMEGOLD - 9999
MOV A49
MOV A49 <$USERNAME>
MOV G97
MOV G97 9999
hcall <$STR(S11)> @在线接收鲜花
SENDMSG 0 <$USERNAME>向<$STR(S11)>赠送了<$STR(G97)>朵玫瑰,祝所有玩家白色情人节快乐!
GOTO @赠送英雄奖励
break
CLOSE

#ELSEACT
MESSAGEBOX 你没有足够的元宝!
MOV S11
BREAK
CLOSE

[@赠送鲜花111]
#IF
#ACT
MOV S1
MOV S2
MOV S3
MOV S4
MOV S5
MOV S6
break
#SAY
<查询我收到的鲜花数量/@查询鲜花>      <免费领取称号奖励/@称号奖励>\ \
\
<使用元宝赠送1-999朵鲜花/@元宝鲜花1>    \ \
<鲜花数量每月清空一次/FColor=56>\
<返回/@MAIN>\

#ELSEACT
MOV S1
MOV S2
MOV S3
MOV S4
MOV S5
MOV S6
break
#ELSESAY
<查询我收到的鲜花数量/@查询鲜花>      <免费领取称号奖励/@称号奖励>\ \ \ \ \ \ \ \
<返回/@MAIN>\

[@主宰鲜花1]
#IF
CHECKFENGHAO 玛法主宰者
#ACT
MOV S9
break
#SAY
主宰者免费赠送鲜花:\ \
<输入对方名字/@@InPutString9>\

#IF
CHECKFENGHAO 玛法主宰者
#ACT
MOV S9
break
#SAY
主宰者免费赠送鲜花:\ \
<输入对方名字/@@InPutString9>\

#ELSEACT
break
#ELSESAY
你没有玛法主宰者称号,无法赠送鲜花。

[@@InPutString9]
#Act
DelaYGoto 1 ~InPutString9
break

[~InPutString9]
#IF
EQUAL <$STR(S9)> <$USERNAME>
#ACT
MESSAGEBOX 只可以赠送给其他玩家,不可以赠送给自己!
BREAK
CLOSE

#IF
CheckOnline <$STR(S9)>
#ACT

#ELSEACT
MESSAGEBOX <$STR(S9)>没有在线!
MOV S9
BREAK
CLOSE

#IF
checknamelist ..\QuestDiary\data\玛法主宰者\每日赠送鲜花名单.txt
#ACT
BREAK
#SAY
尊敬的主宰者大人,您今天已经免费赠送过鲜花了!

#ELSEACT
addnamelist ..\QuestDiary\data\玛法主宰者\每日赠送鲜花名单.txt
MOV A49
MOV A49 <$USERNAME>
MOV G97
MOV G97 24
hcall <$STR(S9)> @在线接收鲜花
SENDMSG 0 <$USERNAME>向<$STR(S9)>赠送了<$STR(G97)>朵玫瑰,祝所有玩家白色情人节快乐!
GOTO @赠送经验奖励
break
CLOSE

[@荣耀鲜花1]
#ACT
MOV S8
MOV N8 0
break
#SAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花2000荣耀点/FCOLOR=250>\ \
      赠送玩家:<______________/@@InPutString8>\
      赠送数量:<______________/@@InPutInteger8>\ \
请核对以上信息,确认后点击确定赠送!\
我确定以上信息准确无误,提交

[@@InPutString8]
#Act
DelaYGoto 1 ~InPutString8
break

[~InPutString8]
#IF
EQUAL <$STR(S8)> <$USERNAME>
#ACT
MESSAGEBOX 不可以赠送给自己!
MOV S8
BREAK
CLOSE

#IF
CheckOnline <$STR(S8)>
#ACT

#ELSEACT
MESSAGEBOX <$STR(S8)>没有在线!
MOV S8
BREAK
CLOSE

#IF
LARGE N8 0
#ACT
BREAK
#SAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花100荣耀点/FCOLOR=250>\ \
<更改信息/@@InPutString8>  赠送玩家:<$STR(S8)>\
<更改信息/@@InPutInteger8>  赠送数量:<$STR(N8)>\ \
请核对以上信息,确认后点击确定赠送!\
<我确定以上信息准确无误,提交/@荣耀鲜花11>\

#ELSEACT
break
#ELSESAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花100荣耀点/FCOLOR=250>\ \
<更改信息/@@InPutString8>  赠送玩家:<$STR(S8)>\
      赠送数量:<______________/@@InPutInteger8>\ \
请核对以上信息,确认后点击确定赠送!\
我确定以上信息准确无误,提交

[@@InPutInteger8]
#Act
MOV N88
MUL N88 N8 100
DelaYGoto 1 ~InPutInteger8
break

[~InPutInteger8]
#IF
LARGE N8 0
SMALL N8 1000
#ACT
#ELSEACT
MESSAGEBOX 请输入1-999之间的整数!
break
CLOSE

#IF
LARGE HUMAN 荣耀点 N88
#ACT
#ELSEACT
MESSAGEBOX 对不起,你没有足够数量的荣耀点!
break
CLOSE

#IF
CheckStringlength <$STR(S8)> > 2
#ACT
break
#SAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花100荣耀点/FCOLOR=250>\ \
<更改信息/@@InPutString8>  赠送玩家:<$STR(S8)>\
<更改信息/@@InPutInteger8>  赠送数量:<$STR(N8)>\ \
请核对以上信息,确认后点击确定赠送!\
<我确定以上信息准确无误,提交/@荣耀鲜花11>\

#ELSEACT
break
#ELSESAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花100荣耀点/FCOLOR=250>\ \
      赠送玩家:<______________/@@InPutString8>\
<更改信息/@@InPutInteger8>  赠送数量:<$STR(N8)>\ \
请核对以上信息,确认后点击确定赠送!\
我确定以上信息准确无误,提交

[@荣耀鲜花11]
#IF
EQUAL <$STR(S8)> <$USERNAME>
#ACT
MESSAGEBOX 不可以赠送给自己!
BREAK
CLOSE

#IF
CheckOnline <$STR(S8)>
#ACT
MOV N88
MUL N88 N8 100
#ELSEACT
MESSAGEBOX <$STR(S8)>没有在线!
MOV S8
BREAK
CLOSE

#IF
LARGE HUMAN 荣耀点 N88
#ACT
CALCVAR HUMAN 荣耀点 - <$STR(N88)>
SAVEVAR HUMAN 荣耀点 ..\QuestDiary\data\游戏币.txt
MOV A49
MOV A49 <$USERNAME>
MOV G97
MOV G97 N8
hcall <$STR(S8)> @在线接收鲜花
SENDMSG 0 <$USERNAME>向<$STR(S8)>赠送了<$STR(G97)>朵玫瑰,祝所有玩家白色情人节快乐!
GOTO @赠送经验奖励
break
CLOSE
#ELSEACT
MESSAGEBOX 你没有足够的元宝!
MOV S8
BREAK
CLOSE

[@元宝鲜花1]
#ACT
MOV S7
MOV N7 0
break
#SAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花20元宝/FCOLOR=250>\ \
      赠送玩家:<______________/@@InPutString7>\
      赠送数量:<______________/@@InPutInteger7>\ \
请核对以上信息,确认后点击确定赠送!\
我确定以上信息准确无误,提交

[@@InPutString7]
#Act
DelaYGoto 1 ~InPutString7
break

[~InPutString7]
#IF
EQUAL <$STR(S7)> <$USERNAME>
#ACT
MESSAGEBOX 不可以赠送给自己!
MOV S7
BREAK
CLOSE

#IF
CheckOnline <$STR(S7)>
#ACT
#ELSEACT
MESSAGEBOX <$STR(S7)>没有在线!
MOV S7
BREAK
CLOSE

#IF
LARGE N7 0
#ACT
BREAK
#SAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花20元宝/FCOLOR=250>\ \
<更改信息/@@InPutString7>  赠送玩家:<$STR(S7)>\
<更改信息/@@InPutInteger7>  赠送数量:<$STR(N7)>\ \
请核对以上信息,确认后点击确定赠送!\
<我确定以上信息准确无误,提交/@元宝鲜花11>\
#ELSEACT
break
#ELSESAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花20元宝/FCOLOR=250>\ \
<更改信息/@@InPutString7>  赠送玩家:<$STR(S7)>\
      赠送数量:<______________/@@InPutInteger7>\ \
请核对以上信息,确认后点击确定赠送!\
我确定以上信息准确无误,提交

[@@InPutInteger7]
#Act
DelaYGoto 1 ~InPutInteger7
break

[~InPutInteger7]
#IF
LARGE N7 0
SMALL N7 1000
#ACT
#ELSEACT
MESSAGEBOX 请输入1-999之间的整数!
break
CLOSE

#IF
CHECKGAMEGOLD > <$STR(N70)>
#ACT

#ELSEACT
MESSAGEBOX 对不起,你没有足够数量的元宝!
break
CLOSE

#IF
CheckStringlength <$STR(S7)> > 2
#ACT
break
#SAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花20元宝/FCOLOR=250>\ \
<更改信息/@@InPutString7>  赠送玩家:<$STR(S7)>\
<更改信息/@@InPutInteger7>  赠送数量:<$STR(N7)>\ \
请核对以上信息,确认后点击确定赠送!\
<我确定以上信息准确无误,提交/@元宝鲜花11>\

#ELSEACT
break
#ELSESAY
<赠送鲜花操作:/FCOLOR=56>\ \
<赠送数量限制:1-999/FCOLOR=56> <每朵鲜花20元宝/FCOLOR=250>\ \
      赠送玩家:<______________/@@InPutString7>\
<更改信息/@@InPutInteger7>  赠送数量:<$STR(N7)>\ \
请核对以上信息,确认后点击确定赠送!\
我确定以上信息准确无误,提交

[@元宝鲜花11]
#IF
EQUAL <$STR(S7)> <$USERNAME>
#ACT
MESSAGEBOX 不可以赠送给自己!
BREAK
CLOSE

#IF
CheckOnline <$STR(S7)>
#ACT
#ELSEACT
MESSAGEBOX <$STR(S7)>没有在线!
MOV S7
BREAK
CLOSE
#IF
#ACT
MUL N70 N7 20
BREAK
CLOSE
#IF
CHECKGAMEGOLD > <$STR(N70)>
#ACT
CALCVAR HUMAN 挑战点 + <$STR(N70)>
SAVEVAR HUMAN 挑战点 ..\QuestDiary\data\挑战点.txt
SENDMSG 6 挑战点数增加<$STR(N70)>点。
CALCVAR HUMAN 日祝福点 + <$STR(N70)>
CALCVAR HUMAN 周祝福点 + <$STR(N70)>
SAVEVAR HUMAN 日祝福点 ..\QuestDiary\data\日祝福点.txt
SAVEVAR HUMAN 周祝福点 ..\QuestDiary\data\周祝福点.txt
SENDMSG 6 祝福点数增加<$STR(N70)>点。
GAMEGOLD - <$STR(N70)>
MOV A49
MOV A49 <$USERNAME>
MOV G97
MOV G97 N7
hcall <$STR(S7)> @在线接收鲜花
SENDMSG 0 <$USERNAME>向<$STR(S7)>赠送了<$STR(G97)>朵玫瑰,祝所有玩家白色情人节快乐!
GOTO @赠送经验奖励
break
CLOSE
#ELSEACT
MESSAGEBOX 你没有足够的元宝!
MOV S7
BREAK
CLOSE

[@@InPutString6]
#Act
MOV N88
MUL N88 2888 100
DelaYGoto 1 ~InPutString6
break

[~InPutString6]
#IF
EQUAL <$STR(S6)> <$USERNAME>
#ACT
MESSAGEBOX 只可以赠送给其他玩家,不可以赠送给自己!
BREAK
CLOSE

#IF
CheckOnline <$STR(S6)>
#ACT
#ELSEACT
MESSAGEBOX <$STR(S6)>没有在线!
MOV S6
BREAK
CLOSE

#IF
LARGE HUMAN 荣耀点 N88
#ACT
CALCVAR HUMAN 荣耀点 - <$STR(N88)>
SAVEVAR HUMAN 荣耀点 ..\QuestDiary\data\游戏币.txt
MOV A49
MOV A49 <$USERNAME>
MOV G97
MOV G97 2888
hcall <$STR(S6)> @在线接收鲜花
SENDMSG 0 <$USERNAME>向<$STR(S6)>赠送了<$STR(G97)>朵玫瑰,祝所有玩家白色情人节快乐!
GOTO @赠送经验奖励
break
CLOSE
#ELSEACT
MESSAGEBOX 你没有足够的荣耀点!
MOV S6
BREAK
CLOSE

[@@InPutString5]
#Act
DelaYGoto 1 ~InPutString5
break

[~InPutString5]
#IF
EQUAL <$STR(S5)> <$USERNAME>
#ACT
MESSAGEBOX 只可以赠送给其他玩家,不可以赠送给自己!
BREAK
CLOSE

#IF
CheckOnline <$STR(S5)>
#ACT
#ELSEACT
MESSAGEBOX <$STR(S5)>没有在线!
MOV S5
BREAK
CLOSE

#IF
CHECKGAMEGOLD > 2887
#ACT
CALCVAR HUMAN 挑战点 + 2888
SAVEVAR HUMAN 挑战点 ..\QuestDiary\data\挑战点.txt
SENDMSG 6 挑战点数增加2888点。
CALCVAR HUMAN 日祝福点 + 2888
CALCVAR HUMAN 周祝福点 + 2888
SAVEVAR HUMAN 日祝福点 ..\QuestDiary\data\日祝福点.txt
SAVEVAR HUMAN 周祝福点 ..\QuestDiary\data\周祝福点.txt
SENDMSG 6 祝福点数增加2888点。
GAMEGOLD - 2888
MOV A49
MOV A49 <$USERNAME>
MOV G97
MOV G97 2888
hcall <$STR(S5)> @在线接收鲜花
SENDMSG 0 <$USERNAME>向<$STR(S5)>赠送了<$STR(G97)>朵玫瑰,祝所有玩家白色情人节快乐!
GOTO @赠送经验奖励
break
CLOSE
#ELSEACT
MESSAGEBOX 你没有足够的元宝!
MOV S5
BREAK
CLOSE

[@@InPutString4]
#Act
MOV N88
MUL N88 4888 100
DelaYGoto 1 ~InPutString4
break

[~InPutString4]
#IF
EQUAL <$STR(S4)> <$USERNAME>
#ACT
MESSAGEBOX 只可以赠送给其他玩家,不可以赠送给自己!
BREAK
CLOSE

#IF
CheckOnline <$STR(S4)>
#ACT
#ELSEACT
MESSAGEBOX <$STR(S4)>没有在线!
MOV S4
BREAK
CLOSE

#IF
LARGE HUMAN 荣耀点 N88
#ACT
CALCVAR HUMAN 荣耀点 - <$STR(N88)>
SAVEVAR HUMAN 荣耀点 ..\QuestDiary\data\游戏币.txt
MOV A49
MOV A49 <$USERNAME>
MOV G97
MOV G97 4888
hcall <$STR(S4)> @在线接收鲜花
SENDMSG 0 <$USERNAME>向<$STR(S4)>赠送了<$STR(G97)>朵玫瑰,祝所有玩家白色情人节快乐!
GOTO @赠送经验奖励
break
CLOSE
#ELSEACT
MESSAGEBOX 你没有足够的荣耀点!
MOV S4
BREAK
CLOSE

[@@InPutString3]
#Act
DelaYGoto 1 ~InPutString3
break

[~InPutString3]
#IF
EQUAL <$STR(S3)> <$USERNAME>
#ACT
MESSAGEBOX 只可以赠送给其他玩家,不可以赠送给自己!
BREAK
CLOSE

#IF
CheckOnline <$STR(S3)>
#ACT
#ELSEACT
MESSAGEBOX <$STR(S3)>没有在线!
MOV S3
BREAK
CLOSE

#IF
CHECKGAMEGOLD > 4887
#ACT
CALCVAR HUMAN 挑战点 + 4888
SAVEVAR HUMAN 挑战点 ..\QuestDiary\data\挑战点.txt
SENDMSG 6 挑战点数增加4888点。
CALCVAR HUMAN 日祝福点 + 4888
CALCVAR HUMAN 周祝福点 + 4888
SAVEVAR HUMAN 日祝福点 ..\QuestDiary\data\日祝福点.txt
SAVEVAR HUMAN 周祝福点 ..\QuestDiary\data\周祝福点.txt
SENDMSG 6 祝福点数增加4888点。
GAMEGOLD - 4888
MOV A49
MOV A49 <$USERNAME>
MOV G97
MOV G97 4888
hcall <$STR(S3)> @在线接收鲜花
SENDMSG 0 <$USERNAME>向<$STR(S3)>赠送了<$STR(G97)>朵玫瑰,祝所有玩家白色情人节快乐!
GOTO @赠送经验奖励
break
CLOSE

#ELSEACT
MESSAGEBOX 你没有足够的元宝!
MOV S3
BREAK
CLOSE

[@@InPutString2]
#Act
MOV N88
MUL N88 9999 100
DelaYGoto 1 ~InPutString2
break

[~InPutString2]
#IF
EQUAL <$STR(S2)> <$USERNAME>
#ACT
MESSAGEBOX 只可以赠送给其他玩家,不可以赠送给自己!
BREAK
CLOSE

#IF
CheckOnline <$STR(S2)>
#ACT

#ELSEACT
MESSAGEBOX <$STR(S2)>没有在线!
MOV S1
BREAK
CLOSE

#IF
LARGE HUMAN 荣耀点 N88
#ACT
CALCVAR HUMAN 荣耀点 - <$STR(N88)>
SAVEVAR HUMAN 荣耀点 ..\QuestDiary\data\游戏币.txt
MOV A49
MOV A49 <$USERNAME>
MOV G97
MOV G97 9999
hcall <$STR(S2)> @在线接收鲜花
SENDMSG 0 <$USERNAME>向<$STR(S2)>赠送了<$STR(G97)>朵玫瑰,祝所有玩家白色情人节快乐!
GOTO @赠送经验奖励
break
CLOSE
#ELSEACT
MESSAGEBOX 你没有足够的荣耀点!
MOV S2
BREAK
CLOSE

[@@InPutString1]
#Act
DelaYGoto 1 ~InPutString1
break

[~InPutString1]
#IF
EQUAL <$STR(S1)> <$USERNAME>
#ACT
MESSAGEBOX 只可以赠送给其他玩家,不可以赠送给自己!
BREAK
CLOSE
#IF
CheckOnline <$STR(S1)>
#ACT
#ELSEACT
MESSAGEBOX <$STR(S1)>没有在线!
MOV S1
BREAK
CLOSE
#IF
CHECKGAMEGOLD > 9998
#ACT
CALCVAR HUMAN 挑战点 + 9999
SAVEVAR HUMAN 挑战点 ..\QuestDiary\data\挑战点.txt
SENDMSG 6 挑战点数增加9999点。
CALCVAR HUMAN 日祝福点 + 9999
CALCVAR HUMAN 周祝福点 + 9999
SAVEVAR HUMAN 日祝福点 ..\QuestDiary\data\日祝福点.txt
SAVEVAR HUMAN 周祝福点 ..\QuestDiary\data\周祝福点.txt
SENDMSG 6 祝福点数增加9999点。
GAMEGOLD - 9999
MOV A49
MOV A49 <$USERNAME>
MOV G97
MOV G97 9999
hcall <$STR(S1)> @在线接收鲜花
SENDMSG 0 <$USERNAME>向<$STR(S1)>赠送了<$STR(G97)>朵玫瑰,祝所有玩家白色情人节快乐!
GOTO @赠送经验奖励
break
CLOSE
#ELSEACT
MESSAGEBOX 你没有足够的元宝!
MOV S1
BREAK
CLOSE

[@赠送英雄奖励]
#IF
HAVEHERO
CHECKHEROONLINE
#ACT
MOV N10
MUL N10 G97 7000
MOV N11
MUL N11 G97 7000
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGEHEROEXP + N11
CHANGEHEROEXP + N11
CHANGEHEROEXP + N11
CHANGEHEROEXP + N11
CHANGEHEROEXP + N11
CHANGEHEROEXP + N11
CHANGEHEROEXP + N11
CHANGEHEROEXP + N11
CHANGEHEROEXP + N11
CHANGEHEROEXP + N11
SENDMSG 7 恭喜:你获得了:内功经验:<$STR(N10)>*10
SENDMSG 7 恭喜:你获得了:英雄经验:<$STR(N11)>*10
BREAK
CLOSE
#ELSEACT
MOV N10
MUL N10 G97 7000
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
SENDMSG 7 恭喜:你获得了:内功经验:<$STR(N10)>*10
BREAK
CLOSE

[@赠送经验奖励]
#ACT
MOV N10
MUL N10 G97 7000
MOV N11
MUL N11 G97 7000
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGENGEXP + <$STR(N10)>
CHANGEEXP + N11
CHANGEEXP + N11
CHANGEEXP + N11
CHANGEEXP + N11
CHANGEEXP + N11
CHANGEEXP + N11
CHANGEEXP + N11
CHANGEEXP + N11
CHANGEEXP + N11
CHANGEEXP + N11
SENDMSG 7 恭喜:你获得了:内功经验:<$STR(N10)>*10
SENDMSG 7 恭喜:你获得了:经验:<$STR(N11)>*10
BREAK
CLOSE

[@称号奖励]
<“君临天下”领取奖励/@称号奖励1>      <“倾国倾城”领取奖励/@称号奖励2>\ \
<“勇者无敌”领取奖励/@称号奖励3>      <“国色天香”领取奖励/@称号奖励4>\ \
<“国士无双”领取奖励/@称号奖励5>      <“绝代佳人”领取奖励/@称号奖励6>\ \ \
<返回/@赠送鲜花>\

[@称号奖励6]
以下两种任选奖励其一:\ \
<免费领取52个灵符礼包+1个庆典蛋糕/@称号奖励41>\ \
<返回/@称号奖励>\

[@称号奖励61]
#IF
CHECKFENGHAO 绝代佳人
#ACT
#ELSEACT
BREAK
#ELSESAY
你没有“绝代佳人”的称号,不能领取灵符礼包。
#IF
CHECKBAGSIZE 2
#ACT
#ELSESAY
请预留2格以上包裹空间后再来领取奖励!
#ELSEACT
break
#IF
CHECKUSERDATE ..\QuestDiary\data\称号系统\每月可领取名单.txt < 70 p0 p1
#ACT
#ELSESAY
当前你无法领取该奖励!
#ELSEACT
break
#IF
checknamelist ..\QuestDiary\data\称号系统\绝代佳人\奖励领取名单.txt
#ACT
BREAK
#SAY
今天的奖励,你已经领取过了!
#ELSEACT
addnamelist ..\QuestDiary\data\称号系统\绝代佳人\奖励领取名单.txt
GIVE 庆典蛋糕 1
GIVEKIMNEEDLE 灵符礼包 52
SENDMSG 7 恭喜:你获得了:庆典蛋糕*1
SENDMSG 7 恭喜:你获得了:灵符礼包*52
BREAK
[@称号奖励5]
以下两种任选奖励其一:\ \
<免费领取52个灵符礼包+1个庆典蛋糕/@称号奖励51>\ \
<返回/@称号奖励>\

[@称号奖励51]
#IF
CHECKFENGHAO 国士无双
#ACT
#ELSEACT
BREAK
#ELSESAY
你没有“国士无双”的称号,不能领取灵符礼包。
#IF
CHECKBAGSIZE 2
#ACT
#ELSESAY
请预留2格以上包裹空间后再来领取奖励!
#ELSEACT
break
#IF
CHECKUSERDATE ..\QuestDiary\data\称号系统\每月可领取名单.txt < 7 p0 p1
#ACT
#ELSESAY
当前你无法领取该奖励!
#ELSEACT
break
#IF
checknamelist ..\QuestDiary\data\称号系统\国士无双\奖励领取名单.txt
#ACT
BREAK
#SAY
今天的奖励,你已经领取过了!
#ELSEACT
addnamelist ..\QuestDiary\data\称号系统\国士无双\奖励领取名单.txt
GIVE 庆典蛋糕 1
GIVEKIMNEEDLE 灵符礼包 52
SENDMSG 7 恭喜:你获得了:庆典蛋糕*1
SENDMSG 7 恭喜:你获得了:灵符礼包*52
BREAK

[@称号奖励4]
以下两种任选奖励其一:\ \
<免费领取90个灵符礼包+2个庆典蛋糕/@称号奖励41>\ \
<返回/@称号奖励>\
[@称号奖励41]
#IF
CHECKFENGHAO 国色天香
#ACT
#ELSEACT
BREAK
#ELSESAY
你没有“国色天香”的称号,不能领取灵符礼包。
#IF
CHECKBAGSIZE 2
#ACT
#ELSESAY
请预留2格以上包裹空间后再来领取奖励!
#ELSEACT
break
#IF
CHECKUSERDATE ..\QuestDiary\data\称号系统\每月可领取名单.txt < 7 p0 p1
#ACT
#ELSESAY
当前你无法领取该奖励!
#ELSEACT
break
#IF
checknamelist ..\QuestDiary\data\称号系统\国色天香\奖励领取名单.txt
#ACT
BREAK
#SAY
今天的奖励,你已经领取过了!
#ELSEACT
addnamelist ..\QuestDiary\data\称号系统\国色天香\奖励领取名单.txt
GIVE 庆典蛋糕 2
GIVEKIMNEEDLE 灵符礼包 90
SENDMSG 7 恭喜:你获得了:庆典蛋糕*2
SENDMSG 7 恭喜:你获得了:灵符礼包*90
BREAK

[@称号奖励3]
以下两种任选奖励其一:\ \
<免费领取90个灵符礼包+2个庆典蛋糕/@称号奖励31>\ \
<返回/@称号奖励>\

[@称号奖励31]
#IF
CHECKFENGHAO 勇者无敌
#ACT
#ELSEACT
BREAK
#ELSESAY
你没有“勇者无敌”的称号,不能领取灵符礼包。

#IF
CHECKBAGSIZE 2
#ACT
#ELSESAY
请预留2格以上包裹空间后再来领取奖励!
#ELSEACT
break
#IF
CHECKUSERDATE ..\QuestDiary\data\称号系统\每月可领取名单.txt < 7 p0 p1
#ACT
#ELSESAY
当前你无法领取该奖励!
#ELSEACT
break
#IF
checknamelist ..\QuestDiary\data\称号系统\勇者无敌\奖励领取名单.txt
#ACT
BREAK
#SAY
今天的奖励,你已经领取过了!
#ELSEACT
addnamelist ..\QuestDiary\data\称号系统\勇者无敌\奖励领取名单.txt
GIVE 庆典蛋糕 2
GIVEKIMNEEDLE 灵符礼包 90
SENDMSG 7 恭喜:你获得了:庆典蛋糕*2
SENDMSG 7 恭喜:你获得了:灵符礼包*90
BREAK

[@称号奖励2]
以下两种任选奖励其一:\ \
<免费领取188个灵符礼包+4个庆典蛋糕/@称号奖励21>\ \
<免费领取3个主宰者灵珠/@称号奖励22>\ \
<返回/@称号奖励>\

[@称号奖励22]
#IF
CHECKFENGHAO 倾国倾城
#ACT
#ELSEACT
BREAK
#ELSESAY
你没有“倾国倾城”的称号,不能领取灵符礼包。
#IF
CHECKBAGSIZE 3
#ACT
#ELSESAY
请预留3格以上包裹空间后再来领取奖励!
#ELSEACT
break
#IF
CHECKUSERDATE ..\QuestDiary\data\称号系统\每月可领取名单.txt < 7 p0 p1
#ACT
#ELSESAY
当前你无法领取该奖励!
#ELSEACT
break
#IF
checknamelist ..\QuestDiary\data\称号系统\倾国倾城\奖励领取名单.txt
#ACT
BREAK
#SAY
今天的奖励,你已经领取过了!
#ELSEACT
addnamelist ..\QuestDiary\data\称号系统\倾国倾城\奖励领取名单.txt
GIVE 主宰者灵珠 1
SENDMSG 7 恭喜:你获得了:主宰者灵珠*1
BREAK

[@称号奖励21]
#IF
CHECKFENGHAO 倾国倾城
#ACT
#ELSEACT
BREAK
#ELSESAY
你没有“倾国倾城”的称号,不能领取灵符礼包。
#IF
CHECKBAGSIZE 5
#ACT
#ELSESAY
请预留5格以上包裹空间后再来领取奖励!
#ELSEACT
break
#IF
CHECKUSERDATE ..\QuestDiary\data\称号系统\每月可领取名单.txt < 7 p0 p1
#ACT
#ELSESAY
当前你无法领取该奖励!
#ELSEACT
break
#IF
checknamelist ..\QuestDiary\data\称号系统\倾国倾城\奖励领取名单.txt
#ACT
BREAK
#SAY
今天的奖励,你已经领取过了!
#ELSEACT
addnamelist ..\QuestDiary\data\称号系统\倾国倾城\奖励领取名单.txt
GIVE 庆典蛋糕 4
GIVEKIMNEEDLE 灵符礼包 188
SENDMSG 7 恭喜:你获得了:庆典蛋糕*4
SENDMSG 7 恭喜:你获得了:灵符礼包*188
BREAK

[@称号奖励1]
以下两种任选奖励其一:\ \
<免费领取188个灵符礼包+4个庆典蛋糕/@称号奖励11>\ \
<免费领取3个主宰者灵珠/@称号奖励12>\ \
<返回/@称号奖励>\

[@称号奖励12]
#IF
CHECKFENGHAO 君临天下
#ACT
#ELSEACT
BREAK
#ELSESAY
你没有“君临天下”的称号,不能领取灵符礼包。
#IF
CHECKBAGSIZE 5
#ACT
#ELSESAY
请预留5格以上包裹空间后再来领取奖励!
#ELSEACT
break
#IF
checknamelist ..\QuestDiary\data\称号系统\君临天下\奖励领取名单.txt
#ACT
BREAK
#SAY
今天的奖励,你已经领取过了!
#ELSEACT
addnamelist ..\QuestDiary\data\称号系统\君临天下\奖励领取名单.txt
GIVE 主宰者灵珠 1
SENDMSG 7 恭喜:你获得了:主宰者灵珠*1
BREAK

[@称号奖励11]
#IF
CHECKFENGHAO 君临天下
#ACT
#ELSEACT
BREAK
#ELSESAY
你没有“君临天下”的称号,不能领取灵符礼包。
#IF
CHECKBAGSIZE 5
#ACT
#ELSESAY
请预留5格以上包裹空间后再来领取奖励!
#ELSEACT
break
#IF
checknamelist ..\QuestDiary\data\称号系统\君临天下\奖励领取名单.txt
#ACT
BREAK
#SAY
今天的奖励,你已经领取过了!
#ELSEACT
addnamelist ..\QuestDiary\data\称号系统\君临天下\奖励领取名单.txt
GIVE 庆典蛋糕 4
GIVEKIMNEEDLE 灵符礼包 188
SENDMSG 7 恭喜:你获得了:庆典蛋糕*4
SENDMSG 7 恭喜:你获得了:灵符礼包*188
BREAK

[@查询鲜花]
#ACT
MOV S1
MOV S2
MOV S2 HUMAN 鲜花数量
MOV S1 <
INC S1 S2
INC S1 /FColor=56>
#SAY
你当前已经累积的鲜花数量为:<$STR(S1)>\ \
<返回/@MAIN>\

[@回收年货]
你要回收什么年货呢?\ \
<"牛"/@牛> <"气"/@气> <"冲"/@冲> <"天"/@天>  <"牛气冲天"大奖/@牛气冲天>  <压岁钱包/@压岁>\ \
<年年有余(一)/@nn01>  <年年有余(二)/@nn02>  <年年有余(三)/@nn03>  <年年有余(四)/@nn04>\
<年年有余(五)/@nn05>  <年年有余(六)/@nn06>    <兑换年年有余一至六张大奖/@年年有余>\
\
<长鞭炮(新)/@长鞭炮(新)>   <饺子(新)/@饺子(新)>      <一键回收老版饺子与鞭炮/@收老鞭炮>\
<返回/@main>\

[@收老鞭炮]
#IF
CheckItem 饺子 1
#ACT
INC P1 1
TAKE 饺子 1
DELAYGOTO 1 @收老鞭炮1
BREAK
#IF
CheckItem 长鞭炮 1
#ACT
INC P1 1
TAKE 长鞭炮 1
DELAYGOTO 1 @收老鞭炮1
BREAK
#IF
#ACT
SendMsg 6 回收[饺子与鞭炮]完毕!!
MOV P1 0
close
[@收老鞭炮1]
#IF
#ACT
CHANGEEXP + 150000
#IF
#ACT
DELAYGOTO 1 @收老鞭炮
BREAK

[@年年有余]
新年快乐,年年有余,家家欢乐!\
现在开始,只要你一次性给我“年年有余”一至六,六张年画,\
我可以给你一次抽奖的机会,\
你将有机会获得海量经验,疾风,怒血,神合装备,\
以及星王,雷炎,王者等装备。\ \
<回收年年有余年货/@年年有余1>\
<返回/@回收年货>\

[@年年有余1]
#IF
random 188
checkitem 年年有余(一) 1
checkitem 年年有余(二) 1
checkitem 年年有余(三) 1
checkitem 年年有余(四) 1
checkitem 年年有余(五) 1
checkitem 年年有余(六) 1
#act
take 年年有余(一) 1
take 年年有余(二) 1
take 年年有余(三) 1
take 年年有余(四) 1
take 年年有余(五) 1
take 年年有余(六) 1
CALCVAR HUMAN 辉煌年年有余计数 + 1
SAVEVAR HUMAN 辉煌年年有余计数 ..\QuestDiary\Data\辉煌累积次数.txt
GOTO @年年辉煌
GetRandomName ..\QuestDiary\抽取变量\年货奖励\金牛奖励.txt S0
give <$STR(S0)> 1
SENDMSG 0 恭喜:%s在回收年货“牛气冲天”获得了:<$STR(S0)>
BREAK
#IF
random 50
checkitem 年年有余(一) 1
checkitem 年年有余(二) 1
checkitem 年年有余(三) 1
checkitem 年年有余(四) 1
checkitem 年年有余(五) 1
checkitem 年年有余(六) 1
#act
take 年年有余(一) 1
take 年年有余(二) 1
take 年年有余(三) 1
take 年年有余(四) 1
take 年年有余(五) 1
take 年年有余(六) 1
CALCVAR HUMAN 辉煌年年有余计数 + 1
SAVEVAR HUMAN 辉煌年年有余计数 ..\QuestDiary\Data\辉煌累积次数.txt
GOTO @年年辉煌
GetRandomName ..\QuestDiary\抽取变量\年货奖励\王者奖励.txt S0
give <$STR(S0)> 1
SENDMSG 0 恭喜:%s在回收年货“牛气冲天”获得了:<$STR(S0)>
BREAK
#IF
random 5
checkitem 年年有余(一) 1
checkitem 年年有余(二) 1
checkitem 年年有余(三) 1
checkitem 年年有余(四) 1
checkitem 年年有余(五) 1
checkitem 年年有余(六) 1
#act
take 年年有余(一) 1
take 年年有余(二) 1
take 年年有余(三) 1
take 年年有余(四) 1
take 年年有余(五) 1
take 年年有余(六) 1
CALCVAR HUMAN 辉煌年年有余计数 + 1
SAVEVAR HUMAN 辉煌年年有余计数 ..\QuestDiary\Data\辉煌累积次数.txt
GOTO @年年辉煌
GetRandomName ..\QuestDiary\抽取变量\年货奖励\狂雷奖励.txt S0
give <$STR(S0)> 1
SENDMSG 0 恭喜:%s在回收年货“牛气冲天”获得了:<$STR(S0)>
BREAK
#IF
checkitem 年年有余(一) 1
checkitem 年年有余(二) 1
checkitem 年年有余(三) 1
checkitem 年年有余(四) 1
checkitem 年年有余(五) 1
checkitem 年年有余(六) 1
#act
take 年年有余(一) 1
take 年年有余(二) 1
take 年年有余(三) 1
take 年年有余(四) 1
take 年年有余(五) 1
take 年年有余(六) 1
CALCVAR HUMAN 辉煌年年有余计数 + 1
SAVEVAR HUMAN 辉煌年年有余计数 ..\QuestDiary\Data\辉煌累积次数.txt
GOTO @年年辉煌
GetRandomName ..\QuestDiary\抽取变量\年货奖励\经验奖励.txt S0
changeexp + <$STR(S0)> 1
SENDMSG 0 恭喜:%s在回收年货“牛气冲天”获得了经验:<$STR(S0)>
BREAK
#IF
#SAY
你要兑换的年货在哪里?

[@年年辉煌]
#IF
CHECKVAR HUMAN 辉煌年年有余计数 > 9
#ACT
CALCVAR HUMAN 辉煌年年有余计数 - 10
SAVEVAR HUMAN 辉煌年年有余计数 ..\QuestDiary\Data\辉煌累积次数.txt
CALCVAR HUMAN 辉煌印记数量 + 1
SAVEVAR HUMAN 辉煌印记数量 ..\QuestDiary\Data\辉煌印记数量.txt
SENDMSG 6 你的辉煌印记数量+1,当前辉煌印记数量:<$HUMAN(辉煌印记数量)>
GOTO @MAIN
BREAK
#ELSEACT
GOTO @MAIN
SENDMSG 6 当前兑换累计次数<$HUMAN(辉煌年年有余计数)>,累积满10次可获得辉煌印记1个。
BREAK

[@牛气冲天]
牛年大礼,牛气冲天,势不可挡!\
现在开始,只要你一次性给我牛、气、冲、天四张年画,\
我可以给你一次抽奖的机会,\
你将有机会获得海量经验,疾风,怒血,神合装备,\
以及星王,雷炎,王者,金牛等装备。\ \
<回收牛气冲天年货/@牛气冲天1>\
<返回/@回收年货>\

[@牛气冲天1]
#IF
random 300
checkitem 牛 1
checkitem 气 1
checkitem 冲 1
checkitem 天 1
#act
take 牛 1
take 气 1
take 冲 1
take 天 1
CALCVAR HUMAN 辉煌牛气冲天计数 + 1
SAVEVAR HUMAN 辉煌牛气冲天计数 ..\QuestDiary\Data\辉煌累积次数.txt
GOTO @牛气辉煌
GetRandomName ..\QuestDiary\抽取变量\年货奖励\金牛奖励.txt S0
give <$STR(S0)> 1
SENDMSG 0 恭喜:%s在回收年货“牛气冲天”获得了:<$STR(S0)>
BREAK
#IF
random 100
checkitem 牛 1
checkitem 气 1
checkitem 冲 1
checkitem 天 1
#act
take 牛 1
take 气 1
take 冲 1
take 天 1
CALCVAR HUMAN 辉煌牛气冲天计数 + 1
SAVEVAR HUMAN 辉煌牛气冲天计数 ..\QuestDiary\Data\辉煌累积次数.txt
GOTO @牛气辉煌
GetRandomName ..\QuestDiary\抽取变量\年货奖励\王者奖励.txt S0
give <$STR(S0)> 1
SENDMSG 0 恭喜:%s在回收年货“牛气冲天”获得了:<$STR(S0)>
BREAK
#IF
random 30
checkitem 牛 1
checkitem 气 1
checkitem 冲 1
checkitem 天 1
#act
take 牛 1
take 气 1
take 冲 1
take 天 1
CALCVAR HUMAN 辉煌牛气冲天计数 + 1
SAVEVAR HUMAN 辉煌牛气冲天计数 ..\QuestDiary\Data\辉煌累积次数.txt
GOTO @牛气辉煌
GetRandomName ..\QuestDiary\抽取变量\年货奖励\狂雷奖励.txt S0
give <$STR(S0)> 1
SENDMSG 0 恭喜:%s在回收年货“牛气冲天”获得了:<$STR(S0)>
BREAK
#IF
checkitem 牛 1
checkitem 气 1
checkitem 冲 1
checkitem 天 1
#act
take 牛 1
take 气 1
take 冲 1
take 天 1
CALCVAR HUMAN 辉煌牛气冲天计数 + 1
SAVEVAR HUMAN 辉煌牛气冲天计数 ..\QuestDiary\Data\辉煌累积次数.txt
GOTO @牛气辉煌
GetRandomName ..\QuestDiary\抽取变量\年货奖励\经验奖励.txt S0
changeexp + <$STR(S0)> 1
SENDMSG 0 恭喜:%s在回收年货“牛气冲天”获得了经验:<$STR(S0)>
BREAK
#IF
#SAY
你要兑换的年货在哪里?

[@牛气辉煌]
#IF
CHECKVAR HUMAN 辉煌印记牛气冲天计数 > 24
#ACT
CALCVAR HUMAN 辉煌牛气冲天计数 - 25
SAVEVAR HUMAN 辉煌牛气冲天计数 ..\QuestDiary\Data\辉煌累积次数.txt
CALCVAR HUMAN 辉煌印记数量 + 1
SAVEVAR HUMAN 辉煌印记数量 ..\QuestDiary\Data\辉煌印记数量.txt
SENDMSG 6 你的辉煌印记数量+1,当前辉煌印记数量:<$HUMAN(辉煌印记数量)>
GOTO @MAIN
BREAK
#ELSEACT
GOTO @MAIN
SENDMSG 6 当前兑换累计次数<$HUMAN(辉煌牛气冲天计数)>,累积满25次可获得辉煌印记1个。
BREAK

[@牛]
#if
checkitem 牛 1
#act
take 牛 1
changeexp + 5000000
SENDMSG 0 恭喜:[%s],成功兑换了一个牛字!得到大量经验大礼,在此祝愿他牛年发财!
#elsesay
如果你带来了,就快点交给我吧\

[@气]
#if
checkitem 气 1
#act
take 气 1
changeexp + 3000000
SENDMSG 0 恭喜:[%s],成功兑换了一个气字!得到大量经验大礼,在此祝愿他牛年发财!
#elsesay
如果你带来了,就快点交给我吧\
[@冲]
#if
checkitem 冲 1
#act
take 冲 1
changeexp + 1500000
SENDMSG 0 恭喜:[%s],成功兑换了一个冲字!得到大量经验大礼,在此祝愿他牛年发财!
#elsesay
如果你带来了,就快点交给我吧\
[@天]
#if
checkitem 天 1
#act
take 天 1
changeexp + 1300000
SENDMSG 0 恭喜:[%s],成功兑换了一个天字!得到大量经验大礼,在此祝愿他牛年发财!
#elsesay
如果你带来了,就快点交给我吧\
[@压岁]
#if
checkitem 压岁钱包 1
#act
take 压岁钱包 1
changeexp + 1600000
SENDMSG 0 恭喜:[%s],成功兑换了一个压岁钱包!得到大量经验大礼,在此祝愿他牛年发财!
#elsesay
如果你带来了,就快点交给我吧\

[@nn01]
#if
checkitem 年年有余(一) 1
#act
take 年年有余(一) 1
changeexp + 1000000
SENDMSG 0 恭喜:[%s],成功兑换了年年有余(一)!得到大量经验大礼,在此祝他在新的一年里年年有余,岁岁平安,一年更比一年牛!
#elsesay
如果你带来了,就快点交给我吧\
[@nn02]
#if
checkitem 年年有余(二) 1
#act
take 年年有余(二) 1
changeexp + 1200000
SENDMSG 0 恭喜:[%s],成功兑换了年年有余(二)!得到大量经验大礼,在此祝他在新的一年里年年有余,岁岁平安,一年更比一年牛!
#elsesay
如果你带来了,就快点交给我吧\
[@nn03]
#if
checkitem 年年有余(三) 1
#act
take 年年有余(三) 1
changeexp + 1300000
SENDMSG 0 恭喜:[%s],成功兑换了年年有余(三)!得到大量经验大礼,在此祝他在新的一年里年年有余,岁岁平安,一年更比一年牛!
#elsesay
如果你带来了,就快点交给我吧\
[@nn04]
#if
checkitem 年年有余(四) 1
#act
take 年年有余(四) 1
changeexp + 1400000
SENDMSG 0 恭喜:[%s],成功兑换了年年有余(四)!得到大量经验大礼,在此祝他在新的一年里年年有余,岁岁平安,一年更比一年牛!
#elsesay
如果你带来了,就快点交给我吧\
[@nn05]
#if
checkitem 年年有余(五) 1
#act
take 年年有余(五) 1
changeexp + 1500000
SENDMSG 0 恭喜:[%s],成功兑换了年年有余(五)!得到大量经验大礼,在此祝他在新的一年里年年有余,岁岁平安,一年更比一年牛!
#elsesay
如果你带来了,就快点交给我吧\
[@nn06]
#if
checkitem 年年有余(六) 1
#act
take 年年有余(六) 1
changeexp + 1600000
SENDMSG 0 恭喜:[%s],成功兑换了年年有余(六)!得到大量经验大礼,在此祝他在新的一年里年年有余,岁岁平安,一年更比一年牛!
#elsesay
如果你带来了,就快点交给我吧\

;--------------------------------

[@长鞭炮(新)]
#if
checkitem 长鞭炮(新) 1
#act
take 长鞭炮(新) 1
changeexp + 1500000
SENDMSG 0 恭喜:[%s],成功兑换了一个长鞭炮(新)!得到大量经验大礼,在此祝愿他牛年发财!红红火火过牛年
#elsesay
如果你带来了,就快点交给我吧\
[@饺子(新)]
#if
checkitem 饺子(新) 1
#act
take 饺子(新) 1
changeexp + 1400000
SENDMSG 0 恭喜:[%s],成功兑换了一个饺子(新)!得到大量经验大礼,在此祝愿他牛年发财!红红火火过牛年
#elsesay
如果你带来了,就快点交给我吧\

[@礼品盒]
制作<精致礼品盒/fcolor=249>需要两个<长鞭炮(新)/fcolor=249>、两个<饺子(新)/fcolor=249>\
另外我需要一个<精致包装纸/fcolor=249>将礼品盒装起来,包装纸商城可以买到\
现在你带来了我所需要的材料了吗?\
\ \
<是的,请现在就制作吧/@rmwt01>\
\ \
<这个,我还得去收集一下/@exit>\
[@rmwt01]
#if
checkitem 长鞭炮(新) 2
checkitem 饺子(新) 2
checkitem 精致包装纸 1
#act
take 长鞭炮(新) 2
take 饺子(新) 2
take 精致包装纸 1
give 精致礼品盒 1
SENDMSG 0 恭喜:[%s],成功制作了一个精致礼品盒!了解详情请点击[%d]!
#elsesay
你的长鞭炮(新)呢?就赶快交给我吧!\
页: [1]
查看完整版本: 最新官方传奇年货活动脚本明文分享