Punish Double Scoring

[mikembm]

Script Name: Punish Double Scoring
Script Description: Admin kills anyone who double scores in CTF Survival servers.
Original Author(s): Bmekim
Core Version: 2.5.2
Code:

Code: [Select]

var
score: integer;
last: ARRAY [1..2] of integer;
punish: byte;
delay: byte;

procedure AppOnIdle(Ticks: integer);
begin
  if (Ticks mod (60) = 0) and (delay = 1) then begin
    Command('/kill ' + inttostr(last[punish]));
    Command('/say ' + IDToName(last[punish]) + ' punished for double scoring');
    delay := 0;
    punish := 0;
  end;
end;

procedure OnFlagGrab(ID: integer;TeamFlag: byte;GrabbedInBase: boolean);
begin
  last[TeamFlag] := ID;
end;

procedure OnFlagScore(ID: integer;TeamFlag: byte);
begin
  if score+1 < AlphaScore+BravoScore then punish := TeamFlag;
  score := AlphaScore+BravoScore;
end;

procedure OnPlayerRespawn(ID: integer);
begin
  if (punish > 0) then delay := 1;
  score := AlphaScore+BravoScore;
end;

procedure OnLeaveGame(IP, Nickname: string;Team: byte);
begin
 if (last[1] = NameToID(Nickname)) or (last[2] = NameToID(Nickname)) then punish := 0;
end;


[Quantifier]

Interesting, I have script with identical goal running on my server for about month now. However, I only used Turbo Pascal before, and my skills with it are more than a bit rusty.

Anyway, here's my version:

Code: [Select]

//Script to punish double scoring on Survival CTF
//Author: Quantifier
var
  upTime: integer;
  flag_carrier: array[1..2] of integer;
  flag_carrier_name: array[1..2] of string;
  punishment_who_name: string;
  punishment_who: integer;
  punishment_when: integer;
  old_score: integer;
  time_last_scored: integer;
  time_last_captured: integer;
  captured_flag: integer;
  dscored : array[1..7] of integer; //make this array bigger if server has more slots

procedure ActivateServer();
var i:integer;
begin
  upTime:=0;
  punishment_who:=0;
  punishment_when:=0;
  old_score:=0;
  flag_carrier[1]:=0;
  flag_carrier[2]:=0;
  time_last_scored:=0;
  time_last_captured:=0;
  for i:=1 to 7 do begin
    dscored[i]:=0;
  end;
end;

procedure AppOnIdle(Ticks: integer);
begin
   if (punishment_who <> 0) and (Ticks = punishment_when*60) then begin
      if (idtoname(punishment_who)=punishment_who_name) then begin
         if dscored[punishment_who] = 0 then begin
            Command('/kill '+inttostr(punishment_who));
            dscored[punishment_who] := 1; //comment this to disable recidive kick
         end
         else begin
            BanPlayer(punishment_who, 15);
            dscored[punishment_who] := 0;
         end;
         Command('/say '+punishment_who_name+' has been punished for double scoring.');
         Writeln(punishment_who_name+' has been punished for double scoring.');
      end;
      punishment_who := 0;
   end;

   if (alphascore+bravoscore>old_score) then begin
      if (time_last_captured=uptime) and
         ((alphascore+bravoscore>old_score+1) or
          (uptime-time_last_scored<=6)) then begin
         punishment_who:=flag_carrier[captured_flag];
         punishment_who_name:=flag_carrier_name[captured_flag];
         flag_carrier[1]:=0; flag_carrier[2]:=0;
         if punishment_who<>0 then begin
            Writeln(punishment_who_name+' double scored.');
            saytoplayer(punishment_who,'Double scoring is forbidden.');
            saytoplayer(punishment_who,'You will be punished.');
         end;
      end;
   time_last_scored:=uptime;
   end;

   old_score:=bravoscore+alphascore;

   upTime:=upTime+1;
end;

procedure OnFlagGrab(ID: integer;TeamFlag: byte;GrabbedInBase: boolean);
begin
   flag_carrier[TeamFlag]:=id;
   flag_carrier_name[TeamFlag]:=idtoname(id);
end;

procedure OnFlagScore(ID: integer;TeamFlag: byte);
begin
   captured_flag:=TeamFlag;
   time_last_captured:=uptime;
