几下搞定给你的传奇添加绰号脚本功能_传奇称号脚本

(@@InPutInteger @@InPutString)

[@main]

1、<最近各大SF都有新花样，为此我们开发出送花和改章功能/fcolor=250>

2、<绰号时间为30分钟自动消失！玫瑰花一朵为1000元宝！/fcolor=254>

<---注意：此为独家开发新脚本、为各玩家自愿消费为主！---/fcolor=249>

[<进入盖章商店/@绰号>] [<进入送花商店/@送花>]

[@绰号]

您是否对某人非常憎恨呢？你是否对某人暗许芳心呢？

本服推出特别功能，可以送给你憎恨的人，可以送给你心爱的人一

个独特的名字，设置后对方将显示出你设置的名字。效果保持半小

时，是否想试试呢？不过这个可以对别人造成人身攻击，搞不好我

小命都不保，所以收取一点安家费是理所当然的！

<为了防止有人恶意毁谤本游戏名声!绰号价格稍微调整为一次50000元宝/FCOLOR=249>\

<我想试试/@我想试试>

<花重金清除绰号/@清除绰号>

<算了，我只是路过的！/@exit>

[@我想试试]

对于你的仇人或是情人我都会要收取一点安家费，或许某日你的仇

人找上门我可是小命不保啊！所以您只要给我<50000元宝/FCOLOR=250>,我连小命

都可以交给你！老人家说得好，有钱能使磨推鬼。只要你有钱，磨

推鬼并不是不可能！

<要给于名字的人：/FCOLOR=249><[/FCOLOR=250><$STR(S9)><]/FCOLOR=250><点击输入/@@InPutString9>

<要给于他的称号：/FCOLOR=249><[/FCOLOR=250><$STR(S2)><]/FCOLOR=250><点击输入/@@InPutString2>

<设置好了，请您现在为我施法吧！/@我施法> <返回/@MAIN>

[@InPutString9]

#if

CheckStringlength <$STR(S9)> < 17

#act

goto @我想试试

#elseact

MOV S9

messagebox 嘛哩嘛哩哄！您输入的太长，让我头痛！最多只能八个汉字！

[@InPutString2]

CheckStringlength <$STR(S2)> < 17

MOV S2

[@我施法]

CHECKGAMEGOLD > 49999

break

messagebox 嘛哩嘛哩哄！我发现你没有50000个元宝给我！

CheckOnline <$STR(S9)>

messagebox 嘛哩嘛哩哄！那个人好像不在线哦！！

MOV A900 <$STR(S2)>

MOV A901 <$USERNAME>

GAMEGOLD - 50000

HCall <$STR(S9)> @设置名字号

messagebox 嘛哩嘛哩哄！施法成功！元宝入口袋！拜拜！

[@清除绰号]

尊敬的<$USERNAME>，您好！

是否被仇家给你起了个低俗、肮脏的绰号呢？那可不是我做的哦！

我可是玛法大陆上最守法的良民，大大滴良民！我决对不会做这样

的事，只要你能给我点元宝，我可以帮你把绰号弄掉！嗯！让我想

想，应该收你多少呢？<50000/FCOLOR=250>吧！只要给我<50000/FCOLOR=250>元宝，我就帮你把

那个绰号给去掉！

<我给，请帮我去掉！/@我去掉> <返回/@MAIN>

[@我去掉]

SETRANKLEVELNAME %s

CHANGENAMECOLOR 255

DELNAMELIST ..QuestDiary登陆设置被设置人物.txt

messagebox 嘛哩嘛哩哄！完成！元宝又入口袋！

[@送花]

传奇里的女人们，或<可爱/fcolor=249>，或<妩媚/fcolor=249>，或<淑女/fcolor=249>。他们一个个美丽的倩

影给玛法大陆带来了一道靓丽的风景线。她们默默地支持着在外打

拼的男人们，或者勇敢的站在男人的身边和他一起面对战斗，她们

的一举一动，一颦一笑深深地印刻在我们心底某个柔软的角落，不

经意总会想起，会心一笑。你身边否就有这样的<红颜知己/fcolor=249>和<红粉佳/fcolor=249>

