SRL Archive - RS3 Outdated / Broken Scripts

welcome to TomTuff's BanditKiller!

FEATURES:
- eats tuna, lobsters, monkfish, or shark
- sells noted food to the shop and buys it back unnoted for longer stays
- utilizes the bandits zaros alliegance, so they auto attack you if you're wearing a zamorak/saradomin item!

SETUP
ok well since photobucket is down, i'll have to attach the pics

INVENTORY:
see inventory pic attached

LOCATION:
stand north of the southeast tent (see pic)

GEAR:
see attached pic. note you *MUST* have something zamorakian/sardominian worn, or else this will NOT work.


please post proggies!

SOON TO COME:
- MULTIPLAYER!
- TIMER!
taking suggestions

Nice, just use tinypic.com or other sites there are a lot of them.

hey nice script…

  begin
    Mouse(x, y, 8, 8, false);
    ChooseOption('Buy 10');
    Mouse(x, y, 8, 8, false);
    ChooseOption('Buy 1');
    Mouse(x, y, 8, 8, false);
    ChooseOption('Buy 5');
    Mouse(x, y, 8, 8, false);
    ChooseOption('Buy 10');
  end

You can use a case for that

From: Simtoon
hey nice script…

  begin
    Mouse(x, y, 8, 8, false);
    ChooseOption('Buy 10');
    Mouse(x, y, 8, 8, false);
    ChooseOption('Buy 1');
    Mouse(x, y, 8, 8, false);
    ChooseOption('Buy 5');
    Mouse(x, y, 8, 8, false);
    ChooseOption('Buy 10');
  end

You can use a case for that

hm no it has to do it that way… although i could make a case statement to make it do those in a random order for less detectibility. (what that's doing is buying back noted food)

*cough* add potion sipping for us pures *cough*

program BanditAFKer;
{.include SRL\SRL.scar}

var
  ix, iy, StartStrExp, StartHPExp, sGain, hGain, proggi  :integer;

function getStartStrength : integer;
begin
  StartStrExp := Getxp('attack');
  result := startstrexp;
end;

function getStartHP : integer;
begin
  StartHPExp := Getxp('hitpoints');
  result := StartHPExp;
end;

procedure calcExpGains;
var
  sExp, hExp : integer;
begin
  hExp := getxp('hitpoints');
  hGain := hExp - StartHPExp;
  sExp := getxp('attack');
  sGain := sExp - StartStrExp;
end;

procedure Proggie;
begin
  clearDebug;
  calcExpGains;
  Writeln('Jethr0x Bandit Killaz0r.');
  Writeln('=-=-=-=-=-=-=-=-=-=-=-=-=-');
  Writeln(TimeRunning);
  Writeln('Exp Gains:');
  Writeln('  Attack: ' +IntToStr(sGain)+ ' exp.');
  Writeln('  Hitpoints: ' +IntToStr(hGain)+ ' exp.');
end;

function getPrayer : integer;
var
  PrayLevel : integer;
  color : string;
begin
  GameTab(2);
  PrayLevel  := GetSkillInfo('prayer', true);
  Writeln('Prayer is at: ' +IntToStr(PrayLevel));
  result := PrayLevel;
end;

begin
  SetupSRL;
  ActivateClient;
  wait(1000);
  getStartStrength;
  getStartHP;
  repeat
    wait(1000+random(2000));
    if ((getPrayer <= 25) and (getPrayer > 1)) then
    begin
      GameTab(4);
      if FindColor(ix, iy, 10539578, 564, 210, 726, 460) then
      begin
        Mouse(ix, iy, 0, 0, true);
        Proggie;
      end;
    end;
  until(false);
end.

^little thing i made to just sip a ppot when needed for me. maybe u can use something from it.

Doesnt eat for me:), you might want to look into that. Probably and srl failure of mine

