Page 2 of 3 FirstFirst 123 LastLast
Results 26 to 50 of 60

Thread: All about colors

  1. #26
    Join Date
    Dec 2008
    Location
    Québec
    Posts
    419
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    its the coord of the box you want search so it dont search in the hole screen.
    Formerly known as FrancisHelie

  2. #27
    Join Date
    Dec 2009
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks for the tutorial.
    gives some good info and is easy to understand.
    like the MI MM and MS stuff.
    i didn't know you could do that so used co ords in a script.
    that will make scripting alot easier in future.
    thanks

  3. #28
    Join Date
    Oct 2008
    Location
    behind you!
    Posts
    1,688
    Mentioned
    2 Post(s)
    Quoted
    40 Post(s)

    Default

    Quote Originally Posted by mounty1 View Post
    thanks for the tutorial.
    gives some good info and is easy to understand.
    like the MI MM and MS stuff.
    i didn't know you could do that so used co ords in a script.
    that will make scripting alot easier in future.
    thanks
    Heh, No problem, i hope you enjoyed reading it.
    Hi

  4. #29
    Join Date
    Oct 2008
    Location
    behind you!
    Posts
    1,688
    Mentioned
    2 Post(s)
    Quoted
    40 Post(s)

    Default

    bump: I made a small update mainly because we use simba only now and changed some things.
    Hi

  5. #30
    Join Date
    Nov 2011
    Location
    Maryland
    Posts
    72
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Great small and neat guide. Definitely added this to my knowledge base of pascal. Seems to be a great help in determining and avoiding specific colors for my current project.

  6. #31
    Join Date
    May 2007
    Location
    Waterloo, Ontario, Canada
    Posts
    1,008
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by emuleuser12345 View Post
    hey im a newbie in srl and I cannot understand what xs ys xe ye stands for..
    can someone explain it to me? Any help would be grateful
    Those are variables of the functions listed. They are the, I guess you can call them 'narrow downers' of the x and y axis. Essentially used for searching for a color within a given area.



  7. #32
    Join Date
    Dec 2011
    Posts
    212
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I got this error:
    Simba Code:
    program New;
    {$i srl/srl/misc/smart.scar}
    {.include srl/srl.scar}
     {$i SRL\SRL\Misc\Stats.simba}

    var  x, y, rx, ry: Integer;
    Procedure DeclarePlayers;
    begin;
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name :=' ';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;
    end;
    Procedure ChopTree;
    Var x,y: Integer;
    Begin;
    If FindObj(x,y,'hop',1785912, 35)Then
    Mouse(x,y,0,0, False);
    ChooseOption('Hop')
    Repeat
    Wait(1200+random(250));
    Until not IsUpText('Tree')or InvFull
      End;
    Procedure AntiBan;
    Begin;
    If(Not LoggedIn)then
    Exit;
    Case Random(8)of
    0:
    Begin;
    HoverSkill('Woodcutting',false)
    Wait(2453+random(432));
    End;
    1: Wait(100);
    2 : PickUpMouse;
    End
      iF(FindColorSpiralTolerance(x,y,989215,MMX1, MMY1, MMX2, MMY2,5)) then
      begin
      Mouse(x,y,5,5,true);
      end;
     end;
    Begin;
    MakeCompass('N');
    Wait(100+random(133));
    MakeCompass('S');
    Wait(50+random(133));
    MakeCompass('N')
      [COLOR="Red"]End;[/COLOR]
    End;

    begin;
      Smart_Server := 1;
      Smart_Members := False;
      Smart_Signed := false;
      Smart_SuperDetail := False;
      ClearDebug;
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      ChopTree;
      Start
    end.

    [Error] (53:6): period ('.') expected at line 52
    Compiling failed.

  8. #33
    Join Date
    Jan 2010
    Posts
    1,414
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    @ Gaston7eze:
    Simba Code:
    begin;
    At the bottom of your script should be:
    Simba Code:
    begin

  9. #34
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    sorted out your standards
    Simba Code:
    program New;
    {$i srl/srl/misc/smart.scar}
    {$i srl/srl.scar}
    {$i SRL\SRL\Misc\Stats.simba}

    var
      x, y, rx, ry: Integer;

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

      Players[0].Name :=' ';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;
    end;

    procedure ChopTree;
    var
      x,y: Integer;
    begin
      if FindObj(x,y,'hop',1785912, 35)then
        Mouse(x,y,0,0, False);
      ChooseOption('Hop')
      repeat
        Wait(1200+random(250));
      until not IsUpText('Tree')or InvFull
    end;

    procedure AntiBan;
    begin;
      if(not LoggedIn)then
        Exit;
      case Random(8)of
        0:  begin;
              HoverSkill('Woodcutting',false)
              Wait(2453+random(432));
            end;
        1: Wait(100);
        2 : PickUpMouse;
      end
      if(FindColorSpiralTolerance(x,y,989215,MMX1, MMY1, MMX2, MMY2,5)) then
      begin
        Mouse(x,y,5,5,true);
      end;
    end;

    begin
      MakeCompass('N');
      Wait(100+random(133));
      MakeCompass('S');
      Wait(50+random(133));
      MakeCompass('N')
    end;
    end;  // One too many end;

    begin;
      Smart_Server := 1;
      Smart_Members := False;
      Smart_Signed := false;
      Smart_SuperDetail := False;
      ClearDebug;
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      ChopTree;
      Start
    end.
    and as you can easily see, there is one too many "end;"'s

    ~shut

    EDIT: you also dont seem to have a procedure name for that procedure

    EDIT: fixed
    Simba Code:
    program New;
    {$i srl/srl/misc/smart.scar}
    {$i srl/srl.scar}
    {$i SRL\SRL\Misc\Stats.simba}

    var
      x, y: Integer;

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

      Players[0].Name :=' ';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;
    end;

    procedure ChopTree;
    var
      x,y: Integer;
    begin
      if FindObj(x,y,'hop',1785912, 35)then
        Mouse(x,y,0,0, False);
      ChooseOption('Hop')
      repeat
        Wait(1200+random(250));
      until not IsUpText('Tree')or InvFull
    end;

    procedure AntiBan;
    begin;
      if(not LoggedIn)then
        Exit;
      case Random(8)of
        0:  begin;
              HoverSkill('Woodcutting',false)
              Wait(2453+random(432));
            end;
        1: Wait(100);
        2 : PickUpMouse;
      end
      if(FindColorSpiralTolerance(x,y,989215,MMX1, MMY1, MMX2, MMY2,5)) then
      begin
        Mouse(x,y,5,5,true);
      end;
    end;

    procedure Start;
    begin
      MakeCompass('N');
      Wait(100+random(133));
      MakeCompass('S');
      Wait(50+random(133));
      MakeCompass('N')
    end;

    begin;
      Smart_Server := 1;
      Smart_Members := False;
      Smart_Signed := false;
      Smart_SuperDetail := False;
      ClearDebug;
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      ChopTree;
      Start;
    end.

    look at a diff generator to see what i did
    Last edited by Shuttleu; 12-22-2011 at 01:00 PM.

  10. #35
    Join Date
    Dec 2011
    Posts
    212
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by RISK View Post
    @ Gaston7eze:
    Simba Code:
    begin;
    At the bottom of your script should be:
    Simba Code:
    begin
    Thanks!
    Gonna check it out.

  11. #36
    Join Date
    Dec 2011
    Posts
    212
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Im ALWAYS getting an error for some reason

    Simba Code:
    program New;
    {$i srl/srl/misc/smart.scar}
    {.include srl/srl.scar}
     {$i SRL\SRL\Misc\Stats.simba}
     var  x, y, rx, ry: Integer;
    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name :=' ';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;
    end;
    Procedure ChopTree;
    Var x,y: Integer;
    Begin;
    If FindObj(x,y,'hop',1785912, 35)Then
    Mouse(x,y,0,0, False);
    ChooseOption('Hop')
    Repeat
    Wait(1200+random(250));
    Until not IsUpText('Tree')or InvFull
      End;
     Begin
    If(FindColorSpiralTolerance(x,y,857114,MMX1, MMY1, MMX2, MMY2, 5))then
    begin
    Mouse(x,y,5,5,true);
    End;

    [COLOR="Red"]Procedure AntiBan;[/COLOR]
    Begin
    If(Not LoggedIn)then
    Exit;
    Case Random(8)of
    0:
    Begin;
    HoverSkill('Woodcutting',false)
    Wait(2453+random(432));
    End;
    1: Wait(100);
    2 : PickUpMouse;
    End
    Begin;
    MakeCompass('N');
    Wait(100+random(133));
    MakeCompass('S');
    Wait(50+random(133));
    MakeCompass('N')
      End;
    End;

    begin;
      Smart_Server := 1;
      Smart_Members := False;
      Smart_Signed := false;
      Smart_SuperDetail := False;
      ClearDebug;
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      ChopTree;
    end.

    [Error] (34:1): Identifier expected at line 33
    Compiling failed.

  12. #37
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  13. #38
    Join Date
    Dec 2011
    Posts
    212
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Shuttleu View Post
    look at my post up there ^^^^^^^^

    ~shut
    Thanks,in what procedure i was making the mistake?Thanks.

  14. #39
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  15. #40
    Join Date
    Dec 2011
    Posts
    212
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Shuttleu View Post
    the bottom one had one too many ends and diddnt have a procedure header

    ~shut
    Thank you for answering that fast.Im gonna check it and tell you what happened.

  16. #41
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by Gaston7eze View Post
    Thank you for answering that fast.Im gonna check it and tell you what happened.
    ok, if you have any more problems just post back here

    but im going out in a few mins so i might not be here when you post again

    ~shut

  17. #42
    Join Date
    Dec 2011
    Posts
    212
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well,i continue getting error on:
    Procedure Start;
    Begin
    MakeCompass('N');
    Wait(100+random(133));
    MakeCompass('S');
    Wait(50+random(133));
    MakeCompass('N')
    End;
    I give you the script in .SIMBA so you can look at it better.

  18. #43
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  19. #44
    Join Date
    Jan 2010
    Posts
    1,414
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    You had one one too many ends.

    Simba Code:
    program New;
    {$i srl/srl/misc/smart.scar}
    {.include srl/srl.scar}
     {$i SRL\SRL\Misc\Stats.simba}
     var  x, y, rx, ry: Integer;
    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name :=' ';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;
    end;
    Procedure ChopTree;
    Var
    x,y: Integer;
    Begin;
    If FindObj(x,y,'hop',1785912, 35)Then
    Mouse(x,y,0,0, False);
    ChooseOption('Hop')
    Repeat
    Wait(1200+random(250));
    Until not IsUpText('Tree')or InvFull
      End;
    Procedure AntiBan;
    Begin
    If(Not LoggedIn)then
    Exit;
    Case Random(8)of
    0:
    Begin;
    HoverSkill('Woodcutting',false)
    Wait(2453+random(432));
    End;
    1: Wait(100);
    2 : PickUpMouse;
    End

    If(FindColorSpiralTolerance(x,y,857114,MMX1, MMY1, MMX2, MMY2, 5))then
    begin
    Mouse(x,y,5,5,true);
      End;
    End;

    Procedure Start;
    Begin
    MakeCompass('N');
    Wait(100+random(133));
    MakeCompass('S');
    Wait(50+random(133));
    MakeCompass('N')
    End;

    begin;
      Smart_Server := 1;
      Smart_Members := False;
      Smart_Signed := false;
      Smart_SuperDetail := False;
      ClearDebug;
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      ChopTree;
    end.

  20. #45
    Join Date
    Dec 2011
    Posts
    212
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Simba Code:
    program New;
    {$i srl/srl/misc/smart.scar}
    {.include srl/srl.scar}
     {$i SRL\SRL\Misc\Stats.simba}
     var  x, y, rx, ry: Integer;
    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name :=' ';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;
    end;
    Procedure ChopTree;
    Var
    x,y: Integer;
    Begin;
    If FindObj(x,y,'hop',1785912, 35)Then
    Mouse(x,y,0,0, False);
    ChooseOption('Hop')
    Repeat
    Wait(1200+random(250));
    Until not IsUpText('Tree')or InvFull
      End;
    [COLOR="Red"]Procedure AntiBan;[/COLOR]
    Begin
    If(Not LoggedIn)then
    Exit;
    Case Random(8)of
    0:
    Begin;
    HoverSkill('Woodcutting',false)
    Wait(2453+random(432));
    End;
    1: Wait(100);
    2 : PickUpMouse;
    End
     Begin
    If(FindColorSpiralTolerance(x,y,857114,MMX1, MMY1, MMX2, MMY2, 5))then
    begin
    Mouse(x,y,5,5,true);
      End;
     End;
    Procedure Start;
    Begin
    MakeCompass('N');
    Wait(100+random(133));
    MakeCompass('S');
    Wait(50+random(133));
    MakeCompass('N')
      End;

    begin;
      Smart_Server := 1;
      Smart_Members := False;
      Smart_Signed := false;
      Smart_SuperDetail := False;
      ClearDebug;
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      ChopTree;
    end.



    This is the error:

    [Error] (48:1): Identifier expected at line 47
    Compiling failed.

  21. #46
    Join Date
    Jan 2010
    Posts
    1,414
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Here:
    Simba Code:
    program New;
    {$i srl/srl/misc/smart.scar}
    {.include srl/srl.scar}
     {$i SRL\SRL\Misc\Stats.simba}
     var  x, y, rx, ry: Integer;
    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name :=' ';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;
    end;
    Procedure ChopTree;
    Var
    x,y: Integer;
    Begin;
    If FindObj(x,y,'hop',1785912, 35)Then
    Mouse(x,y,0,0, False);
    ChooseOption('Hop')
    Repeat
    Wait(1200+random(250));
    Until not IsUpText('Tree')or InvFull
      End;
    Procedure AntiBan;
    Begin
      If(Not LoggedIn)then
      Exit;
        Case Random(8)of
          0:
            Begin;
              HoverSkill('Woodcutting',false)
              Wait(2453+random(432));
            End;
          1: Wait(100);
          2 : PickUpMouse;
        End;

      If(FindColorSpiralTolerance(x,y,857114,MMX1, MMY1, MMX2, MMY2, 5))then
      begin
        Mouse(x,y,5,5,true);
      End;
    end;

    Procedure Start;
    Begin
    MakeCompass('N');
    Wait(100+random(133));
    MakeCompass('S');
    Wait(50+random(133));
    MakeCompass('N')
    End;

    begin;
      Smart_Server := 1;
      Smart_Members := False;
      Smart_Signed := false;
      Smart_SuperDetail := False;
      ClearDebug;
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      ChopTree;
    end.

    This should really be in a separate help thread.

  22. #47
    Join Date
    Dec 2011
    Posts
    212
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by RISK View Post
    Here:
    Simba Code:
    program New;
    {$i srl/srl/misc/smart.scar}
    {.include srl/srl.scar}
     {$i SRL\SRL\Misc\Stats.simba}
     var  x, y, rx, ry: Integer;
    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name :=' ';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;
    end;
    Procedure ChopTree;
    Var
    x,y: Integer;
    Begin;
    If FindObj(x,y,'hop',1785912, 35)Then
    Mouse(x,y,0,0, False);
    ChooseOption('Hop')
    Repeat
    Wait(1200+random(250));
    Until not IsUpText('Tree')or InvFull
      End;
    Procedure AntiBan;
    Begin
      If(Not LoggedIn)then
      Exit;
        Case Random(8)of
          0:
            Begin;
              HoverSkill('Woodcutting',false)
              Wait(2453+random(432));
            End;
          1: Wait(100);
          2 : PickUpMouse;
        End;

      If(FindColorSpiralTolerance(x,y,857114,MMX1, MMY1, MMX2, MMY2, 5))then
      begin
        Mouse(x,y,5,5,true);
      End;
    end;

    Procedure Start;
    Begin
    MakeCompass('N');
    Wait(100+random(133));
    MakeCompass('S');
    Wait(50+random(133));
    MakeCompass('N')
    End;

    begin;
      Smart_Server := 1;
      Smart_Members := False;
      Smart_Signed := false;
      Smart_SuperDetail := False;
      ClearDebug;
      SetUpSRL;
      ActivateClient;
      DeclarePlayers;
      ChopTree;
    end.

    This should really be in a separate help thread.
    Yeah..That´s true.

  23. #48
    Join Date
    Dec 2011
    Posts
    212
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Gaston7eze View Post
    Yeah..That´s true.
    Edit:I know im so noob at this but im trying to understand,i couldnt find the mistake,please,and sorry for my noobish head,tell where is it?

  24. #49
    Join Date
    Jan 2010
    Posts
    1,414
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    You needed another end.

  25. #50
    Join Date
    Dec 2011
    Posts
    212
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The mouse just moves to nowhere doing nothing,and then,it stops.

Page 2 of 3 FirstFirst 123 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. colors
    By Iroki in forum OSR Help
    Replies: 1
    Last Post: 10-06-2008, 08:09 PM
  2. New Colors !!!
    By XxtOmxX in forum RS has been updated.
    Replies: 13
    Last Post: 06-05-2007, 02:02 PM
  3. Getting axe colors.
    By kooldude in forum OSR Help
    Replies: 3
    Last Post: 04-17-2007, 09:07 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
  •