SRL Archive - RS3 Outdated / Broken Scripts

Seeing how Ivy is the easiest way to get 99 wc because theres no banking involved I was just wondering if anyone wanted to code up an autoer.

You can!

Check out the tutorial island and you are one step closer!

*big wink face*

???

Gimme more info like where thevbest place is, what it is. What funcs/procs you would need etc and i will make

From: The Man
Gimme more info like where thevbest place is, what it is. What funcs/procs you would need etc and i will make

That would be awesome, well you don't get anything from cutting ivy so you dont have to worry about your inventory getting full. I think the best place is outside Falador, on the north east wall and the Ivy is right against the wall. Heres a pic. As for functions hmmm I guess it could be pretty basic. Just needs to click the ivy then when it dissapears to move to the next one. No need for a script that logs on, no proggy.. idk what else im missing.

I will do you a deal.
So you can get scripting experience,
You make me Ivy in the format of:
'ivy':
with Result do
begin
Name := 'ivy';
UpText := ['I Iv', 'Ivy'];
Color := 4297090;
Tol := 11;
Hue := 0.04;
Sat := 0.91;
width := 30;
hight := 30;
Level := 15;
end;
and I will add Ivy into my ProWoodcutter so you can use.
Deal?

Name := 'ivy';
UpText := ['I Iv', 'Ivy'];
Color := 2639671;
Tol := ?;
Hue := ?;
Sat := ?;
width := ?;
hight := ?;
Level := ?;

All I can get is the color, I'm looking in the basic tutorials and I don't see anything about finding the Tolerance, Hue, Saturation, Width, Height, and Level.

procedure ColortoHSL(C: TColor; var H, S, L: Extended);

Converts Color to Hue, Saturation and Luminance map.

Thats all I found. I'm sorry but I'm trying and not getting anywhere, I work on cars not code scripts :(

You can use the autocolor aid to get accurate Tol,Hue, Sat and so on.

It's in your scar/includes folder somewhere…

~caused

ok how about this

Color := 2573369;
Tol := 4;
Hue := 1.45;
Sat := 0.22;
width := still unknown;
height := still unknown;
Level := still unknown;

Color := 2573369;
Tol := 4;
Hue := 1.45;
Sat := 0.22;
width := 62;
height := 10;
Level := what is level...;

level to cut?

From: ZaSz
level to cut?

Um if thats what its supposed to mean then here it is

ivy':
with Result do
begin
Name := 'ivy';
UpText := ['I Iv', 'Ivy'];
Color := 2573369;
Tol := 4;
Hue := 1.45;
Sat := 0.22;
width := 62;
hight := 10;
Level := 68;
end;

Yes it is level to cut.
I will put it in right now :)

There you go, it is in my ProWoodcutter :)

damn, I didnt download reflection yet so i cant use it. will do after i get home from work. thanks

Line 661: [Error] (22763:58): Type mismatch in script I:\Documents and Settings\XXJUSTIN100XX\Desktop\SCAR\SCAR 3.21\includes\SRL\SRL\Reflection\Characters.Scar

1) Dont double post, edit your last one
2) Reflection/All reflection scripts currently dont work. Sorry.

YoHoJo, my script does work.
Because I only use ref for walking, so it doesn't rely on it.
Justin, you can take out the reflection bits (walking) and the reflection include.
In the setup you want tree as: ivy
and location as: power
Hope this helps :)
if you need more help add me on msn
[email]Destiful@hotmail.co.uk[/email]

Still can't get it to work, and I sent you a message via email

did someone ever get one working? im really interested in it if someone has

I did, but I don't think it works anymore.
It would be easy to make one yourself though.
Just get it to click it, wait till it has gone, click a new one, repeat

that sounds hard to me lol, im very new to scripting and it seems so hard :'(

From: kevinconklin
that sounds hard to me lol, im very new to scripting and it seems so hard :'(

it's actually one of the easiest scripts to write for your first time.

FindObjectTPA(stuffinhere)

failsafes, viola your done. No Dropping no nothing, just continuous chopping.

From: Blumblebee
it's actually one of the easiest scripts to write for your first time.

FindObjectTPA(stuffinhere)

failsafes, viola your done. No Dropping no nothing, just continuous chopping.

ok where is a good tut?

From: kevinconklin
ok where is a good tut?

in the tut island section ;) I'm too lazy to look through myself but have a good read in there, I spend the first month of scripting reading tut island and stealing other peoples code :p

Very very basic, but I used a while ago to get 99wc on one of my account's. You might need to update some colors.

I used it at the caste walls south of adrougne, not sure if it works other places or not.

program IvyChpper;
{.Include srl\srl\Misc\Smart.scar}
{.include SRL/SRL.scar}

var
  BreakTimer, BeginingLvl, TO_Time, time: Integer; IvyColors: array of Integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  with Players[0] do
  begin
    Name   := '';
    Pass   := '';
    Nick   := ''; // 3-4 LOWERCASE letters from your username.
    Active := True; // True = use this player.
    
    Integers[0] := 90;//Time to run script between breaks. (In Minutes);
    Integers[1] := 15;//Time to break; (In minutes);
  end;
