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 |
| 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! |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
|Version 1.1 Includes |
| Anti - Ban |
| Anti - Randoms |
FailSafes |
Pin Compatible |
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}
Program PotionMixer;
{.include SRL/SRL.scar}
const
//---->Loads<-----\\
Loads = 0; //Approximate Amount.
//--->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 := 'Emo Wood Cut';
Players[0].Pass := 'pscsrocks';
Players[0].Nick := 'ood';
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: integer;
PotionsMixed: integer;
PotionsMixed2: integer;
EmptyVial: integer;
Attack: 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;
//Logging in...\\
procedure Login;
begin
if (not(LoggedIn)) then
LoginPlayer;
end;
//------------------------------Anti-Randoms!!------------------------------\\
procedure FindRandoms;
begin
FindTalk;
FindNormalRandoms;
FindLamp('Herblore');
SolvePinball;
end;
//------------------Attack Potion DDTM & Empty Vial DDTM-----------------------\\
function AttackPotionDDTM: Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: Array [0..9] of TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 117;
dtmMainPoint.y := 82;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 3358280;
dtmMainPoint.Tolerance := 0;
dtmSubPoints[0].x := 117;
dtmSubPoints[0].y := 82;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 3358280;
dtmSubPoints[0].Tolerance := 0;
dtmSubPoints[1].x := 96;
dtmSubPoints[1].y := 67;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 3368304;
dtmSubPoints[1].Tolerance := 0;
dtmSubPoints[2].x := 93;
dtmSubPoints[2].y := 81;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 13815102;
dtmSubPoints[2].Tolerance := 0;
dtmSubPoints[3].x := 91;
dtmSubPoints[3].y := 89;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 13880906;
dtmSubPoints[3].Tolerance := 0;
dtmSubPoints[4].x := 90;
dtmSubPoints[4].y := 83;
dtmSubPoints[4].AreaSize := 0;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := 13880902;
dtmSubPoints[4].Tolerance := 0;
dtmSubPoints[5].x := 92;
dtmSubPoints[5].y := 73;
dtmSubPoints[5].AreaSize := 0;
dtmSubPoints[5].AreaShape := 0;
dtmSubPoints[5].Color := 8026489;
dtmSubPoints[5].Tolerance := 0;
dtmSubPoints[6].x := 85;
dtmSubPoints[6].y := 88;
dtmSubPoints[6].AreaSize := 0;
dtmSubPoints[6].AreaShape := 0;
dtmSubPoints[6].Color := 65536;
dtmSubPoints[6].Tolerance := 0;
dtmSubPoints[7].x := 95;
dtmSubPoints[7].y := 92;
dtmSubPoints[7].AreaSize := 0;
dtmSubPoints[7].AreaShape := 0;
dtmSubPoints[7].Color := 65536;
dtmSubPoints[7].Tolerance := 0;
dtmSubPoints[8].x := 92;
dtmSubPoints[8].y := 78;
dtmSubPoints[8].AreaSize := 0;
dtmSubPoints[8].AreaShape := 0;
dtmSubPoints[8].Color := 13880902;
dtmSubPoints[8].Tolerance := 0;
dtmSubPoints[9].x := 88;
dtmSubPoints[9].y := 83;
dtmSubPoints[9].AreaSize := 0;
dtmSubPoints[9].AreaShape := 0;
dtmSubPoints[9].Color := 13880902;
dtmSubPoints[9].Tolerance := 0;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
function EmptyVialDDTM: Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: Array [0..9] of TDTMPointDef;
TempTDTM: TDTM;
begin
dtmMainPoint.x := 121;
dtmMainPoint.y := 82;
dtmMainPoint.AreaSize := 0;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := 3358280;
dtmMainPoint.Tolerance := 0;
dtmSubPoints[0].x := 121;
dtmSubPoints[0].y := 82;
dtmSubPoints[0].AreaSize := 0;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := 3358280;
dtmSubPoints[0].Tolerance := 0;
dtmSubPoints[1].x := 141;
dtmSubPoints[1].y := 67;
dtmSubPoints[1].AreaSize := 0;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := 3500147;
dtmSubPoints[1].Tolerance := 0;
dtmSubPoints[2].x := 142;
dtmSubPoints[2].y := 76;
dtmSubPoints[2].AreaSize := 0;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := 3814966;
dtmSubPoints[2].Tolerance := 0;
dtmSubPoints[3].x := 144;
dtmSubPoints[3].y := 83;
dtmSubPoints[3].AreaSize := 0;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := 4407102;
dtmSubPoints[3].Tolerance := 0;
dtmSubPoints[4].x := 148;
dtmSubPoints[4].y := 88;
dtmSubPoints[4].AreaSize := 0;
dtmSubPoints[4].AreaShape := 0;
dtmSubPoints[4].Color := 3617587;
dtmSubPoints[4].Tolerance := 0;
dtmSubPoints[5].x := 139;
dtmSubPoints[5].y := 93;
dtmSubPoints[5].AreaSize := 0;
dtmSubPoints[5].AreaShape := 0;
dtmSubPoints[5].Color := 65536;
dtmSubPoints[5].Tolerance := 0;
dtmSubPoints[6].x := 139;
dtmSubPoints[6].y := 90;
dtmSubPoints[6].AreaSize := 0;
dtmSubPoints[6].AreaShape := 0;
dtmSubPoints[6].Color := 7368301;
dtmSubPoints[6].Tolerance := 0;
dtmSubPoints[7].x := 140;
dtmSubPoints[7].y := 72;
dtmSubPoints[7].AreaSize := 0;
dtmSubPoints[7].AreaShape := 0;
dtmSubPoints[7].Color := 5854291;
dtmSubPoints[7].Tolerance := 0;
dtmSubPoints[8].x := 138;
dtmSubPoints[8].y := 66;
dtmSubPoints[8].AreaSize := 0;
dtmSubPoints[8].AreaShape := 0;
dtmSubPoints[8].Color := 5547702;
dtmSubPoints[8].Tolerance := 0;
dtmSubPoints[9].x := 143;
dtmSubPoints[9].y := 80;
dtmSubPoints[9].AreaSize := 0;
dtmSubPoints[9].AreaShape := 0;
dtmSubPoints[9].Color := 4209723;
dtmSubPoints[9].Tolerance := 0;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
//-----------------------------Banking the Potions----------------------------\\
function Banking: Boolean;
begin
Wait (300 + random(160));
OpenBankQuiet('db');
if (PinScreen) then
InPin(YourPin);
if (FindDTM(AttackPotionDDTM, x, y, 66, 59, 163, 96 ))then
begin
Mouse(x, y, 4, 3, false)
ChooseOption('All');
end else
if (not(FindDTM(AttackPotionDDTM, x, y, 66, 59, 163, 96 ))) 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 (FindColorSpiral(x, y, 13815094, 564, 209, 728, 464 )) then
begin
if IsUpText('(3)') then
Mouse(x, y, 5, 5, false);
ChooseOption('Use');
if (FindColorSpiral(x, y, 13815094, 564, 209, 728, 464 )) then
begin
if IsUpText('ial') then
Mouse (x, y , 5, 5, true);
begin
PotionsMixed := PotionsMixed + 1;
PotionsMixed2 := PotionsMixed2 + 1;
ReportVars[1] := ReportVars[1] + 1;
SendSRLReport;
end;
end;
end;
end;
//-------------------------------->BankThisShit<------------------------------\\
procedure BankThisShit;
begin
Mouse(732, 472, 766, 504, false);
if IsUpText('(4)') then
OpenBankQuiet('db');
if (FindColorSpiral(x, y, 13815094, 564, 209, 728, 464 )) then
begin
Mouse (x, y , 5, 5, false);
ChooseOption('All')
end;
if (FindColorSpiral(x, y, 6512479, 564, 209, 728, 464)) 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;
LoadBMPs;
SetupSRL;
ScriptID:= '700';
Signature;
DeclarePlayers;
if (not (Loggedin)) then Login;
end;
begin
SetupScript;
Banking;
repeat
MixingPotions;
BankThisShit;
if (PotionsMixed=Loads) then
begin
NextPlayer(True);
PotionsMixed2 := 0;
Writeln('Players Switched successfully')
end;
until (false)
TofProggy;
SRLRandomsReport;
end.