Results 1 to 3 of 3

Thread: Help....again...for the,what? fifth time?

  1. #1
    Join Date
    Feb 2007
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help....again...for the,what? fifth time?

    Line 79. Error is semicolon expected. Hy I really need your help with this drop procedure. :P

    SCAR Code:
    program FirstAttemptAtAnyUsefulScript;

    {.include SRL/SRL.scar}

    const
      SRLStatsID = 'Enter Yours';
      SRLStatsPass = 'You Stats Pass';

    const
    Rockcolour1= 111111; //The main color of rock
    RockColour2= 222222; //A secondary color of the rock

    var x, y, Tries: integer;


    procedure DeclarePlayers;
    begin

         HowManyPlayers := 1;
         NumberofPlayers (HowManyPlayers);
         CurrentPlayer:= 0;
         
         Players[0].Name   := 'Username';   //Username of account your using
         Players[0].Pass   := 'Password';   //The password...
         Players[0].Nick   := 'user'        //3 to 4 letters of your username. They should be next to eachother
         Players[0].Active := True;         //If its gonna mine...
         
    end;

    procedure AntiRandoms;
    begin
      If(FindFight)then
      RunAway('N', True,1,15000);
      FindNormalRandoms;
      FindLamp('Mining');
    end;


    procedure AntiBan;
    begin
      if not LoggedIn then Exit;
      case Random(30) of
        1: RandomRClick;
        2: hoverSkill('Woodcutting',False);
        3: RandomMovement;
        4: BoredHuman;
        5: AlmostLogout;
        6: DoEmote(400 +Random(90));
      end;
    end;


    procedure RockMining;
    begin
    if not LoggedIn then
      Exit;
      if (not (FindObjCustom(x, y, ['Mi', 'ne'], [RockColour1, RockColour2], 7))) then
        Wait(100+random(100));
        Tries := Tries + 1;
        if(Tries = 20)then
          begin
            Logout;
            Exit;
          end else
      if FindObjCustom(x, y, ['Min', 'ine'], [RockColour1, RockColour2], 7) then
      repeat
        case (Random(2)) of
          1: begin
                Mouse(x, y, 4, 4,false);
                ChooseOption('ine');
              end;
          2: Mouse(x, y, 4, 4, True);
        end
      until (InvFull)
    end;


    procedure DropDe(f,t: integer)
    var Hmm: integer; HERE!!!@@@!!!
    begin
         Hmm := MouseSpeed;
      MouseSpeed := 25+Random(7);
      for i := 2 to 28 do
        DropeItem(i);
      WriteLn('All Dropped!');
      MouseSpeed := Hmm;
      Loads := Loads + 1;
    end;


    procedure ProgressReport;
    begin
    ClearDebug;
        Writeln('/\/\/\/\/\/\/\/\/\/\/\/\');
        Writelm('[]------>Proggy<------[]');
        Writeln('[]-->Mined' + IntToStr(Loads) + 'Loads<--[]');
        Writeln('\/\/\/\/\/\/\/\/\/\/\/\/');
    end;


    begin
      SetupSRL;
      ScriptId := '745';
      SRLID := SRLStatsPass;
      SRLPassword := SRLStatsPass;
      repeat
        RockMining;
        DropDe(f,t: integer)
        AntiBan;
        ProgressReport;
      until (False)
    end.
    Free runescape members? Yes, for 1 cent a click go here!
    http://www.stats.srl-forums.com/sigs/1854.png
    Need a tester? I could test for you. PM me for details =)

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    procedure DropDe(f,t: integer)
    to
    procedure DropDe(f,t: integer);
    You're welcome again XD


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Feb 2007
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    *sighs* Your great at this. THANKS! +rep. I'm still learning...ANOTHER ERROR!!! Im just gonna Pm you about this...
    Free runescape members? Yes, for 1 cent a click go here!
    http://www.stats.srl-forums.com/sigs/1854.png
    Need a tester? I could test for you. PM me for details =)

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 67
    Last Post: 03-25-2009, 10:32 AM
  2. This time... a different run time error...
    By uber jesus in forum OSR Help
    Replies: 4
    Last Post: 02-09-2007, 01:01 AM
  3. Long time listener...first time caller
    By Ransom in forum Who Are You ? Who ? Who ?
    Replies: 0
    Last Post: 11-04-2006, 02:05 AM

Posting Permissions

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