SRL Archive - First Scripts

To add:
A rune pickup Added a Body Rune pickuper.
Eating not only lobster
A better fighting
A stats GUI



Known bugs:
When there is no Flesh Crawler, types something random. Will fix it.


Version v2 is out.

Better fighting and picking up runes. Don't goldfarm :p

Thanks.

Looks like you leached something from another script because of:
program AttackGoblin.
function FightGoblin:Boolerepeat
FightGoblin; // this will be for repeating action
EatIfLow; // this will be for repating eating

Edit: anyways good job :).

function FightGoblin:Boolean;
var
x, y: Integer;
begin
if FindObjCustom(x, y, ['att', 'ack', 'Flesh', 'Crawle'], [929072], 5) then
Mouse(x, y, 3, 3, True);
wait(5000+Random(5000));
Writeln('We found a goblin. Attacking it');
u are bad

From: Bwuk
Looks like you leached something from another script because of:
program AttackGoblin.
function FightGoblin:Boolerepeat
FightGoblin; // this will be for repeating action
EatIfLow; // this will be for repating eating

Edit: anyways good job :).

I made first for attacking goblins. Then saved it but got a bug on simba.

From: qingqinghd
function FightGoblin:Boolean;
var
x, y: Integer;
begin
if FindObjCustom(x, y, ['att', 'ack', 'Flesh', 'Crawle'], [929072], 5) then
Mouse(x, y, 3, 3, True);
wait(5000+Random(5000));
Writeln('We found a goblin. Attacking it');
u are bad

Updated sir. Sorry for issue./

Nice man, I will hav to Check it out when I get home to see Goethe script actually looks. We need more combat script writers that aren't leeches! :)

From: laakerules
Nice man, I will hav to Check it out when I get home to see Goethe script actually looks. We need more combat script writers that aren't leeches! :)

Thanks for positive feedback, Just after scripting I am understanding it. Thanks again.

Yup yup! When I check I out later ill tell you what I think and mate help you out some

Looks nice and Basic, Just how I like it :)

Though I haven't gotten more than 4 cycles, So I'll run through the script and see If I can make any changes.

whats the xp a hour on these things :)

From: Iambubbleman
Looks nice and Basic, Just how I like it :)

Though I haven't gotten more than 4 cycles, So I'll run through the script and see If I can make any changes.

Yes, it's the most basic one. If there are any bugs let me know.

BTW, I am glad someone is using my script to learn :)

From: asap1
whats the xp a hour on these things :)

There are many goldfarmers there. But If you find a quiet place it's like 30k/H

is this script made to pick up the effigys they drop?

I will be adding to pickup noted iron, fire runes, and nature runes.

Begginer, if you need help on picking items up i can def help! :)

Also i just checked it out.

  SRLStats_Username = '';   //Insert your SRL stats username here.
  SRLStats_Password = '';   //Insert your SRL stats password here.
  BreakEvery        = 120;  //How many minutes before breaking?
  BreakFor          = 5;    //How many minutes to break for?
  Version           = '0.12';
  NumbOfPlayers     = 1;    //How many players are you using?
  StartPlayer       = 0;    //Which player will you start with? (0 means first)                

That looks like off of gratz yak attacker i think! :P

No I just made a goblin killer first. Then forgot to change others and I need your help a little

From: begginer
I made first for attacking goblins. Then saved it but got a bug on simba.

From: begginer
No I just made a goblin killer first. Then forgot to change others and I need your help a little

Actually, you are lying. You copy and pasted the beginning of my goblin script. All of the wording is the exact same as mine. Even the version number "0.12"

Don't lie and leech. Learn how to make things on your own…

From: laakerules
We need more combat script writers that aren't leeches! :)

Compare his script to my beginner Goblin script I sent you and you'll see what I'm talking about.

It's so simple to set this up on your own, man! Don't just copy and paste next time. :)

Please delete.

Delete please.

It's true I used your to practise. But some features I add are mine. I mean I coded them myself :)

EDIT: Plus yours was only this. Could not even attack a goblin

function FightGoblin:Boolean;
var
  x, y: Integer;
