Results 1 to 3 of 3

Thread: Me again

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

    Default Me again

    Unknown identiier i. Line 83.
    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 DropRocks;
    var Hmm: integer;
    begin
         Hmm := MouseSpeed;
      MouseSpeed := 25+Random(7);
      for i := f to t do HERERERERER21@!@!@!
        DropeItem(2,28);
      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;
        DropRocks;
        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

    Don't mess around with the procedure I told you in the other thread. Just paste it in, then call DropDe(2,28);.

    No problem


    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

    Oh sorry. Thought you meant something else. THANKS!
    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)

Posting Permissions

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