Results 1 to 10 of 10

Thread: I have a question dealing with typing in RS using Scar.

  1. #1
    Join Date
    Aug 2007
    Location
    TN
    Posts
    62
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default I have a question dealing with typing in RS using Scar.

    Okay, It's giving me a problem now >.<


    Code:
    procedure ClickCageToFishLobbys;
    begin
    If FindColor(x,y,14663852,13,154,523,486)then
    Mouse(x,y,1,1,false);
    ChooseOption('age');
    end;
    begin
     times := 0;
     price := 0;
     repeat
     x := 1 + random(3)
     case x of
     1: Typesend('Selling Raw, Unnoted Lobbys. 200 ea');
     2: Typesend('Selling Unnoted, Raw Lobbys! 200 ea');
     3: Typesend('Selling: Raw unnoted Lobsters..200 ea');
    Wait(900+random(1000));
    times := times+1;
    Writeln('talked '+IntToStr(times)+' times')
     Until(times >= timesToTalk);
    end;
    It is saying line 54 which is [bold]Wait(900:+random1000));[/bold]
    a comma is expected there... I don't see where.
    98% of teens surround their minds with rap, if your part of the 2% that stayed with rock, put this on your signature
    http://www.fenjer.com/adnan/SRLStats/1q1q.png

  2. #2
    Join Date
    Jun 2007
    Location
    NSW, Australia.
    Posts
    541
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ActivateWindow will do the trick
    Quote Originally Posted by RAM View Post
    I sam sofa king wee todd did ! ~RAM
    My SRL Army Blog.


  3. #3
    Join Date
    Aug 2007
    Location
    TN
    Posts
    62
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Haha Thanks.

    So would it be ActiveWindow := RuneScape;

    ? (Im using the downloadable client)
    and where would i put it?
    98% of teens surround their minds with rap, if your part of the 2% that stayed with rock, put this on your signature
    http://www.fenjer.com/adnan/SRLStats/1q1q.png

  4. #4
    Join Date
    Nov 2006
    Location
    Location, Location
    Posts
    1,126
    Mentioned
    6 Post(s)
    Quoted
    41 Post(s)

    Default

    its just ActivateWindow; and you can put it after ClearDebug; would be best. Also, you may wanna have a look on standards

  5. #5
    Join Date
    Aug 2007
    Location
    TN
    Posts
    62
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I got a new error =\
    Can anyone help me with it?
    98% of teens surround their minds with rap, if your part of the 2% that stayed with rock, put this on your signature
    http://www.fenjer.com/adnan/SRLStats/1q1q.png

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

    Default

    What is it?

  7. #7
    Join Date
    Apr 2007
    Location
    California
    Posts
    259
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    procedure ClickCageToFishLobbys;
    begin
      if FindColor(x,y,14663852,13,154,523,486)then
      begin
        Mouse(x,y,1,1,false);
        ChooseOption('age');
      end;
      times := 0;
      price := 0;
      repeat
        x := 1 + random(3)
        case x of
          1: Typesend('Selling Raw, Unnoted Lobbys. 200 ea');
          2: Typesend('Selling Unnoted, Raw Lobbys! 200 ea');
          3: Typesend('Selling: Raw unnoted Lobsters..200 ea');
        end;
        Wait(900+random(1000));
        times := times+1;
        Writeln('talked '+IntToStr(times)+' times')
      until(times >= timesToTalk);
    end;

    you need an end; after a case. Also, by your if FindColor then Mouse, you need to put a begin and an end if you want it to do more than one thing. Meaning

    SCAR Code:
    if FindColor(x,y,14663852,13,154,523,486)then
      Mouse(x,y,1,1,false);

    is fine, but when you put two things you need to do

    SCAR Code:
    if FindColor(x,y,14663852,13,154,523,486)then
    begin
      Mouse(x,y,1,1,false);
      ChooseOption('age');
    end;

  8. #8
    Join Date
    Aug 2007
    Location
    TN
    Posts
    62
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ah, Okay. Thanks
    Ill post any updates i got after.

    Quote Originally Posted by Derek- View Post
    What is it?
    I always edit my first post.


    another error..:

    Code:
    procedure Cage;
    begin
      If FindColor(x,y,14663852,13,154,523,486)then
      begin
        Mouse(x,y,1,1,false);
        ChooseOption('age');
      end;
      times := 0;
      price := 0;
      repeat
        x := 1 + random(3)
        case x of
          1: Typesend('Selling Raw Lobbsters 200 ea');
          2: Typesend('Selling Raw Lobbys!!!');
          3: Typesend('Selling Raw Lobsters..200 ea');
        end;
        Wait(1300:+random(700));
        times := times+1;
        Writeln('talked '+IntToStr(times)+' times')
      Until(times >= timesToTalk);
    end;
    It is saying Line 55: [Error] (12286:10): comma (',') expected in script
    L55 = Wait(1300:+random(700));
    98% of teens surround their minds with rap, if your part of the 2% that stayed with rock, put this on your signature
    http://www.fenjer.com/adnan/SRLStats/1q1q.png

  9. #9
    Join Date
    Apr 2007
    Location
    California
    Posts
    259
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    procedure Cage;
    begin
      If FindColor(x,y,14663852,13,154,523,486)then
      begin
        Mouse(x,y,1,1,false);
        ChooseOption('age');
      end;
      times := 0;
      price := 0;
      repeat
        x := 1 + random(3);
        case x of
          1: Typesend('Selling Raw Lobbsters 200 ea');
          2: Typesend('Selling Raw Lobbys!!!');
          3: Typesend('Selling Raw Lobsters..200 ea');
        end;
        Wait(1300+random(700));
        times := times+1;
        Writeln('talked '+IntToStr(times)+' times')
      until(times >= timesToTalk);
    end;

    My bad That should work. Also, use scar tags from now on, looks better

  10. #10
    Join Date
    Aug 2007
    Location
    TN
    Posts
    62
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Okay, Thanks for the help so far. Can I add you on msn?
    Code:
    begin
     SetupSRL;
      ClearDebug;
       ActivateWindow;
        Cage;
    end.
    Is that a good ending? I can show you the whole script.. my first try if you want me to, to see if it's good so far.
    98% of teens surround their minds with rap, if your part of the 2% that stayed with rock, put this on your signature
    http://www.fenjer.com/adnan/SRLStats/1q1q.png

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. question on scar
    By soxchamp14 in forum News and General
    Replies: 3
    Last Post: 10-14-2008, 11:39 AM
  2. Card Dealing
    By me_ntal in forum C#/Visual Basic Help and Tutorials
    Replies: 1
    Last Post: 05-19-2007, 09:09 PM
  3. SCAR question
    By lolpie in forum OSR Help
    Replies: 4
    Last Post: 01-27-2007, 05:52 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
  •