Secet
2007-03-17 16:42:20
{*******************************************************************************
function FindBrokenAxe: Boolean;
By: Secet
Description: Looks inventory for broken axe. Results true if found.
*******************************************************************************}
function FindBrokenAxe: Boolean;
var Broken,x,y: integer;
begin
Broken := DTMFromString('78DA6364676060606540011EF1990CFF81342' +
'310FF07024636208399010D302291409A9B48356C04D470020976' +
'22CCE126C21C1E026A40F670115003722F070135CC44AA6125A08' +
'695701802003CA406D8');
GameTab(4);
if (FindDTM(Broken,x,y,553,204,744,463)) then
begin
WriteLn('Ent broke our axe =(');
Result := True;
end else
FreeDTM(Broken);
end;
I was surprised how there wasn't function for this in SRL, so here I made one.