Results 1 to 3 of 3

Thread: Combat Sytles.

  1. #1
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Combat Sytles.

    Im not sure if SRL allready has these. If it does they would probabbly be better then my function. Just posting this as its my first time making a Semi Include and making an Index of the Fight Modes with a TBox.
    SCAR Code:
    Function FightModeBox(i :Integer): TBox;
    var
      row, col: Integer;
    begin
      if not I > 0 then
        Exit;
      I:= I - 1;
      row:= I mod 2;
      col:= i div 2;
      Result.x1 := 571 + (86 * Row);
      Result.y1 := 252 + (54 * col);
      Result.x2 := 628 + (86 * row);
      Result.y2 := 288 + (54 * col);
    end;

    function CurrentFightMode: Integer;
    var
      T,I: Integer;
      H: TBox;
      TPA : TPointArray;
    begin
      T := GetCurrentTab;
      if T <> 1 then
        GameTab(1);
      for i:= 1 to 3 do
      begin
        H := FightModeBox(I);
        FindColorsTolerance(TPA,1908609, h.X1, h.Y1, h.X2, h.Y2 , 15);
        if Length(TPA) > 8 then
        begin
          Result:= I;
          Break;
        end;
      end;
    end;

    function ModeThere(z : integer): Boolean;
    var
      T: Integer;
      H: TBox;
      TPA : TPointArray;
    begin
      Result:= False;
      T := GetCurrentTab;
      if T <> 1 then
        GameTab(1);
      H :=  FightModeBox(z);
      FindColorsTolerance(TPA,4343109, h.X1, h.Y1, h.X2, h.Y2 , 15);
      if Length(TPA) > 8 then
        Result:= True;
    end;

    Function FightMode(I : integer) : Boolean;
    var
      T: Integer;
      H: TBox;
    begin
      T := GetCurrentTab;
      if T <> 1 then
        GameTab(1);
      if CurrentFightMode = I then
        Exit;
      Result:= ModeThere(I);
      if not Result then
        Exit;
      H := FightModeBox(I);
      MouseBox(h.X1, h.Y1, h.X2, h.Y2,1);
    end;

  2. #2
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Does this do the same thing as your one?

    SCAR Code:
    {*******************************************************************************
    function SetFightMode(oFightMode: Integer): Boolean;
    By: Nielsie95 tweaked by Timer
    Description: Sets fight mode.  Returns false if failed to set desired mode.
    *******************************************************************************}

  3. #3
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ahh i see that one now, yes basiclly it does, only differences there is , that there are more fail safes, and this is a little more user firendly as, some people might want to use

    function ModeThere(z : integer): Boolean;

    in there script to see what type of wep they have.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. BH or PVP combat
    By xking in forum NOTA
    Replies: 6
    Last Post: 01-31-2009, 08:51 PM
  2. p2p combat exp
    By soccnut in forum RuneScape News and General
    Replies: 4
    Last Post: 09-06-2008, 02:38 PM
  3. Being combat lvl over 5
    By Sir R. M8gic1an in forum Research & Development Lounge
    Replies: 11
    Last Post: 08-27-2007, 06:31 AM

Posting Permissions

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