Results 1 to 3 of 3

Thread: Help with chopper banker...

  1. #1
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help with chopper banker...

    the problem is : Line 40: [Error] (14721:10): Duplicate identifier 'FINDNORMALRANDOMS' in script
    this script chop oak logs in draynor and banks them
    SCAR Code:
    // start between the two oaks in draynor near the bank



    program OakOwner;
    {.Include SRL/SRL.Scar}
    var
    LoadsToDo : Integer;
    const
    OakColor = 2251082;// Oak color
    HowManyLoads = 10;
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; //Number of players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;

      Players[0].Name :='';//name of the char
      Players[0].Pass :='';//pass of the char
      Players[0].Nick :='';//3-4 letters of the char
      Players[0].Active:=True;
    end;
    {Procedure : RandomHoverMMouse)}
    {Author : U L T R A.}
    {Description : Randomly moves the mouse somewhere.}
    Procedure RandomHoverMMouse;
    Begin
      Case Random(6)Of

      0:MMouse(random(250), random(250), 10, 10);
      1:MMouse(random(100), random(100), 50, 50);
      2:MMouse(random(50), random(50), 150, 150);
      3:MMouse(100, 100, 150, 150);
      4:MMouse(300, 300, 100, 100);
      5:MMouse(200, 200, 50, 50);
      end;
      end;
      {end of U L T R A's Procedure}
      procedure Starting;
      begin
      MakeCompass('S');
      GameTab (4);
      end;
      function FindNormalRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 16 do
      begin
        case I of
          1: CloseWindow;
          2: if FindTalk then
              Result := True;
          3: if FindDead then
              Result := True;
          4: if FindMod then
              Result := True;
          5: if FindMime then
              Result := True;
          6: if FindMaze then
              Result := True;
          7: if FindQuiz then
              Result := True;
          8: if FindDemon then
              Result := True;
          9: if FindScapeRune then
              Result := True;
          10: if FindTalk then // Call it twice
              Result := True;
          11: if FindLamp(LampSkill) then // Maybe we missed it?
              Result := True;
          12: if (FindNewBox) then
            begin
              Result := True;
              if (UseBoxSolver) then
                SolveBox
              else
                GambleNewBox;
            end;
          13: if FindTrade then
              Result := True;
          14:
            begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          15: SaveToChatLog;
          16: if RC then
              Result := True;
        end;
        Wait(1);
      end;
    end;
    procedure LittleAutoResponce;
    begin
    If(FindChatText('Hi'))then
      begin
      TypeSend('Ik spreek geen Engels');
      If(FindChatText('Wc lvl?')then
      begin
      TypeSend('Beter dan de jouwe');
      end;
      end;
    procedure LetzChopp;
    var
    x,y : Integer
    begin
    if (FindColor(x,y,OakColor,82,52,420,207)then
    begin
    Mouse(x,y,1,1,true);
    repeat
    until (InvCount=28);
    end;
    end;
    Procedure WalkToBank;
    var x,y : Integer;
    begin
      SymbolAccuracy := 0.5;
      if FindSymbol(x,y'bank') then
      Mouse(x,y,5,5,True);
      SymbolAccuracy := 0.8;
      flag;
    end;

    Procedure BankItems;
    begin
      OpenBankFast('db');
      wait(100);
      Deposit(2,28,2);
      wait(100);
      CloseBank;
    end;
    Procedure WalkToTheOak;
    begin
    MakeCompass('S');
    wait(500);
    if RadialWalk(1330976,596,59,597,96,1) then;
    begin
    Writeln('oak found!');
    and else
    writeln('could not find the oak ..');
    TerminateScript;
    end;
    end;
    begin
    SetUpSRL;
    DeclarePLayers;
    LoginPlayer;
    ActivateClient;
    DeclarePlayers;
    RandomHoverMMouse;
    Starting;
    FindNormalRandoms;
    LittleAutoResponce;
    repeat
    LetzChopp;
    WalkToBank;
    BankItems;
    WalkToTheOak;
    until (LoadsToDo >= HowManyLoads)
    end.


  2. #2
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    You have a function (FindNormalRandoms) that is also in SRL. So or remove the one in your script or do not include SRL or rename the one in your script.
    Hup Holland Hup!

  3. #3
    Join Date
    Dec 2007
    Location
    Indiana
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    since you have srl included, and there is a srl function called findnormalrandoms, then you sould rename yours i fixed tht prob 4 u, but the next one, idk lol. make a new post, mabey some1 else can help.

    Code:
    // start between the two oaks in draynor near the bank
    
    
    
    program OakOwner;
    {.Include SRL/SRL.Scar}
    var
    LoadsToDo : Integer;
    const
    OakColor = 2251082;// Oak color
    HowManyLoads = 10;
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; //Number of players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;
    
      Players[0].Name :='';//name of the char
      Players[0].Pass :='';//pass of the char
      Players[0].Nick :='';//3-4 letters of the char
      Players[0].Active:=True;
    end;
    {Procedure : RandomHoverMMouse)}
    {Author : U L T R A.}
    {Description : Randomly moves the mouse somewhere.}
    Procedure RandomHoverMMouse;
    Begin
      Case Random(6)Of
    
      0:MMouse(random(250), random(250), 10, 10);
      1:MMouse(random(100), random(100), 50, 50);
      2:MMouse(random(50), random(50), 150, 150);
      3:MMouse(100, 100, 150, 150);
      4:MMouse(300, 300, 100, 100);
      5:MMouse(200, 200, 50, 50);
      end;
      end;
      {end of U L T R A's Procedure}
      procedure Starting;
      begin
      MakeCompass('S');
      GameTab (4);
      end;
      function FindNormalRandoms1: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 16 do
      begin
        case I of
          1: CloseWindow;
          2: if FindTalk then
              Result := True;
          3: if FindDead then
              Result := True;
          4: if FindMod then
              Result := True;
          5: if FindMime then
              Result := True;
          6: if FindMaze then
              Result := True;
          7: if FindQuiz then
              Result := True;
          8: if FindDemon then
              Result := True;
          9: if FindScapeRune then
              Result := True;
          10: if FindTalk then // Call it twice
              Result := True;
          11: if FindLamp(LampSkill) then // Maybe we missed it?
              Result := True;
          12: if (FindNewBox) then
            begin
              Result := True;
              if (UseBoxSolver) then
                SolveBox
              else
                GambleNewBox;
            end;
          13: if FindTrade then
              Result := True;
          14:
            begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          15: SaveToChatLog;
          16: if RC then
              Result := True;
        end;
        Wait(1);
      end;
    end;
    procedure LittleAutoResponce;
    begin
    If(FindChatText('Hi'))then
      begin
      TypeSend('Ik spreek geen Engels');
      If(FindChatText('Wc lvl?')then
      begin
      TypeSend('Beter dan de jouwe');
      end;
      end;
    procedure LetzChopp;
    var
    x,y : Integer
    begin
    if (FindColor(x,y,OakColor,82,52,420,207)then
    begin
    Mouse(x,y,1,1,true);
    repeat
    until (InvCount=28);
    end;
    end;
    Procedure WalkToBank;
    var x,y : Integer;
    begin
      SymbolAccuracy := 0.5;
      if FindSymbol(x,y'bank') then
      Mouse(x,y,5,5,True);
      SymbolAccuracy := 0.8;
      flag;
    end;
    
    Procedure BankItems;
    begin
      OpenBankFast('db');
      wait(100);
      Deposit(2,28,2);
      wait(100);
      CloseBank;
    end;
    Procedure WalkToTheOak;
    begin
    MakeCompass('S');
    wait(500);
    if RadialWalk(1330976,596,59,597,96,1) then;
    begin
    Writeln('oak found!');
    and else
    writeln('could not find the oak ..');
    TerminateScript;
    end;
    end;
    begin
    SetUpSRL;
    DeclarePLayers;
    LoginPlayer;
    ActivateClient;
    DeclarePlayers;
    RandomHoverMMouse;
    Starting;
    FindNormalRandoms1;
    LittleAutoResponce;
    repeat
    LetzChopp;
    WalkToBank;
    BankItems;
    WalkToTheOak;
    until (LoadsToDo >= HowManyLoads)
    end.
    looks like your doing gud so far, keep up the good work. altho, might i suggest, and more randomness to you waits [wait(1000+random(500))]

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Yew CHopper ANd Banker In Edgey
    By joelster134 in forum RS3 Outdated / Broken Scripts
    Replies: 17
    Last Post: 04-20-2009, 03:23 PM
  2. Varrock Yew chopper and banker (i'm new)
    By omgwoot in forum First Scripts
    Replies: 114
    Last Post: 02-20-2009, 03:10 AM
  3. Willow Chopper and banker
    By Wade007 in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 02-16-2008, 05:05 PM
  4. Auto Yew chopper and banker [srl 4]
    By sinocopa 1 in forum RS3 Outdated / Broken Scripts
    Replies: 9
    Last Post: 01-24-2008, 05:31 PM
  5. Need help with this chopper and banker
    By Buckleyindahouse in forum OSR Help
    Replies: 13
    Last Post: 05-08-2007, 07:42 PM

Posting Permissions

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