找回密码
 立即注册

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

[复制链接]
◇逍遥◆MIR2◇ 发表于 2022-8-10 23:29:09 | 显示全部楼层 |阅读模式
(@@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

liunianq21q 发表于 2022-8-11 00:26:17 | 显示全部楼层
真是难得给力的帖子啊。
回复

使用道具 举报

trulytry 发表于 2022-8-11 06:58:51 | 显示全部楼层
淡定,淡定,淡定……
回复

使用道具 举报

zhq8008 发表于 2022-8-11 09:18:01 | 显示全部楼层
激动人心,无法言表!
回复

使用道具 举报

深圳的天空 发表于 2022-8-12 04:13:22 | 显示全部楼层
楼主加油,我们都看好你哦。
回复

使用道具 举报

qiya12345 发表于 2022-8-12 04:49:30 | 显示全部楼层
强烈支持楼主ing……
回复

使用道具 举报

zxljake 发表于 2022-8-12 21:22:41 | 显示全部楼层
看到这帖子真是高兴!
回复

使用道具 举报

wangfeixiang 发表于 2022-8-13 03:31:03 | 显示全部楼层
看到这帖子真是高兴!
回复

使用道具 举报

hacksee 发表于 2022-8-13 03:43:08 | 显示全部楼层
我只是路过打酱油的。
回复

使用道具 举报

818bbb 发表于 2022-8-13 12:09:10 | 显示全部楼层
真是被感动的痛哭流涕……
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|游戏淘宝湾

GMT+8, 2024-11-23 19:53 , Processed in 0.072907 second(s), 53 queries .

Powered by Discuz! X3.5

Copyright © 2001-2024, Oddpp Cloud.

快速回复 返回顶部 返回列表