SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
cobal

Other Communitys
sythe

How Long have You Played Runescape
3 years

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

I have been scripting for a year and a bit now, I have learnt loads since I
joined and have created about 5 to 10 scripts. Before I came to Srl-forums I
was autoing using programs like macros but I realised these were very
detectable and didn’t work very well. Since I started scripting I have read
loads of tutorials trying to make my scripts as good and undetectable as
possible! I have been working on a script that cuts yes in Rimminton and
have decided to apply for SRL Members with it.

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

///////////////////////////////////////////////
//                                           //
// _        _   ___          ________        //
// \\      //  ¦_  ¦        ¦  ______¦       //
//  \\    //     ¦ ¦        ¦ ¦______        //
//   \\  //      ¦ ¦        ¦______  ¦       //
//    \\//      _¦ ¦_   __   ______¦ ¦       //
//     \/      ¦_____¦ ¦__¦ ¦________¦       //
//                                           //
//-------------------------------------------//
//             INSTRUCTIONS                  //
//                                           //
//PLM'S Rimmington Yew cutter                //
//Start in faldore east bank or at trees     //
//dont start at the faldore trees            //
//preferably bank booth nearest the left     //
//set loads to do                            //
//only change the colors if they dont work   //
//post bugs and improvements to 'poolikemax' //
//enter user name, pass and nick             //
//select silent or setup smart               //
//Now uses my own tree finder                //
//for best results run on fire fox           //
//select were start // Tree or Bank          //
//          //enjoy//                        //
///////////////////////////////////////////////
              
program Rimmington_Yew_Cutter;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.Include SRL\SRL.SCAR}
{.include SRL/SRL/Skill/Woodcutting.scar}

var
x,y,Tries,fightings,ents,LoadsDone, Loads, LogsCut, TotalLogs : Integer;

const
SRLStatsID  = '';              //srl stats username (leave blank if none)
SRLStatsPW  = '';             //srl stats pass (leave blank if none)
Loadstodo = 10;               //How many loads to chop and bank before logging out
bankboothcolor1 = 3759737;  //a color on the bank booth only change if the banking dosnt work
bankboothcolor2 = 4612985; //another color on the bank booth only change if the banking dosnt work
yewcolour = 1329980;      //green color on yew tree only change if script cant find a yew
yewcolour2 = 3959682;    //wood color on yew tree only change if script cant find a yew



//*************************************************************************//
               //////////////
               //**player**//
               //*username*//
               //*and pass*//
               //////////////

procedure DeclarePlayers;
begin
 HowManyPlayers :=1; //How many players to use in script
 NumberOfPlayers(HowManyPlayers);
 CurrentPlayer :=0;

 Players[0] .Name         := 'username';   // Username
 Players[0] .Pass         := 'password';   // Pass
 Players[0] .Nick         := 'ser';       //3/4 of the characters name (bobbey = bbey)
 Players[0] .Active       := True;       // Is player active?   True=yes, False=no
 Players[0] .Booleans[1]  := False;     // False for brightness Check Once. Just leave at false.
 Players[0] .Strings[0]   := '';       // Bank PIN, If any. leave blank if none
 Players[0] .Strings[1]   := 'Both';  //'Both' to chop rimminton trees and faly trees//'Rimm' to chop just rimmington trees
 Players[0] .Loc          := 'Bank'  //Bank or Tree // Capital first letter plz

End;

//**********************************************************************************//

procedure SetUpSmart;
begin
SMARTSetupEx(63 {world}, False {F2P}, True {signed keep true}, False {detail keep false});

////////////////////////////////////////////////////////////////////////////
//////////////////////////// NO MORE EDITING ///////////////////////////////
////////////////////////////////////////////////////////////////////////////

  Wait(5000);
  SetTargetDC(SmartGetDC);
  repeat
    wait(100);
  until(SmartGetColor(253, 233)<>1118604);
End;

//*******************************************************************************//

procedure sig;
begin
  Wait(500);
  Writeln('  @@@@@@@@     %%                      %%%%        %%%%');
  Wait(500);
  Writeln('  @@    @@     %%                     %%  %%      %%  %%');
  Wait(500);
  Writeln('  @@    @@     %%                    %%    %%    %%    %%');
  Wait(500);
  Writeln('  @@@@@@@@     %%                   %%      %%  %%      %%');
  Wait(500);
  Writeln('  @@           %%                  %%        %%%%        %%');
  Wait(500);
  Writeln('  @@           %%                 %%                      %%');
  Wait(500);
  Writeln('  @@       *   %%%%%%%%%%%%   *  %%                        %%');
  Wait(500);
  writeln('          *                  *                                 ');
  wait(500);
