SRL Archive - Help

[TO GUESTS SURFING AROUND LOOKING FOR A FREE SOULSPLIT FROST DRAGON BOT, THIS WILL NOT WORK. IN FACT THE MOST IT WILL EVER DO THAT I WILL POST WILL BE A FUNCTIONING BOT TO ATTACK THE DRAGON AND NO MORE] STOP LEECHING

I'm trying to write a program to do the following:

1. right click on a color, in this case frost dragon
2. left click on the option attack frost dragon

(later)
3. wait to finish kill
4. pick up frost dragon bone
5. use frost dragon bone on pack yack

So far i feel like it should work with the first two numbers, but it just says successfully executed after i select the client and try to start it. I'm kind of new to this and im not sure what to do.

Program FROSTKILL;
{$i srl/srl.simba}
const
  NPC = 14005894;
  loot = 7631722;
  inventorybone = 10066061;

var
  Frost:Integer;
Procedure AttackDragon;
var
  X,Y:Integer;
begin
if FindColorTolerance(X, Y, NPC, 561, 226, 738, 484, 5) then
begin
  mmouse(x, y,1,1);
  wait(250);
  ClickMouse(X, Y, mouse_Right)
  wait(450);
    if FindBitmapToleranceIn(frost, X, Y, 561, 226, 738, 484, 145) then
    begin
      mmouse(x, y,1,1);
      wait(250);
      ClickMouse(X, Y, mouse_Left)
    end;
  end;
end;
Begin
MouseSpeed := 15;
frost := BitmapFromString(210, 10, 'meJztmE1ywyAMhTkI+y56Xt8lJ' +
        '8i13CakrpDeewjiTLqohwXoB8nDZ6Fku1y3y7WUst0n9eOzDbeEkq' +
        'mx/QRiBmXfb6N/lsO5bfOWpwQ9Ie2y30d7HvNX7J8z6yxNbrcJSbt' +
        'TuWUjoe1puYqQDLHRI0/dyceX3vbvUGeRq2lC1kIkbDrLkFvJqGoP' +
        'niXBgvFP3RsHO+jXheBmvtIKR72n1TYY7Ijy5hUlTCjc41XuD72/E' +
        'PNCJz9UzJg6tu90Ne7UG7GU9EHbEuRc4lzbpz5GHp1cr0AVqTuaKF' +
        'jr3P3LJBCwaGxV+Oj7js7C0PHw6HcCXf3DtsVxIXVTcfNyE3GKutj' +
        'vCZtJe81SpK44Y6GC1DlaavqGFXWSWQ5Pn6EYzZyLqi2s7Ac2ImPe' +
        'GFbF+bmLOEud5ME2V0lf/wyTsfsMVSdSF2tdhjr2Q1hTByVAy2vOM' +
        'Ohg5xGfT84nqfN0ReqQENOoh0gm9xWA5SnUDX1rvq97jrq8zTJ1L5' +
        'pPUgeKktNGCZTPUndIRDidiaCumurkyGG/JqAv/CsGgpek7lcI+64' +
        'gtyoFHr83tWVW7vIcfRGsBzPLfdiDCfsMdaLfg8VWqEKl7bzgMikR' +
        '8rh5zHZBmMwEps12y2RIQ7MbHxmLKAi8uTddfkHtCHMQXhC57/EFy' +
        'T3idw==');
AttackDragon
FreeBitmap (frost) ;
end.                                    

I advise you read a pixel shift tutorial to detect when your not in a fight, and banking with a yak will be unreliable incase somebody elses gets in your way.

Also this:

AttackDragon

Should be:

AttackDragon;

a quick tut on pixel shift:

Make a function that looks for were pixel are shifting(your player):

function IsInCombat: Boolean;
var
  PBox: TBox;
begin
  PBox := IntToBox(200, 200, 300, 300);
  Result := (AveragePixelShift(PBox, 250, 350) > 200);
end;         

This looks in a box at the area 200,200,300,300 and when there are more then 200 pixels shifting it returns true.

So a way to apply this would be:

Procedure Main;
Begin
  While IsinCombat do
  Wait(300);
End; 

While the bot finds more then 200 pixels shifting then you are in combat. LEt me know if you need help

Ugh. Maybe for my first script i should have tried something simpler. Thanks for the help. I'll keep you posted after i work on it a bit more.

From: pkdust
Ugh. Maybe for my first script i should have tried something simpler. Thanks for the help. I'll keep you posted after i work on it a bit more.

Start with something easy like mining, even if it's really simple, my scripts used to look like this for the longest time:

program new;
{$i srl/srl.simba}
procedure hack2;
var
  X, Y: Integer;
  begin
  FindColorTolerance(X,Y,3489905,34,76,65,105,10)
  movemouse(x, y);
  Wait(5 + Random(5));
  ClickMouse(X, Y, mouse_Left);
end;
procedure hack;
var
  X, Y: Integer;
  begin
  FindColorTolerance(X,Y,3489905,559,214,593,246,10)
  movemouse(x, y);
  Wait(5 + Random(5));
  ClickMouse(X, Y, mouse_Left);
  hack2;
end;
begin
repeat
      hack;
      until (IsKeyDown (114));
end. 

btw it duped on a rsps :)

Agreed, that should fix it(: Also pixel shift is not hard at all! It makes life much easier!

With the yak i have an idea for a spot that if someone else comes with a yak its game over bot anyways. Not particularly planning for a lot of competition in the area.

I figured if i can get this semi working, money problems are over on that server and it can be more of a fun thing. I'll take into consideration but atm i have homework

The script i have posted, am i missing something significant like a code telling to start or something, because i'd love to try continuing with trial and error, but the way it is now it just sits there saying sucessfully executed and doing touch the client

From: pkdust
The script i have posted, am i missing something significant like a code telling to start or something, because i'd love to try continuing with trial and error, but the way it is now it just sits there saying sucessfully executed and doing touch the client

if FindColorTolerance(X, Y, NPC, 561, 226, 738, 484, 5)

Make it search for the color on the whole screen

So it would look more like:

if FindColorTolerance(X, Y, NPC, 1, 1, 521, 361, 5)

I think i may have a working prototype that actually works, banking and all. Except for a second yak in the picture. Working on coding a pvp world mode to panic bank rapier if you get attacked, or tab. I'm going to keep this script private unless rjj95 would like a copy, as long as its kept secret to keep this method working. As there's probably about maybe 5 total dragons that this would work with in all 5 worlds of soulsplit

PATCHED. made 50b #profittt