diff options
| author | gumi <git@gumi.ca> | 2020-06-12 02:01:43 +0000 |
|---|---|---|
| committer | gumi <git@gumi.ca> | 2020-06-12 02:01:43 +0000 |
| commit | 936664a20b34af590d791bfe224b216bb508ef90 (patch) | |
| tree | 74d0866b1f27ee1e6cf78955441e3667534cb7ea /world/map | |
| parent | b23fd47b7e36a702bf762610070f2de76f9a79f2 (diff) | |
| download | classic-serverdata-936664a20b34af590d791bfe224b216bb508ef90.tar.gz classic-serverdata-936664a20b34af590d791bfe224b216bb508ef90.tar.bz2 classic-serverdata-936664a20b34af590d791bfe224b216bb508ef90.tar.xz classic-serverdata-936664a20b34af590d791bfe224b216bb508ef90.zip | |
add a command to force a divorce
Diffstat (limited to 'world/map')
| -rw-r--r-- | world/map/conf/permissions.txt | 2 | ||||
| -rw-r--r-- | world/map/npc/commands/_import.txt | 1 | ||||
| -rw-r--r-- | world/map/npc/commands/divorce.txt | 28 |
3 files changed, 31 insertions, 0 deletions
diff --git a/world/map/conf/permissions.txt b/world/map/conf/permissions.txt index 856b2dae..31447c89 100644 --- a/world/map/conf/permissions.txt +++ b/world/map/conf/permissions.txt @@ -14,6 +14,8 @@ CMD_MUTE 60 CMD_NPCTALK 40 CMD_MUSIC 40 CMD_AUTOMOD 60 +CMD_DIVORCE 40 +CMD_CHARDIVORCE 60 // special permissions below MAP_LOUNGE 20 // level to enter the GM Lounge & talk to Numa diff --git a/world/map/npc/commands/_import.txt b/world/map/npc/commands/_import.txt index 0242b0dc..f04be97a 100644 --- a/world/map/npc/commands/_import.txt +++ b/world/map/npc/commands/_import.txt @@ -19,3 +19,4 @@ npc: npc/commands/automod.txt npc: npc/commands/valentine.txt npc: npc/commands/bosspoints.txt npc: npc/commands/deaths.txt +npc: npc/commands/divorce.txt diff --git a/world/map/npc/commands/divorce.txt b/world/map/npc/commands/divorce.txt new file mode 100644 index 00000000..954e4e92 --- /dev/null +++ b/world/map/npc/commands/divorce.txt @@ -0,0 +1,28 @@ +-|script|@divorce|32767 +{ + callfunc "argv_splitter"; + set .@n$, if_then_else(@argv$[1] != "", "char", "") + "divorce"; + if (GM < CMD_DIVORCE && 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 < CMD_CHARDIVORCE && GM < G_SYSOP) goto L_GM; // when target is not self, use chardivorce permission + + set PARTNER, 0, .@target_id; + gmlog "@"+.@n$+" " + @args$; + message strcharinfo(0), .@n$+" : The operation succeeded."; + end; + +L_Failed: + 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_CHARDIVORCE, CMD_DIVORCE) +", but you are level " + GM; + end; + +OnInit: + registercmd chr(ATCMD_SYMBOL) + "divorce", strnpcinfo(0); + registercmd chr(ATCMD_SYMBOL) + "chardivorce", strnpcinfo(0); + end; +} |