Results 1 to 5 of 5

Thread: varrokyewcutter colorfinding and clicking problem

  1. #1
    Join Date
    Jan 2007
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    varrokyewcutter colorfinding and clicking problem

    hi i made a yewcuterbanker for varrok (free when it will be good) and it doesnt click on the yewminimap and on the bankminimap

    i did something like this:

    const

    yewcol = 997885;
    bankcol = 586642;
    ---

    and for finding color and clicking i did this:

    begin
    if(FindColorSpiral(x,y,yewcol,4,4))then
    wait(100)
    Mouse(x,y,yewcol,4,4,true);
    wait(8000)
    end;

    ---

    and the same thing for the bank.
    PLEASE some1 help me! send me great example of colorfinding which clicks on color. this is the only thing on my script that i need to fix. oh yeah and how can i make it walk with the roadcolor????? can some1 please send me good example of roadcolorfinding for walking procedure. thanks alot!

    this will be a free script

    ----
    the ''4,4,'' is the pixel
    the ''yewcol'' is the const for yewcolor.

  2. #2
    Join Date
    Oct 2006
    Location
    Ontario,Canada
    Posts
    1,718
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    use findsymbol(x,y,'tree') and findsymbol(x,y,'bank') and then after do mouse(x,y,4,4,true). why do you do this?
    Mouse(x,y,yewcol,4,4,true);
    mouse does not look for a color.
    for walking do blah:=findroadcolor;

  3. #3
    Join Date
    Jan 2007
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)
    oh ok, thanks alot!
    but what u mean by ''blah=:findroadcolor;'' ??
    can u explain better or some1 please can show me an example of roadwalking for walking procedure. thnks alot

  4. #4
    Join Date
    Oct 2006
    Location
    Ontario,Canada
    Posts
    1,718
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    here is an example to go to rimmy mine from fally bank.
    SCAR Code:
    Procedure ToMine;
    Var i:integer;
    Begin
      if not(LoggedIn) then exit;
      i:=0
      HighestAngle;
      FallyColor:=FindFallyRoadColor
      FindWaterColor;
      Players[CurrentPlayer].Loc := 'ToMine';
      RadialRoadWalk(FallyColor, 195, 290, 30, 1, 1);
      SetRun(True);
      MarkTime(MineMark)
      Repeat
        i:=i+1
        if not(FindMMColor(x,y,FallyColor)) then FallyColor:=FindFallyRoadColor;
        RadialRoadWalk(FallyColor,230,170,60,0,-1);
      until (FindMMDtm(x,y,BankRoad)) or (i=3)
        RadialRoadWalk(FallyColor,170,230,60,0,-1);
        wait(1000+random(200));
        If TimeFromMark(MineMark) > 20000 then
        begin
          Players[currentplayer].loc:='lost';
          repeat
            wait(1000);
          until not(LoggedIn);
          exit;
        end;
        Mouse(648, 83 + 63, 2, 6, True);
        SafeFlag;
        Mouse(648, 83 + 63, 2, 6, True);
        SafeFlag;
        FindRoadColor;
        i:=0
        Repeat
         i:=i+1;
         if not(FindMMColor(x,y,RoadColor)) then RoadColor:=FindRoadColor;
         RadialRoadWalk( RoadColor, 270, 180, 55, 2, 2);
        Until(i=2)
          if FindMMDtm(x,y,MineRoad) then
          begin
            Mouse(x,y,10,10,true)
            Flag;
          end else RadialRoadWalk(Roadcolor, 270, 180, 50, -1, 1);
          HumanMouseFlag(648, 83 + 50, 2, 6, 5);
          HumanMouseFlag(648, 83 + 50, 2, 6, 5);
          FindSymbol(x, y, 'Mining site');
          Mouse(x, y, 6, 6, true);
          Flag;
          Players[CurrentPlayer].Loc := 'Mine';
    End;
    blah is just the variable findroadcolor is using

    edit: this wont work for you if you try to since i didnt give u the dtms it uses. its just for looking. lol

  5. #5
    Join Date
    Jan 2007
    Posts
    268
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    yewcutting procedure :(

    ok i have problems with this procedure:

    cosnt

    yewcolr = 89699;

    Function ChopYewsDown(var Mx, My : integer; tol : integer) : boolean;
    var

    YSX,YSY :integer;
    A,Ctol :integer;
    Chopping :boolean;

    begin
    if(FindObj(x,y,'ew',YewColr,Tol))then
    begin
    wait(100+random(100))
    if(PyroEnt)then
    begin
    wait(4000+random(2000))
    ChopYewsDown(x,y,1);
    end else mouse(x,y,0,0,true)
    Mx:= x;
    My:= y;
    Result:= true;
    end;
    if not Result then
    repeat
    wait(500+random(500))
    CTol:=CTol + 1;
    if(FindObj(x,y,'Yew',YewColr,CTol))then
    begin
    wait(100+random(100))
    if(PyroEnt)then
    begin
    wait(4000+random(2000))
    ChopYewsDown(x,y,1);
    end else mouse(x,y,0,0,true)
    Mx:= x;
    My:= y;
    result:= true;
    end;
    until Result or (CTol = tol * 5)
    case Random(10) of
    1 : FQRandoms;
    end;
    case Random(15) of
    1 : AutoRespond;
    end;
    if(Result)Then Begin
    Chopping:= true;
    Repeat
    If(InvFull)then Exit;
    Wait(500+random(250))
    Mmouse(Random(MSX2), Random(MSY2), 10, 10);
    Until(Not(flag));
    wait(1000)
    MarkTime(Mark);
    Repeat
    If(InvFull)then Exit;
    If(Not (Loggedin) or (WeAreDead)) Then break;
    FindNormalRandoms;
    WWait(1000+Random(1000));
    FindNormalRandoms;
    FQRandoms;
    Findtalk;
    A:= A + 1;
    if(A mod 4 = 0)and (PyroEnt) then
    begin
    Mouse(647,82,2,2,true);
    wait(800 + random(400));
    Mouse(647,82,2,2,true);
    wait(3000 + random(2000));
    end;
    If (Not (Loggedin) or (TimeFromMark(Mark) > 30000)) Then break;
    Until(A = 10)or(Not(FindColorSpiralTolerance(x,y,YewColr,msx 1,msy1,msx2,msy2,3)))
    End;
    If(Not(A = 10)) and (Chopping) Then
    Begin
    MakeCompass('S')
    HighestAngle;
    FindNormalRandoms;
    If(FindColorSpiralTolerance(YSX,YSY,MiniTree,580,1 10,720,162,3))or
    (FindColorSpiralTolerance(YSX,YSY,MiniTree,580,5,7 25,65,3))then
    Mouse(YSX-5,YSY+5,0,0,true)
    Flag;
    End;
    End;

    ---

    at the middle, when its cutting yews it clicks on the scroll bar and it mess all up.
    if u have a good yewcutting procedure send here!
    oh yea the script is finished! this is my first script (well the 1st i did was a lumbyyewcuter but i didnt even finish it so..) but i think its pretty good so i will realese it soon =) i only need a better walking procedure with roadcolorfinding and i will add multiplayers!h):

    if u have any good treechoping procedure send here!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Random clicking problem
    By tenfold in forum OSR Help
    Replies: 5
    Last Post: 06-04-2008, 11:06 AM
  2. Clicking a small space problem
    By r4z0rlike in forum OSR Help
    Replies: 4
    Last Post: 01-25-2008, 09:30 PM
  3. Clicking order problem
    By r4z0rlike in forum OSR Help
    Replies: 3
    Last Post: 01-22-2008, 03:39 PM
  4. yea me...again with bitmap(varrokyewcutter)
    By macromacro123 in forum OSR Help
    Replies: 1
    Last Post: 02-21-2007, 08:00 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
  •