end;
//***************************************************************************//

procedure Progress;
begin
writeln('<\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/>');
writeln('<  @@@@@@@@     %%                      %%%%        %%%%       >');
writeln('<  @@    @@     %%                     %%  %%      %%  %%      >');
writeln('<  @@    @@     %%                    %%    %%    %%    %%     >');
writeln('<  @@@@@@@@     %%                   %%      %%  %%      %%    >');
writeln('<  @@           %%                  %%        %%%%        %%   >');
Writeln('<  @@           %%                 %%                      %%  >');
writeln('<  @@       *   %%%%%%%%%%%%   *  %%                        %% >');
writeln('<          *                  *                                >');
writeln('</\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\>');
Writeln('<===================PLMs RIMMINGTON YEW CUTTER=================>');
Writeln('<========================Progress Report=======================>');
Writeln('<-------------------------------------------------------------->');
Writeln('<this script has run for '+ (TimeRunning) +' wow>');
Writeln('<************your pixalated player has done ' + IntToStr(Loads) +' Loads***********>');
Writeln('<*********your player has Cut ' + IntToStr(TotalLogs) + ' logs! great succsess*********>');
writeln('<******your player has got into ' + IntToStr(fightings) +' fights what a hard man*******>');
writeln('<*********your player has avioded '+ IntToStr(ents) +' ENTS great succsess********>');
Writeln('<==      ==      ==      ==      ==      ==      ==      ==    >');
writeln('<  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  ==  >');
writeln('<    ==      ==      ==      ==      ==      ==      ==      ==>');
writeln('<""""""""""""""PLEASE POST PROGGEY TO (poolikemax)""""""""""""">');
writeln('<***********************THANKS 4 USEING************************>');
writeln('<\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/>');
end;

//*************************************************************************//

procedure DoProggie;
begin
  If (IsFKeyDown(12)) Then

    begin
      writeln('writeing progress report');
      progress;
    End;
End;

//**************************************************************************//

{------------------------------------------------------------------------------]
[ function IsUpTextYellow(Text: string): Boolean;                              ]
[ by: n3ss3s                                                                   ]
[ Description: Checks whether the 'Text' is yellow at the top-left corner.     ]
{------------------------------------------------------------------------------}
function IsUpTextYellow(Text: string): Boolean;
begin
  if (not(LoggedIn)) then Exit;
  if (IsUpText(Text)) then
  begin
    SetColorSpeed2Modifiers(0.4, 0.4);
    Result := CountColorTolerance(51657, 82, 4, 130, 22, 5) >= 10;
    SetColorSpeed2Modifiers(0.2, 0.2);
  end;
  Writeln('IsUpTextYellow gave ' + BoolToStr(Result));
end;

//*************************************************************************//

procedure AvoidEnt;
begin
  Writeln('found ent avoiding');
  Mouse(627, 84 , 5, 5, True);
  Flag;
  Wait(10000+random(10000));
  Writeln('avoided ent');
  Ents := Ents+1;
  ReportVars[0] := ReportVars[0] + 1;    //--> Report Varable
  SendSRLReport;
End;

//**********************************************************************//

Procedure EntFinder;
Begin
  if not LoggedIn then
  Exit;
  if FindEnt( x, y, true) then
  begin
    AvoidEnt;

  End;
End;

//*************************************************************************//

Procedure TalkAboutWc;
Begin
  Case Random(200) Of
    0: TypeSend('woodcutting is so boring');
    1: TypeSend('wc is well borin');
    2: TypeSend('ahh im so bord of wc');
  End;
End;

//*****************************************************************************//

procedure AntiRandoms;
begin
  if not LoggedIn then
  Exit;
  FindNormalRandoms;
  FTWait(2);
  if FindFight then
  begin
    writeln('found fight running away');
    RunAway('N', True, 1, 6500);
    writeln('ran away from fight safe now');
    fightings:=fightings+1;
    ReportVars[1] := ReportVars[1] + 1;    //--> Report Varable
    SendSRLReport;

    Repeat
      if (FindSymbol(x, y, 'tree')) then
      Begin
        Mouse(x, y, 0, 0, true);
        FTWait(4);
        Flag;
      End Else
        Begin
          Writeln('looking for tree simble tryintg again');
        End;

            Tries := Tries + 1;
            if(Tries = 20)then
            Begin
              Writeln('couldnt find tree Terminating script');
              Progress;
              TerminateScript;
            End;

    until(FindSymbol(x, y, 'tree'))
    Writeln('at tree well done');
  End;