end;

procedure OnPlayerRespawn(ID: integer);
begin
   if (punishment_who=id) then begin
      punishment_when:=uptime+1;
   end;
end;

procedure OnLeaveGame(IP, Nickname: string;Team: byte);
var id:integer;
begin
   id:=nametoid(nickname);
   dscored[id]:=0;
   if id=punishment_who then begin
      punishment_who:=0;
   end;
end;


[mikembm]

Wow. way longer than it needs to be.
But I did update mine to not use array for scores.

[Quantifier]

I modified and cleaned mine a little too. OnPlayerRespawn is a better place to determine when to kill the offender.
I know my script is not the shortest possible, but I think it's pretty foolproof.

[FliesLikeABrick]

Can someone enlighten me as to what "double scoring" is?

[mikembm]

On CTF survival mode servers, when one team kills all of the other team that team gains one point and in 5 or so seconds the round ends. The problem is that in those 5 seconds it is possible for that team to score the flag also and get a second point. My script will /kill any player that does that in the following round.

EDIT: Added in OnLeaveGame procedure in case player leaves before being punished.

[Not Not Muldritch]

What exactly is the problem with double scoring?

[mikembm]

Some people just don't like it. How would you like to lose a map because some people using a glitch in the game? It's a matter of preference really.

[spike]

Yeah i play R/S with Bmekimnub and i dislike double scoring. Its using a glitch in the game and your getting an extra point with almost no work when you should only get one.

[iPod]

Some people just don't like it. How would you like to lose a map because some people using a glitch in the game? It's a matter of preference really.

It's not a glitch. It's actually really hard to score in the five seconds you get anyway, and if you manage to make it you honestly deserve the second cap. This wouldn't even be possible if that crappy workaround to fix survivor camping wasn't introduced (forcing everyone to be killed once the other team is dead).

[mikembm]

It's actually easy to do and happens quite often. Only triple capping is really hard to do.

[Aquarius]

No, it's not easy to do if you play with someone smart enough not to sit at your flag spawn point. If double cap happens very often it's only because you play with somene smarter than you. I think double scoring is good, it adds more tactics to the game.

[Clawbug]

IMO double scoring can be ideal tactic for some clans. If they are good at it, they deserve the win. Loser team needs just to blame itself because of losing the match, and not being able to stop the another teams tactic.

On public servers tho, I do not see double scoring SO tactical, but it should not be punished IMO. ;_;

[truup]

IMO double scoring can be ideal tactic for some clans. If they are good at it, they deserve the win. Loser team needs just to blame itself because of losing the match, and not being able to stop the another teams tactic.

On public servers tho, I do not see double scoring SO tactical, but it should not be punished IMO. ;_;

2nd that. Sounds just like a 'flag runner' to me.

[mikembm]

Fixed code and made it more efficient.

[Magic Odd Effect]

Double capping is annoying.

It is REALLY easy to double cap, since the flag is usually captured as a distraction. A group of two to three guys will go and cap the opposing team's flag, to distract them while the others move in. However, if the opposite team is eliminated, the guy with the flag will run and cap quickly.

You've already proved your win, why double it up and make a fair team work twice as hard to catch up?

I play some R/S, and it truly is annoying.

If I ever run a R/S server (which I might sometime), I'll use this script.

[Aquarius]

You've already proved your win, why double it up and make a fair team work twice as hard to catch up?

You are contradicting yourself.
You can double cap to catch up, if it is as "REALLY easy" as you say.
And it's not unfair to double cap if enemy team double caps too.

[Magic Odd Effect]

Play some R/S. You'll see what usually happens.

One team tries to be fair, the other double caps every time.

Also, during any one round, it's almost inevitable that a flag is going to be capped. Happens a lot, more than half the time.

Plus, it's just not fair gameplay. Like the SPAS in TW right now.

[SDFilm]

I used to be against it, but now it just sounds too much like an argument from the 'OMG flag runner nub!11' people.

[cynicle]

Wouldn't it be better as some of you agree and some dissagree with the whole idea that instead of punishing and so forth just deduct a point if the opposing team double scores?

[mikembm]

Wouldn't it be better as some of you agree and some dissagree with the whole idea that instead of punishing and so forth just deduct a point if the opposing team double scores?

When I made this script that wasn't possible