SRL Archive - Archive

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

What is the meaning to life?


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



Programming Knowledge
basics of Java

Other Communitys


How Long have You Played Runescape
4 years

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

I think most of you know a little about me but I have been using scar since two years ago and I learned alot of scripting. My first scripts are in WC and fishing section of junior scripts of SRL. I did a good effort on this and I want to improve my scripts and learn more and more. I also would like to contribute in this community by being part of it. Thanks.

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

Here is one of my yew cutters (my first one) that I have been working a while ago. I know I should have used auto-color picker but I need help on this:p so you'll have to set your own color so it'll work. I know it might not be the best yew cutter you've seen but it's a great script that I have reached the running time of 28 hours with 10 players. I want to improve it
so be free to post great comments and ideas!:D
Used SRL coding and stuff. Radial walking, map walking, bank dtm, bmp, antibans(rotation of screen, examining stuff), fail safes etc. great stuff, i think its good stuff for someone at my level.:rolleyes:

PS: I know i use the old FindMMColorTol function but it works great. I will update it to the new rev 9 soon don't worry.

PS: you can also get the RCYew out if its too annoying mouse right clicking around (its sort of an antiban) like that:

procedure ChopYewDown;
begin
  GameTab(4);
    repeat
      if not LoggedIn then Exit;
        ChopYew;
        //RCYew;  <------ using the comment bars (still works great without it)
        RotateScreen;
        RelocateAtYew;
    until InvFull;
end;

program VarrockYewCutter;

{.include SRL/SRL.scar}

{******************************************************************************}

const
  DungeonColor = 1842935; // Dungeon symbol color.
  PlantColor   = 13187;   // Plant color under fence under the Yew that is beside the Varrock church.
  TreeColor    = 97035;   // Tree symbol color.
  BankColor1   = 4442091; // Bank color 1.
  BankColor2   = 88695;   //  ''    ''  2.

{******************************************************************************}

var
  x, y, c, t: Integer;

{******************************************************************************}

procedure DeclarePlayers;
begin
  NumberOfPlayers(2);  // Can add more if wanted.

    Players[0].Name := '';
    Players[0].Pass := '';
    Players[0].Nick := '';
    Players[0].Active := True;
    Players[0].Integers[0] := 3; // Loads to do.

    Players[1].Name := '';
    Players[1].Pass := '';
    Players[1].Nick := '';
    Players[1].Active := True;
    Players[1].Integers[0] := 3;

  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

{******************************************************************************}

procedure macromacro123;
begin
  ClearDebug;
  WriteLn('******** *******  ******* ******  *****');
  WriteLn('** ** **  ******  **      **     **   **');
  WriteLn('** ** **  **  **  **      **     **   **');
  WriteLn('** ** **  ******* ******* **      *****');
  Wait(500);
  WriteLn('******** *******  ******* ******  *****');
  WriteLn('** ** **  ******  **      **     **   **');
  WriteLn('** ** **  **  **  **      **     **   **');
  WriteLn('** ** **  ******* ******* **      *****');
  Wait(500);
  WriteLn(' **  ***   ****');
  WriteLn('*** *  **   **');
  WriteLn(' **   **      *');
  WriteLn(' **  ****  ***');
  Wait(500);
  WriteLn(' __________________');
  WriteLn('| macromacro123''s  |');
  WriteLn('|Varrock Yew Cutter|');
  WriteLn('|       v0.5       |');
  WriteLn('|__________________|');
  Wait(500);
end;

{******************************************************************************}

procedure SetUpScript;
begin
  SetUpSRL;
  DeclarePlayers;
end;

{******************************************************************************}

procedure LeftArrow;
begin
  Wait(1500 + Random(350));
  KeyDown(37);
  Wait(500 + Random(1000));
  KeyUp(37);
  Wait(500 + Random(1000));
end;

{******************************************************************************}

procedure RightArrow;
begin
  Wait(1500 + Random(200));
  KeyDown(39);
  Wait(500 + Random(1000));
  KeyUp(39);
  Wait(500 + Random(1000));
end;

{******************************************************************************}

function FindMMColorTol(var x, y: Integer; Color, Tol: Integer): Boolean;
begin
  Result := FindColorTolerance(x, y, Color, MMX1, MMY1, MMX2, MMY2, Tol);
end;

{******************************************************************************}

function FindBrokenAxe: Boolean;
var
  BrokenAxe: Integer;
begin
  BrokenAxe := DTMFromString('78DA63F4656260B8C580021C1CE218FE03694' +
       '620FE0F048C7E40353718D000231209A48330CDC1501300547387' +
       '08350F09A8F106AAB94B408D2B50CD4D026ADC816AAEE3570300B' +
       '6A30F3B');
    if FindDTM(BrokenAxe, x, y, MIX1, MIY1, MIX2, MIY2) then
      begin
        Result := True;
        WriteLn('******** FOUND BROKEN AXE ********');
        WriteFileString(TheFile, '******** FOUND BROKEN AXE ********' + Chr(13));
        Players[CurrentPlayer].Loc := 'Broken Axe';
        LogOut;
        Exit;
      end;
   FreeDTM(BrokenAxe);
end;

{******************************************************************************}

function HandleFight: Boolean;
begin
  if FindFight then
    begin
      Result := True;
        SetRun(True);
          if FindMMColorTol(x, y, PlantColor, 5) then
            begin
              Mouse(x, y, 1, 1, True);
              Flag;
              WriteLn('Found plant color');
              PerfectNorth;
              Mouse(643, 100, 4, 4, True);
              Flag;
                if FindMMColorTol(x, y, TreeColor, 5) then
                  begin
                    Mouse(x, y, 4, 4, True);
                    Flag;
                    WriteLn('Found tree color');
                  end;
            end;
    end;
end;

{******************************************************************************}

function FindYew: Boolean;
begin
   if FindColorTolerance(x, y, 4690821, MSX1, MSY1, MSX2, MSY2, 5) then
     begin
       MMouse(x, y, 0, 0);
       Wait(10);
         if IsUpText('Yew') then
           begin
             Result := True;
           end;
     end;
end;

{******************************************************************************}

procedure EntWait(Time: Integer);
var
  t: Integer;
begin
  for t := 1 to Time do
    begin
      Wait(1000);
      FindTalk;
      HandleFight;
    end;
end;

{******************************************************************************}

procedure SolveEnt;
begin
  MouseFindNoFlag(MMCX, MMCY, -1, 1);
  EntWait(35);
  EntsAvoided := EntsAvoided + 1;
end;

{******************************************************************************}

function FindYewEnt: Boolean;
begin
  if FindYew then
    begin
      GetMousePos(x, y);
        if FindColorTolerance(x, y, 55769, 85, 15, 115, 15, 20) then
          begin
            Result := True;
            WriteLn('******** FOUND ENT ********');
            WriteFileString(TheFile, '******** FOUND ENT ********' + Chr(13));
            SolveEnt;
            WriteLn('******** ENT AVOIDED ********');
            WriteFileString(TheFile, '******** ENT AVOIDED ********' + Chr(13));
          end;
    end;
end;

{******************************************************************************}

procedure CheckYewEnt;
begin
  if FindColorTolerance(x, y, 55769, 85, 15, 115, 15, 20) then
    begin
      WriteLn('******** FOUND ENT ********');
      WriteFileString(TheFile, '******** FOUND ENT ********' + Chr(13));
      SolveEnt;
      WriteLn('******** ENT AVOIDED ********');
      WriteFileString(TheFile, '******** ENT AVOIDED ********' + Chr(13));
    end;
