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. 
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:
Simba Code:
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