Results 1 to 5 of 5

Thread: SetFightMode2

  1. #1
    Join Date
    Feb 2006
    Location
    Pennsylvania
    Posts
    1,524
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default SetFightMode2

    I was looking through the fighing section of SRL 317, and I realized that there is no procedure called SetFightMode, nor anything to set the fight mode, the user of the script desires. So I decided to make one myself.

    Have a look:
    Code:
    {
    procedure setFightMode2 (style: Integer; ItemEquiped: Boolean);
    By: Bebemycat2
    Description: Sets the fight mode to the specified mode; ItenEquiped is if you are weilding anything or not
                 True=Weilding False=Not wielding
    }
    
    Procedure setFightMode2 (style: Integer; ItemEquiped: Boolean);
    Begin
      BenMouse:=True
      GameTab(1);
     if(not(ItemEquiped))then
      begin
       case style of
    1:
       Begin
        MMouse(588, 286 , 30, 30);
        wait(500+random(400))
        Mouse(588, 286 , 10, 10, True);
       end;
    2:
       begin
        MMouse(591, 331 , 30, 30);
        wait(500+random(400))
        Mouse(591, 331 , 10, 10, True);
       end;
    3:
       begin
         MMouse(598, 384 , 30, 30);
         wait(500+random(400))
         Mouse(598, 384 , 10, 10, True);
       end;
      end;
     If(ItemEquiped)then
      begin
       case style of
    1:
       Begin
        MMouse(597, 284 , 30, 30);
        wait(500+random(400))
        Mouse(597, 284 , 10, 10, True);
       end;
    2:
       begin
        MMouse(595, 324 , 30, 30);
        wait(500+random(400))
        Mouse(595, 324 , 10, 10, True);
       end;
    3:
       begin
         MMouse(598, 367 , 30, 30);
         wait(500+random(400))
         Mouse(598, 367 , 10, 10, True);
       end;
    4:
       begin
         MMouse(597, 409 , 30, 30);
         wait(500+random(400))
         Mouse(597, 409 , 10, 10, True);
        end;
       end;
      end;
     end;
    end;
    if you wish to test it, then I have it setup for you:
    Code:
    program New;
    {.include SRL/SRL.scar}
    
    
    {
    procedure setFightMode2 (style: Integer; ItemEquiped: Boolean);
    By: Bebemycat2
    Description: Sets the fight mode to the specified mode; ItenEquiped is if you are weilding anything or not
                 True=Weilding False=Not wielding
    }
    
    Procedure setFightMode2 (style: Integer; ItemEquiped: Boolean);
    Begin
      BenMouse:=True
      GameTab(1);
     if(not(ItemEquiped))then
      begin
       case style of
    1:
       Begin
        MMouse(588, 286 , 30, 30);
        wait(500+random(400))
        Mouse(588, 286 , 10, 10, True);
       end;
    2:
       begin
        MMouse(591, 331 , 30, 30);
        wait(500+random(400))
        Mouse(591, 331 , 10, 10, True);
       end;
    3:
       begin
         MMouse(598, 384 , 30, 30);
         wait(500+random(400))
         Mouse(598, 384 , 10, 10, True);
       end;
      end;
     If(ItemEquiped)then
      begin
       case style of
    1:
       Begin
        MMouse(597, 284 , 30, 30);
        wait(500+random(400))
        Mouse(597, 284 , 10, 10, True);
       end;
    2:
       begin
        MMouse(595, 324 , 30, 30);
        wait(500+random(400))
        Mouse(595, 324 , 10, 10, True);
       end;
    3:
       begin
         MMouse(598, 367 , 30, 30);
         wait(500+random(400))
         Mouse(598, 367 , 10, 10, True);
       end;
    4:
       begin
         MMouse(597, 409 , 30, 30);
         wait(500+random(400))
         Mouse(597, 409 , 10, 10, True);
        end;
       end;
      end;
     end;
    end;
    
    
    begin
      setupSRL;
     repeat
      setFightMode2 (1, False);
      wait(3000+random(500))
      setFightMode2 (2, False);
      wait(3000+random(500))
      setFightMode2 (3, False);
      wait(3000+random(500))
     until(false)
    end.
    Tell me what you think.

  2. #2
    Join Date
    Feb 2006
    Location
    California-Foster City
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    err.. sorry to break it to you, but ours is in gametab.scar

    GOOD JOB
    The Welcoming Party
    Don't be a Fakawi! Get 25 hours of sleep a day!

  3. #3
    Join Date
    Feb 2006
    Location
    Pennsylvania
    Posts
    1,524
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    ROAR!!!!!!!!! Wow, I guess that sucks

    O well.... thanks for pointing that out Sdcit.

  4. #4
    Join Date
    Feb 2006
    Location
    New Zealand
    Posts
    485
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yours Is Much Prettier Bebe good job.

  5. #5
    Join Date
    Feb 2006
    Location
    Australia, NSW.
    Posts
    1,461
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    You could use colors to initialize it isn't already selected. x.x

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
  •