(@@InPutInteger @@InPutString)
[@MAIN]
#IF
CHECKLEVELEX 0
#ACT
MOV S0
MOV S1 /FCOLOR=58
#SAY
是谁每天陪伴着你？是谁默默的支持着你？\
是谁为你奋不顾身？是谁对你情真意切？\
在这里传递你的祝福，向兄弟、姐妹、战友、爱人表达你最真切感情。\
玛珐自有真情在，谁能成为玛珐大陆人缘最好的人呢？让我们拭目以待。\ \
赠送鲜花/@赠送鲜花 我收到的鲜花数量为∶$STR(S0)$HUMAN(鲜花)朵$STR(S1)\ \
领取免费称号奖励/@称号奖励 开启幸运礼袋/@开启幸运礼袋
[@赠送鲜花]
即日起，您可以购买鲜花送给您的亲朋好友，\
每送出一朵鲜花您都将获得$STR(S0)海量经验$STR(S1)。每累积赠送4朵鲜花您还能\
获赠$STR(S0)幸运礼袋$STR(S1)一个！开启礼袋将有机会拿到各种好礼。\
累计收到$STR(S0)9999朵$STR(S1)鲜花的玩家，将获得称号君临天下/@称号说明或倾国倾城/@称号说明。\
累计收到$STR(S0)4888朵$STR(S1)鲜花的玩家，将获得称号勇者无敌/@称号说明或国色天香/@称号说明。\
累计收到$STR(S0)2888朵$STR(S1)鲜花的玩家，将获得称号国士无双/@称号说明或绝代佳人/@称号说明。\
$STR(S0)根据角色的性别区分称号(三种称号不可同时获得)$STR(S1)\
送鲜花得经验/@@InPutString2|Title=请输入在线玩家的名字传递你的祝福\
返回/@MAIN
[@InPutString2]
#IF
CHECKLEVELEX 0
#ACT
DelaYGoto 1 ~InPutString2
BREAK
[~InPutString2]
#IF
EQUAL $STR(S2) $USERNAME
#SAY
不能赠送给自己，请重新输入。\ \
返回/@赠送鲜花
#ACT
BREAK
#IF
CheckOnline $STR(S2)
#SAY
$STR(S2)当前在线\ \
每朵鲜花$STR(S0)1元宝$STR(S1)、童叟无欺\ \
使用$STR(S0)元宝$STR(S1)赠送 ____/@@InPutInteger3|Title=请输入1-9999之间的整数朵 鲜花\ \
返回/@赠送鲜花
#ELSEACT
MESSAGEBOX $STR(S2)不在线或名字错误
CLOSE
BREAK
[@InPutInteger2]
#IF
CHECKLEVELEX 0
#ACT
DelaYGoto 1 ~InPutInteger2
BREAK
[~InPutInteger2]
#IF
LARGE N2 0
SMALL N2 2001
#ACT
MOV D2 N2
MUL D2 $STR(D2) 100000
MOVR D0 3000
INC D0 3000
MUL D9 $STR(N2) $STR(D0)
DelaYGoto 1 @金币计算
#ELSEACT
CLOSE
MESSAGEBOX 请输入1-2000之间的整数！
BREAK
[@InPutInteger3]
#IF
CHECKLEVELEX 0
#ACT
DelaYGoto 1 ~InPutInteger3
BREAK
[~InPutInteger3]
#IF
LARGE N3 0
SMALL N3 10000
#ACT
MOV D2 N3
MOVR D0 12000
INC D0 10000
MUL D9 $STR(N3) $STR(D0)
DelaYGoto 1 @元宝计算
#ELSEACT
CLOSE
MESSAGEBOX 请输入1-9999之间的整数！
BREAK
[@金币计算]
你打算将$STR(N2)朵鲜花赠送给$STR(S2)，\
需要花费你$STR(D2)金币，同时你还可以获得海量经验。\ \
$STR(S0)请核对以上信息，确认后点击确定赠送！$STR(S1)\ \
我确定以上信息准确无误，提交/@金币鲜花提交
[@元宝计算]
你打算将$STR(N3)朵鲜花赠送给新开传奇私服发布网$STR(S2)，\
需要花费你$STR(D2)元宝，同时你还可以获得海量经验。\ \
$STR(S0)请核对以上信息，确认后点击确定赠送！$STR(S1)\ \
我确定以上信息准确无误，提交/@元宝鲜花提交
[@金币鲜花提交]
#IF
EQUAL $STR(S2) $USERNAME
#SAY
不能赠送给自己，请重新输入。\ \
返回/@赠送鲜花
#ACT
BREAK
#IF
CheckOnline $STR(S2)
#ACT
GOTO @金币鲜花提交_1
#ELSEACT
MESSAGEBOX $STR(S2)不在线或名字错误
CLOSE传奇网页游戏
BREAK
[@金币鲜花提交_1]
#IF
CHECKGOLD $STR(D2)
#ACT
TAKE 金币 $STR(D2)
CHANGEEXP + $STR(D9) 2
MOV I39 $STR(N2)
MOV A32 $USERNAME
HCALL $STR(S2) @在线接收鲜花
SENDMSG 0 $USERNAME向$STR(S2)赠送了$STR(N2)朵鲜花，并祝愿他身体健康，天天快乐！
DelaYGoto 1 @礼袋检测
CLOSE
BREAK
#ELSEACT
MESSAGEBOX 你的金币不足，请充值后再来！\$STR(N2)朵鲜花需要$STR(D2)金币！
CLOSE
BREAK
[@元宝鲜花提交]
#IF
EQUAL $STR(S2) $USERNAME
#SAY
不能赠送给自己，请重新输入。\ \
返回/@赠送鲜花
#ACT
BREAK
#IF
CheckOnline $STR(S2)
#ACT
GOTO @元宝鲜花提交_1
#ELSEACT
MESSAGEBOX $STR(S2)不在线或名字错误
CLOSE
BREAK
[@元宝鲜花提交_1]
#IF
CHECKGAMEGOLD ? $STR(D2)
#ACT
GAMEGOLD - $STR(D2)
CHANGEEXP + $STR(D9) 2
MOV I39 $STR(N3)
MOV A32 $USERNAME
HCALL $STR(S2) @在线接收鲜花
SENDMSG 0 $USERNAME向$轻变传奇发布网STR(S2)赠送了$STR(N3)朵鲜花，并祝愿他身体健康，天天快乐！
DelaYGoto 1 @礼袋检测
CLOSE
BREAK
#ELSEACT
CLOSE
MESSAGEBOX 你的元宝不足，请充值后再来！\$STR(N3)朵鲜花需要$STR(D2)元宝！
BREAK
[@礼袋检测]
#IF
LARGE N2 3
#ACT
MOV M2 $STR(N2)
DIV M2 $STR(M2) 4
GIVEKIMNEEDLE 幸运礼袋 $STR(M2)
SENDMSG 0 $USERNAME买鲜花、送祝福，额外获得$STR(M2)个幸运礼袋！！！
BREAK
#IF
LARGE N3 3
#ACT
MOV M2 $STR(N3)
DIV M2 $STR(M2) 4
GIVEKIMNEEDLE 幸运礼袋 $STR(M2)
SENDMSG 0 $USERNAME买鲜花、送祝福，额外获得$STR(M2)个幸运礼袋！！！
BREAK
[@称号说明]
获得$STR(S0)君临天下$STR(S1)或$STR(S0)倾国倾城$STR(S1)称号的玩家，\
并在领取称号后的七天内每天免费领取$STR(S0)45个极品烟花$STR(S1)。\ \
获得$STR(S0)勇者无敌$STR(S1)或$STR(S0)国色天香$STR(S1)称号的玩家，\
并在领取称号后的七天内每天免费领取$STR(S0)20个极品烟花$STR(S1)。\ \
获得$STR(S0)国士无双$STR(S1)或$STR(S0)绝代佳人$STR(S1)称号的玩家，\
并在领取称号后的七天内每天免费领取$STR(S0)10个极品烟花$STR(S1)。\
返回/@赠送鲜花
[@称号奖励]
获得特殊称号的玩家每天都可以在我这里领取$STR(S0)极品烟花$STR(S1)。\
点燃$STR(S0)极品烟花$STR(S1)可以获得$STR(S0)最高20万经验$STR(S1)的奖励。\ \
领取每日称号奖励/@每日称号奖励\
返回/@MAIN
[@每日称号奖励]
#IF
CHECKNAMELIST ..\QuestDiary\数据文件\每日称号奖励.txt
#SAY
每人每天只能领取一次称号奖励
#ACT
BREAK
#IF
CHECKFENGHAO 君临天下
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\每日称号奖励.txt
GIVEKIMNEEDLE 极品烟花 45
CLOSE
BREAK
#IF
CHECKFENGHAO 倾国倾城
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\每日称号奖励.txt
GIVEKIMNEEDLE 极品烟花 45
CLOSE
BREAK
#IF
CHECKFENGHAO 勇者无敌
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\每日称号奖励.txt
GIVEKIMNEEDLE 极品烟花 20
CLOSE
BREAK
#IF
CHECKFENGHAO 国色天香
#ACT
ADDNAMELIST ..\Ques盛大热血传奇下载tDiary\数据文件\每日称号奖励.txt
GIVEKIMNEEDLE 极品烟花 20
CLOSE
BREAK
#IF
CHECKFENGHAO 国士无双
#ACT
ADDNAMELIST ..\QuestDiary\数据文件私服999永久域名\每日称号奖励.txt
GIVEKIMNEEDLE 极品烟花 10
CLOSE
BREAK
#IF
CHECKFENGHAO 绝代佳人
#ACT
ADDNAMELIST ..\QuestDiary\数据文件\每日称号奖励名单.txt
GIVEKIMNEEDLE 极品烟花 10
CLOSE
BREAK
#ELSESAY
你并没有获得称号奖励领取资格！
[@开启幸运礼袋]
每累积赠送4朵鲜花您还能获赠$STR(S0)幸运礼袋$STR(S1)一个！\
开启礼袋将有机会拿到装备、技能等各种好礼。\ \
开启幸运礼袋/@开启幸运礼袋_1\
返回/@MAIN
[@开启幸运礼袋_1]
#IF
ISOPENBOX
#SAY
你当前正在有礼袋开启中，不能再次开启多个礼袋！
#ACT
BREAK
#IF
CHECKKIMNEEDLE 幸运礼袋 1
#ACT
TAKEKIMNEEDLE 幸运礼袋 1
OPENDRAGONBOX 5
SENDMSG 0 %s在盟重人缘大使处使用幸运礼袋开启幸运大礼。
CLOSE
BREAK
#ELSESAY
如果你带来了幸运礼袋，赶快交给我吧！
标签：传奇霸业多久开一个新服当你沉睡时下载超级变态最新传奇私服发布找76传奇网站真封神sf123今天新开传奇世界2热血传奇 神秘商人神途私服热血传奇版本
