Results 1 to 4 of 4

Thread: PowerCutter

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

    Default PowerCutter

    i just made a power cutter it works very well.

    but i got a problem.. it doesent CHANGE players .. if someone with good knowledge of SRL could take a look and tell me whats wrong?

    SCAR Code:
    program AutoChopper;
    var cutted,gained,c:integer;
    var cst,srt,tih,tim,tis,awt,sst,wet,wst:integer;//for progress report
    {.Include SRL/SRL.Scar}
    const
    tree1 = 4551315; //tree colour
    tree2 = 2252880; //tree colour different
    tree3 = 1785904; //Tree colour different more :O
    loads = 1;//how many loads per player 2-3 max
    procedure progressreport;
    begin
      cst := getsystemTime;
      srt := (cst - sst) / 1000;
      tih := srt / 3600;
      tim := (srt / 60) - tih * 60;
      tis := srt - tim * 60 - tih * 3600;
      awt := wet - wst
    writeln('')
    writeln('')
    writeln('')
    writeln('')
    writeln('')
    writeln('*=======================================*')
    Writeln('*=Worked: ' + inttostr(tih) + ' Hour''s ' + inttostr(tim) +    ' Min''s ' + inttostr(tis) + ' Sec''s =====*');
    writeln('*=Cutted: ' +inttostr(cutted) + ' Tree''s =====================*')
    writeln('*=Gained: ' +inttostr(gained) + ' experience =================*')
    writeln('*=======================================*')
    end;
    Procedure Declareplayers;
    begin
    NumberOfPlayers(2)
      //--------------------Player 1--------
      Players[0].Name  := '';//Your Username
      Players[0].Pass  := '';//Your Password
      Players[0].Nick  := '';//3 or 4 letters from your Username
      Players[0].Loc  := 'Goldshire';//DONT TOUCH
      Players[0].Skill  := 'prayer';//The skill for when you get a lamp
      Players[0].Active  := true;//Will You Be Using This Player?
     
      //--------------------Player 2--------
      Players[1].Name  := '';//Your Username
      Players[1].Pass  := '';//Your Password
      Players[1].Nick  := '';//3 or 4 letters from your Username
      Players[1].Loc  := 'Goldshire';//DONT TOUCH
      Players[1].Skill  := 'prayer';//The skill for when you get a lamp
      Players[1].Active  := true;//Will You Be Using This Player?
    end;
    Procedure RunAway;
    Begin
      RunAwayDirection('N');
      Wait(10000+Random(2000));
      RunBack;
    End;
    Procedure Randoms;
    Begin
     FindNormalRandoms;
     wait(200+random(100))
     If(FindFight)then
      RunAway;
    End;
    procedure cuttree;
    begin
    repeat
    If(FindColorSpiralTolerance(x, y, tree1, MSX1, MSY1, MSX2, MSY2, 5))or
       (FindColorSpiralTolerance(x, y, tree2, MSX1, MSY1, MSX2, MSY2, 7))or
        (FindColorSpiralTolerance(x, y, tree3, MSX1, MSY1, MSX2, MSY2, 10))then
    Begin
    MMouse(x, y, 0, 0);
    Status('Cutting Trees...')
    Wait(100+Random(50));
    If IsUpText('Chop') or IsUpText('down') and IsUpText('ree') then
    Mouse(x, y, 0, 0, False);
    Wait(100+Random(50));
    ChooseOption(x, y, 'Chop down');
    Flag;
    end;
    randoms;
    HoverEvery(9 + Random(5), 'woodcutting');
    until(invfull)
    dropall;
    cutted:= cutted + 28;
    gained:= gained + 700;
    c:= c + 1;
    end;

    begin
    setupsrl;
    //Tih := 0;
    sst := GetSystemTime;  // Ottaa Tietokoneen Ajan
    Declareplayers;
    activateclient;
      repeat
      setrun(true)
      cuttree;
      progressreport;
      If (LoggedIn) and (c=loads)then
         Begin
         status('Changing Player...')
         NextPlayer(True);
         End;
      Until(False);
    End.

    *=======================================*
    *=Worked: 0 Hour's 18 Min's 38 Sec's ===============*
    *=Cutted: 112 Tree's ==========================*
    *=Gained: 2800 experience ======================*
    *=======================================*

    theres a progress report if anyone is intrested..
    it has anti randoms.. but not a random for if the axe flies away

    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!

  2. #2
    Join Date
    Nov 2006
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yah i think that you should give Soupy Bastrd a call he is good a that stuff

  3. #3
    Join Date
    Jun 2006
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    In your DeclarePlayers, make sure to put in all this:

    Code:
         HowManyPlayers := 2;
         CurrentPlayer:=0;
         NumberOfPlayers(HowManyPlayers);

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

    Default

    ok, ill post here if it changes players now

    -thanks

    ok it changes players BUT.. -->

    when it first changes.. example Noob1 is playing
    and he loggs out and changes to ownage2, and when ownage2 has cutted and dropped and when it SHOULD change to Noob1 again.. it doesent do it ...?? so im guessing that if i should use:
    nextplayer(true);
    OR
    RandomNextPlayer(true);

    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!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. my first powercutter...
    By thebob142 in forum First Scripts
    Replies: 1
    Last Post: 11-13-2007, 07:23 AM
  2. PowerCutter
    By Miitchyy in forum RS3 Outdated / Broken Scripts
    Replies: 21
    Last Post: 07-09-2007, 06:36 AM
  3. Best Powercutter?
    By Harry in forum News and General
    Replies: 10
    Last Post: 06-26-2007, 12:46 AM
  4. My PowerCutter.
    By kooldude in forum OSR Help
    Replies: 12
    Last Post: 05-22-2007, 02:47 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
  •