SRL Archive - First Scripts

This is the one and only working IvyChopper thats working after the SocialSlayer, New Bar update.

I don't take any credit for it, all goes to http://villavu.com/forum/showthread.php?t=83624, however it did take me a few hours to get this around my head and fix it for the new .99version on Simba and 7.2 SMART.

How to get them: http://villavu.com/forum/showpost.php?p=1070475&postcount=866

How to open–> open the simba in your C:/ and run it as admin and open this script, then hit the green triangle, and then it should work.

program Universal_IvyChopper;
{$DEFINE SMART}
{$i srl\srl.simba}

var
x, y: Integer;

/////////////////////////////////////////////////////////////////////
///////////////////////SETUP YOUR DETAILS HERE///////////////////////
Const
  AntiBanUsage = 150; // Higher number = less antiban worktime. (100-200 recommended)
  Direction = 'S'; //N=north, W=west, S=south, E=east. choose the looking-direction of the compass.

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := 'x'; //RS Username
  Players[0].Pass := 'x'; //RS Password
  Players[0].Active := True; //Set to true if you want to use this player. Set to False to disable this player.
end;
/////////////////////////END OF DETAILS SETUP////////////////////////
/////////////////////////////////////////////////////////////////////

Function IsntChopping: Boolean;
var
  PBox: TBox;
begin
  PBox := IntToBox(245, 180, 285, 245);
  Result := (AveragePixelShift(PBox, 250, 500) < 275);
end;

procedure ChopIvy;
var
  T: Integer;
begin
  if (FindObjCustom(x,y,['vy','Iv','Ivy'], [6335365,3761743,4157527], 3)) then
  begin
    clickMouse2(false);
    MarkTime(T);
    Repeat
      Wait(25+Random(10));
    until(ChooseOption('Chop')Or(TimeFromMark(T)>10000));
    wait(2000+random(500));
  end;
end;

procedure Antiban;
begin
  if FindNormalRandoms then
  begin
    ClickNorth(SRL_ANGLE_HIGH);
    MakeCompass(Direction);
  end;
  case Random(AntiBanUsage) of
    0: RandomRClick;
    1: PickUpMouse;
    2: HoverSkill(skill_Woodcutting, False);
end;
end;


procedure MainLoop;
begin
    repeat
      ChopIvy;
      repeat;
      Antiban;
      FindNormalRandoms;
      until(IsntChopping);
      if not(LoggedIn) or not(Players[CurrentPlayer].Active) then
      TerminateScript;
      until(False);
end;

begin
  {$IFDEF SMART}
    {$IFDEF SIMBAMAJOR980}
      Smart_Server := 72;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
    {$ELSE}
      SRL_SixHourFix := True;
      Smart_FixSpeed := True;
    {$ENDIF}
  {$ENDIF}

  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  GetAllLevels;
  GameTab(Tab_Inv);
  ClickNorth(SRL_ANGLE_HIGH);
  MakeCompass(Direction);
  if not IsXPBarOpen then ToggleXPBar(true);
  Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
  wait(1000+random(1000));
  MainLoop;
end.

Now now… The admin that tried to hack me.

Goodfight fellar.

But I'm not that derpity derp.

Uwotm8