Results 1 to 3 of 3

Thread: I am working on a mining bot Duplicate identifier error can't find anything in tutor

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

    Default I am working on a mining bot Duplicate identifier error can't find anything in tutor

    this is my error [Error] C:\Simba\Scripts\newminer.simba(112:10): Duplicate identifier 'MINE' at line 111
    Compiling failed

    This is the script I have so far


    Simba Code:
    program new;
      {$DEFINE SMART8}
      {$I SRL/SRL.Simba}
      {$I SRL/SRL/Misc/Debug.Simba}
      {$I SRL/SRL/Misc/SmartGraphics.Simba}





    Const

    //Credits to YoHoJo for an understandable tutorial video, and Solidone4 for the antiban
    SRLStats_Username = '';// Your SRL Stats Username
     SRLStats_Password = ''; // Your SRL Stats Password
     LoadsTotal        = 9999;    //
     PaintEvery        = 5;       //Update leve paint every this many seconds
     Version           = '1.00'; //

     procedure DeclarePlayers;
    var i:integer;
    begin
      NumberOfPlayers(1);
      CurrentPlayer := 0;
      for i := 0 to 1-1 do
        Players[i].BoxRewards  := ['Mining'];

      with Players[0] do
      begin
        Name        := '';     //Player username.
        Pass        := '';     //Player password.
        Active      := True;
        Integers[1] := 4;       //1=BrightCopper,2=DarkCopper,3=Tin,4=Iron.
        Integers[2] := 4;      //Seconds to try mining rock before clicking another.
      End;
    End;
    Procedure StatsGuise(wat:String);
    Begin
      Status(wat);
      Disguise(wat);
    End;



    Function CheckAndClick(UpText:String; X,Y:Integer; RClick:String):Boolean;
    Begin
      MMouse(x, y, 5, 5);
      If WaitUptext(UpText, 5) Then
      Begin
        Result:=True;
        GetMousePos(x, y);
    End;
    End;

    Procedure DebugXP;
    Var
      Sec,XPRate:integer;
    Begin
     Sec := (GetTimeRunning / 1000);
     XPRate :=((3600)/(Sec));
      StatsGuise(GroupDigits(XPRate, ',') + ' xp/h');
    End;



    Procedure Antiban;
    Begin
      Case Random(20000) Of

        0:
        Begin
          HoverSkill('Mining', False);
          GameTab(Tab_Inv);
        End;
        1:
        Begin
          PickUpMouse;
          SleepAndMoveMouse(3000 + Random(500));
          PickUpMouse;
        End;
        2: ExamineInv;
        3:
        Begin
          RandomAngle(SRL_ANGLE_HIGH);
          SetAngle(SRL_ANGLE_HIGH);
        End;
        4:
        Begin
          GameTab(Tab_Stats);
          Wait(3000 + Random(500));
          GameTab(Tab_Inv);
        End;
        5:
        Begin
          HoverSkill('random', False);
          GameTab(Tab_Inv);
        End;

      End;
    End;

     Procedure FailSafe(Reason:String);
    Begin
        Players [CurrentPlayer].Loc:=Reason;
        Logout;
        Stats_Commit;
        ProgressReport;
        TerminateScript;
        End;

    Function Mine:Boolean;
    Var
    Begin
     x,y: Integer;
     Begin
    If FindObjCustom(x, y ['Mine', 'Coal', 'rocks', 'e l s'], [2039840,7437940,2961199,2763820,789773,2237219,1776925,2039840,2040354,1250324,1052945,3027506,2039840], 15);
    StatsGuise('We Found The Rock')
    Begin
    GetMousePos (x,y);
    Case Random(1) of
    0: Mouse (x,y);
    1: WaitOption ('Mine', 200);
    end;
    end;
    end;
    end;

    Begin
    SetupSRL;
    DeclarePlayers'
     //Repeat;
     //Until(False);
    End;
    End;
    End;
    End

  2. #2
    Join Date
    Mar 2006
    Location
    Belgium
    Posts
    3,564
    Mentioned
    111 Post(s)
    Quoted
    1475 Post(s)

    Default

    Just change the name and you're fine
    it's in use already

    Creds to DannyRS for this wonderful sig!

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

    Default

    thank you I'll pst if I need any more help

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
  •