End;

//*****************************************************************************//

Procedure AntiBan;
Begin
  Case Random(10) Of
    0: RandomRClick;
    1: BoredHuman;
    2: HoverSkill('Woodcutting', False);
    3: PickUpMouse;
    4: RandomMovement;
    5: TalkAboutWc;
  end;
end;

//****************************************************************************//

Procedure RandomsAndBan;
Begin
  AntiRandoms;
  Wait(500);
  AntiBan;
  Wait(500);
  AntiRandoms;
  gametab(4);
End;

//***************************************************************************//

Procedure ChangeAngle;
Begin
  if not LoggedIn then
  Exit;
    Case Random(2) Of

    0:begin
      wait(500);
      KeyDown(VK_RIGHT);
      writeln('changeing angle looking for trees');
      wait(750+random(500));
      KeyUp(VK_Right);
      wait(500);
      End;

    1:begin
      wait(500);
      KeyDown(VK_Left);
      writeln('changeing angle looking for trees');
      wait(750+random(500));
      KeyUp(VK_Left);
      wait(500);
      End;

    2:begin
      Wait(500);
      writeln('couldnt find tree searching again');
      End;

    End;
End;

//***************************************************************************//

procedure BrbBank;
begin
  writeln('going bank');
    case random(10) of
    0: typesend('brb going to bank');
    1: typesend('just goin 2 da bank');
    2: typesend('im going to bank brb');
    3: typesend('i will brb just need to go to the bank');
    4: typesend('brb going on the long walk to bank');
    5: typesend('brb');
    End;
End;

//*************************************************************************//

Procedure EnterPin;
begin

  if (BankScreen) or (PinScreen) then
    begin
      repeat
        if not LoggedIn then
          Exit;
          if (PinScreen) then

          begin
            WriteLn('Found PinScreen, entering pin');
            If PinScreen Then
          begin
            Writeln('putting in pin');
            InPin(Players[CurrentPlayer].Strings[0]);
            Wait(200+random(500));
          End;
        End;

        Wait(500);
      until (BankScreen);
    End;
End;

//************************************************************************//

procedure LogInBank;
begin
  MMouse(x, y, 2, 2);
  Wait(500+random(500));
    If (IsUpText('ew')) or
    (IsUpText('Ye'))then
  begin
    Mouse( x, y, 2, 2, False);
    FTWait(8);
    ChooseOption('Deposit-All');
    FTWait(8);
  End Else
    begin
      Writeln('couldt find any yews to bank');
    End;
End;

//***************************************************************************//

procedure BankLog;
var YewLogDTM : integer;
begin
  YewLogDTM := DTMFromString('78DA63CC64626008646440068E861C0CFF813' +
       '448F43F1030A603D578A0AA81C8C248201D0B54134C404D22504D' +
       '240135F940355104D41413614E35504D080135654035BE44D8E58' +
       'A5F0D00F5DF0C5D');
  if (FindDTM(YewLogDTM, x, y, MIX1, MIy1, MIx2, MIy2)) then
  begin
    Wait(500+random(150));
    MMouse(x, y, 0, 0);
    LogsCut := ItemAmount('inv', 'dtm', YewLogDTM, []);
    TotalLogs:= (TotalLogs + LogsCut);
    ReportVars[3] := ReportVars[3] + (LogsCut);    //--> Report Varable
    SendSRLReport;
    GetMousePos(X, Y);
    Writeln('banking yews');
    LogInBank;
  End;
  FreeDTM(YewLogDTM);
End;


//**************************************************************************//

procedure BankItems;
Begin
  EnterPin;
  if (bankscreen) then

    begin
      FixBank;
      BankLog;
      Deposit(2, 28, true);
      FTWait(4);
      CloseWindow;
    End;
End;

//**************************************************************************//

procedure WalkInBank;
begin
  repeat
    FindBank('feb');

    Tries := Tries + 1;
  Until (BankScreen) or (Tries > 20)
    if(Tries = 20)then


      begin
        Writeln('couldnt bank trying a different way');
        Repeat
          if not LoggedIn then
          Exit;
          if (FindSymbol(x, y, 'bank')) then

          Begin
            Mouse( x, y, 0, 0, true);
            FTWait(4);
            Flag;
          End Else

            Begin
              Writeln('looking for bank simble tryintg again');
            End;

          Tries := Tries + 1;
          if(Tries = 20)then
            Begin
              Writeln('couldnt find bank Terminating script');
              Progress;
              TerminateScript;
            End;

        until(FindSymbol(x, y, 'bank'))

          Writeln('at bank well done');
      End;

