"Jail" Script

[Iq Unlimited]

Script Name:  Imprison Script by Iq Unlimited
Script Description: /imprison <ID> <Time of Imprisonment in seconds> sticks a player into spectator and gmutes them for a set amount of time in seconds. "prisoners" can not leave spectator or the script sets them back and if they leave the server they get banned.[/b]
Original Author(s): Iq Unlimited
Core Version:
 The latest one?
Code:

Code: [Select]

procedure AppOnIdle(Ticks: integer);
var
 i: integer;
begin
for i := 1 to 12 do
  if prisontime[i] > 0 then begin
    prisontime[i] := prisontime[i] - 1;
  end else if prisontime[i] = 0 then begin
    if prisonerbool[i] = true then begin
      prisonerbool[i] := false;
      Command('/ungmute ' + inttostr(prisonerint[i]));
      WriteConsole(prisonerint[i],'You are now free!',Color);
WriteConsole(0, GetPlayerStat(prisoner, 'Name') + ' has been freed!',Color);
    end;
  end;
end;


function OnCommand(ID: Byte; Text: string): boolean;
begin
if (GetPiece(Text, ' ', 0)) = '/imprison' then begin
  if (GetPiece(Text, ' ', 1)) <> '' then begin
    if strtoint((GetPiece(Text, ' ',1))) < maxedplayers then begin
      prisoner := StrToInt(GetPiece(Text, ' ', 1));
      prisonerint[prisoner] := StrToInt(GetPiece(Text, ' ', 1));
      prisonerbool[prisoner] := true;
      Command('/setteam5 ' + (GetPiece(Text, ' ', 1)));
      Command('/gmute ' + (GetPiece(Text, ' ', 1)));
        if (GetPiece(Text, ' ', 2)) <> '' then begin
          prisontime[prisoner] := StrToInt((GetPiece(Text, ' ', 2)));
        end else prisontime[prisoner] := defaulttime;
      WriteConsole(0,' ' + GetPlayerStat(prisoner, 'Name') + ' has been sent to jail for ' + inttostr(prisontime[prisoner]) + ' seconds.',Color);
      WriteConsole(prisonerint[prisoner],'You are now a prisoner for the next ' + inttostr(prisontime[prisoner]) + ' seconds.',Color);
    end else WriteConsole(ID, 'Invalid Integer put one in below ' + inttostr(maxedplayers) + '.',Color);
  end else WriteConsole(ID, 'You forgot to put in the target person',Color);
end;
if (GetPiece(Text, ' ',0)) = '/free' then begin
  if (GetPiece(Text, ' ',1)) <> '' then begin
    prisoner := StrToInt(GetPiece(Text, ' ', 1));
      if prisonerbool[prisoner] = true then begin
prisontime[prisoner] := 0;
        Command('/ungmute ' + (GetPiece(Text, ' ', 1)));
      end else WriteConsole(ID, 'Target player is not a prisoner',Color);
  end else WriteConsole(ID, 'You forgot to put in the target person',Color);
end;
end;

procedure OnJoinTeam(ID, Team: byte);
begin
teamswap[ID] := teamswap[ID] + 1;
  if prisonerbool[ID] = true then begin
    if (GetPlayerStat(ID,'Team')) <> 5 then begin
      Command('/setteam5 ' +inttostr(ID));
    end;
  end;
  if teamswap[ID] > 10 then begin
    Command('/ban ' + inttostr(ID));
  end;
end;

procedure OnLeaveGame(ID, Team: byte;Kicked: boolean);
begin
 teamswap[ID] := 0;
 if prisonerbool[ID] = true then begin
  Command('/banip ' + GetPlayerStat(ID, 'IP'));
 end;
end;

PS: I've hardly ever tested this and the code is incredably messy (my bad habits shine all over this thing), so if you find any errors or don't like how i've scripted this and think you can do it better tell me.

[shantec]

Quote from Danmer: " And how is this useful?! "

No really, i wanted to make somekind of this script sometime ago but u were faster.
(but i dont think that ppl wants to just spec the game silently, so they would just leave o.O' )

[Iq Unlimited]

If they leave they get banned. Unless you abuse this and put like 999999 seconds or something you can just use it as a warning tool, at least, thats what I'm using it for.

[DorkeyDear]

Suggestion: instead of banning the player when they leave.. make it so when their ip rejoins, they are auto reimprisoned

[UnknownSniper]

Suggestion: instead of banning the player when they leave.. make it so when their ip rejoins, they are auto reimprisoned

Wouldn't work well for Dynamic IP or players who share computers. :p

[Caphriel]

Wouldn't work well for Dynamic IP or players who share computers. :p

It would work exactly as well as an IP ban.

[SniperTheKiller]

Suggestion: instead of banning the player when they leave.. make it so when their ip rejoins, they are auto reimprisoned

Wouldn't work well for Dynamic IP or players who share computers. :p

'dnt ban not work too then?
I like the idea, just make it when they leave and rejoin, they get spectated..

[Iq Unlimited]

Suggestion: instead of banning the player when they leave.. make it so when their ip rejoins, they are auto reimprisoned

'dnt ban not work too then?

Wouldn't work well for Dynamic IP or players who share computers. :p

Wouldn't work well for Dynamic IP or players who share computers. :p

It would work exactly as well as an IP ban.

Do you two even know what a Dynamic IP is? Of course it won't work on dynamic IPers unless I had it subnet ban them, which wouldn't be very nice to the other people with that same subnet.

[UnknownSniper]

Suggestion: instead of banning the player when they leave.. make it so when their ip rejoins, they are auto reimprisoned

'dnt ban not work too then?

Wouldn't work well for Dynamic IP or players who share computers. :p

Wouldn't work well for Dynamic IP or players who share computers. :p

It would work exactly as well as an IP ban.

Do you two even know what a Dynamic IP is? Of course it won't work on dynamic IPers unless I had it subnet ban them, which wouldn't be very nice to the other people with that same subnet.

I'm on crap Dial-up, Ofcourse I know what Dynamic IP is. =p

And Hi, Iq Unlimited, It's Big Dick Johnson! from TW. 

[RuL3zZ]

Master Script! WoW Thank u I use it know for this persons that cry to much! Thanks..!