SRL Archive - RS3 Outdated / Broken Scripts

Uploaded with ImageShack.us">
Script:

This is a Ogre killing bot for the Combat Training Area. This script can use any ranged equipment and is perfect for 1 defense pures who dont want to spend the money on food. I still have much to add. Pleas post reports and any bugs it has.

http://www.youtube.com/watch?v=98jxEMrI6Fk





Uploaded with ImageShack.us">
All the Reports are from my pure with 83 range and a 27000 AT time.

Report

======================================================
======================================================
Thank you for using My Ogre Killer ver. 0.1
Made By: baja_blast1
Range XP gained: 16002
Contitution XP gaiined: 5334
Run Time: 1 Hours, 22 Seconds
======================================================
======================================================
Successfully executed.

======================================================
======================================================
Thank you for using Ogre Destroyer ver. 0.1
Made By: baja_blast1
Range XP gained: 43545
Contitution XP gained: 14515
Run Time: 2 Hours, 19 Seconds
======================================================
======================================================
Successfully executed.

======================================================
======================================================
Thank you for using Ogre Destroyer ver. 2.4
Made By: baja_blast1
Ogres Attacked: 178
Range XP gained: 20790
Range XP/Hr: 0
Contitution XP gained: 6930
Contitution XP/Hr: 0
Run Time: 1 Hours, 37 Seconds
======================================================
======================================================
Successfully executed.

======================================================
======================================================
Thank you for using Ogre Destroyer ver. 2.7
Made By: baja_blast1
Ogres Attacked: 138
Range XP gained: 15018
Range XP/Hr: 15018
Contitution XP gained: 5006
Contitution XP/Hr: 5006
Run Time: 1 Hours, 43 Seconds
======================================================
======================================================
Successfully executed.

======================================================
======================================================
Thank you for using Ogre Destroyer ver. 2.91
Made By: baja_blast1
Ogres Attacked: 126
Range XP gained: 24048
Contitution XP gained: 8016
Run Time: 1 Hours, 14 Seconds
======================================================
======================================================
Successfully executed.

If you don't have the OD.simba version then pleas re-download.(The new version of my script, old version was Ogre Destroyer.simba)

V.2.0:
Added an auto updater.

V.2.4
Auto Updater fixed.
Ogres attacked added.
XP/Hr fixed
v2.91
Added paint
Less Anti band
V.3.0
Updated Attack method, dose not work good with cross bows.
updated paint.
V3.2
Current version
working pixel shift

Good job! Ill post a proggy later :)
Going to run it for a long time after i got my full void :D

Have you made it safespot? So that if doesn't run behind the cage when using knifes? (Knifes have a shorter range)

Const
  AT = 27000;     // How long do you want to attack the Skeleton for?                               

I dont wanna attack skeletons… :(
But I would recommend changing that.

Have you made it safespot? So that if doesn't run behind the cage when using knifes? (Knifes have a shorter range)

Not yet but do you know if it runs to the same spot everytime? My account just ran outa mems, but i have an idea to fix the safe spot, if someone has an acc i could use or sumtin id gladly make it but leaving for a week on Saturday.

Code:
Const
AT = 27000; // How long do you want to attack the Skeleton for?
I dont wanna attack skeletons…
But I would recommend changing that.

Lol sorry i copied some stuff from my other script. Ill change it

Ive used FastFighter there and it has worked fine. Can you tell me if there are any adventages of using your script there?
Will you ever add a telegrab support? What I mean is if something good drops, would like for the script to grab it(could check the loot during the fight to not delay anything too much).

Where i can get od.simba version. Because today i have downloaded new simba and i have error.

when i run the script i am getting this error i have the latest simba installed (simba 984)

Compiled successfully in 812 ms.
The version you're using is outdated!
Downloading new version…
Successfully downloaded the script! Please close the script and re-open to see the changes, thank you!
Successfully executed.
File[C:\Users\*****i\Downloads\OD.simba] has not been freed in the script, freeing it now.


after saying freeing it now it just doesnt do anything doesnt even open the smart window the script just stops.

How do i download this script?

very nice averaging quite abit an hour thanks for the script.

I will post a proggy tomorrow since it's (02:45 am) here now, so when I wake up i'll post the proggy, if it runs that long im going to be happy.
(works perfectly for now, 30 minutes in.)
Have a nice night.

cool. this thing got me 180k exp in like 6 hours. It successfully shot 6k bronze arrows on my pure.

Okay So I just had a look through your code and sped it up myself.

I'm new to coding; but I took the time to learn what you did here. I really like it. Good job man. I'll post a proggy for you later on.

100% credit to BajaBlast1 for making this great script!! I HOPE THIS HELPS :0
Just did a little editing :)

  
program Ogre_Destroyer;
//OGRE DESTOYER!!// By BAJABLAST1
{$DEFINE SRL5}
{$DEFINE SMART}
{$i SRL\SRL.simba}
{$i SRL\SRL\Misc\Debug.simba}

