SRL Archive - RS3 Outdated / Broken Scripts

Since pretty much people have requested this I thought I'd just release one here!

What does this do?!?
- You have to set your character in a calm PvP hotSpot (i.e: in a house in ardougne or something.
.. Then the script will stay logged in all the time so your DP ("PvP Drop Potential") goes up.
.. The longer the better drops!

Program GetSomeDP;
//Credits:
//Me (Floor66), Penguin
{.include SRL/SRL/Misc/Smart.Scar}
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Prayer.scar}

Var
  LastAnti, Running, TabDTM, HPLvl, CurrHP : Integer;
  S : String;

Const
  TimeToStay = 0; //Set time in seconds. 0 = infinite
  UseTele = False; //Tele if attacked?
  FlipOnProt = True; //Turn on "protect item" when attacked (before teleporting)
  World = 21; //What World?
  Member = False; // P2p = True F2p = False
  Signed = False; // Signed Applet = True. Unsigned Applet = False.

Procedure DeclarePlayers;
Begin
  CurrentPlayer  := 0; // Starting player
  HowManyPlayers := 1; // How many players in total?
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name := '';              // Username
  Players[0].Pass := '';              // Password
  Players[0].Nick := '';              // Nickname, 3 - 4 letters of username
  Players[0].Active := True;            // Use this player?
End;

{*******************************************************************************
Function TimePassed(TimeMarker, Passed : Integer): Boolean;
By: Floor66
Description: Returns wether the time "Passed" has passed since "TimeMarker" was
             marked.
*******************************************************************************}

Function TimePassed(TimeMarker, Passed : Integer): Boolean;
Begin
  Result := ((GetSystemTime - TimeMarker) >= Passed);
End;

Procedure Anti;
Begin
  MarkTime(LastAnti);
  Case Random(250) Of
    0..4: RandomMovement;
    5, 6: GameTab(1 + Random(10));
    7..10: HoverSkill('random', False);
    11..15: DoEmote(Random(11));
    16..25: Wait(Random(1001) + Random(555));
  End;
End;

Function TeleOut: Boolean;
Var
  x, y : Integer;
Begin
  If Not LoggedIn Then
    Exit;
  If Not UseTele Then
    Exit;
  If FlipOnProt Then
  Begin
    GameTab(6);
    ClickPrayer('13', True);
  End;
  GameTab(4);
  If FindDTM(TabDTM, x, y, MIX1, MIY1, MIX2, MIY2) Then
  Begin
    Mouse(x, y, 3, 3, True);
    WriteLn('Teleported out.');
    Result := True;
  End;
End;

Begin
  SmartSetupEx(World, Member, Signed, False);
  SetTargetDC(SmartGetDC);
  SetupSRL;
  AllowPVP := True;
  ClearDebug;
  DeclarePlayers;
  TabDTM := DTMFromString('78DA637464626078CA8002FA376D61D061646' +
       '0002286FF40C0180054F386010D30229140DA14A8E60901351640' +
       '359F08A87121428D2F50CD47026A406E7E45849ABB44A8798A5F0' +
       'D0077301100');
  ActivateClient;
  MarkTime(Running);
  If Not LoggedIn Then
    LoginPlayer;
  HPLvl := GetSkillLevel('hitpoints');
  Repeat
    Disguise(TimeRunning);
    If (Random(250) < 5) Or TimePassed(LastAnti, RandomRange(120000, 240000)) Then
      Anti;
    FindNormalRandoms;
    CurrHP := GetMMLevels('hp', S);
    If CurrHP <> HPLvl Then
      If TeleOut Then
        Break;
    If TimeToStay <> 0 Then
      If TimeFromMark(Running) >= (TimeToStay * 1000) Then
        Break;
    Wait(10 + Random(5));
  Until(False);
  Disguise(TimeRunning);
  Logout;
End.

It's still in beta and just includes:

• Set how long to get DP
• Anti-Logout:
• A random chance at doing AntiLogout procedures
• If no AntiLogout has been done in a certain period of time, do it.
• *NEW* TELE-OUT
• *NEW* When teleporting; put on PROTECT ITEM

