Results 1 to 10 of 10

Thread: My Dead script =0

  1. #1
    Join Date
    Oct 2007
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My Dead script =0

    I posted a script yesterday that i made but doesn't work and that was all messed up

    but i made a new script from scratch ,hoped for it to work and guess what!
    Doesn't work!

    Please can you have a look and post the errors thank you, Tomdavies.

    SCAR Code:
    ///////////// Auto cutter 0.01  //////////////
    ////////////   By tomdavies   ///////////////
    // 1. set cross onto rs client              //
    // 2. long into your account                //
    // 3. press play and watch cut              //
    // 4.!! does not drop cant script that well //
    //    yet!!                                 //
    //////////////////////////////////////////////

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

    var
    i, x, y:interger;

    const
         Treecolor = 2380359;   // sets tree Color.

    procedure TreeCut;          // begins tree cut program.
    begin

    Disguise('My Documents');     // disguises Scar.
    GetApplication.MINIMIZE;      // minimizes program to run script.

    repeat;
         if(FindColor(x,y,TreeColor,0 ,0 ,582 , )) then
         begin
         wait(2000 +random(200))
         mouse(x, y, 3, 3, True);        // moves mouse.
         end;
         end else
         begin
         writline('there is no tree');
         writline('preparing to log out');
         LogOut;       //logs out.
         end;
    end;

    begin
         SetupSrl;   // sets up srl
         TreeCut;    // cuts the tree
    end.

  2. #2
    Join Date
    Aug 2007
    Posts
    429
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    here just had a few simple mistakes. =]]

    SCAR Code:
    ///////////// Auto cutter 0.01  //////////////
    ////////////   By tomdavies   ///////////////
    // 1. set cross onto rs client              //
    // 2. long into your account                //
    // 3. press play and watch cut              //
    // 4.!! does not drop cant script that well //
    //    yet!!                                 //
    //////////////////////////////////////////////

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

    var
      x, y: integer;

    const
         Treecolor = 2380359;   // sets tree Color.

    procedure TreeCut;          // begins tree cut program.
    begin

    Disguise('My Documents');     // disguises Scar.
    GetApplication.MINIMIZE;      // minimizes program to run script.

    repeat
         if(FindColor(x,y,TreeColor, MSX1 ,MSY1 ,MSX2 , MSY2)) then
         begin
         wait(2000 +random(200))
         mouse(x, y, 3, 3, True);        // moves mouse.
         Exit;
         end else
         begin
         writeln('there is no tree');
         writeln('preparing to log out');
         LogOut;       //logs out.
         end;
    until (false)
    end;

    begin
         SetupSrl;   // sets up srl
         TreeCut;    // cuts the tree
    end.

  3. #3
    Join Date
    Oct 2007
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks but where do i put in the repeat? it worked pretty good but then stops after one click please can you help

  4. #4
    Join Date
    Oct 2007
    Location
    medway.england
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Code:
    begin
         SetupSrl;   // sets up srl
    repeat
         TreeCut;    // cuts the tree
    untill(false)
    end.
    there, but you will need something to make it stop eventualy cuase that will repeat for ever :P

  5. #5
    Join Date
    Oct 2007
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol ty i'll just tell people to use ctrl+alt+s for the mo while i make a new
    auto random and auto drop (if u no how to drop plz tell lol i'll put you in the script =0 ty)

  6. #6
    Join Date
    Aug 2007
    Posts
    429
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    You could do something like a 'NumberOfLoads' constant:

    SCAR Code:
    ///////////// Auto cutter 0.01  //////////////
    ////////////   By tomdavies   ///////////////
    // 1. set cross onto rs client              //
    // 2. long into your account                //
    // 3. press play and watch cut              //
    // 4.!! does not drop cant script that well //
    //    yet!!                                 //
    //////////////////////////////////////////////
     
    program TreeCutter;
    {.include SRL/SRL.scar}
     
    var
      x, y, Loads: integer;
     
    const
         Treecolor = 2380359;   // sets tree Color.
         NumberOfLoads = 25;  //how many loads to do before stopping
     
    procedure TreeCut;          // begins tree cut program.
    begin
     
    Disguise('My Documents');     // disguises Scar.
    GetApplication.MINIMIZE;      // minimizes program to run script.
     
    repeat
         if(FindColor(x,y,TreeColor, MSX1 ,MSY1 ,MSX2 , MSY2)) then
         begin
         wait(2000 +random(200))
         mouse(x, y, 3, 3, True);        // moves mouse.
         Exit;
         end else
         begin
         writeln('there is no tree');
         writeln('preparing to log out');
         LogOut;       //logs out.
         end;
    until (false)
    end;
     
    begin
         SetupSrl;   // sets up srl
      repeat
         TreeCut;    // cuts the tree
         Inc(Loads); //increases 'loads' by 1
      until (Loads >= NumberOfLoads)
    end.

  7. #7
    Join Date
    Feb 2007
    Location
    SparklesProd.com
    Posts
    2,406
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by tomdavies View Post
    lol ty i'll just tell people to use ctrl+alt+s for the mo while i make a new
    auto random and auto drop (if u no how to drop plz tell lol i'll put you in the script =0 ty)
    Take your pick?

    SCAR Code:
    // * procedure DropItem(i: Integer);                                                           // * by Lorax
    // * procedure DropAll;                                                                        // * by Lorax
    // * procedure DropExcept(I: Array of Integer);                                                // * by Spky
    // * procedure DropToPosition(StartPosition, EndPosition: Integer);                            // * by Mutant Squirrle
    // * procedure DropHold(keep: String);

  8. #8
    Join Date
    Oct 2007
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    tyvm so im going to probaly use
    procedure DropItem(i: Integer);
    do i need to use a bitmap string can you post it back ty.

  9. #9
    Join Date
    Feb 2007
    Location
    SparklesProd.com
    Posts
    2,406
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    A bitmap string? No. Just put DropItem(2) for example. =P

  10. #10
    Join Date
    Oct 2007
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks But im useing drap all for the mo but i put in a new Color area a b and c
    and it has a error please can one of you please have a look.

    [SCAR]{================================================= ========}
    { }
    { TomDavies }
    { OakOblivion 0.1 }
    { }
    { 1. Drag the cross onto your rs client. }
    { 2. Position your player in a well crowded tree area. }
    { 3.press play and watch the levels go up. }
    { }
    { }
    { }
    { }
    {================================================= ========}

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

    var
    i,x,y:Integer;

    const
    TreeColorOakA = 049646;//the Oak color A
    TreeColorOakB = 635685;//the Oak color B
    TreeColorOakC = 142357;//the Oak color C
    procedure TreeCut; //Cuts the Trees
    begin

    Disguise('My Documents'); // disguises Scar.
    GetApplication.MINIMIZE; // minimizes program to run script.

    i:= 0;
    repeat
    i:=i + 1;
    if(FindColor(x,y,TreeColorOakA, MSX1 ,MSY1 ,MSX2 , MSY2)) or // picks Color 1
    if(FindColor(x,y,TreeColorOakB, MSX1 ,MSY1 ,MSX2 , MSY2)) or // picks color 2
    if(FindColor(x,y,TreeColorOakC, MSX1 ,MSY1 ,MSX2 , MSY2)) then // picks color 3
    begin
    Wait(1000 +random(500))
    Mouse(x, y, 3, 3, True);
    Wait(5000 +random(500));
    end;
    until(InvFull);
    writline'inventoryfull'
    end;

    procedure DropLogs; //Drops logs when inventory is full
    begin
    DropAll;
    end;

    begin
    SetupSRl;
    repeat
    CutTree;
    Drop;
    until(false)
    end.[SCAR]

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. SRL Dead?
    By danman1212 in forum RuneScape News and General
    Replies: 5
    Last Post: 05-19-2008, 12:58 PM
  2. uhu, my script is dead
    By Dumpin in forum OSR Help
    Replies: 2
    Last Post: 10-14-2007, 05:49 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
  •