SRL Archive - News and General

And to the people in the help section that helped me:
As some of you may know I have been working on my soulsplit include and I would have never been able to get it off to a decent start without these 2 people:

Thank you to MasterBB (aka bart) for going through the pain staking process of guiding me through tortoise SVN and writing a awesome DTM loader and file saver!(And also teaching me how to use functions which my include would be useless without)Though there are still a couple things that I will need your help with (hehe adding a mouse pattern) I want to thank you for your hardwork!

Thank you to Flight, for writing me a the original Soulsplit include that helped me understand how it works!

Btw: My idea of a function before MasterBB's Help:

function isbankopen boolean if FindBitmapToleranceIn(Login, X, Y, SS_WSX, SS_WSY, SS_WSX2, SS_WSY2, 145) then
begin
  isbankopen = false
end;    

How I now use the (nothing special but compare it to before:)

function IsloggedIn(): boolean; // This is MasterBB's
var
  Login, X, Y: Integer;
begin
  Login := BitmapFromString(44, 10, 'meJyl01cOgCAMBuAbCZVRSLz/uW' + 'SEJcUwkv+BSLEfoDda0F2U5crkQDXOT3x0mpJ4Cc27sskQgAlDWls' + 'M2wDaQFZKau2Yd2agy9hgpyDx/CimDuGvBYI7IoEO6Z1bEvgwlt/g' + '+zKho2GZEYrDnU4D6PcHRpWDozj5wBrGvmG1aRqnpoVB/kTLiddap' + '58NjLxxYZ6GQbOxxue8oQQOBQ==');
  Result := true;
  if FindBitmapToleranceIn(Login, X, Y, SS_WSX, SS_WSY, SS_WSX2, SS_WSY2, 145) then
  begin
    Result := false;    
  end;
  FreeBitmap(login);
end;

function loginPlayer(): boolean; // This is 90%  MasterBB's
var
  Button, X, Y: Integer;
begin
  Writeln('logging in');
  Button := BitmapFromString(51, 16, 'meJyruv+palCi/JuvByeKPnVnCC' + 'EGBgZamAkBRKr3PXIdEwG1h2w8gFWKEgQxlkiTnfdcwkQQE3BJwQE' + 'ucTQprMZC1OBRb7XtDCaCmIBVHEhCfA1EEC5WcVza4eIQ98B1wY2C' + 'I5M1hzERxASC4nAuLnE82uHRikuL/qqDmAiijKA4nItLHI92glq0l' + 'u3HRBBlBMXhXFzieLQT1KK6cBcmgigjKA7nIotDEg9B7biMgiOlWV' + 'sxEQMGwCoF5AJNQxOHsOHimBrhXGQ1WLVgRfAsBkdYpbBqwWULmi5' + 'M7chc2akbqI4gDqPQEJmJa6iCkKMYyAU6jEIDxfqohpCjmHLTALJl' + '7LE=');
  if FindBitmapToleranceIn(Button, X, Y, SS_WSX, SS_WSY, SS_WSX2, SS_WSY2, 165) then
  begin
    MoveMouse(371, 367);  
    wait(500);
    ClickMouse(371, 367, 1);
    wait(6000 + Random(2500));
  end;
end;

function OnInventoryTab(): boolean;
var
  Tab_Inv_Open, X, Y: Integer;
begin
  Tab_inv_Open := DTMFromString('mbQAAAHicY2VgYGhnYmDoBeJaIK4B4olAfBYofguIbwPxUSA+AsQlbhIMJoJ8YFyqIcdgIyrAwAkUR8eMWDAYAADWcgl/');
  Result := false
  if FindDTM(Tab_Inv_Open, x, y, SS_WSX, SS_WSY, SS_WSX2, SS_WSY2) then
  begin
    Result := true
  end;
  Freedtm(Tab_inv_Open);
end;

function OpenTabInventory(): boolean;
var
  Tab_Inv_Close, X, Y: Integer;
begin
  Tab_Inv_Close := DTMFromString('mbQAAAHicY2VgYGhjYmDoB+JqIJ4AxDVAfAYofhOIbwDxYSgOMhFicLY2ZAjycWLw9bBhmNSSz8AJFEfHjFgwGAAAND4LXg==');
  if FindDTM(Tab_Inv_Close, x, y, SS_WSX, SS_WSY, SS_WSX2, SS_WSY2) then
  begin
    MoveMouse(x, y);
    wait(randomrange(100, 200));
    ClickMouse(x, y, 1);
  end;
  Freedtm(Tab_Inv_Close);
end;

function IsBankOpen(): boolean;
var
 Bank_Open,X,Y:Integer;
begin
  Bank_Open := BitmapFromString(112, 13, 'meJy9lktuwzAMRHOT3KH1NkFWQ' + 'XvD3DY1IoCYzpBjym5qcGHI4kdPI1rL7XvJ7PP6FfZxuavhBG9p/C' + 'Nmcpkij+fqcFhdzo8n2maRFc/K/a8wRoWGqoeJ7rObNXz7PE+vh5i' + 'kJD3PNcg7eEbwYNI/IMRzDTLLc11v+BIHIoZZiMkUTMOziZTkl8Ic' + 'KOJlCuZunsiNeOqqK56zMA/yVPmlE6ZEZbL0eZIOBxnUZMUzbOw+B' + 'sHWERG03xITc+IUDq405NdBSgGxEvUinrQQcqeGSUobRdLkqn9SBB' + 'zHCIRON6USsOqwoxxFWgXEaJvv+KRFNvUZMjDnXaWbZqSdSmGiY7q' + '0VH4e6RQ3r8847MrNvPv+WXml3Kq9wL1r8iS1NDvtcZ7RWwLp//Cs' + 'IlTarpB2eHpNEvYphlRAukcdnn4h/f/RjsorpKpGzxOLJA37gDiec' + 'qjmKA2zLzE5/min3w/ejugTHhN6jzgYU5FSNJVuZVSDjtMnHKfs42' + 'DS0tL/C9JQX81Ftyxz4fRtje5saf801uGZJqXUnfLSyVE5nvEdHH4' + 'AcE39lg==');
  Result := false;
  if FindBitmapToleranceIn(Bank_Open, X, Y, SS_MSX1, SS_MSY1, SS_MSX2, SS_MSY2, 145) then
  begin
    Result := true;
    Writeln('Bank is open')
  end;
  Writeln('Bank is not open')
 FreeBitmap(Bank_Open);
end;

function CloseBank(): boolean;
  var
  X,Y:Integer;
begin
  If FindColorTolerance(X, Y, 8421504, 430, 62, 492, 67, 5) then
  begin
    MoveMouse(x, y);
    wait(randomrange(100, 200));
    ClickMouse(x, y, 1);
  end;
end; 

As you can see it went from a 5 lines of un-runable code to a working code to properly check things :)

By the way MasterBB's DTM file saver is cool, you enter in the string and press play and it saves the file, makes making and saving DTM's 4x faster.

Congrats on the include, keep up the work!

P.S. flight has the coolest mouse functions