end;

{******************************************************************************}

function FindFRandoms: Boolean;
var
  i: Integer;
begin
  for i := 1 to 3 do
    begin
      case i of
        1: Result := FindYewEnt;
        2: Result := HandleFight;
        3: Result := FindBrokenAxe;
      end;
        if Result then
          Break;
    end;
end;

{******************************************************************************}

procedure FindYRandoms;
begin
  FindNormalRandoms;
  FindFRandoms;
end;

{******************************************************************************}

procedure YWait(Time: Integer);
var
  t: integer;
begin
  for t := 1 to Time do
    begin
      Wait(1000 + Random(400));
      FindYRandoms;
    end;
end;

{******************************************************************************}

procedure RotateScreen;
var
  w: Integer;
  za: array [1..8] of Integer;
begin
  za[1] := 0;
  za[2] := 2000;
  za[3] := 1000;
  za[4] := 1500;
  za[5] := 500;
  za[6] := 1000;
  za[7] := 0;
  za[8] := 500;
    w := Random(8) + 1;
      begin
        case Random(8) of
          1:  begin FindYRandoms; PickUpMouse; end;
          2:  begin FindYRandoms; Wait(za[w] + Random(za[w])); end;
          3:  begin FindYRandoms; FindYRandoms; LeftArrow; end;
          4:  begin FindYRandoms; FindYRandoms; RightArrow; end;
          5:  begin FindYRandoms; LeftArrow; end;
          6:  begin FindYRandoms; RightArrow; end;
          7:  begin FindYRandoms; Wait(za[w] + Random(za[w])); LeftArrow; end;
          8:  begin FindYRandoms; Wait(za[w] + Random(za[w])); RightArrow; end;
        end;
      end;
end;

{******************************************************************************}

procedure WalkToYew;
var
  WalkTime: Integer;
begin
  if not LoggedIn then Exit;
    SetRun(True);
    HighestAngle;
    RadialRoadWalk(FindVarrockRoadColor, 300, 330, 55, 0, 0);
    Flag;
    RadialRoadWalk(FindVarrockRoadColor, 0, 30, 45, 0, 0);
    Flag;
    MarkTime(WalkTime);
      repeat
        if not LoggedIn then Exit;
          LinearRoadWalk(FindVarrockRoadColor, 0, 65, 0, 0);
          Flag;
      until FindSymbol(x, y, 'dungeon') or
            FindMMColorTol(x, y, DungeonColor, 5) or
            FindMMColorTol(x, y, PlantColor, 5) and FindMMColorTol(x, y, TreeColor, 5) or
            FindSymbol(x, y, 'house') or
            (TimeFromMark(Walktime) >= 100000);
        if FindSymbol(x, y, 'dungeon') then
          begin
            MouseFindNoFlag(x + 40, y - 12, 1, 1);
            Flag;
            WriteLn('Found dungeon symbol');
            FindMMColorTol(x, y, PlantColor, 5);
            Mouse(x - 8, y - 8, 1, 1, True);
            Flag;
            WriteLn('Found plant from dungeon symbol');
            FindMMColorTol(x, y, TreeColor, 5);
            Mouse(x, y, 4, 4, True);
            Flag;
            WriteLn('Found tree color from dungeon symbol');
            Players[CurrentPlayer].Loc := 'Yew';
          end else
            if FindMMColorTol(x, y, DungeonColor, 5) then
              begin
                MouseFindNoFlag(x + 40, y - 15, 1, 1);
                Flag;
                WriteLn('Found dungeon color');
                FindMMColorTol(x, y, PlantColor, 5);
                Mouse(x - 8, y - 8, 1, 1, True);
                Flag;
                WriteLn('Found plant from dungeon color');
                FindMMColorTol(x, y, TreeColor, 5);
                Mouse(x, y, 4, 4, True);
                Flag;
                WriteLn('Found tree color from dungeon');
                Players[CurrentPlayer].Loc := 'Yew';
              end else
                if FindMMColorTol(x, y, PlantColor, 5) and FindMMColorTol(x, y, TreeColor, 5) then
                  begin
                    FindMMColorTol(x, y, PlantColor, 5);
                    Mouse(x - 8, y - 8, 1, 1, True);
                    Flag;
                    WriteLn('Found plant color');
                    FindMMColorTol(x, y, TreeColor, 5);
                    Mouse(x, y, 4, 4, True);
                    Flag;
                    WriteLn('Found tree color from plant');
                    Players[CurrentPlayer].Loc := 'Yew';
                  end else
                    if FindSymbol(x, y, 'house') then
                      begin
                        Mouse(x + 25, y , 4, 4, True);
                        Flag;
                        WriteLn('Found house');
                        FindMMColorTol(x, y, TreeColor, 5);
                        Mouse(x, y, 4, 4, True);
                        Flag;
                        WriteLn('Found tree color from house');
                        Players[CurrentPlayer].Loc := 'Yew';
                      end else
                        if TimeFromMark(WalkTime) >= 100000 then
                          begin
                            WriteLn('Could not walk to yew');
                            Players[CurrentPlayer].Loc := 'Lost';
                            LogOut;
                            Exit;
                          end;
end;

{******************************************************************************}

procedure WalkToBank;
var
WaterTime: Integer;
begin
  if not LoggedIn then Exit;
    if InvFull then
      begin
        PerfectNorth;
          if FindMMColorTol(x, y, PlantColor, 5) then
            begin
              Mouse(x - 11, y + 11, 1, 1, True);
              Flag;
              WriteLn('Found plant color');
              repeat
                if not LoggedIn then Exit;
                  LinearRoadWalk(FindVarrockRoadColor, 180, 60, 0, 0);
                  Flag;
              until FindMMColorTol(x, y, BankColor1, 5) or
                    FindMMColorTol(x, y, BankColor2, 5) or
                    FindSymbol(x, y, 'training dummy') or
                    FindSymbol(x, y, 'water') and FindSymbol(x, y, 'archery shop');
                if FindMMColorTol(x, y, BankColor1, 5) or FindMMColorTol(x, y, BankColor2, 5) then
                  begin
                    Mouse(x, y, 4, 4, True);
                    Flag;
                    WriteLn('Found bank colors');
                  end else
                    if FindSymbol(x, y, 'training dummy') then
                      begin
                        Mouse(x, y, 4, 4, True);
                        Flag;
                        WriteLn('Found training dummy');
                        Wait(250 + Random(50));
                        Mouse(643, 130, 4, 4, True);
                        Flag;
                      end else
                        if FindSymbol(x, y, 'water') and FindSymbol(x, y, 'archery shop') then
                          begin
                            FindSymbol(x, y, 'water');
                            Mouse(x, y, 4, 4,True);
                            Flag;
                            WriteLn('Found water and archery symbol');
                            Wait(250 + Random(50));
                            MarkTime(WaterTime);
                            repeat
                              Mouse(660, 83, 4, 4, True);
                              Flag;
                            until FindMMColorTol(x, y, BankColor1, 5) or
                                  FindMMColorTol(x, y, BankColor2, 5) or
                                  FindSymbol(x, y, 'training dummy') or
                                  (TimeFromMark(WaterTime) >= 100000);
                              if FindMMColorTol(x, y, BankColor1, 5) or FindMMColorTol(x, y, BankColor2, 5) then
                                begin
                                  Mouse(x, y, 4, 4, True);
                                  Flag;
                                end else
                                  if FindSymbol(x, y, 'training dummy') then
                                    begin
                                      Mouse(x, y, 4, 4, True);
                                      Flag;
                                      Wait(250 + Random(50));
                                      Mouse(643, 130, 4, 4, True);
                                      Flag;
                                    end else
                                      if TimeFromMark(WaterTime) >= 100000 then
                                        begin
                                          WriteLn('Didn''t find bank colors or dummy symbol from water symbol');
                                          Players[CurrentPlayer].Loc := 'Lost';
                                          LogOut;
                                          Exit;
                                        end;
                          end;
            end;
      end;