End;

//*************************************************************************//

procedure Bank;
begin
  DoProggie;
  EnterPin;
  if (bankscreen) then
  begin
   bankitems;
  End Else
  begin
    repeat

        if FindObjCustom(x, y, ['ank', 'ooth'], [bankboothcolor1,bankboothcolor2], 7) then
        begin
          Mouse( x, y, 0, 0, False)
          FTWait(8);
          Flag;
          ChooseOption('Use-quickly')
          FTWait(10);
        End Else

        begin
          Writeln('couldnt find bank! trying again');
        End;

        Tries := Tries + 1;
        if(Tries = 20)then
        begin
          Writeln('couldnt bank lost! Terminating script');
          progress;
          TerminateScript;
        End;
    Until (BankScreen) or (PinScreen)
    BankItems;
  End;
End;

//***************************************************************************//

Procedure ChopingWaiting;
Begin
  if not LoggedIn then
  Exit;
    EntFinder;
    FindBirdsNest;
    Randomsandban;
    Wait(500+random(250));
    EntFinder;
    FindBirdsNest;
    Wait(500+random(250));
    EntFinder;
    FindBirdsNest;
    Wait(500+random(250));
    EntFinder;
    FindBirdsNest;
    Wait(500+random(250));
    EntFinder;
    FindBirdsNest;
    Randomsandban;
    Gametab(4);
End;

//**************************************************************************//

procedure ClickTree;
begin

 if not (LoggedIn) then
 Exit;

   if (IsUpText('ew')) then
   begin
     Case Random(2) Of

      0: Begin                      //clicks tree once
           wait(100);
           MMouse( x, y, 2, 2);
           wait(100);
           Mouse( x, y, 2, 2, true);
           wait(100);
         End;

      1: Begin                      //hovers around the tree before clicking
           Wait(100);
           MMouse( x, y, 2, 2);
           wait(100);
           MMouse( x, y, 2, 2);
           wait(100);
           Mouse( x, y, 2, 2, true);
           wait(100);
         End;

      2: Begin                      //doble clicks the tree
           Wait(100);
           MMouse( x, y, 2, 2);
           wait(100);
           Mouse( x, y, 2, 2, true);
           wait(50+random(100));
           Mouse( x, y, 2, 2, true);
           wait(100);
         End;
     End;
   End Else
   Writeln(' couldnt find the tree');

End;


//**************************************************************************//

procedure FindYewTree;


begin
  if not (LoggedIn) then
  Exit;





        repeat
          if FindObjCustom(x, y, ['Ye', 'ew'], [Yewcolour, yewcolour2], 7) then
          begin

            MMouse( x, y, 0, 0);
            Wait(200);
            if (IsUpText('ew')) then
            begin
              If (IsUpTextYellow('ew')) then
              Begin
                AvoidEnt;
                EntFinder;
              End Else
              Begin
                MMouse( x, y, 0, 0);
              End;
            End;
          End Else
          //--//--//
            begin

              writeln('couldnt find Tree! trying again');
            End;

            Tries := Tries + 1;
            if(Tries = 20)then

              begin
                Tries := 0;
                ChangeAngle;
              End;

          until (IsUpText('ew'))
          ClickTree;

End;

//**************************************************************************//

Procedure ChopTree;
begin
  repeat
    if not(LoggedIn) then
    Exit;

    FindYewTree;
    Flag;
    ChopingWaiting;
    FindBirdsNest;
    Gametab(4);
    until( InvFull ) or (IsFKeyDown(3)) or (IsFKeyDown(12));;;
    if ( InvFull) then
      begin
        writeln('finnished chopping');
        Makecompass('n');
        Gametab(4);
      End;

End;

//************************************************************************//

procedure ChopTreeTime;
begin

  if not LoggedIn then
  Exit;
    ChopTree;
    Gametab(4);
      if (InvFull) then
      begin

        MakeCompass('n');
      End Else
      begin
        repeat
          ChopTree;
          Gametab(4);
        until( InvFull )
        MakeCompass('n');
      End;
End;

//***************************************************************************//

//-----------------------------------------------------------------------------------------//
//Function PLMsRoadWalk( TheColour, StartAngle, EndAngle, Distance, Xmod, Ymod, Terminate );//
//Made By: Poolikemax                                                                      //
//Description: My adapted version of RadialWalk, it calls RadialWalk but if it dosnt result//
//true then it will search 10 times. Then if it dosnt result True it will Terminate the    //
//Script or continue depending on The 'Terminate' Boolean (True = Terminate)               //
//-----------------------------------------------------------------------------------------//