Const
  AT = 4000;
  ScriptVersion = '2.6';
  PT = 6;
  UseAutoChecker = true;

Var
 I,k, r, h, ch: Integer;




//=====================================================//
Procedure DeclarePlayers;
Begin
  NumberOfPlayers(1);
  CurrentPlayer := 0;

 With Players[0] do
  Begin
    Players[0].Name :='';
    Players[0].Pass :='';
    Players[0].Active :=True;
  End;
End;
//=====================================================//





function Ogre: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.06, 1.64);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 7319502, MSX1, MSY1, MSX2, MSY2, 18);
  if (Length(arP) = 0) then
  begin
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 18.90) and (X <= 69.80) and (Y >= 19.49) and (Y <= 73.61) and (Z >= 12.64) and (Z <= 45.19) then
    begin
      Result := arC[i];
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
end;

function XPFinder(skill: variant): integer;
var
  b: TBox;
  p: TPoint;
  tpa: TPointArray;
begin
  result := -1;

  if (not gameTab(TAB_STATS)) then
    exit;

  p := skillToCoords(skill);
  if (p.x < 1) then
    exit;

  mmouse(p.x, p.y + 5, 12, 4);
  wait(400 + random(200));

  if (WaitFindColors(tpa, 15133931, MIX1, MIY1, MIX2, MIY2, 0, 3000)) then
  begin
    b := getTPABounds(tpa);
    wait(400 + random(150));
    result := strToIntDef(getNumbers(getTextAt(b.x1 + 15, b.y1 + 15, 0, 1, 4, 4305653, 0, 75, smallChars)), -1);
  end;
end;

Procedure TimePlay;
var
  I: Byte;
  Cont : boolean;
Begin
    if FindNormalRandoms then
    begin
      WriteLn('===============================');
      WriteLn('In Random');
      WriteLn('Run Time: ' + TimeRunning);
      WriteLn('===============================');
end;
end;

Procedure AntiBand;
Begin
 WriteLn('AntiBan Started');
  case Random(100) of
    1: Begin WriteLn('Hovering Over Stats') GameTab(tab_Stats) Wait(700+ Random(500)) GameTab(tab_Inv); End;
    2: Begin WriteLn('Random Movement') RandomMovement; End;
  End;
End;

Procedure SetCamera;
Begin
  WriteLn('Camera set to North') MakeCompass('360');
  SetAngle(SRL_ANGLE_HIGH);
  End;

Procedure Xp;
Begin
  Mouse(532, 64, 2, 2, True);
End;

Procedure Intro;
Begin
  WriteLn('==BagaBlast1--OgreDestroyer==');
  WriteLn('=========--Welcome--=========');
  WriteLn('=============================');
End;

Procedure Attack;
  Var x, y: Integer;
Begin
  k := k+1;
  x:=MSCX;
  y:=MSCY;
  if FindObjTPAMulti(x, y, [Ogre],5, 1, 10, 15, 30, ['more', 'gre', 'Ogre', '4 more', '2 more']) Then
  begin
      Mouse(x, y, 1, 1, false);
      WriteLn('');
      WaitOption('ttack', 500 + Random(150));
      WriteLn('');
      Wait(AT + Random(1000));
  end;
end;

