diff options
Diffstat (limited to 'npc/commands/changesex.txt')
-rwxr-xr-x | npc/commands/changesex.txt | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/npc/commands/changesex.txt b/npc/commands/changesex.txt new file mode 100755 index 00000000..de20d91b --- /dev/null +++ b/npc/commands/changesex.txt @@ -0,0 +1,31 @@ +- script @changesex NPC32767,{ + callfunc "argv_splitter"; + .@n$ = if_then_else(@argv$[1] != "", "char", "") + "changecharsex()"; + if (GM < CMD_CHANGESex && GM < G_SYSOP) goto L_GM; // check if you can use it on self + .@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 < CMD_CHARCHANGESex && GM < G_SYSOP) goto L_GM; // when target is not self, use charchangecharsex() 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; + Sex = .@s, .@target_id; + gmlog "@"+.@n$+" " + @args$; + message strcharinfo(0), .@n$+" : The operation succeeded."; + end; + +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_GM: + message strcharinfo(0), .@n$+" : GM command is level "+ if_then_else(@argv$[1] != "", CMD_CHARCHANGESex, CMD_CHANGESex) +", but you are level " + GM; + end; + +OnInit: + registercmd chr(ATCMD_SYMBOL) + "changecharsex()", strnpcinfo(0); + registercmd chr(ATCMD_SYMBOL) + "charchangecharsex()", strnpcinfo(0); + end; +} |