Results 1 to 8 of 8

Thread: Ok, I cant get my procedures to run.....

  1. #1
    Join Date
    Dec 2007
    Location
    Michigan, USA
    Posts
    280
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Ok, I cant get my procedures to run.....

    Ok, my script will just pass over my procedures and print the proggy, then repeat... someone mind telling me why?
    SCAR Code:
    {/////|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||\\\\\
    /////|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||\\\\\
    |||||                                                                     |||||
    |||||                   PowerCutter Ver 1 by Mikevskater                  |||||
    |||||                  This ver only cuts normal trees...                 |||||
    |||||            Thanks ALOT to pwnaz0r for fixing my cut procedure!      |||||
    |||||                                                                     |||||
    \\\\\|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||/////
     \\\\\|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||/////
    }

    program FirstScript;
    {.include srl/srl.scar}

    var
      x, y: Integer;
      Logs: Integer;
      Clicks: Integer;

    const
      Tree = 2638907;
    ////////////////////////////////////////////////////////////////////////////////
    procedure DeclarePlayers;
    begin
      SRLID := ' ';
      SRLPassword := ' ';
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name   := ' ';
      Players[0].Pass   := ' ';
      Players[0].Nick   := ' ';
      Players[0].Active := True;
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure Anti;
    begin
      FindNormalRandoms
      if FindFight then
        RunAway('N', True, 1, 9000+random(1000));
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure Antiban;
    begin
      case random(20) of
        0: BoredHuman;
        2: RandomMovement;
        4: PickUpMouse;
        6: HoverSkill('woodcutting', false);
        8: RandomRClick;
      end;
      wait(random(2000));
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure Cut;
    var
      Inv, z, zz: Integer;
    begin
      repeat
        if invfull then break;
        if FindObj(x, y, 'ree', Tree, 50) then
        begin
          Inv := InvCount;
          Mouse(x, y, 5, 5, True);
          z := 0;
          FFlag(0);
          Clicks := Clicks + 1
          zz := 0;
          ReportVars[1] := 1;
          Anti;
          repeat
            wait(random(100));
            z := z+1
            until(InvCount > Inv) or (z > 150) or InvFull;
          Anti;
        end else
          zz:=zz+1
      until (InvFull) or (zz>28);
    end;
    ////////////////////////////////////////////////////////////////////////////////
    Procedure Drop;// By Timer150
    var
      i: Integer;
      ItemPoint: TPoint;
    begin
      GameTab(4);
      Wait(1000 + Random(500));
      for i := 1 to 28 do
        if (ExistsItem(i)) then
        begin
          ItemPoint := ItemCoords(i);
          MMouse(ItemPoint.x, ItemPoint.y, 5, 5);
          Wait(500 + Random(60));
          if IsUpText('og') then
          begin
            Mouse(ItemPoint.x, ItemPoint.y, 5, 5, False);
            Wait(500 + Random(50));
            ChooseOption('rop');
            logs := logs + 1;
            ReportVars[0] := 1;
          end;
        end;
        ArrangeInv;
    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure Proggy;
    begin
      {ClearDebug;
      Writeln('/-----------------------------------\');
      Writeln('|    PowerCutter by MikeVSkater     |');
      Writeln('\-----------------------------------/');
      Writeln('/-----------------------------------\');
      writeln('           Clicks: ' + inttostr(clicks));
      Writeln('            Logs: ' + inttostr(logs));
      Writeln('     Time: ' + TimeRunning);
      Writeln('\-----------------------------------/');}

    end;
    ////////////////////////////////////////////////////////////////////////////////
    procedure Signature;
    begin
      ClearDebug;
      Writeln('PowerCutter made by Mikevskater');
      wait(500);
      Writeln('This is my first script so please help me '+
       'on anything you know that I dont?');
      Wait(1000+random(500))
    end;
    ////////////////////////////////////////////////////////////////////////////////
    begin
      SetupSRL;
      ScriptID := '599';
      DeclarePlayers;
      Signature;
      Disguise('Winamp');
      If SRLID = '' then
      begin
        Writeln('Register at SRL now and stop Leech`n');
        TerminateScript;
      end;
      wait(100 + Random(500));
      If (Not FindRS) then
      begin
        Terminatescript;
      end else
      begin
        ActivateClient;
        Writeln('Found RuneScape');
        Wait(500 + random(50));
        If (Loggedin) then
        begin
          LogOut;
        end;
        LoginPlayer;
      end;
      SetAngle(True);
      MakeCompass('N');
      repeat
        Cut;
            Writeln('First');
            wait(100);
        AntiBan;
            Writeln('Secound');
            wait(100);
        Anti;
            Writeln('Third');
            wait(100);
        Drop;
            Writeln('Four');
            wait(100);
        Anti;
            Writeln('Five');
            wait(100);
        AntiBan;
            Writeln('Six');
            wait(100);
        Proggy;
            Writeln('Seven');
            wait(100);
        SRLRandomsReport;
      until(False)
    end.
    Numbers are in main loop for debug.... Someone mind helpin me out?
    Kindof Inactive...

  2. #2
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    I ran it and I got through a whole loop (cutting and dropping) with the only complaint being that it seems to have a high tolerance (had to go over a lot of grass before finding a tree),so I'm not sure why it's happening to you. Try running it on another character as it could be something going on with the person you're testing it with. Otherwise, it's a pretty good powercutter and I look forward to checking out the finished version

  3. #3
    Join Date
    Mar 2007
    Location
    Netherlands->Amersfoort.
    Posts
    1,615
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  4. #4
    Join Date
    Dec 2007
    Location
    Michigan, USA
    Posts
    280
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by rikjess View Post
    Did you dragg the crosshair?
    Yeah, it would activate it, so it was cross'ed
    I ran it and I got through a whole loop (cutting and dropping) with the only complaint being that it seems to have a high tolerance (had to go over a lot of grass before finding a tree),so I'm not sure why it's happening to you. Try running it on another character as it could be something going on with the person you're testing it with. Otherwise, it's a pretty good powercutter and I look forward to checking out the finished version
    Did you run more then one loop? Thanks for the support
    Kindof Inactive...

  5. #5
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    SCAR Code:
    procedure Proggy;
    begin
      {ClearDebug;
      Writeln('/-----------------------------------\');
      Writeln('|    PowerCutter by MikeVSkater     |');
      Writeln('\-----------------------------------/');
      Writeln('/-----------------------------------\');
      writeln('           Clicks: ' + inttostr(clicks));
      Writeln('            Logs: ' + inttostr(logs));
      Writeln('     Time: ' + TimeRunning);
      Writeln('\-----------------------------------/');}

    why do you have the { }???

    well =S does it freeze the Rs screen?

  6. #6
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    what u should do is use less tolerance on finding the tree.. 50 is a bit toomuch. Use about 5-15

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  7. #7
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    I only ran it the once and stopped when it 1st started cutting the next load, though I'll go and run it through 2+ and see what the result is.
    Edit2:
    /-----------------------------------\
    | PowerCutter by MikeVSkater |
    \-----------------------------------/
    /-----------------------------------\
    Clicks: 97
    Logs: 112
    Time: 25 Minutes and 10 Seconds
    \-----------------------------------/
    (lowered the tolerance and changed it to oak tress so it didn't click as much and made the progress report visible)
    Got it to run for 4 loads then got bored of doing nothing so I stopped it, but ran well until then

  8. #8
    Join Date
    Dec 2007
    Location
    Michigan, USA
    Posts
    280
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I made the proggy invisible, cause i put the debug numbers in main loop to see what it was doing, and the proggy would clear it, didn't get around to unquoting it... and it doesnt freeze per say but it runs through the procedures and doesnt do them then just prints the debug, here the is what it'll say:
    SCAR Code:
    First
    Secound
    Third
    Four
    Five
    Six
    Seven
    First
    Ect.... it just keeps going and going
    Kindof Inactive...

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Using Procedures in Procedures?
    By Geebly in forum OSR Help
    Replies: 4
    Last Post: 03-14-2008, 07:33 AM
  2. better procedures?
    By lilboy543 in forum OSR Help
    Replies: 3
    Last Post: 04-25-2007, 01:15 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
  •