SRL Archive - First Scripts

Mariuswbz Yewz

This is first script ive made with help from Torrent of Flamre.

This is a Edge Yew Cutter.

[B]Updates[/B]

SMART works
Symbol Finding
Player Setup
SRL system
AntiBan
AntiRandoms
EntFinder

{----------------------------------------------------}
{  __  __            _                    _          }
{ |  \/  |          (_)                  | |         }
{ | \  / | __ _ _ __ _ _   _ _____      _| |__ ____  }
{ | |\/| |/ _` | '__| | | | / __\ \ /\ / / '_ \_  /  }
{ | |  | | (_| | |  | | |_| \__ \\ V  V /| |_) / /   }
{ |_|  |_|\__,_|_|  |_|\__,_|___/ \_/\_/ |_.__/___|  }
{            __     __                               }
{            \ \   / /                               }
{             \ \_/ /____      ______                }
{              \   / _ \ \ /\ / /_  /                }
{               | |  __/\ V  V / / /                 }
{               |_|\___| \_/\_/ /___|                }
{----------------------------------------------------}
{               Setting this shit up                 }
{ 1. Use low detail with very bright settings        }
{ 2. Fill the setup lines 39-82                      }
{ 3. Start with axe equipped or in first slot in     }
{    Edge bank.}
{ 4. Drag the cross to rs window                     }
{ 5. Sit down and relax                              }
{----------------------------------------------------}
{                      CREDITS                       }
{ Mariuswbz - Making the script                      }
{ Torrent of Flamre - For helping me!! Thanks!!      }
{ BobboHobbo - For entfinder. Thanks.                }
{----------------------------------------------------}

Progresses:

/-----Mariuswbz Yewz-----\
|-Worked for
|-Did: 1 Loads
\------------------------/
/-Remember to post proggy\
\------------------------/

Thanks,
Marius.


Please post bugs

Its good for a first script, but for that ent finder you got to say what tree, i suggest you use SRL's Ent Finder…

procedure ChopYews;
begin
  if not LoggedIn then
  Exit;
  MakeCompass('S');
  EntFinder;
  FindEnt(x, y, True);
  repeat
    if (FindObjCustom(x, y, ['Yew'], [2181180,3633766,4426622], 7)) then
    begin
      Mouse(x,y,0,0,false);
      repeat
        Wait(100 + (random(150)));
        ChooseOption('hop')
        AntiBan;
      until(InvFull)
    end;
  until(InvFull)
end;

Umm so it just clicks the tree and waits till invfull? what if the tree falls your script will fail..

Not bad for a first script.

Thanks. :)
Ill fix now.

Spam much Jett?

Looks nice im going to try it :P

Looks nice i might want to try it

ooooo Sweet dude

Uhh maybe try changing your Yew procedure to something like this (I haven't tested so I'm not sure if it works 100%).

procedure ChopYews;
var
xx, yy: integer;
begin
  if not LoggedIn then Exit;
  MakeCompass('S');
  repeat
    FindEnt(xx, yy, true);
    if (FindObjCustom(x, y, ['Yew'], [2181180,3633766,4426622], 10)) then
    begin
      Mouse(x, y, 3, 3, false);
      Wait(100 + (random(150)));
      ChooseOption('hop')
      AntiBan;
      Wait(3000 + Random(5000));
    end;
  until(InvFull)
end;

I made it so it clicks on the yew more than one time, and made it so it waits before clicking again.

Try using RadialWalk instead of Symbols.

This is first script. I will update soon :]

Hence being in the first script section? Maybe for the next update add a auto responder since many people like talking when cutting yew trees. And maybe make the RandomTalk less personal and more talk things.

Haha at Iron mans signature, 0_o.

Also you can Add Anti-Ban and Anti-Randoms.

My sig changes every time you refresh the page :D. But he does have Antiban and AntiRandoms in there.

Also your standards are off a bit in your ent procedure. I fixed them for you

procedure EntFinder; //By Yohojo - Modded by BobboHobbo
var
  EX, EY: integer;
  FX, FY: integer;
  SafeEntWait: LongInt;
begin
  if (not (LoggedIn)) then Exit;
  begin
    Status('Ent Checking')
    if (FindObjCustom(EX, EY, ['Willow'], [4690821], 7)) then
    begin
      MMouse(EX, EY, 0, 0)
      if FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) then
      begin
        Status('Found Ent');
        MarkTime(SafeEntWait)
        repeat
          FTWait(5)
          FindNormalRandoms;
          if not (LoggedIn) then
          NextPlayer(False);
        until TimeFromMark(SafeEntWait) > 20000 + Random(5000);
      end;
    end;
  end;
end;

It now says "Hitler started the Final Solution because Iron Man ftw didnt like the Jews" hahahahaha :D

Aaah. He does have Anti-Ban :P

My mistake.

i am going to give this a try

From: finnigan
i am going to give this a try

Spam - This script is probably outdated. Dont gravedig.

great



:sasmokin:

:f:

:fiery:

Ill try this one out

From: willie2oo8
Ill try this one out

congrads on spamming willie, and nice gravedig too