Results 1 to 9 of 9

Thread: Got Some Questions!

  1. #1
    Join Date
    Jun 2007
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Got Some Questions!

    do it exist a command like go to line 9? or somthing

    like this:

    line:9.......

    line:20 Repeat
    line:21 Until Findcolor
    line:22 Go to line 9

    and if some one can help me get a command that wenn stop it say how many times it got repeted

  2. #2
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    you could go like this...

    SCAR Code:
    Procedure test;
    var
    i:integer;
    begin
    i:=0
    repeat
    blah
    blah
    blah
    until(i=10)
    end;

    or some thing like that, and include a fail safe.
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

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

    Default

    SCAR Code:
    Procedure Example;
    Var
      I,II : Integer;
    Label MyLabel;
    Begin
      MyLabel:
      Inc(II);
      Repeat
        Inc(I);
        Writeln('I = '+IntToStr(I));
      Until I > 9;
      If II > 9 Then
        Exit;
      Writeln('II = '+IntToStr(I));
      GoTo MyLabel;
    End;
    Search for goto tutorials.


  4. #4
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    and that works better lol.
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  5. #5
    Join Date
    Jun 2007
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i dont know how to use it XD can any one put it in for me?



    program New;

    var
    x,y: Integer;

    begin
    wait(3000 + random(4000));
    Label Start; <--------------------------------------------Her

    If FindColor(x,y,16764108,278,409,278,409) Then
    Begin
    Repeat
    Until FindColor(x,y,16764108,278,409,278,409))Then
    GoTo MyLabel<---------------------------------------------Her
    End Else
    begin
    Label MyLabel;<-------------------------------Her

    Repeat
    WriteLn('start');
    KeyDown(VK_Down);
    wait(10 + random(20));
    KeyDown(GetKeyCode('a'));
    wait(9000 + random(10000));
    KeyUp(GetKeyCode('a'));
    KeyUp(VK_Down);
    wait(150 + random(200));
    KeyDown(GetKeyCode('d'));
    wait(250 + random(300));
    KeyUp(GetKeyCode('d'));
    wait(50 + random(75));
    KeyDown(VK_Up);
    wait(150 + random(100));
    KeyUp(VK_Up);
    wait(50 + random(75));
    KeyDown(GetKeyCode('a'));
    wait(50 + random(75));
    KeyUp(GetKeyCode('a'));
    wait(25 + random(75));
    KeyDown(VK_Down);
    wait(300 + random(150));
    KeyUp(VK_Down);
    wait(10 + random(150));
    KeyDown(VK_Down);
    KeyDown(VK_Left);
    wait(500 + random(300));
    KeyUp(VK_Down);
    KeyUp(VK_Left);
    wait(50 + random(75));
    KeyDown(VK_Right);
    wait(200 + random(350));
    KeyUp(VK_Right);
    wait(200 + random(350));
    KeyDown(GetKeyCode('d'));
    Wait(100 + random(150));
    KeyUp(GetKeyCode('d'));
    WriteLn('END');
    until FindColor(x,y,16764108,274,375,274,375);
    GoTo Start <-------------------------------------Her
    end

    Do it work?

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

    Default

    and if someone can put in so wenn stop it say how many times repeted

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

    Default

    As i said, search a goto tutorial.


  8. #8
    Join Date
    Jun 2007
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    my brine is to small to get how to do it

  9. #9
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Well maybe your brain is big enough to get it

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Few questions.
    By Dervish in forum OSR Help
    Replies: 6
    Last Post: 03-09-2009, 08:43 PM
  2. A few questions
    By RSMacroLegend in forum OSR Help
    Replies: 6
    Last Post: 11-29-2007, 03:23 AM
  3. several questions
    By lnknprkn in forum RuneScape News and General
    Replies: 0
    Last Post: 11-14-2007, 02:37 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
  •