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:
if you wish to test it, then I have it setup for you: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;
Tell me what you think.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.






Reply With Quote



