diff options
author | mekolat <mekolat@users.noreply.github.com> | 2016-03-30 19:52:24 -0400 |
---|---|---|
committer | mekolat <mekolat@users.noreply.github.com> | 2016-04-07 06:58:14 -0400 |
commit | 40add9a2181ef5cb2d8804eeb01c0a190d6c8ee5 (patch) | |
tree | b2fb2774a570950cb6db582da8a25361e8d70249 /world/map/npc/commands/changesex.txt | |
parent | c22162b0a8cd9cceab579548bbc1b68ff67ba4dd (diff) | |
download | serverdata-40add9a2181ef5cb2d8804eeb01c0a190d6c8ee5.tar.gz serverdata-40add9a2181ef5cb2d8804eeb01c0a190d6c8ee5.tar.bz2 serverdata-40add9a2181ef5cb2d8804eeb01c0a190d6c8ee5.tar.xz serverdata-40add9a2181ef5cb2d8804eeb01c0a190d6c8ee5.zip |
slowly getting things done
explain the debug spell is deprecated
upmarmu typo
cooldown fix
make maps with updated converter, make nodes
update permissions
Diffstat (limited to 'world/map/npc/commands/changesex.txt')
-rw-r--r-- | world/map/npc/commands/changesex.txt | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/world/map/npc/commands/changesex.txt b/world/map/npc/commands/changesex.txt new file mode 100644 index 00000000..ba08783d --- /dev/null +++ b/world/map/npc/commands/changesex.txt @@ -0,0 +1,34 @@ +-|script|@changesex|32767 +{ + callfunc "argv_splitter"; + set .@n$, if_then_else(@argv$[1] != "", "char", "") + "changesex"; + if (GM < get(.changesex, "GM") && GM < G_SYSOP) goto L_GM; // check if you can use it on self + set .@target_id, BL_ID; + if (@argv$[1] != "") set .@target_id, getcharid(3, @argv$[1]); + if (@argv$[1] != "" && !(isloggedin(.@target_id))) goto L_Failed; // do NOT fallback to self + if (@argv$[1] != "" && GM < get(.charchangesex, "GM") && GM < G_SYSOP) goto L_GM; // when target is not self, use charchangesex permission + set .@s, 3; // default to non-binary + if (@argv$[0] == "M" || @argv$[0] == "m") set .@s, 1; + if (@argv$[0] == "F" || @argv$[0] == "f") set .@s, 0; + set Sex, .@s, .@target_id; + goto L_Success; + +L_Failed: + // XXX: should we allow GMs to change sex of users that are not logged in? + message strcharinfo(0), .@n$+" : Impossible to attach to the target player. Did you try putting the name in \"quotation marks\"?"; + end; + +L_Success: + gmlog "@"+.@n$+" " + @args$; + message strcharinfo(0), .@n$+" : The operation succeeded."; + end; + +L_GM: + message strcharinfo(0), .@n$+" : GM command is level "+ get(if_then_else(@argv$[1] != "", .charchangesex, .changesex), "GM") +", but you are level " + GM; + end; + +OnInit: + registercmd chr(ATCMD_SYMBOL) + "changesex", strnpcinfo(0); + registercmd chr(ATCMD_SYMBOL) + "charchangesex", strnpcinfo(0); + end; +} |