SRL Archive - Help and Support

program PowerFisher;
{.include SRL/SRL.scar}

var FHole:integer;

const
Dir='N';
Skill='Fishing';



procedure Setup;
begin
SetupSRL;
  SetChat('On', 1);
  SetChat('Off', 2);
  SetChat('Off', 3);
end;

procedure LoadBits;
begin
  FHole := BitmapFromString(19, 19, 'z78DACD94D10EC32008457F8' +
       '9748BE22322FCFF27AD9D4DD66455DB09C95EEE032A2717AF4648' +
       'C81C3096444DA5A8299F68464872A28C0BC1513316281C049FB40' +
       'C5846DC9D582BD789467E6F13EF720181D48038E3B7D12D620649' +
       'AD550206E11FB94D22A10417BF33536D700515949B5C5B62D76FF' +
       'FA61C13E541FCE2EA36E7B0572692B32676ED74DBEFA8E7E71558' +
       'CDF950DF7E3F7DF4CF5ED933E03ADC60CD243A24B3F6E419D77FA' +
       'F567343BF9FE1AD2FFAB3F5DA');
end;

procedure RandomP;
begin
FindNormalRandoms;
FindLamp(Skill);
end;

procedure FFight;
begin
if(FindFight) then
  begin
RunTo(Dir, False);
  Wait(5000+random(100));
RunBack;
  end;
end;

procedure BanP;
begin
  RandomChatEvery(10 + Random(5));
  RotateEvery(20 + Random(10));
  LeaveScreenEvery(5 + Random(5));
  HoverEvery(15 + Random(5),'random');
end;

procedure FFHole;
begin
Flag;
  if(FindBitmapToleranceIn(FHole, x, y,  3, 3, 515, 338, 20))then
  MMouse(x, y, 2, 2);
if(IsUpText('Net'+'Fishing Spot'))then
 Writeln('');
 Writeln('Fishing Spot Found');
 Writeln('');
end;

procedure FishShrimp;
begin
  FFHole;
repeat
  MMouse (x, y, 2, 2);
until(InventoryFull)
end;

procedure DropF;
begin
  if(InventoryFull)then
begin
  repeat
DropItem(2-28);
  until(InventoryCount = 1)
end;

begin
Setup;
LoadBits;
RandomP;
BanP;
FFight;
  repeat
FishShrimp;
DropF;
  until(false)
end.

this is my code unfinished still but a get this error identifier expected most times it tells you where the mistake is but this is time it just says indentifier expeceted:confused:

help would be greatly appreciated:)

Please look at the script when you get an error be for posting.

procedure DropF;
begin
  if(InventoryFull)then
begin
  repeat
DropItem(2-28);
  until(InventoryCount = 1)
end;

is missing an end

ahhhhhhhhhhh such an easy mistake sorry but it was driving my crazy

Next time post the error and comment the lines which give errors ;) It's easyer

Also :

DropItem(2-28);

Will attempt to drop item -26 :).