SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
Wade007 - SRL Member Application Form
Wade007

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
I used some HTML, some c++, And some javascript

Other Communitys
Gamefaqs

How Long have You Played Runescape
3 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Hi guys, I am a 12 year old from california(Almost 13), i started coding when i was 10 (Not scar) I used some HTML, and made my first website later in the year. Sadly i do not have it anymore, my host crashed.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program Willow_Chopper;
//{.include SRL/SRL/Misc/Smart.scar}
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}

  var
  YRoadDTM,Area,Tol:Integer;
  RoadMP: TDTMPointDef;
  RoadSP: array[0..3] of TDTMPointDef;
  RoadDTMSkel: TDTM;
  cx , cy , i , TreesChopped , loadsdone,x,y : Integer;
  loadz : string;
  MiniMapWillow , TreeBaseColors , Tries : Integer;
   Axe,BrokenAxe : Integer;

const
///Set up your colors below///
 WillowColor1 = 3238237;

 CurrentVersion  =  '3.0';// no need to change this.

 yourSRLID='';

 yourSRLPW='';

 WillowColor2 = 1915188;

 BoothColor1 = 671315;//You have to set these colors If it cannot find the bank booth

 BoothColor2 = 805217;

 BoothColor3 = 2841972;

 SmartWorldNumber = 125;

 Loads = 10;


Procedure DeclarePlayers;
begin
  HowManyPlayers := 2;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  
 //************ If you don't understand true or false, false means no, and true means yes. ************\\
  Players[0].Name := '';  // your username
  Players[0].Pass := ''; // your password
  Players[0].Nick := '';   // 3 or 4 letters of your username
  Players[0].Active := True;  //Are you using this character?

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := false;

end;


Procedure LoadBitmaps;
begin

       MiniMapWillow := BitmapFromString(9, 11, 'beNpjYCASyEfIQxCy' +
     'oISTDBABBfXTVIFIN0QBWRyIgCIQKQgiUsrCRgSCgGqAXIgUxGQzHTEgwupC8' +
     'qSIBQCNIhaH');
end;

procedure Ent_phrases;
begin
  case random(18) of
    0: Typesend('arg! stupied ent!');
    1: Typesend('lol, nub ent');
    2: Typesend('hahaha funny lil ent');
    3: Typesend('tree got mad, hahaha');
    4: Typesend('ents are funny');
    5: Typesend('OMG, stupied ent');
    6: Typesend('ffs dumb ent');
    7: Typesend('rofl ent got mad');
    8: Typesend('lamo, ent gone crazzy');
    9: Typesend('huhh.....');
    10: Typesend('ents are pointless to rs');
    11: Typesend('Why did jagex make ents?');
    12: Typesend('huh....ents are so useless');
    13: Typesend('hahaha, stupied lil ent');
    14: Typesend('oooo, an ent!');
    15: Typesend('aarrgg, dumb ent');
    16: Typesend('E N T !');
    17: Typesend('ent, noun, the most pointless thing to rs');
  end;
end;