<人/fcolor=249>呢？那么，在这请抓住机会对她们表达吧！

<赠送玫瑰花/@赠送玫瑰花>

<没有心爱的人，可怜可怜！/@MAIN>

[@赠送玫瑰花]

帮您赠送出一朵玫瑰我将收取您<1000元宝/fcolor=249>！划算吧！

成功送出后将全服提示，让您面子大增。。

<送花使用方法：点击以下要送出的数量并输入玩家名字即为您送出/fcolor=249>

<赠送11朵/@@InPutString21>(<一心一意/fcolor=249>) <赠送13朵/@@InPutString22>(<十三点/fcolor=249>) <赠送15朵/@@InPutString23>(<要我/fcolor=249>)

<赠送38朵/@@InPutString24>(<三八/fcolor=249>) <赠送51朵/@@InPutString25>(<我要/fcolor=249>) <赠送88朵/@@InPutString26>(<双发/fcolor=249>)

<赠送99朵/@@InPutString27>(<长久/fcolor=249>) <赠送168朵/@@InPutString28>(<一路发/fcolor=249>) <赠送999朵/@@InPutString29>(<我爱你/fcolor=249>)

<赠送1314朵/@@InPutString30>(<一生一世/fcolor=249>) <赠送9999朵/@@InPutString31>(<天长地久/fcolor=249>)

<您将赠送/fcolor=253><$STR(N0)><朵玫瑰给[/fcolor=253><$STR(S0)><]/fcolor=253> <需要/fcolor=253><$STR(N1)><元宝/fcolor=253> <确认送出/@确认送出>

<我还没有找到心爱的人！以后再送/@MAIN>

[@InPutString21]

#IF

CHECKGAMEGOLD > 10999

#ACT

MOV S0 S21

MOV N0 11

MUL N1 N0 1000

goto @赠送玫瑰花

#ELSEACT

MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足11000个！

[@InPutString22]

CHECKGAMEGOLD > 12999

MOV S0 S22

MOV N0 13

MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足13000个！

[@InPutString23]

CHECKGAMEGOLD > 14999

MOV S0 S23

MOV N0 15

MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足15000个！

[@InPutString24]

CHECKGAMEGOLD > 37999

MOV S0 S24

MOV N0 38

MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足38000个！

[@InPutString25]

CHECKGAMEGOLD > 50999

MOV S0 S25

MOV N0 51

MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足51000个！

[@InPutString26]

CHECKGAMEGOLD > 87999

MOV S0 S26

MOV N0 88

MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足88000个！

[@InPutString27]

CHECKGAMEGOLD > 98999

MOV S0 S27

MOV N0 99

MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足99000个！

[@InPutString28]

CHECKGAMEGOLD > 167999

MOV S0 S28

MOV N0 168

MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足168000个！

[@InPutString29]

CHECKGAMEGOLD > 998999

MOV S0 S29

MOV N0 999

MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足999000个！

[@InPutString30]

CHECKGAMEGOLD > 1313999

MOV S0 S30

MOV N0 1314

MUL N1 N0 100

MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足1314000个！

[@InPutString31]

CHECKGAMEGOLD > 9998999

MOV S0 S31

MOV N0 9999

MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足9999000个！

;================================================

[@确认送出]

LARGE N0 0

MUL N3 N0 1000

MOV N4 N3

DEC N4 1

MessAgeBox 提示：请先选择赠送的玫瑰花数量！

CheckOnline <$STR(S0)>

CHECKGAMEGOLD > <$STR(N4)>

GAMEGOLD - <$STR(N3)>

MOV G900 <$STR(N0)>

HCall <$STR(S0)> @接收玫瑰花

SendCenterMsg 249 255 花神<$USERNAME>将<$STR(N0)>朵玫瑰花送给了<$STR(S0)>！ 1 10 1

SENDMSG 0 玫瑰花：花神<$USERNAME>将<$STR(N0)>朵玫瑰花送给了<$STR(S0)>！ 249 251

MessAgeBox 提示：您要赠送玫瑰花的对象目前不在线或您的元宝不足<$STR(N3)>个！