diff options
| -rw-r--r-- | world/map/conf/permissions.txt | 1 | ||||
| -rw-r--r-- | world/map/npc/commands/_import.txt | 1 | ||||
| -rw-r--r-- | world/map/npc/commands/remotecmd.txt | 62 |
3 files changed, 64 insertions, 0 deletions
diff --git a/world/map/conf/permissions.txt b/world/map/conf/permissions.txt index 7da7006c..0b8cb79a 100644 --- a/world/map/conf/permissions.txt +++ b/world/map/conf/permissions.txt @@ -7,6 +7,7 @@ CMD_CHARCHANGESEX 60 CMD_CLASS 40 CMD_CHARCLASS 50 CMD_DESTROYNPC 99 +CMD_REMOTECMD 40 // 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 81994b80..3cabe0b7 100644 --- a/world/map/npc/commands/_import.txt +++ b/world/map/npc/commands/_import.txt @@ -7,3 +7,4 @@ npc: npc/commands/class.txt npc: npc/commands/pullrabbit.txt npc: npc/commands/numa.txt npc: npc/commands/destroynpc.txt +npc: npc/commands/remotecmd.txt diff --git a/world/map/npc/commands/remotecmd.txt b/world/map/npc/commands/remotecmd.txt new file mode 100644 index 00000000..b8c47f35 --- /dev/null +++ b/world/map/npc/commands/remotecmd.txt @@ -0,0 +1,62 @@ +-|script|@remotecmd|32767 +{ + callfunc "argv_splitter"; + if (GM < CMD_REMOTECMD && GM < G_SYSOP) goto L_GM; // check if you can use it on self + set .@target_id, BL_ID; + set .@t$, @argv$[1]; + setarray @remotecmd[0], 0, 1, 1; // nr, to_self, multi_target + if (.@t$ == "map") goto L_Map; + if (.@t$ == "map!") goto L_AllMap; + if (.@t$ == "area") goto L_Area; + if (.@t$ == "area!") goto L_AllArea; + if (.@t$ != "") set .@target_id, getcharid(3, @argv$[1]); + if (.@t$ != "" && !(isloggedin(.@target_id))) goto L_Failed; // do NOT fallback to self + + set @target_id, .@target_id; + set @remotecmd[2], 0; // only one target + addtimer 0, strnpcinfo(0) + "::OnPC"; + end; + +L_Map: + set @remotecmd[1], 0; // do not include self + goto L_AllMap; + +L_AllMap: + foreach 0, getmap(), 0, 0, 32767, 32767, strnpcinfo(0)+"::OnPC"; + goto L_Success; + +L_Area: + set @remotecmd[1], 0; // do not include self + goto L_AllMap; + +L_AllArea: + foreach 0, getmap(), (POS_X - .range), (POS_Y - .range), (POS_X + .range), (POS_Y + .range), strnpcinfo(0)+"::OnPC"; + goto L_Success; + +OnPC: + if (@target_id == BL_ID && @remotecmd[1] < 1) + end; + remotecmd @argv$[0], strcharinfo(0, @target_id); + set @remotecmd[0], @remotecmd[0] + 1; + if (@remotecmd[2] < 1) + goto L_Success; + end; + +L_Success: + gmlog "@remotecmd " + @args$; + message strcharinfo(0), "remotecmd : The operation succeeded. ["+ @remotecmd[0] + "]"; + end; + +L_Failed: + message strcharinfo(0), "remotecmd : Impossible to attach to the target player. Did you try putting the name in \"quotation marks\"?"; + end; + +L_GM: + message strcharinfo(0), "remotecmd : GM command is level "+ CMD_REMOTECMD +", but you are level " + GM; + end; + +OnInit: + set .range, 14; // visible range + registercmd chr(ATCMD_SYMBOL) + "remotecmd", strnpcinfo(0); + end; +} |