end;

{******************************************************************************}

procedure ChopYew;
begin
  if FindYew then
    begin
      GetMousePos(x, y);
      CheckYewEnt;
      Mouse(x, y, 0, 0, True);
      YWait(9 + Random(9));
    end;
end;

{******************************************************************************}

procedure RelocateAtYew;
begin
  if not FindColorTolerance(x, y, TreeColor, 632, 69, 654, 94, 5) then
    begin
      FindYRandoms;
        if FindMMColorTol(x, y, TreeColor, 5) then
          begin
            WriteLn('Relocating at yew tree');
            Mouse(x, y, 4, 4, True);
            Flag;
            Exit;
          end else
             WriteLn('Couldn''t relocate at yew tree');
             LogOut;
             Exit;
    end;
end;

{******************************************************************************}

procedure RCYew;
var
  Examine: Integer;
begin
  Examine := BitmapFromString2(False, 'a65B2078DAA58E5D0A8030' +
       '0C83AF545D7FB647A7EBFD8F64B3810C4411CC43085FDB5022A26' +
       '661B42D6169D7702D00C20DEE20529195183983ACB967D9AF1D5D' +
       '71C545C2CD3388A1D3D281EC28B5DEA9153B4530A5D4E41066F34' +
       '934694C67F757CD5777FE853CDDBEFFF9BF67F0137DE');
    MouseSpeed := 8 + Random(6);
      MouseBox(5, 5, 513, 336, False);
        if FindBitmap(Examine, x, y) then
          begin
            Mouse(x, y, 1, 1, True);
            MouseSpeed := 15;
          end else
            if not FindBitmap(Examine, x, y) then
              begin
                MouseSpeed := 15;
                Exit;
              end;
      FreeBitmap(Examine);
end;

{******************************************************************************}

procedure ChopYewDown;
begin
  GameTab(4);
    repeat
      if not LoggedIn then Exit;
        ChopYew;
        RCYew;
        RotateScreen;
        RelocateAtYew;
    until InvFull;
end;

{******************************************************************************}

procedure ClickBank;
 begin
   if not LoggedIn then Exit;
     if FindSymbol(x, y, 'bank') then
       begin
         Mouse(x, y, 1, 1, True);
         Flag;
         WriteLn('Found bank symbol');
         Players[CurrentPlayer].Loc := 'Bank';
       end else
         if FindMMColorTol(x, y, BankColor1, 5) then
        begin
          Mouse(x, y, 1, 1, True);
          Flag;
          WriteLn('Found bank primary color');
          Players[CurrentPlayer].Loc := 'Bank';
        end else
          if FindMMColorTol(x, y, BankColor2, 5) then
            begin
              Mouse(x, y, 1, 1, True);
              Flag;
              WriteLn('Found bank secondary color');
              Players[CurrentPlayer].Loc := 'Bank';
            end else
              begin
                WriteLn('Did not find bank colors or symbol');
                Players[CurrentPlayer].Loc := 'Lost';
                LogOut;
                Exit;
              end;
end;

{******************************************************************************}

procedure YFindBank;
var
  Bank: Integer;
  bla: Extended;
begin
  Bank := DTMFromString('78DA6364646060606640017FFE3031C801699' +
       '0D47F206064C554F3F52B846684F2199980041B031A6044510300' +
       '48F1081A');
    if not LoggedIn then Exit;
      if FindDTMRotated(Bank, x, y, MMX1, MMY1, MMX2, MMY2, 0, 2 * pi, 0.05, bla) then
        begin
          Mouse(x ,y, 4, 4, True);
          Wait(550 + Random(550));
          Flag;
        end;
    FreeDTM(Bank);
end;

{******************************************************************************}

procedure BankYew;
var
  BankTime: Integer;
begin
    if not LoggedIn then Exit;
      if not BankScreen then
        MarkTime(BankTime);
          repeat
            if not LoggedIn then Exit;
              OpenBankGlass('veb', False, False);
          until BankScreen or
                (TimeFromMark(BankTime) >= 200000);
            if BankScreen then
              begin
                Deposit(2, 28, 2);
                CloseBank;
              end else
                if TimeFromMark(BankTime) >= 200000 then
                  begin
                    WriteLn('Could not find bank booth');
                    Players[CurrentPlayer].Loc := 'Lost';
                    LogOut;
                    Exit;
                  end;
end;

{******************************************************************************}

procedure BankYews;
begin
  ClickBank;
  YFindBank;
  BankYew;
  Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
  c := c + 1;
  t := t + 1;
end;

{******************************************************************************}

procedure PlayerStats;
var
  Active: string;
  i: Integer;
begin
  WriteLn('**************************************');
  WriteLn('Name         : ' + Players[CurrentPlayer].Name);
  WriteLn('Number       : ' + IntToStr(CurrentPlayer));
  WriteLn('Worked for   : ' + IntToStr(Players[CurrentPlayer].Worked) + ' Minutes.');
  WriteLn('Banked       : ' + IntToStr(Players[CurrentPlayer].Banked) + ' Times.');
    if Players[CurrentPlayer].Active = True then Active := 'True' else Active := 'False';
      WriteLn('Active       : ' + Active);
      WriteLn('Location     : ' + Players[CurrentPlayer].Loc);
      WriteLn('Random       : ' + Players[CurrentPlayer].Rand);
      WriteLn('**************************************');
    for i := 0 to HowManyPlayers - 1 do
      begin
        if Players[i].Active = True then Active := 'True' else Active := 'False';
          WriteLn((IntToStr(i)) + ': ' + Players[i].Name + ' = ' + Active + '. - Banked: ' + IntToStr(Players[i].Banked) + ' Times.' +
          ' - Worked: ' + IntToStr(Players[i].Worked) + ' Mins.' + ' - Loc: ' + Players[i].Loc + ' - Rand: ' + Players[i].Rand);
      end;
        WriteLn('**************************************');
end;

{******************************************************************************}

procedure ProgressReport;
begin
  SRLRandomsReport;
  WriteLn(' __________________');
  WriteLn('| macromacro123''s  |');
  WriteLn('|Varrock Yew Cutter|');
  WriteLn('|       v0.5       |');
  WriteLn('|__________________|');
  WriteLn('|Worked: ' + TimeRunning + '.');
  WriteLn('|Banked: ' + IntToStr(t) + ' Loads.');
  WriteLn('|Chopped: ' + IntToStr(t * 27) + ' Yew logs.');
  WriteLn('|__________________|');
end;

{******************************************************************************}

