SCAR Code:
function GetGoblinXP(Level : integer) : integer;
begin
case level of
5 : result := 48;
25 : result := 104;
2 : result := 20;
16 : result := 88;
13 : result := 64;
11 : result := 28;
else
SRL_Warn('GetGoblinXP', 'Invalid goblin level: ' + IntToStr(Level) + '.', warn_AllVersions);
end;
end;
function GetLevel : integer;
begin
result := StrToInt(Between('-', ')', GetUpText));
if result = 0 then
begin
SRL_Warn('GetLevel', 'Could not get level.', warn_AllVersions);
result := -1;
end;
end;
Use those like:
SCAR Code:
IncEx(Players[CurrentPlayer].Integers[0]{XP GAINED?}, GetGoblinXP(GetLevel));