Have fun!

Good job :) simple and good idea =), just hope you dont get TBED lol

Thanks!
Haha well, TB is more used for big clan pking/luring.

Ouh well i have looking for this kinda script i hope u will add tele soon :)

Great job Thanks!

I think until u haven't added tele people should tray use ring of life that also helps to stay alive :)

Another small issue CAN BE that SCAR loses focus, but I don't know after how long, or if it does that at all.

whats this do?

it does this :\ read the posts pl0x?

From: Floor66

It's still in beta and just includes:

• Set how long to get DP
• Anti-Logout:
• A random chance at doing AntiLogout procedures
• If no AntiLogout has been done in a certain period of time, do it.

What I want to add:

• Tele-out if in fight
• Full checker for if the char has:
• 75k risk
• Tele-out

Have fun!

It's not "A" DP ^^
It's DP. It means Drop Potential, a.k.a: you get better drops if you kill someone.
Commonly used with the "26k" trick. After 30min+ of DP getting, you ask someone if you can kill them, with YOU RISKING 75k+ and THEY RISKING 25k+. Higher DP = Better drop.

Tested it and put 120 mints but he only was some 12 mints loged in :/

The time is in seconds, so 120mins = 12 * 60 secs…

You could also make it to protect item if your teleblocked.
If you have have items like this: rune platebody, rune platelegst, rune full helm, amulet of magic(t) you wont lose anything when you protect item becouse ull be risking mage ammy which is over 75k and when you protect it you lose nothing :)

Ahh and good spot to get potential is n-e from warrock upstairs in the sawmill space(hotspot) :D

I'll update this after I get my D Claws, which will be in MAX. 1.5week.

From: Floor66
I'll update this after I get my D Claws, which will be in MAX. 1.5week.

Cool waiting the update :D

I said max 1.5week, but it seems like I'll get them today. So tomorrow/today I'll update it @ my dad's place.

Woot, I was one of the people who requested this :p
Got dfh four days ago with 26k trick and now I'm 15mill closer to claws :D

Can't wait fer update ;)

I'll just leave this here while you wait for Floor's update…

program DropPotential;

{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Magic.scar}


// Just camp this upstairs in ANY building. Fill in the nick name, log your player in and AWWAAAAAYYYY you go!
// It will tele upon finding a fight, keep Lumby Runes.
const
  TheNickName = 'ero';

var
  ATime, ABanCount: Integer;

function MyConvertTime(Ms: integer): String;

var
  RHours, Minutes, Seconds, RMinutes, RSeconds: Integer;

begin
  Seconds := Ms div 1000;
  Minutes := Seconds div 60;
  RHours := Minutes div 60;
  Result := IntToStr(Seconds) + ' Seconds';
  if Minutes <> 0 then
  begin
    RSeconds := Seconds mod (Minutes * 60);
    Result := IntToStr(Minutes) + ' Minutes and ' + IntToStr(RSeconds) +
      ' Seconds';
  end;
  if RHours <> 0 then
  begin
    RMinutes := Minutes mod (RHours * 60);
    RSeconds := Seconds mod (Minutes * 60);
    Result := IntToStr(RHours) + ' Hours, ' + IntToStr(RMinutes) +
      ' Minutes and ' + IntToStr(RSeconds) + ' Seconds';
  end;
end;

procedure AntiBan(ForceClick: Boolean);
var
  I, G, Key1, Key2: Integer;
