最新Hge引擎人缘大使传奇一条龙脚本

(@@InPutInteger @@InPutString)[@MAIN]#IFCHECKLEVELEX 0#ACTMOV 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]#IFCHECKLEVELEX 0#ACTDelaYGoto 1 ~InPutString2BREAK[~InPutString2]#IFEQUAL $STR(S2) $USERNAME#SAY不能赠送给自己，请重新输入。\ \返回/@赠送鲜花#ACTBREAK#IFCheckOnline $STR(S2)#SAY$STR(S2)当前在线\ \每朵鲜花$STR(S0)1元宝$STR(S1)、童叟无欺\ \使用$STR(S0)元宝$STR(S1)赠送 ____/@@InPutInteger3|Title=请输入1-9999之间的整数朵 鲜花\ \返回/@赠送鲜花#ELSEACTMESSAGEBOX $STR(S2)不在线或名字错误CLOSEBREAK[@InPutInteger2]#IFCHECKLEVELEX 0#ACTDelaYGoto 1 ~InPutInteger2BREAK[~InPutInteger2]#IFLARGE N2 0SMALL N2 2001#ACTMOV D2 N2MUL D2 $STR(D2) 100000MOVR D0 3000INC D0 3000MUL D9 $STR(N2) $STR(D0)DelaYGoto 1 @金币计算#ELSEACTCLOSEMESSAGEBOX 请输入1-2000之间的整数！BREAK[@InPutInteger3]#IFCHECKLEVELEX 0#ACTDelaYGoto 1 ~InPutInteger3BREAK[~InPutInteger3]#IFLARGE N3 0SMALL N3 10000#ACTMOV D2 N3MOVR D0 12000INC D0 10000MUL D9 $STR(N3) $STR(D0)DelaYGoto 1 @元宝计算#ELSEACTCLOSEMESSAGEBOX 请输入1-9999之间的整数！BREAK[@金币计算]你打算将$STR(N2)朵鲜花赠送给$STR(S2)，\需要花费你$STR(D2)金币，同时你还可以获得海量经验。\ \$STR(S0)请核对以上信息，确认后点击确定赠送！$STR(S1)\ \我确定以上信息准确无误，提交/@金币鲜花提交[@元宝计算]你打算将$STR(N3)朵鲜花赠送给$STR(S2)，\需要花费你$STR(D2)元宝，同时你还可以获得海量经验。\ \$STR(S0)请核对以上信息，确认后点击确定赠送！$STR(S1)\ \我确定以上信息准确无误，提交/@元宝鲜花提交[@金币鲜花提交]#IFEQUAL $STR(S2) $USERNAME#SAY不能赠送给自己，请重新输入。\ \返回/@赠送鲜花#ACTBREAK#IFCheckOnline $STR(S2)#ACTGOTO @金币鲜花提交_1#ELSEACTMESSAGEBOX $STR(S2)不在线或名字错误CLOSEBREAK[@金币鲜花提交_1]#IFCHECKGOLD $STR(D2)#ACTTAKE 金币 $STR(D2)CHANGEEXP + $STR(D9) 2MOV I39 $STR(N2)MOV A32 $USERNAMEHCALL $STR(S2) @在线接收鲜花SENDMSG 0 $USERNAME向$STR(S2)赠送了$STR(N2)朵鲜花，并祝愿他身体健康，天天快乐！DelaYGoto 1 @礼袋检测CLOSEBREAK#ELSEACTMESSAGEBOX 你的金币不足，请充值后再来！\$STR(N2)朵鲜花需要$STR(D2)金币！CLOSEBREAK[@元宝鲜花提交]#IFEQUAL $STR(S2) $USERNAME#SAY不能赠送给自己，请重新输入。\ \返回/@赠送鲜花#ACTBREAK#IFCheckOnline $STR(S2)#ACTGOTO @元宝鲜花提交_1#ELSEACTMESSAGEBOX $STR(S2)不在线或名字错误CLOSEBREAK[@元宝鲜花提交_1]#IFCHECKGAMEGOLD ? $STR(D2)#ACTGAMEGOLD - $STR(D2)CHANGEEXP + $STR(D9) 2MOV I39 $STR(N3)MOV A32 $USERNAMEHCALL $STR(S2) @在线接收鲜花SENDMSG 0 $USERNAME向$STR(S2)赠送了$STR(N3)朵鲜花，并祝愿他身体健康，天天快乐！DelaYGoto 1 @礼袋检测CLOSEBREAK#ELSEACTCLOSEMESSAGEBOX 你的元宝不足，请充值后再来！\$STR(N3)朵鲜花需要$STR(D2)元宝！BREAK[@礼袋检测]#IFLARGE N2 3#ACTMOV M2 $STR(N2)DIV M2 $STR(M2) 4GIVEKIMNEEDLE 幸运礼袋 $STR(M2)SENDMSG 0 $USERNAME买鲜花、送祝福，额传奇幻境迷宫走法外获得$STR(M2)个幸运礼袋！！！BREAK#IFLARGE N3 3#ACTMOV M2 $STR(N3)DIV M2 $STR(M2) 4GIVEKIMNEEDLE 幸运礼袋 $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[@每日称号奖励]#IFCHECKNAMELIST ..\QuestDiary\数据文件\每日称号奖励.txt#SAY每人每天只能领取一次称号奖励#ACTBREAK#IFCHECKFENGHAO 君临天下#ACTADDNAMELIST ..\QuestDiary\数据文件\每日称号奖励.txtGIVEKIMNEEDLE 极品烟花 45CLOSEBREAK#IFCHECKFENGHAO 倾国倾城#ACTADDNAMELIST ..\QuestDiary\数据文件\每日称号奖励.txtGIVEKIMNEEDLE 极品烟花 45CLOSEBREAK#IFCHECKFENGHAO 勇者无敌#ACTADDNAMELIST ..\QuestDiary\数据文件195黄金皓月\每日称号奖励.txtGIVEKIMNEEDLE 极品烟花 20CLOSEBREAK#IFCHECKFENGHAO 国色天香#ACTADDNAMELIST ..\QuestDiary\数据文件\每日称号奖励.txtGIVEKIMNEEDLE 极品烟花 20CLOSEBREAK#IFCHECKFENGHAO 国士无双#ACTADDNAMELIST ..\QuestDiary\数据文件\每日称号奖励.txtGIVEKIMNEEDLE 极品烟花 10CLOSEBREAK#IFCHECKFENGHAO 绝代佳人#ACTADDNAMELIST ..\QuestDiary\数据文件\每日称号奖励名单.txtGIVEKIMN新开sfEEDLE 极品烟花 10CL找新开传奇私服OSEBREAK#ELSESAY你并没有获得称号奖励领取资格！[@开启幸运礼袋]每累积赠送4朵鲜花您还能获赠$STR(S0)幸运礼袋$STR(S1)一个！\开启礼袋将有机会拿到装备、技能等各种好礼。\ \开启幸运礼袋/@开启幸运礼袋_1\返回/@MAIN[@开启幸运礼袋_1]#IFISOPENBOX#SAY你当前正在有礼袋开启中，不能再次开启多个礼袋！#ACTBREAK#IFCHECKKIMNEEDLE 幸运礼袋 1#ACTTAKEKIMNEEDLE 幸运礼袋 1OPENDRAGONBOX 5SENDMSG 0 %s在盟重人缘大使处使用幸运礼袋开启幸运大礼。CLOSEBREAK#ELSESAY如果你带来了幸运礼袋，赶快交给我吧！