Results 1 to 7 of 7

Thread: Need Script help with my script!

  1. #1
    Join Date
    Mar 2012
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need Script help with my script!

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

    I've used this guide: http://villavu.com/forum/showthread....cript+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.)

  2. #2
    Join Date
    Oct 2011
    Location
    UK
    Posts
    1,322
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Simba Code:
    case Randoms(8)of
    Should be:
    Simba Code:
    case Random(8) of
    You just put an extra 's'

  3. #3
    Join Date
    Mar 2012
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Still doesn't work

  4. #4
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    3,383
    Mentioned
    95 Post(s)
    Quoted
    717 Post(s)

    Default

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

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

  5. #5
    Join Date
    Mar 2012
    Posts
    426
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    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.

    Simba Code:
    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.
    Last edited by iBlank; 07-11-2012 at 05:34 PM.
    - My Scripts (Beginning to Update to SRL 6) -

  6. #6
    Join Date
    Mar 2012
    Location
    127.0.0.1
    Posts
    3,383
    Mentioned
    95 Post(s)
    Quoted
    717 Post(s)

    Default

    Also, you're missing an end on the banking procedure.
    Last edited by NKN; 07-11-2012 at 05:36 PM.

  7. #7
    Join Date
    Mar 2012
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

    Awesome community!

Thread Information

Users Browsing this Thread

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

Tags for this Thread

Posting Permissions

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