begin
  if ForceClick then I := Random(70) else I := Random(600);

  Status('Antibanning! [' + IntToStr(I) + ']');
  Inc(ABanCount);
  case I of
    0..9: RandomRClick;
    10..15: BoredHuman;
    16..28: PickUpMouse;
    29..35:
       begin
         g:= GetCurrentTab;
         GameTab(RandomRange(1, 14));
         Wait(RandomRange(1000, 1500));
         GameTab(g);
       end;
    36..40: DoEmote(RandomRange(1, 37));
    41..45, 66..69:
    begin
      GameTab(4);
      repeat
        I := Random(29) + 1;
        if ExistsItem(I) then
        begin
          MouseItem(I, False);
          Wait(RandomRange(80, 110));
          if Random(2) = 1 then
            ChooseOption('anc')
          else
            ChooseOption('xam');
          Exit;
        end;
      until False;
    end;
    46..55: MakeCompass(IntToStr(random(361)));
    56..65: begin
          case Random(2) of
            0: begin
                 Key1 := Vk_up; Key2 := Vk_down;
               end;
            1: begin
                 Key1 := Vk_down; Key2 := Vk_up;
               end;
          end;
          KeyDown(Key1);
          Wait(RandomRange(400, 700));
          KeyUp(Key1);
          Wait(RandomRange(100, 150));
          KeyDown(Key2);
          Wait(RandomRange(400, 700));
          KeyUp(Key2);
        end;

    70..100: SleepAndMoveMouse(RandomRange(200, 500));
    101..130: HoverSkill('random', False);

    else
    begin
      Dec(ABanCount);
      Status('');
      Exit;
    end;
  end;
  Status('');
  
  ATime := GetTimeRunning;
end;

//wizzup
Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;
  // Old Code. Still works.
Var
   I, iX,iY: Integer;
Begin
  Result := 0;
  For I := iFrom To ITo Do
  Begin
    iX := Round(Distance * Sin(I * Pi / 180)) + MMCX;
    iY := Round(-Distance * Cos(I * Pi / 180)) + MMCY;
    If GetColor(iX, iY) = 65536 Then
      Inc(Result);
  End;
End;

var
  Total, Report, T, InvRandoms: Integer;
  BCount, TempBlk: Integer;
  
begin
  SetupSRL;
  SMARTSetupEx(44, True, True, False);
  SetTargetDC(SmartGetDC);
  
  NumberOfPlayers(1);
  Players[0].Nick := TheNickName;
  
  while not LoggedIn do
    Wait(500);
    
  ClearDebug;
  
  BCount := ScanMiniMap(0, 359, 30);
  Writeln('Black Count Returned: ' + IntToStr(BCount));

  Total := GetTimeRunning;
  repeat
    T := GetTimeRunning;
    if InRange((GetTimeRunning - Total) mod 60000, 0, 1000) then
      Disguise(MyConvertTime(T-Total) + ' running.');
    FindNonInventoryRandoms;

    if T - InvRandoms > 120000 then
    begin
      FindNormalRandoms;
      InvRandoms := T;
    end;
    
    if T - ATime > 45000 then
      AntiBan(T - ATime > 270000);
      
    if T - Report > 120000 then
    begin
      Writeln('-------------------------------------------------------------');
      Writeln('Gained ' + MyConvertTime(T - Total) + ' of Drop Potential.');
      Writeln('Preformed ' + IntToStr(ABanCount) + ' antibans. At ' + IntToStr(Round((ABanCount / (T - Total)) * 3600000)) + ' p/h');
      Writeln('-------------------------------------------------------------');
      Writeln('');
      Report := GetTimeRunning;
    end;


    if FindFight then
    begin
      CastSpell(19);
      Disguise('Found Fight, Escaping. Terminated.');
      Break;
    end;

    TempBlk := 0;
    TempBlk := ScanMiniMap(0, 359, 30);
    if TempBlk <> BCount then
      Status('TempBlk: ' + IntToStr(TempBlk));
    if FindDead or not InRange(TempBlk, BCount - 15, BCount + 15) then
    begin
      if not FindDead then
      begin
        Writeln('[1] Difference of ' + IntToStr(iAbs(BCount - TempBlk)) + ' pixels in Black Count.');
        MMouse(-50, -50, 0, 0);
        Wait(600);
        TempBlk := 0;
        TempBlk := ScanMiniMap(0, 359, 30);
        Writeln('[2] Difference of ' + IntToStr(iAbs(BCount - TempBlk)) + ' pixels in Black Count.');
        if InRange(TempBlk, BCount - 15, BCount + 15) then
        begin
          BCount := TempBlk;
          Continue;
        end;
      end;
      Disguise('Found Somewhere else.. Terminating.');
      Break;
    end;
    
    Wait(RandomRange(400, 800));
  until False;
  
  Writeln('');
  Writeln('-------------------------------------------------------------');
  Writeln('Gained ' + MyConvertTime(T - Total) + ' of Drop Potential.');
  Writeln('Preformed ' + IntToStr(ABanCount) + ' antibans. At ' + IntToStr(Round((ABanCount / (T - Total)) * 360000)) + ' p/h');
  Writeln('-------------------------------------------------------------');
  LogOut;

