First script: PowerFisher V1.0

ok, here is my script, its my first one, and it isnt great but it works
its and powerfisher, it can fish on all types of fish. just read the description and instructions if you want to know more

Code:

///////////////////////////////////////////////////////////////
//               Phoenix's PowerFisher V1.0                  //
///////////////////////////////////////////////////////////////
//                                                           //
//     //////                                                //
//     //   //  /////   //      //     //  /////  /////      //
//     //////  //   //  //     ///     //  //     //  //     //
//     //      //   //   //   // //   //   /////  /////      //
//     //      //   //    // //   // //    //     //  //     //
//     //       /////      ///     ///     /////  //  //     //
//                                                           //
//       ///////   //                                        //
//       //             /////   //  //  /////  /////         //
//       //////    //  //       //  //  //     //  //        //
//       //        //   /////   //////  /////  /////         //
//       //        //       //  //  //  //     //  //        //
//       //        //   /////   //  //  /////  //  //        //
//                                                           //
///////////////////////////////////////////////////////////////
//                     Description                           //
///////////////////////////////////////////////////////////////
//                                                           //
//  This is PowerFisher is my very first script, it will     //
//  catch fish anywhere close to a fishing spot, and then    //
//  drop it drops all the fish and repeats it.               //
//  It can fish all types of fish.                           //
//  it isn't great but it does work pretty good...           //
//                                                           //
///////////////////////////////////////////////////////////////
//                     Instructions                          //
///////////////////////////////////////////////////////////////
//                                                           //
//  Log out with your fishing equipment in you first slot    //
//  of your inventory and you bait (if bait or flyfishing)   //
//  is in the second slot. also make sure you are close to   //
//  a fishingspot, and that the spot appears in the screen.  //
//                                                           //
//  Write the data into the procedure of the DeclarePlayers  //
//  pocedure. further instrunctions out there.               //
//                                                           //
//  Important: Change 'FishType' to the right type.          //
//  so when fishing with a net, it should be...              //
//  FishType='Net';                                          //
//                                                           //
//  Script created by: Phoenix13nl                           //
//  Special thanks to Tniffoc for his help =)                //
//                                                           //
///////////////////////////////////////////////////////////////
//                      Good luck.                           //
///////////////////////////////////////////////////////////////


program PowerFisher;
{.include srl/srl/misc/smart.scar}
{.include SRL/SRL.Scar}

var
   x, y, i : integer;
   smartworld : string;
   
const
FishType='WriteFishingTypeHere'; //Net, Bait, Fly, Cage, Harpoon. Example: FishType='Net';

procedure DeclarePlayers;
begin
  howmanyplayers:=1;
  numberofplayers(howmanyplayers);
  players[0].name:='WriteUsernameHere';
  players[0].pass:='WritePasswordHere';
  players[0].nick:='WriteNicknameHere';  //Just write 3-4 letters of your username, use correct capitals.
  players[0].Integers[0]:=5;             //this is the number of loads to do before loggin out again.      //Line written by Tniffoc
  players[0].Integers[1]:=0;                                                                               //Line written by Tniffoc
  players[0].active:=true;
  players[0].worked:=0;
end;

procedure Init;
begin
  smartworld:='world63';
end;

procedure AntiRandoms;
begin
  if(not(LoggedIn))then Exit;
  findnormalrandoms;
  if findfight=true then runaway('E',true,1,4000+random(2000));
end;

procedure AntiBan;
begin
  if(not(LoggedIn))then Exit;
  case random(4) of
    0: PickUpMouse;
    1: RandomMovement;
    2: RandomRClick;
    3: case random(4) of
      0: HoverSkill('Fishing', false);
      1: HoverSkill('Cooking', false);
      2: HoverSkill('Woodcutting', false);
      3: HoverSkill('Firemaking', false);
      end;
  end;
end;

