NeitizVial v1.4 - First script!

Hello,

This is my first really working script i made.
I recommend using Scarscape for it, since i didn't test it using the 'normal' RS. You can download ScarScape here:

http://www.sythe.org/showthread.php?t=300215

// 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



I am only 12 years old, so please, don't expect too much from it. However it filled 2500 vials for me without any problems

Code:

//       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

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
  NumberOfPlayers(1);
  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.

 

Wow man! Looks really nice, especially for an 12 year old.. I'm gonna test it as soon as I get the change.

Btw, ur dutch/belgium aren't you?

 

Not bad, I editted your post to add some spaces between procedures, so it is easier to read.

 

hmm looks pretty nice

 

very nice but terminatescript? i dont really think that is necessary also add random break times also i see no anti ban? really really nice for first script though

 

wow ty =D just tested got me 100 vials done in 3 minute =]

 

Thanks a lot. This work, Just tested.