Results 1 to 8 of 8

Thread: well i made my autocutter but it doesnt do anything help please

  1. #1
    Join Date
    Oct 2006
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default well i made my autocutter but it doesnt do anything help please

    ok, its my 2nd day scripting and i started working on this powercutter. it compiles and all but since i put the antirandoms and antibans in, it doesnt do anything. before they were in i would sorta kinda find the tree and cut it, then drop at full load, but now it just stands there doing nothing. can someone tell me waht i did wrong?

    SCAR Code:
    program WoodCutter;
    {.include SRL\SRL.Scar}
    {.include SRL\SRL\Extended\xAntiBan.scar}
    {.include SRL\SRL\Extended\xAntiRandoms.scar}
    var
      o, p: integer;


    const
      TreeColor = 2904136;

    procedure AntiBanning;
    begin
      RotateEvery(20 + Random(10));
      LeaveScreenEvery(5 + Random(5));
      HoverEvery(15 + Random(5), 'random');
      PickUpMouseEvery(5 + Random(10));
      RandomRClickEvery(15 + Random(5));
      if (KillScriptTime > 0) then
        KillScript(KillScriptTime);
    end;

    procedure AntiRandom;
    begin
      FindTalk;
      FindNormalRandoms;
      if (FindFight = true) then
      begin
        RunAwayDirection('N');
        Wait(10000 + random(2000));
        RunBack;
      end;
    end;

    procedure FindTree;
    begin
      repeat;
        wait(1000 + random(500));
        AntiBanning;
        if FindColorSpiral(p, o, TreeColor, 3, 3, 514, 338) then
          if (IsUpText('hop')) then // Check up text.
          begin
            MMouse(p, o, 3, 3); // more random, coord.
            wait(200 + random(100));
            Mouse(p, o, 1, 1, true);
          end;
        Wait(3000 + random(500)); // So it won't endlessly click.
        AntiRandom;
      until (InvFull);
    end;

    procedure DropLogs;
    begin
      wait(100 + random(50));
      AntiBanning;
      wait(2000 + random(1000));
      dropto(2, 28);
      wait(100 + random(50));
      AntiRandom;
    end;

    begin
      SetupSRL;
      repeat
        FindTree;
        DropLogs;
      until (false)
    end.

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

    Default

    Well u must had changed something in the script here i fixed it for ya:
    SCAR Code:
    program WoodCutter;
    {.include SRL\SRL.Scar}
    {.include SRL\SRL\Extended\xAntiBan.scar}
    {.include SRL\SRL\Extended\xAntiRandoms.scar}
    var
      o, p: integer;


    const
      TreeColor = 2904136;

    procedure AntiBanning;
    begin
      RotateEvery(20 + Random(10));
      LeaveScreenEvery(5 + Random(5));
      HoverEvery(15 + Random(5), 'random');
      PickUpMouseEvery(5 + Random(10));
      RandomRClickEvery(15 + Random(5));
      if (KillScriptTime > 0) then
        KillScript(KillScriptTime);
    end;

    procedure AntiRandom;
    begin
      FindTalk;
      FindNormalRandoms;
      if (FindFight = true) then
      begin
        RunAwayDirection('N');
        Wait(10000 + random(2000));
        RunBack;
      end;
    end;

    procedure FindTree;
    begin
      repeat;
        wait(1000 + random(500));
        AntiBanning;
        if FindColorSpiral(p, o, TreeColor, 3, 3, 514, 338) then
          begin
            MMouse(p, o, 3, 3); // more random, coord.
            Wait(50+random(25));
            if (IsUpText('hop')) then // Check up text.
              begin
                wait(200 + random(100));
                Mouse(p, o, 1, 1, true);
              end;
          end;
        Wait(3000 + random(500)); // So it won't endlessly click.
        AntiRandom;
      until (InvFull);
    end;

    procedure DropLogs;
    begin
      wait(100 + random(50));
      AntiBanning;
      wait(2000 + random(1000));
      dropto(2, 28);
      wait(100 + random(50));
      AntiRandom;
    end;

    begin
      SetupSRL;
      repeat
        FindTree;
        DropLogs;
      until (false)
    end.

    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!

  3. #3
    Join Date
    Oct 2006
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    may i ask exactly what did u do?

  4. #4
    Join Date
    Feb 2007
    Location
    Het ademt zwaar en moedeloos vannacht.
    Posts
    7,211
    Mentioned
    26 Post(s)
    Quoted
    72 Post(s)

    Default

    Just compare both script and see it yourself
    I made a new script, check it out!.

  5. #5
    Join Date
    Oct 2006
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i did thank u, one question about the anti randoms, so far i have this, what do i need to do at the bottom so it makes a bmp.

    SCAR Code:
    program WoodCutter;
    {.include SRL\SRL.Scar}
    {.include SRL\SRL\Extended\xAntiBan.scar}
    {.include SRL\SRL\Extended\xAntiRandoms.scar}
    var
      o, p: integer;
      Clicks: Integer;
      Loads: Integer;

    const
      TreeColor = 2904136;

    Procedure DeclarePlayers;
    begin
        HowManyPlayers := 1;
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0;

        Players[0].Name := 'ummmmm0k';
        Players[0].Pass := '*******';
        Players[0].Nick := 'mmmm'; //3 - 4 letters of YOUR username, example: sern
        Players[0].Active :=True;
    end;


    procedure AntiBanning;
    begin
      RotateEvery(20 + Random(10));
      LeaveScreenEvery(5 + Random(5));
      HoverEvery(15 + Random(5), 'random');
      PickUpMouseEvery(5 + Random(10));
      RandomRClickEvery(15 + Random(5));
      if (KillScriptTime > 0) then
        KillScript(KillScriptTime);
    end;

    procedure AntiRandom;
    begin
      FindTalk;
      FindNormalRandoms;
      if (FindFight = true) then
      begin
        RunAwayDirection('N');
        Wait(10000 + random(2000));
        RunBack;
      end;
    end;

    procedure ProgressReport;
    begin
    ClearDebug;
        Writeln('-=-Ummmmm0k Power Chopper Progress Report-=-');
        Writeln('You have completed' + IntToStr(Loads) + ' Loads' + '    ');
        Writeln('With' + IntToStr(Clicks) + ' Clicks' + '  ');
        Writeln('-=-Ummmmm0k Power Chopper Progress Report-=-');
    end;

    procedure FindTree;
    begin
      repeat;
        wait(1000 + random(500));
        AntiBanning;
        if FindColorSpiral(p, o, TreeColor, 3, 3, 514, 338) then
          begin
            MMouse(p, o, 3, 3); // more random, coord.
            Wait(50+random(25));
            if (IsUpText('hop')) then // Check up text.
              begin
                wait(200 + random(100));
                Mouse(p, o, 1, 1, true);
                Clicks:=Clicks+1;
                wait(4000 + random(500));
              end;
          end;
        Wait(3000 + random(500)); // So it won't endlessly click.
        AntiRandom;
      until (InvFull);
    end;

    procedure DropLogs;
    begin
      wait(100 + random(50));
      AntiBanning;
      wait(2000 + random(1000));
      dropto(2, 28);
      Loads:=Loads+1;
      wait(100 + random(50));
      AntiRandom;
    end;

    begin
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      repeat
      if(not(LoggedIn))then
      Exit;
        FindTree;
        DropLogs;
        ProgressReport;
      until (false)
    end.


    in one tut it said having that loginplayer is enough, but do i actually need it to log me in for it to work, or no? can i start logged in and still have it work

  6. #6
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    if Not Loggedin then LoginPlayer;

  7. #7
    Join Date
    Oct 2006
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    where would i put that in the script?

  8. #8
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    where u have loginplayer under declareplayers. replace loginplayer with that.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Why doesnt this work?
    By Tim0suprem0 in forum OSR Help
    Replies: 38
    Last Post: 07-03-2007, 09:40 PM
  2. maple autocutter
    By ohyeah91 in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 06-28-2007, 02:55 AM
  3. Replies: 0
    Last Post: 06-21-2007, 08:32 AM
  4. Looking for Yew AutoCutter.
    By VivaLaOwnage in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 05-04-2007, 03:50 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
  •