SRL Archive - RS3 Script Requests

i was wondering if someone could make me a palidino.com thiever or if you could just make a paladin thiever, thanks!

BumP

I made one (with other scripts), the dimensions/coordinates need to be adjusted to your screen, if you do not know how to do it, I wish that you help yourself and learn.

program BSScript;
{$I SRL/SRL.scar}

var HP_Check: Integer;

const Username = '';
      Password = '';
      Script = 1; // 1 = Paladin Thiever
                  // 2 = Black Knight Killer
                  // 3 = Magic Axe Killer
                  // 4 = Hill Giant Killer
                  // 5 = Fire Rune Buyer
                  // 6 = Nature Rune Buyer
      Eating = True; // Defines if the script eats (Sharks).

      GTAB_COMBAT = 'combat';
      GTAB_STATS = 'stats';
      GTAB_QUEST = 'quest';
      GTAB_INV = 'inventory';
      GTAB_EQUIP = 'equip';
      GTAB_PRAYER = 'prayer';
      GTAB_MAGIC = 'magic';
      GTAB_FRIENDS = 'friends';
      GTAB_IGNORE = 'ignore';
      GTAB_LOGOUT = 'logout';
      GTAB_OPTIONS = 'options';
      GTAB_EMOTES = 'emotes';
      GTAB_MUSIC = 'music';

      FMSX1 = 7; //Main Screen top-left corner X value.
      FMSY1 = 5; //Main Screen top-left corner Y value.
      FMSX2 = 517; //Main Screen bottom-right corner X value.
      FMSY2 = 337; //Main Screen bottom-right corner Y value.

      FMMX1 = 555;
      FMMY1 = 5;
      FMMX2 = 724;
      FMMY2 = 151;

      FMSCX = 263; //Main Screen center X value.
      FMSCY = 206; //Main Screen center Y value.

      FMIX1 = 547; //Inventory top-left corner X value.
      FMIY1 = 205; //Inventory top-left corner Y value.
      FMIX2 = 740; //Inventory bottom-right corner X value.
      FMIY2 = 467; //Inventory bottom-right corner Y value.

procedure ClickTab(x, y: Integer);
begin
  if not (GetColor(x, y) = 1778795) then begin
    Mouse(x, y, 1, 1, True);
  end;
end;

procedure F_SetAngle(Highest : Boolean);
begin
  KeyDown((Integer(not Highest) * 2) + 38);
  Sleep(1000 + Random(300));
  KeyUp((Integer(not Highest) * 2) + 38);
  Wait(500 + Random(100));
end;

procedure F_GameTab(GTab: String);
begin
  case GTab of
    'combat':    ClickTab(532, 176);
    'stats':     ClickTab(567, 171);
    'quest':     ClickTab(599, 172);
    'inventory': ClickTab(632, 171);
    'equip':     ClickTab(666, 171);
    'prayer':    ClickTab(706, 174);
    'magic':     ClickTab(737, 171);
    'friends':   ClickTab(569, 469);
    'ignore':    ClickTab(598, 470);
    'logout':    ClickTab(632, 470);
    'options':   ClickTab(671, 476);
    'emotes':    ClickTab(698, 482);
    'music':     ClickTab(740, 469);
  end;
end;

function FullHP: Boolean;
begin
F_GameTab(GTAB_STATS);
  if (CountColorTolerance(65535, 647, 209, 661, 222, 15) = CountColorTolerance(65535, 659, 221, 673, 234, 15)) then begin
    Result := True;
  end else begin
    F_GameTab(GTAB_INV);
    Result := False;
  end;
end;

procedure AlchAddyPlate;
var x, y: Integer;
begin
  if (FindColorTolerance(x, y, 4873802, FMIX1, FMIY1, FMIX2, FMIY2, 5)) then begin
    Mouse(x, y, 2, 3, True);
  end;
end;

procedure Alch;
var x, y: Integer;
begin
  if (FindColorTolerance(x, y, 4873802, FMIX1, FMIY1, FMIX2, FMIY2, 5)) then begin
    F_GameTab(GTAB_MAGIC);
    Mouse(716, 335, 1, 1, True);
    Wait(400+Random(100));
    AlchAddyPlate;
    Wait(1700+Random(100));
    F_GameTab(GTAB_INV);
  end;
