SRL Archive - Other Scripts

In December i farmed snowballs, now they are unuseful and unnoteable.
So if any other also got many snowballs in their bank, run this script ;)

program New;
{.Include SRL/SRL.Scar}

var
  x, y, Snowball : Integer;
  
const
  Loads = 61;

procedure DeclarePlayers;
begin
  NumberOfPlayers(1);
  CurrentPlayer := 0;

  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Active:=True;
  Players[0].Pin :='0000';
  
  Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
end;

procedure DeBug;
begin
  Cleardebug;
  Writeln('|----------------------------------|');
  Writeln(' Snowball dropper.');
  Writeln(' By Zytex!');
  Writeln('|----------------------------------|');
  Writeln(' ' + Capitalize(Players[CurrentPlayer].Name) + ' Dropped: ' + IntToStr(Players[CurrentPlayer].Banked * 28) + ' Snowballs.');
  Writeln(' Ran for: ' + TimeRunning);
  Writeln('|----------------------------------|');
end;

procedure OpenBankAndDrop;
var
  cx, cy, Tol, Color : Integer;
begin
  cx := MSCX;
  cy := MSCY;
  for Tol := 0 to 20 do
    if FindColorSpiralTolerance(cx, cy, 670799, MSX1, MSY1, MSX2, MSY2, Tol) then
      if FindColorSpiralTolerance(cx, cy, 603204, cx - 5, cy - 5, cx + 5, cy + 5, Tol) then
        Color := GetColor(cx, cy);
  if Color <> 0 then
  begin
    Mouse(cx, cy, 5, 5, false);
    wait(50+random(50));
    if ChooseOption('ckl') then
    begin
      Wait(750+random(50));
      if Players[CurrentPlayer].Pin <> '0000' then
        if PinScreen then InPin(Players[CurrentPlayer].Pin);
      wait(50+random(50));
      if BankScreen then FixBank;
      if FindBitmap(Snowball, x, y) then
      begin
        Mouse(x, y, 5, 5, false);
        wait(50+random(50));
        if ChooseOption('All') then
        begin
          Wait(50+random(50));
          Mouse(486, 41, 5, 5, true);
          DropAll;
          Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
        end;
      end;
    end;
  end;
end;

procedure Load;
begin
  Snowball := BitmapFromString(11, 9, 'beNo9kG1LwmAYheffCumXR' +
       'YSQFQbph5BwKFaKDnzJzNQwaRhSgpWaY/g23JrTTTc3xSkMOvCAcL' +
       '6dw3XOfVMuinL1BiOO7/+0ubfaR6FczeTLTKYQjacu/cED9+FEmcm' +
       'TqSjJY/EPyU6XL1VYZGJMLnBNH514FwsD0uY6YiNB5HvDWr2RL74C' +
       'EqTvjj3nq/V6s7GNpalqc0lWkGl+d6ps/eHp5SYc83h9cCHLWoEzU' +
       'zVw0IIxaAlF4qcXV9vdzra3JKBMVYwhaxGgo4kzX8BxHBBM0yIzhL' +
       'H01fpFRTpXCt8yIMDSjSUEPtkAAvv++fhcuU9m8YS94OLS/lBoNFv' +
       'kITiE+gcb1d+Z');
end;

begin
  SetupSRL;
  MouseSpeed := 12;
  Load;
  DeclarePlayers;
  Wait(200);
  ActivateClient;
  Wait(200);
  LoginPlayer;
  SetAngle(True);
  MakeCompass('W');
  repeat
    OpenBankAndDrop;
    Debug;
  until(not(LoggedIn) or (Players[CurrentPlayer].Banked mod Loads = 0))
  FreeBitmap(Snowball);
end.

Proggie:

|----------------------------------|
 Snowball dropper.
 By Zytex!
|----------------------------------|
 ********* Dropped: 1718 Snowballs.
 Ran for: 48 Minutes and 33 Seconds
|----------------------------------|

It does not have anti-random included, so watch it while it's dropping.

i got 3 randoms while running this script.

Very… erhmm… Whats the name im looking for xD?

Useless xD

haha :D yeap thats the name :P

u got de-membered after all? :o

Other Scripts Any other NON RS-Related Scar Scripts…..

This is rs related…