Procedure RunningTime;
Begin
  ClearDebug;
  ch := XPFinder(3);
  WriteLn('=================================================');
  WriteLn('Run Time: ' + TimeRunning);
  WriteLn('Range XP gained: ' + IntToStr((h-ch)*-(301/100)));
  WriteLn('Range XP/Hr: ' + IntToStr(((h-ch)*-(301/100))/(PT)));
  WriteLn('Contitution XP gained: ' + IntToStr((h-ch)*-1));
  WriteLn('Contitution XP/Hr: ' + IntToStr(((h-ch)*-1)/(PT)));
  WriteLn('=================================================');
End;

begin
  Smart_Server:=100
  Smart_Members := True;
  Smart_SuperDetail := False;
  SetUpSRL;
  DeclarePlayers;
  LogInPlayer;
  Intro;
  Wait(6000 + Random(500));
  WriteLn('Starting Script');
  h := XPFInder(3);
  MarkTime(r);
  Xp;
  GameTab(tab_Inv);
  SetCamera;
  k := 0;
  Repeat
    Attack;
    AntiBand;
    TimePlay;
    RunningTime;
  Until(false);
end. 

From: Offline
100% credit to BajaBlast1 for making this great script!! I HOPE THIS HELPS :0
Just did a little editing :)

  
program Ogre_Destroyer;
//OGRE DESTOYER!!// By BAJABLAST1
{$DEFINE SRL5}
{$DEFINE SMART}
{$i SRL\SRL.simba}
{$i SRL\SRL\Misc\Debug.simba}

Const
  AT = 4000;
  ScriptVersion = '2.6';
  PT = 6;
  UseAutoChecker = true;

Var
 I,k, r, h, ch: Integer;




//=====================================================//
Procedure DeclarePlayers;
Begin
  NumberOfPlayers(1);
  CurrentPlayer := 0;

 With Players[0] do
  Begin
    Players[0].Name :='';
    Players[0].Pass :='';
    Players[0].Active :=True;
  End;
End;
//=====================================================//





function Ogre: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.06, 1.64);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 7319502, MSX1, MSY1, MSX2, MSY2, 18);
  if (Length(arP) = 0) then
  begin
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 18.90) and (X <= 69.80) and (Y >= 19.49) and (Y <= 73.61) and (Z >= 12.64) and (Z <= 45.19) then
    begin
      Result := arC[i];
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
end;

function XPFinder(skill: variant): integer;
var
  b: TBox;
  p: TPoint;
  tpa: TPointArray;
begin
  result := -1;

  if (not gameTab(TAB_STATS)) then
    exit;

  p := skillToCoords(skill);
  if (p.x < 1) then
    exit;

  mmouse(p.x, p.y + 5, 12, 4);
  wait(400 + random(200));

  if (WaitFindColors(tpa, 15133931, MIX1, MIY1, MIX2, MIY2, 0, 3000)) then
  begin
    b := getTPABounds(tpa);
    wait(400 + random(150));
    result := strToIntDef(getNumbers(getTextAt(b.x1 + 15, b.y1 + 15, 0, 1, 4, 4305653, 0, 75, smallChars)), -1);
  end;
end;

Procedure TimePlay;
var
  I: Byte;
  Cont : boolean;
Begin
    if FindNormalRandoms then
    begin
      WriteLn('===============================');
      WriteLn('In Random');
      WriteLn('Run Time: ' + TimeRunning);
      WriteLn('===============================');
end;
end;

Procedure AntiBand;
Begin
 WriteLn('AntiBan Started');
  case Random(100) of
    1: Begin WriteLn('Hovering Over Stats') GameTab(tab_Stats) Wait(700+ Random(500)) GameTab(tab_Inv); End;
    2: Begin WriteLn('Random Movement') RandomMovement; End;
  End;
End;

Procedure SetCamera;
Begin
  WriteLn('Camera set to North') MakeCompass('360');
  SetAngle(SRL_ANGLE_HIGH);
  End;

Procedure Xp;
Begin
  Mouse(532, 64, 2, 2, True);
End;

Procedure Intro;
Begin
  WriteLn('==BagaBlast1--OgreDestroyer==');
  WriteLn('=========--Welcome--=========');
  WriteLn('=============================');
