Previous topicNext topic
Help > 相关脚本 >
账号更名脚本

(@@InPutInteger @@InPutString)
%100
[@MAIN]
<COLOR=$00848C8C ------------------------------------------------------------->\
<COLOR=$0000FF 人物改名须知：>\
1.行会成员需要先退出行会\
2.更改名字前需要收回英雄\ \
<COLOR=$0000FF 英雄改名须知：>\
1.需召唤英雄在线才可进行\
<COLOR=$00848C8C ------------------------------------------------------------->\
<更改人物名字/@@InputString35>        <更改英雄名字/@@InputString36>    <COLOR=$00FF00 Ps：变更姓名需要改名卡一张>\

[@@InPutString35]
#if
Compval <$username> = <$str(S35)>
#Act
Messagebox 请不要输入自己之前的名字
break

#IF
HAVEGUILD
#say
改名失败，行会成员不能使用此功能！\ \
<关闭/@exit>
#ACT
SENDMSG 5 提示：行会成员不能变更角色名！
BREAK

#if
haveHero
checkHeroOnline
#say
改名失败，英雄需下线才能改名！\ \
<关闭/@exit>
#act
SENDMSG 5 提示：英雄需下线才能改名！
break


#if
checkposemarry
#say
失败，请离婚之后再来!\ \
<返回/@main>
#act
sendmsg 7 失败，请离婚之后再来!
break


#IF
CheckItem 改名卡 1
#ACT
TAKE 改名卡 1
SetAbility 99 1 2
SetAbility 20 1 99999999
SetAbility 21 1 99999999
SetAbility 22 1 99999999
SetAbility 23 1 99999999
SetAbility 24 1 99999999
SetAbility 25 1 99999999
SetAbility 26 1 99999999
SetAbility 27 1 99999999
SetAbility 29 1 99999999
SetAbility 30 1 99999999
SetAbility 31 1 99999999
SetAbility 46 1 99999999
SetAbility 47 1 99999999
SetAbility 48 1 99999999
SetAbility 49 1 99999999
Lockdown 1
#Elseact
MESSAGEBOX 你没有改名卡
break

 

#if
True
#Act
changeCharName <$STR(S35)>


[@@InPutString36]
#if
!haveHero
#act
sendmsg 7 你还没有英雄！
break


#if
!checkHeroOnline
#act
sendmsg 7 失败，英雄在线才能更名！
break


#if
Compval <$h.username> = <$str(S36)>
#Act
Messagebox 请不要输入自己英雄之前的名字
break

#IF
CheckItem 改名卡 1
#Act
TAKE 改名卡 1
SetAbility 99 1 2
#ELSEACT
MESSAGEBOX 你没有改名卡
BREAK

 

#IF
True
#ACT
h.changeCharName <$STR(S36)>
BREAK

[@chgname_success]
#IF
COMPVAL <$PARAMSTR(0)> =
#act
STRINGSREPLACE ..\QUESTDIARY\数据文件\变量数据.INI <$PARAMSTR(1)> <$PARAMSTR(2)> 0 HARDDISK
HASH H_角色 REPLACEKEY <$PARAM(1)>_灵符 <$PARAM(2)>_灵符
HASH H_角色 REPLACEKEY <$PARAM(1)>_金币 <$PARAM(2)>_金币
HASH H_角色 REPLACEKEY <$PARAM(1)>_元宝 <$PARAM(2)>_元宝
HASH H_角色 REPLACEKEY <$PARAM(1)>_灵符 <$PARAM(2)>_灵符
HASH H_角色 REPLACEKEY <$PARAM(1)>_泡点 <$PARAM(2)>_泡点
HASH H_角色 REPLACEKEY <$PARAM(1)>_金刚石 <$PARAM(2)>_金刚石
HASH H_角色 REPLACEKEY <$PARAM(1)>_声望 <$PARAM(2)>_声望
SENDMSG 0 恭喜【<$PARAMSTR(1)>】成功更改名字为【<$PARAMSTR(2)>】
BREAK
#ELSEACT
SetAbility 99 1 0
SENDMSG 0 恭喜【<$PARAMSTR(1)>】的英雄，成功更改名字为【<$PARAMSTR(2)>】
BREAK

[@chgname_fail_name_used]
#if
Compval <$ABILITIES99> > 0
#Act
SetAbility 99 1 0
Give 改名卡 1
SetAbility 20 0 0
SetAbility 21 0 0
SetAbility 22 0 0
SetAbility 23 0 0
SetAbility 24 0 0
SetAbility 25 0 0
SetAbility 26 0 0
SetAbility 27 0 0
SetAbility 29 0 0
SetAbility 30 0 0
SetAbility 31 0 0
SetAbility 46 0 0
SetAbility 47 0 0
SetAbility 48 0 0
SetAbility 49 0 0
Lockdown 0
#if
True
#say
<$PARAMSTR(0)>失败，新角色名已被使用！\ \
<关闭/@exit>