Function PLMsRoadWalk( TheColour: Integer; StartAngle, EndAngle: Integer; Distance: Integer; Xmod, Ymod: Integer; Terminate: Boolean): Boolean;

var WalkTrys: integer;
var FindWalk: Boolean;

begin
  FindWalk := False;
  WalkTrys := 0;
    If RadialWalk( TheColour , StartAngle, EndAngle, Distance, Xmod, Ymod) Then
      begin
        Findwalk := True;
        Result := True;
        FTWait(4);
        Flag;
      End Else
        begin
          repeat
            WalkTrys := WalkTrys +1
              If RadialWalk( TheColour , StartAngle, EndAngle, Distance, Xmod, Ymod) Then
                begin
                  Result := True;
                  FindWalk := True;
                  FTWait(4);
                  Flag;
                End Else
                  Begin
                    Writeln('Coldnt find road, Trying again');
                  End;
          Until(FindWalk = True) or (WalkTrys = 10)
            If (WalkTrys = 10) then
              begin
                If Terminate then
                  begin
                    Progress;
                    Writeln('Coldnt find road, LOST! Terminating script');
                    TerminateScript;
                    Result := False;
                  End Else
                    Writeln('didnt find road to walk to');
              End;
                If (FindWalk = True) then
                  begin
                    Result := True;
                  End;
        End;
End;

//************************************************************************//

procedure StartWalkingToTrees;
begin
  if not LoggedIn then
  Exit;
  SetRun(true);
  SetAngle(true);
  MakeCompass('n');
  gametab(4);

    PLMsRoadWalk( FindFallyRoadColor , 195, 240, 70, 2, 2, True);
    FTWait(12);
    Flag;

    PLMsRoadWalk( FindFallyRoadColor ,150, 185, 70, 2, 2, True);


    FTWait(4);
    Flag;

    PLMsRoadWalk( FindFallyRoadColor , 160, 185, 70, 2, 2, False);
    FTWait(4);
    Flag;
End;

//*******************************************************//

procedure ContinueWalkingToTrees;
Begin
  PLMsRoadWalk( FindRoadColor , 130, 170, 70, 2, 2, True);
  FTWait(4);
  Flag;

  PLMsRoadWalk( FindRoadColor , 170, 200, 70, 2, 2, True);
  FTWait(4);
  Flag;

  PLMsRoadWalk( FindRoadColor , 160, 200, 70, 2, 2, True);
  FTWait(4);
  Flag;

  PLMsRoadWalk( FindRoadColor , 270, 300, 70, 2, 2, True);
  FTWait(4);
  Flag;

  PLMsRoadWalk( FindRoadColor , 220, 250, 70, 2, 2, True);
  FTWait(4);
  Flag;

  PLMsRoadWalk( FindRoadColor , 195, 225, 70, 2, 2, True);
  FTWait(4);
  Flag;

  PLMsRoadWalk( FindRoadColor , 210, 265, 70, 2, 2, True);
  FTWait(4);
  Flag;

  PLMsRoadWalk( FindRoadColor , 215, 265, 70, 2, 2, True);
  FTWait(4);
  Flag;

    Tries := 0;
    Repeat
    if (FindSymbol(x, y, 'tree')) then
    Begin
      Mouse( x, y, 0, 0, true);
      FTWait(4);
      Flag;
    End Else
      Begin
        Writeln('looking for tree simble tryintg again');
      End;

          Tries := Tries + 1;
          if(Tries = 20)then
          Begin
            Writeln('couldnt find tree Terminating script');
            progress;
            TerminateScript;
          End;

  until(FindSymbol(x, y, 'tree'))
  Writeln('at tree well done');
End;

//***************************************************************//