Procedure CatchFish;
begin
 if FishType='Net' then
  begin
  if not loggedin then exit;
    KeyDown(VK_UP);
    wait(1500+random(500));
    KeyUp(VK_UP);
    wait(500+random(500));
    writeln('Angle set.');
    writeln('Fishing with net.');
    repeat
      AntiRandoms;
      AntiBan;
      if (InvFull = true) then exit;
      if FindObjCustom(x, y, ['Net','et F','t Fi'], [12828090, 11182231], 3) then
      begin
        writeln('Net fishing spot spotted.');
        MMouse(x, y, 5, 5);
        wait(100+random(50));
        Mouse(x, y, 1, 1, true);
        writeln('Fishing...');
        wait(5000+random(2500));
        AntiBan;
        wait(5000+random(2500));
      end;
    until(InvFull = true)
  end;
 if FishType='Bait' then
  begin
  if not loggedin then exit;
    KeyDown(VK_UP);
    wait(1500+random(500));
    KeyUp(VK_UP);
    wait(500+random(500));
    writeln('Angle set.');
    writeln('Fishing with fishing rod.');
    repeat
      AntiRandoms;
      AntiBan;
      if (InvFull = true) then exit;
      if FindObjCustom(x, y, ['Net','et F','t Fi'], [12828090, 11182231], 3) or FindObjCustom(x, y, ['Lur','ure ','re F'], [12828090, 11182231], 3) then
      begin
        writeln('Bait fishing spot spotted.');
        MMouse(x, y, 5, 5);
        wait(100+random(50));
        Mouse(x, y, 1, 1, true);
        writeln('Fishing...');
        wait(5000+random(2500));
        AntiBan;
        wait(5000+random(2500));
      end;
    until(InvFull = true)
  end;
 if FishType='Fly' then
  begin
  if not loggedin then exit;
    KeyDown(VK_UP);
    wait(1500+random(500));
    KeyUp(VK_UP);
    wait(500+random(500));
    writeln('Angle set.');
    writeln('Fishing with flyfishing rod.');
    repeat
      AntiRandoms;
      AntiBan;
      if (InvFull = true) then exit;
      if FindObjCustom(x, y, ['Lur','ure ','re F'], [12828090, 11182231], 3) then
      begin
        writeln('Fly fishing spot spotted.');
        MMouse(x, y, 5, 5);
        wait(100+random(50));
        Mouse(x, y, 1, 1, true);
        writeln('Fishing...');
        wait(5000+random(2500));
        AntiBan;
        wait(5000+random(2500));
      end;
    until(InvFull = true)
  end;
 if FishType='Cage' then
  begin
  if not loggedin then exit;
    KeyDown(VK_UP);
    wait(1500+random(500));
    KeyUp(VK_UP);
    wait(500+random(500));
    writeln('Angle set.');
    writeln('Fishing with Cage.');
    repeat
      AntiRandoms;
      AntiBan;
      if (InvFull = true) then exit;
      if FindObjCustom(x, y, ['Cage','age ','ge F'], [12828090, 11182231], 3) then
      begin
        writeln('Cage fishing spot spotted.');
        MMouse(x, y, 5, 5);
        wait(100+random(50));
        Mouse(x, y, 1, 1, true);
        writeln('Fishing...');
        wait(5000+random(2500));
        AntiBan;
        wait(5000+random(2500));
      end;
    until(InvFull = true)
  end;
 if FishType='Harpoon' then
  begin
  if not loggedin then exit;
    KeyDown(VK_UP);
    wait(1500+random(500));
    KeyUp(VK_UP);
    wait(500+random(500));
    writeln('Angle set.');
    writeln('Fishing with Harpoon.');
    repeat
      AntiRandoms;
      AntiBan;
      if (InvFull = true) then exit;
      if FindObjCustom(x, y, ['Cage','age ','ge F'], [12828090, 11182231], 3) then
      begin
        writeln('Harpoon fishing spot spotted.');
        MMouse(x, y, 5, 5);
        wait(100+random(50));
        Mouse(x, y, 1, 1, true);
        writeln('Fishing...');
        wait(5000+random(2500));
        AntiBan;
        wait(5000+random(2500));
      end;
    until(InvFull = true)
  end;
end;

procedure DropFish;
begin
 if not loggedin then exit;
 if (InvFull = true) then
 begin
  writeln('Inventory full.');
    for i := 3 to 28 do
      DropItem(i);
  writeln('All fish dropped.');
 end;
end;

begin
  cleardebug;
  init;
  smartsetup(smartworld,false,true,false);
  settargetdc(smartgetdc);
  setupsrl;
  lampskill:='smithing';                  //Change into any skill you want, make sure to write correctly!
  declareplayers;
  currentplayer:=0;
  logout;
  closefile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',true));
  loginplayer;
  Repeat
    if not loggedin then exit;
    CatchFish
    DropFish;
    Cleardebug;
    Inc(Players[CurrentPlayer].Integers[1]);                                                //Line written by Tniffoc.
    Writeln(IntToStr(Players[CurrentPlayer].Integers[1]) + ' out of ' + IntToStr(Players[CurrentPlayer].Integers[0]) + ' loops completed.')
  Until(Players[CurrentPlayer].Integers[1] >= Players[CurrentPlayer].Integers[0]);          //Line written by Tniffoc.
Cleardebug;
Writeln('All ' + IntToStr(Players[CurrentPlayer].Integers[0]) + ' loops completed, script will stop now,');
logout;
end.

srry didint know it whas possible to place code tags, withouth them its unreadable

 

this 1st version is safe, put this at the top of ur thread so ppl know

 

Tried it out, works pretty slick. Thanks!