SRL Archive - Archive

How Long have You Played Runescape?
5 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
Some Pascal and C++


Are you a member of any other communities?
No


Tell us about yourself…

From: WYTE11
I'm a student at the University of New Orleans, studying computer science. I turned to making this script when one of my tutors mentioned runescape and he helped me in making it.

Please show us one (or multiple) of your scripts.

// _  _  _ _     _ _______ _______ ___   ___                  //
//(_)(_)(_) |   | (_______|_______|___) (___)                 //
// _  _  _| |___| |   _    _____     _     _                  //
//| || || |_____  |  | |  |  ___)   | |   | |                 //
//| || || |_____| |  | |  | |_____ _| |_ _| |_                //
// \_____/(_______|  |_|  |_______|_____|_____)               //
//                                                            //
//  ______                                                    //
//(_____ \                             _                      //
// _____) )___ _____  ___ _____ ____ _| |_  ___   _           //
//|  ____/ ___) ___ |/___) ___ |  _ (_   _)/___) |_|          //
//| |   | |   | ____|___ | ____| | | || |_|___ |  _           //
//|_|   |_|   |_____|___/|_____)_| |_| \__|___/  |_|          //
// ____                                                       //
///\  _`\                                                     //
//\ \ \/\ \  _ __    __     __  __    ___     ___   _ __      //
// \ \ \ \ \/\`'__\/'__`\  /\ \/\ \ /' _ `\  / __`\/\`'__\    //
//  \ \ \_\ \ \ \//\ \L\.\_\ \ \_\ \/\ \/\ \/\ \L\ \ \ \/     //
//   \ \____/\ \_\\ \__/.\_\\/`____ \ \_\ \_\ \____/\ \_\     //
//    \/___/  \/_/ \/__/\/_/ `/___/> \/_/\/_/\/___/  \/_/     //
//                              /\___/                        //
//                              \/__/                         //
// ____                 __                         __  __     //
///\  _`\   __         /\ \                       /\ \/\ \    //
//\ \ \L\_\/\_\    ____\ \ \___      __   _ __    \ \ `\\ \   //
// \ \  _\/\/\ \  /',__\\ \  _ `\  /'__`\/\`'__\   \ \ , ` \  //
//  \ \ \/  \ \ \/\__, `\\ \ \ \ \/\  __/\ \ \/     \ \ \`\ \ //
//   \ \_\   \ \_\/\____/ \ \_\ \_\ \____\\ \_\      \ \_\ \_\//
//    \/_/    \/_/\/___/   \/_/\/_/\/____/ \/_/       \/_/\/_///
// ____                     __                                //
///\  _`\                  /\ \                               //
//\ \ \L\ \     __      ___\ \ \/'\      __   _ __            //
// \ \  _ <'  /'__`\  /' _ `\ \ , <    /'__`\/\`'__\          //
//  \ \ \L\ \/\ \L\.\_/\ \/\ \ \ \\`\ /\  __/\ \ \/           //
//  \ \____/\ \__/.\_\ \_\ \_\ \_\ \_\ \____\\ \_\            //
//    \/___/  \/__/\/_/\/_/\/_/\/_/\/_/\/____/ \/_/           //
////////////////////////////////////////////////////////////////
//                      Description                           //
////////////////////////////////////////////////////////////////
//                                                            //
//  This is fisher will catch fish until the inventory is     //
//  full. After it filled the inventory with fish it will     //
//  walk to the bank and desposit it all. after that it       //
//  should cook the fish, when all fish are cooked then it    //
//  should drop the burned ones.                              //
//  Fishing works for both net and bait fishing.              //
//  It contains AntiRandom, AntiBan.                          //
//                                                            //
////////////////////////////////////////////////////////////////
//                      Instructions                          //
////////////////////////////////////////////////////////////////
//                                                            //
//                       IMPORTANT!                           //
//  Start in Draynor Village... and make sure that the        //
//  fishing spot icon appears on the map.                     //
//                                                            //
//  Write the data into the procedure of the DeclarePlayers   //
//  pocedure. further instrunctions out there.                //
//                                                            //
//  CHANGE FISHTYPE TO HOW YOU WANT TO FISH. MAKE SURE YOU    //
//  HAVE THE RGHT EQUiPMENT IN FIRST/SECOND SLOT.             //
//                                                            //
//  Currently the cooking procedure isnt great i think, but   //
//  im working on that, if you do not want to cook the fish   //
//  then leave CookCaughtFish='', if you do want to cook      //
//  then change to CookCaughtFish='Yes'. this only works      //
//  for netfishing, for now.                                  //
//                                                            //
//  IF YOU DO WANT TO COOK THEN MAKE SURE YOU A SHRIMP OR     //
//  ANCHOVIES IN FIRST/SECOND SLOT OF FIRST ROW FROM BANK.    //
//  ALSO MAKE SURE THAT YOU A BURNED SHRIMP OR ANCHOVIES IN   //
//  THE FIRST/SECOND SLOT OF SECOND ROW FROM BANK             //
//  ALSO MAKE SURE THAT YOU HAVE LOGS AND A THINDERBOX,       //
//  THAT ARE DIRECTLY ON SIGHT WHEN OPENING THE BANK.         //
//                                                            //
////////////////////////////////////////////////////////////////
//      Script by: WYTE11                                     //
////////////////////////////////////////////////////////////////

