//        -====A script by Hemuli====-
//      This script is designed to buy
//      raw fishes and baits in port sarim store. This script
//      will buy all the Raw fishes/Baits in the shop.
//      Have A LOT of money with you. This script
//      will also let you buy juss one or several
//      different types of Fish/Baits. All you
//      have to do is ADD/REMOVE the " // " in
//      the script on lines 122-128. For More information about this
//      read lines 14 and on.
//
//
//
//              If would like it to juss buy BOTH Lobsters and Swordfishes
//           you would remove the " // " from the lobster section and the swordfish section. Pretty
//          simple if you use your brain.
//
//    Start the script with the fish buying screen Open.


program FishBuyer;
var
i : integer;
procedure BuySwordfish;
begin
   Writeln('Buying swordies...')
  wait(50)
  MoveMouse(95,180)
  wait(50)
  ClickMouse(95,180,False)
  wait(100)
  MoveMouse(60,255)
  wait(50)
  ClickMouse(60,255,True)
  wait(50)
end;

procedure BuyLobster;
begin
   Writeln('Buying Lobsters...')
  wait(50)
  MoveMouse(430,140)
  wait(50)
  ClickMouse(430,140,False)
  wait(100)
  MoveMouse(415,210)
  wait(50)
  ClickMouse(415,210,True)
  wait(50)
end;

procedure BuyTuna;
begin
   Writeln('Buying Tunas...')
  wait(50)
  MoveMouse(380,140)
  wait(50)
  ClickMouse(380,140,False)
  wait(100)
  MoveMouse(366,210)
  wait(50)
  ClickMouse(366,210,True)
  wait(50)
end;
procedure BuySalmon;
begin
   Writeln('Buying salmons...')
  wait(50)
  MoveMouse(330,140)
  wait(50)
  ClickMouse(330,140,False)
  wait(100)
  MoveMouse(320,210)
  wait(50)
  ClickMouse(320,210,True)
  wait(50)
end;
procedure BuyTrout;
begin
   Writeln('Buying trouts...')
  wait(50)
  MoveMouse(240,140)
  wait(50)
  ClickMouse(240,140,False)
  wait(100)
  MoveMouse(215,210)
  wait(50)
  ClickMouse(215,210,True)
  wait(50)
end;

procedure BuyBaits;
begin
   Writeln('Buying baits...')
  wait(50)
  MoveMouse(330,86)
  wait(50)
  ClickMouse(330,86,False)
  wait(100)
  MoveMouse(310,160)
  wait(50)
  ClickMouse(310,160,True)
  wait(50)
end;
procedure BuyFeathers;
begin
   Writeln('Buying feathers...')
  wait(50)
  MoveMouse(380,86)
  wait(50)
  ClickMouse(380,86,False)
  wait(100)
  MoveMouse(380,160)
  wait(50)
  ClickMouse(380,160,True)
  wait(50)
end;
//remove the '//' from whatever procedure u would like to do (default is buy lobsters)
begin
 repeat
 
 //BuySwordfish;
 BuyLobster;
 //BuyTuna;
 //BuySalmon
 //BuyTrout
 //BuyBaits;
 //BuyFeathers;
Until(false);
end.