begin
 macromacro123;
 GetApplication.MINIMIZE;
 SetUpScript;
 FindRS;
 begin
  if not LoggedIn then
    begin
      LoginPlayer;
    end;
 end;
  repeat
    repeat
       WalkToYew;
       ChopYewDown;
       WalkToBank;
       BankYews;
       PlayerStats;
       ProgressReport;
    until (Players[CurrentPlayer].Integers[0] = c) or (not(LoggedIn));
  if Players[CurrentPlayer].Integers[0] = c then
    begin
      LogOut;
      NextPlayer(True);
      c := 0;
    end else
  if not LoggedIn then
    begin
      NextPlayer(False);
      c := 0;
    end;
  until False;
end.

hopefully will work, else give me ideas to improve it:) Thanks.

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

yea here is the instructions:

- start logged out.
- axe in 1st inv slot.
- varrok east bank.
- pick up colors (sorry i will be adding auto pickers i just need help)

Why didnt you wait for a couple of weeks?

EDIT: ok understood. No need to react on my statement.

:/ your other app isn't even closed yet :S
but, you still have useless procedures, you have two progress reports, and standards are still off.

FindMMColorTol …… LeftArrow,RightArrow??, SetupScript is 2 lines long :S it's longer than if you'd put it in your main loop, FindYew does not have enough failsafes, you should make it look for more colors.

 for t := 1 to Time do
    begin
      Wait(1000);
      FindTalk;
      HandleFight;
    end;

this isn't right. you want it to wait a certain time, you'd need to do something like this:

MarkTime(BeginWait);
repeat
  Wait(1000);
  FindTalk;
  HandleFight;
until(TimeFromMark(BeginWait) >= Time)

CheckYewEnt and FindYew and nearly exactly word for word the same thing. i suggest you join toguether all your ent procedures,

YWait is a whole lotta lines for something you could jsut do
wait(..);
FindNormalRandoms;
a couple times…

use FFlag(0), apparently there's some problem with Flag; atm.

i'm really not sure convinced by this script, i'll see what other members are leaning towards to.

~RM

What if it finds none of these?

              repeat
                if not LoggedIn then Exit;
                  LinearRoadWalk(FindVarrockRoadColor, 180, 60, 0, 0);
                  Flag;
              until FindMMColorTol(x, y, BankColor1, 5) or
                    FindMMColorTol(x, y, BankColor2, 5) or
                    FindSymbol(x, y, 'training dummy') or
                    FindSymbol(x, y, 'water') and FindSymbol(x, y, 'archery shop');

I'll be back later, I'm not sure if I'm convinced either. I just know I need some chocolate.

Just wondering, did you make that 26 hour progress report up?

added standards to the beginning of your script. and your walking is missing an important end.

program VarrockYewCutter;

{.include SRL/SRL.scar}

{******************************************************************************}

const
  DungeonColor = 1842935; // Dungeon symbol color.
  PlantColor   = 13187;   // Plant color under fence under the Yew that is beside the Varrock church.
  TreeColor    = 97035;   // Tree symbol color.
  BankColor1   = 4442091; // Bank color 1.
  BankColor2   = 88695;   //  ''    ''  2.

{******************************************************************************}

var
  x, y, c, t: Integer;

{******************************************************************************}

procedure DeclarePlayers;
begin
  NumberOfPlayers(2);  // Can add more if wanted.

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;
  Players[0].Integers[0] := 3; // Loads to do.

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := True;
  Players[1].Integers[0] := 3;

  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

{******************************************************************************}

procedure macromacro123;
begin
  ClearDebug;
  WriteLn('******** *******  ******* ******  *****');
  WriteLn('** ** **  ******  **      **     **   **');
  WriteLn('** ** **  **  **  **      **     **   **');
  WriteLn('** ** **  ******* ******* **      *****');
  Wait(500);
  WriteLn('******** *******  ******* ******  *****');
  WriteLn('** ** **  ******  **      **     **   **');
  WriteLn('** ** **  **  **  **      **     **   **');
  WriteLn('** ** **  ******* ******* **      *****');
  Wait(500);
  WriteLn(' **  ***   ****');
  WriteLn('*** *  **   **');
  WriteLn(' **   **      *');
  WriteLn(' **  ****  ***');
  Wait(500);
  WriteLn(' __________________');
  WriteLn('| macromacro123''s  |');
  WriteLn('|Varrock Yew Cutter|');
  WriteLn('|       v0.5       |');
  WriteLn('|__________________|');
  Wait(500);
end;

{******************************************************************************}

procedure SetUpScript;
begin
  SetUpSRL;
  DeclarePlayers;
end;

{******************************************************************************}

procedure LeftArrow;
begin
  Wait(1500 + Random(350));
  KeyDown(37);
  Wait(500 + Random(1000));
  KeyUp(37);
  Wait(500 + Random(1000));
end;

{******************************************************************************}

procedure RightArrow;
begin
  Wait(1500 + Random(200));
  KeyDown(39);
  Wait(500 + Random(1000));
  KeyUp(39);
  Wait(500 + Random(1000));
end;

{******************************************************************************}

function FindMMColorTol(var x, y: Integer; Color, Tol: Integer): Boolean;
begin
  Result := FindColorTolerance(x, y, Color, MMX1, MMY1, MMX2, MMY2, Tol);
end;

{******************************************************************************}

function FindBrokenAxe: Boolean;
var
  BrokenAxe: Integer;
begin
  BrokenAxe := DTMFromString('78DA63F4656260B8C580021C1CE218FE03694' +
       '620FE0F048C7E40353718D000231209A48330CDC1501300547387' +
       '08350F09A8F106AAB94B408D2B50CD4D026ADC816AAEE3570300B' +
       '6A30F3B');
  if FindDTM(BrokenAxe, x, y, MIX1, MIY1, MIX2, MIY2) then
  begin
    Result := True;
    WriteLn('******** FOUND BROKEN AXE ********');
    WriteFileString(TheFile, '******** FOUND BROKEN AXE ********' + Chr(13));
    Players[CurrentPlayer].Loc := 'Broken Axe';
    LogOut;
    Exit;
  end;
  FreeDTM(BrokenAxe);
end;

{******************************************************************************}

function HandleFight: Boolean;
begin
  if FindFight then
  begin
    Result := True;
    SetRun(True);
    if FindMMColorTol(x, y, PlantColor, 5) then
    begin
      Mouse(x, y, 1, 1, True);
      Flag;
      WriteLn('Found plant color');
      PerfectNorth;
      Mouse(643, 100, 4, 4, True);
      Flag;
      if FindMMColorTol(x, y, TreeColor, 5) then
      begin
        Mouse(x, y, 4, 4, True);
        Flag;
        WriteLn('Found tree color');
      end;
    end;
  end;
end;

{******************************************************************************}

function FindYew: Boolean;
begin
   if FindColorTolerance(x, y, 4690821, MSX1, MSY1, MSX2, MSY2, 5) then
   begin
     MMouse(x, y, 0, 0);
     Wait(10);
     if IsUpText('Yew') then
       Result := True;
   end;
end;

{******************************************************************************}

procedure EntWait(Time: Integer);
var
  t: Integer;
begin
  for t := 1 to Time do
  begin
    Wait(1000);
    FindTalk;
    HandleFight;
  end;
end;

{******************************************************************************}

procedure SolveEnt;
begin
  MouseFindNoFlag(MMCX, MMCY, -1, 1);
  EntWait(35);
  EntsAvoided := EntsAvoided + 1;