procedure Walk2Trees;
var  x,y : integer;
begin
  if not LoggedIn then
  Exit;
  SetRun(true);
  SetAngle(true);
  MakeCompass('n');
  gametab(4);

    PLMsRoadWalk( FindFallyRoadColor , 195, 240, 70, 2, 2, True);
    FTWait(12);
    Flag;

    PLMsRoadWalk( FindFallyRoadColor ,150, 185, 70, 2, 2, True);
    FTWait(4);
    Flag;

    PLMsRoadWalk( FindFallyRoadColor , 160, 185, 70, 2, 2, True);
    FTWait(4);
    Flag;

    PLMsRoadWalk( FindRoadColor , 180, 210, 70, 2, 2, True);
    FTWait(4);
    Flag;

    PLMsRoadWalk( FindRoadColor , 170, 200, 70, 2, 2, True);
    FTWait(4);
    Flag;

    PLMsRoadWalk( FindRoadColor , 160, 200, 70, 2, 2, True);
    FTWait(4);
    Flag;

    PLMsRoadWalk( FindRoadColor , 270, 300, 70, 2, 2, True);
    FTWait(4);
    Flag;

    PLMsRoadWalk( FindRoadColor , 220, 250, 70, 2, 2, True);
    FTWait(4);
    Flag;

    PLMsRoadWalk( FindRoadColor , 195, 225, 70, 2, 2, True);
    FTWait(4);
    Flag;

    PLMsRoadWalk( FindRoadColor , 210, 265, 70, 2, 2, True);
    FTWait(4);
    Flag;

    PLMsRoadWalk( FindRoadColor , 215, 265, 70, 2, 2, True);
    FTWait(4);
    Flag;

      Repeat
      if (FindSymbol(x, y, 'tree')) then
      Begin
        Mouse( x, y, 0, 0, true);
        FTWait(4);
        Flag;
      End Else
        Begin
          Writeln('looking for tree simble tryintg again');
        End;

            Tries := Tries + 1;
            if(Tries = 20)then
            Begin
              Writeln('couldnt find tree Terminating script');
              progress;
              TerminateScript;
            End;

    until(FindSymbol(x, y, 'tree'))
    Writeln('at tree well done');
End;

//**************************************************************************//

procedure FindFallyYew;

Begin


  Writeln('checking if tree is up');

  if PLMsRoadWalk(GetSymbolColor(x, y, 'Rare Tree'), 220, 265, 75, 2, 2, False) then
  begin
    FTWait(4);
    Flag;
  End Else
    Begin

      Mouse( 568, 124, 0, 0, True);
      FTWait(4);
      Flag;
    End;

    if not (LoggedIn) then
    Exit;


    repeat
      if FindObjCustom(x, y, ['Ye', 'ew'], [Yewcolour, yewcolour2], 7) then
      begin

        MMouse( x, y, 0, 0);
        Wait(200);
        if (IsUpText('ew')) then
        begin
          If (IsUpTextYellow('ew')) then
          Begin
            AvoidEnt;
            EntFinder;
          End Else
          Begin
            ClickTree;
            Flag;
            ChopingWaiting;
            FindBirdsNest;
            ChopingWaiting;
          End;
        End;
      End Else
      //--//--//
        begin
          Writeln('couldnt find Tree! trying again');
          Tries := Tries + 1;
        End;


    until (Tries >= 20);

        if(Tries = 20)then
          begin
            Tries := 0;
            ContinueWalkingToTrees;
          End;

    End;

//**********************************************************//

procedure WhereToWalk;
Begin
  If Players[CurrentPlayer].Strings[1] = 'Both' then
    begin
      StartWalkingToTrees;
      FindFallyYew;
      ContinueWalkingToTrees;
    End;
    
    If Players[CurrentPlayer].Strings[1] = 'Rimm' then
      Walk2Trees;
End;

//***********************************************************************//

Function Look4Flag: Boolean;
var
  findflag : integer;
begin
  if (not FindColor(x, y, 255, MMX1, MMY1, MMX2, MMY2)) then
  begin

    repeat
      Wait(100);
      findflag:= findflag+1

    until (FindColor(x, y, 255, MMX1, MMY1, MMX2, MMY2)) or (findflag > 20) ;
      Flag;
      Result := True;
      if (findflag > 20) then
      begin
        writeln('couldnt find flag didnt walk anywere useing cords');
        Result := False;
        Mouse(685, 52, 1, 1, true);
        FTWait(4);
        Flag;
      End;
  End;
End;

//************************************************************************//

procedure StartWalk2Bank;
begin
  If PLMsRoadWalk( FindRoadColor , 40, 85, 70, 2, 2, False) then
    Begin
      FTWait(10);
      Flag;
    End Else
      Begin
        if FindColor(x, y, FindRoadColor, 1, 1, 680, 50) or
        FindColor(x, y, FindRoadColor, 1, 1, 686, 52) or
        FindColor(x, y, FindRoadColor, 1, 1, 691, 57) or
        FindColor(x, y, FindRoadColor, 1, 1, 680, 48) then

          begin
            writeln('starting walk to bank');
            Mouse(x,y,1,1,true);
            Look4Flag;
          End Else

            begin
              writeln('couldnt find road useing cords');
              Mouse(685, 52, 1, 1, true);
              FTWait(4);
              Flag;
            End;
      End;
End;

//*************************************************************************//

