// Start at Varrok West bank, with hammer in first slot inventory. Color,VBright
// The bar must be in within the first 50 slots of the bank.
//
// By default, this script smiths steel bars. You can change it to suit others.
{ TELL ME HOW THIS WENT!!!!}
Program ThePickleSmith;
{.include SRL/SRL.scar}
Const
Loads = 25;
StartPlayer = 0;
//Change this to the color of your bar to smith. Eg, Bar:=3355447 is iron.
//------------½ This one is Steel
Bar=4868944;
//-------------½
//-------------½
Var
Mithril, Banker1, Banker2, Hammer, Anvil, BankSymbol,
WordBank, AnvilMap,x, y: Integer;
NoHammer:Boolean;
//Setup your players
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
end;
//Dont touch past here, except for the Bar color
procedure BankToAnvil;
begin
Hammer:=736600
Banker1:=5782599
Banker2:=4860471
WordBank:= 65535
//Change this to the color of your bar to smith. Eg, Bar:=3355447 is iron.
//------------½ This one is Steel
//-------------½
//-------------½
If(Not FindColor(x,y,Hammer,573,213,596,231))Then
begin
Writeln('No Hammer');
end else
WriteLn('Found Hammer');
begin;
If(FindColor(x,y,Banker1,250,4,491,279))Then
begin
FindColor(x,y,Banker2,250,4,491,279);
MoveMouseSmoothex(x,y+random(9),20,40,45,25,20);
ClickMouse(x,y,false);
end;
begin
FindColor(x,y,WordBank,250,4,491,279);
MoveMouseSmoothex(x,y+random(11),20,40,45,25,20);
ClickMouse(x,y,true);
end;
begin
FindColor(x,y,Bar,28,88,479,292);
MoveMouseSmoothex(x,y+random(7),20,40,45,25,20);
ClickMouse(x,y,false);
end;
begin
FindColor(x,y,0,31,89,506,468);
MovemouseSmoothex(x,y+random(7),20,40,45,25,20);
ClickMouse(x,y,true);
end;
end;
end;
Procedure AnvilRadialWalk;
begin
AnvilMap:= 12434166
RadialWalk(AnvilMap, 136, 224, 15, 3, 4);
Until(findSymbol(x,y, 'anvil');
else
logout;
Writeln('Cannot find Anvil')
end;
end;
end;
Procedure Smithing;
Anvil:=3355447
Hammer:=736600
If (FindColor(x,y,Bar,562,255,729,343))then;
begin
MoveMouseSmoothEx(x,y,+random(3),20,40,45,25,20);
ClickMouse(x,y,True);
end;
else
Writeln('Something Happened to Our bar... Not in inventory');
Logout
end;
begin
If (FindColor(x,y,Anvil,114,5,342,322))then:
begin
MoveMouseSmoothEx(x,y,+random(3),20,40,45,25,20);
ClickMouse(x,y,True)
MoveMouseSmoothEx(498,316,+random(2),20,40,45,25,2 0);
HoldMouse(498,316,true);
Wait(2943+random(234);
ReleaseMouse(498,316,true);
MoveMouseSmoothEx(261,280,+random(13),20,40,45,25, 20);
ClickMouse(261,280,False);
MoveMouseSmoothEx(266,359,+random(4),20,40,45,25,2 0);
ClickMouse(266,359,True);
Sleep(20000);
end;
else;
WriteLn('Cant Find Anvil')
Logout;
end;
end;
end;
Procedure RadialWalkToBank;
BankSymbol:=117712
begin
RadialWalk(BankSymbol, 136, 224, 15, 3, 4);
Until(findSymbol(x,y, 'Bank');
else
WriteLn('Cant Find Bank');
Logout;
end;
Procedure Loop;
repeat
DeclarePlayers
BankToAnvil
AnvilRadialWalk
Smithing
RadialWalkToBank
until false;
end;
end.