end;

{******************************************************************************}

function FindYewEnt: Boolean;
begin
  if FindYew then
  begin
    GetMousePos(x, y);
    if FindColorTolerance(x, y, 55769, 85, 15, 115, 15, 20) then
    begin
      Result := True;
      WriteLn('******** FOUND ENT ********');
      WriteFileString(TheFile, '******** FOUND ENT ********' + Chr(13));
      SolveEnt;
      WriteLn('******** ENT AVOIDED ********');
      WriteFileString(TheFile, '******** ENT AVOIDED ********' + Chr(13));
    end;
  end;
end;

{******************************************************************************}

procedure CheckYewEnt;
begin
  if FindColorTolerance(x, y, 55769, 85, 15, 115, 15, 20) then
  begin
    WriteLn('******** FOUND ENT ********');
    WriteFileString(TheFile, '******** FOUND ENT ********' + Chr(13));
    SolveEnt;
    WriteLn('******** ENT AVOIDED ********');
    WriteFileString(TheFile, '******** ENT AVOIDED ********' + Chr(13));
  end;
end;

{******************************************************************************}

function FindFRandoms: Boolean;
var
  i: Integer;
begin
  for i := 1 to 3 do
  begin
    case i of
      1: Result := FindYewEnt;
      2: Result := HandleFight;
      3: Result := FindBrokenAxe;
    end;
    if Result then
      Break;
  end;
end;

{******************************************************************************}

procedure FindYRandoms;
begin
  FindNormalRandoms;
  FindFRandoms;
end;

{******************************************************************************}

procedure YWait(Time: Integer);
var
  t: integer;
begin
  for t := 1 to Time do
  begin
    Wait(1000 + Random(400));
    FindYRandoms;
  end;
end;

{******************************************************************************}

procedure RotateScreen;
var
  w: Integer;
  za: array [1..8] of Integer;
begin
  za[1] := 0;
  za[2] := 2000;
  za[3] := 1000;
  za[4] := 1500;
  za[5] := 500;
  za[6] := 1000;
  za[7] := 0;
  za[8] := 500;
  w := Random(8) + 1;
   {   begin} //begin what?!
  case Random(8) of
    1:  begin  {same for the other cases}
          FindYRandoms;
          PickUpMouse;
        end;
    2:  begin FindYRandoms; Wait(za[w] + Random(za[w])); end;
    3:  begin FindYRandoms; FindYRandoms; LeftArrow; end;
    4:  begin FindYRandoms; FindYRandoms; RightArrow; end;
    5:  begin FindYRandoms; LeftArrow; end;
    6:  begin FindYRandoms; RightArrow; end;
    7:  begin FindYRandoms; Wait(za[w] + Random(za[w])); LeftArrow; end;
    8:  begin FindYRandoms; Wait(za[w] + Random(za[w])); RightArrow; end;
  end;
{ end} //end what?!
end;

{******************************************************************************}

procedure WalkToYew;
var
  WalkTime: Integer;
begin
  if not LoggedIn then Exit;
  SetRun(True);
  HighestAngle;
  RadialRoadWalk(FindVarrockRoadColor, 300, 330, 55, 0, 0);
  Flag;
  RadialRoadWalk(FindVarrockRoadColor, 0, 30, 45, 0, 0);
  Flag;
  MarkTime(WalkTime);
  repeat
    if not LoggedIn then Exit;
    LinearRoadWalk(FindVarrockRoadColor, 0, 65, 0, 0);
    Flag;
  until FindSymbol(x, y, 'dungeon') or
  FindMMColorTol(x, y, DungeonColor, 5) or
  FindMMColorTol(x, y, PlantColor, 5) and FindMMColorTol(x, y, TreeColor, 5) or
  FindSymbol(x, y, 'house') or
  (TimeFromMark(Walktime) >= 100000);
  if FindSymbol(x, y, 'dungeon') then
  begin
    MouseFindNoFlag(x + 40, y - 12, 1, 1);
    Flag;
    WriteLn('Found dungeon symbol');
    FindMMColorTol(x, y, PlantColor, 5);
    Mouse(x - 8, y - 8, 1, 1, True);
    Flag;
    WriteLn('Found plant from dungeon symbol');
    FindMMColorTol(x, y, TreeColor, 5);
    Mouse(x, y, 4, 4, True);
    Flag;
    WriteLn('Found tree color from dungeon symbol');
    Players[CurrentPlayer].Loc := 'Yew';
  end else
    if FindMMColorTol(x, y, DungeonColor, 5) then
    begin
      MouseFindNoFlag(x + 40, y - 15, 1, 1);
      Flag;
      WriteLn('Found dungeon color');
      FindMMColorTol(x, y, PlantColor, 5);
      Mouse(x - 8, y - 8, 1, 1, True);
      Flag;
      WriteLn('Found plant from dungeon color');
      FindMMColorTol(x, y, TreeColor, 5);
      Mouse(x, y, 4, 4, True);
      Flag;
      WriteLn('Found tree color from dungeon');
      Players[CurrentPlayer].Loc := 'Yew';
    end else
      if FindMMColorTol(x, y, PlantColor, 5) and FindMMColorTol(x, y, TreeColor, 5) then
      begin
        FindMMColorTol(x, y, PlantColor, 5);
        Mouse(x - 8, y - 8, 1, 1, True);
        Flag;
        WriteLn('Found plant color');
        FindMMColorTol(x, y, TreeColor, 5);
        Mouse(x, y, 4, 4, True);
        Flag;
        WriteLn('Found tree color from plant');
        Players[CurrentPlayer].Loc := 'Yew';
      end else
        if FindSymbol(x, y, 'house') then
        begin
        Mouse(x + 25, y , 4, 4, True);
        Flag;
        WriteLn('Found house');
        FindMMColorTol(x, y, TreeColor, 5);
        Mouse(x, y, 4, 4, True);
        Flag;
        WriteLn('Found tree color from house');
        Players[CurrentPlayer].Loc := 'Yew';
      end else
        if TimeFromMark(WalkTime) >= 100000 then
        begin
          WriteLn('Could not walk to yew');
          Players[CurrentPlayer].Loc := 'Lost';
          LogOut;
          Exit;
        end;
{you missed an end in this procedure!}

end;

oh and either your log counting is off or it's one damn good chopper ;)

| macromacro123's  |
|Varrock Yew Cutter|
|       v0.5       |
|__________________|
|Worked: 5 Seconds.
|Banked: 1 Loads.
|Chopped: 27 Yew logs.
|__________________|

5 secs / 1 load. Wow.


~RM

From: Santa_Clause
Just wondering, did you make that 26 hour progress report up?

no thats my onld version 0.4 report. i use it in my vmware machine. it is posted from my vmware machine.

I still don't understand why you have two applications going at the same time?

From: Rasta Magician
added standards to the beginning of your script. and your walking is missing an important end.

program VarrockYewCutter;

{.include SRL/SRL.scar}

{******************************************************************************}

const
  DungeonColor = 1842935; // Dungeon symbol color.
  PlantColor   = 13187;   // Plant color under fence under the Yew that is beside the Varrock church.
  TreeColor    = 97035;   // Tree symbol color.
  BankColor1   = 4442091; // Bank color 1.
  BankColor2   = 88695;   //  ''    ''  2.