program DraynorFisherAndBanker;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.include SRL/SRL.Scar}
{.include srl/srl/skill/fishing.scar}

var
   i, x, y, CShrimpDTM, CAnchoviesDTM, CookFish, Ran, EquipmentLost, DFishCount, NetCount, CTotalCount, TotalCount, FishDTM, Fish2DTM, Fish3DTM, CLoadCount, LoadCount, NetDTM, RodDTM, BaitDTM, ThinderDTM, LogDTM, CookMask, LvlUpMask, CantCookMask : integer;

const

  FishType = 'Net';      //IMPORTANT! write exactly: 'Net' or 'Bait'
  CookCaughtFish = 'No';       //'Yes' = yes, anything else = no.
  YourID = 'blah';       // Your stats id here
  YourPW = 'extra blah'; //Your stats pw here
  
procedure DeclarePlayers;
begin
  howmanyplayers:=1;
  numberofplayers(howmanyplayers);
  players[0].name:='Usermame';
  players[0].pass:='Password';
  players[0].nick:='Nickname';   //Just write 3-4 letters of your username, use correct capitals.
  players[0].pin :='';       //Leave blank if no pin.
  players[0].Integers[0]:=25;//Amount of fish to catch, change to any number.
  players[0].active:=true;
  players[0].worked:=0;
end;

