SRL Archive - SRL Archives

Don't know if this is already in Srl, I know brightness used to be, can't find it in gametab now though.

Anyway, procedures for Brightness, Music, Sound Effect and Area Sound.

Procedure SetBrightness(Value : Integer);
 Begin
   If(Not(GetColor(685, 496) = 2434414))Then
    Mouse(679, 477, 3, 3, True);
   Case Value Of
      1 : Mouse(617, 228, 3, 3, True);
      2 : Mouse(649, 228, 3, 3, True);
      3 : Mouse(680, 228, 3, 3, True);
      4 : Mouse(714, 228, 3, 3, True);
   End;
   GameTab(4);
 End;

Procedure SetMusic(Value : Integer);
 Begin
   If(Not(GetColor(685, 496) = 2434414))Then
    Mouse(679, 477, 3, 3, True);
   Case Value Of
      1 : Mouse(617, 265, 3, 3, True);
      2 : Mouse(639, 265, 3, 3, True);
      3 : Mouse(666, 265, 3, 3, True);
      4 : Mouse(691, 265, 3, 3, True);
      5 : Mouse(717, 265, 3, 3, True);
   End;
   GameTab(4);
 End;
 
Procedure SetSoundEffects(Value : Integer);
 Begin
   If(Not(GetColor(685, 496) = 2434414))Then
    Mouse(679, 477, 3, 3, True);
   Case Value Of
      1 : Mouse(617, 301, 3, 3, True);
      2 : Mouse(639, 301, 3, 3, True);
      3 : Mouse(666, 301, 3, 3, True);
      4 : Mouse(691, 301, 3, 3, True);
      5 : Mouse(717, 301, 3, 3, True);
   End;
   GameTab(4);
 End;
 
Procedure SetAreaEffects(Value : Integer);
 Begin
   If(Not(GetColor(685, 496) = 2434414))Then
    Mouse(679, 477, 3, 3, True);
   Case Value Of
      1 : Mouse(617, 338, 3, 3, True);
      2 : Mouse(639, 338, 3, 3, True);
      3 : Mouse(666, 338, 3, 3, True);
      4 : Mouse(691, 338, 3, 3, True);
      5 : Mouse(717, 338, 3, 3, True);
   End;
   GameTab(4);
 End;

p.s Have Scar tags stopped working? They messed up my code when I tried them.

They might not be in srl because they don't reset themselves, so the user can do it once and leave it, unlike run which has to be set everytime you log in.

Nice job.

Yea I think Dankness is looking in to the tags.

tags are screwed. But yeah i think the old version of these are in Xgametab.