end;

procedure ClickAttack(x, y: Integer);
begin
  Mouse(x, y, 0, 0, True);
  Wait(200 + Random(500));
  Wait(2200 + Random(500));
end;

procedure ClickPickpocket(x, y: Integer);
begin
  Mouse(x, y, 0, 0, False);
  Wait(200 + Random(500));
  Mouse(x, y+40, 1, 1, True);
  Wait(1500 + Random(300));
end;

function F_InFight: Boolean;
var x, y: Integer;
begin
Result := False;
  if (FindColorTolerance(x, y, 65280, 221, 119, 283, 169, 5)) then begin
    Result := True;
  end;
end;

procedure RelocateToNPC;
var x, y: Integer;
begin
  if (FindColorTolerance(x, y, 195836, FMMX1, FMMY1, FMMX2, FMMY2, 10)) then begin
    Mouse(x, y, 1, 1, True);
    Wait(2500+Random(500));
  end;
end;

function F_FightAt(x, y: Integer): Boolean;
begin
Result := False;
  {if (FindColorTolerance(x, y, 65280, x-30, y-10, x+30, y, 5)) then begin
    Result := True;
  end;}
end;

// Black Knight: 460553 (CCT: 150);
// Paladin: 7434875 (CCT: 150);
// Magic Axe: 2843259 (CCT: 100);
// Hill Giant: 8039378 (CCT: 100);
procedure Attack(Color, CCT: Integer; Click: String);
var AttackTP: TPoint;
    AttackTPA: TPointArray;
    AttackATPA: T2DPointArray;
    i, x, y, AttackHigh: Integer;
begin
  if (FindColorsSpiralTolerance(x, y, AttackTPA, Color, FMSX1, FMSY1, FMSX2, FMSY2, 15)) then
  begin
    SortTPAFrom(AttackTPA, Point(MSCX, MSCY));
    AttackATPA := TPAtoATPAEx(AttackTPA, 10, 10);
    AttackHigh := High(AttackATPA);
    for i := 0 to AttackHigh do
    begin
      if (i > 15) then begin
        RelocateToNPC;
        Break;
      end;
      AttackTP := MiddleTPA(AttackATPA[i]);
      if not (F_FightAt(AttackTP.X, AttackTP.Y)) then begin
        MMouse(AttackTP.X, AttackTP.Y, 3, 3);
        Wait(100);
        if (CountColorTolerance(1040102, 73, 3, 381, 19, 70)>CCT) then
        begin
          GetMousePos(x, y);
          case Click of
            'pickpocket': ClickPickpocket(x, y);
            'attack': ClickAttack(x, y);
          end;
          Break;
        end;
      end;
    end;
  end;
end;

function HP_Checks: Boolean;
begin
Result := False;
  if (HP_Check >= 5) then begin
    HP_Check := 0;
    Result := True;
  end;
  Inc(HP_Check);
end;

procedure Eat;
var x, y: Integer;
begin
if (HP_Checks) then begin
  if not (FullHP) then begin
    F_GameTab(GTAB_INV);
    if (FindColorTolerance(x, y, 6782103, FMIX1, FMIY1, FMIX2, FMIY2, 9)) then begin
      Mouse(x, y, 2, 3, True);
    end;
  end else begin
    Writeln('HP is full.');
  end;
  F_GameTab(GTAB_INV);
end;
end;

function F_LoggedIn: Boolean;
begin
Result := True;
  if (GetColor(180, 112) = 11184810) then begin
    Result := False;
  end;
end;

procedure F_LogIn;
begin
  Mouse(273, 193, 2, 2, True);
  TypeSend(Username);
  Wait(300);
  TypeSend(Password);
  Wait(2000);
  Wait(500+Random(500));
end;

procedure F_LogOut;
begin
  F_GameTab(GTAB_LOGOUT);
  Wait(100);
  Mouse(639, 376, 1, 1, True);
end;

