Results 1 to 13 of 13

Thread: Shadows-Collide powercutter

  1. #1
    Join Date
    Jun 2007
    Location
    Varrock East bank,
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Shadows-Collide powercutter

    My first script, its taken a while lol, but i think its worth it
    Im always making it better so check every now and then
    Thanks to everyone who helped me sort out any errors
    Comments appreciated (y)
    Enjoy!

    I forgot to mention, (SRL)and(Divi)

    SCAR Code:
    []========================================[]
    ---------------->Progress report<----------------
      Cut 350 logs
    ---------------------------------------------
      Did 0 Clicks
    []========================================[]
    Successfully executed

    SCAR Code:
    ///////////////////////////
    ////   Power-Cutter    ////
    ////                   ////
    //// A Shadows~Collide ////
    ////      Script       ////
    ///////////////////////////

    // This script will cut any tree
    // you tell it to, use the color
    // clicker to pick a large color
    // on the tree, then paste it
    // into the const section and hit
    // run.

    // Start at the log-in page,



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

    ////////////////////////////////
    //         Set-up             //
    ////////////////////////////////

    const
      TreeColor = 3168336;

    ///////////////////////////////
    //       End of Set-up       //
    ///////////////////////////////

    var
      TreesCut, Clicks, Chop: Integer;

      frmDesign: TForm;
      Title: TLabel;
      User: TLabel;
      Pass: TLabel;
      CharNick: TLabel;
      EditUser: TEdit;
      EditPass: TEdit;
      EditNick: TEdit;
      StartButton: TButton;



    procedure ClickStartButton(sender: TObject);
    begin
      ClearDebug;
      Writeln('                                       ');
      Writeln('  --- A Shadows~collide Script ---');
      Writeln('                                       ');
      Writeln('  This is my first script.');
      Writeln('  Hopefully it will chop any tree you set the color too!');
      Writeln('  Please post any feedback or suggestions.');
      Writeln('                                       ');
      Writeln('  --- A Shadows~collide Script ---');
      wait(10 + random(800));




      frmDesign.ModalResult := mrOk;
    end;

    procedure ProgressReport;
    begin
      ClearDebug;
      Writeln('[]========================================[]');
      Writeln('---------------->Progress report<----------------');
      Writeln('  Cut ' + IntToStr(TreesCut) + ' logs ' + '    ');
      Writeln('---------------------------------------------');
      Writeln('  Did ' + IntToStr(Clicks) + ' Clicks' + '        ');
      Writeln('[]========================================[]');
    end;

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

    procedure MainForm;
    begin
      frmDesign := CreateForm;
      frmDesign.Left := 250;
      frmDesign.Top := 114;
      frmDesign.Width := 417;
      frmDesign.Height := 266;
      frmDesign.Caption := 'A Shadows-Collide Script';
      frmDesign.Color := clMonkeyGreen;
      frmDesign.Font.Color := clWindowText;
      frmDesign.Font.Height := -11;
      frmDesign.Font.Name := 'MS Sans Serif';
      frmDesign.Font.Style := [];
      frmDesign.Visible := False;
      frmDesign.PixelsPerInch := 96;
      Title := TLabel.Create(frmDesign);
      Title.Parent := frmDesign;
      Title.Left := 24;
      Title.Top := 10;
      Title.Width := 348;
      Title.Height := 22;
      Title.Caption := 'Shadows-Collide Power-Cutter';
      Title.Color := clBtnFace;
      Title.Font.Color := clWindowText;
      Title.Font.Height := -19;
      Title.Font.Name := 'Rockwell Extra Bold';
      Title.Font.Style := [fsBold];
      Title.ParentColor := False;
      Title.ParentFont := False;
      User := TLabel.Create(frmDesign);
      User.Parent := frmDesign;
      User.Left := 25;
      User.Top := 45;
      User.Width := 61;
      User.Height := 19;
      User.Caption := 'Username';
      User.Font.Color := clWindowText;
      User.Font.Height := -16;
      User.Font.Name := 'Times New Roman';
      User.Font.Style := [];
      User.ParentFont := False;
      Pass := TLabel.Create(frmDesign);
      Pass.Parent := frmDesign;
      Pass.Left := 25;
      Pass.Top := 75;
      Pass.Width := 60;
      Pass.Height := 19;
      Pass.Caption := 'Password';
      Pass.Font.Color := clWindowText;
      Pass.Font.Height := -16;
      Pass.Font.Name := 'Times New Roman';
      Pass.Font.Style := [];
      Pass.ParentFont := False;
      CharNick := TLabel.Create(frmDesign);
      CharNick.Parent := frmDesign;
      CharNick.Left := 25;
      CharNick.Top := 105;
      CharNick.Width := 121;
      CharNick.Height := 19;
      CharNick.Caption := 'Character nickname';
      CharNick.Font.Color := clWindowText;
      CharNick.Font.Height := -16;
      CharNick.Font.Name := 'Times New Roman';
      CharNick.Font.Style := [];
      CharNick.ParentFont := False;
      EditUser := TEdit.Create(frmDesign);
      EditUser.Parent := frmDesign;
      EditUser.Left := 205;
      EditUser.Top := 45;
      EditUser.Width := 121;
      EditUser.Height := 21;
      EditUser.ParentShowHint := False;
      EditUser.ShowHint := True;
      EditUser.TabOrder := 8;
      EditUser.Text := 'Enter Username';
      EditPass := TEdit.Create(frmDesign);
      EditPass.Parent := frmDesign;
      EditPass.Left := 205;
      EditPass.Top := 75;
      EditPass.Width := 121;
      EditPass.Height := 21;
      EditPass.ParentShowHint := False;
      EditPass.ShowHint := True;
      EditPass.TabOrder := 9;
      EditPass.Text := 'Enter Password';
      EditNick := TEdit.Create(frmDesign);
      EditNick.Parent := frmDesign;
      EditNick.Left := 205;
      EditNick.Top := 105;
      EditNick.Width := 121;
      EditNick.Height := 21;
      EditNick.TabOrder := 10;
      EditNick.Text := '3 letters of user, in order';
      StartButton := TButton.Create(frmDesign);
      StartButton.Parent := frmDesign;
      StartButton.Left := 160;
      StartButton.Top := 160;
      StartButton.Width := 75;
      StartButton.Height := 25;
      StartButton.Caption := 'StartButton';
      StartButton.TabOrder := 11;
      StartButton.OnClick := @ClickStartButton;

    end;

    procedure LoadForm;
    var
      V: TvariantArray;
    begin
      Setarraylength(V, 0);
      ThreadSafeCall('MainForm', V);
    end;

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

    procedure ShowFormModal2;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    end;

    procedure DeclarePlayers;
    begin

      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := EditUser.Text;
      Players[0].Pass := EditPass.Text;
      Players[0].Nick := EditNick.Text;
      Players[0].Active := True

    end;

    procedure CutTheTree;
    begin
      repeat;
        wait(1000 + random(500));
        if FindColorSpiralTolerance(x, y, TreeColor, 3, 3, 514, 338, 5) then
        begin
          MMouse(x, y, 5, 8);
          Wait(50 + random(25));
          if (IsUpText('hop')) then
          begin
            Wait(200 + random(100));
            Mouse(x, y, 1, 1, true);
            Wait(500 + random(500));
            DoAntiRandoms;
          end;
        end;
        Wait(3000 + random(500));
        DoAntiRandoms;
        TreesCut := TreesCut + 1;
      until (InvFull);
    end;


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

    end;

    begin
      SetupSRL;
      LoadForm;
      ShowFormModal2;
      DeclarePlayers;
      repeat
        ActivateClient;
        LoginPlayer;
        HighestAngle;
        CutTheTree;
        DropLogs;
        ProgressReport;
      until (False)
    end.
    Shadows-Collide -
    http://i142.photobucket.com/albums/r...ollidesig1.jpg
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.
    - Shadows-collide -
    -

  2. #2
    Join Date
    Jun 2007
    Location
    Varrock East bank,
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    30 views and no comments, thats how i ride :P
    Shadows-Collide -
    http://i142.photobucket.com/albums/r...ollidesig1.jpg
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.
    - Shadows-collide -
    -

  3. #3
    Join Date
    Jun 2007
    Location
    ENGLAND
    Posts
    220
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice one dude! Works realy well, so far I've made 14M out of it cutting mages! woot

    keep it coming!

  4. #4
    Join Date
    Jun 2007
    Location
    ENGLAND
    Posts
    220
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    *DOUBLE POST*

    you should make it into a .scar file, more people might give u proggies and help/advice.

  5. #5
    Join Date
    Oct 2006
    Posts
    1,071
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by exppo View Post
    Nice one dude! Works realy well, so far I've made 14M out of it cutting mages! woot

    keep it coming!
    Umm... its a powercutter? You made 14m off of something that drops the logs and doesnt bank?? Nice. For some reason I dont believe you.

    Nice script though shadow

  6. #6
    Join Date
    Jun 2007
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    good script, i would suggest useing a bit more failsafes in your procedures as a next step . Also DTMs are good for droping logs and such. If you need help pm me.

  7. #7
    Join Date
    Jun 2007
    Location
    Varrock East bank,
    Posts
    87
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Cheers guys The dropping logs works really well, its an SRL im putting ent and ax finding in now...
    Shadows-Collide -
    http://i142.photobucket.com/albums/r...ollidesig1.jpg
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig.
    - Shadows-collide -
    -

  8. #8
    Join Date
    Jul 2007
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    []========================================[]
    ---------------->Progress report<----------------
    Cut 248 logs
    ---------------------------------------------
    Did 0 Clicks
    []========================================[]
    Successfully executed

    Thanks so much!

    I wish there was, though, an autotalker to randoms.

    This has to be the best powercutter i've tried so far so easy to set oup and use

    Oh, it also thwarted 2 mysterious boxes and avoided 2 fighting randoms

    Thanks!

  9. #9
    Join Date
    Jun 2007
    Location
    Mianus
    Posts
    863
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice work ill try it but how many randoms does it solve/do?

  10. #10
    Join Date
    Feb 2006
    Posts
    449
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Guys the randoms are done by srl. Note the include srl at the top of the script. Thats what srl is ( an include to make scripting easier and solve randoms)

    But nice work and keep it up. Get a little more help from anyone willing to give it and make a good script with failsafes and multiplayer and you can apply for members.
    [SIGPIC][/SIGPIC]

  11. #11
    Join Date
    Dec 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Failed when compiling
    Line 234: [Error] (15323:29): Unknown identifier 'x' in script C:\Program Files\SCAR 3.12\Scripts\Good One.scar

    is it compatible with 3.12, i have downloaded my includes. got an up to date SRL.. why isn't working? did u declare the x identifer?
    Thanks in advance

  12. #12
    Join Date
    Mar 2008
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    unkown identifier RunAwayDirection in script and it also says variable oldms not used in script plz need help it does this with all wc scripts for me plz need help

  13. #13
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by hellface View Post
    unkown identifier RunAwayDirection in script and it also says variable oldms not used in script plz need help it does this with all wc scripts for me plz need help
    Dont gravedig, read the rules please.

    EDIT: here is the link, if you are lazy enough:http://www.villavu.com/forum/showthr...2?goto=newpost


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Lord of the rings: Shadows of Angmar!
    By darky in forum Gaming
    Replies: 3
    Last Post: 10-03-2007, 09:20 PM
  2. Skys Shadows Edgeville Yew Cutter
    By Skys Shadow in forum RS3 Outdated / Broken Scripts
    Replies: 45
    Last Post: 02-03-2007, 04:22 PM
  3. Skys Shadows Tree Eater
    By Skys Shadow in forum RS3 Outdated / Broken Scripts
    Replies: 26
    Last Post: 01-31-2007, 03:29 PM
  4. PowerCutter
    By JuKKa in forum OSR Help
    Replies: 3
    Last Post: 11-14-2006, 09:14 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
  •