Results 1 to 5 of 5

Thread: Easy WaterColor Fix

  1. #1
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default Easy WaterColor Fix

    Just Make a Bitmap of the water and and add tolerance (36) to it, Get the color and use that as the result.

    A primitive method but never fails

    (Based on the Idea of Solmn Wishes);

    SCAR Code:
    Function FindWaterColorSquig : Integer;
    Var
    Water, TestColor : Integer;
    Begin
        Water := BitmapFromString(23, 10, 'beNrrXJ/fOYpG0dBBAB+cfBo' +
           '=');
    Begin

    If FindBitmapToleranceIn(Water, wx, wy, MMX1, MMY1, MMX2, MMY2, 36) Then
      Begin
       WriteLn('WaterColor Found!');
       TestColor := GetColor(wx, wy);
       Result := TestColor;
      end else
       WriteLn('WaterColor Not Found!');
      end;
    end;

    Have Fun!

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

    Default

    SCAR Code:
    Function FindWaterColorSquig : Integer;
    Var
      Water: Integer;
    Begin
      Water := BitmapFromString(23, 10, 'beNrrXJ/fOYpG0dBBAB+cfBo' +
        '=');
      Result:=AutoColorThis(Water, 36, MMX1, MMY1, MMX2, MMY2)
    end;
    shorter

  3. #3
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by Mylesmadness View Post
    SCAR Code:
    Function FindWaterColorSquig : Integer;
    Var
      Water: Integer;
    Begin
      Water := BitmapFromString(23, 10, 'beNrrXJ/fOYpG0dBBAB+cfBo' +
        '=');
      Res
    shorter

    Wont Compile

    Yes But you find the bitmap but how will you get that into a color

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

    Default

    Try it now. Dur on my part

  5. #5
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    I know I find it so confusing when SRL uses these advanced functions when you can just use something easier to get around the problem (no offence).

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. tug o war easy
    By hamgooof in forum First Scripts
    Replies: 8
    Last Post: 11-01-2008, 03:12 PM
  2. I need some easy help
    By yanix in forum C#/Visual Basic Help and Tutorials
    Replies: 2
    Last Post: 07-04-2008, 06:31 PM
  3. Could not find WaterColor???
    By issamawan in forum OSR Help
    Replies: 7
    Last Post: 05-27-2008, 10:53 AM
  4. Something very easy.
    By fom in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 02-08-2008, 04:04 AM
  5. looking for some help (very easy), will pay
    By lolskilla in forum News and General
    Replies: 5
    Last Post: 06-25-2007, 10:37 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
  •