procedure Init;
begin
  NetDTM := DTMFromString('78DA63B465666078C0C8800A189148206D0D5' +
     '47395801A5DA09A2704D47802D5DC25A0C68C0835CE40356F09A8' +
     '7107AA798C5F0D0051850803');
  RodDTM := DTMFromString('78DA63CC626060E0656440058C4824904E071' +
       '25204D44403093122CCE122A0261748B01050530C249809A8C901' +
       '1202F8D50000DDDA035A');
  BaitDTM := DTMFromString('78DA63EC636060E063644006060A0A601A26C' +
       'AD80224C451D5C064E16A26010961026A7A895003328793809A69' +
       '986EC650B30048081150D30624F8F1AB0100A7C50592');
  FishDTM := DTMFromString('78DA634C676060E86440038C4824900E07127' +
       'D04D4240389A904D46403890904D4E403896E026A0A8044230135' +
       '6140A215BF1A00AAED06A4');
  Fish2DTM := DTMFromString('78DA63DCCBC0C020C8C8800A18914820BD194' +
       '8881050B30F48701250731448F01250B31D48881350B30348F0E3' +
       '5703005D5F04DC');
  Fish3DTM := DTMFromString('78DA63FCCFC0C0309391011530229140FA2B9' +
       '0984A40CD5B203187809A2F4062110135CC40562F01351C40D60C' +
       'FC6A002AE7078C');
  ThinderDTM := DTMFromString('78DA63F4606060B8C08006189148201D0D244' +
       'E13501309246E1150E303244E1050E30D246E12501303240E1350' +
       'E30624CEE05703005E7807F0');
  LogDTM := DTMFromString('78DA63DCC8C0C0B09E010D30229140FA2490D' +
       '84340CD76207190809AA34062250135C780C426026AD601892D04' +
       'D480FCB417BF1A009C200A27');
  CShrimpDTM := DTMFromString('78DA63BCCDC8C0F0800105AC2F1703D38C503' +
       'EE30920EB39AA9AAD35E2A86AAE00591F51D5CCCF154151030025' +
       'D708DD');
  CAnchoviesDTM := DTMFromString('78DA636463626078C08002DCFD6AC1342394C' +
       'FF803C87A81AAC6DE350F550D13D09C8FA86AF48C0251D4000095' +
       'F7067A');
  CookMask := BitmapFromString(150, 21, 'beNrtWEsWhDAI8/6XrjsXloZ' +
       'fHcRJVn1VXwOhgBwHQRAEQWCMMYybtazKKb1TO9FR4n4hq1o+HS9g' +
       'ecBfp1/aUcG+CjKFtlZwO5+xgFpKwPvzm974nNfi6epx2Cg7ZxcBY' +
       'OP81cp7Ln1F5uomcDh+5E0yQB27Ca5ASq4DWVQ1NqkgaKioYF5Bo/' +
       '+TCort00YFb0dsceb7FVxdCm+JdGVRowkxBV1xAqpS0smxtVpnjXc' +
       'w0OGIRVmsudhvsRbCnsCN+2Emam+WmRXMjgVRVz6C+MDs6M9/1joO' +
       'ADm0pIIfFrGLKzpyftoh7SbwHTkTBPFTnKruWdE=');
  LvlUpMask := BitmapFromString(167, 22, 'beNrtmNESgzAIBP3/n7Yzfeg' +
       '4RfBArIndfVLEknAJ0iwLAAAAADye9Y01iu/qUUj1aHJvLxSBRLeU' +
       'J/xAcc8iLgC2+XSrXRSd2t6Y4ZHHM/UH/d5Uj7y8FdG/qtO6wbPEh' +
       'c56WuPn1osuRrGDFKvxYdzdKNbuJWo3A97nQB98406PC753HYdTfs' +
       'rOvVajCi8qExST0OjWontZ9MNEFUQPknAm0JnVMpTol+50cYMXik8' +
       'wF+WIwPP8B9F7m4RU957aqrroQarjgn+p6C2lvuyWPTCp/ZEUu6nA' +
       'LZvSuBX0TghTTWOtHImtVCCN96jWsOmzBgAAAACAmXgBkkpT1w==');
  CantCookMask := BitmapFromString(207, 23, 'beNrtmMkOwyAMRPP/P01vEaI' +
       'Ej82SIN6c2qrCHnvwwnUBAAAAAIAdkVLCwyHmvh9J0/95FO7DCxNf' +
       'C9oyf8LRnpqmlUGexCI/9unzgZXtzLJ2O39LbiydjcRGD13MegaXQ' +
       's9bBG22e67zw3E7dlBpV7miouZfxWKbMpgn//+u/8Fr0XRDNJG3Ht' +
       'NEgEUgAm3W7XBVU6wEM1DizHLnus7t0xrV+0lv/eVad8nMkel8uHf' +
       'MC36AizdNgc10LF9lgxsrNl0JpjzCYqsyXSY2vQG5EqGHaGBl6BGb' +
       '+eTyotj08UCXx1tiEx80AmJrXyivIZGv3muq1cMVyXCa3qps5nyyr' +
       'I12jgRm0jvrZ+Oad86oxTjq2j5EUsouoGxAeoeqHqIwDbDQJfT0bm' +
       '/KoG3Fu6fMaMHgtNfFnu0AIDYAUBoAAAAAAABgY/wAe8IlFA==');
end;

procedure AntiRandoms;
begin
  FindNormalRandoms;
  FindLamp('fishing');
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 Angle;
begin
  KeyDown(VK_UP);
  wait(1500+random(500));
  KeyUp(VK_UP);
  wait(500+random(500));
  writeln('Angle set.');
end;

procedure WalkFish;
begin
  if(FindSymbol(x,y, 'water source')) then logout;
  if not LoggedIn then exit;
  if (InvFull = True) then exit;
  MMouse(609,129,4,4);
  wait(100+random(50));
  Mouse(609,129,1,1,true);
  AntiBan;
  wait(6000+random(2000));
  
  wait(1500+random(500))
  if(FindSymbol(x,y,'fish'))then
 begin
    SetRun(True)
    writeln('Walking to fishing spot.');
    AntiRandoms;
    MMouse(x, y, 5, 5);
    wait(100+random(50));
    Mouse(x, y, 1, 1, true);
    wait(3000+random(1000))
    Antiban;
    AntiRandoms;
    wait(2000+random(500))
  end;
end;

