SRL Archive - OSR Help

Hey guys, I went through all of the pinned tutorials and a few other ones, but I'm not really learning anything. I'm just memorizing it and do not know how most of the things in a script work. I basically came here today trying to learn how to make a script because I wanted to make a really basic one for crafting coifs. So far, I know how to start the script, know a TINY bit about TPA, know how to find the color using ACA2, and that's pretty much it. I am going to go through guides and try to find out how to find objects in your inventory (I already found a guide where this was included in it, but it was difficult comprehending the matter), and how to bank. All I know about banking is that I have to set the desired banking area, which is going to be sw (Soul Wars Bank) and since I can't just make a TPA for the deposit all since I have thread in my inventory, I have to get Hue/Sat/Tolerance using ACA2. If you guys know an easier way for me to find objects in a bank/inventory please post below. In the meanwhile, I am going to look through more tutorials, if you have anything that could assist me, please post below. :biggrin:

What I am working on right now:
Banking



Questions:
Is my banking correct? And how do I make it deposit the coifs?

Do I have to put another FindColorsSpiralTolerance which is at the bottom of the post for the coif's color?



What I have so far:

program New;
{$DEFINE SMART}
{$i srl/srl.simba}

//////////////SETUP//////////////
(*Start at Edgeville Bank
Have leather in the first row AND column of bank in the first tab
Have thread in the first slot of your inventory, needle in toolkit
*)

Procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Pin  := '';
  Players[0].Nick := '';
  Players[0].Active:=True;
end;




procedure OpenBankBooth;
var
  x, y, Bank, Tried: integer;
begin

  Bank := DTMFromString('m6wAAAHic42ZgYFAD4kgGCNAAYiYg9gRieyAWQKLnATELAypgA2J2IOYAYlYgZoRikDpfT2uGD2/OM1y9uJ3hxdMTYD4ybu/qBWM3DwUGEaB6OSQsgoaRxUHmM0MxE5KdMMwExayoTgUA2PATHg==');

  if (BankScreen)then
  begin
    FreeDTM(Bank);
    Exit;
  end;

  begin
    repeat
    Inc(Tried);
    Wait(150 + random(100));
    x := MSCX;
    y := MSCY;
    if FindDTMRotated(Bank, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
    begin
      Mouse(x, y, 10, 10, True);
      Flag;
      Wait(1000 + random(100));
      FindNormalRandoms;
    end;
    until (BankScreen) or (PinScreen) or (Tried > 10);
  end;

  begin
    if PinScreen then
      if (Players[CurrentPlayer].Pin <> '')then
        InPin(Players[CurrentPlayer].Pin)
      else
        begin
          FreeDTM(Bank);
          Logout;
          WriteLn('No pin given');
          TerminateScript;
        end;
  end;

  FreeDTM(Bank);

end;


procedure Banking;
var
  Tried, Tried2: integer;

begin

  if not(BankScreen)then
  begin
    Exit;
  end;

  DepositAll;      //Need HELP here! How do I make it deposit the coifs in the inventory?

  repeat

    Inc(Tried);
    Wait(20);

    if (FindNormalRandoms)then
    begin
      ClickNorth(SRL_ANGLE_HIGH);
      OpenBankBooth;
    end;

  until (BankScreen) or (Tried > 15);

    begin
      repeat
        Inc(Tried2);
        if(BankScreen) then
        begin
          Withdraw(0, 0, 27);
          Wait(800 + random(50));
          FindNormalRandoms;
        end;
      until (InvCount = 28) or (Tried2 > 2);

      if(Tried2 > 2)then
      begin
        WriteLn('Failed to find leather')
        Logout;
        TerminateScript;
      end;

    end;

  end;

end;





Procedure CraftCoif;
begin
if(FindColorSpiralTolerance(x, y, raft, 538427, MIX1, MIY1, MIX2, MIY2, 5))then
  begin
    Mouse(x, y, 5, 5, true); //If found will Left-Click on the x, y coordinates with a randomness between 5 pixel
    ChooseOption('Craft');
    Repeat
    Wait(1200+random(250));
    Until not IsUpText('Craft') or InvFull
  end;
end;

Procedure AntiBan;
Begin
  If(Not LoggedIn)then
  Exit;
    Case Random(8)of
      0:
        Begin;
          HoverSkill('Crafting',false)
          Wait(2453+random(432));
        End;
      1: Wait(100);
      2 : PickUpMouse;
    End;

begin
  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
  BankScreen;
  CraftCoif;
end.

Credits:

Tickyy's Color Finding Tutorial
EdgeGoldSmither Script for some of the banking in the script

There are a whole lot of functions which support banking.

Go here:
C:\Simba\Includes\SRL\srl\core and find the 'banking.simba' file. Open it and it will show you a list of all the functions you need in a bank.


EDIT: Can't find DTM Editor? It's here:

Thank you I'll take a look at that and also I can't find the DTM Editor.

Here ya go:

http://villavu.com/forum/showthread.php?t=25312

EDIT: It's old and might not work - I'll find you a new link.

EDIT2: You have to enable DTM Editor - Open Simba and go to View -> Extensions and enable dtm editor.sex

Alright thanks, Reped you for the help. Also, could you check my banking in the OP? I got a few snippets from the EdgeGoldSmither script, is it okay if I use them as long as I give credits, and I have to update that DTM right?