function FFindEnt(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
var
  arUpTextEntColorPoints: TPointArray;
  x, y, EntTime, tcts: Integer;
begin
  if not(LoggedIn)then exit;
  GetMousePos(x, y);
  if(x <> fx)or(y <> fy)then
  mmouse(fx, fy, 0, 0);
  if(IsUpText('Chop'))then
  begin
    tcts := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorspeed2Modifiers(0.4, 0.4);
    FindColorsTolerance(arUpTextEntColorPoints, 51657, 80, 6, 127, 20, 5);
    Result := Length(arUpTextEntColorPoints) > 10;
    ColorToleranceSpeed(tcts);
  end;
  if(result)then
    begin
      MarkTime(EntTime);
      WriteLn('Ent Found!!');
      Writeln('Waiting for it to go away.');
      begin
        case random(2) of
          0: begin
               mouse(627, 86, 5, 5, true);
               mouse(627, 86, 10, 10, true);
               Ent_phrases;
               wait(750 + random(750));
               GameTab(4);
               wait(750 + random(750));
               FindNormalRandoms;
             end;
          1: begin
               DoEmote(4);
               wait(750 + random(750));
               Ent_phrases;
               wait(750 + random(750));
               Hoverskill('woodcutting', false);
               wait(750 + random(750));
             end;
        end;
      end;
      begin
      if (TimeFromMark(EntTime) < 35000) then
        case random(2) of
          0: begin
               if Random(10) > 8 then
               Hoverskill('woodcutting', false);
             end;
        end;
      end;
      Inc(EntsAvoided);
    end;
end;


Procedure FFindAxe;
begin
  Axe := DTMFromString('78DA6314616060606340012EA12E609A11CA6' +
    '7C4A1C606598D2090604155E31EE18EAA861F48B01350230C243850D' +
    '5D8FAD8A2AA01B9878B801A3120C18DAA264D8C17558D0490E044559' +
    '325CE87AA461C48B01250238AE9777B7F07143500B9170AC7');

   if FindDtm(Axe,x, y,547, 215, 596, 250) then
   begin
    writeln('Found it!')
   end else
   begin
    if FindObjCustom(x, y, ['booth', 'ooth'], [BoothColor1, BoothColor2], 3) then
      begin
       repeat
        Status('Banking');
        Mouse(x,y,2,2,false)
        chooseoption('Use-quickly')
        wait(1000)
       until(bankscreen)
         Begin
           for i := 1 to 28 do
            Begin
             if ExistsItem(i) then
              Begin
               MouseItem(i, false);
               ChooseOption('ll');
               Wait(1000 + random(500));
              end;
            end;
           end;
         end;
    if FindDtm(Axe,x, y,22, 65, 465, 286) then
    begin
     Mouse(x,y,2,2,true)
     closebank;
    end;
   end;
   FreeDTM(Axe)
end;





{****************************************************************************}
{Procedure BankWalk                                                          }
{By: Wade007                                                                 }
{Description: This will walk to to the bank                                  }
{****************************************************************************}


Procedure BankWalk;
  var
 Banks: Tpoint;
 begin
   RadialWalk(FindRoadColor,0,90,50,5,5)
   flag;
   FindSymbol(Banks.x,Banks.y,'bank')
   SymbolAccuracy := 0.1;
   writeln('Walking To bank!')
   Mouse(Banks.x,Banks.y,2,2,true)
   flag;
 end;
{****************************************************************************
Procedure WillowWalk
By: Wade007
Description: This will walk you to willows.
{****************************************************************************}

Procedure WillowWalk;
  var
  Fish :tpoint;
 begin
   Tol:=60;
   Area:=1;
   MiniMapWillow := BitmapFromString(9, 11, 'beNpjYCASyEfIQxCy' +
  'oISTDBABBfXTVIFIN0QBWRyIgCIQKQgiUsrCRgSCgGqAXIgUxGQzHTEgwupC8' +
  'qSIBQCNIhaH');
   TreeBaseColors := AutoColorThis(MiniMapWillow,255,MMX1,MMY1,MMX2,MMY2)

  RoadMP.x := 588;
  RoadMP.y := 107;
  RoadMP.AreaSize := 0;
  RoadMP.AreaShape := 0;
  RoadMP.Color := TreeBaseColors;
  RoadMP.Tolerance := Tol;

  RoadSP[0].x := 609;
  RoadSP[0].y := 122;
  RoadSP[0].AreaSize := Area;
  RoadSP[0].AreaShape := 0;
  RoadSP[0].Color := TreeBaseColors;
  RoadSP[0].Tolerance := Tol;

  RoadSP[1].x := 604;
  RoadSP[1].y := 135;
  RoadSP[1].AreaSize := Area;
  RoadSP[1].AreaShape := 0;
  RoadSP[1].Color := TreeBaseColors;
  RoadSP[1].Tolerance := Tol;

  RoadSP[2].x := 607;
  RoadSP[2].y := 153;
  RoadSP[2].AreaSize := Area;
  RoadSP[2].AreaShape := 0;
  RoadSP[2].Color := TreeBaseColors;
  RoadSP[2].Tolerance := Tol;

  RoadSP[3].x := 609;
  RoadSP[3].y := 123;
  RoadSP[3].AreaSize := Area;
  RoadSP[3].AreaShape :=0 ;
  RoadSP[3].Color := TreeBaseColors;
  RoadSP[3].Tolerance := Tol;

  RoadDTMSkel.MainPoint:=RoadMP;
  RoadDTMSkel.SubPoints:=RoadSP;
  YRoadDTM:=AddDTM(RoadDTMSkel);
   if (FindDTM(YRoadDTM,x, y,580, 102,619, 155)) Then
   begin
  Writeln('walking to willows');
  Mouse(x,y,2,2,true)
   end else
   begin
    RadialWalk(TreeBaseColors,150,270,50,5,5)
    flag;
    if(FindSymbol(Fish.x,Fish.y,'Fish'))then
    SymbolAccuracy := 0.2;
   begin
    writeln('Walking To Willows!')
    Mouse(Fish.x,Fish.y,2,2,true)
    flag;
   end;
 end;
end;
{*****************************************************************************
function InFight: Boolean;
By: WT-Fakawi
Description: Returns as True if in fight.
*****************************************************************************}

function InFight: Boolean;
var
  Health : Tpoint;
begin
    Result := (FindColor(Health.x, Health.y, 65280, 187, 133, 331, 197) or FindColor(Health.x, Health.y, 255,
    184, 131, 299, 221))
end;
{****************************************************************************
Procedure Depositing
By: the find and open bank part is by Wade007 and the deposit part is by frozen_soul
Description: This will deposit your logs.
*****************************************************************************}


procedure Depositing;
  begin
  Tries := 0;
  repeat
    if OpenBankQuiet('db') then
    begin
     OpenBankQuiet('db')
     end else
     begin
      Tries := tries+1;
      If (Tries = 30) then nextplayer(False);
     end;
  until(bankscreen)
           for i := 2 to 28 do
            Begin
             if ExistsItem(i) then
             Begin
               MouseItem(i, false);
               ChooseOption('ll');
                Wait(1000 + random(500));
               end;
             end;
         Wait(500 + random(250));
      closebank;
      FindNormalRandoms;
      loadsdone := loadsdone+1
      WillowWalk;
end;

{****************************************************************************
Procedure: ChopDemWillows
By: Wade007
Description: This Chops trees (DUH!)
*****************************************************************************}


Procedure ChopDemWillows;
 Begin
  repeat
    SetAngle(True)
    If (Not(LoggedIn)) Then Loginplayer;
    if FindObjCustom(x, y, ['Willow', 'llow'], [WillowColor1, WillowColor2], 3) then
      begin
      Status('Chopping Willows');
      if(FFindEnt(x,y,true)) then  WillowWalk;
      {Mouse(cx,cy,2,2,False)
      ChooseOption('hop')
       flag;}
             case random(2) of
           0: begin
            mouse(x,y,2,2,false);
            chooseoption('hop');
            flag;
            Tries := 0;
            end;
            1: begin
            Mouse(x,y,2,2,true)
            Tries := 0;
           end;
        end;
        MMouse(x,y,2,2);
        while Isuptext('Willow') do wait(500);
      TreesChopped := TreesChopped+1
      FindNormalRandoms;
 end else
  begin
    tries := tries+1;
    if (tries = 30)then
     begin
      Writeln('Could not find any trees :(')
      Writeln('Try changing the colors.')
     {NextPlayer(false);}
    end;
   end;
  Until(InvFull)
end;




{****************************************************************************
Procedure Proggy
By: Wade007
Description: This will print a proggy to the debug box.
*****************************************************************************}

Procedure Proggy;
begin
  Writeln('Thank you for using')
  Writeln('             |\     /|(  ___  )(  __  \ (  ____ \(  __   )(  __   )/ ___  \ ')
  Writeln('             | )   ( || (   ) || (  \  )| (    \/| (  )  || (  )  |\/   )  )')
  Writeln('             | | _ | || (___) || |   ) || (__    | | /   || | /   |    /  / ')
  Writeln('             | |( )| ||  ___  || |   | ||  __)   | (/ /) || (/ /) |   /  / ')
  Writeln('             | || || || (   ) || |   ) || (      |   / | ||   / | |  /  /   ')
  Writeln('             | () () || )   ( || (__/  )| (____/\|  (__) ||  (__) | /  /')
  Writeln('             (_______)|/     \|(______/ (_______/(_______)(_______) \_/      ''s Willow chopper')
  Writeln('Willow Chopper by wade007 has run for ' +TimeRunning)
  Writeln('Willow Chopper has Chopped ' +intToStr(TreesChopped)+ ' Trees')
  Writeln('We have done ' +inttostr(loadsdone)+ ' loads')
end;
Function Broken : boolean;
begin
   BrokenAxe := DTMFromString('78DA631466606060634001EE11EE0C22409A1' +
    '186416A5850D5B884BAC0D58000233F90604555E314E484AA860F48B' +
    '0A3AAD1B7D647552388A906C31C907BB850D558795AA1AA11C5EF2FB' +
    '01A314C7FA1AB010073680806');
   if FindDtm(BrokenAxe,x, y,562, 216, 591, 241) then
   begin
    NextPlayer(False);
   end;
 end;



{****************************************************************************
Procedure: Running
By: Wade007
Description: This TINY procedure will run away if it is in a fight.
*****************************************************************************}

Procedure Running;
begin
  If (InFight) then
    begin
      Writeln('We have found a fight! Running away!')
      Status('Running');
      BankWalk;
      wait(2000)
      WillowWalk;
    end else
     begin
       Exit;
     end;
   end;




{****************************************************************************
Procedure: SetUp
By: Wade007
Description: this will run when it is start up....
*****************************************************************************}


procedure SetUp;
begin
  ClearDebug;
  If(Not(LoggedIn)) then LoginPlayer;
  If (FindAxe) then
   begin
     Writeln('I have found your axe, continuing.')
   end else
    begin
      FFindAxe;
    end;
  ScriptID := '651';
  if not(yourSRLID = '') then SRLID := yourSRLID;
  if not(yourSRLPW = '') then SRLPassword := yourSRLPW;
  ReportVars[1] := Treeschopped;
  ReportVars[2] := LoadsDone;
  SRLRandomsReport;
  Writeln('We have sent the stats to the server.')
  If (GetPage('http://wade007.freehostia.com/Version.txt')) > CurrentVersion then
  begin
    Writeln('Hmm... Your version is not up to date. please get the new update from the topic.')
    Writeln('I hope to have a direct download link for this in the near future.')
    logout;
  end else
   begin
     writeln('You have the latest version, Continueing.')
   end;
end;

Procedure AntiBan;
Begin
 case random(10) of
          0: begin
              RandomRClick;
             end;
          1: begin
              GameTab(2)
              HoverSkill('Woodcutting',false);
             end;
          2: Begin
              PickUpMouse;
             end;
          3: Begin
              BoredHuman;
             end;
          end;
end;




{****************************************************************************
MAIN LOOP
Description: This is where it all begins... [/cheesy quote]
*****************************************************************************}
procedure MainLoop;
begin
  SetupSRL;
  DeclarePlayers
  LoadBitmaps;
 SetUp;
 repeat
  If (not (loggedIn)) then loginplayer;
  WillowWalk;
  FindNormalRandoms;
   repeat
    ChopDemWillows;
    Broken;
    findnormalrandoms;
    AntiBan
    Running;
    FindNormalRandoms;
   Until(InvCount = 28);
   if InvFull then
   begin
    Running;
    bankWalk;
    Flag;
    depositing;
    SetUp;
    ClearDebug;
    Proggy;
    i := +1
   if(inttostr(loadsdone) = loadz) then
    begin
     ClearDebug;
     Proggy;
     LoadsDone := 0;
     NextPlayer(True);
   end;
  end;
  until(false)// I didn't know what to put here.
end;


begin
// SmartSetupEx((SmartWorldNumber),false,false);
// SetTargetDC(SmartGetDC);
   SetupSRL;
   MainLoop
  end.

That is my willow chopper. here

{***************************INSTRUCTIONS***************************************
*******************************************************************************
*********************1. Setup your player(s) in the draynor bank***************
*********************2. Have a net/fishing pole and bank in you inventory******
*********************3. Press start and make some tea/coffee :) ***************
***************************/INSTUCTIONS****************************************}

program Drayor_Fisherman;
//{.include SRL/SRL/Misc/Smart.scar}
{.include srl/srl.scar}
{.include srl/srl/skill/fishing.scar}

var
 Tries, TreeBaseColors, minimapwillow , x , y , fishAttempts , cx , cy , i, loadsdone , Net , FishFished: integer;

const
 SmartWorldNumber = 125;

 yourSRLID='';
 yourSRLPW='';

 fishcolor1 = 14987387;//You have to set these colors if it cannot find the Fishing spot.
 fishcolor2 = 13874596;

 BoothColor1 = 805217;//You have to set these colors If it cannot find the bank booth
 BoothColor2 = 2709872;

 UseNet = False; // True if you are using a net. False if you are using bait.

 LoadsToDo = 4;

procedure DeclarePlayers;
begin

   HowManyPlayers := 2; //How many Players we are going to use.
   NumberOfPlayers(HowManyPlayers);
   CurrentPlayer :=0; //What Player To Start With

   Players[0].Name := 'Blindwizerd8';
   Players[0].Pass := 'joejoe';
   Players[0].Nick := 'ndwi';
   Players[0].Active := True;

   Players[1].Name := 'Blindwizerd7';
   Players[1].Pass := 'joejoe';
   Players[1].Nick := 'ndwi';
   Players[1].Active := True;

end;

Procedure Proggy;
begin
 Writeln('|><> ><> ><> ><> ><> ><> ><> ><> ><> ><> ><> ><> ><> ><>|')
 Writeln('|Fisherman has run for: ' +TimeRunning)
 Writeln('|Fisherman has done :' +IntToStr(LoadsDone)+ ' Loads' )
 Writeln('We have used : ' +IntToStr(HowManyPlayers) + 'Players')
 Writeln('Fisherman Has Fished : ' +IntToStr(FishFished) + 'Fish')
 Writeln('|<>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <>< <><|')
end;



Procedure FishWalk;
  var
  Fish : Tpoint;
 begin
  TreeBaseColors := AutoColorThis(MiniMapWillow,255,MMX1,MMY1,MMX2,MMY2)
  RadialWalk(TreeBaseColors,150,270,50,5,5)
  flag;
  if(FindSymbol(Fish.x,Fish.y,'Fish'))then
  SymbolAccuracy := 0.2;
   begin
    writeln('Walking To Fishies!')
    Mouse(Fish.x,Fish.y,2,2,true)
    flag;
  end;
end;


procedure loadbmps;
begin
       MiniMapWillow := BitmapFromString(9, 11, 'beNpjYCASyEfIQxCy' +
     'oISTDBABBfXTVIFIN0QBWRyIgCIQKQgiUsrCRgSCgGqAXIgUxGQzHTEgwupC8' +
     'qSIBQCNIhaH');

   Net := BitmapFromString(18, 14, 'beNpNUtlym0AQdL4heUgi2UEXx' +
     '2KKa1khDnELsEGyVMKx48TlJ///J6SXdSmp6prqXaZnemeQpKcmfj+XXUTejv' +
     'G5y66uPv3uw7vIBUksKfOtn/32oXCbhN8AG1NFfN7ZXRWCPJYWItLus/WwC//' +
     'sw6HPh91GJF9IEZqCCJxzExJBXroARERz+XW7sW2yFGl9aiO2oQE8FuYwdgTq' +
     'QIclFC89GRCXa0dPqR45chM6vCPTgF1M3w5pm7DKJ4htwf1UjEvuAi125ISSO' +
     'rBDW/7fHoq/7pNTaoAH5gIx9gwA9+CM3DSZf8gddrvaWByWJF2EeBcqw7kwX/' +
     'sKonLzhVpan/EbT7umppp6Gvgx959a/z6mQn4sKSyhAgjS+LStj1G4ppqtCch' +
     'pfAJyfh0SkG7rJa6CjvxT5Y31J1SdChjKTMgxB0hg7+Uh28f6cxuV45QAQ561' +
     'ozzydN/SPF0i8+84ytefxXv5IuoYo0OXoWbglCwjys042qKOjJwu2e3MVadAY' +
     'ClCUo3t1mQK1anhy8VP5SgTZiy0+Tfb+EjDsfBWfMspFWMUOxILEv8hM+b8uD' +
     'UDl/vUV1Lp898J+VBdJEL+z3NqB+P0oLKVCaK++sHT/gL5S3J0');


end;



{*******************************************************************************
Procedure FindFishingGear
By : Wade007
Description : Not working. I need a good banked net bmp or dtm.
*******************************************************************************}

{Procedure FindFishingGear;
begin
  if FindBitmapIn(Net,x, y,551, 214, 734, 456) then
   begin
   writeln('We have found the gear.')
   end else
   begin
     Writeln('We have NOT found the gear.')
     if FindObjCustom(cx, cy, ['booth', 'ooth'], [BoothColor1, BoothColor2], 3) then
      begin
      repeat
      Status('Banking');
      Mouse(cx,cy,2,2,false)
      chooseoption('Use-quickly')
      wait(1000)
       until(bankscreen)
         Begin
           for i := 1 to 28 do
            Begin
             if ExistsItem(i) then
              Begin
               MouseItem(i, false);
               ChooseOption('ll');
               Wait(1000 + random(500));
               FixBank;
               if FindBitmapIn(Net,x, y,22, 64, 465, 298) then
                begin
                 Mouse(x,y,2,2,true)
                 Writeln('We have unbanked the axe.')
                end;
               end;
             end;
         Wait(500 + random(250));
  end;
      closebank;
      loadsdone := loadsdone+1
      FishWalk;
  end;
   end;
end;    }




Procedure FishDemFish;
 Begin
   SetAngle(True)
   If (Not(LoggedIn)) Then Loginplayer;
     if FindObjCustom(x, y, ['ishing', 'pot'], [FishColor1, FishColor2], 3) then
       begin
        if (not(UseNet)) then
         begin
         Mouse(x,y,2,2,false);
         ChooseOption('ait')
         Wait(3000+random(200))
       end else
       begin
        Status('Fishing Fishies');
            case random(2) of
           0: begin
             if (UseNet) then
             begin
              mouse(x,y,2,2,false);
              chooseoption('Net');
              flag;
              fishAttempts := 0;
              wait(3000+random(400))
            end;
           end;
          1: begin
           Mouse(x,y,2,2,true)
           fishAttempts := 0;
           wait(1000+random(500))
          end;
       end;
     Wait(1000+random(800))
  end;
 end;
end;

procedure SaveReport;
 var
 myFile:integer;
 text:string;
   Begin
    myFile := rewriteFile(appPath+'Fisherman.txt',false);
    WriteFileString(myFile, '><> ><> ><> ><> ><> ><> ><> ><> ><> ><>');
    WriteFileString(myFile, '|           Fisherman               ');
    WriteFileString(myFile, '|           Version 1.0             ');
    WriteFileString(myFile, '|        -Progress Report-          ');
    WriteFileString(myFile, '|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
    WriteFileString(myFile, '| Did ' + IntToStr(LoadsDone) + ' Loads');
    WriteFileString(myFile, '| Worked For ' + (timerunning));
    WriteFileString(myFile, '|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
    WriteFileString(myFile, '|      Post all your proggies     ');
    WriteFileString(myFile, '|    You have no excuse not to.  ');
    WriteFileString(myFile, '<>< <>< <>< <>< <>< <>< <>< <>< <>< <><');
    CloseFile(myFile);
    myFile:=OpenFile(ScriptPath+'Fisher man.txt',false);
    writeln(text);
    CloseFile(myfile);
end;


Procedure BankWalk;
  var
 Banks: Tpoint;
 begin
  RadialWalk(FindRoadColor,0,90,50,5,5)
  flag;
   FindSymbol(Banks.x,Banks.y,'bank')
   SymbolAccuracy := 0.1;
   writeln('Walking To bank!')
   Mouse(Banks.x,Banks.y,2,2,true)
   flag;

  end;


Procedure AntiBan;
Begin
 case random(20) of
          0: begin
              MouseSpeed := MouseSpeed+random(4)
             end;
          1: Begin
              PickUpMouse;
             end;
          2: Begin
              BoredHuman;
             end;
          end;
end;




{****************************************************************************
Procedure Depositing
By: the find and open bank part is by Wade007 and the deposit part is by frozen_soul
Description: This will deposit your fishies.
*****************************************************************************}


procedure Depositing;
  begin
  Tries := 0;
  repeat
    if OpenBankQuiet('db') then
    begin
     OpenBankQuiet('db')
     end else
      begin
       Tries := tries+1;
       If (Tries = 30) then nextplayer(False);
     end;
     until(bankscreen)
           for i := 2 to 28 do
            Begin
             if ExistsItem(i) then
             Begin
               MouseItem(i, false);
               ChooseOption('ll');
                Wait(1000 + random(500));
               end;
             end;
         Wait(500 + random(250));
      closebank;
      FindNormalRandoms;
      loadsdone := loadsdone+1
      WillowWalk;
end;

{*****************************************************************************
function InFight: Boolean;
By: WT-Fakawi Barely Modified by Wade007
Description: Returns as True if in fight.
*****************************************************************************}

function InFight: Boolean;
var
  Health : Tpoint;
begin
  Result := (FindColor(Health.x, Health.y, 255, 184, 131, 299, 221) or FindColor(Health.x, Health.y, 255,
    184, 131, 299, 221))
end;

{****************************************************************************
Procedure: Running
By: Wade007
Description: This TINY procedure will run away if it is in a fight.
*****************************************************************************}

Procedure Running;
begin
  If (InFight) then
    begin
      Writeln('We have found a fight! Running away!')
      Status('Running');
      BankWalk;
      wait(5000+random(500))
      FishWalk;
    end else
     begin
       Exit;
     end;
   end;

Procedure Setup;
begin
  If (Not(LoggedIn)) Then Loginplayer;
  ScriptID := '712';
  if not(yourSRLID = '') then SRLID := yourSRLID;
  if not(yourSRLPW = '') then SRLPassword := yourSRLPW;

   SRLRandomsReport;
   Writeln('We have sent the stats to the server!')
end;

begin
// SmartSetupEx((SmartWorldNumber),false,false);
  //  SetTargetDC(SmartGetDC);
  ActivateClient;
  DeclarePlayers
  ClearDebug;
  SetupSRL;
  LoadBmps
  Setup
  if (Not(LoggedIn)) Then LoginPlayer;
  FishWalk
  Repeat
   repeat
    running
    FishDemFish;
    Disguise(timerunning)
    FindNormalRandoms;
    AntiBan;
   until(InvFull)
   bankWalk;
   Depositing;
  // SaveReport; Not working at the moment.
   Proggy;
   setup
   FishWalk
 Until(IntToStr(LoadsDone) = IntToStr(LoadsToDo))
 NextPlayer(True)
end.
//Many fish were gutted in the making of this script :)

That is my bait and net fishing script, it is fairly reliable.
Thank you for your time

——————————————————
<!– END TEMPLATE: formanswers –>

Failsafes. There arent any. Only the If (Not(LoggedIn) then Exit, which is pretty basic.

Erm.. With the Fishing one, Why no DTM's? No failsafes again.
Your Fishing one is pretty basic. And with the Bank Booth Thing? Cant you Pick the colours, the bank booth colours are practically always the same.

If you take out credited procedures, then there is a pretty basic script there.

No offence either, but I dont think you made that Ent Procedure, looking at your other stuff…

Im voting Yes, but if you used DTM's, Failsafes and better standards it could easily be a definate yes from me. Im voting Yes because of the Benefit of the doubt. My acceptence was pretty shakey too.

PASSWORD IN SCRIPT. PM'ed New Password.


Good Luck getting in.

Maybe. STANDARDS :|

Oh, sorry, i forgot to credit the findent procedure to osmm!

Mmhm. FOr some reason I doubt you will get many yes'

I mean, there is alot of flaws with your scripts, and not everyone is as kind as me.

meh. it's ok. they are both good scripts but no failsafes. i think i'll vote yes. standards pl0x?

Suggestions:

- Add more failsafes

- Learn standars

Yes from me, good luck.

You need some fail safes, fail safes, standards, Fail safes, Did I say fail safes?

You have good use of tpoints and some othe stuff for members.

But one thing, you don't need those lines for opening the bank, you could just simple do

OpenBankFast('db');
 OR
OpenBankQuient('db');

But you need failsafes and some standards, which are both quite important things, I'll think about it and vote later.

Thanks for the tip, i tried that at first, but it didn't work so well, i will change it now.


EDIT: I tried to put in standards, I am not sure how good they are

I've finished thinking about what I'll vote….














Yes

Thank you very much Dude Richard!
And BTW, i am working on a Rimmington chopper and seller, I started this morning and it is only 15% done, i hope to have it finished by next Monday!

Yes.

Until(IntToStr(LoadsDone) = IntToStr(LoadsToDo))

looked kinda odd…

What this does is:
It turns the numbers to text and compares them. Yes it does work, but its useless when u can just do

Until(LoadsDone = LoadsToDo)

;)

else it looks kinda nice. Im just gonna wait and see what the others say.

Oh, thanks Jukka and Negaal!

@Jukka, Thanks for the advice, but i think i got errors when i tried that before, not sure though

Yes from me.

Whoa… I just got a yes from wizzup? … I will mark this down in history…
Wizzup? I have always looked up to you, just to let you know…


EDIT: Hey guys, I have come up with a BETA version of my Rimmington Cut and Sell. Do not judge your votes on this, just have a look

program RimmingtonCutAndSell;
//{.include SRL/SRL/Misc/Smart.scar}
{.include srl/srl.scar}

var
x,y,i,shop,tries,treeschopped,ShopPeople,LoadsDone,ShopScreenDTM,TreeTime:integer;
Coord : Tpoint;

const
 SmartWorldNumber = 125;
 KeeperColor1 = 2768703;
 KeeperColor2 = 5338256;
 WillowColor1 = 1915188;
 WillowColor2 = 3238237;
 Loads = 10;


Procedure DeclarePlayers;
begin
  HowManyPlayers := 2;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  
  Players[0].Name := '';  // your username
  Players[0].Pass := ''; // your password
  Players[0].Nick := 'dwiz';   // 3 or 4 letters of your username
  Players[0].Active := True;  //Are you using this character?

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := false;

end;

Function MyShopScreen : boolean;
begin
  ShopScreenDTM := DTMFromString('78DA63E4606060106240014B8205195280342' +
    '310FF07D12C986A4E9469C3D530C0D4F0A3AA395BA58FAA861D4808A' +
    '0AAD9182B82AA860B53CDA2405E54357C986A72341831D508A3AA895' +
    '64453C30B244409A8E1061262A86A6A8C20B230350003E30D6F');

  If (FindDTM(ShopScreenDTM,x,y,437, 48,495, 90)) Then
   begin
     Result := True;
     Writeln('The shopScreen has been found.')
  end;
 end;

Procedure WalkTree;
begin
 SymbolAccuracy := 0.1;
 if FindSymbol(x,y,'Arrow') then
  begin
   Mouse(x,y,2,2,true)
   Flag;
   RadialWalk(FindWaterColor,90,170,59,5,5)
  end else
   begin
    FindSymbol(x,y,'quest')
    Mouse(x,y,2,2,true)
    Flag;
    RadialWalk(FindWaterColor,100,150,59,5,5)
   end;
end;

Procedure StartUp;
begin
  Writeln('   Thank You for using')
  Wait(950)
  Writeln('    Wade007''s Rimmington Cut and sell!')
  Wait(950)
  Writeln('     Please Post all your proggies where')
  Wait(950)
  Writeln('      You got the script!')
  Wait(2000+random(700)) //Just for kicks
  ActivateClient;
   If Not(LoggedIn) Then LoginPlayer;
end;

Procedure Shopping;
begin
 SetRun(True)
 RadialWalk(FindRoadColor,290,359,60,5,5)
// RadialWalk(FindRoadColor,290,330,50,5,5)
 if FindSymbol(Coord.x,Coord.y,'shop') then
  begin
   Mouse(Coord.x,Coord.y,4,4,true)
  end else
   begin
    Shop := DTMFromString('78DA63E4616060006124B03E5E124C3342F98' +
    'C20792E4C3529C86A0430CD6977614655C30B24F80898C309247851D' +
    '51CA837C054C34D400D0E3723FB0B0023960AF0');
    FindDTM(Shop,Coord.x,Coord.y,MMX1, MMY1, MMX2, MMY2)
    Mouse(Coord.x,Coord.y,4,4,true)
    Flag;
   end;
   Flag;
     ShopPeople := DTMFromString('78DA6364636060606640017FFE30816946289' +
    'F11A4860955CDBF7FC20C29C86AD8B1A9E14355C38169D7DDBB0C98E' +
    '6B0A2AA3973064D0D489E05D3CD186A98F1BB1900A3201017');
    FindDTM(ShopPeople,Coord.x,Coord.y,552, 41,699, 118)
    Mouse(Coord.x,Coord.y,2,2,true)
    flag;
    Wait(1000+random(2000))
     repeat
     Tries := 0;
     if FindObjCustom(x, y, ['Shop', 'Shopkeeper'], [KeeperColor1, KeeperColor2], 3) then
       begin
         Mouse(x,y,2,2,false)
         ChooseOption('Trade')
         for i := 3 to 28 do
             Begin
              if ExistsItem(i) then
              Begin
                MouseItem(i, false);
                ChooseOption('Sell 50');
                 Wait(1000 + random(500));
                 Writeln('We have sold a load of willows')
                end;
              end;
       end else
       Tries := Tries+1;
       If Tries = 40 then
        begin
         Writeln('Cannot find the shopkeeper, Changing players.')
         Nextplayer(false)
         end;
        Until(MyShopScreen)
  end;


Procedure TreeWalk;
begin
  LoadsDone := LoadsDone+1;
  RadialWalk(FindRoadColor,100,180,60,5,5)
  WalkTree;
end;

procedure Ent_phrases;
begin
  case random(18) of
    0: Typesend('arg! stupied ent!');
    1: Typesend('lol, nub ent');
    2: Typesend('hahaha funny lil ent');
    3: Typesend('tree got mad, hahaha');
    4: Typesend('ents are funny');
    5: Typesend('OMG, stupied ent');
    6: Typesend('ffs dumb ent');
    7: Typesend('rofl ent got mad');
    8: Typesend('lamo, ent gone crazzy');
    9: Typesend('huhh.....');
    10: Typesend('ents are pointless to rs');
    11: Typesend('Why did jagex make ents?');
    12: Typesend('huh....ents are so useless');
    13: Typesend('hahaha, stupied lil ent');
    14: Typesend('oooo, an ent!');
    15: Typesend('aarrgg, dumb ent');
    16: Typesend('E N T !');
    17: Typesend('ent, noun, the most pointless thing to rs');
  end;
end;


function FFindEnt(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
var
  arUpTextEntColorPoints: TPointArray;
  x, y, EntTime, tcts: Integer;
begin
  if not(LoggedIn)then exit;
  GetMousePos(x, y);
  if(x <> fx)or(y <> fy)then
  mmouse(fx, fy, 0, 0);
  if(IsUpText('Chop'))then
  begin
    tcts := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorspeed2Modifiers(0.4, 0.4);
    FindColorsTolerance(arUpTextEntColorPoints, 51657, 80, 6, 127, 20, 5);
    Result := Length(arUpTextEntColorPoints) > 10;
    ColorToleranceSpeed(tcts);
  end;
  if(result)then
    begin
      MarkTime(EntTime);
      WriteLn('Ent Found!!');
      Writeln('Waiting for it to go away.');
      begin
        case random(2) of
          0: begin
               mouse(627, 86, 5, 5, true);
               mouse(627, 86, 10, 10, true);
               Ent_phrases;
               wait(750 + random(750));
               GameTab(4);
               wait(750 + random(750));
               FindNormalRandoms;
             end;
          1: begin
               DoEmote(4);
               wait(750 + random(750));
               Ent_phrases;
               wait(750 + random(750));
               Hoverskill('woodcutting', false);
               wait(750 + random(750));
             end;
        end;
      end;
      begin
      if (TimeFromMark(EntTime) < 35000) then
        case random(2) of
          0: begin
               if Random(10) > 8 then
               Hoverskill('woodcutting', false);
             end;
        end;
      end;
      Inc(EntsAvoided);
    end;
end;

Procedure ChopDemWillows;
 Begin
  repeat
    SetAngle(True)
    If (Not(LoggedIn)) Then Loginplayer;
    if FindObjCustom(x, y, ['Willow', 'llow'], [WillowColor1, WillowColor2], 3) then
      begin
       Status('Chopping Willows');
       if(FFindEnt(x,y,true)) then  exit;
       {Mouse(cx,cy,2,2,False)
       ChooseOption('hop')
        flag;}
             case random(2) of
           0: begin
             mouse(x,y,2,2,false);
             chooseoption('hop');
             flag;
             Tries := 0;
             end;
            1: begin
             Mouse(x,y,2,2,true)
             Tries := 0;
            end;
         end;
         MMouse(x,y,2,2);
          MarkTime(TreeTime)
          repeat
           Wait(5000+Random(500))
            If InvFull Then exit;
          until(Not(Isuptext('Willow') or IsUpText('illow') or IsUpText('llow')))
             if TimeFromMark(TreeTime) = 30000 then
          begin
            Writeln('Willow Chopping')
             TreesChopped := TreesChopped+1;
             if (not(InvFull)) then ChopDemWillows;
             end else
              begin
               Exit;
              end;
       TreesChopped := TreesChopped+1;
 end else
  begin
    tries := tries+1;
    if (tries = 30)then
     begin
      Writeln('Could not find any trees :(')
      Writeln('Try changing the colors.')
     {NextPlayer(false);}
    end;
   end;
  Until(InvFull)
end;



begin
// SmartSetupEx((SmartWorldNumber),false,false);
// SetTargetDC(SmartGetDC);
 While Not(SmartReady) Do Wait(100);
 SetupSRL;
 DeclarePlayers;
 If not(LoggedIn) then LoginPlayer;
 StartUp;
 Repeat
  repeat
   ChopDemWillows;
   FindNormalRandoms;
  until(Invfull)
 Shopping;
 TreeWalk;
 Until(IntToStr(LoadsDone) = IntToStr(Loads))
end.

The walking to the trees is a bit "iffy" if i could get some tips on that, that would be great!

EDIT: Who voted no? Would you at least say why?

Um, guys, why did i not make it in? more than 50% of my votes are yes, what did i do wrong? I am sorry for the double post…

From: Wade007
Whoa… I just got a yes from wizzup? … I will mark this down in history…
Wizzup? I have always looked up to you, just to let you know…

Sucking up won't help you get in by the way.

Poll is closed? Meh.

From: GoF
Sucking up won't help you get in by the way.

Poll is closed? Meh.

A little bit too basic imho :s

I think you'll need to do it better, no failsafes or nothing. I think I'm going to vote not.

Btw, I'll PM you in some mins..

-Tsn.

From: GoF
Sucking up won't help you get in by the way.

Poll is closed? Meh.

I wasn't sucking up, I was telling the truth…

From: Wade007
I wasn't sucking up, I was telling the truth…

Check your inbox..

-Tsn.

I have a new version! (Of the rimmington chopper and seller)

program RimmingtonCutAndSell;
//{.include SRL/SRL/Misc/Smart.scar}
{.include srl/srl.scar}

var
x,y,i,shop,tries,treeschopped,ShopPeople,LoadsDone,ShopScreenDTM,TreeTime:integer;
Coord : Tpoint;

const
 SmartWorldNumber = 125;
 KeeperColor1 = 2768703;
 KeeperColor2 = 5338256;
 WillowColor1 = 1915188;
 WillowColor2 = 3238237;
 Loads = 12;


Procedure DeclarePlayers;
begin
  HowManyPlayers := 2;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  
  Players[0].Name := '';  // your username
  Players[0].Pass := ''; // your password
  Players[0].Nick := '';   // 3 or 4 letters of your username
  Players[0].Active := True;  //Are you using this character?

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := false;

end;

function InFight: Boolean;
var
  Health : Tpoint;
begin
    Result := (FindColorTolerance(Health.x, Health.y, 255, 187, 133, 331, 197,50) or FindColorTolerance(Health.x, Health.y, 65280,
    184, 131, 299, 221,50))
end;

Function MyShopScreen : boolean;
begin
  ShopScreenDTM := DTMFromString('78DA63E4606060106240014B8205195280342' +
    '310FF07D12C986A4E9469C3D530C0D4F0A3AA395BA58FAA861D4808A' +
    '0AAD9182B82AA860B53CDA2405E54357C986A72341831D508A3AA895' +
    '64453C30B244409A8E1061262A86A6A8C20B230350003E30D6F');

  If (FindDTM(ShopScreenDTM,x,y,437, 48,495, 90)) Then
   begin
     Result := True;
     Writeln('The shopScreen has been found.')
  end;
 end;

Procedure WalkTree;
begin
 SymbolAccuracy := 0.1;
 if FindSymbol(x,y,'Arrow') then
  begin
   Mouse(x,y,2,2,true)
   Flag;
   RadialWalk(FindWaterColor,90,170,59,5,5)
  end else
   begin
    FindSymbol(x,y,'quest')
    Mouse(x,y,2,2,true)
    Flag;
    RadialWalk(FindWaterColor,100,150,59,5,5)
   end;
end;

Procedure Responda;
begin
 If inchat('Hey') then
  begin
   Case Random(3) of
   0: TypeSend('Hi');
   1: TypeSend('Hai');
   2: TypeSend('Hey');
  end;
 end else exit;
 If Inchat('Whats up?') then
  begin
   Case Random(3) of
   0: TypeSend('nm');
   1: TypeSend('What does it look like?');
   2: TypeSend('WoodCutting, sheesh');
  end;
 end else exit;
 If Inchat('Oh') or Inchat ('o') then
  begin
   Case Random(3) of
   0: TypeSend('ya');
   1: TypeSend('Yeah');
   2: Typesend('ye');
  end;
 end else exit;
 If Inchat('bot') or Inchat('macro') or Inchat('macroer') then
  begin
   Case Random(3) of
   0: TypeSend('I am not a bot, bots don''t talk');
   1: TypeSend('I hate autoers!');
   2: TypeSend('if you think i am a bot, then you are mistaken!');
  end;
 end else exit;
end;


Procedure StartUp;
begin
  Writeln('   Thank You for using')
  Wait(950)
  Writeln('    Wade007''s Rimmington Cut and sell!')
  Wait(950)
  Writeln('     Please Post all your proggies where')
  Wait(950)
  Writeln('      You got the script!')
  Wait(2000+random(700)) //Just for kicks
  ActivateClient;
   If Not(LoggedIn) Then LoginPlayer;
end;

Procedure AntiBan;
Begin
 Case random(15) of
  0: HoverSkill('Woodcutting',false);
  1: PickupMouse;
  2: RandomRclick;
  3: AlmostLogout;
 end;
End;


Procedure Shopping;
begin
 SetRun(True)
 RadialWalk(FindRoadColor,290,359,60,5,5)
// RadialWalk(FindRoadColor,290,330,50,5,5)
 SymbolAccuracy := 0.1;
 If FindSymbol(coord.x, coord.y,'Water') then
  begin
   Mouse(Coord.x,Coord.y,2,2,true);
   flag;
  end;
 if FindSymbol(Coord.x,Coord.y,'shop') then
  begin
   Mouse(Coord.x,Coord.y,2,2,true)
   Flag;
  end else
   begin
    Shop := DTMFromString('78DA63E4616060006124B03E5E124C3342F98' +
    'C20792E4C3529C86A0430CD6977614655C30B24F80898C309247851D' +
    '51CA837C054C34D400D0E3723FB0B0023960AF0');
    FindDTM(Shop,Coord.x,Coord.y,MMX1, MMY1, MMX2, MMY2)
    Mouse(Coord.x,Coord.y,4,4,true)
    Flag;
   end;
    Flag;
     ShopPeople := DTMFromString('78DA6364636060606640017FFE30816946289' +
    'F11A4860955CDBF7FC20C29C86AD8B1A9E14355C38169D7DDBB0C98E' +
    '6B0A2AA3973064D0D489E05D3CD186A98F1BB1900A3201017');
     FindDTM(ShopPeople,Coord.x,Coord.y,584, 49,656, 88)
     Mouse(Coord.x,Coord.y,1,1,true)
     flag;
     GameTab(4)
     Wait(1000+random(2000))
      Tries := 0;
      repeat
      if FindObjCustom(x, y, ['Shop', 'Shopkeeper'], [KeeperColor1, KeeperColor2], 3) then
        begin
          Mouse(x,y,2,2,false)
          ChooseOption('Trade')
          Flag;
          While Not (ShopScreen) do wait(500);
          for i := 3 to 28 do
              Begin
               if ExistsItem(i) then
               Begin
                 MouseItem(i, false);
                 ChooseOption('Sell 50');
                  Wait(1000 + random(500));
                  Writeln('We have sold a load of willows')
                 end;
               end;
        end else
        Tries := Tries+1;
        If Tries = 40 then
         begin
          Writeln('Cannot find the shopkeeper, Changing players.')
          Nextplayer(false)
          end;
         Until(ShopScreen)
   end;

 Procedure TreeWalk;
 begin
   LoadsDone := LoadsDone+1;
   RadialWalk(FindRoadColor,100,180,60,5,5)
   WalkTree;
 end;

 Procedure Running;
 begin
  If (InFight) then
    begin
      Writeln('We have found a fight! Running away!')
      Status('Running');
      Shopping;
      TreeWalk;
      WalkTree;
    end else
     begin
       Exit;
     end;
   end;


procedure Ent_phrases;
begin
  case random(18) of
    0: Typesend('arg! stupied ent!');
    1: Typesend('lol, nub ent');
    2: Typesend('hahaha funny lil ent');
    3: Typesend('tree got mad, hahaha');
    4: Typesend('ents are funny');
    5: Typesend('OMG, stupied ent');
    6: Typesend('ffs dumb ent');
    7: Typesend('rofl ent got mad');
    8: Typesend('lamo, ent gone crazzy');
    9: Typesend('huhh.....');
    10: Typesend('ents are pointless to rs');
    11: Typesend('Why did jagex make ents?');
    12: Typesend('huh....ents are so useless');
    13: Typesend('hahaha, stupied lil ent');
    14: Typesend('oooo, an ent!');
    15: Typesend('aarrgg, dumb ent');
    16: Typesend('E N T !');
    17: Typesend('ent, noun, the most pointless thing to rs');
  end;
end;


function FFindEnt(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
var
  arUpTextEntColorPoints: TPointArray;
  x, y, EntTime, tcts: Integer;
begin
  if not(LoggedIn)then exit;
  GetMousePos(x, y);
  if(x <> fx)or(y <> fy)then
  mmouse(fx, fy, 0, 0);
  if(IsUpText('Chop'))then
  begin
    tcts := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorspeed2Modifiers(0.4, 0.4);
    FindColorsTolerance(arUpTextEntColorPoints, 51657, 80, 6, 127, 20, 5);
    Result := Length(arUpTextEntColorPoints) > 10;
    ColorToleranceSpeed(tcts);
  end;
  if(result)then
    begin
      MarkTime(EntTime);
      WriteLn('Ent Found!!');
      Writeln('Waiting for it to go away.');
      begin
        case random(2) of
          0: begin
               mouse(627, 86, 5, 5, true);
               mouse(627, 86, 10, 10, true);
               Ent_phrases;
               wait(750 + random(750));
               GameTab(4);
               wait(750 + random(750));
               FindNormalRandoms;
             end;
          1: begin
               DoEmote(4);
               wait(750 + random(750));
               Ent_phrases;
               wait(750 + random(750));
               Hoverskill('woodcutting', false);
               wait(750 + random(750));
             end;
        end;
      end;
      begin
      if (TimeFromMark(EntTime) < 35000) then
        case random(2) of
          0: begin
               if Random(10) > 8 then
               Hoverskill('woodcutting', false);
             end;
        end;
      end;
      Inc(EntsAvoided);
    end;
end;

Procedure ChopDemWillows;
 Begin
  repeat
    SetAngle(True)
    If (Not(LoggedIn)) Then Loginplayer;
    if FindObjCustom(x, y, ['Willow', 'llow'], [WillowColor1, WillowColor2], 3) then
      begin
       Status('Chopping Willows');
       if(FFindEnt(x,y,true)) then  exit;
       {Mouse(cx,cy,2,2,False)
       ChooseOption('hop')
        flag;}
             case random(2) of
           0: begin
             mouse(x,y,2,2,false);
             chooseoption('hop');
             flag;
             Tries := 0;
             end;
            1: begin
             Mouse(x,y,2,2,true)
             Tries := 0;
            end;
         end;
         MMouse(x,y,2,2);
          MarkTime(TreeTime)
          repeat
           Wait(5000+Random(500))
            If InvFull Then exit;
          until(Not(Isuptext('Willow') or not(IsUpText('illow') or Not(IsUpText('llow')))))
             if TimeFromMark(TreeTime) = 20000 then
          begin
            Writeln('Willow Chopping')
             TreesChopped := TreesChopped+1;
             if (not(InvFull)) then ChopDemWillows;
             end else
              begin
               Exit;
              end;
       TreesChopped := TreesChopped+1;
 end else
  begin
    tries := tries+1;
    if (tries = 30)then
     begin
      Writeln('Could not find any trees :(')
      Writeln('Try changing the colors.')
     {NextPlayer(false);}
    end;
   end;
  Until(InvFull)
end;

Procedure Proggy;
Begin
  Writeln('/==========================\')
  Writeln('/ Thank You for using Wade007''s\')
  Writeln('/ Rimmington Cut & Sell!\')
  Writeln('/ We have run for' + TimeRunning + '\')
  Writeln('/ We have done ' +IntToStr(LoadsDone) + ' Loads out of ' +IntToStr(Loads) + ' \ ' )
  Writeln('/==========================\')
End;



begin
// SmartSetupEx((SmartWorldNumber),false,false);
// SetTargetDC(SmartGetDC);
// While Not(SmartReady) Do Wait(100);
 SetupSRL;
 DeclarePlayers;
 If not(LoggedIn) then LoginPlayer;
 StartUp;
 Disguise('Rimmington Cut And Sell')
 Repeat
  repeat
   Running;
   ChopDemWillows;
   FindNormalRandoms;
   Responda;
  until(Invfull)
 Shopping;
 TreeWalk;
 AntiBan;
 Proggy;
 Until(IntToStr(LoadsDone) = IntToStr(Loads))
 Writeln('We have done all the loads')
end.

Why post it here, you should just release it in Jnr Mem scripts.

Well, i wanted you guys to look it over, and whenever i post something in the junior member scripts, nobody looks at it.


EDIT: Will someone close this and let me in already? I have waited for 2 weeks!

EDIT2: W00T! I am a king black dragon!

Ok, I am really sorry for the double post, But nobody would pay any attention to this post if i just edited it.

When will this close? I have waited for 2 weeks and that is supposed to be the max!

The poll is closed and you're not a Member, put 2 and 2 together and you didn't get in. Apply again in a month and everything else that goes with it :)

First Script Analysis



One= Never leave a space between your constants becuase as…..someone says 'Scrolling is Evil!!!'.

Two=

procedure Ent_phrases;
begin
  case random(18) of
    0: Typesend('arg! stupied ent!');
    1: Typesend('lol, nub ent');
    2: Typesend('hahaha funny lil ent');
    3: Typesend('tree got mad, hahaha');
    4: Typesend('ents are funny');
    5: Typesend('OMG, stupied ent');
    6: Typesend('ffs dumb ent');
    7: Typesend('rofl ent got mad');
    8: Typesend('lamo, ent gone crazzy');
    9: Typesend('huhh.....');
    10: Typesend('ents are pointless to rs');
    11: Typesend('Why did jagex make ents?');
    12: Typesend('huh....ents are so useless');
    13: Typesend('hahaha, stupied lil ent');
    14: Typesend('oooo, an ent!');
    15: Typesend('aarrgg, dumb ent');
    16: Typesend('E N T !');
    17: Typesend('ent, noun, the most pointless thing to rs');
  end;
 Exit;
end;

Looks fine I've added an exit, otherwise it will keep on spamming :).
Also you could make this an array as so:

Procedure Respond;
var
EntPhrases : Array [0..17] of String;
Begin
  EntPhrases[0] := 'blah blah'; .. so on!

Three=

Function Broken : boolean;
begin
   BrokenAxe := DTMFromString('78DA631466606060634001EE11EE0C22409A1' +
    '186416A5850D5B884BAC0D58000233F90604555E314E484AA860F48B' +
    '0A3AAD1B7D647552388A906C31C907BB850D558795AA1AA11C5EF2FB' +
    '01A314C7FA1AB010073680806');
   if FindDtm(BrokenAxe,x, y,MIX1,MIY1,MIX2,MIY2) then
   begin
    NextPlayer(False);
   end;
 end;

Why make it a function? It doesn't give a result? Also try and use the co-ords manually inputted in SRL.

Here we go:

{  IMPORTANT STUFF!!!
   MIX/MIY := Co-ords of the inventory
   MSX/MSY := Co-ords of the main screen
   MMX/MMY := Co-ords 0f the mini map
   MCX/MCY := Co-ords of the chatbox
}

Four=

{****************************************************************************
Procedure: Running
By: Wade007
Description: This TINY procedure will run away if it is in a fight.
*****************************************************************************}
 
Procedure Running;
begin
  If (InFight) then
    begin
      Writeln('We have found a fight! Running away!')
      Status('Running');
      BankWalk;
      wait(2000)
      WillowWalk;
    end else
     begin
       Exit;
     end;
   end;

Why make extra beginnings and ends? InFight will exit already if it can't find a fight. Last 4 lines of that is useless.

So you could shorten it:

{****************************************************************************
Procedure: Running
By: Wade007
Description: This TINY procedure will run away if it is in a fight.
*****************************************************************************}
 
Procedure Running;
begin
  If (InFight) then
    begin
      Writeln('We have found a fight! Running away!')
      Status('Running');
      BankWalk;
      wait(2000+Random(3000))
      WillowWalk;
    end;
end;

Also you must use a random wait in that or INsta-Ban.

Five= Anti Ban fine, standards make me want to kill someone :p. Might want to make it Random?

Procedure AntiBan;
Begin
 case random(10) of
    0: begin
          RandomRClick;
        end;
    9: begin
          GameTab(2)
          HoverSkill('Woodcutting',false);
        end;
    3: Begin
         PickUpMouse;
        end;
    7: Begin
          BoredHuman;
       end;
    end;
end;

Six= Main Loop at the end needs a ';'.

end…..


Second Script Analysis

One=

Procedure FishWalk;
  var
  Fish : Tpoint;
 begin
  TreeBaseColors := AutoColorThis(MiniMapWillow,255,MMX1,MMY1,MMX2,MMY2)
  RadialWalk(TreeBaseColors,150,270,50,5,5)
  flag;
  if(FindSymbol(Fish.x,Fish.y,'Fish'))then
  SymbolAccuracy := 0.4;
   begin
    writeln('Walking To Fishies!')
    Mouse(Fish.x,Fish.y,2,2,true)
    fflag(0);
  end;
end;

Always use FFlag(0), Flag has a bug in it, i think. Nevr use symbolaccuracy 0.2 otherwise it will click anywhere 0.4 is the lowest you should go :).


Two= Standards need to be update drastically.
Never use SymbolAcurracy 0.1 otherwise Wizz and me will come round your house and kill you! :p.


Three= MainLoop will repeat for ever must make it logout :).




Yeah but on a positive note: Every one starts of like this, and you seem to have approved alot since I saw your script :).

Keep working

Yes :).


Edit: Oops the poll is closed by bad.

Apply within 2-4 weeks read these tuts they might help :).



SRL memberz Tut!


Static ArrAYS TUT


Might want to have a look at all the other tuts.



Good work :)



P.S
Someone Close???

IMO, I think there haven't been enough votes to see if he gets members or not. Re-open the poll to get more votes?

Pm'ed wizzy he should come and sort this out :S

Dude, he isn't srl members worthy at all.. he even doesn't uses function in a proper way (or even not at all:p), which is pretty basic..

I'm sick of those stupid applies, sorry to say that, but there are a lot applications sent to us that are really not srl member worthy (like special ed said once, i think it was he).

Hmm, what about making a video tut of the basic elements of scar?
I think I'll do that some time, when time allows me:rolleyes:

-Tsn.

EDIT: It's mostly about that new version release xD

I am sorry Wade, you don't get in this time.
You got alot of yes-votes. But in my opinion not enough members have voted on this application to provide a realistic view.
Try again in two weeks!