SCAR Code:
program NeitizVial;
// NEITIZVIAL v1.4 \\
// ONLY TESTED WITH SCARSCAPE! \\
// I recommend using ScarScape \\
// Steps: \\
// 1. Start at the Neitiznot \\
// bank.
// 2. Have the vials in your \\
// first bank slot. \\
// Enter your user,pass&nick \\
// In the SetUp procedure, \\
// Enter the number of vials \\
// You want to be filled, and \\
// your PIN (if you have one) \\
// Then run the script: ENJOY! \\
// Updates: \\
// v1.0 \\
// - Basic script. \\
// v1.1 \\
// - Added DeclarePlayers \\
// - Added more colors \\
// v1.2 \\
// - Fixed Random-problems \\
// v1.3 \\
// - Fixed a little bug \\
// - More ways to find the \\
// bank added \\
// v1.4 \\
// - Bugfix \\
// - Rewrite of the banking \\
// procedure
{.include SRL/SRL.scar}
var
x,y,loads,loadsleft: integer;
pin: string;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'nickname';
Players[0].Pass := 'ilikepie';
Players[0].Nick := 'ick';
Players[0].Active := True;
end;
procedure RandomCheck;
begin
FindNormalRandoms;
if FindFight then RunAway('w',False,1,1000);
end;
procedure SetUp;
begin
SetupSRL;
DeclarePlayers;
pin := '0000'; // YOURPIN
loadsleft := 1000; // number of vials
loads := 0; // dont touch
writeln('WELCOME TO MY VIAL FILLER :D');
writeln('Starting in some secs =]');
Wait(500+random(500));
ActivateClient;
if not LoggedIn then LogInPlayer;
writeln('Set up.')
end;
procedure BankStuff;
var
findsymb,findthebank: integer;
begin
if not LoggedIn then TerminateScript;
findsymb := 0;
findthebank := 0;
repeat
writeln('Lets find the bank.');
if FindSymbol(x,y,'bank') then
begin
Mouse(x,y,5,5,True);
Wait(700);
SetRun(True);
GameTab(4);
MakeCompass('n');
SetAngle(True);
findsymb := 1
end else
begin
SendArrowWait(3,random(300+random(700)));
end;
until(findsymb=1)
Flag;
writeln('We should be in the bank now... opening.');
RandomCheck;
Wait(1000);
repeat
if FindColorSpiral(x,y,3300201,5,5,513,337) or
FindColorSpiral(x,y,3370376,5,5,513,337) then
begin
MMouse(x,y,1,1);
end;
until(IsUpText('se'));
repeat
if IsUpText('se') then
begin
Mouse(x,y,1,1,True);
findthebank := 1;
end;
until(findthebank=1)
Wait(1000);
repeat
Wait(2000);
if PinScreen then InPin(pin);
writeln('PIN found.');
until(BankScreen);
writeln('The bank should be open!');
writeln('Fixing, depositing and withdrawing...');
FixBank;
DepositAll;
Wait(500);
Withdraw(1,1,28);
CloseBank;
writeln('Bankstuff done.')
end;
procedure WalkFill;
var
findwater,findwsource: integer;
begin
if not LoggedIn then TerminateScript;
findwater := 0;
findwsource := 0;
repeat
if FindSymbol(x,y,'water source') then
begin
writeln('Found water symbol, walking.')
Mouse(x,y,5,5,True);
Flag;
writeln('Should be at source now...');
findwsource := 1;
end;
until(findwsource=1)
MouseItem(1,True);
repeat
if FindColorSpiral(x,y,10982277,5,5,513,337) then
begin
MMouse(x,y,1,1);
writeln('Source?')
if IsUpText('se') then Mouse(x,y,1,1,True);
writeln('Yep, filling.')
Wait(3000+random(1000));
BoredHuman;
writeln('Bored.')
RandomCheck;
Wait(4000+random(1000));
RandomCheck;
findwater := 1;
loads := loads + 28;
writeln('FILLED MORE VIALS :D Now filled: ' + IntToStr(loads) + '.');
end;
until(findwater=1)
end;
begin
SetUp;
repeat
BankStuff;
WalkFill;
if loads=loadsleft then
begin
writeln('Finally =] DONE!');
writeln('Vials filled in total: ' + IntToStr(loads) + '.');
writeln('Thanks for using my script.');
writeln('Script made in 2 hours');
LogOut;
TerminateScript;
end;
until(false);
end.