marpis
2009-04-27 22:41:43
Returns the level found in uptext.
Returns 0 if not found.
Returns 0 if not found.
function GetLevelUpText: integer;
var
s: string;
begin
s:= Trim(Between('l:', ')', GetUpText));
if s='' then
result:= 0
else
Result:= StrToInt(s);
end;