SRL Archive - OSR Help

Im an ub3r /\/00b scripter and have no idea whats happening here its saying [Error] C:\Simba\Includes\SRL/SRL/core/mouse.simba(166:36): Invalid number of parameters at line 165
Compiling failed i could really use help with my script i dont think i could fix it because its not in my script and im very new with pascal.its very messy and probably not very good but here it is, btw the script is a herblore script for runecore.

program DTMHerby;
{$i SRL\SRL.simba}
Var
Chest, PotsToMake, PotsMade, Box, Unf, berry, X, Y, i:Integer;
//begin
//If (InputQuery('How many potions would you like to make', 'Enter Amount:' , PotsToMake))) Then
//end;
Procedure LoadDTM;
begin
  ClearDebug;
  Berry := DTMFromString('mrAAAAHic42BgYOACYnYg5gRiQSDmY4AAZiDmAGJuKJ8FivmBmAcqJwzE29evB5JMOLERA37ASADDAAA7VgLz');
  Unf := DTMFromString('mwQAAAHic42RgYOAEYhYgZgdibiDmBWIhIOaCioMAPxALADETlM8DxBJALAPE0kAsCsTzJncyLJrWA1WFHfMzEAaMRGA4AAAgDgSL');
  Chest := DTMFromString('m6wAAAHic42ZgYOADYi4gVgBiLSA2BGIjINYGYmYGCGCEskHYEohtoGpUgZgdSY0QEKtB5SpSfBja8kMYdq1ZxdBfHs2wf8M6hg93bzMkB9kxrFswnyEiMJDhyNYtDAc2bgDrN2IgDjCSgJEAAKXeFVA=');
end;

Procedure FindUnf;
Begin
  if FindDTM(Unf, X, Y, MIX1, MIY1, MIX2, MIY2) Then
    begin
      MMouse(x,y,5,5);
      If Isuptext('cad') Then
      begin
       wait(175);
        mouse(x, y, 0, 0, True);
    WriteLn('Clicking dat unfinished potion');
    end else
      FreeDTM(Unf);
    end;
   end;
   Procedure FindBerries;
Begin
  wait(175)
  if FindDTM(Berry, X, Y, MIX1, MIY1, MIX2, MIY2) Then
    begin
      MMouse(x,y,5,5);
      If Isuptext('Whi') Then
      begin
        wait(175)
        mouse(x,y,0,0,true);
    WriteLn('Click those berries')
    end else
      FreeDTM(Berry);
    end;
   end;
Procedure Make;
begin
  MMouse(262,417,2,2)
  ClickMouse2(mouse_left);
  WriteLn('Make all the potions!')
  end;
Procedure GetItem;
begin
    if FindDTM(Chest, X, Y, MIX1, MIY1, MIX2, MIY2) Then
    begin
      MMouse(x,y,5,5);
      if Isuptext('bank') Then
      mouse(x,y,0,0,true);
withdraw(0, 0, 13);
withdraw(0, 1, 13);
end;
Procedure DepositPots;
begin
if FindDTM(Chest, X, Y, MIX1, MIY1, MIX2, MIY2) Then
    begin
      MMouse(x,y,5,5);
       if Isuptext('bank') Then
      mouse(x,y,0,0,true);
      deposit(1, 13, true);
end;


Procedure proggy;
Begin
ClearDebug;

  Writeln('**/\**/\**/\**/\**/\**/\**/\**/\**/\**')
  WriteLn('Yay you used my script, want a cookie?')
  Writeln('**/\**/\**/\**/\**/\**/\**/\**/\**/\**')

end;
procedure FREEDTMs;
begin
freeDTM(Unf);
freeDTM(Berry);
freeDTM(Chest);
end;
Begin
  LoadDTM;
  SRL_EnableNavBar;
  repeat
  SetScriptProp(SP_WriteTimeStamp, [True]);
  MouseSpeed := 10;
  GetItem;
  FindUnf;
  FindBerries;
  Make;
  //IncEx(PotsMade, 14);
addonterminate('FREEDTMs');
addonterminate('Proggy');
until (false) then//((StrToInt(PotsToMake)) <= PotsMade;);
FREEDTMs;
proggy;
terminatescript();
end.