begin
  if FindObjCustom(x, y, ['att', 'ack'], [3901051, 8365713, 4958626], 4) then
  Writeln('We found a goblin.');
end;

begin
  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  repeat
    FightGoblin;
  until(false);
end.     

From: begginer
It's true I used your to practise. But some features I add are mine. I mean I coded them myself :)

EDIT: Plus yours was only this. Could not even attack a goblin

I was talking about the entire top part, right down to the comments. Not the function/procedures. I know you did those on your own. It's not a big deal, just don't lie and tell people you made a goblin script first when clearly you didn't. Honesty is the best policy.

Yes, but I first used yours to attack goblins. then I got an account and got to use with crawlers

From: begginer
Yes, but I first used yours to attack goblins. then I got an account and got to use with crawlers

Glad you got it working on Crawlers, I'm going to try to do some updating tonight on my Goblins and add in some AntiBan and Randoms. We'll see how that goes haha! :p

If you need my help, then Pm me the msn or skype. :p

Or just pm me! :)

And Begginer, Do you have

Repeat
wait(50);
Until (Not infight) or (Not othersinfight);

?

I think thats how it goes.

From: BaYBeeZ
Glad you got it working on Crawlers, I'm going to try to do some updating tonight on my Goblins and add in some AntiBan and Randoms. We'll see how that goes haha! :p

…add in randoms?

:duh:

I think he ment like random antiban maybe?

From: laakerules
I think he ment like random antiban maybe?

Possibly.

Hi , i tried the script and it doesnt work for me :(,
what can i do? im standing at fleshies, i got lobs in my inventory i press start on the bot and it just say,
attacking flesh crawler. over and over :(

help

Wait until beginner gets back! If he doesnt soon I'll help possibly!

nice ill try out later

Random letters might be from using angle functions in a wrong way. I used it too and had that problem until I read srl docs.

Going to try :)

I don;t know man the problem is but this works perfectly for me.

Try this one sir.

// by begginer. thanks for using it. Enjoy it :)

program AttackFlashCrawler;
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i SRL/SRL/skill/fighting.simba}
     var
   x: Integer;
const
  SRLStats_Username = '';   //Insert your SRL stats username here.
  SRLStats_Password = '';   //Insert your SRL stats password here.
  BreakEvery        = 120;  //How many minutes before breaking?
  BreakFor          = 5;    //How many minutes to break for?
  Version           = '1';
  NumbOfPlayers     = 1;    //How many players are you using?
  StartPlayer       = 0;    //Which player will you start with? (0 means first)

procedure DeclarePlayers;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := 0;

  Players[0].Name     :='';     //Insert player username here.
  Players[0].Pass     :='';     //Insert player password here.
  Players[0].Active   := True;  //Leave True to use this player.
end;


function FightCrawler:Boolean;
var
  x, y: Integer;
begin
  if FindObjCustom(x, y, ['att', 'ack', 'Flesh', 'Crawle'], [929072], 5) then
  Mouse(x, y, 3, 3, True);
     wait(5000+Random(5000));   // Change this if you want for faster attacking. 1000 = 1SECOND
  Writeln('We found a Crawler. Attacking it');
end;

procedure AntiBan;

begin
Writeln ('Anti-banning');
  x := Random(50)  case x of
    0:
      HoverSkill('Attack', false);
    1:
      HoverSkill('Strength', false);
    2:
      HoverSkill('Defence', false);
    3:
      HoverSkill('hitpoints', false);
    12..15:
      PickUpMouse;
    16..25:
      RandomMovement;
    26..27:
      RandomRClick;
    28..32:
      BoredHuman;
    33:
      ExamineInv;
     34..50:
     RandomRClick;


     end;

  Wait(RandomRange(800, 1200));
end;

procedure EatIfLow;
var
  MMColor: string;
  x, y, Lobster: Integer;
  begin
  Lobster := DTMFromString('mlwAAAHicY2dgYJjPxMCwGIoXAvFMIF4AxEuAuJ8RgicB8XQg7oLiDiDm4+NjKLcRZJjtJ86wJVqaYV2EFMP8AHGGbTHSDFxAc3FhRjwYCgD3pg8b');