{******************************************************************************}

var
  x, y, c, t: Integer;

{******************************************************************************}

procedure DeclarePlayers;
begin
  NumberOfPlayers(2);  // Can add more if wanted.

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;
  Players[0].Integers[0] := 3; // Loads to do.

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := True;
  Players[1].Integers[0] := 3;

  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

{******************************************************************************}

procedure macromacro123;
begin
  ClearDebug;
  WriteLn('******** *******  ******* ******  *****');
  WriteLn('** ** **  ******  **      **     **   **');
  WriteLn('** ** **  **  **  **      **     **   **');
  WriteLn('** ** **  ******* ******* **      *****');
  Wait(500);
  WriteLn('******** *******  ******* ******  *****');
  WriteLn('** ** **  ******  **      **     **   **');
  WriteLn('** ** **  **  **  **      **     **   **');
  WriteLn('** ** **  ******* ******* **      *****');
  Wait(500);
  WriteLn(' **  ***   ****');
  WriteLn('*** *  **   **');
  WriteLn(' **   **      *');
  WriteLn(' **  ****  ***');
  Wait(500);
  WriteLn(' __________________');
  WriteLn('| macromacro123''s  |');
  WriteLn('|Varrock Yew Cutter|');
  WriteLn('|       v0.5       |');
  WriteLn('|__________________|');
  Wait(500);
end;

{******************************************************************************}

procedure SetUpScript;
begin
  SetUpSRL;
  DeclarePlayers;
end;

{******************************************************************************}

procedure LeftArrow;
begin
  Wait(1500 + Random(350));
  KeyDown(37);
  Wait(500 + Random(1000));
  KeyUp(37);
  Wait(500 + Random(1000));
end;

{******************************************************************************}

procedure RightArrow;
begin
  Wait(1500 + Random(200));
  KeyDown(39);
  Wait(500 + Random(1000));
  KeyUp(39);
  Wait(500 + Random(1000));
end;

{******************************************************************************}

function FindMMColorTol(var x, y: Integer; Color, Tol: Integer): Boolean;
begin
  Result := FindColorTolerance(x, y, Color, MMX1, MMY1, MMX2, MMY2, Tol);
end;

{******************************************************************************}

function FindBrokenAxe: Boolean;
var
  BrokenAxe: Integer;
begin
  BrokenAxe := DTMFromString('78DA63F4656260B8C580021C1CE218FE03694' +
       '620FE0F048C7E40353718D000231209A48330CDC1501300547387' +
       '08350F09A8F106AAB94B408D2B50CD4D026ADC816AAEE3570300B' +
       '6A30F3B');
  if FindDTM(BrokenAxe, x, y, MIX1, MIY1, MIX2, MIY2) then
  begin
    Result := True;
    WriteLn('******** FOUND BROKEN AXE ********');
    WriteFileString(TheFile, '******** FOUND BROKEN AXE ********' + Chr(13));
    Players[CurrentPlayer].Loc := 'Broken Axe';
    LogOut;
    Exit;
  end;
  FreeDTM(BrokenAxe);
end;

{******************************************************************************}

function HandleFight: Boolean;
begin
  if FindFight then
  begin
    Result := True;
    SetRun(True);
    if FindMMColorTol(x, y, PlantColor, 5) then
    begin
      Mouse(x, y, 1, 1, True);
      Flag;
      WriteLn('Found plant color');
      PerfectNorth;
      Mouse(643, 100, 4, 4, True);
      Flag;
      if FindMMColorTol(x, y, TreeColor, 5) then
      begin
        Mouse(x, y, 4, 4, True);
        Flag;
        WriteLn('Found tree color');
      end;
    end;
  end;
end;

{******************************************************************************}

function FindYew: Boolean;
begin
   if FindColorTolerance(x, y, 4690821, MSX1, MSY1, MSX2, MSY2, 5) then
   begin
     MMouse(x, y, 0, 0);
     Wait(10);
     if IsUpText('Yew') then
       Result := True;
   end;
end;

{******************************************************************************}

procedure EntWait(Time: Integer);
var
  t: Integer;
begin
  for t := 1 to Time do
  begin
    Wait(1000);
    FindTalk;
    HandleFight;
  end;
end;

{******************************************************************************}

procedure SolveEnt;
begin
  MouseFindNoFlag(MMCX, MMCY, -1, 1);
  EntWait(35);
  EntsAvoided := EntsAvoided + 1;
end;

{******************************************************************************}

function FindYewEnt: Boolean;
begin
  if FindYew then
  begin
    GetMousePos(x, y);
    if FindColorTolerance(x, y, 55769, 85, 15, 115, 15, 20) then
    begin
      Result := True;
      WriteLn('******** FOUND ENT ********');
      WriteFileString(TheFile, '******** FOUND ENT ********' + Chr(13));
      SolveEnt;
      WriteLn('******** ENT AVOIDED ********');
      WriteFileString(TheFile, '******** ENT AVOIDED ********' + Chr(13));
    end;
  end;
end;

{******************************************************************************}

procedure CheckYewEnt;
begin
  if FindColorTolerance(x, y, 55769, 85, 15, 115, 15, 20) then
  begin
    WriteLn('******** FOUND ENT ********');
    WriteFileString(TheFile, '******** FOUND ENT ********' + Chr(13));
    SolveEnt;
    WriteLn('******** ENT AVOIDED ********');
    WriteFileString(TheFile, '******** ENT AVOIDED ********' + Chr(13));
  end;
end;

{******************************************************************************}

function FindFRandoms: Boolean;
var
  i: Integer;
begin
  for i := 1 to 3 do
  begin
    case i of
      1: Result := FindYewEnt;
      2: Result := HandleFight;
      3: Result := FindBrokenAxe;
    end;
    if Result then
      Break;
  end;
end;

{******************************************************************************}

procedure FindYRandoms;
begin
  FindNormalRandoms;
  FindFRandoms;
end;

{******************************************************************************}

procedure YWait(Time: Integer);
var
  t: integer;
begin
  for t := 1 to Time do
  begin
    Wait(1000 + Random(400));
    FindYRandoms;
  end;
end;

{******************************************************************************}

procedure RotateScreen;
var
  w: Integer;
  za: array [1..8] of Integer;
begin
  za[1] := 0;
  za[2] := 2000;
  za[3] := 1000;
  za[4] := 1500;
  za[5] := 500;
  za[6] := 1000;
  za[7] := 0;
  za[8] := 500;
  w := Random(8) + 1;
   {   begin} //begin what?!
  case Random(8) of
    1:  begin  {same for the other cases}
          FindYRandoms;
          PickUpMouse;
        end;
    2:  begin FindYRandoms; Wait(za[w] + Random(za[w])); end;
    3:  begin FindYRandoms; FindYRandoms; LeftArrow; end;
    4:  begin FindYRandoms; FindYRandoms; RightArrow; end;
    5:  begin FindYRandoms; LeftArrow; end;
    6:  begin FindYRandoms; RightArrow; end;
    7:  begin FindYRandoms; Wait(za[w] + Random(za[w])); LeftArrow; end;
    8:  begin FindYRandoms; Wait(za[w] + Random(za[w])); RightArrow; end;
  end;
{ end} //end what?!
end;

{******************************************************************************}

procedure WalkToYew;
var
  WalkTime: Integer;