end;

procedure BreakTime;
var
  tBreak, t, h, m, s: Integer;
begin
  if LoggedIn then
    Logout;
  tBreak := ((Players[CurrentPlayer].Integers[1] + Random(5)) * 1000);
  ConvertTime(tBreak, h, m, s);
  Writeln('Taking a Break for '+IntToStr(m)+' minutes and '+IntToStr(s)+' seconds.');
  
  MarkTime(t);
  while TimeFromMark(t) < tBreak do
  begin
    Wait(10);
    ConvertTime(tBreak - TimeFromMark(t), h, m, s);
    Disguise('Taking a break for: '+inttostr(M)+ ' minutes and ' +inttostr(S)+ ' seconds.');
  end;
  
  MarkTime(BreakTimer);
  LoginPlayer;
end;

function FindIvy: TPoint;
var
  x, y, i, Pt: Integer; Arr: array of TPoint; MDAr: T2DPointArray;
begin
  if not LoggedIn then
    Exit;
  for i := 0 to High(IvyColors) do
  begin
    Writeln('Searching for color '+IntToStr(i)+';');
    FindColorsSpiralTolerance(MSCx, MSCy, Arr, IvyColors[i], MSx1, MSy1, MSx2, MSy2, 9);
    if Length(Arr) > 5 then
      Break;
  end;

  Writeln('Found color '+IntToStr(i)+' successfully.');
  MDAr := TPAtoATPAEx(Arr, 12, 12);
  SortATPAFrom(MDAr, Point(MSCx, MSCy));

  for i := 0 to High(MDAr) do
  begin
    Pt := Random(Length(MDAr[i]));
    MMouse(MDAr[i][Pt].x, MDAr[i][Pt].y, 2, 2);
    if Pos('vy', GetUpText) > 0 then
    begin
      GetMousePos(x, y);
      Result := Point(x, y);
      Exit;
    end;
    if i = High(MDAr) then
    begin
      srl_Warn('FindTree', 'Failed to find tree.', warn_AllVersions);
      Exit;
    end;
  end;
end;

function IvyExists: Boolean;
var
  i: Integer; Arr: array of TPoint;
begin
  if not LoggedIn then
    Exit;
  MakeCompass('n');
  for i := 0 to High(IvyColors) do
  begin
    FindColorsSpiralTolerance(MSCx, MSCy, Arr, IvyColors[i], MSCx - 6, MSCy - 35, MSCx + 5, MSCy, 9);
    Result := Length(Arr) > 5;
    if Result then
    begin
      Writeln('IvyExists;');
      Exit;
    end
    else
      Writeln('Ivy does not exist.');
  end;
end;

function ChopLoop: Boolean;
var
  p: TPoint; t: Integer;
label WhileChopping;
begin
  if not LoggedIn then
    Exit;
  {if IvyExists then
    goto WhileChopping;}
  FindNormalRandoms;
  
  if Random(15) = 5 then
  begin
    Writeln('Waiting..');
    Wait(RandomRange(20000, 180000));
  end;
  
  Writeln('Searching for Ivy..');
  p := FindIvy;
  if p.x = 0 then
  begin
    srl_Warn('ChopLoop', 'FindIvy failed to return a valid point.', warn_AllVersions);
    Exit;
  end;
  
  Writeln('Clicking Ivy..');
  Mouse(p.x, p.y - 5, 7, 8, True);
  FFlag(1);
  Wait(RandomRange(1000, 2200));
  
  WhileChopping:
  MarkTime(t);
  repeat
    Writeln('Wait while chopping..');
    FindNormalRandoms;
    Wait(50);
    if (TimeFromMark(t) >= (3 * 60000)) then
      Break;
    if Random(5) = 1 then
    begin
      Writeln('Anti-Ban..');
      case Random(500) of
        0..1 : HoverSkill('Woodcutting', False);
        30 : HoverSkill('random', False);
        43 : if Random(2) = 1 then RandomRClick;
      end;
    end;
  until(not(IvyExists));
  Result := True;
  Writeln('End ChopLoop;');
end;
  