End;

Procedure Attack;
  Var x, y: Integer;
Begin
  k := k+1;
  x:=MSCX;
  y:=MSCY;
  if FindObjTPAMulti(x, y, [Ogre],5, 1, 10, 15, 30, ['more', 'gre', 'Ogre', '4 more', '2 more']) Then
  begin
      Mouse(x, y, 1, 1, false);
      WriteLn('');
      WaitOption('ttack', 500 + Random(150));
      WriteLn('');
      Wait(AT + Random(1000));
  end;
end;

Procedure RunningTime;
Begin
  ClearDebug;
  ch := XPFinder(3);
  WriteLn('=================================================');
  WriteLn('Run Time: ' + TimeRunning);
  WriteLn('Range XP gained: ' + IntToStr((h-ch)*-(301/100)));
  WriteLn('Range XP/Hr: ' + IntToStr(((h-ch)*-(301/100))/(PT)));
  WriteLn('Contitution XP gained: ' + IntToStr((h-ch)*-1));
  WriteLn('Contitution XP/Hr: ' + IntToStr(((h-ch)*-1)/(PT)));
  WriteLn('=================================================');
End;

begin
  Smart_Server:=100
  Smart_Members := True;
  Smart_SuperDetail := False;
  SetUpSRL;
  DeclarePlayers;
  LogInPlayer;
  Intro;
  Wait(6000 + Random(500));
  WriteLn('Starting Script');
  h := XPFInder(3);
  MarkTime(r);
  Xp;
  GameTab(tab_Inv);
  SetCamera;
  k := 0;
  Repeat
    Attack;
    AntiBand;
    TimePlay;
    RunningTime;
  Until(false);
end. 

Very nice his version didnt work.
Yours working well But it has to many anti bans.
It has like 2 Anti bans per ogre

so whats wrong with antibans aha

version 3.0 is messing up lol.

Its doing Ogre Found too many times.

specifically the problem lies with,

IF NOT DIDREDCLICK

and

with ATTACKING pixel variance.

I'm tweaking it now, seems alright but i'll let it run for a bit.

I like the new attack system :) GOOD JOB!

version 3.0 is messing up lol.

Its doing Ogre Found too many times.

What kind of range attack are you using?

V3.1, fixed attacking method, worked on antiband.

I was using throwing knives; but I thought that's what it might have been.

So I tried using magic shortbow, but it still found ogre too often. Like once every time it attacked

I was using throwing knives; but I thought that's what it might have been.

So I tried using magic shortbow, but it still found ogre too often. Like once every time it attacked

K i think i know the problem, whats your range level? You try the new version?

Yeah I was doing 3.0

I'm like 88 ranged.

I was thinking about how to solve this problem, and I'm goign to take a stab at it after my midterm today.

so instead of searching for pixel variance
1) search for a red bar indicating a dead ogre, and when found, attack ogre again.
or
2) if the xp bar at the top hasnt received new experience for x seconds, then attack a new ogre. (so it would know that you are currently not gaining exp because you are currently not shooting arrows)

Yeah I was doing 3.0

I'm like 88 ranged.

I was thinking about how to solve this problem, and I'm goign to take a stab at it after my midterm today.

so instead of searching for pixel variance
1) search for a red bar indicating a dead ogre, and when found, attack ogre again.
or
2) if the xp bar at the top hasnt received new experience for x seconds, then attack a new ogre. (so it would know that you are currently not gaining exp because you are currently not shooting arrows)

Ya i was messing around with a dtm that would look for the full red hp bar but if another person is there it will switch to next ogre when they kill theres. But best of luck to you.

EDIT:

3.1 running smoothly. The pixel shift is working great.

The xpbar total function would probably just attack an ogre every time the play hits zero anyways - just thought it through.

Great job tweaking it. I think another issue may have been with the FPS settings on my smart. So heads up to everyone else, make sure your FPS is decently high so that pixel shift can read properly

You'd think this would be one of the easier bots to make Flawless.

1. Attacks
2. Make sure it stays in the right area
3. Anti-Ban