Procedure CatchFish;
begin
  if (InvFull = true) or (LoggedIn = false) then exit;
  repeat
    AntiRandoms;
    AntiBan;
    repeat
    wait(500+random(500));
    GameTab(4);
    if(FindSymbol(x,y, 'water source')) then logout;
    if FishType='Net' then
    begin
      if not(FindDTM(NetDTM,x,y,550,205,735,255))then
      begin
        EquipmentLost:= 1;
        writeln('Cant find net in inventory.')
        if not FindObjCustom(x, y, ['Small', 'all f', 'ng net'], [1053978, 1185564, 1844268], 3) then exit;
        wait(1500+random(500));
        Mouse(x, y, 1, 1, true);
        writeln('Found net on ground.')
        if not(FindDTM(NetDTM,x,y,550,205,735,255))then exit;
        writeln('Net sucsesfully picked up.')
        inc(NetCount);
      end;
    end;
    if FishType='Bait' then
    begin
      if not(FindDTM(RodDTM,x,y,550,205,735,255))then
      begin
        EquipmentLost:= 2;
        writeln('Cant find rod in inventory.')
        if not FindObjCustom(x, y, ['Fishi', 'ing r', ' rod'], [872297, 671314, 469308], 3) then exit;
        wait(1500+random(500));
        Mouse(x, y, 1, 1, true);
        writeln('Found rod on ground.')
        if not(FindDTM(NetDTM,x,y,550,205,735,255))then exit;
        writeln('Rod sucsesfully picked up.')
        inc(NetCount);
      end;
      if FishType='Bait' then
      begin
        if not(FindDTM(BaitDTM,x,y,550,205,735,255))then
        EquipmentLost:= 2;
        writeln('Cant find bait in inventory.')
        exit;
      end;
    end;
    AntiRandoms;
    AntiBan;
    wait(100+random(500))
    if FindObjCustom(x, y, ['Net','et F','t Fi'], [12828090, 11182231], 3) then
    begin
      writeln('Fishing spot spotted.');
      wait(100+random(50));
      Mouse(x,y,1,1,False);
      wait(500+random(500))
      if FishType='Net' then
      begin
        if ChooseOption('Net') then
        writeln('Fishing...');
      end;
      if FishType='Bait' then
      begin
        if ChooseOption('Bait') then
        writeln('Fishing...');
      end;
      wait(5000+random(2500));
      if FindFight=true then
      begin
        RunAway('E',true,1,5000+random(2500));
        Ran := Ran + 1;
      end;
      AntiRandoms;
      AntiBan;
      if FindFight=true then
      begin
        RunAway('E',true,1,5000+random(2500));
        Ran := Ran + 1;
      end;
      GameTab(4);
      wait(3000+random(2500));
      if FindFight=true then
      begin
        RunAway('E',true,1,5000+random(2500));
        Ran := Ran + 1;
      end;
    end;
  until(InvFull = true);
until(InvFull = true);
MMouse(648,57,4,4);
wait(100+random(50));
Mouse(648,57,1,1,true);
wait(2000+random(1000))
end;

procedure WalkBank;
begin
  if not LoggedIn then exit;
  if not (InvFull = true) then exit;
  wait(1000+random(500))
  if(FindSymbol(x,y,'bank'))then
  begin
    Writeln('Bank found.');
    MMouse(x, y, 5, 5);
    wait(100+random(50));
    Mouse(x, y, 1, 1, true);
    wait(5000+random(1000));
    AntiBan;
    AntiRandoms;
    wait(4500+random(1000));
  end;
end;

procedure Bank;
begin
  if not LoggedIn then exit;
  if not (InvFull = true) then exit;
  repeat
    if FindObjCustom(x, y, ['se Ba', 'ank b', 'oth'], [605264, 3685438, 2313826, 6192526], 3) then
    begin
      MMouse(x,y,5,5);
      wait(100+random(50));
      Mouse(x,y,1,1,False);
      wait(1000+random(500))
      if ChooseOption('se-q') then
      begin
        TotalCount:= TotalCount + CountItemsIn('inv', 'dtm', FishDTM, []);
        TotalCount:= TotalCount + CountItemsIn('inv', 'dtm', Fish2DTM, []);
        TotalCount:= TotalCount + CountItemsIn('inv', 'dtm', Fish3DTM, []);
        wait(3500+random(500));
        deposit(3,28,true);
        wait(1500+random(500));
        MMouse(489,33,4,4);
        wait(100+random(50));
        Mouse(489,33,1,1,true);
        wait(1500+random(500));
      end;
    end;
  until(InvFull = false)
inc(LoadCount);
end;

