SRL Archive - OSR Help

Hello, I got problems with my script :(, I can't compile my script.

I've used this guide: http://villavu.com/forum/showthread.php?t=84726&highlight=Script+tutorial
and pretty much made everything the guide said.

But I get an error with my antiban when compiling and can't get it to work (as it's my first script). I can't change the line, or lines in any way to solve it. I've read the guide over and over again, but still nothing. I've even pretty much copied whole thing, but still doesn't work. :(

I want to this script to work before I make my secound money making script to puplic :(.

I would appreciate help with my script so that I can compile it. :) Would help a lot and I would be very thankful. :) This would make me start creating loads of scripts :D

(The script it already fully done, but it has to be edited to be compiled, something wrong with the antiban.)

case Randoms(8)of

Should be:

case Random(8) of

You just put an extra 's'

Still doesn't work :(

Take the s of random, and move your AntiBan procedure to the top.

You're trying to call it before you defined it.

You need to move your antiban procedure above your banking procedure since you call antiban in the banking procedure.

Also, you are missing quite a few "end" in your banking procedure.

The below compiled for me.

program Mining;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}
Var
 WalkToBank:TPointArray;
const
{==========Smart Setup==========}
World = 0;  // Input the runescape world number right here for it to select.You may leave it as 0 if you would like it to select a random world.
MEMBERS = True;  // Select False if you are not a member. Select True if you are a member.
SIGNED = True;  // Select True if you are using single account. Select False if not.
{===============================}
procedure DeclarePlayers;
begin
 HowManyPlayers := 1;
 NumberOfPlayers(HowManyPlayers);
 CurrentPlayer := 0;
 Players[0].Name := 'Name123'; //Your Runescape username goes right here.
 Players[0].Pass := 'Password123'; //Your Runescape password goes right here.
 Players[0].Active := True; //Set to True if you want to use this player. Set to False to disable this player.
 Players[0].Pin := ''; //Put your Bank PIN here. Leave blank if you don't have a Bank PIN.
 end;

procedure MineTin;
var x, y: integer;
begin
   repeat
   FindNormalRandoms;
   if FindObj(x, y, 'in', 7829629, 10)then //This will have the script find an object of your choice
   Mouse(x, y, 0, 0, true);
    ChooseOption('ine');
     wait(1500+random(1000)); // This will make the script wait for a certain time
    until(InvFull);
  end;
procedure WalkToTheBank;
begin
if(InvFull)then
begin
  FindNormalRandoms;
  SetupSRL;
  SPS_Setup(RUNESCAPE_SURFACE,['12_7']);
  WalktoBank := [Point(4978, 3185),
  Point(5001, 3124),
  Point(5005, 3092),
  Point(5001, 3062),
  Point(4990, 3016),
  Point(4976, 2984),
  Point(4939, 2939),
  Point(4899, 2936),
  Point(4855, 2943),
  Point(4852, 2973)];
  SPS_WalkPath(WalkToBank);
 end;
end;

procedure AntiBan;
begin
  if(not(LoggedIn))then
  Exit;
  case Random(8)of
   0:
   begin
    HoverSkill('Mining', false);
    wait(1500+Random(250));
   end;
   1:PickUpMouse;
   2:
   begin
   MakeCompass('N');
   wait(25+random(150));
   MakeCompass('S');
   wait(75+Random(150));
   MakeCompass('N');
   end;
  end;
end;
procedure Bank;
begin
  FindNormalRandoms;
  WriteLn('Looking for bank.'); //mWrites in the Debug Box
  if FindBank('veb')then // Finds the bank
    begin
      WriteLn('We have found the bank.');
      if OpenBank('veb', False, True) then // Opens the bank
        begin
          WriteLn('We have found the bank.');
          if OpenBank('veb', False, True) then // Opens the bank
            begin
              WriteLn('Proceeding to Bank');
              DepositAll; // Deposits all items in Inventory
              CloseBank; //Closes the Bankscreen
              WriteLn('Banking completed. Proceeding to Rest.');
              RestUntil(100); // Rests character
              AntiBan;
            end;
        end;
    end;
end;

begin
 Smart_Server := WORLD;  //This here sets up the SMART Minimizing Autoing Resource Thing so you can bot.
 Smart_Members := MEMBERS;
 Smart_Signed := SIGNED;
 Smart_SuperDetail := False;
 SetupSRL; //This here sets up SRL incase you didn't know.
 DeclarePlayers; //This here is so the script knows that the player info is filled in with.
 LoginPlayer; //This here logs in your player you filled in with.
 repeat
  MineTin;
  WalkToTheBank;
  Bank;
 until AllPlayersInactive;
end.
                                           

Also, you're missing an end on the banking procedure.

Thanks for the help! Script compiled!!! Got the help within 3-5min or less! Thanks a lot!

Awesome community! :)