Results 1 to 2 of 2

Thread: [soulsplit] Barbarbian Agility

  1. #1
    Join Date
    May 2012
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Question [soulsplit] Barbarbian Agility

    i want to make a barbian agility script but i can't get that color finding to work or it clicks wrong spot or it just can't find the color
    here is the script i have so far

    Code:
    program SoulSplitAgility;
    {$i SRL/SRL.simba}
    var
      x, y : Integer;
    procedure ClickRope;
    begin
    wait(1000);
    if
      FindColorTolerance(x, y, 10543, 187, 167, 361, 314, 2) then
      begin
      MMouse(x, y, 0, 0);
      Wait(500);
      ClickMouse2(mouse_Left);
      Wait(3000);
      end else
      begin
      writeln('i cant find the color');
      writeln('move your camera a little bit');
      Terminatescript
      end
    end;
    
    procedure WalkToLog;
    begin
      if
      FindColorTolerance(x, y, 7702932, 230, 251, 267, 287, 10) then
      begin
      MMouse(x, y, 0, 0);
      Wait(500);
      ClickMouse2(mouse_Left);
      Wait(3000);
      end else
      begin
      writeln('i cant find the color');
      writeln('move your camera a little bit');
      Terminatescript
      end
    end;
    
    procedure ClickLog;
      begin
      if
      FindColorTolerance(x, y, 935537, 201, 150, 263, 200, 10) then
      begin
      MMouse(x, y, 0, 0);
      Wait(500);
      ClickMouse2(mouse_Left);
      Wait(5000);
      end else
      begin
      writeln('i cant find the color');
      writeln('move your camera a little bit');
      Terminatescript
      end
    end;
    
    procedure ClickNet;
    begin
      if
      FindColorTolerance(x, y, 2307136, 122, 135, 145, 218, 10) then
      begin
      MMouse(x, y, 0, 0);
      Wait(500);
      ClickMouse2(mouse_Left);
      Wait(4000);
      end else
      begin
      writeln('i cant find the color');
      writeln('move your camera a little bit');
      Terminatescript
      end
    end;
    procedure ClickLedge;
    begin
      if
      FindColortolerance(x, y, 14424, 174, 91, 218, 162, 1) then
      begin
      MMouse(x, y, 0, 0);
      Wait(500);
      ClickMouse2(mouse_Left);
      Wait(4000);
      end else
      begin
      writeln('i cant find the color');
      writeln('move your camera a little bit');
      Terminatescript
      end
    end;
    procedure ClickLadder;
    begin
      if
      FindColorTolerance(x, y, 737368, 3, 181, 514, 336, 1) then
      begin
      MMouse(x, y, 0, 0);
      Wait(500);
      ClickMouse2(mouse_Left);
      Wait(3000);
      end else
      begin
      writeln('i cant find the color');
      writeln('move your camera a little bit');
      Terminatescript
      end
    end;
    procedure WalkWall;
    begin
      if
      FindColorTolerance(x, y, 608609, 246, 6, 288, 29, 50) then
      begin
      MMouse(x, y, 0, 0);
      Wait(500);
      ClickMouse2(mouse_Left);
      Wait(5000);
      end else
      begin
      writeln('i cant find the color');
      writeln('move your camera a little bit');
      Terminatescript
      end
    end;
    procedure ClickWall;
    begin
      if
      FindColorTolerance(x, y, 8553356, 386, 82, 432, 134, 50) then
      begin
      MMouse(x, y, 0, 0);
      Wait(500);
      ClickMouse2(mouse_Left);
      Wait(4000);
      end else
      begin
      writeln('i cant find the color');
      writeln('move your camera a little bit');
      Terminatescript
      end
    end;
    procedure ClickWall1;
    begin
      if
      FindColorTolerance(x, y, 6580328, 320, 146, 368, 191, 50) then
      begin
      MMouse(x, y, 0, 0);
      Wait(500);
      ClickMouse2(mouse_Left);
      Wait(3000);
      end else
      begin
      writeln('i cant find the color');
      writeln('move your camera a little bit');
      Terminatescript
      end
    end;
    procedure ClickWall2;
    begin
      if
      FindColorTolerance(x, y, 6580328, 320, 146, 368, 191, 50) then
      begin
      MMouse(x, y, 0, 0);
      Wait(500);
      ClickMouse2(mouse_Left);
      Wait(3000);
      end else
      begin
      writeln('i cant find the color');
      writeln('move your camera a little bit');
      Terminatescript
      end
    end;
    procedure WalkRound;
    begin
      if
      FindColorTolerance(x, y, 608609, 388, 170, 421, 199, 50) then
      begin
      MMouse(x, y, 0, 0);
      Wait(500);
      ClickMouse2(mouse_Left);
      Wait(4000);
      end else
      begin
      writeln('i cant find the color');
      writeln('move your camera a little bit');
      Terminatescript
      end
    end;
    procedure WalkEnd;
    begin
      if
      FindColorTolerance(x, y, 5529705, 385, 129, 422, 164, 50) then
      begin
      MMouse(x, y, 0, 0);
      Wait(500);
      ClickMouse2(mouse_Left);
      Wait(4000);
      end else
      begin
      writeln('i cant find the color');
      writeln('move your camera a little bit');
      Terminatescript
      end
    end;
    
    begin
      setupsrl;
      repeat
      ClickRope;
      WalkToLog;
      ClickLog;
      ClickNet;
      ClickLedge;
      ClickLadder;
      WalkWall;
      ClickWall;
      ClickWall1;
      ClickWall2;
      WalkRound;
      WalkEnd;
      until (IsKeyDown(114)); // F3 to stop the script
    end.
    and where stands the 2 for in
    Code:
    FindColorTolerance(x, y, 10543, 187, 167, 361, 314, 2) then

  2. #2
    Join Date
    May 2012
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Bump

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
  •