[@chgname_fail_name_wrong_format]
#if
Compval <$ABILITIES99> > 0
#Act
SetAbility 99 1 0
Give 改名卡 1
SetAbility 20 0 0
SetAbility 21 0 0
SetAbility 22 0 0
SetAbility 23 0 0
SetAbility 24 0 0
SetAbility 25 0 0
SetAbility 26 0 0
SetAbility 27 0 0
SetAbility 29 0 0
SetAbility 30 0 0
SetAbility 31 0 0
SetAbility 46 0 0
SetAbility 47 0 0
SetAbility 48 0 0
SetAbility 49 0 0
Lockdown 0
#if
True
#say
<$PARAMSTR(0)>失败，新角色名包含了过滤字符！\ \
<关闭/@exit>

[@chgname_fail_no_character]
#if
Compval <$ABILITIES99> > 0
#Act
SetAbility 99 1 0
Give 改名卡 1
SetAbility 20 0 0
SetAbility 21 0 0
SetAbility 22 0 0
SetAbility 23 0 0
SetAbility 24 0 0
SetAbility 25 0 0
SetAbility 26 0 0
SetAbility 27 0 0
SetAbility 29 0 0
SetAbility 30 0 0
SetAbility 31 0 0
SetAbility 46 0 0
SetAbility 47 0 0
SetAbility 48 0 0
SetAbility 49 0 0
Lockdown 0
#if
True
#say
<$PARAMSTR(0)>失败，查询不到角色！\ \
<关闭/@exit>

[@chgname_fail_incomplete_data]
#if
Compval <$ABILITIES99> > 0
#Act
SetAbility 99 1 0
Give 改名卡 1
SetAbility 20 0 0
SetAbility 21 0 0
SetAbility 22 0 0
SetAbility 23 0 0
SetAbility 24 0 0
SetAbility 25 0 0
SetAbility 26 0 0
SetAbility 27 0 0
SetAbility 29 0 0
SetAbility 30 0 0
SetAbility 31 0 0
SetAbility 46 0 0
SetAbility 47 0 0
SetAbility 48 0 0
SetAbility 49 0 0
Lockdown 0
#if
True
#say
<$PARAMSTR(0)>失败，数据错误！\ \
<关闭/@exit>

[@chgname_fail_unknow]
#if
Compval <$ABILITIES99> > 0
#Act
SetAbility 99 1 0
Give 改名卡 1
SetAbility 20 0 0
SetAbility 21 0 0
SetAbility 22 0 0
SetAbility 23 0 0
SetAbility 24 0 0
SetAbility 25 0 0
SetAbility 26 0 0
SetAbility 27 0 0
SetAbility 29 0 0
SetAbility 30 0 0
SetAbility 31 0 0
SetAbility 46 0 0
SetAbility 47 0 0
SetAbility 48 0 0
SetAbility 49 0 0
Lockdown 0
#if
True
#say
<$PARAMSTR(0)>失败，未知错误！\ \
<关闭/@exit>

[@IsInFilterList]
#if
Compval <$ABILITIES99> > 0
#Act
SetAbility 99 1 0
Give 改名卡 1
SetAbility 20 0 0
SetAbility 21 0 0
SetAbility 22 0 0
SetAbility 23 0 0
SetAbility 24 0 0
SetAbility 25 0 0
SetAbility 26 0 0
SetAbility 27 0 0
SetAbility 29 0 0
SetAbility 30 0 0
SetAbility 31 0 0
SetAbility 46 0 0
SetAbility 47 0 0
SetAbility 48 0 0
SetAbility 49 0 0
Lockdown 0
#if
True
#say
失败，输入文字中包含了过滤字符！\ \
<关闭/@exit>

[@chgname_fail_wrong_format]
#if
Compval <$ABILITIES99> > 0
#Act
SetAbility 99 1 0
Give 改名卡 1
SetAbility 20 0 0
SetAbility 21 0 0
SetAbility 22 0 0
SetAbility 23 0 0
SetAbility 24 0 0
SetAbility 25 0 0
SetAbility 26 0 0
SetAbility 27 0 0
SetAbility 29 0 0
SetAbility 30 0 0
SetAbility 31 0 0
SetAbility 46 0 0
SetAbility 47 0 0
SetAbility 48 0 0
SetAbility 49 0 0
Lockdown 0
#if
True
#say
失败，输入文字中包含了过滤字符！\ \
<关闭/@exit>