begin
  if not LoggedIn then Exit;
  SetRun(True);
  HighestAngle;
  RadialRoadWalk(FindVarrockRoadColor, 300, 330, 55, 0, 0);
  Flag;
  RadialRoadWalk(FindVarrockRoadColor, 0, 30, 45, 0, 0);
  Flag;
  MarkTime(WalkTime);
  repeat
    if not LoggedIn then Exit;
    LinearRoadWalk(FindVarrockRoadColor, 0, 65, 0, 0);
    Flag;
  until FindSymbol(x, y, 'dungeon') or
  FindMMColorTol(x, y, DungeonColor, 5) or
  FindMMColorTol(x, y, PlantColor, 5) and FindMMColorTol(x, y, TreeColor, 5) or
  FindSymbol(x, y, 'house') or
  (TimeFromMark(Walktime) >= 100000);
  if FindSymbol(x, y, 'dungeon') then
  begin
    MouseFindNoFlag(x + 40, y - 12, 1, 1);
    Flag;
    WriteLn('Found dungeon symbol');
    FindMMColorTol(x, y, PlantColor, 5);
    Mouse(x - 8, y - 8, 1, 1, True);
    Flag;
    WriteLn('Found plant from dungeon symbol');
    FindMMColorTol(x, y, TreeColor, 5);
    Mouse(x, y, 4, 4, True);
    Flag;
    WriteLn('Found tree color from dungeon symbol');
    Players[CurrentPlayer].Loc := 'Yew';
  end else
    if FindMMColorTol(x, y, DungeonColor, 5) then
    begin
      MouseFindNoFlag(x + 40, y - 15, 1, 1);
      Flag;
      WriteLn('Found dungeon color');
      FindMMColorTol(x, y, PlantColor, 5);
      Mouse(x - 8, y - 8, 1, 1, True);
      Flag;
      WriteLn('Found plant from dungeon color');
      FindMMColorTol(x, y, TreeColor, 5);
      Mouse(x, y, 4, 4, True);
      Flag;
      WriteLn('Found tree color from dungeon');
      Players[CurrentPlayer].Loc := 'Yew';
    end else
      if FindMMColorTol(x, y, PlantColor, 5) and FindMMColorTol(x, y, TreeColor, 5) then
      begin
        FindMMColorTol(x, y, PlantColor, 5);
        Mouse(x - 8, y - 8, 1, 1, True);
        Flag;
        WriteLn('Found plant color');
        FindMMColorTol(x, y, TreeColor, 5);
        Mouse(x, y, 4, 4, True);
        Flag;
        WriteLn('Found tree color from plant');
        Players[CurrentPlayer].Loc := 'Yew';
      end else
        if FindSymbol(x, y, 'house') then
        begin
        Mouse(x + 25, y , 4, 4, True);
        Flag;
        WriteLn('Found house');
        FindMMColorTol(x, y, TreeColor, 5);
        Mouse(x, y, 4, 4, True);
        Flag;
        WriteLn('Found tree color from house');
        Players[CurrentPlayer].Loc := 'Yew';
      end else
        if TimeFromMark(WalkTime) >= 100000 then
        begin
          WriteLn('Could not walk to yew');
          Players[CurrentPlayer].Loc := 'Lost';
          LogOut;
          Exit;
        end;
{you missed an end in this procedure!}

end;

oh and either your log counting is off or it's one damn good chopper ;)

| macromacro123's  |
|Varrock Yew Cutter|
|       v0.5       |
|__________________|
|Worked: 5 Seconds.
|Banked: 1 Loads.
|Chopped: 27 Yew logs.
|__________________|

5 secs / 1 load. Wow.


~RM

I need this chopper.
I think I found another problem.
You only relocate if you don't find something, and thats the only procedure using findyrandoms.
Another problem.
In YFindBank, you always declare the bitmap, but you only free it if you find it.

I'm inclined to say yes, but something is holding me back. I'll come back later.

From: JackLKrawl
What if it finds none of these?

              repeat
                if not LoggedIn then Exit;
                  LinearRoadWalk(FindVarrockRoadColor, 180, 60, 0, 0);
                  Flag;
              until FindMMColorTol(x, y, BankColor1, 5) or
                    FindMMColorTol(x, y, BankColor2, 5) or
                    FindSymbol(x, y, 'training dummy') or
                    FindSymbol(x, y, 'water') and FindSymbol(x, y, 'archery shop');

I'll be back later, I'm not sure if I'm convinced either. I just know I need some chocolate.

it has a time limit to find those. if it doesnt find it and time limit is over then it will log out and set player false and next player. please read all the procedure because this is not the first time i have shown you that u was wrong mister JackLKrawl :p

Pros: you have cases, arrays, DTMs, functions player array…
Cons:Standards make my head hurt, WAYYYY to many procedures. You only need like 1/4 of them., Few small errors. Idk what to vote.

From: Santa_Clause
Just wondering, did you make that 26 hour progress report up?

From: macromacro123
no thats my onld version 0.4 report. i use it in my vmware machine. it is posted from my vmware machine.

some do not understand the subtle thing called irony :)

Why Do You Currently Have Two Open Polls?

how can i close my other poll?

you can't. mick he has two polls because many insisted that he posted his yew chopper that runs for 20h+ and so he posted a new app with this script.

~RM

I don't know but I'm not sure why you would think its okay to reapply a day later. I understand you wanted to post up a different script but you should have done that in your old application.

From: macromacro123
it has a time limit to find those. if it doesnt find it and time limit is over then it will log out and set player false and next player. please read all the procedure because this is not the first time i have shown you that u was wrong mister JackLKrawl :p

You were wrong the other time too, I just felt it would be kind to stop pming you about it.

You're wrong again. You have it set up in a loop with a marktime set just before it. You have a semicolon indicating the end to conditions. There is no 'If timefrommark > then break' in that repeat until, but after the loop finishes.

I'm voting no, you edit this and then try to contradict me, trying to make me look like a fool - again.
Edit: He didn't edit it, it's still there.

well people told me to post it.

well this is unacceptable… this is a auto decline… you made already a app yesterday? and now you made 1 today no….

and btw 26 hour proggie looks fake big time take it off lol

From: JackLKrawl
You were wrong the other time too, I just felt it would be kind to stop pming you about it.

You're wrong again. You have it set up in a loop with a marktime set just before it. You have a semicolon indicating the end to conditions. There is no 'If timefrommark > then break' in that repeat until, but after the loop finishes.

well my scrpit stops after 3 mins of searching the colors if not found. and the other time i was right because yes it has to use the dtm. when it finds broken axe it logs out. i believe wat i saw in my scripts. if didnt work i wouldnt be tellin u wrong but it does.

From: JackLKrawl
You were wrong the other time too, I just felt it would be kind to stop pming you about it.

You're wrong again. You have it set up in a loop with a marktime set just before it. You have a semicolon indicating the end to conditions. There is no 'If timefrommark > then break' in that repeat until, but after the loop finishes.

macromacro, he means in the procedure WalkToBank. in this one, unlike in the other ones, you forgot the time mark.

@Jack: in his other walking procedures he does have a time mark.
@pinky: different script, people asked for him to apply with the script. maybe he could've edited the other app, but what real difference does it make? Fakawi already gave his ok.

From: macromacro123
well people told me to post it.

… Seems you misunderstood.

From: p1nky
well this is unacceptable… this is a auto decline… you made already a app yesterday? and now you made 1 today no….

