SCAR Code:
program AutoTanAndBank;
////////////////////////////////////////////////////////////////////////////
{ INSTRUCTIONS }
////////////////////////////////////////////////////////////////////////////
// //
// - Start in Al-Kharid bank and have hides in the first bank spot. //
// - Make sure you have enough coins on you for the amount of hides. //
// - Start in the far right bank booth, the one closest to the Furnace. //
// - Hides in 1st spot in bank, and coins in 1st inventory spot. //
// - Set up lines 40-49. //
// - Have fun! //
// - PS. Special thanks to all at SRL for helping with this! //
// //
// //
////////////////////////////////////////////////////////////////////////////
{.include SRL/SRL.scar}
////////////////////////////////////////////////////////////////////////////
{ VARS AND CONSTS. }
////////////////////////////////////////////////////////////////////////////
var NegativeBanz, TannedLeather : Integer;
const
HidesToCraft = 2500; // Total ammount of leather you want to tan.
EllisColor = 4615104;
HideType = 6; // 1=Soft 2=Hard 3=Snake 4=Snake(dark)
// 5=Green 6=Blue 7=Red 8=Black
// Set all these up...
BankBoothColor = 7176064;
ShopSymbolColor = 1525093;
BankSymbolColor = 3784915;
KebabSymbolColor= 1802315;
////////////////////////////////////////////////////////////////////////////
{ DECLARATION OF PLAYERS. }
////////////////////////////////////////////////////////////////////////////
Procedure DeclarePlayers;
begin
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active :=True;
end;
////////////////////////////////////////////////////////////////////////////
{ CREDITS. }
////////////////////////////////////////////////////////////////////////////
procedure Credits;
begin
GetSelf.Width := 730;
Status('Starting up Script.');
ClearDebug;
Writeln(' 000000000 0 0 00000 000000 0 0 ');Writeln(' 0 0 0 0 0 0 0 ');Writeln(' 0 0 0 0 0 0 0 ');Writeln(' 0 000000 0 0 00 ');Writeln(' 0 0 0 0 0 0 0 ');Writeln(' 0 0 0 0 0 0 0 ');Writeln(' 0 0 0 00000 000000 0 0 ');
Wait(700);
ClearDebug;
Writeln(' 00 000000000 ');Writeln(' 0 0 0 ');Writeln(' 0 0 0 ');Writeln(' 00000000 000000000 ');Writeln(' 0 0 0 ')Writeln(' 0 0 0 ');Writeln(' 0 0 000000000 ');
Wait(700);
ClearDebug;
Writeln(' 00000000 0 0000000 0000000 0000000 ');Writeln(' 0 0 0 0 0 0 0 0 0 ');Writeln(' 0 0 0 0 0 0 0 0 0 ');Writeln(' 000000000 0 0 0 0 0 0 0 ');Writeln(' 0 0 0 0 0 0 0 0 0 ')Writeln(' 0 0 0 0 0 0 0 0 0 ');Writeln(' 00000000 000000 0000000 0000000 0000000 ');
Wait(1500);
ClearDebug;
Writeln(' ||||||||||||||||||||||||||||||||||||||||||||||||||');
Writeln(' |||||||||| Al-Kharid MULTI Hide Tanner. ||||||||||');
Writeln(' |||||||||| Version 1.0 (BETA) ||||||||||');
Writeln(' ||||||||||||||||||||||||||||||||||||||||||||||||||');
Wait(1000);
end;
////////////////////////////////////////////////////////////////////////////
{ PROGRESS REPORT. }
////////////////////////////////////////////////////////////////////////////
procedure Progress;
begin
ClearDebug;
SRLRandomsReport;
Writeln(' ||||||||||||||||||||||||||||||||||||||||||||||||||');
Writeln(' |||||||||| Al-Kharid MULTI Hide Tanner. ||||||||||');
Writeln(' |||||||||| Version 1.0 (BETA) ||||||||||');
Writeln(' ||||||||||||||||||||||||||||||||||||||||||||||||||');
Writeln(' Total time Tanning = '+(ScriptTime2(2))+'.' );
Writeln(' Total Hides Tanned = '+IntToStr(TannedLeather)+'.');
DisguiseScar('Tanned '+IntToStr(TannedLeather)+' Cow hides, to Leather.');
end;
////////////////////////////////////////////////////////////////////////////
{ CUSTOM ANTI-BAN. }
////////////////////////////////////////////////////////////////////////////
procedure AntiBanz;
begin
Status('Doing Ani-Ban!');
NegativeBanz:= Random(40);
case NegativeBanz of
1:SendKeys('Ughhh, crafting hides is a bummer..'+chr(13))
2:DoEmote(1 + Random(10));
3:HoverSkill('Crafting', false);
4:LeaveScreenEvery(5 + Random(5));
5:HoverEvery(15 + Random(5),'random');
8:PickUpMouse;
6:SendKeys('Dang, crafting hides is so stupid if you think about it...'+chr(13))
7:SendKeys('Ive onnly got 900 left to do.. ugh'+chr(13))
8:SendKeys('I need to craft these and sell the armor to noobs haha'+chr(13))
9:SendKeys('at least ill be able to make dragonstones some day!'+chr(13))
10:SendKeys('haha my friends are so dumbb'+chr(13))
11:SendKeys('haha'+chr(13))
12:SendKeys('i wish i had 99 crafting'+chr(13))
13:SendKeys('i despise people with 99 crafting haahas'+chr(13))
14:SendKeys('lol'+chr(13))
15:SendKeys('dude where is this kid, ughthh'+chr(13))
16:SendKeys('i wish i had like 10 party hats haha'+chr(13))
17:SendKeys('cyan:scroll:~ <>< <>< <>< haha fish chasing a worm!'+chr(13))
18:SendKeys('al kharid is such a seird name for a place'+chr(13))
19:SendKeys('school stinks.. i hate it lol'+chr(13))
20:SendKeys('i wanna be combat 126 haha'+chr(13))
end;
end;
////////////////////////////////////////////////////////////////////////////
{ WALKS FROM THE TANNER, BACK TO THE BANK. }
////////////////////////////////////////////////////////////////////////////
procedure Walk2;
begin
Status('From the tanner, to the bank!');
MakeCompass('S')
begin
FindNormalRandoms;
if (not(MakeCompass('S')))then
begin
MakeCompass('S')
end;
MMouse(655,13,3,3);
Mouse(655,13,3,3,True);
Wait(8500+random(250));
end;
end;
////////////////////////////////////////////////////////////////////////////
{ WALKS FROM THE KEBAB SHOP TO THE TANNER. }
////////////////////////////////////////////////////////////////////////////
procedure ToTanShop;
begin
Status('Walking from the Kebab Shop to the Tanner!');
MakeCompass('W')
begin
FindColor(x,y,ShopSymbolColor,mmx1,mmy1,mmx2,mmy2)
Wait(502+random(120));
Mouse(x,y,1,1,true);
Wait(6800+random(250));
FindNormalRandoms;
end;
end;
////////////////////////////////////////////////////////////////////////////
{ FINDS THE BANK BOOTH, AND OPENS IT. }
////////////////////////////////////////////////////////////////////////////
procedure OpenBanky;
var
i: Integer;
begin
Status('Opening the bank booth.');
i:=0;
if not(BankScreen)then
repeat
i:= + 1;
if(FindObj(x,y,'ank boo',BankBoothColor,10))then
Mouse(x,y,0,0,false);
Wait(700+random(30));
ClickOption('uickly', 1);
Wait(2500+random(100))
until (GetColor(238, 43) = 2070783) or (i >= 5) or (BankScreen);
if(i >=5) then
end;
////////////////////////////////////////////////////////////////////////////
{ WITHDRAWS HIDES FROM 1ST BANK SPOT. }
////////////////////////////////////////////////////////////////////////////
procedure WithdrawHidez;
begin
if (BankScreen)then
Wait(500+random(100));
FixBank;
Withdraw(1, 1, 28);
CloseBank;
Wait(500+random(100))
Mouse(486,42,5,5,true);
end;
////////////////////////////////////////////////////////////////////////////
{ DEPOSITS THE TANNED LEATHER. }
////////////////////////////////////////////////////////////////////////////
procedure DepositLeatha;
begin
Mouse(665,227,5,5,false)
ClickOption('All', 2);
Wait(1000+random(150));
TannedLeather:= TannedLeather + 27
end;
////////////////////////////////////////////////////////////////////////////
{ SELECTS THE CORRECT TYPE OF LEATHER. }
////////////////////////////////////////////////////////////////////////////
procedure LeatherTypes;
begin
if (HideType = 1) then
begin
Status('Tanning all your hides to soft leather.');
MMouse(93, 100,5,5);
Mouse(93, 100,5,5,false);
Wait(500+random(300));
ClickOption('All', 1);
Wait(1000+random(250));
end else
if (HideType = 2) then
begin
Status('Tanning all your hides to hard leather.');
MMouse(208, 104,5,5);
Mouse(208, 104,5,5,false);
Wait(500+random(300));
ClickOption('All', 1);
FindNormalRandoms;
Wait(1000+random(250));
end else
if (HideType = 3) then
begin
Status('Tanning all your sanke hides to leather.');
MMouse(208, 104,5,5);
Mouse(208, 104,5,5,false);
Wait(500+random(300));
ClickOption('All', 1);
FindNormalRandoms;
Wait(1000+random(250));
end else
if (HideType = 4) then
begin
Status('Tanning all your snake hides to leather.');
MMouse(208, 104,5,5);
Mouse(208, 104,5,5,false);
Wait(500+random(300));
ClickOption('All', 1);
FindNormalRandoms;
Wait(1000+random(250));
end else
if (HideType = 5) then
begin
Status('Tanning all your green hides to leather.');
MMouse(208, 104,5,5);
Mouse(208, 104,5,5,false);
Wait(500+random(300));
ClickOption('All', 1);
FindNormalRandoms;
Wait(1000+random(250));
end else
if (HideType = 6) then
begin
Status('Tanning all your blue hides to leather.');
MMouse(208, 230,5,5);
Mouse(208, 230,5,5,false);
Wait(500+random(300));
ClickOption('All', 1);
FindNormalRandoms;
Wait(1000+random(250));
end else
if (HideType = 7) then
begin
Status('Tanning all your red hides to leather.');
MMouse(208, 104,5,5);
Mouse(208, 104,5,5,false);
Wait(500+random(300));
ClickOption('All', 1);
FindNormalRandoms;
Wait(1000+random(250));
end else
if (HideType = 8) then
begin
Status('Tanning all your black hides to leather.');
MMouse(208, 104,5,5);
Mouse(208, 104,5,5,false);
Wait(500+random(300));
ClickOption('All', 1);
FindNormalRandoms;
Wait(1000+random(250));
end;
FindNormalRandoms;
end;
////////////////////////////////////////////////////////////////////////////
{ FINDS THE BANK SYMBOL AND CLICKS IT. }
////////////////////////////////////////////////////////////////////////////
procedure FindBSymbol;
begin
Status('Searching for bank symbol.');
FindNormalRandoms;
begin
repeat
FindColor(x,y,BankSymbolColor,mmx1,mmy1,mmx2,mmy2)
Wait(502+random(120));
Mouse(x,y,1,1,true);
until(FindColor(x,y,BankSymbolColor,mmx1,mmy1,mmx2,mmy2))
Wait(2800+random(250));
FindNormalRandoms;
end;
end;
////////////////////////////////////////////////////////////////////////////
{ WALKS FROM THE BANK TO THE KEBAB SYMBOL. }
////////////////////////////////////////////////////////////////////////////
procedure Walk1;
begin
Status('Walking from the bank to the Kebab Shop');
begin
FindNormalRandoms;
begin
repeat
FindColor(x,y,KebabSymbolColor,mmx1,mmy1,mmx2,mmy2)
Wait(502+random(120));
Mouse(x,y,1,1,true);
until (FindColor(x,y,KebabSymbolColor,mmx1,mmy1,mmx2,mmy2))
Wait(9800+random(250));
if(not(FindColor(x,y,KebabSymbolColor,mmx1,mmy1,mmx2,mmy2))) then
FindBSymbol;
end;
end;
end;
////////////////////////////////////////////////////////////////////////////
{ FINDS THE TANNER, AND CLICKS TRADE. }
////////////////////////////////////////////////////////////////////////////
procedure TanHidez;
begin
Status('Finding Ellis!');
FindNormalRandoms;
repeat
MarkTime(mark);
MouseSpeed:=10;
if(FindColorTolerance(x, y, EllisColor,MSX1, MSY1, MSX2, MSY2,5))and
(IsUpText('alk-to Ellis')) then
MMouse(x,y,0,0);
Mouse(x,y,0,0,false);
ClickOption('Trade', 1);
Wait(2000+random(120));
if TimeFromMark(Mark)> 65000 then
ToTanShop;
until (GetColor(170, 39) = 2070783)
end;
////////////////////////////////////////////////////////////////////////////
{ MAIN PROGRAM LOOP. }
////////////////////////////////////////////////////////////////////////////
begin
SetUpSRL;
Credits;
DeclarePlayers;
if (not(LoggedIn)) then
LoginPlayer;
MouseSpeed:=15;
repeat
SetRun(true);
MakeCompass('W');
Walk1;
ToTanShop;
SetRun(False);
TanHidez;
MouseSpeed:=15;
LeatherTypes;
SetRun(true);
MakeCompass('S');
Walk2;
FindBSymbol;
SetRun(False);
MakeCompass('W');
OpenBanky;
DepositLeatha;
WithdrawHidez;
Progress;
if (not(LoggedIn)) then
TerminateScript;
until(HidesToCraft=(TannedLeather));
end.
{=========================================================================]
[ SRL Empty Template. ]
[ ]
[ NAME : SRL Template. ]
[ WRITER : WT-Fakawi (Fawki) ]
[ CATEGORY : ..... ]
[ DESCRIPTION : Empty general purpose template ]
[ USAGE : For any kind of collecting script. ]
[ AUTOCOLOR : Yes ]
[ NOTES : Typical Fawki style script. Love it or hate it. ]
[ CONTACT : [email]WTFakawi@hotmail.com[/email] ]
[ ]
[ ]
[=========================================================================]
[ This is a empty Template for a Collecting Script ]
[=========================================================================]
[ Instructions. ]
[=========================================================================]
[ 1. USE Runescape with Low Detail, Very Bright. ]
[ 2. Set your Screen to 32 bit TRUE color. ]
[ 3. Set Playernames and Passwords in DeclarePlayers. ]
[ 4. SET HOWMANYPLAYERS inside DeclarePlayers ]
[ 5. Start script Logged Out! ]
[=========================================================================}
program New;
{.include srl/srl.scar}
var
//******************** Set These Constants if Needed *******************//
const StartPlayer = 0; // Determines who will play first
Const Loads = 3; // Number of loads before switching Player.
//**********************RuneScape Constants*******************************//
//************************************************************************//
const VersionNumber = '2'; // Compliant with Rev 568+
//************************************************************************//
Procedure DeclarePlayers;
begin
HowManyPlayers :=6; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer:=StartPlayer; // CurrentPlayer = Array Index
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='Loc1';
Players[0].Skill:='';
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Loc :='Loc1';
Players[1].Skill:='';
Players[1].Active:=True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Loc :='Loc1';
Players[2].Skill:='';
Players[2].Active:=True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Loc :='Loc1';
Players[3].Skill:='';
Players[3].Active:=True;
Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Loc :='Loc1';
Players[4].Skill:='';
Players[4].Active:=True;
Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Loc :='Loc1';
Players[5].Skill:='';
Players[5].Active:=True;
writeln(inttostr(HowManyPlayers)+' Players');
end;
//************************************************************************//
begin
end;
begin
setupsrl;
end.