RS round timer

[Zabijaka]

Hello, I need timer script for survival mode

[Furai]

Hmmm, I saw it in Leo's servers. Ask him for it. Or use search function implemented in the forums.

[PKS|Shooter]

http://forums.soldat.pl/index.php?topic=32153.0

Have Fun

[Zabijaka]

Shooter thanks but this is bad link xD
This is not timer for survival mode.

Ok, I know if somebody tell me witch command kill all alive players xD

[Gizd]

Ok, I know if somebody tell me witch command kill all alive players xD

There's none but...

Code: [Select]

function OnCommand(ID: byte; Text: string): boolean;
var i: byte;
begin
  if Text = '/killall' then begin
    for i:= 1 to 32 do if GetPlayerStat(i,'Alive') = true then if GetPlayerStat(i,'Active') = true then DoDamage(i,3333);
    Command('/say Admin killed everyone');
  end;
end;


[Zabijaka]

I dont know, My script is fail :/

Code: [Select]

const
   Time = 5; //Seconds

var
   Timer: integer;

procedure ActivateServer;
begin
   Timer := 90;
end;

procedure AppOnIdle(Ticks: integer);
begin
  Timer := Timer - 1;
  if (Timer = 0) then begin
     
WriteConsole(0, 'Round Time Over!', $FFFFFF);

function OnCommand(ID: byte; Text: string): boolean;
var i: byte;
begin
  if Text = '/killall' then begin
    for i:= 1 to 32 do if GetPlayerStat(i,'Alive') = true then if GetPlayerStat(i,'Active') = true then DoDamage(i,3333);
    Command('/say Admin killed everyone');
 
      Timer := 90;
    end;

end;

[-Major-]

I dont know, My script is fail :/

Code: [Select]

const
   Time = 5; //Seconds

var
   Timer: integer;

procedure ActivateServer;
begin
   Timer := 90;
end;

procedure AppOnIdle(Ticks: integer);
begin
  Timer := Timer - 1;
  if (Timer = 0) then begin
     
WriteConsole(0, 'Round Time Over!', $FFFFFF);

function OnCommand(ID: byte; Text: string): boolean;
var i: byte;
begin
  if Text = '/killall' then begin
    for i:= 1 to 32 do if GetPlayerStat(i,'Alive') = true then if GetPlayerStat(i,'Active') = true then DoDamage(i,3333);
    Command('/say Admin killed everyone');
 
      Timer := 90;
    end;

end;

the "Text" is never "/killall"

I guess you gotta make it launch, by making Text = "/killall" or launch that code without the "if"

Code: [Select]

const
   Time = 5; //Seconds

var
   Timer: integer;

procedure ActivateServer;
begin
   Timer := 90;
end;

procedure AppOnIdle(Ticks: integer);
begin
         Timer := Timer - 1;
         if (Timer = 0) then begin
           
      WriteConsole(0, 'Round Time Over!', $FFFFFF);

      Command('/killalll')

      function OnCommand(ID: byte; Text: string): boolean;
      var i: byte;
      begin
        if Text = '/killall' then begin
          for i:= 1 to 32 do if GetPlayerStat(i,'Alive') = true then if GetPlayerStat(i,'Active') = true then DoDamage(i,3333);
          Command('/say Admin killed everyone');
       
            Timer := 90;
      end;

end;
not sure if this will work, never really coded in pascal, so I'm not sure how it handels functions.

[xmRipper]

I dont know, My script is fail :/
(...)

There is OnCommand function inside of AppOnIdle procedure. That's the problem.

[Gizd]

Code: [Select]

const
   Time = 5; //Seconds

var
   Timer: integer;

procedure ActivateServer;
begin
   Timer := 90;
end;

procedure AppOnIdle(Ticks: integer);
begin
  Timer := Timer - 1;
  if (Timer = 0) then begin
     
WriteConsole(0, 'Round Time Over!', $FFFFFF);
    for i:= 1 to 32 do if GetPlayerStat(i,'Alive') = true then if GetPlayerStat(i,'Active') = true then DoDamage(i,3333); 
      Timer := 90;
    end;

end;

[Zabijaka]

I got it xD
http://forums.soldat.pl/index.php?topic=35224.0