Procedure Walk2Bank;
Begin

  Repeat
  if not LoggedIn then
  Exit;
  SetRun(true);
  SetAngle(true);
  MakeCompass('n');
  gametab(4);

    if (FindSymbol(x, y, 'tree')) then
    Begin
      Mouse( x, y, 0, 0, true);
      FTWait(4);
      Flag;
    End Else

    Begin
      Writeln('looking for tree simble tryintg again');
    End;

      Tries := Tries + 1;
      if(Tries = 20)then
    Begin
      Writeln('couldnt find tree Terminating script');
      Progress;
      TerminateScript;
    End;

    until(FindSymbol(x, y, 'tree'))
    Writeln('at tree well done');

    MakeCompass('n');

      StartWalk2Bank;
      FTWait(4);
      Flag;

      PLMsRoadWalk( FindRoadColor , 40, 75, 70, 2, 2, True);
      FTWait(4);
      Flag;

      PLMsRoadWalk( FindRoadColor , 20, 75, 70, 2, 2, True);
      FTWait(4);
      Flag;

      PLMsRoadWalk( FindRoadColor , 10, 55, 70, 2, 2, True);
      FTWait(4);
      Flag;

      PLMsRoadWalk( FindRoadColor , 50, 135, 70, 2, 2, True);
      FTWait(4);
      Flag;

      PLMsRoadWalk( FindRoadColor , 60, 135, 70, 2, 2, True);
      FTWait(4);
      Flag;

      PLMsRoadWalk( FindRoadColor , 295, 360, 70, 2, 2, True);
      FTWait(10);
      Flag;

      PLMsRoadWalk( FindRoadColor , 340, 410, 70, 2, 2, True);
      FTWait(4);
      Flag;

      PLMsRoadWalk( FindRoadColor , 340, 385, 70, 2, 2, True);
      FTWait(4);
      Flag;

      PLMsRoadWalk( FindFallyRoadColor , 345, 380, 70, 2, 2, True);
      FTWait(4);
      Flag;

      PLMsRoadWalk( FindFallyRoadColor , 355, 385, 70, 2, 2, True);
      FTWait(4);
      Flag;

      PLMsRoadWalk( FindFallyRoadColor , 345, 370, 70, 2, 2, True);
      FTWait(4);
      Flag;
End;

//**************************************************************************//

procedure StartWhere;
begin

  If Players[CurrentPlayer].Loc = 'Tree' then
  begin

  Repeat
      if (FindSymbol(x, y, 'tree')) then
      Begin
        Mouse( x, y, 0, 0, true);
        FTWait(4);
        Flag;
      End Else
        Begin
          Writeln('looking for tree simble tryintg again');
        End;

            Tries := Tries + 1;
            if(Tries = 20)then
            Begin
              Writeln('couldnt find tree Terminating script');
              progress;
              TerminateScript;
            End;
            until(FindSymbol(x, y, 'tree'))
            Writeln('at tree well done');

    ChopTreeTime;
    Walk2Bank;
    Bank;

      Loads:=Loads+1;
      ReportVars[2] := ReportVars[2] + 1;    //--> Report Varable
      LoadsDone:=LoadsDone+1;
  End Else
  begin
    Writeln('couldnt find location');

  End;
End;

//***************************************************************************//

procedure SrlStats;               // cammo kyle helped
begin
  ScriptID := '1100';
  SRLID := SRLStatsID;
  SRLPassword := SRLStatsPW;
  If ( SRLID = '' ) Or ( SRLPassword = '' )Then
  begin
    Writeln('You Need SRL Stats, use myn');
    SRLId := '6713';
    SRLPassword := '123456789';
    SendSRLReport;
  End;
End;

//***************************************************************************//
procedure MainIngredients;
begin
  StartWhere;
  repeat
    WhereToWalk;
    ChopTreeTime;
    Walk2Bank;
    Bank;

    Loads:=Loads+1;
    ReportVars[2] := ReportVars[2] + 1;    //--> Report Varable
    SendSRLReport;
    LoadsDone:=LoadsDone+1;
  until(Loadsdone>=Loadstodo) or (IsFKeyDown(3)) or (IsFKeyDown(12));;;
End;

//**************************************************************************//
{main loop}

begin
  sig;
  SetUpSmart;
  SetupSRL;
  SrlStats;
  DeclarePlayers;
  ActivateClient;
  LoginPlayer;

    fightings:=0;
    Ents:=0;
    Loads:=0;
    Loadsdone:=0;
    TotalLogs:=0;
    LogsCut:=0;

      MainIngredients;

        progress;
        SendSRLReport;
        Writeln('thanks for useing PLM,s Rimmington Yew Chopper please poast proggie');
End.

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

