SRL Archive - RS3 Script Requests

Ivy Cutter :) quick fast wc exp.

http://villavu.com/forum/showthread.php?t=57454

If you really want it working you should send him your account.

If you're silly and don't think he's trusted I can let him use mine.

too bad you got to be members…

From: i luffs yeww
http://villavu.com/forum/showthread.php?t=57454

If you really want it working you should send him your account.

If you're silly and don't think he's trusted I can let him use mine.

i do trust him but i'm pretty sure he's busy currently but if not i'll lend him.

You could always just send the info to him. Or.. you know.. ask him or something like that. Some sort of way to get the message to him that you have an account he can use for the script may help.

im not busy, i just finished school so i have about 1.5 months before i go to college, so i have 1.5 months free, if i can get a account then i will gladly update it (i want to update it but have no account)

~shut

I started on one, if anyone wants to just pick up the pieces, they can:

program New;
{.include SRL/SRL/Misc/SMART.scar}
{.include SRL/SRL.scar}

const
  SmartWorld = 120;              // Which World/Server do you want to use?
  SmartMembers = False;     //  Is it a Members World?
  SmartSigned = True;         //  Signed/UnSigned Client?
  SmartSuperDetail = False;    //  Use Super Detail?
  Debug = True; //for testing purposes or curiosity
  
var
  TimeT: integer;
  
procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  
  with Players[0] do
  begin
    Name := '';
    Pass := '';
    Nick := 'ut';
    Active := True;
    Integers[0] := 50; //loads
    Booleans[0] := True; //equipped?
  end;
end;

procedure CDebug(TheString: string);
begin
  if Debug then Writeln(TheString);
end;

function MMouseIsText(x, y: integer; UpText:string): boolean;
begin
  if not LoggedIn then Exit;
  MMouse(x, y, 3, 3);
  Wait(60+random(10));
  Result := IsUpText(UpText);
end;

procedure ICP_CountIvy;
begin
  if FindBlackChatMessage('age') then
    Players[CurrentPlayer].Integers[1] := Players[CurrentPlayer].Integers[1] + 1;
end;

function ICP_ReturnIvy: boolean;
var
  TPA, Junk: TPointArray;
  Pointx: TPoint;
  ATPA: T2DPointArray;
  a, b, time, xcolor, g, h, newtime: integer;
  Bounds: TBox;
begin
  MarkTime(time);
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.03, 0.08);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 5939067, MSX1, MSY1, MSX2, MSY2, 10);
  SetColorSpeed2Modifiers(0.2, 0.2);
  ColorToleranceSpeed(1);
  if Length(TPA) < 1 then Exit;
  ATPA := TPAToATPAEx(TPA, 55, 55);
  SortATPAFromFirstPoint(ATPA, Point(MSCX, MSCY));
  b := High(ATPA);
  Writeln(IntToStr(TimeFromMark(time)));
  for a:=0 to b do
  begin
    if b < 3 then Exit;
    Pointx := MiddleTPA(ATPA[a]);
    Writeln(IntToStr(TimeFromMark(time)));
    if MMouseIsText(Pointx.x, Pointx.y, 'vy') then
    begin
      Writeln(IntToStr(TimeFromMark(time)));
      Writeln('Found ivy');
      GetMousePos(g, h);
      Mouse(g, h, 0, 0, true);
      repeat
        Wait(300+random(100));
      until (not (IsMoving)) or (not (LoggedIn));
      Wait(200+random(40));
      Bounds := GetTPABounds(ATPA[a]);
      FindColorsTolerance(Junk, 5939067, Bounds.x1, Bounds.y1, Bounds.x2, Bounds.y2, 10);
      MarkTime(newtime)
      while (not (Length(Junk) < 15)) or (not (TimeFromMark(newtime) >= 180000)) do
      begin
        Wait(500+random(200));
        FindColorsTolerance(Junk, 5939067, Bounds.x1, Bounds.y1, Bounds.x2, Bounds.y2, 10);
      end;
      Writeln('Ivy gone.');
    end;
  end;
end;

{procedure ICP_ClickIvy;
var
  APoint: TPoint;
  c, d, e, timea: integer;
  Found: boolean;
begin
  if not LoggedIn then Exit;
  MarkTime(timea);
  repeat
    e := e + 1;
    APoint := ICP_ReturnIvy;
    if APoint.x <> 0 then
    begin
      Found := True;
      Break;
    end;
    Wait(1400+random(500));
  until (e = 5) or (TimeFromMark(timea) >= 300000) or (not (LoggedIn));
  if not Found then Exit;
  GetMousePos(c, d);
  Found := RBool;
  Mouse(c, d, 0, 0, Found);
  if not Found then
  begin
    Wait(200+random(50));
    ChooseOption('hop');
  end;
  
end;  }

procedure ICP_Chop;
var
  NowCount: integer;
begin
  repeat
    NowCount := 0;
    repeat
      if not LoggedIn then Exit;
      NowCount := NowCount + 1;
      ICP_ReturnIvy;
      Wait(600+random(200));
    until (NowCount = 50);
  until (NowCount = 50)
end;

begin
  Smart_Server := SmartWorld;
  Smart_Members := SmartMembers;
  Smart_Signed := SmartSigned;
  Smart_SuperDetail := SmartSuperDetail;
  SetupSRL;
  DeclarePlayers;
  Wait(2000);
  LoginPlayer;
  Wait(400+random(200));
  SetAngle(false);
  Wait(300+random(100));
  MakeCompass('e');
  MarkTime(TimeT);
  ICP_ReturnIvy;
  Writeln(IntToStr(TimeFromMark(TimeT)));
