SRL Archive - OSR Help

hey guys,

been working on my first/second (working on 2 at a time so I don't get bored) script.

  {
  }


program GreenRingEnchant;
  {$DEFINE SMART}
{$i SRL\SRL.simba}
var
  t, r, q, m, ring, x, y, spell: integer;
  Clock: TIntegerArray;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := ''; //Runescape Username
  Players[0].Pass := ''; //Runescape Password
  Players[0].Nick := ''; //3-4 letters that you will recognise
  Players[0].Member := True; //Are you a member?
  Players[0].Active := True; //Not sure what this means... I saw it on other scripts
  Players[0].Pin := ''; //Bank Pin
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume','ssence'];

end;


procedure Enchantthatshit;
var
  i : Integer;
 begin
 Spell := DTMFromString('m6wAAAHic42ZgYMhmYmAoBuJSKAax85gg4hlAnAbEmVAxXUYGBiMg1gNiLSBWB2JVKAaxQfLGQGwCxDKbmBik+ViIwlwMxANGEjASAACR+wlw');
 Gametab(Tab_Magic);
 Wait(randomrange(300,400));

  Wait(randomrange(200,300));
  for i := 2 to 28 do
  begin
  FindDTM(spell, x, y, MIX1, MIY1, MIX2, MIY2);
  Mouse(x,y, 0, 0, true);
    wait(randomrange(400,600));
    InvMouse(i, 1);
   Gametab(Tab_Magic);
  Writeln('Congrats for using someone elses bot and being to lazy to code your own. Dick. ')
  end;
end;

procedure Bankthatshit;
begin
   OpenBankChestEdge(SRL_BANK_SW);
   repeat
    wait(randomrange(60,110));
    until(BankScreen); //Stops previous procedure start if bankscreen is found
Mouse(655, 224, 3, 3, false);

  ChooseOption('All');
  Withdraw(9, 0, 999);
  CloseBank;   //Closes panel for bank
  Writeln('Sittin on the toilet.')
end;



Procedure Statistics4Bot;
begin
           Clock := [0,0,0];
        ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2])
        Writeln('Time Running ' +tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2]))
        Writeln('We have made ' + IntToStr(t * 27) + ' Rings this Session')
        Writeln('We have earned ' + IntToStr(t * 27 * 140) + ' Gold Pieces this Session')
        Writeln('Magic Exp Earned ' + IntToStr(t * 27 * 55) + ' xp this Session')
end;

   //This is the boring shit. This is how the bot is scripted to make everything run
 Begin
    smart_server := 44;
    smart_members := true;
    smart_signed :=true;
    smart_superdetail := false;
    SetupSRL;
    DeclarePlayers;
    LoginPlayer;
    t:= 0
    begin
      repeat
      inc(t)
  //     Bank;
       Bankthatshit;
       Writeln('Stealing Username and Password now.')
       Wait(randomrange(100,300));
       Writeln('Haha, Joking. This is just a silly antiban procedure')
       Enchantthatshit;
       Statistics4bot;
      until(t=0);
    end;
    end.

Why won't it enter the pin in the bank?

You still need to tell it to put in the bank pin.

If PinScreen then
  InPin(Players[CurrentPlayer].Pin);

Thanks! Worked a charm ^.^