Hmm you've written a few good tutorials, and your script looks okay. But I'll hold my vote until I see what other members have to say about this :)

Good Luck!

I dont really like your script. Alot of it is made up of small proc's that seem to be extended ahell of a lot.

The banking Proc is split into 3 when it can easily be one short one. You seem to have dragged out your script a hell of a lot, when you can easily take alot of the random stuff out easily, you use alot of double enters too, extending the script again.

Your walking Proc has no failsafes, if it does not find the first RadialWalk, then its screwed, it will just randomly click everywhere. It may work but it can occassionally not find the Road Color. You show a good understanding of what you are doing, but you really pull it out.


Holding vote.


Voted No.

Yes.

You got some extra begins/ends thats not needed..
Script could be a bit better, but we are here to learn ;)

Nice post count an activity.

From: Torrent of Flame


Your walking Proc has no failsafes, if it does not find the first RadialWalk, then its screwed, it will just randomly click everywhere. It may work but it can occassionally not find the Road Color.

it dose have falilsafes thats what the function PLMsRoadWalk is for… if it dosnt find the road it will terminate the script, but i am currently in the progress of using DDTMs for backup walking!

Well ATM, if it doesnt find the color in either Procs, then the script wont ever run. Still holding.

From: Torrent of Flame
I dont really like your script. Alot of it is made up of small proc's that seem to be extended ahell of a lot.

The banking Proc is split into 3 when it can easily be one short one. You seem to have dragged out your script a hell of a lot, when you can easily take alot of the random stuff out easily, you use alot of double enters too, extending the script again.

Your walking Proc has no failsafes, if it does not find the first RadialWalk, then its screwed, it will just randomly click everywhere. It may work but it can occassionally not find the Road Color. You show a good understanding of what you are doing, but you really pull it out.


Holding vote.

Honestly, one of the reasons I'm voting yes is because he did a good job of identifying where to split of into a function.

I really liked that about your script, it makes it much easier to maintain and add features in the long run which is a good thing. As well, it makes it easy for you to reuse code.

I liked this script, I thought it was pretty decent. There where a few problems where you did things like indent where you shouldn't have, but they where not significant enough for me to vote no.

Add some more fail-safes and you'll have yourself one heck of a script.

Good job.

yeh, i like you

Not that bad, but I'll hold my vote.

Be sure to keep track of your global x, y vars, because you use them a lot.. could it be (didn't checked it hardcore) that you have problems with solving ents?

Because "FindEnt" function searches for an ent near the coordinates you've put in, which can be something else then the coords of the tree (because you use those x, y coordinates a lot).

Just keep that in mind (maybe you could declare 2 more vars, which you only use for the tree coords?;)).

-Tsn.

yes.

Kinda basic, but I got in with a much worse script.
If this guy gets into members, he'll get the motivation to continue learning and improving his scripting skills.

Besides, he clearly shows that he can handle most of the requirements well.
Yes.

From: boberman
Honestly, one of the reasons I'm voting yes is because he did a good job of identifying where to split of into a function.

I really liked that about your script, it makes it much easier to maintain and add features in the long run which is a good thing. As well, it makes it easy for you to reuse code.

I liked this script, I thought it was pretty decent. There where a few problems where you did things like indent where you shouldn't have, but they where not significant enough for me to vote no.

Add some more fail-safes and you'll have yourself one heck of a script.

Good job.

Agreed. Nice attitude and script, yes from me. My thoughts are I'll be seeing you in SRL Members soon :p

Keep up the good work,

-Blumblebee

I like it. Yes.

Not liking the radial walking to bank thing. Need more work with the failsafes. What to expect huh? We aren't aiming u to be perfect.

Yes from me.

(BTW no offense but your standards are pissing me off for some reason. Not necessary incorrect just annoying, NO OFFENSE)

Okay then. Yes!

Standards are the worst thing in your script, no offence :p.

I can vote but I won't.

If I could I'd vote yes :

Grade : 80/100

Good luck ;).

Wtf is happening, what's about the quality of being srl member..
However, lots of useless crap as:

End Else
        Begin
          Writeln('looking for tree simble tryintg again');
        End;

-Tsn.

Yes, but Ewww at your standards, look at the link in my signature.

Cut em2 it

The standards made me shake in fear to be honest lol!

However, on the upside, it looks pretty good! :)

Yes.

i'm not voting on this one.

- Only one DTM,
- No DDTMs, TPAs
- Bad standards
- What when player hasn't got high enought WC lvl to chop yews??
- Unneaded begin and ends

I'm holding my vote. 70/100

Yes!

In!