procedure WithDrawEquipment;
begin
  if not LoggedIn then exit;
  MMouse(648,57,4,4);
  wait(100+random(50));
  Mouse(648,57,1,1,true);
  wait(2000+random(1000))
  if not(FindSymbol(x,y,'bank'))then exit;
  Writeln('Bank found.');
  MMouse(x, y, 5, 5);
  wait(100+random(50));
  Mouse(x, y, 1, 1, true);
  wait(5000+random(1000));
  AntiBan;
  AntiRandoms;
  wait(4500+random(1000));
  if FindObjCustom(x, y, ['se Ba', 'ank b', 'oth'], [605264, 3685438, 2313826, 6192526], 3) then
  begin
    MMouse(x,y,5,5);
    wait(100+random(50));
    Mouse(x,y,1,1,False);
    wait(1000+random(500))
    if ChooseOption('se-q') then
    begin
      TotalCount:= TotalCount + CountItemsIn('inv', 'dtm', FishDTM, []);
      TotalCount:= TotalCount + CountItemsIn('inv', 'dtm', Fish2DTM, []);
      TotalCount:= TotalCount + CountItemsIn('inv', 'dtm', Fish3DTM, []);
      wait(3500+random(500));
      deposit(1,28,true);
      wait(1500+random(500));
      if (EquipmentLost=1) then
      if not FindDTM(NetDTM,x,y,550,205,735,255) then
      begin
        if FindDTM(NetDTM,x,y,25,85,500,300) then
        begin
          MMouse(x,y,5,5);
          wait(100+random(50));
          Mouse(x,y,1,1,False);
          wait(400+random(100))
          ChooseOption('draw-1');
          EquipmentLost:= 0;
        end;
      end;
      if (EquipmentLost=2) then
      if not FindDTM(RodDTM,x,y,550,205,735,255) then
      begin
        if FindDTM(RodDTM,x,y,25,85,500,300) then
        begin
          MMouse(x,y,5,5);
          wait(100+random(50));
          Mouse(x,y,1,1,False);
          wait(400+random(100))
          ChooseOption('draw-1');
          EquipmentLost:= 3;
        end;
      end;
      if (EquipmentLost=3) then
      if not FindDTM(BaitDTM,x,y,550,205,735,255) then
      begin
        if FindDTM(BaitDTM,x,y,25,85,500,300) then
        begin
          MMouse(x,y,5,5);
          wait(100+random(50));
          Mouse(x,y,1,1,False);
          wait(400+random(100))
          ChooseOption('draw-al');
          EquipmentLost:= 0;
        end;
      end;
      MMouse(489,33,4,4);
      wait(100+random(50));
      Mouse(489,33,1,1,true);
      wait(1500+random(500));
    end;
  end;
if not EquipmentLost=0 then writeln('Could not find the needed equipment on bank.');
if not EquipmentLost=0 then logout;
MMouse(609,129,4,4);
wait(100+random(50));
Mouse(609,129,1,1,true);
AntiBan;
wait(6000+random(2000));
inc(netcount);
end;