end.

No, I'm not hijacking, I'm just posting it to help. I don't plan on updating this so yeah… :)

ok im gonna sound like noob but can someone tell me what this does

Lotsa people will not know, so I'll write it in the main post asap.

this is da shit im usen it right now while at school wen i get home ima see wat i get

200th post

nice

How much money should be on the pack?

this is a good thing, isnt erfect but… not for me to judge, i never whrote such beautifull script…

I haven't updated it in a while, but I hope it still works =p
It's also still in BETA.

It works great, and it's a good idea too lol. I added a nooby teleport proc:

procedure gtfoalan;
begin
if InFight then
begin
gametab(7);
wait(100+random(200));
mousebox(664, 272, 672, 280, 1);
mousebox(662, 273, 670, 280, 1);
writeln('found a pk noob. teleing');
terminatescript;
end;
end;

Yeah, the proc's name is gtfoalan :p

Though a few times I've found my character in lumbridge with only 3 items, having been pked :confused:

I'm setting up a hypercam to catch the tb culprits at work :D either that or my teleport co-ords are off D:

It might be that you loose focus; thus not being able to click/find colours.

Sorry for doubleposting, but…

I'VE UPDATED IT! MAKE SURE YOU HAVE A TELEPORTATION TAB WHEN USING THE TELE FUNCTION!

Does this still work? i wanna try with the pvp guide :)

T~M

Works ;)
Even updated it a little while ago.

I'll try it :).. But first I'm going to try to convince my friends to let me kill them :p
Edit: Testing on my two f2p accounts. Double Logging Ftw. On an Unsigned client of course.
Edit: So far soo good. Ran for 1 Hour :), and still going!
I noticed in your script you missed a period in this line.

11.15: DoEmote(Random(11));

Should be:

11..15: DoEmote(Random(11));

Here's the Smart version I used to get me 1 hr+ dp. On two Accounts :)

Program GetSomeDP;
{.include SRL/SRL/Misc/Smart.Scar}
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Prayer.scar}

Var
  LastAnti, Running, TabDTM, HPLvl, CurrHP : Integer;
  S : String;

Const
  TimeToStay = 0; //Set time in seconds. 0 = infinite
  UseTele = False; //Tele if attacked?
  FlipOnProt = True; //Turn on "protect item" when attacked (before teleporting)
  World = 21; //What World?
  Member = False; // P2p = True F2p = False
  Signed = False; // Signed Applet = True. Unsigned Applet = False.

Procedure DeclarePlayers;
Begin
  CurrentPlayer  := 0; // Starting player
  HowManyPlayers := 1; // How many players in total?
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name := '';              // Username
  Players[0].Pass := '';              // Password
  Players[0].Nick := '';              // Nickname, 3 - 4 letters of username
  Players[0].Active := True;            // Use this player?
End;

{*******************************************************************************
Function TimePassed(TimeMarker, Passed : Integer): Boolean;
By: Floor66
Description: Returns wether the time "Passed" has passed since "TimeMarker" was
             marked.
*******************************************************************************}

Function TimePassed(TimeMarker, Passed : Integer): Boolean;
Begin
  Result := ((GetSystemTime - TimeMarker) >= Passed);
End;

