I'm using this function to get the experience gained, right? And it works perfectly, other than Players[CurrentPlayer].Extendeds[12] is returning 0, no matter how many logs are cut.
SCAR Code:
function Prg_ExpGained: Extended;
var
XpGain : TStringArray;
i : Integer;
begin
XpGain := ['tree', IntToStr(25), 'oak', FloatToStr(37.5),
'willow', FloatToStr(67.5), 'yew', IntToStr(175)];
if InStrArrEx(Lowercase(Players[CurrentPlayer].Strings[0]), XpGain, i) then
begin
Result := (StrToFloat(XpGain[i + 1]) * Players[CurrentPlayer].Integers[10]);
Players[CurrentPlayer].Extendeds[12] := Players[CurrentPlayer].Extendeds[12] + Result;
end else
begin
Writeln('String not in DeclarePlayers.');
S_SwitchPlayer;
end;
end;
Anyone have any ideas?