procedure WithdrawFood;
begin
  if not LoggedIn then exit;
  if FindSymbol(x,y,'bank')then
  begin
    Writeln('Bank found.');
    MMouse(x, y, 5, 5);
    wait(100+random(50));
    Mouse(x, y, 1, 1, true);
    wait(5000+random(1000));
    AntiBan;
    AntiRandoms;
    wait(4500+random(1000));
    if FindObjCustom(x, y, ['se Ba', 'ank b', 'oth'], [605264, 3685438, 2313826, 6192526], 3) then
    begin
      MMouse(x,y,5,5);
      wait(100+random(50));
      Mouse(x,y,1,1,False);
      wait(1000+random(500))
      if not ChooseOption('se-q') then exit;
      if CTotalCount<TotalCount then
      begin
        wait(3500+random(500));
        deposit(1,28,true);
        wait(1500+random(500));
        if (FindDTM(ThinderDTM,x,y,25,85,500,300))then
        begin
          MMouse(x,y,5,5);
          wait(100+random(50));
          Mouse(x,y,1,1,False);
          wait(400+random(100))
          ChooseOption('draw-1');
          wait(400+random(100))
          if not FindDTM(ThinderDTM,x,y,550,205,735,255) then Writeln('Could not find ThinderBox in Inv.');
        end;
        if FindDTM(LogDTM,x,y,25,85,500,300) then
        begin
          MMouse(x,y,5,5);
          wait(100+random(50));
          Mouse(x,y,1,1,False);
          wait(400+random(100))
          ChooseOption('draw-1');
          wait(400+random(100))
          if not FindDTM(LogDTM,x,y,550,205,735,255) then Writeln('Could not find Logs in Inv.');
        end;
        repeat
        if FindDTM(FishDTM,x,y,25,85,77,125) then
        begin
          CookFish:= 1;
          MMouse(x,y,5,5);
          wait(100+random(50));
          Mouse(x,y,1,1,False);
          wait(400+random(100))
          ChooseOption('draw-All');
          wait(400+random(100));
          if not FindDTM(FishDTM,x,y,550,205,735,255) then
          begin
            if not FindDTM(FishDTM,x,y,25,85,77,125) then writeln ('No more fish found.')
          end;
          if not (CookFish= 1) then
          begin
            Writeln('Could not find any fish.');
            wait(1000+random(500));
            Writeln('Loggin out.');
            logout;
          end;
        end;
        until(FindDTM(FishDTM,x,y,630,415,690,465));
        if (CTotalCount=TotalCount) or (CTotalCount>TotalCount) then
        begin
          Writeln('All fish should now be cooked, Dropping burnt ones.');
          wait(3500+random(500));
          deposit(1,28,true);
          wait(1500+random(500));
          if  FindDTM(FishDTM,x,y,24,128,77,175) then
          begin
            CookFish:= 2;
            MMouse(x,y,5,5);
            wait(100+random(50));
            Mouse(x,y,1,1,False);
            wait(400+random(100))
            ChooseOption('draw-All');
            wait(400+random(100));
            if not FindDTM(FishDTM,x,y,550,205,735,255) then Writeln('Could not find burned fish in Inv.');
          end;
          if not (CookFish= 2) then
          begin
            Writeln('Could not find any burned fish.');
            wait(1000+random(500));
            Writeln('Loggin out.');
            logout;
          end;
        end;
        MMouse(489,33,4,4);
        wait(100+random(50));
        Mouse(489,33,1,1,true);
        wait(1500+random(500));
      end;
    MMouse(655,135,4,4);
    wait(100+random(50));
    Mouse(655,135,1,1,true);
    AntiBan;
    wait(6000+random(2000));
    end;
  end;
end;

Procedure CookTheFish;
begin
  GameTab(4);
  if not LoggedIn then exit;
  wait(750+random(250));
  CTotalCount:= CTotalCount + 26
  if FindDTM(ThinderDTM,x,y,550,205,735,255)then
  begin
    MMouse(x,y,5,5);
    wait(100+random(50));
    Mouse(x,y,1,1,True);
  end;
  if FindDTM(LogDTM,x,y,550,205,735,255)then
  begin
    MMouse(x,y,5,5);
    wait(100+random(50));
    Mouse(x,y,1,1,True);
  end;
  repeat
    wait(500+random(500))
  until FindBlackChatMessage('The fire catches and the logs begin to burn.') or FindBitmapMaskTolerance(LvlUpMask,x,y,0,340,520,480,2,2);
  begin
    if CookFish=1 then
    begin
      repeat
        if FindDTM(FishDTM,x,y,630,415,690,465)then
        begin
        MMouse(x,y,5,5);
        wait(100+random(50));
        Mouse(x,y,1,1,True);
        wait(100+random(50));
        end;
        if not FindObjCustom(x, y, ['Fire'], [471356, 2407159], 3) then break;
        wait(100+random(50));
        Mouse(x,y,1,1,True);
        wait(100+random(50));
        wait(1200+random(250));
        if FindBitmapMaskTolerance(CookMask,x,y,0,340,520,480,2,2) then
        begin
          MMouse(260,415,5,5);
          wait(500+random(250));
          Mouse(260,415,1,1,False);
          wait(400+random(100));
          if ChooseOption('Cook All') then
          wait(15000+random(5000));
        end;
      until FindBlackChatMessage('They heal some health.') or FindBlackChatMessage('You eat the ') or FindBitmapMaskTolerance(CantCookMask,x,y,0,340,520,480,2,2);
    end;
  end;
AntiRandoms;
AntiBan;
end;


procedure DropTheFish;
begin
  if not loggedin then exit;
  if CookFish=2 then
  begin
    for i := 1 to 28 do
    DropItem(i);
  end;
DFishCount:= DFishCount + 28 - CountItemsIn('inv', 'dtm', FishDTM, []);
end;

procedure ProgressReport;
begin
  if FishType='Net' then
  Begin
    writeLn('#######################################');
    writeLn('Draynor Fisher v. 1 ');
    writeLn('Ran for: ' + TimeRunning);
    writeLn('Fights evaded: ' + IntToStr(Ran));
    writeLn('Nets/Rods picked up/withdrew: ' + IntToStr(NetCount));
    writeLn('#######################################');
    Writeln('Total fish caught: ' + IntToStr(TotalCount) + ' out of ' + IntToStr(Players[CurrentPlayer].Integers[0]) + ' fish.');
    writeLn('Loads banked: ' + IntToStr(LoadCount));
    writeLn('#######################################');
