Results 1 to 21 of 21

Thread: Are these correct?

  1. #1
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default Are these correct?

    Edit: Solved ^_^
    Last edited by Main; 08-29-2009 at 08:33 PM.
    Oh Hai Dar

  2. #2
    Join Date
    May 2007
    Location
    England
    Posts
    4,140
    Mentioned
    11 Post(s)
    Quoted
    266 Post(s)

    Default

    What do you define as "correct?" If played, all of them would work.
    <3

    Quote Originally Posted by Eminem
    I don't care if you're black, white, straight, bisexual, gay, lesbian, short, tall, fat, skinny, rich or poor. If you're nice to me, I'll be nice to you. Simple as that.

  3. #3
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    My current script have a identifier expected problem, so I wanna make sure if my If...then...else... statements are correct.

    Do you mind check over my script for me?
    Oh Hai Dar

  4. #4
    Join Date
    May 2007
    Location
    England
    Posts
    4,140
    Mentioned
    11 Post(s)
    Quoted
    266 Post(s)

    Default

    I just noticed in 3, there is a ; missing on one of the ends. That may be your problem. If that doesn't sort it, PM the script to me, and I'll go though it. It's probably not your problem, because it's just an example, but you may have copied it from SCAR...I dunno...

    Richard.
    Last edited by Rich; 08-29-2009 at 05:10 AM.
    <3

    Quote Originally Posted by Eminem
    I don't care if you're black, white, straight, bisexual, gay, lesbian, short, tall, fat, skinny, rich or poor. If you're nice to me, I'll be nice to you. Simple as that.

  5. #5
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    oo that end;.. kk
    I will now recheck over my entire script, if errors still exist, I will pm you the script ^^ TY!
    Oh Hai Dar

  6. #6
    Join Date
    May 2007
    Location
    England
    Posts
    4,140
    Mentioned
    11 Post(s)
    Quoted
    266 Post(s)

    Default

    No problem. Glad to help. Like you said, if you need any more help, PM me and I'll get back to you ASAP.
    <3

    Quote Originally Posted by Eminem
    I don't care if you're black, white, straight, bisexual, gay, lesbian, short, tall, fat, skinny, rich or poor. If you're nice to me, I'll be nice to you. Simple as that.

  7. #7
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    Procedure b;
    Begin
      condition := 1;
      If (condition = 1) Then
      Begin
        a;
      End Else a1;
    End;

    If thats any help.

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  8. #8
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    Ty
    *goes away and fix his my standards*
    Can any one show me a basic find monster procedure? (find color, then movemouse to the color, then check"ismultiuptext" and finally mouse
    Oh Hai Dar

  9. #9
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Main_Ftw View Post
    Ty
    *goes away and fix his my standards*
    Can any one show me a basic find monster procedure? (find color, then movemouse to the color, then check"ismultiuptext" and finally mouse
    Just a basic color clicker you mean? Something like:

    SCAR Code:
    if(FindColorSpiralTolerance(x,y,2396852,MSX1,MSY1,MSX2,MSY2,5))then
    begin
      MMouse(x,y,5,5);
      if(IsUpText('Monster'))then
      begin
        GetMousePos(x,y);
        Mouse(x,y,0,0,true;
        Writeln('Clicked monster!');
      end;
    end;

    You could also step through the tolerances using a for loop:
    SCAR Code:
    var i: Integer;
    for i := 1 to 10 do
      if(FindColorSpiralTolerance(x,y,2396852,MSX1,MSY1,MSX2,MSY2,i))then
    begin
      MMouse(x,y,5,5);
      if(IsUpText('Monster'))then
      begin
        GetMousePos(x,y);
        Mouse(x,y,0,0,true;
        Writeln('Clicked monster!');
      end;
    end;

  10. #10
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    Tyyyyy omg


    EDIT:

    Is this correct?
    SCAR Code:
    procedure x;
    Var x,y,color1:integer
    string1:string;
    begin
      color1:=123;
      string1:='hi';
      if(FindColorSpiralTolerance(x,y,color1,MSX1,MSY1,MSX2,MSY2,5))then
      begin
        Writeln('found color');
        MMouse(x,y,0,0);
        if (IsUpText(string1)) then
          begin
            GetMousePos(x,y);
            Mouse(x,y,0,0,true);
          end;
       end;
    end;
    Last edited by Main; 08-29-2009 at 05:57 AM.
    Oh Hai Dar

  11. #11
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Main_Ftw View Post
    Tyyyyy omg


    EDIT:

    Is this correct?
    SCAR Code:
    procedure x;
    Var x,y,color1:integer
    string1:string;
    begin
      color1:=123;
      string1:='hi';
      if(FindColorSpiralTolerance(x,y,color1,MSX1,MSY1,MSX2,MSY2,5))then
      begin
        Writeln('found color');
        MMouse(x,y,2,2);
        if (IsUpText(string1)) then
          begin
            GetMousePos(x,y);
            Mouse(x,y,0,0,true);
          end;
       end;
    end;
    Err.. Actually.. Change it to this..
    Last edited by ian.; 08-29-2009 at 06:53 AM.

  12. #12
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ian. View Post
    Err.. Actually.. Change it to this..
    If you are going to move with randomness, you have to get the mouse pos so you click at the same spot you moved the mouse to.

    I would add some randomness to that MMouse though Main.

  13. #13
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    The mouse stays at the top left corner for me(:
    I am using normal rs client, not smart.

    The color DO EXIST.
    Oh Hai Dar

  14. #14
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It didn't find the color.

  15. #15
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    darn.
    What else is can I use for finding monsters?
    Oh Hai Dar

  16. #16
    Join Date
    Feb 2007
    Location
    Alberta, Canada
    Posts
    4,615
    Mentioned
    50 Post(s)
    Quoted
    429 Post(s)

    Default

    Use tpa's? ATPAs? Reflection?

    Scripts: Edgeville Chop & Bank, GE Merchanting Aid
    Tutorials: How to Dominate the Grand Exchange

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

  17. #17
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    I mean color related procedures, I am not that skilled(:
    Oh Hai Dar

  18. #18
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    TPA/ATPA's are color.

  19. #19
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    I guess I'll start learning then ^_^
    Could any one provide me an example of a "basic" fighting procedure?
    Oh Hai Dar

  20. #20
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Main_Ftw View Post
    I guess I'll start learning then ^_^
    Could any one provide me an example of a "basic" fighting procedure?
    Out of any SRL member who uses/knows TPA's, I probably use the most simple methods

    I teach them in my tutorial here:

    http://www.villavu.com/forum/showthread.php?t=48915

  21. #21
    Join Date
    Jul 2007
    Location
    Pluto... Maybe?
    Posts
    198
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    maybe reflection would be best? im not very good at reflection but i think this would atleast click the monster and im sure theres a way to check if its infight :

    SCAR Code:
    procedure TalkToGuy;
    var
      N, P: TNPC;
      T: TPoint;
      begin
      if not LoggedIn then Exit;
        FindNormalRandoms;
        if FindNPC('NPCNAMEHERE', N) then
        begin
          if not TileOnMS(N.Tile, 0) then
            WalkToTile(N.Tile, 1, 0);
          FindNPC(N.NPCType, P);
          Mouse(T.x, T.y, 4, 4, False);
          if ChooseOption('Attack') then
          begin
            Writeln('Attacking blablabla!');
        end else
          Writeln('Could Not fight blablabla!');
      end;
    end;

    maybe..

Thread Information

Users Browsing this Thread

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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •