Results 1 to 15 of 15

Thread: In_Jeopardy's Normal Log Cutter (3rd ever script)

  1. #1
    Join Date
    Jun 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default In_Jeopardy's Normal Log Cutter *UPDATED*

    Be nice, it's my third script that works

    I would apreciate feedback and tips on how to improve it.

    SCAR Code:
    //------------------------------------------------------------------
    //                      In_Jeopardy's                      
    //                    Normal Log Cutter                    
    //                                                        
    //                     *Instructions*                      
    //   place character in an area that has lots of normal  
    //   trees, use the crosshair to select the ruenscape      
    //   client, pick the colour of the normal tree and place  
    //   in line 41, press play and enjoy, (have your axe      
    //   equipped or it wont work                              
    //                                                        
    //                                                        
    //                       *Features*                        
    //         - will cut a full load of normal logs          
    //         - will drop logs when inventory is full        
    //         - checks for randoms                            
    //                                                        
    //                       *Credits*                        
    //          By In_Jeopardy                    
    //          With help from Sumilion =]                
    //          With some guidance on log dropping from JLewis    
    //                                                        
    //                                                                      
    //------------------------------------------------------------------


    program BasicTreeCutter;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\WoodCutting.scar}
    Var TempCount, CutMark, Mymark : integer;

    procedure Setup;
    begin;
      SetupSRL;
      ActivateClient;
      MouseSpeed := 20;
    end;

    procedure colourpick1;
    begin;
      If FindColorSpiral(x, y, 2246712, 000, 000, 516, 337) Then;
    begin;
      Mouse(x, y, 3, 5, true);
      TempCount := InvCount;
      MarkTime(CutMark);
    repeat
      FindNormalRandoms;
      Wait(200)
    Until(InvCount = TempCount +1) Or (TimeFromMark(CutMark) >= 10000)
    end;
    end;

    begin;
      Setup;
    repeat
      marktime(mymark);
    repeat
      colourpick1;
    until(InvFull) Or (TimeFromMark(MyMark) >= 60000) Then;
    begin;
      DropAllLogs;
    end;
    Until(false);
    end.

    I have updated the script a fair bit since the first post, so i thought I'd give a link to the current one:
    Every time you macro, you kill a bunny...

    Kill all of the bunnies

  2. #2
    Join Date
    Jun 2006
    Location
    The Netherlands
    Posts
    2,984
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Nice, you published it , only you got me wrong on one part, you see, you have :
    until(InvFull);
    If(InvFull) Or (TimeFromMark(CutMark) >= 60000) Then;
    while i meant it to be
    until(InvFull) Or (TimeFromMark(MyMark) >= 60000);
    If(InvFull) Then;

    So in case you missed the point... the TimeFromMark was placed wrong and it wasnt CutMark but MyMark...
    Administrator's Warning:


  3. #3
    Join Date
    Jun 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Sumilion
    Nice, you published it , only you got me wrong on one part, you see, you have :
    until(InvFull);
    If(InvFull) Or (TimeFromMark(CutMark) >= 60000) Then;
    while i meant it to be
    until(InvFull) Or (TimeFromMark(MyMark) >= 60000);
    If(InvFull) Then;

    So in case you missed the point... the TimeFromMark was placed wrong and it wasnt CutMark but MyMark...

    Thanks, have made the changes, that'll teach me not to check it through...
    Every time you macro, you kill a bunny...

    Kill all of the bunnies

  4. #4
    Join Date
    Jun 2006
    Location
    The Netherlands
    Posts
    2,984
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Hihi, ooohhh, your going to learn a lot more in these weeks
    Administrator's Warning:


  5. #5
    Join Date
    Jun 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Added a login (i did that all by myself ), changed the findcolourspiral to include tolerance, and added a start button (saw a tut).

    SCAR Code:
    //---------------------------------------------------------
    //                      In_Jeopardy's                      
    //                    Normal Log Cutter                    
    //                                                        
    //                     *Instructions*                      
    //   place character in an area that has lots of normal    
    //   trees, use the crosshair to select the ruenscape      
    //   client, pick the colour of the normal tree and place  
    //   in lines 34 and 35, press play and enjoy, (have your  
    //    axe equipped or it wont work)                        
    //                                                        
    //                                                        
    //                       *Features*                        
    //         - will log in                                  
    //         - will cut a full load of normal logs          
    //         - will drop logs when inventory is full        
    //         - checks for randoms                            
    //                                                        
    //                       *Credits*                        
    //                     By In_Jeopardy                    
    //               With help from Sumilion =]                
    //      With some guidance on log dropping from JLewis    
    //                                                        
    //                                                        
    //---------------------------------------------------------


    program BasicTreeCutter;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\WoodCutting.scar}
    Var
      TempCount, CutMark, Mymark : integer;
      frmDesign : TForm;
      Button1 : TButton;
     
    const
      user ='';                //username goes in between quotes.
      pass ='';                //password goes in between quotes.

    procedure Setup;
    begin;
      SetupSRL;
      MouseSpeed := 20;
    end;

    procedure buttonclick(sender: TObject);
    begin
      Writeln('**Script Started**');
      frmDesign.Caption:= frmDesign.Caption + '.';
      frmDesign.ModalResult:= mrOk;
    end;

    procedure InitForm;
    begin
      frmDesign := CreateForm;
      frmDesign.Left := 100;
      frmDesign.Top := 100;
      frmDesign.Width := 200;
      frmDesign.Height := 180;
      frmDesign.Caption := 'frmDesign';
      frmDesign.Color := clBtnFace;
      frmDesign.Font.Color := clWindowText;
      frmDesign.Font.Height := -11;
      frmDesign.Font.Name := 'MS Sans Serif';
      frmDesign.Font.Style := [];
      frmDesign.Visible := False;
      frmDesign.PixelsPerInch := 96;
      Button1 := TButton.Create(frmDesign);
      Button1.OnClick:= @buttonclick;
      Button1.Parent := frmDesign;
      Button1.Left := 60;
      Button1.Top := 60;
      Button1.Width := 75;
      Button1.Height := 25;
      Button1.Caption := 'Begin Log In';
      Button1.TabOrder := 8;
    end;

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

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

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

    procedure colourpick0;
    begin;
      If FindColorSpiralTolerance(x, y, 2246712, 000, 000, 516, 337, 5) Then;
    begin;
      Mouse(x, y, 3, 5, true);
      TempCount := InvCount;
      MarkTime(CutMark);
    repeat
      FindNormalRandoms;
      Wait(200)
    Until(InvCount = TempCount +1) Or (TimeFromMark(CutMark) >= 10000)
    end;
    end;

    procedure colourpick1;
    begin;
      If FindColorSpiralTolerance(x, y, 16777215, 397, 278, 528, 306, 5)  Then;
    begin;
      Mouse(x, y, 3, 5, true);
    end;
    end;

    procedure NameAndPass;
    begin
      SendKeys(user + chr(13) + pass)
    end;

    procedure colourpick2;
    begin;
      If FindColorSpiralTolerance(x, y, 16777215, 237, 308, 366, 334, 5)  Then;
    begin;
      Mouse(x, y, 3, 5, true);
    end;
    end;

    procedure colourpick3;
    begin;
      If FindColorSpiralTolerance(x, y, 16777215, 278, 298, 495, 375, 5)  Then;
    begin;
      Mouse(x, y, 3, 5, true);
    end;
    end;

    begin;
      Setup;
      SafeInitForm;
      SafeShowFormModal;
      ActivateClient;
      colourpick1;
      wait(2000)
      NameAndPass;
      wait(2000)
      colourpick2;
      wait(5000)
      colourpick3;
      wait(5000)
    repeat
      marktime(mymark);
    repeat
      colourpick0;
    until(InvFull) Or (TimeFromMark(MyMark) >= 300000)
    begin;
      DropAllLogs;
    end;
      Until(false);
    end.

    What do you think?
    Every time you macro, you kill a bunny...

    Kill all of the bunnies

  6. #6
    Join Date
    Jun 2006
    Location
    The Netherlands
    Posts
    2,984
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    nice... only why all of the colour picks? Ow and DARN YOU! you have a form , i don't even know how to
    Administrator's Warning:


  7. #7
    Join Date
    Jun 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Sumilion
    nice... only why all of the colour picks? Ow and DARN YOU! you have a form , i don't even know how to
    the colour picks are for the login, the form is leeched () from a tutorial, its just a button so you can tell the script to start, o thought it was more interesting.
    Every time you macro, you kill a bunny...

    Kill all of the bunnies

  8. #8
    Join Date
    Jun 2006
    Location
    The Netherlands
    Posts
    2,984
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Oké, i see, tho i would strongly suggest to use the functions made in SRL, i'll explain later when you are online, or maybe JLewis can explain it
    Administrator's Warning:


  9. #9
    Join Date
    Jun 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Sumilion
    Oké, i see, tho i would strongly suggest to use the functions made in SRL, i'll explain later when you are online, or maybe JLewis can explain it
    Ok, thanks, but I felt like making something that was all mine, so I made the login, I don't know why I never got into SCAR before, I used to use it a bit but... I never realised how fun actually making the scripts and having the satisfaction of watching them compile/work etc is.

    Come online soon pleeeease.
    Every time you macro, you kill a bunny...

    Kill all of the bunnies

  10. #10
    Join Date
    Jun 2006
    Location
    The Netherlands
    Posts
    2,984
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Hihi, i know, i even hate Runescape, but i like scar
    Administrator's Warning:


  11. #11
    Join Date
    Jun 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok, have updated AGAIN, now it detects if the user is logged in, if not it loggs them in, also added highestangle to the main loop, after logging in the script angles the camera up all the way, making sure that the most trees possible are visable, i might have changed some other minor things, but thats about it. tell me what you think . In the next update I'm hoping to add the SRL login procedure to replace my own, antirandoms, an axe detection (equipped/not equipped etc)

    SCAR Code:
    //---------------------------------------------------------
    //                      In_Jeopardy's                      
    //                    Normal Log Cutter                    
    //                                                        
    //                     *Instructions*                      
    //   place character in an area that has lots of normal    
    //   trees, use the crosshair to select the ruenscape      
    //   client, pick the colour of the normal tree and place  
    //   in lines 34 and 35, press play and enjoy, (have your  
    //    axe equipped or it wont work)                        
    //                                                        
    //                                                        
    //                       *Features*                        
    //         - will log in                                  
    //         - will cut a full load of normal logs          
    //         - will drop logs when inventory is full        
    //         - checks for randoms                            
    //                                                        
    //                       *Credits*                        
    //                     By In_Jeopardy                      
    //               With help from Sumilion =]                
    //      With some guidance on log dropping from JLewis    
    //                                                        
    //                                                        
    //---------------------------------------------------------


    program BasicTreeCutter;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\WoodCutting.scar}
    Var
      TempCount, CutMark, Mymark : integer;
      frmDesign : TForm;
      Button1 : TButton;
     
    const
      user ='';                //username goes in between quotes.
      pass ='';                //password goes in between quotes.

    procedure Setup;
    begin;
      SetupSRL;
      MouseSpeed := 20;
    end;

    procedure buttonclick(sender: TObject);
    begin
      Writeln('**Script Started**');
      frmDesign.Caption:= frmDesign.Caption + '.';
      frmDesign.ModalResult:= mrOk;
    end;

    procedure InitForm;
    begin
      frmDesign := CreateForm;
      frmDesign.Left := 100;
      frmDesign.Top := 100;
      frmDesign.Width := 200;
      frmDesign.Height := 180;
      frmDesign.Caption := 'frmDesign';
      frmDesign.Color := clBtnFace;
      frmDesign.Font.Color := clWindowText;
      frmDesign.Font.Height := -11;
      frmDesign.Font.Name := 'MS Sans Serif';
      frmDesign.Font.Style := [];
      frmDesign.Visible := False;
      frmDesign.PixelsPerInch := 96;
      Button1 := TButton.Create(frmDesign);
      Button1.OnClick:= @buttonclick;
      Button1.Parent := frmDesign;
      Button1.Left := 60;
      Button1.Top := 60;
      Button1.Width := 75;
      Button1.Height := 25;
      Button1.Caption := 'Begin Script';
      Button1.TabOrder := 8;
    end;

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

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

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

    procedure colourpick0;
    begin;
      If FindColorSpiralTolerance(x, y, 2246712, 000, 000, 516, 337, 5) Then;
    begin;
      Mouse(x, y, 3, 5, true);
      TempCount := InvCount;
      MarkTime(CutMark);
    repeat
      FindNormalRandoms;
      Wait(200)
    Until(InvCount = TempCount +1) Or (TimeFromMark(CutMark) >= 10000)
    end;
    end;

    procedure colourpick1;
    begin;
      If FindColorSpiralTolerance(x, y, 16777215, 397, 278, 528, 306, 5)  Then;
    begin;
      Mouse(x, y, 3, 5, true);
    end;
    end;

    procedure NameAndPass;
    begin
      TypeSend(user + chr(13) + pass)
    end;

    procedure colourpick2;
    begin;
      If FindColorSpiralTolerance(x, y, 16777215, 237, 308, 366, 334, 5)  Then;
    begin;
      Mouse(x, y, 3, 5, true);
    end;
    end;

    procedure colourpick3;
    begin;
      If FindColorSpiralTolerance(x, y, 16777215, 278, 298, 495, 375, 5)  Then;
    begin;
      Mouse(x, y, 3, 5, true);
    end;
    end;

    procedure LoginBegin;
    begin;
      colourpick1
      wait(2000)
      NameAndPass
      wait(2000)
      colourpick2
      wait(10000)
      colourpick3
      wait(5000);
    end;

    begin;
      Setup
      SafeInitForm
      SafeShowFormModal
      ActivateClient
      If loggedin = false Then
      LoginBegin;
      IF loggedin = true Then
      ChatsOff
      wait(2000)
      highestangle;
    repeat
      marktime(mymark);
    repeat
      colourpick0;
    until(InvFull) Or (TimeFromMark(cutMark) >= 150000)
    begin;
      DropAllLogs;
    end;
      Until(false);
    end.
    Every time you macro, you kill a bunny...

    Kill all of the bunnies

  12. #12
    Join Date
    Jun 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok, have updated AGAIN, now it detects if the user is logged in, if not it loggs them in, also added highestangle to the main loop, after logging in the script angles the camera up all the way, making sure that the most trees possible are visable, i might have changed some other minor things, but thats about it. tell me what you think . In the next update I'm hoping to add the SRL login procedure to replace my own, antirandoms, an axe detection (equipped/not equipped etc)

    SCAR Code:
    //---------------------------------------------------------
    //                      In_Jeopardy's                      
    //                    Normal Log Cutter                    
    //                                                        
    //                     *Instructions*                      
    //   place character in an area that has lots of normal    
    //   trees, use the crosshair to select the ruenscape      
    //   client, pick the colour of the normal tree and place  
    //   in lines 34 and 35, press play and enjoy, (have your  
    //    axe equipped or it wont work)                        
    //                                                        
    //                                                        
    //                       *Features*                        
    //         - will log in                                  
    //         - will cut a full load of normal logs          
    //         - will drop logs when inventory is full        
    //                                    
    //                                                        
    //                       *Credits*                        
    //                     By In_Jeopardy                      
    //               With help from Sumilion =]                
    //      With some guidance on log dropping from JLewis    
    //                                                        
    //                                                        
    //---------------------------------------------------------


    program BasicTreeCutter;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\WoodCutting.scar}
    Var
      TempCount, CutMark, Mymark : integer;
      frmDesign : TForm;
      Button1 : TButton;
     
    const
      user ='';                //username goes in between quotes.
      pass ='';                //password goes in between quotes.

    procedure Setup;
    begin;
      SetupSRL;
      MouseSpeed := 20;
    end;

    procedure buttonclick(sender: TObject);
    begin
      Writeln('**Script Started**');
      frmDesign.Caption:= frmDesign.Caption + '.';
      frmDesign.ModalResult:= mrOk;
    end;

    procedure InitForm;
    begin
      frmDesign := CreateForm;
      frmDesign.Left := 100;
      frmDesign.Top := 100;
      frmDesign.Width := 200;
      frmDesign.Height := 180;
      frmDesign.Caption := 'frmDesign';
      frmDesign.Color := clBtnFace;
      frmDesign.Font.Color := clWindowText;
      frmDesign.Font.Height := -11;
      frmDesign.Font.Name := 'MS Sans Serif';
      frmDesign.Font.Style := [];
      frmDesign.Visible := False;
      frmDesign.PixelsPerInch := 96;
      Button1 := TButton.Create(frmDesign);
      Button1.OnClick:= @buttonclick;
      Button1.Parent := frmDesign;
      Button1.Left := 60;
      Button1.Top := 60;
      Button1.Width := 75;
      Button1.Height := 25;
      Button1.Caption := 'Begin Script';
      Button1.TabOrder := 8;
    end;

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

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

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

    procedure colourpick0;
    begin;
      If FindColorSpiralTolerance(x, y, 2246712, 000, 000, 516, 337, 5) Then;
    begin;
      Mouse(x, y, 3, 5, true);
      TempCount := InvCount;
      MarkTime(CutMark);
    repeat
      FindNormalRandoms;
      Wait(200)
    Until(InvCount = TempCount +1) Or (TimeFromMark(CutMark) >= 10000)
    end;
    end;

    procedure colourpick1;
    begin;
      If FindColorSpiralTolerance(x, y, 16777215, 397, 278, 528, 306, 5)  Then;
    begin;
      Mouse(x, y, 3, 5, true);
    end;
    end;

    procedure NameAndPass;
    begin
      TypeSend(user + chr(13) + pass)
    end;

    procedure colourpick2;
    begin;
      If FindColorSpiralTolerance(x, y, 16777215, 237, 308, 366, 334, 5)  Then;
    begin;
      Mouse(x, y, 3, 5, true);
    end;
    end;

    procedure colourpick3;
    begin;
      If FindColorSpiralTolerance(x, y, 16777215, 278, 298, 495, 375, 5)  Then;
    begin;
      Mouse(x, y, 3, 5, true);
    end;
    end;

    procedure LoginBegin;
    begin;
      colourpick1
      wait(2000)
      NameAndPass
      wait(2000)
      colourpick2
      wait(10000)
      colourpick3
      wait(5000);
    end;

    begin;
      Setup
      SafeInitForm
      SafeShowFormModal
      ActivateClient
      If loggedin = false Then
      LoginBegin;
      IF loggedin = true Then
      ChatsOff
      wait(2000)
      highestangle;
    repeat
      marktime(mymark);
    repeat
      colourpick0;
    until(InvFull) Or (TimeFromMark(cutMark) >= 150000)
    begin;
      DropAllLogs;
    end;
      Until(false);
    end.
    Every time you macro, you kill a bunny...

    Kill all of the bunnies

  13. #13
    Join Date
    Sep 2006
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hehe i want to add something to it
    if u start the scripts when ur already logged in..
    it jus screams ur name and pass arround lol
    (got me cleaned)
    Also, it clicks on tons of bushes and stuff, and clicks allot jus next to the tree like 2 millimeter
    Dont know if it helps by telling this :$ could be jus me lol

  14. #14
    Join Date
    Oct 2006
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    IT says

    "Failed when compiling
    Line 16: [Error] (16:1): Unknown identifier 'SetupSRL' in script"

    E-mail me knight_stef@hotmail.com

    What do i do?

  15. #15
    Join Date
    Jun 2006
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by johnny101 View Post
    IT says

    "Failed when compiling
    Line 16: [Error] (16:1): Unknown identifier 'SetupSRL' in script"

    E-mail me knight_stef@hotmail.com

    What do i do?
    WEll, the only thing I can think of is that you do not have SRL, which seems strangs seeing that this is the SRL forums...
    Every time you macro, you kill a bunny...

    Kill all of the bunnies

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Normal Tree Power Cutter
    By mikevskater in forum First Scripts
    Replies: 34
    Last Post: 03-03-2008, 02:29 AM
  2. normal tree cutter/banker [request]
    By kor in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 11-24-2007, 04:57 AM
  3. Meanage Studios Normal Log Cutter/Banker
    By Meanage in forum RS3 Outdated / Broken Scripts
    Replies: 140
    Last Post: 11-24-2007, 02:19 AM
  4. Normal Log Cutter+Banker!
    By AgonY in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 09-02-2007, 12:21 AM
  5. drainor normal log cutter banker
    By rjbk1989 in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 05-12-2007, 02:48 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
  •