if CookCaughtFish='Yes' then Writeln('Total fish cooked/Burned: ' + IntToStr(CTotalCount) + ' out of ' + IntToStr(Players[CurrentPlayer].Integers[0]) + ' fish.');
if CookCaughtFish='Yes' then writeLn('Loads banked: ' + IntToStr(CLoadCount));
if CookCaughtFish='Yes' then writeLn('Burned fish dropped: ' + IntToStr(DFishCount));
if CookCaughtFish='Yes' then writeLn('#######################################');
  end;
  if FishType='Bait' then
  Begin
    writeLn('#######################################');
    writeLn('Draynor Fisher v. 1 ');
    writeLn('Ran for: ' + TimeRunning);
    writeLn('Fights evaded: ' + IntToStr(Ran));
    writeLn('Nets/Rods picked up/withdrew: ' + IntToStr(NetCount));
    writeLn('#######################################');
    Writeln('Total fish caught: ' + IntToStr(TotalCount) + ' out of ' + IntToStr(Players[CurrentPlayer].Integers[0]) + ' fish.');
    writeLn('Loads banked: ' + IntToStr(LoadCount));
    writeLn('#######################################');
  end;
end;

begin
  cleardebug;
  init;
  SMARTSetupEx(2, False, True, False);
                    Wait(5000);
                    SetTargetDC(SmartGetDC);
                    repeat
                    wait(100);
                    until(SmartGetColor(253, 233)<>1118604);
  setupsrl;
  lampskill:='fishing'; //Change into any skill... make sure its written corretly!
  declareplayers;
  currentplayer:=0;
  logout;
  closefile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',true));
  loginplayer;
  Angle;
  Repeat
    if not loggedin then exit;
    WalkFish;
    CatchFish;
    WalkBank;
    Bank;
    if EquipmentLost> 0 then
    begin
      WithdrawEquipment;
    end;
    if (InvFull = True) then break;
    Cleardebug;
    ProgressReport;
  Until(TotalCount>= Players[CurrentPlayer].Integers[0]);
  if FishType='Net' then
  begin
  if CookCaughtFish='Yes' then
  begin
    CLoadCount:=0;
    repeat
      CookFish:=0;
      WithDrawFood;
      if not (CTotalCount=TotalCount) or (CTotalCount>TotalCount) then
      begin
        CookTheFish;
        WalkBank;
      end;
      if (CTotalCount=TotalCount) or (CTotalCount>TotalCount) then
      begin
        DropTheFish;
      end;
      CLoadCount:=CLoadCount+1;
      Cleardebug;
      ProgressReport;
    until(false)
  end;
  end;
logout;
end.

Sorry , i'm going to vote no.

Seems like you understand how to use DTM's though you must learn how to use walking techniques,

Mouse(609,129,1,1,true);

thats not good, that can be bannable. We would like to see TPA's/DDtms/RRW and other advance/intermediate kind of scripting, though looks like your aiming for the right direction.

D/w dude keep it up.
Keep working on the same script and improve it(thats what i did) and read tuts.

Thanks for reading my opinion. GL

alrite thanx for the advice ill try to integrate the advance techniques to either my other script im working on or my next update to this one. thanx agin

I like how you did your script. It looks a bit messy, but I like it. I just don't like how you did some of our walking, and how you used Mouse functions quite a lot. I I think I'm going to vote no, but great work, you're so close. If you don't get in, apply in one month with better standards and more advanced walking, and you'll get a yes from me.

It's messy, and it could be improved in a lot of ways, but seriously, he put a lot of work into this, the functions have some logic behind them, and I like his attitude on the forums. YES from me, best of luck to you.

no. just the cute drawing on the introduction of your script shows an attitude which is not favoured among srl members.

~RM

From: Rasta Magician
no. just the cute drawing on the introduction of your script shows an attitude which is not favoured among srl members.

~RM

I have to agree with RM :/


~Home

