Master

[DorkeyDear]

Script Name: Master
Script Description: The first player to do /master becomes master. He may do the admin commands listed in Commands.txt. Good for public servers where the first person to claim master is fair. When AutoMaster is enabled, the first person who joins automatically claims master. The content of Commands.txt are excluding the '/' and are only the first part of the text. When a master enters a command that starts off with one of the lines in Commands.txt, but then has other text, the command will still attempt to execute. (Ex: /passworddddd where "password" is in Commands.txt)
Original Author: Curt
Core Version: 2.6.2
Suggested Commands.txt: (for a public private server)

say
kill
kick
password
setteam
map
restart
pause
unpause
gmute
ungmute

[Shadow G-Unit]

Wow, another great script for that all great DorkeyDear (who is not that Dorkey )

[Mastadi]

Yay, nice script!

[Leo]

And if the first person that joins is an idiot he will screw up your server... 

[urraka]

That depends of what commands are on the list.

[DorkeyDear]

And if the first person that joins is an idiot he will screw up your server... 

Well, if he screws up the server, then everybody who dislikes it would probably leave, and if he is by himself, he probably isn't having much fun and would leave, and then master is then available to anybody now...
Plus, if the master script on the server is well known, it is most likely already being used by somebody if there are many people in the server.

Date Posted: July 07, 2007, 02:40:56 PMUPDATE

• Fixed 'maser' typo
• Fixed the 'master has already been claimed by _.' message coming up on all admin commands
  
  Date Posted: July 07, 2007, 05:30:55 PMUPDATE
  
• Fixed admins with master doing listed commands twice.
• Added an example server

[Mikeman]

I've added this script to my gatherserver, good work

[zyxstand]

Hey DD, I hope you don't mind, but I've been working on a far more extensive script that is meant especially for gather servers - it's based on this idea but far more complex XD
It SHOULD be a hit... I hope...
Thnx for the inspiration*

[DorkeyDear]

Uhh, your welcome? Any note of whats going to be in it? I'm curious.

[zyxstand]

I'll show you personally when it's testable - I'm sure you'll like it...

[Dizzy So 1337]

Personally I would love to be able to give out 'limited' admin powers to clanmates on clan servers.  Is this currently the best hope for this kind of thing?  Except, in my version it would be granted by a password instead of a /master command.

Looking forward to further news on this.

[DorkeyDear]

Update:

• Script now supports 2.6.2
• Adding admin-only (excluding master) command /loadmasterfile
• Color constant available for change
• Removed MasterFile constant for no need of choosing where the file is / is named
• Master now can do custom commands within this script, excluding /loadmasterfile

[eca jezza]

Not bad script! that would be AWESOME! for a clan server if you edit it a tiny bit, what program do you use for the scripts? O.o

[xReaperx]

Lol, normal base scripting.
This script is pretty cool to muck around with, nothing serious though.

[DorkeyDear]

what program do you use for the scripts?

notepad?

[Avarax]

http://www.pspad.com

[mikembm]

http://www.flos-freeware.ch/notepad2.html

[DorkeyDear]

For those who want this to work with other scripts with custom commands, do this:
1. open Master.pas file
2. do "find" and find "Break;"
3. on the line BEFORE THIS LINE, add this:

CrossFunc([ID, MasterCmds], 'SCRIPTNAME.OnCommand');

where as "SCRIPTNAME" is the name of the folder that the script is in..
if u want it to work with more than 1 script, juts add the exact same thing under this... but with a different SCRIPTNAME.

[sckme]

For those who want this to work with other scripts with custom commands, do this:
1. open Master.pas file
2. do "find" and find "Break;"
3. on the line BEFORE THIS LINE, add this:

CrossFunc([ID, MasterCmds], 'SCRIPTNAME.OnCommand');

where as "SCRIPTNAME" is the name of the folder that the script is in..
if u want it to work with more than 1 script, juts add the exact same thing under this... but with a different SCRIPTNAME.

Hello!

I think it's dont work. I install on my dedicadec server script "Infi Pred" and i would like use this script as command when i am master, not an admin. Look on my script.

const
  AutoMaster = false;
  Color = $0000FF;

var
  Master: byte;
  MasterCmds: tstringarray;

function Split(const Source: string; const Delimiter: string): tstringarray;
var
  i,x,d: integer;
  s: string;
begin
  if Source <> '' then begin
    d := Length(Delimiter);
    x := 0;
    i := 1;
    SetArrayLength(Result,1);
    while i <= Length(source) do begin
      s := Copy(Source,i,d);
      if s = Delimiter then begin
        Inc(i,d);
        Inc(x,1);
        SetArrayLength(result,x + 1);
      end else begin
        Result

