SRL Archive - SRL Archives

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:

{
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:

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.

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

GOOD JOB

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

O well…. thanks for pointing that out Sdcit.

Yours Is Much Prettier Bebe :p good job.

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