Sorry guys, I guess I went a little overboard on that one :(. I was just bored and wanted to add a little artwork that showed how I feel about Fagex, didn't think it would sway decisions that much.

Thanks for the vote pure, really big confidence boost. :D

And thanks to everyone else.

Find the fishing spot with TPAs, and use DDTM/RW walking and then i vote yes.
Atm, i must say no, but there isn't much missing!
Also, you don't free your bitmaps and dtms. And get rid of all bitmaps. You could do all those things with dtms.

Things to do to get my vote:
- more advanced fishing spot finding (TPA)
- real walking procedures, symbols are kinda phail
:)

now i must vote no.

From: Rasta Magician
no. just the cute drawing on the introduction of your script shows an attitude which is not favoured among srl members.

~RM

I dont even understand.

About the script, I am going to have to vote no, because of the walking procedures. It does have logic and many of the things we would look for, and you seem to have a good attitde (Major plus), but I would like to see you improve some more before I can vote yes.

You are on the right track though, keep it up and we will see your name in yellow in a month.

From: 3Garrett3
I dont even understand.

He edited it out. I won't paste what had been there as editing it out shows a change of attitude. However, i stay by my original vote.

~RM

Oh. Well I think that editting it out shows he didn't mean it ;)

I really like your attitude - and if you keep it up and combine that with a bit better script on your next app, you are guaranteed to get a yes from me next time. For now, I won't vote.

Try using a bit better object finding techniques, like taking advantage of TPointArrays.
They are really easy to understand, and even easier to use. There are a lot of tutorials on TPAs, you would become a far better SCAR scripter by reading one.

Not gonna vote, but I like your style (quick chat anyone? :p) but seriously, I do. Also have a good attitude (from what I've seen) and being that you are a CS major (assuming you didn't lie ;) ) is also a good thing because as stupid as is may seem, writing RS scripts really is good practice/experience ;)

I do have to say though, those walking procedures… =\ but besides that (since everyone else already mentioned it) one thing I wanna point out for you is when you did the MMouse() - wait - Mouse() I see what you were tryin to do, but instead of doing it like that, try this:

MMouse(x, y, 5, 5);
Wait(sometime);
GetMousePos(x, y);
Mouse(x, y, 0, 0, true);

This way the mouse doesn't move all over the place (a lil bottish)

Give it some time and practice and you'll be a member soon enough :p

The waits in MMouse and Mouse are superfluous; I like your attitude and it looks like you put quite some effort in the script.
Yes.

"How Long have You Played Runescape?
5 Year(s)"
Too long. No. Jk :p

A little bit too much global variables. For every one you use, a Swedish garden gnome will get killed in a horrible way, so try to use them as less as possible.
For the rest I like you and the script.

Yes from me.

Great app. some things:

(InvFull = true) or (LoggedIn = false)

change that to:

if InvFull or not LoggedIn then

for
CookCaughtFish and FishType don't use global const.
use players[].booleans[] in the declareplayers procedure because then some players can fish using nets and others can fish using fishing poles.

procedure WalkBank;
begin
  if not LoggedIn then exit;
  if not (InvFull = true) then exit;
  wait(1000+random(500))
  if(FindSymbol(x,y,'bank'))then
  begin    
    Writeln('Bank found.');
    MMouse(x, y, 5, 5);
    wait(100+random(50));
    Mouse(x, y, 1, 1, true);
    wait(5000+random(1000));
    AntiBan;
    AntiRandoms; 
    wait(4500+random(1000));
  end;
end;

you need some kind of failsafe just in case it doesn't make it to bank :/
Maybe make it a function and do this:

function WalkBank : boolean;
begin
  if not LoggedIn then exit;
  if not (InvFull) then exit;
  wait(1000+random(500))
  Result := FindSymbol(x,y,'bank');
  if Result then
  begin    
    Writeln('Bank found.');
    MMouse(x, y, 5, 5);
    wait(100+random(50));
    Mouse(x, y, 1, 1, true);//... will move mouse weirdly.. change randomness to 0, 0
    wait(5000+random(1000));
    AntiBan;
    AntiRandoms; 
    wait(4500+random(1000));
  end;
end;

then when you use it in script do something like

if walkbank then bank
  else WriteLn('Didn''t find bank symbol'); // you would need more 
//than one way to walk to the bank, 
//maybe try a dtm or make a tpa of the bankfloor color 
//and use tpabound and find the center of the tpa.

The code is really messy. You use if FishType = 'watever' a bunch of times. maybe use a case for each type?

But overall good. Yes from me :D!

If I made some errors, I will edit this post.

Uhm, one more of these.. Kinda tricky, no?

I vote yes, only becuase i didn't see no picture.

I vote yes, I think you'r attitude is good, and the script is good enough to get in. Good luck.