[php]
begin
Mouse(x, y, 8, 8, false);
ChooseOption('Buy 10');
Mouse(x, y, 8, 8, false);
ChooseOption('Buy 1');
Mouse(x, y, 8, 8, false);
ChooseOption('Buy 5');
Mouse(x, y, 8, 8, false);
ChooseOption('Buy 10');
end

change that to this: (it's 2 more lines, but tbh I think it's more efficient.)

procedure MouseOption(n: integer);
begin
Mouse(x, y, 8, 8, False);
ChooseOption('Buy ' + IntToStr(n));
end;

begin
MouseOption(10);
MouseOption(1);
MouseOption(5);
MouseOption(10);
end;
[/php]

From: Mathematics
[php]
begin
Mouse(x, y, 8, 8, false);
ChooseOption('Buy 10');
Mouse(x, y, 8, 8, false);
ChooseOption('Buy 1');
Mouse(x, y, 8, 8, false);
ChooseOption('Buy 5');
Mouse(x, y, 8, 8, false);
ChooseOption('Buy 10');
end

change that to this: (it's 2 more lines, but tbh I think it's more efficient.)

procedure MouseOption(n: integer);
begin
Mouse(x, y, 8, 8, False);
ChooseOption('Buy ' + IntToStr(n));
end;

begin
MouseOption(10);
MouseOption(1);
MouseOption(5);
MouseOption(10);
end;
[/php]

Thats longer though, not faster or anything else. So why?

nice idea about the store selling and stuff… I didn't impliment that into mine yet… Mind if i use that idea also?

Looking at your pics i am guessing your a high level. Well would a level 111 with 91 defence need any food really?

From: Pixelate
Looking at your pics i am guessing your a high level. Well would a level 111 with 91 defence need any food really?

Yes.

It looks good, its short, simply and 1337.

May I ask why you are selecting the food to sell from a mouse coord, especially seeing as you have the DTMS for buying them back, also more failsafes would be greatly needed. And lastly, why are you selling the food individually? Why not just "sell x"? And then you can just do "buy all".

What is the longest you have ran this script for?

I am sorry but a lot of this doesn't make sense?

Mouse(x, y, 8, 8, false);
    ChooseOption('Buy 10');
  end
  else
  begin
    logout;
  end;
  if (FindObjTPA(x, y, 2448971, 15, 2, 1, 1, 15, ['alk'])) then
  begin
    mouse(x, y, 1, 1, true)
    mouse(320, 268, 4, 4, true)

What is the FindObjTPA for? And I don't see anything about walking out the shop back to where you were??

I am going to give this script a whole complete rewrite if thats ok?

From: Pixelate
I am sorry but a lot of this doesn't make sense?

Mouse(x, y, 8, 8, false);
    ChooseOption('Buy 10');
  end
  else
  begin
    logout;
  end;
  if (FindObjTPA(x, y, 2448971, 15, 2, 1, 1, 15, ['alk'])) then
  begin
    mouse(x, y, 1, 1, true)
    mouse(320, 268, 4, 4, true)

What is the FindObjTPA for? And I don't see anything about walking out the shop back to where you were??

I am going to give this script a whole complete rewrite if thats ok?

Why not create your own script if it's "complete rewrite"?

Because I dont want to make my own scripts, I want to help him? By furthering on his script I feel it would be beneficial to him. I would explain to him what I did as well, so thats why.

Just what i come up with so far (kinda more a rewrite but couldnt really explain as i had no time), sorted out anti ban, eating etc etc. Used Jethrox's exp calc but doesnt really work, ill slap something together when i have more time. Got it walking to store, but trying to sort selecting the NPC. Tell me what you think? If you load it with full invent food with no more than 3 attacking you, you can lost about an hour or more? (91 def :P). With Guthan's this could go on forever, and it would be easy to add timing and world switcher, except theres always people here.

Hope Ya'll enjoy.


//Going to release soon, so wait for the thread. Not that many people will use it i think.