begin
  GetMMLevels('hp', MMColor);
  if (MMColor = 'Red') then
  repeat
    if FindDTM(Lobster, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
      InvMouse(CoordsToItem(x, y), 3);
      if WaitUpText('Eat Lobster', 100) then
      begin
        ClickMouse2(true);
        Wait(RandomRange(350, 525));
      end;
    end else
      Break;
    GetMMLevels('hp', MMColor)
  until((MMColor = 'Green'))
 end;
 FreeDTM(Lobster);
end;




begin
  SetupSRL;
  ActivateClient;
  DeclarePlayers;
  EatIfLow;
  repeat
    FightCrawler;                // this will be for repeating action
    EatIfLow;                   // this will be for repating eating
    AntiBan;

  until(false);

end.

From: BaYBeeZ
Actually, you are lying. You copy and pasted the beginning of my goblin script. All of the wording is the exact same as mine. Even the version number "0.12"

Don't lie and leech. Learn how to make things on your own…



Compare his script to my beginner Goblin script I sent you and you'll see what I'm talking about.

It's so simple to set this up on your own, man! Don't just copy and paste next time. :)

Instead of flaming him over stealing something from a shitty goblin script why not give positive feedback and not triple post.

From: illuminatiswag
Instead of flaming him over stealing something from a shitty goblin script why not give positive feedback and not triple post maricon :f:

Thanks for supporting me :)

Warning! You passed a wrong ys to a finder function: -5. That is below 0, thus out of bounds. Setting the value to 0 for now.

Keep getting this D:

From: Usa
…add in randoms?

:duh:

rofl this kids a winner…… I dont think he actually wrote this cause he asked me how to loot stuff…. he could just look for the looter in my chicken script :confused:

want a banner if you do pm me

From: getdropped69
rofl this kids a winner…… I dont think he actually wrote this cause he asked me how to loot stuff…. he could just look for the looter in my chicken script :confused:

I am not using it. I am using a TPA pickuper :)

Lol, my functin is best for picking items up! :) if you know how to find best color that doesnt match anything that is! :)

From: laakerules
Lol, my functin is best for picking items up! :) if you know how to find best color that doesnt match anything that is! :)

I will be using yours. Just need to find proper colours :)

Could you add Charm pick up ^^?

Yeah sure. Just after runepick. But I noticed sth. They rarely drop fire runes. I used to get like 5000 runes. But while I killed 20 Crawler there was no fire rune.

bro you want a banner i just need to add text to it ?

From: holysin
bro you want a banner i just need to add text to it ?

Do your best please :)

okay doke ill finish it after i have a shower :S reply if you want any simularities from the one i made for laakerules blood pacter

this ok?

you forgot player setup so i wouldn't log in

i just added one from my powerchopper

Procedure PlayerSetup;
begin
  LoginPlayer;
  SetAngle(SRL_ANGLE_HIGH);
 

  end;

the Setangle(SRL_ANGLE_HIGH);
is useful aswell
(it sets the angle high ) if you didn't know :P other than that it's good
and im looking forward to the runepickup

Added v2. Pick runes up are not supported

Can anyone post here if this worked for you please!

Hmm i think ima trry dat out

so does this pick up effigies?

I was going to add a charm pickuper but they rarely drop them. Shit.

thanks, nice script, but u need to work in it a little more, from just 10 mins of use, it has already started picking up things i dont want like ashes, and does anyone know if this will log you if you have no more food and are about to die?
plz reply

It surely logout. If not I'll make an update soon.

Awesome script, especially for a first. Since you already have the general format for scripting the picking up runes, it'd be pretty cool to see Fire/Nature runes be picked up in the next version!

About fire runes are not dropping. Nature runes are not a big problem.

From: BaYBeeZ
Delete please.

You can delete it yourself… Just press the edit button…

Can anyone suggest what I should add to my script.

nice gonna try it later on today

Any suggestions.

mabey add banking if it dosnt already have it or add a strenght potion support

From: pigggy
mabey add banking if it dosnt already have it or add a strenght potion support

I'll see what I can do for a strength potion.

Pretty nice script mate! =)