RS round timer

[Zabijaka]

Hello, this is My first script xD
I plan upgrade this script.

Script Name:  RS Round Timer
Script Description:  this script add timer to survival mode, works good only in survival mode! Default round time is 120sec, if You kill enemy before time is over You survive without death . If time is over all alive player go to hell xD and team score = draw!
Original Author(s):  help topics ;]
Core Version:  2.6.5
Code:

Code: [Select]

//use this script only i ctf survival mode

const
roundtime=120;    //Set round time here
color = $FFFFFF; //Set color of msg

var
Timer: integer;
scriptOn: byte;
i: integer;


procedure ActivateServer();
begin
scriptOn:=1;
WriteLn('Round Timer is On');
end;

procedure AppOnIdle(Ticks: integer);
begin
     if Timer > 0  then
          Timer := Timer - 1;
     if Timer =  90 then begin
WriteConsole(0, '90 sec left!', color);
end;
     if Timer =  60 then begin
WriteConsole(0, '60 sec left!', color);
end;
     if Timer = 30 then begin
WriteConsole(0, '30 sec left!', color);
end;
     if Timer = 15 then begin
WriteConsole(0, '15 sec left!', color);
end;
     if (Timer <= 10) and (Timer >= 1) then begin
    WriteConsole(0,IntToStr(Timer) + ' sec left!', color);
end;
     if (Timer = 0)  then begin
          for i := 1 to 32 do
                if ( NumPlayers < 2 ) or (GetPlayerStat(i,'Alive') = false) then begin
exit end;
WriteConsole(0, 'Round Time Over!', color);
for i := 1 to 32 do
if (GetPlayerStat(i,'Team') = 1) and (GetPlayerStat(i,'Alive') = true) then begin
DoDamage(i, 4000);
end;
for i := 1 to 32 do
if (GetPlayerStat(i,'Team') = 2) and (GetPlayerStat(i,'Alive') = true) then begin
DoDamage(i, 4000);
if ( NumPlayers >=2 ) and (GetPlayerStat(i,'Health') < 0) then begin
SetTeamScore(2, BravoScore - 1);
Timer := -1;
end;
end;
end;
end;



procedure OnPlayerRespawn(ID: Byte);
begin
     if scriptOn = 1  then begin
          Timer := roundtime;
     end;
end;

[Mittsu]

will this result with a draw when the time is over (no points given to any team)?

also, it gives you +1 in Deaths, right?

[Polifen]

1. No.
FIX : Look who is last player, in witch team he is and decrease team's point by one.

2. Yes.
FIX : I think none :<.

3. Idea : Use DoDamage(i, 4000) instead of /kill to remove spam.

[y0uRd34th]

For your first script well done, but here a few changes you should make

add a const time = XXX; so every guy can easy edit the round time

Code: [Select]

     if Timer = 5 then begin
WriteConsole(0, '5 sec left!', $FFFFFF);
end;
     if Timer = 4 then begin
WriteConsole(0, '4 sec left!', $FFFFFF);
end;
     if Timer = 3 then begin
WriteConsole(0, '3 sec left!', $FFFFFF);
end;
     if Timer = 2 then begin
WriteConsole(0, '2 sec left!', $FFFFFF);
end;
     if Timer = 1 then begin
WriteConsole(0, '1 sec left!', $FFFFFF);
end;do this instead:

Code: [Select]

if (Timer <= 5) and (Timer >= 1) then begin
   WriteConsole(0,IntToStr(Timer) + ' sec left!',$FFFFFF);
end;
You can delete the begin & end, it's just for better overview
Hope I helped you^^

[Zabijaka]

Thx  for better overview xD

Hope I fix some bugs... anyway round time is limited xD

[Mittsu]

1. No.

oh, then it doesnt make much sense

[Zabijaka]

OK, I fix script