Results 1 to 9 of 9

Thread: proggy help

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

    Default proggy help

    hey, how do i get this to work?

    SCAR Code:
    // Made by 05hartor
    // De-Bugged by Jad and Starblaster100
    // Mines ore and then drops
    // No Anti-Randoms
    // Will run forever




    program Mine;
    {.include SRL/SRL.scar}

    const
    RockColour= 2503250; //iron

    begin
        Writeln('[]========================================[]');
        Writeln('---------------->Proggy<----------------');
        Writeln('  did ' + {........what goes in this bit for it to work} + ' Loads');
        Writeln('[]========================================[]');
    end;







    Function FindRock: Boolean;
    begin
      if(FindColorTolerance(x, y, RockColour, 0, 0, 600, 600, 2))then
      begin
        Result := True;
        Writeln('Found Rock');
      end else
        Writeln('Didnt find rock');
    end;


    Function MoveMouseToRock: Boolean;
    begin
      Repeat
        if (FindRock) then
        begin
          Result := True;
          MMouse(x, y, 2, 2);
          Wait(10+random(100));
          Exit;
        end;
      until (False)
    end;


    procedure ClickRock;
    begin
      if (MoveMouseToRock = true) then
      begin
        Mouse(x, y, 2, 2, True)
        Wait(10+random(20));
      end;
    end;

    Procedure Dropores;
    begin
      if(InvFull)then
        DropTo(2,28);
        Loads:=Loads+1;

    end;


    begin
      SetupSRL;
      repeat
        FindRock;
        MoveMouseToRock;
        ClickRock;
        Dropores;
        ProgressReport;
      until(false)
      end.
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  2. #2
    Join Date
    Jan 2007
    Posts
    834
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    // Made by 05hartor
    // De-Bugged by Jad and Starblaster100
    // Mines ore and then drops
    // No Anti-Randoms
    // Will run forever




    program Mine;
    {.include SRL/SRL.scar}

    var
    Loads : Integer;

    const
    RockColour= 2503250; //iron

    Function FindRock: Boolean;
    begin
      if(FindColorTolerance(x, y, RockColour, 0, 0, 600, 600, 2))then
      begin
        Result := True;
        Writeln('Found Rock');
      end else
        Writeln('Didnt find rock');
    end;


    Function MoveMouseToRock: Boolean;
    begin
      Repeat
        if (FindRock) then
        begin
          Result := True;
          MMouse(x, y, 2, 2);
          Wait(10+random(100));
          Exit;
        end;
      until (False)
    end;


    procedure ClickRock;
    begin
      if (MoveMouseToRock = true) then
      begin
        Mouse(x, y, 2, 2, True)
        Wait(10+random(20));
      end;
    end;

    Procedure Dropores;
    begin
      if(InvFull)then
        DropTo(2,28);
        Loads:=Loads+1;
    end;


    procedure ProgressReport;
    begin
        Writeln('[]========================================[]');
        Writeln('---------------->Proggy<----------------');
        Writeln('  did ' + inttostr(Loads) + ' Loads');
        Writeln('[]========================================[]');
    end;

    begin
      SetupSRL;
      repeat
        FindRock;
        MoveMouseToRock;
        ClickRock;
        Dropores;
        ProgressReport;
      until(false)
      end.

    All you needed was to declare Loads As a variable.
    Also you needed inttostr(Loads)

    inttostr means integer to string.

    if you need anymore help, post or pm me.

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

    Default

    okays, i have released it without anything to do with the proggy , i want sombody to download and try it out * hint hint*

    SCAR Code:
    // Made by 05hartor
    // De-Bugged by Jad and Starblaster100
    // Mines ore and then drops
    // No Anti-Randoms
    // Will run forever

    program Mine;
    {.include SRL/SRL.scar}

    const
    RockColour= 2503250; //iron

    var
    Loads : Integer;

    begin
        Writeln('[]========================================[]');
        Writeln('---------------->Proggy<----------------');
        Writeln('  did ' + inttostr(Loads) + ' Loads');
        Writeln('[]========================================[]');
    end;

    Function FindRock: Boolean;
    begin
      if(FindColorTolerance(x, y, RockColour, 0, 0, 600, 600, 2))then
      begin
        Result := True;
        Writeln('Found Rock');
      end else
        Writeln('Didnt find rock');
    end;


    Function MoveMouseToRock: Boolean;
    begin
      Repeat
        if (FindRock) then
        begin
          Result := True;
          MMouse(x, y, 2, 2);
          Wait(10+random(100));
          Exit;
        end;
      until (False)
    end;


    procedure ClickRock;
    begin
      if (MoveMouseToRock = true) then
      begin
        Mouse(x, y, 2, 2, True)
        Wait(10+random(20));
      end;
    end;

    Procedure Dropores;
    begin
      if(InvFull)then
        DropTo(2,28);
        Loads:=Loads+1;

    end;


    begin
      SetupSRL;
      repeat
        FindRock;
        MoveMouseToRock;
        ClickRock;
        Dropores;
        ProgressReport;
      until(false)
      end.



    [H]Line 21: [Error] (17682:4): period ('.') expected in script D:\Documents and Settings\Harry.049652820287\Desktop\Miner V1. 0.o.scar[/H]
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  4. #4
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    SCAR Code:
    begin
        Writeln('[]========================================[]');
        Writeln('---------------->Proggy<----------------');
        Writeln('  did ' + IntToStr(Loads) + ' Loads');
        Writeln('[]========================================[]');
    end;

    That should work.

    IntToStr will convert an Integer To a String. And vice versa with StrToStr.

    Edit: D-ang! Beaten by four minutes!!!

  5. #5
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    beaten by a few seconds
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  6. #6
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    // Made by 05hartor
    // De-Bugged by Jad and Starblaster100
    // Mines ore and then drops
    // No Anti-Randoms
    // Will run forever

    program Mine;
    {.include SRL/SRL.scar}

    const
    RockColour= 2503250; //iron

    var
    Loads : Integer;
    RocksFount : Integer;

    begin
        Writeln('[]========================================[]');
        Writeln('---------------->Proggy<----------------');
        Writeln('  did ' + IntToStr(Loads) + ' Loads');
        Writeln('  did ' + IntToStr(RocksFount) + ' Loads');
        Writeln('[]========================================[]');
    end;


    Function FindRock: Boolean;
    begin
      if(FindColorTolerance(x, y, RockColour, 0, 0, 600, 600, 2))then
      begin
        Result := True;
        Writeln('Found Rock');
        RocksFount:=RocksFount+1;
      end else
        Writeln('Didnt find rock');
    end;


    Function MoveMouseToRock: Boolean;
    begin
      Repeat
        if (FindRock) then
        begin
          Result := True;
          MMouse(x, y, 2, 2);
          Wait(10+random(100));
          Exit;

        end;
      until (False)
    end;


    procedure ClickRock;
    begin
      if (MoveMouseToRock = true) then
      begin
        Mouse(x, y, 2, 2, True)
        Wait(10+random(20));
      end;
    end;

    Procedure Dropores;
    begin
      if(InvFull)then
        DropTo(2,28);
        Loads:=Loads+1;

    end;


    begin
      SetupSRL;
      repeat
        FindRock;
        MoveMouseToRock;
        ClickRock;
        Dropores;
        ProgressReport;
      until(false)
      end.


    its keeps saying [H]Line 23: [Error] (17684:4): period ('.') expected in script D:\Documents and Settings\Harry.049652820287\Desktop\Miner V1. 0.o.scar[/H] so i put a . instead of a ;, it compiles but then doesnt work
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  7. #7
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    You forgot to put the procedure ...; tag above the progress report.

    The reason it didn't work when you changed end; to end. was becaus end. ended the entire script.

  8. #8
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    1st line didnt understand

    2nd line i know that
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  9. #9
    Join Date
    Feb 2007
    Location
    USA
    Posts
    667
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It means you need to declare your prog as a procedure like this.

    SCAR Code:
    procedure Prog; // you were missing this
    begin
        Writeln('[]========================================[]');
        Writeln('---------------->Proggy<----------------');
        Writeln('  did ' + IntToStr(Loads) + ' Loads');
        Writeln('  did ' + IntToStr(RocksFount) + ' Loads');
        Writeln('[]========================================[]');
    end;

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. 14h Proggy - 0 randoms =]
    By Floor66 in forum NOTA
    Replies: 20
    Last Post: 01-09-2009, 06:27 PM
  2. Proggy On Rs Screen?
    By D1zl3 in forum OSR Help
    Replies: 16
    Last Post: 12-05-2008, 02:56 AM
  3. proggy or proggie
    By Shuttleu in forum SRL Site Discussion
    Replies: 37
    Last Post: 06-12-2008, 05:47 AM
  4. Begin and End for proggy
    By faster789 in forum OSR Help
    Replies: 7
    Last Post: 03-24-2008, 04:43 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
  •