Results 1 to 3 of 3

Thread: [Error] (12660:1) : Unknown identifier 'DropTo'

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

    Default [Error] (12660:1) : Unknown identifier 'DropTo'

    How do I fix that? It's on line 81.Thats the one that says LINE 81!!! next to it...
    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;
    begin
        if FindObjCustom(x, y, ['Ore'], [RockColour1, RockColour2], 7) then
        DropTo(2,28);   LINE 81!@!@!@!
        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

    Try this procedure(s) by me, drops your Inv slots really fast
    SCAR Code:
    {*******************************************************************************
    procedure DropeItem(i: Integer);
    By: Lorax / Hy71194 made quicker
    Description: Drops item at given position (1-28)
    *******************************************************************************}


    function DropeItem(i: Integer): Boolean;
    var
      Pr: TPoint;
    begin
      GameTab(4);
      if ExistsItem(i) then
      begin
        Pr := ItemCoords(i);
        Mouse(Pr.x, Pr.y, 8, 8, False);
        Wait(50 + Random(75));
        if (ChooseOption('rop')) then
        begin
          Result := True;
          Wait(10 + Random(50));
        end;
      end;
    end;

    // By Hy71194, drops everything in slot f-t really fast =]
    procedure DropDe(f,t: integer);
    var Hmm: integer;
    begin
      Hmm := MouseSpeed;
      MouseSpeed := 25+Random(7);
      for i := f to t do
        DropeItem(i);
      WriteLn('All Dropped!');
      MouseSpeed := Hmm;
    end;
    Just call DropeDe(2,28); And it will drop inv slots 2 to 28. DropDe(17,23); will drop slots 17 to 23; you get the point


    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

    Thanks. Lemme see if theres more errors.
    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. Unknown identifier 'DropTo'
    By Aser in forum OSR Help
    Replies: 10
    Last Post: 01-17-2009, 10:09 PM
  2. Unknown Identifier Error
    By imLuck in forum OSR Help
    Replies: 0
    Last Post: 10-30-2008, 12:51 AM
  3. Unknown identifier error
    By 2pacfan in forum OSR Help
    Replies: 9
    Last Post: 04-23-2008, 11:09 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
  •