SRL Archive - SRL Site Discussion

I devised a script which tells you how much of a complete phailure someone is based on how many times they posted in a row.

I don't think this could really help the community, but it could be a way to embarrass someone to stop them from spamming.

program PhailCalculation;

{
    Double Post =  2.5 Phails
    Triple Post =    5 Phails
 Quadruple Post =  7.5 Phails
 Quintuple Post =   10 Phails
  Sextuple Post =   15 Phails
  Septuple Post =   20 Phails
}

const
  PhailureAmount = 1;

function FailureCalculator(Phails: extended): extended;
var PhailInt: extended;
begin
  if (PhailureAmount=0) or (PhailureAmount<2.5) then
  begin
    WriteLn('Enter an amount stated above.');
    TerminateScript;
  end;
  if PhailureAmount<=5 then
  begin
    PhailInt := (((Phails * 50) + 6) * 9) / 9;
    Result := Phails * PhailInt;
  end else
    PhailInt := (((Phails * 25) + 6) * 9) / 9;
    Result := Phails * PhailInt;
end;

begin
  WriteLn(FloatToStr(Ceil(FailureCalculator(PhailureAmount))) + '/10120');
  WriteLn(FloatToStr(Ceil(((FailureCalculator(PhailureAmount) / 10120)) * 100)) + '% complete phailure.');
end.

IF this is in the wrong place, please move it.

20255400/10120
200153% complete phailure.

Hmm..make a failsafe to not allow anythign more than 20 fails :p
And anyone who posts more than 1 post is 100% fail, period :o

phail

Mk. I fixed it.

phail!