end.

I know it is hard to read. Just something I was working on, but never found the time to continue it.

From: Cut em2 it
I started on one, if anyone wants to just pick up the pieces, they can:

program New;
{.include SRL/SRL/Misc/SMART.scar}
{.include SRL/SRL.scar}

const
  SmartWorld = 120;              // Which World/Server do you want to use?
  SmartMembers = False;     //  Is it a Members World?
  SmartSigned = True;         //  Signed/UnSigned Client?
  SmartSuperDetail = False;    //  Use Super Detail?
  Debug = True; //for testing purposes or curiosity
  
var
  TimeT: integer;
  
procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  
  with Players[0] do
  begin
    Name := '';
    Pass := '';
    Nick := 'ut';
    Active := True;
    Integers[0] := 50; //loads
    Booleans[0] := True; //equipped?
  end;
end;

procedure CDebug(TheString: string);
begin
  if Debug then Writeln(TheString);
end;

function MMouseIsText(x, y: integer; UpText:string): boolean;
begin
  if not LoggedIn then Exit;
  MMouse(x, y, 3, 3);
  Wait(60+random(10));
  Result := IsUpText(UpText);
end;

procedure ICP_CountIvy;
begin
  if FindBlackChatMessage('age') then
    Players[CurrentPlayer].Integers[1] := Players[CurrentPlayer].Integers[1] + 1;
end;

function ICP_ReturnIvy: boolean;
var
  TPA, Junk: TPointArray;
  Pointx: TPoint;
  ATPA: T2DPointArray;
  a, b, time, xcolor, g, h, newtime: integer;
  Bounds: TBox;
begin
  MarkTime(time);
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.03, 0.08);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 5939067, MSX1, MSY1, MSX2, MSY2, 10);
  SetColorSpeed2Modifiers(0.2, 0.2);
  ColorToleranceSpeed(1);
  if Length(TPA) < 1 then Exit;
  ATPA := TPAToATPAEx(TPA, 55, 55);
  SortATPAFromFirstPoint(ATPA, Point(MSCX, MSCY));
  b := High(ATPA);
  Writeln(IntToStr(TimeFromMark(time)));
  for a:=0 to b do
  begin
    if b < 3 then Exit;
    Pointx := MiddleTPA(ATPA[a]);
    Writeln(IntToStr(TimeFromMark(time)));
    if MMouseIsText(Pointx.x, Pointx.y, 'vy') then
    begin
      Writeln(IntToStr(TimeFromMark(time)));
      Writeln('Found ivy');
      GetMousePos(g, h);
      Mouse(g, h, 0, 0, true);
      repeat
        Wait(300+random(100));
      until (not (IsMoving)) or (not (LoggedIn));
      Wait(200+random(40));
      Bounds := GetTPABounds(ATPA[a]);
      FindColorsTolerance(Junk, 5939067, Bounds.x1, Bounds.y1, Bounds.x2, Bounds.y2, 10);
      MarkTime(newtime)
      while (not (Length(Junk) < 15)) or (not (TimeFromMark(newtime) >= 180000)) do
      begin
        Wait(500+random(200));
        FindColorsTolerance(Junk, 5939067, Bounds.x1, Bounds.y1, Bounds.x2, Bounds.y2, 10);
      end;
      Writeln('Ivy gone.');
    end;
  end;
end;

{procedure ICP_ClickIvy;
var
  APoint: TPoint;
  c, d, e, timea: integer;
  Found: boolean;
begin
  if not LoggedIn then Exit;
  MarkTime(timea);
  repeat
    e := e + 1;
    APoint := ICP_ReturnIvy;
    if APoint.x <> 0 then
    begin
      Found := True;
      Break;
    end;
    Wait(1400+random(500));
  until (e = 5) or (TimeFromMark(timea) >= 300000) or (not (LoggedIn));
  if not Found then Exit;
  GetMousePos(c, d);
  Found := RBool;
  Mouse(c, d, 0, 0, Found);
  if not Found then
  begin
    Wait(200+random(50));
    ChooseOption('hop');
  end;
  
end;  }

procedure ICP_Chop;
var
  NowCount: integer;
begin
  repeat
    NowCount := 0;
    repeat
      if not LoggedIn then Exit;
      NowCount := NowCount + 1;
      ICP_ReturnIvy;
      Wait(600+random(200));
    until (NowCount = 50);
  until (NowCount = 50)
end;

begin
  Smart_Server := SmartWorld;
  Smart_Members := SmartMembers;
  Smart_Signed := SmartSigned;
  Smart_SuperDetail := SmartSuperDetail;
  SetupSRL;
  DeclarePlayers;
  Wait(2000);
  LoginPlayer;
  Wait(400+random(200));
  SetAngle(false);
  Wait(300+random(100));
  MakeCompass('e');
  MarkTime(TimeT);
  ICP_ReturnIvy;
  Writeln(IntToStr(TimeFromMark(TimeT)));
end.

I know it is hard to read. Just something I was working on, but never found the time to continue it.

i have a working ivy cutter, but i need a account to improve a couple of bits

~shut

account information sent :)

reflection is outdated :(

~shut

From: Shuttleu
reflection is outdated :(

~shut

Do you really need reflection for an IvyChopper? :/

I can update mine I guess. Where would you like it to Cut? Just so I can specifically make sure it work's there.

well mine works with all locations and all axes and is reliable and fast (when i update it)

~shut

^ Still see no reason why reflection is needed. :p

faster and more accurate (when done correctly)

and because i was lazy at the time :p

~shut

okay i updated my script which i tested and seemed to be working fine :)

~shut