Procedure Anti;
Begin
  MarkTime(LastAnti);
  Case Random(250) Of
    0..4: RandomMovement;
    5, 6: GameTab(1 + Random(10));
    7..10: HoverSkill('random', False);
    11..15: DoEmote(Random(11));
    16..25: Wait(Random(1001) + Random(555));
  End;
End;

Function TeleOut: Boolean;
Var
  x, y : Integer;
Begin
  If Not LoggedIn Then
    Exit;
  If Not UseTele Then
    Exit;
  If FlipOnProt Then
  Begin
    GameTab(7);
    ClickPrayer('13', True);
  End;
  GameTab(4);
  If FindDTM(TabDTM, x, y, MIX1, MIY1, MIX2, MIY2) Then
  Begin
    Mouse(x, y, 3, 3, True);
    WriteLn('Teleported out.');
    Result := True;
  End;
End;

Begin
  SmartSetupEx(World, Member, Signed, False);
  SetTargetDC(SmartGetDC);
  SetupSRL;
  AllowPVP := True;
  ClearDebug;
  DeclarePlayers;
  TabDTM := DTMFromString('78DA637464626078CA8002FA376D61D061646' +
       '0002286FF40C0180054F386010D30229140DA14A8E60901351640' +
       '359F08A87121428D2F50CD47026A406E7E45849ABB44A8798A5F0' +
       'D0077301100');
  ActivateClient;
  MarkTime(Running);
  If Not LoggedIn Then
    LoginPlayer;
  HPLvl := GetSkillLevel('hitpoints');
  Repeat
    Disguise(TimeRunning);
    If (Random(250) < 5) Or TimePassed(LastAnti, RandomRange(120000, 240000)) Then
      Anti;
    FindNormalRandoms;
    CurrHP := GetMMLevels('hp', S);
    If CurrHP <> HPLvl Then
      If TeleOut Then
        Break;
    If TimeToStay <> 0 Then
      If TimeFromMark(Running) >= (TimeToStay * 1000) Then
        Break;
    Wait(10 + Random(5));
  Until(False);
  Disguise(TimeRunning);
  Logout;
End.

Thanks soo much Floor66!!! :)

I ran Two accounts at the same time on your script. I stopped it at 2 Hours! :)
And I decided it was time to have my accounts kill each other.

Account A(Lvl53): Ran for 2 Hours, 5 Mins: Killed Account B 2 Times: Got:

Account B(Lvl55): Ran for 2 Hours, 5 Mins: Killed Account A 2 Times: Got:

TYVM Floor66!! :)
Can't wait till I do it on a members acc :D

is it not advised to open up a smart and the normal browser version or is that what you mean by unsigned ?

Well, using an unsigned browser is less detectable, especially since I am on tow accounts at once. You can still use the regular normal browser, but my 2 accounts will be logged in for so long, I want to minimize my chances of detection. Also, i am going to try to go for 3hr+ on those same accounts. Wish me luck :)
Thanks!

The original version was ok, but for some reason it logged me out after only like 7 mins.
Penguin's edited one works great! Plus it frees up my mouse… which is pretty important for this kind of bot I think. Because you can just gain potential while you do other things or play a diff account, then go PKing. :)

Thanks Floor and Penguin :)

Thanks Penguin, added ur version to 1st post.

Do you need to be holding money when you run this?

I believe you risk 26k.

In f2p you have to risk 25k (if you're unskulled take 25003gp), but in p2p 75k (or 75003 w/o skull).

I really don't get why people say 26k/76k. It's 25k/75k | 25003/75003 PEOPLE.

:( i guess i wont release mine… that ones a little more simple.

anyone know if this still works?

no :p

even if it is, pvp has changed in the last 4-5 months since its been updated

but if would be worked, it needs to sit in hotspot with 26k on f2p, about 2hrs and you get 100% ep its like 25% ep every 30 mins you are in hot spot, non hot spot 10% every 30 mins…

so it could be great if this gets updated/made new :)

It seems to be outdated, stop bumping it please! :D