SCAR Code:
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//
| Varrock West Bank Potion 3 to 4 Mixer |
| By Torrent of Flame |
| Scar 3.14 SRL 4.0 Rev 14 |
| Version 1.1 |
| Mixes Attack Potions in Varrock West from 3 to 4 |
| Start in Varrock West Bank |
| Start Logged Out |
| Put Potions in FIRST or SECOND Row |
| First of a Kind Script as far as I know! |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
| Setup Player at lines 45 to 77 |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
| Mega thanks to Dude Richard for helping me out! |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
| NOTE: Will ONLY do ATTACK potions (Normal, Not Super!) |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
|Version 1.1 Includes |
| Anti - Ban |
| Anti - Randoms |
| FailSafes |
| Pin Compatible |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
|Version 1.2 Includes |
| It Works! |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}
Program PotionMixer;
{.include SRL/SRL.scar}
const
//---->Loads<-----\\
Loads = 100; //Approximate Amount.
//--->SRL ID<---\\
YourSRLId = '';
YourSRLPassword ='';
//--->Pin - Make same for ALL chars. If no Pin, leave blank<---\\
YourPin = '';
{-------------------------------------------------------
Player Setup
--------------------------------------------------------}
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //How many Players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer :=0; //Starting Player
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
{ Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := False;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := True;
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active := True;
Players[4].Name := '';
Players[4].Pass := '';
Players[4].Nick := '';
Players[4].Active := True;
Players[5].Name := '';
Players[5].Pass := '';
Players[5].Nick := '';
Players[5].Active := True; }
end;
{----------------------------Do Not Edit Below This----------------------------}
var x, y, LoadsMixed, LoadsMixed2, PotionsMixed, PotionsMixed2, EmptyVial, AttackPotion: integer;
//Signature\\
procedure Signature;
begin
ClearDebug;
wait(250 + random(30));
writeln(' Torrents Potion 3 to 4 Mixer ');
wait(250 + random(30));
writeln(' _____ _ ');
wait(250 + random(30));
writeln('(_ _) ( )_ ');
wait(250 + random(30));
writeln(' | | _ _ __ _ __ __ ___ | ,_)');
wait(250 + random(30));
writeln(' | | / _`\ ( "__)( "__)/"__`\/" _ `\| | ');
wait(250 + random(30));
writeln(' | |( (_) )| | | | ( ___/| ( ) || |_ ');
wait(250 + random(30));
writeln(' (_)`\___/ (_) (_) `\____)(_) (_) \__)');
wait(500 + random(30));
end;
//Torrent Proggy\\
procedure ToFProggy;
begin
ClearDebug;
Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
Writeln('/\Please Post Progress Reports & Any problems /\ ');
Writeln('/\ From Wherever you got the script /\ ');
Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
Writeln('//\\Worked For: ' + TimeRunning + ' //\\');
Writeln('//\\Mixed: ' + IntToStr(PotionsMixed)+ ' Potions //\\');
Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
Writeln('//\\ Thanks for Using my Script :D //\\ ');
Writeln('```````````````````````````````````````````````');
end;
//------------------------------Anti-Randoms!!------------------------------\\
procedure FindRandoms;
begin
FindTalk;
FindNormalRandoms;
FindLamp('Herblore');
end;
//------------------Attack Potion DTM & Empty Vial DTM-----------------------\\
procedure LoadDTMs;
begin
AttackPotion := DTMFromString('78DA63146660609064400156672F816946289' +
'F510C4870A3AA29AB68C0542385AAC6ECEC455435207B6451D5A8' +
'CF9C83AA06E41E795435FEE72FA3AAE1C534C7E71C163568FE724' +
'757C30324C418D00023AA1A3E20C14B408D00906023A006648F02' +
'AA0ABD0DDB50D5F0030945FCE600007A400FDC');
EmptyVial := DTMFromString('78DA63E4666060106540011919D9609A11CA6' +
'704A9614255131FAA83AA861F4888A0AA7171F1C454238DAA2638' +
'2412D32E3435393979A86AD831D5949494A1AA6101126204D480C' +
'C11445553515189AA861348F0A2AAA9ACAC4255C301245819D000' +
'23AA1A901902A82ABCBD0351D580DC2289AAC6CDDD1B530D9ABFE' +
'CED5D50D580DC2285DFEF0078731064');
end;
//-----------------------------Banking the Potions----------------------------\\
function Banking: Boolean;
begin
Wait (300 + random(160));
OpenBankQuiet('db');
if (PinScreen) then
InPin(YourPin);
if (FindDTM(AttackPotion, x, y, 71, 59, 455, 249))then
begin
Mouse(x, y, 4, 3, false)
ChooseOption('All');
end else
if (not(FindDTM(AttackPotion, x, y, 71, 59, 455, 249))) then
begin
Writeln('Potions NOT found. Make sure they are in the first 3 slots!');
Exit;
end;
CloseBank;
Wait(150 + random (278));
end;
//-----------------------------Mixing the Potions-----------------------------\\
procedure MixingPotions;
begin
if (FindColorTolerance(x, y, 13815094, 564, 209, 728, 464, 10 )) then
begin
if IsUpText('Attack Potion(3)') then
Mouse(x, y, 5, 5, False);
ChooseOption('Use');
if (FindColorTolerance(x, y, 13815094, 564, 209, 728, 464, 10 )) then
begin
Mouse (x, y , 5, 5, true);
begin
PotionsMixed := PotionsMixed + 27;
PotionsMixed2 := PotionsMixed2 + 27;
ReportVars[0] := ReportVars[0] + 27;
LoadsMixed:=LoadsMixed + 1;
LoadsMixed2 := LoadsMixed2 +1;
ReportVars[1] := ReportVars[1] + 1;
SendSRLReport;
end;
end;
end;
end;
//-------------------------------->BankThisShit<------------------------------\\
procedure BankThisShit;
begin
Mouse(692, 364, 724, 397, false);
if IsUpText('(4)') then
OpenBankQuiet('db');
if (FindColorTolerance(x, y, 13815094, 564, 209, 728, 464, 10 )) then
begin
Mouse (x, y , 5, 5, false);
ChooseOption('All')
end;
if (FindColorTolerance(x, y, 6512479, 564, 209, 728, 464, 10)) then
begin
Mouse(x, y, 4, 3, false)
ChooseOption('All');
end;
CloseBank;
Banking;
end;
//----------------------------->>>Main Loop<<<--------------------------------\\
procedure SetupScript;
begin
SRLId := YourSRLId;
SRLPassword:= YourSRLPassword;
if (Loggedin) then Logout;
SetupSRL;
ScriptID:= '700';
Signature;
DeclarePlayers;
LoadDTMs;
LoginPlayer;
end;
begin
SetupScript;
repeat
Banking;
MixingPotions;
BankThisShit;
if (PotionsMixed=Loads) then
begin
NextPlayer(True);
PotionsMixed2 := 0;
Writeln('Players Switched successfully')
end;
until (false)
TofProggy;
SRLRandomsReport;
end.