Results 1 to 8 of 8

Thread: Could not find WaterColor???

  1. #1
    Join Date
    Apr 2007
    Location
    Doha, Qatar
    Posts
    216
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Could not find WaterColor???

    the script says cud not find WaterColor...it walks south of draynor bank after using blind clik then gets lost saying cud not find water color...y is that???

    i am using Lumby west miner by The Claw...he is currently inactive...this is not happening with wizzups edgeville fisher though....so i was wondering wat is the matter and how it cud be solved....any help would be amazing....thnx,

    issamawan

  2. #2
    Join Date
    Apr 2008
    Location
    Northwest england
    Posts
    1,179
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It uses autocoloer for finddirtroadcolor dirt road are often found near water
    so it also cals findwatercolor to help auto color more efficiently.


    Hope I helped.

    Edit: This is not a problem with the script and the script should still run fine.
    Blank!

  3. #3
    Join Date
    Apr 2007
    Location
    Doha, Qatar
    Posts
    216
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    so how cud i actually get it to work by finding the watercolor and not the road one?its becoz it goes down...tries finding water or sumthing....then goes bak to bank and logs out...this hasnt been happening with wizzup edgevill fisher...and his uses watercolor too...any way i cud edit anything to get it working again?.

    issamawan

  4. #4
    Join Date
    Apr 2008
    Location
    Northwest england
    Posts
    1,179
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    erm
    you could always use findwatercolor but that wont work if its not finding it

    when a script uses findrirt road clor iunless there is water near it auto turns up that

    it will shud stil work fine

    if it is not wokring then that is not the problem
    Blank!

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

    Default

    Fix Use this:

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

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

  6. #6
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by NaumanAkhlaQ View Post
    Fix Use this:

    SCAR Code:
    Function FindWaterColorSquig : Integer;
    Var
    Water, wx, wy, TestColor : Integer;
    Begin
        Water := BitmapFromString(23, 10, 'beNrrXJ/fOYpG0dBBAB+cfBo' +
           '=');
    Begin
     
    If FindBitmapToleranceIn(Water, wx, wy, MMX1, MMY1, MMX2, MMY2, 16) Then
      Begin
       WriteLn('WaterColor Found!');
       TestColor := GetColor(wx, wy);
       Result := TestColor;
      end else
       WriteLn('WaterColor Not Found!');
      end;
    end;
    fail...fail...fail...

    SCAR Code:
    Function FindWaterColorSquig : Integer;
    Var
      Water, X, Y: Integer;
    Begin
      Result := 0;
      Water := BitmapFromString(23, 10, 'beNrrXJ/fOYpG0dBBAB+cfBo' +
           '=');
      If(FindBitmapToleranceIn(Water, X, Y, MMX1, MMY1, MMX2, MMY2, 16) Then
      Begin
        Result := GetColor(X, Y);
        Writeln('Water color = '+IntToStr(Result));
      End Else
        WriteLn('WaterColor Not Found!');
      FreeBitmap(Water);
    End;

    now it works alot bttr.

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  7. #7
    Join Date
    Apr 2007
    Location
    Doha, Qatar
    Posts
    216
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    okay thnx both of u...ill try it out rite now...if it works...rep+ for both of u...and waddo too...thnx,

    issamawan

    EDIT:

    now im getting this error:

    Line 445: [Error] (13663:1): Close round expected in script C:\Documents and Settings\Owner\My Documents\LSM 0.09 Pub (roscomonkey edition).scar

    the lines b4 me editing are:

    SCAR Code:
    function GetWaterColor(var WaterVar: Integer): Boolean;
    begin
      WaterVar := FindWaterColor;
      if WaterVar > 0 then Result := True;
    end;

    procedure WalkToMine;
    var
      x, y, RoadColor, MineWalk: Integer;
    begin
      if not LoggedIn then Exit;
      FindRandoms;
      Mouse(630, 136, 5, 5, True); //Blind click south
      Wait(2000);
      FFlag(0);

      if not GetWaterColor(WaterColor) then
      begin
        if not LoggedIn then Exit;
        if FindSymbol(Bx, By, 'bank') then Mouse(Bx, By, 5, 5, True)
          else if DTMRotated(BankDTM, Bx, By, MMX1, MMY1, MMX2, MMY2) then
            Mouse(Bx, By, 5, 5, True) else LogoutPlayer('Not in bank');
        if not GetWaterColor(WaterColor) then
          LogoutPlayer('No water - bank');
      end;

    this is when it is walking to the mine....there r water color functions when it is walking bak too...but lets first get this rite...so JuKKa where do apply wat u said into this script???

    full copy of script below

    any help to do with the water colour wud be nice....and btw rep + for all of u for trying,

    issamawan

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

    Default

    Quote Originally Posted by JuKKa View Post
    fail...fail...fail...

    SCAR Code:
    Function FindWaterColorSquig : Integer;
    Var
      Water, X, Y: Integer;
    Begin
      Result := 0;
      Water := BitmapFromString(23, 10, 'beNrrXJ/fOYpG0dBBAB+cfBo' +
           '=');
      If(FindBitmapToleranceIn(Water, X, Y, MMX1, MMY1, MMX2, MMY2, 16) Then
      Begin
        Result := GetColor(X, Y);
        Writeln('Water color = '+IntToStr(Result));
      End Else
        WriteLn('WaterColor Not Found!');
      FreeBitmap(Water);
    End;

    now it works alot bttr.

    Your Still My Her0

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Easy WaterColor Fix
    By Naum in forum Research & Development Lounge
    Replies: 4
    Last Post: 05-18-2008, 09:35 PM
  2. how did i ever find this...?
    By legendaryhero90 in forum Music, Movies and TV
    Replies: 9
    Last Post: 02-03-2008, 12:53 AM
  3. Find Gas
    By Lacky in forum Research & Development Lounge
    Replies: 4
    Last Post: 11-04-2007, 12:56 PM
  4. How Did You Find Out About SRL?
    By Pancakes in forum News and General
    Replies: 24
    Last Post: 07-15-2007, 06:49 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
  •