and btw 26 hour proggie looks fake big time take it off lol

i wont take it off it isnt fake and btw wtf is ur problem saying its fake

From: Rasta Magician
macromacro, he means in the procedure WalkToBank. in this one, unlike in the other ones, you forgot the time mark.

Nvm, he didn't edit it. It's still there.

From: Rasta Magician
macromacro, he means in the procedure WalkToBank. in this one, unlike in the other ones, you forgot the time mark.

@Jack: in his other walking procedures he does have a time mark.
@pinky: different script, people asked for him to apply with the script. maybe he could've edited the other app, but what real difference does it make? Fakawi already gave his ok.

Yeah, I saw those.

From: macromacro123
well my scrpit stops after 3 mins of searching the colors if not found. and the other time i was right because yes it has to use the dtm. when it finds broken axe it logs out. i believe wat i saw in my scripts. if didnt work i wouldnt be tellin u wrong but it does.

Stop covering your ears. You don't free the dtm if the result is true, because you didn't put another freedtm before the exit. But if it does not find the dtm, then what result does it return?

No on past attitude.

Hmmm….

Hmmm….

Hmmm….


I'll guess yes and see if I win the prize.

I'll check back later. It seems good for me. If YOU fix the standards in it then I will vote yes. *Will check back later*

From: Smartzkid
No on past attitude.

heh you just proved you are as immature as i was back then by voting no for my PAST attitudes and not for my work. sad.. sad.

From: richk1693
I'll check back later. It seems good for me. If YOU fix the standards in it then I will vote yes. *Will check back later*

what do you mean by fix the standards? what is wrong with them?? thanks for ur positive opnion

From: macromacro123
heh you just proved you are as immature as i was back then by voting no for my PAST attitudes and not for my work. sad.. sad.

And you just validated my suspicions that your current attitude is the same as your past attitude.

Sorry if you aren't familiar with the process of voting on member apps, but in many people's opinions, attitude is far more important than scripting skill. In the past, many have been denied because of their attitude.

From: macromacro123
heh you just proved you are as immature as i was back then by voting no for my PAST attitudes and not for my work. sad.. sad.

Do you know why I got in? It isn't because I have 'mad skills' in scripting. It's because I understood my position and who I was talking to. This is in the rules I believe, "don't pretend to be better than you are." Many of the people who are members now have been here for a long time, and have a lot of experience in scripting. They can do more than the things you can do. This is the reason you aren't selected by your 'work' alone.

You are never selected to be a member because you are unique. In fact, I want to make this clear to you, you are not as unique as you pretend. This is the harsh, brutal reality of it, and it's going to put you into a state of denial and make you feel foolish. You should, because based upon your way of thinking, you are not required at all. I am not required at all, and most of us are not required at all, for this community to survive. SCAR is a very generous trial and error language. It doesn't take someone highly gifted, although someones do come by.

Believe it or not, this is a popularity contest.

From: JackLKrawl
I despise you. Why would you think that there is an introduction in the form? Originally I was going to say yes before you started acting like a know-it-all. I usually keep grudges and personal opinions out of things. When you're getting voted for, it's never a good idea to insult people who have been approved by the community.

hey im not an ass its just that he votes for what i said in the past. thats like the last year. i was a leecher im not a leecher anymore so im not an ass as you say. i dont have bad attitude im just persistent sometimes and sorry if u think its annoying

Aye, sad, isn't it, when things from so long ago come back and haunt you.

I'll look over some of your recent posts, but I don't think my vote's gonna change, not in time to make a difference on this poll. Maybe by your next try I'll be convinced that you're worthy of membership.

From: Smartzkid
Aye, sad, isn't it, when things from so long ago come back and haunt you.

I'll look over some of your recent posts, but I don't think my vote's gonna change, not in time to make a difference on this poll. Maybe by your next try I'll be convinced that you're worthy of membership.

Thanks alot

Yeah. No. Past experiences, multiple apps, and i don't believe the proggie.

I r want walking failsafes…

No. i gave you half the script with the right standards yesterday and you didn't even bother to copy it or say thank you. and yes your attitude isn't really the best i've seen.

Not voting but… Why on earth do you need like 6 ent finding procedures and I manage my script with only 1, and mine chops every free tree, wtf?! And yea learn standars mate, look:

if not LoggedIn then Exit;
    if InvFull then
      begin
        PerfectNorth;
          if FindMMColorTol(x, y, PlantColor, 5) then
            begin

Begin should be on the same line as the previous, so:

if not LoggedIn then Exit;
  if InvFull then
  begin
    PerfectNorth;
    if FindMMColorTol(x, y, PlantColor, 5) then
    begin

Its why all ur procs have like massive gaps at the bottom, they should flow :p

very nice use of failsafes lol, do they even work? :D

FindRS;
 begin

What why on earth do you have a begin in the middle of a procedure without a 'then' or anything before it???

And I wanna know how many players you got the supposed '26 hours'. I can never get more than 10 hours per player without getting an unsolvable random… so if you used one then you should get the hell out of here for lying to a truth based community.

Why do all the appz lately end in pissed off people :( come on guys be happy! Fakawi already warned you guys :p

I accept with mr.klean a bit and and you should have to wait until last applie is closed…

If it would be 1 single appliance, script like Rasta Magician's fixed, then I would vote yes…

It was NO btw

I think you misunderstood the posting of your other script ;) You should've edited your first post in the other thread. I closed the other one for you.
If you want, you can add (edit in the first post) your other script :)

Sorry, made my decision, no.

You know, you really should've made the script to fulfill the requirements that I told in your other app.

Its a no sorry..
I used to have standards like that.
I don't really follow a code for the sandards but it matters to make your begging's and end's match up :)
Click Here to become a respected srl member next time :)

From: Fr0zN_S0uL
Not voting but… Why on earth do you need like 6 ent finding procedures and I manage my script with only 1, and mine chops every free tree, wtf?! And yea learn standars mate, look:

if not LoggedIn then Exit;
    if InvFull then
      begin
        PerfectNorth;
          if FindMMColorTol(x, y, PlantColor, 5) then
            begin

Begin should be on the same line as the previous, so:

if not LoggedIn then Exit;
  if InvFull then
  begin
    PerfectNorth;
    if FindMMColorTol(x, y, PlantColor, 5) then
    begin

Its why all ur procs have like massive gaps at the bottom, they should flow :p

very nice use of failsafes lol, do they even work? :D

FindRS;
 begin

What why on earth do you have a begin in the middle of a procedure without a 'then' or anything before it???

And I wanna know how many players you got the supposed '26 hours'. I can never get more than 10 hours per player without getting an unsolvable random… so if you used one then you should get the hell out of here for lying to a truth based community.

Why do all the appz lately end in pissed off people :( come on guys be happy! Fakawi already warned you guys :p

i used 10 players to get a 26 hours running not only 1 player

I don't believe the progress report either. It averages in 156 minutes per player, and always 27 yews… per bank…
Someone able to cut yews, test it? No reason to say 'No' because you don't believe the guy, might as well make sure you aren't wrong.

by the way it counts logs 27 per bank even if it has a random item in inv. its aprox because i dont have a log coounter in it. it does + 27 evry load so it might be approx

he's not in. next time maybe?
Work on standards!

Read some tutorials, learn, and improve your script. You may try again in one month, good luck :)

Closed.