begin
  SetUpSRL;
  DeclarePlayers;
  ActivateClient;
  LoginPlayer;
  GraphicsSet := True;
  BeginingLvl := GetSkillLevel(skill_Woodcutting);
  IvyColors := [5609589, 3828049, 4289882, 4355932, 3695694, 4949607, 4157783, 3563594];
  MarkTime(BreakTimer);
  repeat
    {Check if it's BreakTime}
    if Players[CurrentPlayer].Booleans[0] then
      if (TimeFromMark(BreakTimer) >= (Players[CurrentPlayer].Integers[0] * 1000)) then
        BreakTime;

    {while (TimeFromMark(BreakTimer) < (Players[CurrentPlayer].Integers[0] * 1000))
      and not AllPlayersInactive do
    begin}
    repeat
      Wait(RandomRange(200, 4000));
      if not ChopLoop then
      begin
        Writeln('ChopLoop failed.');
        NextPlayer(False);
      end;
      if InRange(Random(80), 8, 9) then
      begin
        Writeln('Taking a timeout..');
        Status('Taking a timeout..');
        Disguise('Taking a timeout..');
        TO_Time := RandomRange(30000, 7 * 60000);
        MarkTime(time);
        while TimeFromMark(time) < TO_Time do
        begin
          Wait(500);
          FindNormalRandoms;
        end;
        if not LoggedIn then
          LoginPlayer;
      end;
    until(TimeFromMark(BreakTimer) < (Players[CurrentPlayer].Integers[0] * 1000)) or AllPlayersInActive;
  until(AllPlayersInactive);
end.

i am not sure i know which patch u are reffering to, i tried the ivy on east ardougne chuch but it didnt work

The south east outside castle wars wall.

From: NCDS
The south east outside castle wars wall.

lol bro, u should have told me that, i thought u meant ardougne castle, cuz u didnt say castle wars, i will test. ty
EDIT: i ran it but it ended up cutting the normal tree around the ivy and it said:
Ivy does not exist.
Ivy does not exist.
Ivy does not exist.
Ivy does not exist.
Ivy does not exist.
Ivy does not exist.
Ivy does not exist.
Ivy does not exist.
End ChopLoop;

From: kevinconklin
lol bro, u should have told me that, i thought u meant ardougne castle, cuz u didnt say castle wars, i will test. ty

I would of, but I couldn't remember the name of the place :p

Also, let me know how it work's. If there is a demand for this script I might clean it up a bit/add some features and release.

E: You just need to update the IvyColor.

It's in the MainLoop:

 IvyColors := [5609589, 3828049, 4289882, 4355932, 3695694, 4949607, 4157783, 3563594];

replace all those colors with new ones.

From: NCDS
I would of, but I couldn't remember the name of the place :p

Also, let me know how it work's. If there is a demand for this script I might clean it up a bit/add some features and release.

E: You just need to update the IvyColor.

It's in the MainLoop:

 IvyColors := [5609589, 3828049, 4289882, 4355932, 3695694, 4949607, 4157783, 3563594];

replace all those colors with new ones.

There is definitely a demand for it without question. I will try to script one once I get 99 FM. I am at 97 atm though.

I will try to see if those colors work and let you know! Thanks~

From: AwesomeSRL
There is definitely a demand for it without question. I will try to script one once I get 99 FM. I am at 97 atm though.

I will try to see if those colors work and let you know! Thanks~

ya, theres a demand, its the fastest wc xp in the game, also how do i update the colors, im noob?

From: kevinconklin
ya, theres a demand, its the fastest wc xp in the game, also how do i update the colors, im noob?

- Resize SCAR and open up Runescape. So that you can see the ivy and SCAR.

- Make sure SCAR is on top

- Go to tools –> Color picker or press Ctrl + P

- Your cursor will be like a +

- Click on the ivy in Runescape window

- You will get something like Color Picked: 16777215 at (356, 242)

- That 16777215 is your color

- Do this as many times as you want, choose different colors of the ivy

Then replace this line (do a Ctrl + F and Type IvyColors to find the line)

IvyColors := [5609589, 3828049, 4289882, 4355932, 3695694, 4949607, 4157783, 3563594];

with

IvyColors := [Color 1, Color 2, Color 3, Color 4, Color 5, Color 6, Color 7, Color 8];

Replace the Colors, with the Ivy color you get from the color picker. You can put as many colors as you want. Remember, the more colors you put, the less chance of failing to find Ivy.

This should be moved to script request forum.

i think i got it to work, here is the new color line i added:
IvyColors := [5543283,3561825,5543283,3563851,5477234,5213292,4421468,3695437,3497801,3166038,5543283,4289369,5015657,5807738];

o.o.. Haha you only need like.. four colors.

From: i luffs yeww
o.o.. Haha you only need like.. four colors.

wowow, he said there more the better chance of it finding it…

You will also want to make sure the colors are unique, so it doesn't find them in grass, trees, etc.

I'm currently tweaking my Yew Chopper for release, I have it set up with the stats system incase anyone wants to see how it runs so far.

After I release that I can improve this script though. I didn't realize so many people wanted one.

do you know how to turn off the timeouts/breaks?

From: kevinconklin
do you know how to turn off the timeouts/breaks?

it's in declare players. It says right next to it ;) I don't recommend turning them off, but you can set the times differently.

From: NCDS
You will also want to make sure the colors are unique, so it doesn't find them in grass, trees, etc.

I'm currently tweaking my Yew Chopper for release, I have it set up with the stats system incase anyone wants to see how it runs so far.

After I release that I can improve this script though. I didn't realize so many people wanted one.

Yea there's a lot of people in need of this script my friend. ;)