procedure PaladinThiever;
begin
  repeat
    ClearDebug;
    Writeln('Preparing to pickpocket.');
    Attack(5552103, 100, 'pickpocket');
    Alch;
    if (Eating) then begin
      Eat;
    end;
  until(False);
end;

procedure BlackKnightKiller;
begin
  repeat
    ClearDebug;
    Writeln('Preparing to attack.');
    Attack(1184277, 150, 'attack');
    F_GameTab(GTAB_INV);
    F_GameTab(GTAB_STATS);
    while (F_InFight) do begin
      if (Eating) then begin
        Eat;
      end;
      Wait(1000);
      ClearDebug;
      Writeln('We are fighting.');
    end;
  until(False);
end;

procedure MagicAxeKiller;
begin
  repeat
    ClearDebug;
    Writeln('Preparing to attack.');
    Attack(2843259, 100, 'attack');
    F_GameTab(GTAB_INV);
    F_GameTab(GTAB_STATS);
    while (F_InFight) do begin
      if (Eating) then begin
        Eat;
      end;
      Wait(1000);
      ClearDebug;
      Writeln('We are fighting.');
    end;
  until(False);
end;

procedure HillGiantKiller;
begin
  repeat
    ClearDebug;
    Writeln('Preparing to attack.');
    Attack(8039378, 100, 'attack');
    F_GameTab(GTAB_INV);
    F_GameTab(GTAB_STATS);
    while (F_InFight) do begin
      if (Eating) then begin
        Eat;
      end;
      Wait(1000);
      ClearDebug;
      Writeln('We are fighting.');
    end;
  until(False);
end;

procedure FireBuyer;
begin
  repeat
    Mouse(284, 84, 0, 0, False);
    Wait(150);
    Mouse(284, 164, 0, 0, True);
    Wait(150);
  until(False);
end;

procedure NatureBuyer;
begin
  repeat
    Mouse(333, 132, 0, 0, False);
    Wait(150);
    Mouse(333, 212, 0, 0, True);
    Wait(150);
  until(False);
end;

procedure Debug;
begin
  Writeln(IntToStr(CountColorTolerance(65535, 710, 210, 741, 236, 15)));
end;

begin
SetupSRL;
if not (F_LoggedIn) then begin F_LogIn; end;
  case Script of
    0: Debug;
    1: PaladinThiever;
    2: BlackKnightKiller;
    3: MagicAxeKiller;
    4: HillGiantKiller;
    5: FireBuyer;
    6: NatureBuyer;
  end;
end.

For best accuracy, start logged in and your browser window as wide and high as the runescapes screen.

Default script selected is 1 which is the Paladin Thiever, it should work just fine, it also high alchs the addy plates if it finds, and you can set it to eat sharks, but that doesnt necessarily work, because of the coordinates.

Damn, i'm gonna try to figure out how to work this, thanks :)

[Error]: Unable to find file 'SRL/SRL.scar' used from ''

Failed when compiling
Line 51: [Error] (51:1): Unknown identifier 'Mouse' in script C:\Program Files (x86)\SCAR 3.22\Scripts\Pali Auto Thiever.scar

lolz could anyone help :S

also, could you help me set it up, im repping but its not doing much ^.^

/facepalm

get SRL

Line 51: [Error] (51:1): Unknown identifier 'Mouse' in script C:\Program Files (x86)\SCAR 3.22\Scripts\Pali Auto Thiever.scar

thats the only error i get, and i have SRL -_-

change to ClickMouse

From: fresh iz ere
Line 51: [Error] (51:1): Unknown identifier 'Mouse' in script C:\Program Files (x86)\SCAR 3.22\Scripts\Pali Auto Thiever.scar

thats the only error i get, and i have SRL -_-

This script is made with Simba, I suggest that you download it.

From: hello to you all
change to ClickMouse

Definitely not. ClickMouse is detectable, and hasn't been used for ages.

it just clicks like crazy lol

From: Rich
Definitely not. ClickMouse is detectable, and hasn't been used for ages.

this is NOT for runescape its for P server which has no detection system so ClickMouse would do just fine.

From: hello to you all
this is NOT for runescape its for P server which has no detection system so ClickMouse would do just fine.

Yes, but I still recommend using Mouse.

