Combat level into report

[me_ntal]

Im trying to get the current players combat level than right into a report. Both posted below. It just aint working any ideas?


begin
if Players[i].Active=True then Active:='True' else Active:='False';

WriteLn ( 'Player ' + Inttostr ( I) + ' : ' + Players[i].Name + ' = ' + Active);
WriteLn ( 'Att ' + inttostr(Players[i].level[1]) +', Str '+inttostr(Players[i].level[2])+', Def '+inttostr(Players[i].level[3]));
WriteLn ( 'Cmb '+inttostr(Players[i].combat) +', Hps ' +inttostr(Players[i].level[8]) + ', Pry '+inttostr(Players[i].level[5])+', Cmb '+inttostr(Players[1].integer69));
WriteLn ( 'Worked For: '+IntToStr(Players[i].Worked)+' min' ', Killed : '+ IntToStr(Players[i].Killed)+', Loc: '+Players[i].loc);
end


Get Combat function
function getcombatlevelb:integer;
var
melon, i: integer;
eagle : string;
begin
melon:=getcurrenttab;
gametab(1);
eagle:= GetTextAtEx(671, 230, 100, StatChars, False, True, 0, 5, -1, 2, True, tr_Digits);
if (Trim(eagle) = '') then
for i := 1 to 5 do
begin
eagle := GetTextAtEx(671 + i, 230, 100, StatChars, False, True, 0, 5, -1, 2, True, tr_Digits);
if (Trim(eagle) <> '') then Exit;
end;
if (not (Trim(eagle) = '')) then
result := StrToInt(Trim(eagle));
wait(500+random(200));
gametab(melon);
end;

[Boreas]

Somewhere during script
Players[currentplayer].integer1:=getcombatlevel

In report
'Cmb '+inttostr(Players[i].integer1)