热门标签：传奇引擎版本网络开区最新服务脚本服务端 1.76

您当前的位置：首页 > 传奇技术

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

本文出处：网游动力作者：本站发布时间：2017-11-23阅读次数：

(@@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)>不在线或名字错误

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

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

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)>不在线或名字错误

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 @礼袋检测

BREAK

#ELSEACT

MESSAGEBOX 你的金币不足，请充值后再来！\<$STR(N2)>朵鲜花需要<$STR(D2)>金币！

BREAK

[@元宝鲜花提交]

#IF

EQUAL <$STR(S2)> <$USERNAME>

#SAY

不能赠送给自己，请重新输入。\ \

<返回/@赠送鲜花>

#ACT

BREAK

#IF

CheckOnline <$STR(S2)>

#ACT

GOTO @元宝鲜花提交_1

#ELSEACT

MESSAGEBOX <$STR(S2)>不在线或名字错误

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 @礼袋检测

BREAK

#ELSEACT

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