当前位置 : 主页>技术研究>传奇技术>

非常有趣的传奇绰号脚本添加完整流程

来源: 作者: 点击:
(@@InPutInteger @@InPutString)

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

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



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

[@我想试试]
对于你的仇人或是情人我都会要收取一点安家费,或许某日你的仇\
人找上门我可是小命不保啊!所以您只要给我<100000元宝/FCOLOR=250>,我连小命\
都可以交给你!老人家说得好,有钱能使磨推鬼。只要你有钱,磨\
推鬼并不是不可能!\
<为了防止有人恶意毁谤本游戏名声!绰号价格稍微调整为一次100000元宝/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 > 99999
#act
#elseact
break
messagebox 嘛哩嘛哩哄!我发现你没有100000个元宝给我!
#if
CheckOnline <$STR(S9)>
#act
#elseact
break
messagebox 嘛哩嘛哩哄!那个人好像不在线哦!!
#if
#act
MOV A900 <$STR(S2)>
MOV A901 <$USERNAME>
GAMEGOLD - 100000
HCall <$STR(S9)> @设置名字号
break
messagebox 嘛哩嘛哩哄!施法成功!元宝入口袋!拜拜!
[@清除绰号]
尊敬的<$USERNAME>,您好!\
是否被仇家给你起了个低俗、肮脏的绰号呢?那可不是我做的哦!\
我可是玛法大陆上最守法的良民,大大滴良民!我决对不会做这样\
的事,只要你能给我点元宝,我可以帮你把绰号弄掉!嗯!让我想\
想,应该收你多少呢?<20000/FCOLOR=250>吧!只要给我<20000/FCOLOR=250>元宝,我就帮你把\
那个绰号给去掉!\ \ \
<我给,请帮我去掉!/@我去掉> <返回/@MAIN>
[@我去掉]
#if
#act
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 > 1099
#ACT
MOV S0 S21
MOV N0 11
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示:每朵玫瑰1000元宝,您的元宝不足1100个!
goto @赠送玫瑰花
[@InPutString22]
#IF
CHECKGAMEGOLD > 1299
#ACT
MOV S0 S22
MOV N0 13
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示:每朵玫瑰1000元宝,您的元宝不足1300个!
goto @赠送玫瑰花
[@InPutString23]
#IF
CHECKGAMEGOLD > 1499
#ACT
MOV S0 S23
MOV N0 15
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示:每朵玫瑰1000元宝,您的元宝不足1500个!
goto @赠送玫瑰花
[@InPutString24]
#IF
CHECKGAMEGOLD > 3799
#ACT
MOV S0 S24
MOV N0 38
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示:每朵玫瑰1000元宝,您的元宝不足3800个!
goto @赠送玫瑰花
[@InPutString25]
#IF
CHECKGAMEGOLD > 5099
#ACT
MOV S0 S25
MOV N0 51
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示:每朵玫瑰1000元宝,您的元宝不足5100个!
goto @赠送玫瑰花
[@InPutString26]
#IF
CHECKGAMEGOLD > 8799
#ACT
MOV S0 S26
MOV N0 88
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示:每朵玫瑰1000元宝,您的元宝不足8800个!
goto @赠送玫瑰花
[@InPutString27]
#IF
CHECKGAMEGOLD > 9899
#ACT
MOV S0 S27
MOV N0 99
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示:每朵玫瑰1000元宝,您的元宝不足9900个!
goto @赠送玫瑰花
[@InPutString28]
#IF
CHECKGAMEGOLD > 16799
#ACT
MOV S0 S28
MOV N0 168
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示:每朵玫瑰1000元宝,您的元宝不足16800个!
goto @赠送玫瑰花
[@InPutString29]
#IF
CHECKGAMEGOLD > 99899
#ACT
MOV S0 S29
MOV N0 999
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示:每朵玫瑰1000元宝,您的元宝不足99900个!
goto @赠送玫瑰花
[@InPutString30]
#IF
CHECKGAMEGOLD > 131399
#ACT
MOV S0 S30
MOV N0 1314
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示:每朵玫瑰1000元宝,您的元宝不足131400个!
goto @赠送玫瑰花
[@InPutString31]
#IF
CHECKGAMEGOLD > 999899
#ACT
MOV S0 S31
MOV N0 9999
MUL N1 N0 1000
goto @赠送玫瑰花
#ELSEACT
MessAgeBox 提示:每朵玫瑰1000元宝,您的元宝不足999900个!
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
栏目列表