Is this running good? Haven't ran it in awhile. Any reports/bugs?

From: ifrootloops
EDIT:

3.1 running smoothly. The pixel shift is working great.

The xpbar total function would probably just attack an ogre every time the play hits zero anyways - just thought it through.

Great job tweaking it. I think another issue may have been with the FPS settings on my smart. So heads up to everyone else, make sure your FPS is decently high so that pixel shift can read properly

Can you please release to public.

From: Offline
Can you please release to public.

Just download the attached file and run it, it should update to version 3.1, let me know if it doesn't, and cold you please post a report.

Not sure what's wrong for me, but every once in a while (20min-1hr) I just log off. There's no one else attacking the ogres btw, and I look at the Simba program and the program just stops, does not say anything about it. I have to press play again, not really sure why it does that though

You need knifes to run this?

From: bLOOOO
You need knifes to run this?

Anything

what in the program is making it run for ~1 hr? Or is it just me?

From: bambi_boy
what in the program is making it run for ~1 hr? Or is it just me?

It might be play time, You can make it any time you want.
Its right under script version.

Const
  ScriptVersion  = '3.1';
  PT             = 1;         // How many hours do you want the script to run for?
  AB             = 80;        // Set between 60-100 for  how often you want AntiBand.
                              // Higher The less often it will do a AntiBand.

Var
  k, r, h, ch: Integer;
Procedure DeclarePlayers;
Begin
  NumberOfPlayers(1);
  CurrentPlayer := 0;

 With Players[0] do
  Begin
    Players[0].Name :='';
    Players[0].Pass :='';
    Players[0].Active :=True;
  End;
End;  

yeah im a dumbass, sorry just figured it out 5 minutes before i saw your post so couldn't edit it :(

Was trying to search more for some sort of error or function that would make it log out around that time, but just found it in the beginning of the script!

thank you

umm it just says
Compiled successfully in 780 ms.
The version you're using is outdated!
Downloading new version…
Successfully downloaded the script! Please close the script and re-open to see the changes, thank you!
Successfully executed.
File[C:\Users\Home\Downloads\OD.simba] has not been freed in the script, freeing it now.

than nothing happens please help me.

From: AlanEdmunds
umm it just says
Compiled successfully in 780 ms.
The version you're using is outdated!
Downloading new version…
Successfully downloaded the script! Please close the script and re-open to see the changes, thank you!
Successfully executed.
File[C:\Users\Home\Downloads\OD.simba] has not been freed in the script, freeing it now.

than nothing happens please help me.

Just re open the script and it will be up to date.

nice

Is this script running good for everyone? just tried it to day and it was barley attacking the ogres. Wont update it though if its just my computer.

Didnt attack any ogres whole time.

From: bLOOOO
Didnt attack any ogres whole time.

ok thanks ill update it soon



v3.2 the pixel shift got updated. might have gotten messed up in an rs update.

From: baja_blast1
ok thanks ill update it soon



v3.2 the pixel shift got updated. might have gotten messed up in an rs update.

So it's fixed now? :spot:

From: bLOOOO
So it's fixed now? :spot:

it should be it worked for me, no one ever gives me feed back, if you want the script to work better give me feed back and ill update to what you want.

The script works great!

It did misclick and go north of the ogre pen, but it was partly my error, as the camera angle wasnt all the way up. With it being all the way up, the script really works flawlessely for me atm.
Thanks for the script baja! Ill try to post a nice proggy soon!

ver 3.2 is workin great atm

Works great can't wait to see it improve.

agreed its works good just think it needs potion support to be gr8

From: nathan lad
agreed its works good just think it needs potion support to be gr8

I cant make it run for more than 10-15 mins than i just get logged out..

Edit; Any updates soon? :)

Any new updates?

it says 'how long do u want to run the SKELETON for by AT

Sometimes it attacks two ogres at once & then will fail to detect one dying, so it won't attack a new one and gets stuck

Ill look at it soon just been busy with finals.

ALright planing to fix up this script nicely with some new paint and ill fix up the pixel shift also adding in some sps postioin checking.

really looking forward to this, i think im gonna try and get 99 range with this<3