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 Potions in Varrock West from 3 to 4 |
| Start in Varrock West Bank |
| Start Logged Out |
| Put Potions in FIRST or SECOND Row |
| |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
| How Many Loads at lines |
| Setup Players at lines |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
|Version 1.1 Includes |
| Anti - Ban |
| Anti - Randoms |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}
Program PotionMixer;
{.include SRL/SRL.scar}
const
//--->SRL ID<---\\
YourSRLId = '';
YourSRLPassword ='';
//--->Pin - Make same for ALL chars. If no Pin, leave blank<---\\
YourPin = '1993';
{-------------------------------------------------------
Player Setup
--------------------------------------------------------}
procedure DeclarePlayers;
begin
HowManyPlayers := 2; //How many Players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer :=0; //Starting Player
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
end;
{----------------------------Do Not Edit Below This----------------------------}
var x, y: integer;
PotionsMixed: integer;
PotionsMixed2: integer;
EmptyVial: integer;
FullVial: integer;
procedure LoadDTMs;
begin
EmptyVial:= DTMFromString('78DA63E461606090604001A969190CFF81342' +
'310FF0702464120431A558DBDBD0B986684F2193981840CAA9A92' +
'923254352C98E6E4E4E4A1AA610512C204CCE10212FCA86A2A2A2' +
'A51D5F00109660634C088AA06648610017F81DC2246C01C764C73' +
'4A4B51DD0C00BFF40FCD');
FullVial:= DTMFromString('78DA631462606010634001EEE72E33FC07D28' +
'C40FC1F081839810C295435406130CD08E5330A0209055435CE67' +
'2FA3AA110712B2A86AF4D66F4655230C243851D56C5F1E86690E3' +
'FAA1A030505543592404202558D427D338A1A0095FB11CB');
end;
//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;
//Logging in...\\
procedure Login;
begin
if (not(LoggedIn)) then
LoginPlayer;
end;
//--------------------------------Anti-Ban!!------------------------------------\\
procedure AntiBan; //Helped By Exppo on 0-10
begin
if not LoggedIn then Exit;
case Random(30) of
0: TypeSend('Bored, notice how bored I am..');
1: MMouse(0, 0, 762, 499);
2: MMouse(0, 0, 762, 499);
3: MMouse(0, 0, 762, 499);
4: MMouse(0, 0, 762, 499);
5: MMouse(0, 0, 762, 499);
6: MMouse(0, 0, 762, 499);
7: MMouse(0, 0, 762, 499);
8: MMouse(0, 0, 762, 499);
9: MMouse(0, 0, 762, 499);
10: MMouse(0, 0, 762, 499);
11: RandomRClick;
12: HoverSkill('Woodcutting', False);
13: RandomMovement;
14: BoredHuman;
15: PickUpMouse;
16: AlmostLogout;
17: DoEmote(400 +Random(90));
18: begin
GameTab(1 +Random(12));
wait(2000 +Random(1000));
GameTab(4);
end;
end;
end;
//------------------------------Anti-Randoms!!------------------------------\\
procedure FindRandoms;
begin
FindTalk;
FindNormalRandoms;
FindLamp('Herblore');
SolvePinball;
end;
//-----------------------------Banking the Willows----------------------------\\
function Banking: Boolean;
begin
Wait (300 + random(160));
OpenBankQuiet('db');
if (PinScreen) then
InPin(YourPin);
if not(FindDTM(FullVial, x, y, 151, 210, 595, 281)) then
begin
Writeln('Potions NOT found. Make sure they are in the first 2 rows!');
Exit;
end;
if (FindDTM(FullVial, x, y, 151, 210, 595, 281)) then
begin
Mouse(x, y, 4, 3, false)
ChooseOption('All');
Result := True;
if Result = True then
begin
PotionsMixed := PotionsMixed + 1;
PotionsMixed2 := PotionsMixed2 + 1;
ReportVars[1] := ReportVars[1] + 1;
SendSRLReport;
end;
end;
CloseBank;
Wait(150 + random (278));
end;
//-----------------------------Mixing the Potions-----------------------------\\
procedure MixingPotions;
begin
if (FindDTM(FullVial, x, y, 547, 206, 734, 464)) then
begin
if IsUpText('(3)') then
Mouse(x, y, 5, 5, false);
ChooseOption('Use');
end else
begin
Writeln('No Vials Found, Terminating..');
TerminateScript;
end;
if (FindDTM(FullVial, x, y, 547, 206, 734, 464)) then
begin
if IsUpText('ial') then
Mouse (x, y , 5, 5, true);
end else
begin
writeln('Found No Vials, Terminating..');
TerminateScript;
end;
end;
//-------------------------------->BankThisShit<------------------------------\\
procedure BankThisShit;
begin
Mouse(732, 472, 766, 504, false);
if IsUpText('(4)') then
OpenBankQuiet('vwb');
if (FindDTM(FullVial, x, y, 547, 206, 734, 464)) then
begin
Mouse (x, y , 5, 5, false);
ChooseOption('All')
end;
if (FindDTM(EmptyVial, x, y, 547, 206, 734, 464)) then
begin
Mouse(x, y, 4, 3, false)
ChooseOption('All');
end;
begin
Banking;
end;
end;
//----------------------------->>>Main Loop<<<--------------------------------\\
procedure SetupScript;
begin
SRLId := YourSRLId;
SRLPassword:= YourSRLPassword;
if (Loggedin) then Logout;
LoadDTMs;
SetupSRL;
ScriptID:= '';
Signature;
DeclarePlayers;
if (not (Loggedin)) then Login;
end;
begin
SetupScript;
Banking;
repeat
MixingPotions;
BankThisShit;
AntiBan;
until (false)
TofProggy;
SRLRandomsReport;
end.