SCAR Code:
Procedure HarpoonCheck;
var
x,y,BHarpoon:integer;
EquipmentPresent:Boolean;
begin
EquipmentPresent := false;
BHarpoon := DTMFromString('78DA63F46262603060644006D17E76601A26C' +
'A180254A38AAA06260B57630B546343404D38508D260135A14035' +
'1AA86A0A0B3351D5F803D5E8A1AA49F4374751030073AC0621');
GameTab(5);
if FindDtm(BHarpoon,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
Writeln('Barb-tail Harpoon Detected');
EquipmentPresent := True;
FreeDtm(BHarpoon);
end else
Begin
GameTab(4);
MMouseItem(1);
if IsUpText('poon')then
begin
WriteLn('Normal Harpoon Detected');
EquipmentPresent := True;
end else
if (EquipmentPresent = False) then
WriteLn('Harpoon Not Found');
end;
if EquipmentPresent then
begin
writeln('Equipment found');
end else writeln('Equipment Not found');
end;
Procedure LobsterPotCheck;
var
LobsterPot:Integer;
Begin
EquipmentPresent := false;
LobsterPot := DTMFromString('78DA637461626078CA8002525D79197880342' +
'310FF0702463BA09A1B0C6880118904D2BE4035B709A8F102AA79' +
'4B408D2350CD47026ACC816A5E1050630154738F0837BF22A0C60' +
'AA8E63D0135A030BC895F0D00F5611073');
GameTab(4);
if FindDtm(LobsterPot,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
Writeln('Lobster Pot Detected');
EquipmentPresent := True;
FreeDtm(LobsterPot);
end else
begin
Writeln('Lobster Pot Not Found');
EquipmentPresent := false;
end;
end;
Procedure EquipmentCheck;
begin
if (FishingFor = 'Sharks') then
begin
HarpoonCheck;
end else
if (FishingFor = 'Lobsters') then
begin
LobsterPotcheck;
end;
if (EquipmentPresent = false) then
begin
Writeln('No Fishing Equipment Detected');
Writeln('Either that or You spelt Your fish wrong.');
Writeln('Logging Out');
Logout;
Writeln('Terminating Script');
terminatescript;
end;
end;
whats wrong with this?