Results 1 to 3 of 3

Thread: Stuck again :-(

  1. #1
    Join Date
    Dec 2011
    Posts
    57
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Stuck again :-(

    okey, I have been working on this script:

    Simba Code:
    program VialFiller;

    {$DEFINE Smart}
    {$i SRL\SRL.scar}
    {$i sps/sps.simba}


    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      with Players[0] do
        begin
        Name        := '';
        Pass        := 'nevermind this!:)';
        Pin         := '';
        BoxRewards  := ['XP','xp','lamp'];
        LampSkill   := 'Farming';
        Active      := True;
      end;
    end;


    procedure OpenBankX;
    var x, y: integer;
    begin
     MakeCompass('N');
     if FindObj(x, y, 'anker', 4599606, 35) then
      begin
      repeat
       Mouse(x, y, 0, 0, false);
       ChooseOption('ank')
      Until (InvFull);
    end;


    procedure AntiBan;
    begin
      if(not(LoggedIn))then
      Exit;
      FindNormalRandoms;
    end;
      case Random(8) of
       0:
       begin
         HoverSkill('Mining', false);
         wait(2453+Random(432));
       end;
       1: PickUpMouse;
       2:
       begin
         MakeCompass('N');
         wait(100+random(133));
         MakeCompass('S');
         wait(50+random(133));
         MakeCompass('N');
         FindNormalRandoms;
    end;



    Procedure WithdrawVials;
    begin
      Withdraw(6644065, 1, 5000);
      CloseBank;
    end;

    Procedure UseOnFountain;
    begin
     //to be written :)
    end;


    Procedure Startup;
    Begin;
    SetupSRL;
    ActivateClient;
    OpenBankX;
    WithdrawVials;
    UseOnFountain; // to be finished
    AntiBan;
    end;

    begin
    Startup;
    end.

    Now, I am getting the error 'Identifier expected at line 38'.. now, as far as I know, every single 'begin', I have also given an 'end;' to .. so I really don't know what is happening here :/

    could anyone help me all help is appreciated!!!

    btw, how could I say repeat until banksreen is open thanks!
    Last edited by i need to bot!; 01-15-2012 at 07:42 PM.

  2. #2
    Join Date
    Nov 2006
    Posts
    2,369
    Mentioned
    4 Post(s)
    Quoted
    78 Post(s)

    Default

    Simba Code:
    procedure OpenBankX;
    var x, y: integer;
    begin
     MakeCompass('N');
     if FindObj(x, y, 'anker', 4599606, 35) then
     begin
      repeat
       Mouse(x, y, 0, 0, false);
       ChooseOption('ank')
      Until (InvFull);
     end;
    end;


    procedure AntiBan;
    begin
      if(not(LoggedIn))then Exit;
      FindNormalRandoms;
      case Random(8) of
       0:
       begin
         HoverSkill('Mining', false);
         wait(2453+Random(432));
       end;
       1: PickUpMouse;
       2:
       begin
         MakeCompass('N');
         wait(100+random(133));
         MakeCompass('S');
         wait(50+random(133));
         MakeCompass('N');
         FindNormalRandoms;
       end;
      end;
    end;
    Added some end; and removed one
    Last edited by weequ; 01-08-2012 at 01:15 PM.
    Quote Originally Posted by DeSnob View Post
    ETA's don't exist in SRL like they did in other communities. Want a faster update? Help out with updating, otherwise just gotta wait it out.

  3. #3
    Join Date
    Dec 2011
    Posts
    57
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks could you tell me where I went wrong

    Edit: for some reason the script isn't doing anything
    Last edited by i need to bot!; 01-08-2012 at 01:35 PM.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •