Capricorn
2009-05-18 06:24:06
function R_GetMMLevelsEx(Which : String) : Integer;
begin
Result := -1;
case LowerCase(Which) of
'hitpoints', 'hp' : Result := 748;
'prayer', 'pp' : Result := 749;
'run', 'energy' : Result := 750;
'sum' : Result := 747;
else
SRL_Warn('R_GetMMLevels', 'Invaild string.', -3);
end;
Result := StrToIntDef(GetInterfaceText(Result, 4 - 2 * Integer(Result = 750)), -1);
end;
function R_ShopScrn: Boolean;
var
Text : string;
begin
Result := False;
if (not(ValidInterface(620))) then
Exit;
Text := GetInterfaceText(620, 21);
Result := Pos('ain Stock', Text) <> 0;
end;
function R_DepositBox: Boolean;
var
Text : string;
begin
Result := False;
if (not(ValidInterface(11))) then
Exit;
Text := GetInterfaceText(11, 12);
Result := Pos('ank of', Text) <> 0;
end;Credits goto Method for creating the initial bank screen check, I just edited that and I just edited the MM levels to include summoning.