Results 1 to 7 of 7

Thread: Easy question

  1. #1
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default Easy question

    Where in the loop do i put my proggy?

    SCAR Code:
    ////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////
    //            RANDOMS AND ANTIBAN                       //
    /////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////

    procedure AntiRandoms;
    begin
      FindTalk;
      SRLRandomsReport;
      FindNormalRandoms;
      if (FindFight = true) then
      begin
        RunAwayDirection(RunDirec);
        Wait(10000 + random(2000));
        RunBack;
      end;
    end;

    ////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////
    //                  PROGGY!                             //
    /////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////

    procedure Report;
    begin
      Writeln('[]----------THE NOOBIEST PROGGY!----------[]');
      Writeln('[]------------------By RK-----------------[]');
      writeln('RRRRRRRRRRRRRRRRR   KKKKKKKKK    KKKKKKK')
        wait(500)
        writeln('R::::::::::::::::R  K:::::::K    K:::::K')
        wait(500)
        writeln('R::::::RRRRRR:::::R K:::::::K    K:::::K')
        wait(500)
        writeln('RR:::::R     R:::::RK:::::::K   K::::::K')
        wait(500)
        writeln('  R::::R     R:::::RKK::::::K  K:::::KKK ')
        wait(500)
        writeln('  R::::R     R:::::R  K:::::K K:::::K')
        wait(500)
        writeln('  R::::RRRRRR:::::R   K::::::K:::::K')
        wait(500)
        writeln('  R:::::::::::::RR    K:::::::::::K')
        wait(500)
        writeln('  R::::RRRRRR:::::R   K:::::::::::K')
        wait(500)
        writeln('  R::::R     R:::::R  K::::::K:::::K')
        wait(500)
        writeln('  R::::R     R:::::R  K:::::K K:::::K')
        wait(500)
        writeln('  R::::R     R:::::RKK::::::K  K:::::KKK')
        wait(500)
        writeln('RR:::::R     R:::::RK:::::::K   K::::::K')
        wait(500)
        writeln('R::::::R     R:::::RK:::::::K    K:::::K')
        wait(500)
        writeln('R::::::R     R:::::RK:::::::K    K:::::K')
        wait(500)
        writeln('RRRRRRRR     RRRRRRRKKKKKKKKK    KKKKKKK')
        Writeln('            Worked For : ' + ScriptTime2(2)) //Displays how long it worked for
        Writeln('             Mined/Dropped ' + IntToStr(Loadz) + ' Loads');
      Writeln('[]------------------By RK-----------------[]');
      Writeln('[]----------THE NOOBIEST PROGGY!----------[]');
    end;
    ////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////
    //                  MINEING AND DROPPING                //
    /////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////

    function FindOre: Boolean;
    begin
      if FindColorSpiral(x, y, OreeColor, 0, 0, 515, 336) then
      begin
        Result := True;
        Status('Found Ore :D');
      end else
        Status('Did not find Ore :(');
      wait(5 + random(5));
    end;

    function MouseAndClick: Boolean;
    begin
      repeat
        if (FindOre) then
        begin
          MMouse(x, y, 0, 0);
          Result := True;
          Wait(20 + random(150));
          Mouse(x, y, 0, 0, true);
          OreMined := OreMined + 1
            wait(3000);
          Exit;
        end;
      until (false)
    end;

    function UntilMined(Time: integer): boolean;
    var timer: integer;
    begin
      status('waiting for pick swing')
        if FindText(x, y, 'You swing your', SmallChars, 20, 415, 152, 431) then
      begin
        marktime(Timer);
        status('waiting for ore')
          repeat
          wait(1000 + random(1000))
        until FindText(x, y, 'anage', SmallChars, 20, 415, 152, 431) or
          (timefrommark(Timer) > Time);
        writeln('Finished mining')
      end;
    end;


    procedure drop;
    begin
      if (invfull) then
      begin
        if (pickequip) = True then
        begin
          GameTab(4);
          DropTo(1, 28);
          Loads := Loads + 1
        end;
        begin
          if (pickequip) = False then
          begin
            GameTab(4);
            DropTo(2, 28);
            Loads := Loads + 1
          end;
        end;
      end;
    end;
    ////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////
    //                    MAIN LOOP                         //
    /////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////
    begin
      ClearDebug;
      SetupSRL;
      SetupSRLMining;
      DeclarePlayers;
      Activateclient;
      wait(1000);
      LoginPlayer;
      wait(1000);
      MakeCompass('N');
      HighestAngle;
      SetRun(true);
      repeat
        repeat
          gametab(4);
          FindOre;
          MouseAndClick;
          UntilMined(5000);
          Drop;
          AntiRandoms;
          until(Loads = Loadz);
          if (Loads = Loadz) then
          begin
          Loads:=0
            Logout;
          Nextplayer(true);
          end;
          gametab(4);
          FindOre;
          MouseAndClick;
          UntilMined(5000);
          Drop;
          AntiRandoms;
          until (false);
    end.
    Sleeping...

  2. #2
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Put it after IntToStr(Loadz) changes.

    Do you mean loads? If so, call it in you drop procedure.

  3. #3
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    lol where?? can u state in script? also how do i make my proggy say how many ore's it has mined atm it just says how many loads
    Sleeping...

  4. #4
    Join Date
    Jun 2006
    Location
    New Zealand
    Posts
    285
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    also how do i make my proggy say how many ore's it has mined atm it just says how many loads
    Straight after your "Begin", add the line:
    SCAR Code:
    Loadz := Loadz * 28;

    So it should look like:

    SCAR Code:
    procedure Report;
    begin
      Loadz := Loadz * 28;
      Writeln('[]----------THE NOOBIEST PROGGY!----------[]');
      Writeln('[]------------------By RK-----------------[]');
      writeln('RRRRRRRRRRRRRRRRR   KKKKKKKKK    KKKKKKK')
        wait(500)
        writeln('R::::::::::::::::R  K:::::::K    K:::::K')
        wait(500)
        writeln('R::::::RRRRRR:::::R K:::::::K    K:::::K')
        wait(500)
        writeln('RR:::::R     R:::::RK:::::::K   K::::::K')
        wait(500)
        writeln('  R::::R     R:::::RKK::::::K  K:::::KKK ')
        wait(500)
        writeln('  R::::R     R:::::R  K:::::K K:::::K')
        wait(500)
        writeln('  R::::RRRRRR:::::R   K::::::K:::::K')
        wait(500)
        writeln('  R:::::::::::::RR    K:::::::::::K')
        wait(500)
        writeln('  R::::RRRRRR:::::R   K:::::::::::K')
        wait(500)
        writeln('  R::::R     R:::::R  K::::::K:::::K')
        wait(500)
        writeln('  R::::R     R:::::R  K:::::K K:::::K')
        wait(500)
        writeln('  R::::R     R:::::RKK::::::K  K:::::KKK')
        wait(500)
        writeln('RR:::::R     R:::::RK:::::::K   K::::::K')
        wait(500)
        writeln('R::::::R     R:::::RK:::::::K    K:::::K')
        wait(500)
        writeln('R::::::R     R:::::RK:::::::K    K:::::K')
        wait(500)
        writeln('RRRRRRRR     RRRRRRRKKKKKKKKK    KKKKKKK')
        Writeln('            Worked For : ' + ScriptTime2(2)) //Displays how long it worked for
        Writeln('             Mined/Dropped ' + intistr(Loadz) + ' Ores');
      Writeln('[]------------------By RK-----------------[]');
      Writeln('[]----------THE NOOBIEST PROGGY!----------[]');
    end;
    Huehuehuehuehue

  5. #5
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    thx dude
    now can some1 tell me where to put proggy in loop or explain what boreas said?
    Sleeping...

  6. #6
    Join Date
    Jun 2006
    Location
    New Zealand
    Posts
    285
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm not exactly sure what you're saying but..

    You can put the Progress Report here:
    SCAR Code:
    if (Loads = Loadz) then
          begin
          // Put your Progress Report here
          Loads:=0
    Or anywhere before the new player starts.

    Is that what you're asking?
    Huehuehuehuehue

  7. #7
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    YES! ty. ha my masterpiece is nearly complete. thx a bunch
    Sleeping...

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. i must say that this is a very easy question..
    By Camaro' in forum OSR Help
    Replies: 2
    Last Post: 03-03-2008, 08:51 PM
  2. EaSy QUeStiON!!!
    By noahthepoo in forum OSR Help
    Replies: 3
    Last Post: 11-04-2007, 09:20 AM
  3. Easy Question!
    By Zenzie in forum OSR Help
    Replies: 7
    Last Post: 10-31-2007, 11:04 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
  •