How do i download Simba?

From: fresh iz ere
How do i download Simba?

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

Error with Mouse

[Error] (52:5): Unknown identifier 'Mouse' at line 51
Compiling failed.

^Useing SIMBA^

Error is ClickMouse

[Error] (52:33): Invalid number of parameters at line 51
Compiling failed.

^Using SIMBA^

also the ClickTab

^ Just edit your first post instead of adding another.

Also, I know that some P servers do have detection systems. They're not as advanced as Jagex's, but probably enough to detect MoveMouse and ClickMouse.

Palidino doesn't care about autoers

I have autoed a lot using clickmouse in battlescape.

Could you post your autoer on here?

I Figured most of it out, but can anybody tell me how to fill theese out?

      FMSX1 = 7; //Main Screen top-left corner X value.
      FMSY1 = 5; //Main Screen top-left corner Y value.
      FMSX2 = 517; //Main Screen bottom-right corner X value.
      FMSY2 = 337; //Main Screen bottom-right corner Y value.

      FMMX1 = 555;
      FMMY1 = 5;
      FMMX2 = 724;
      FMMY2 = 151;

      FMSCX = 263; //Main Screen center X value.
      FMSCY = 206; //Main Screen center Y value.

      FMIX1 = 547; //Inventory top-left corner X value.
      FMIY1 = 205; //Inventory top-left corner Y value.
      FMIX2 = 740; //Inventory bottom-right corner X value.
      FMIY2 = 467; //Inventory bottom-right corner Y value.   

Sorry bout this, but frement can you go in full detail about which coords I need to get for it to eat the food?

From: kingarabian
Sorry bout this, but frement can you go in full detail about which coords I need to get for it to eat the food?

What i'm asking :P

/Solved

From: fresh iz ere
/Solved

Can you explain to me how? I fixed the coords for the tabs.

From: kingarabian
Can you explain to me how? I fixed the coords for the tabs.

I didn't do that, i just found a new one where i can get like 10m/h, If you want me to i'll post a the script it's a crafting one.

From: fresh iz ere
I didn't do that, i just found a new one where i can get like 10m/h, If you want me to i'll post a the script it's a crafting one.

Sure please do.

Well it partially works, all you have to do is buy the diamonds when it right clicks them than restart the script, If you could fix it, would be great. Well here it is

program Crafter;
var
  x1, ShopX, ShopY: Integer;


procedure FindClient;
var
  I: Integer;
begin
  for I := 0 to 600 do
  begin
    if (GetColor(I, 420) = 2437688) then x1 := I;
    if x1 > 0 then
    begin
      WriteLn('Clientti loyty (X='+IntToStr(x1)+')');
      Exit;
    end;
  end;
end;


procedure C(x, y: Integer; Left: Boolean);
begin
  MoveMouse(x-258+x1, y);
  Wait(70);
  ClickMouse(x-258+x1, y, Left);
  Wait(70);
end;

function ShopScreen: Boolean;
begin
  Result := (GetColor(222+x1, 41) = 2070783);
end;


procedure CloseShop;
var
  I: Integer;
begin
  while ShopScreen do
  begin
    MoveMouse(697-258+X1, 37);
    Wait(30);
    ClickMouse(697-258+X1, 37, True);
    while ShopScreen and (I < 350) do
    begin
      Wait(10);
      Inc(I);
    end;
    if I < 350 then Exit;
    I := 0;
  end;
end;



function OpenShop: Boolean;
var
  x, y, I, II, III, A: Integer;
  NewX: Integer;