• := Result
• + Copy(s,1,1);

        Inc(i,1);
      end;
    end;
  end else SetArrayLength(Result,0);
end;

procedure ActivateServer();
begin
  MasterCmds := Split(ReadFile('scripts/Master/Commands.txt'),Chr(13) + Chr(10));
end;

function OnCommand(ID: Byte; Text: string): boolean;
var
  i: integer;
begin
  Result := false;
  if Text = '/loadmasterfile' then MasterCmds := Split(ReadFile('scripts/Master/Commands.txt'),Chr(13) + Chr(10));
  if Master = ID then for i := 0 to ArrayHigh(MasterCmds) - 1 do if MasterCmds = Copy(Text,2,Length(MasterCmds)) then Result := true;
end;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
var
  i: integer;
begin
  if Master = 0 then begin
    if (ID <> 255) and (LowerCase(Text) = '/master') then if Master = 0 then begin
      Master := ID;
      WriteConsole(0,GetPlayerStat(ID,'Name') + ' VIP zaktualizowany!.',Color);
    end else WriteConsole(ID,'Master has already been claimed by ' + GetPlayerStat(Master,'Name') + '.',Color);
  end else if Master = ID then for i := 0 to ArrayHigh(MasterCmds) - 1 do if MasterCmds = Copy(Text,2,Length(MasterCmds)) then begin
    Command(Text);
    if Text <> '/loadmasterfile' then OnCommand(ID,Text);
   CrossFunc([ID, MasterCmds], 'InfiPred.OnCommand'); Break;
  end;
end;

procedure OnJoinGame(ID, Team: byte);
begin
  if (AutoMaster) and (Master = 0) then OnPlayerCommand(ID,'/master');
end;

procedure OnLeaveGame(ID, Team: byte; Kicked: boolean);
begin
  if ID = Master then Master := 0;
end;

what's wrong with this? Sry for my sucks english.

Ave

[DorkeyDear]

Ave: please use [.code][/.code] tags (w/out the .s)
but at a first chance, it seems right; except the InfiPred should be Infi Pred, although im not 100% sure if spaces works.. to be on the safe side, make sure the folder name for the infipred script is "InfiPred" (w/out quotes) and using this Master code:

Code: [Select]

const
  AutoMaster = false;
  Color = $FFFFFF;

var
  Master: byte;
  MasterCmds: tstringarray;

function Split(const Source: string; const Delimiter: string): tstringarray;
var
  i,x,d: integer;
  s: string;
begin
  if Source <> '' then begin
    d := Length(Delimiter);
    x := 0;
    i := 1;
    SetArrayLength(Result,1);
    while i <= Length(source) do begin
      s := Copy(Source,i,d);
      if s = Delimiter then begin
        Inc(i,d);
        Inc(x,1);
        SetArrayLength(result,x + 1);
      end else begin
        Result[x] := Result[x] + Copy(s,1,1);
        Inc(i,1);
      end;
    end;
  end else SetArrayLength(Result,0);
end;

procedure ActivateServer();
begin
  MasterCmds := Split(ReadFile('scripts/Master/Commands.txt'),Chr(13) + Chr(10));
end;

function OnCommand(ID: Byte; Text: string): boolean;
var
  i: integer;
begin
  Result := false;
  if Text = '/loadmasterfile' then MasterCmds := Split(ReadFile('scripts/Master/Commands.txt'),Chr(13) + Chr(10));
  if Master = ID then for i := 0 to ArrayHigh(MasterCmds) - 1 do if MasterCmds[i] = Copy(Text,2,Length(MasterCmds[i])) then Result := true;
end;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
var
  i: integer;
begin
  if Master = 0 then begin
    if (ID <> 255) and (LowerCase(Text) = '/master') then if Master = 0 then begin
      Master := ID;
      WriteConsole(0,GetPlayerStat(ID,'Name') + ' has claimed master for the server.',Color);
    end else WriteConsole(ID,'Master has already been claimed by ' + GetPlayerStat(Master,'Name') + '.',Color);
  end else if Master = ID then for i := 0 to ArrayHigh(MasterCmds) - 1 do if MasterCmds[i] = Copy(Text,2,Length(MasterCmds[i])) then begin
    Command(Text);
    if Text <> '/loadmasterfile' then OnCommand(ID,Text);
    CrossFunc([ID, MasterCmds[i]], 'InfiPred.OnCommand');
    Break;
  end;
end;

procedure OnJoinGame(ID, Team: byte);
begin
  if (AutoMaster) and (Master = 0) then OnPlayerCommand(ID,'/master');
end;

procedure OnLeaveGame(ID, Team: byte; Kicked: boolean);
begin
  if ID = Master then Master := 0;
end;(probably not different)