(@@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
M大庆仿逐鹿OV 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个！176精品蓝魔
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

TAGS：传奇私服账号忘了怎么找