begin
  repeat
    if IsFKeyDown(10) then TerminateScript;
    MoveMouse(ShopX-257+X1, ShopY);
    while (CountColorTolerance(53199, 315-258+X1, 5, 360-258+X1, 15, 40) < 7) do
    begin
      Wait(10);
      A := A + 1;
      if A = 150 then
      begin
        ClickMouse(790-258+X1, 263, True);
        Wait(80);
        ClickMouse(790-258+X1, 263, True);
        Wait(80);
        MoveMouse(ShopX-257+X1, ShopY);
      end;
      if A = 300 then
      begin
        for A := 300 to 400 do
        begin
          NewX := ShopX+A-300;
          MoveMouse(NewX-257+X1, ShopY);
          Wait(100);
          if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
          NewX := ShopX-A+300;
          MoveMouse(NewX-257+X1, ShopY);
          Wait(100);
          if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
        end;
        if A < 400 then ShopX := NewX
        else TerminateScript;
      end;
    end;
    ClickMouse(ShopX-257+X1, ShopY, False);
    III := 0;
    while (III < 50) do
    begin
      if FindColor(x, y, 65535, ShopX-280+X1, ShopY-30, ShopX-255+X1, ShopY+80) then
      begin
        ClickMouse(ShopX-257+X1, Y+20, True);
        Break;
      end;
      Inc(III);
      Wait(5)
    end;
    if III > 49 then Continue;
    //Wait(100);
    //ClickMouse(ShopX-258+X1, ShopY+42, True);
    I := 0;
    repeat
      Wait(10);
      I := I+1;
    until(ShopScreen or (I > 200));
  until(ShopScreen);
  MoveMouse(445-258+X1, 130);
  Wait(50);
  ClickMouse(445-258+X1, 130, False);
  while not FindColor(x, y, 65536, 445-258+X1, 130, 450-257+X1, 135) do Wait(5);
  ClickMouse(435-258+X1, 216, True);
  Wait(50);
  CloseShop;
  repeat
    Wait(10);
    II := II+1
  until(((GetColor(960-258+X1, 450) <> 3357765) and (GetColor(920-258+X1, 450) <> 3357765))) or (II > 200);
end;


procedure Clicks;
var
  x, y: Integer;
begin
  MoveMouse(970, 445);
  Wait(50);
  repeat
    if IsFKeyDown(10) then TerminateScript;
    MoveMouse(953-258+X1, 445);
    Wait(15);
    ClickMouse(953-258+X1, 445, True);
    Wait(30);
    MoveMouse(931-258+X1, 445);
    Wait(15);
    ClickMouse(931-258+X1, 445, True);
    Wait(30);
  until(GetColor(960-258+X1, 450) = 3357765) or (GetColor(920-258+X1, 450) = 3357765);
  ClickMouse(790-258+X1, 263, True);
  Wait(10);
  ClickMouse(790-258+X1, 263, True);
  Wait(10);
  ClickMouse(790-258+X1, 263, True);
  Wait(15);
end;

begin
  Wait(3000);
  FindClient;
  //GetMousePos(ShopX, ShopY);
  ShopX := 517;
  ShopY := 167;
  repeat
    Clicks;
    OpenShop;
  until(false);
end.

Can you explain to me what this script is trying to do? Like whats good about diamonds?

this will easily make you 5 - 10m/h It buys diamonds at the crafting guild, and it will cut them into Bolt Tips heres a video

http://www.youtube.com/watch?v=nCCvDdXLdY8

im new to this stuff but i downloaded simba and SRL, and i got this error

[Error] SRL/SRL/Core/Globals.scar(26:3): Duplicate identifier 'FriendChars' at line 25
Compiling failed.

if i remove that line 25 it just gives me more and more errors, i kept trying to fix errors but it kept giving me errors..

[Error] (27:32): Type mismatch at line 26
Compiling failed.

From: Helghan
[Error] (27:32): Type mismatch at line 26
Compiling failed.

This script is pretty outdated

Works fine for me, you need to put your browser like this:

^^crazy, I guess the private servers don't update as much as rs. I just assumed it was outdated since I don't mess with private servers. I guess I found out what happens when you assume:redface:

The script works with full screen window also, just need to adjust the coordinate constants.

Hello there,

I have downloaded Simba but I still need help please since I'm a real newby beginner in such affairs. Uhm, so how do I save the Script, where do I save it to and how do I start the bot, etc? If you can help me, I'd appreciate it since I'm really new.

Thank you,

Alex

Heres a tutorial to show you how to setup Simba: http://villavu.com/forum/showthread.php?t=57883

You can save the script anywhere.

Thank you very much mate :)

Off topic: Does anyone know if Palidino is working, and if it's not why, and when it's going to be available? How long?