Rate script, roundto() problem

[StayAlive]

Hi guys,
I have problem with rate script, i'm just learning this whole thing about scripting and I dont know pascal very well so I'm just downloading already existing versions of scripts (form Scripting Releases). I downloaded KD ratio script by iftach and then Ratio 1.5.2 by dominikkk26 but there were some bugs.
I still cant solve problem with function roundto() - it simply doesent work.

Code:

Code: [Select]

const
 Color = $FFFFFFFF;

procedure Ratio(ID: Integer);
var
KD: Double;
Kills: double;
Deaths: double;
begin
kills:=GetPlayerStat(ID,'kills');
deaths:=GetPlayerStat(ID,'deaths');
if(GetPlayerStat(ID,'team')=5) then
WriteConsole(0,GetPlayerStat(ID,'name')+', you are spectating',Color)
  else if(GetPlayerStat(ID,'deaths')=0) then
  WriteConsole(0,GetPlayerStat(ID,'name')+', your rate is incalculable.',Color)
    else begin
    KD := kills/deaths;
    WriteConsole(0,GetPlayerStat(ID,'name')+', your rate is '+FloatToStr(RoundTo(KD,2)),Color);
    end;
end;

procedure OnPlayerSpeak(ID: byte; Text: string);
begin
  if (Text = '!ratio') or (Text = '!rate') then Ratio(ID);
end;
It always gives me not rounded result, like "Your rate is 1.000000000000".
Anyone can help?

[Falcon`]

It's not RoundTo(), it's FloatToStr() displaying all the zeros, your number got clearly rounded to 1. It's a bug of soldatserver itself and has been already reported here. For now you need to workaround it by parsing FloatToStr() output by yourself or switching to linux, it somehow works just fine over there.

[StayAlive]

Thanks, I wasn't sure if it is my fault or not.
I've done my version of it with going around bug and now it's working perfectly, but code is quite funny

If someone would like to use it too: (Don't forget to add me to credits!  )

Code: [Select]

procedure Rate(ID: Integer);
var
KD: double;
KD2: double;
KD3: integer;
Number1: integer;
Number2: integer;
Number3: integer;
Kills: double;
Deaths: double;
K1: integer;
D1: integer;
begin
kills:=GetPlayerStat(ID,'kills');
deaths:=GetPlayerStat(ID,'deaths');
k1:=GetPlayerStat(ID,'kills');
d1:=GetPlayerStat(ID,'deaths');
if(GetPlayerStat(ID,'team')=5) then
WriteConsole(0,'Cannot show rate, '+GetPlayerStat(ID,'name')+' is spectating.',Color)
  else if(GetPlayerStat(ID,'deaths')=0) then
  WriteConsole(0,GetPlayerStat(ID,'Name')+'''s rate: '+IntToStr(k1)+'.00 ('+IntToStr(k1)+'/'+IntToStr(d1)+') with '+IntToStr(GetPlayerStat(ID,'Flags'))+' caps.',Color)
    else begin
    KD := kills/deaths;
KD2 := KD*100;
KD3 := Round(KD2);
Number1 := KD3/100;
Number2 := ((KD3 - (Number1*100))/10);
Number3 := (KD3 - ((Number2*10)+(Number1*100)));
    WriteConsole(0,GetPlayerStat(ID,'Name')+'''s rate: '+IntToStr(Number1)+'.'+IntToStr(Number2)+''+IntToStr(Number3)+' ('+intToStr(k1)+'/'+IntToStr(d1)+') with '+IntToStr(GetPlayerStat(ID,'Flags'))+' caps.',Color);
    end;
end;

[Falcon`]

Resolved in next version, more info: http://bugs.soldat.pl/view.php?id=15