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

一骑当千

(@@InPutInteger @@InPutString)

[@main]
1、<最近各大SF都有新花样，为此我们开发出送花和改章功能/fcolor=250>\
2、<绰号时间为30分钟自动消失！玫瑰花一朵为1000元宝！/fcolor=254>\

　<---注意：此为独家开发新脚本、为各玩家自愿消费为主！---/fcolor=249>\
　[<进入盖章商店/@绰号>]    [<进入送花商店/@送花>]   



[@绰号]
您是否对某人非常憎恨呢？你是否对某人暗许芳心呢？\
本服推出特别功能，可以送给你憎恨的人，可以送给你心爱的人一\
个独特的名字，设置后对方将显示出你设置的名字。效果保持半小\
时，是否想试试呢？不过这个可以对别人造成人身攻击，搞不好我\
小命都不保，所以收取一点安家费是理所当然的！\
<为了防止有人恶意毁谤本游戏名声!绰号价格稍微调整为一次50000元宝/FCOLOR=249>\\
<我想试试/@我想试试>\
<花重金清除绰号/@清除绰号>\
<算了，我只是路过的！/@exit>

[@我想试试]
对于你的仇人或是情人我都会要收取一点安家费，或许某日你的仇\
人找上门我可是小命不保啊！所以您只要给我<50000元宝/FCOLOR=250>,我连小命\
都可以交给你！老人家说得好，有钱能使磨推鬼。只要你有钱，磨\
推鬼并不是不可能！\
<为了防止有人恶意毁谤本游戏名声!绰号价格稍微调整为一次50000元宝/FCOLOR=249>\\
<要给于名字的人：/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
goto @我想试试
messagebox 嘛哩嘛哩哄！您输入的太长，让我头痛！最多只能八个汉字！
[@InPutString2]
#if
CheckStringlength <$STR(S2)> < 17
#act
goto @我想试试
#elseact
MOV S2
goto @我想试试
messagebox 嘛哩嘛哩哄！您输入的太长，让我头痛！最多只能八个汉字！
[@我施法]
#if
CHECKGAMEGOLD > 49999
#act
#elseact
break
messagebox 嘛哩嘛哩哄！我发现你没有50000个元宝给我！
#if
CheckOnline <$STR(S9)>
#act
#elseact
break
messagebox 嘛哩嘛哩哄！那个人好像不在线哦！！
#if
#act
MOV A900 <$STR(S2)>
MOV A901 <$USERNAME>
GAMEGOLD - 50000
HCall <$STR(S9)> @设置名字号
break
messagebox 嘛哩嘛哩哄！施法成功！元宝入口袋！拜拜！
[@清除绰号]
尊敬的<$USERNAME>，您好！\
是否被仇家给你起了个低俗、肮脏的绰号呢？那可不是我做的哦！\
我可是玛法大陆上最守法的良民，大大滴良民！我决对不会做这样\
的事，只要你能给我点元宝，我可以帮你把绰号弄掉！嗯！让我想\
想，应该收你多少呢？<50000/FCOLOR=250>吧！只要给我<50000/FCOLOR=250>元宝，我就帮你把\
那个绰号给去掉！\ \ \
<我给，请帮我去掉！/@我去掉>                                    <返回/@MAIN>
[@我去掉]
#if
CHECKGAMEGOLD > 49999
#act
GAMEGOLD - 50000
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个！
goto @赠送玫瑰花
[@InPutString22]
#IF
CHECKGAMEGOLD > 12999
#ACT
MOV S0 S22
MOV N0 13
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足13000个！
goto @赠送玫瑰花
[@InPutString23]
#IF
CHECKGAMEGOLD > 14999
#ACT
MOV S0 S23
MOV N0 15
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足15000个！
goto @赠送玫瑰花
[@InPutString24]
#IF
CHECKGAMEGOLD > 37999
#ACT
MOV S0 S24
MOV N0 38
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足38000个！
goto @赠送玫瑰花
[@InPutString25]
#IF
CHECKGAMEGOLD > 50999
#ACT
MOV S0 S25
MOV N0 51
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足51000个！
goto @赠送玫瑰花
[@InPutString26]
#IF
CHECKGAMEGOLD > 87999
#ACT
MOV S0 S26
MOV N0 88
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足88000个！
goto @赠送玫瑰花
[@InPutString27]
#IF
CHECKGAMEGOLD > 98999
#ACT
MOV S0 S27
MOV N0 99
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足99000个！
goto @赠送玫瑰花
[@InPutString28]
#IF
CHECKGAMEGOLD > 167999
#ACT
MOV S0 S28
MOV N0 168
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足168000个！
goto @赠送玫瑰花
[@InPutString29]
#IF
CHECKGAMEGOLD > 998999
#ACT
MOV S0 S29
MOV N0 999
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足999000个！
goto @赠送玫瑰花
[@InPutString30]
#IF
CHECKGAMEGOLD > 1313999
#ACT
MOV S0 S30
MOV N0 1314
MUL N1 N0 100
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足1314000个！
goto @赠送玫瑰花
[@InPutString31]
#IF
CHECKGAMEGOLD > 9998999
#ACT
MOV S0 S31
MOV N0 9999
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示：每朵玫瑰1000元宝，您的元宝不足9999000个！
goto @赠送玫瑰花
;================================================
[@确认送出]
#IF
LARGE N0 0
#ACT
MUL N3 N0 1000
MOV N4 N3
DEC N4 1
#ELSEACT
MessAgeBox 提示：请先选择赠送的玫瑰花数量！
break
#IF
CheckOnline <$STR(S0)>
CHECKGAMEGOLD > <$STR(N4)>
#ACT
GAMEGOLD - <$STR(N3)>
MOV G900 <$STR(N0)>
HCall <$STR(S0)> @接收玫瑰花
SendCenterMsg 249 255 花神<$USERNAME>将<$STR(N0)>朵玫瑰花送给了<$STR(S0)>！ 1 10 1
SendCenterMsg 249 255 花神<$USERNAME>将<$STR(N0)>朵玫瑰花送给了<$STR(S0)>！ 1 10 1
SendCenterMsg 249 255 花神<$USERNAME>将<$STR(N0)>朵玫瑰花送给了<$STR(S0)>！ 1 10 1
SendCenterMsg 249 255 花神<$USERNAME>将<$STR(N0)>朵玫瑰花送给了<$STR(S0)>！ 1 10 1
SENDMSG 0 玫瑰花：花神<$USERNAME>将<$STR(N0)>朵玫瑰花送给了<$STR(S0)>！ 249 251
SENDMSG 0 玫瑰花：花神<$USERNAME>将<$STR(N0)>朵玫瑰花送给了<$STR(S0)>！ 249 251
SENDMSG 0 玫瑰花：花神<$USERNAME>将<$STR(N0)>朵玫瑰花送给了<$STR(S0)>！ 249 251
SENDMSG 0 玫瑰花：花神<$USERNAME>将<$STR(N0)>朵玫瑰花送给了<$STR(S0)>！ 249 251
break
#ELSEACT
MessAgeBox 提示：您要赠送玫瑰花的对象目前不在线或您的元宝不足<$STR(N3)>个！
break

叫我牡羊座

支持，楼下的跟上哈~

rain林

顶顶更健康

帕卡国王

确实不错，顶先

爱上明月楼

非常好，顶一下

奇幻琥珀

好，很好，非常好！

晨光里的梧桐树

支持，楼下的跟上哈~

兮夏回忆heart

无论是不是沙发都得回复下

jun19

呵呵，低调，低调！

唐武宗灭亻弗

顶起顶起顶起