SRL Archive - SRL Archives

for gametab 11..

{*******************************************************************************
procedure Brightness(Intensity : String);
By: phantombmx
Description: Used to set the Screen Brightness to anything. Use the first
  letter of the brightness as an argument.
*******************************************************************************}

procedure Brightness(Intensity : String);
begin
  GameTab(11)
  case Lowercase(Intensity) of
    'd' : if(not(GetColor(577, 254)=1908611))then
            Mouse(562, 254, 20, 20, true)
    'n' : if(not(GetColor(607, 254)=1908611))then
            Mouse(607, 254, 20, 20, true)
    'b' : if(not(GetColor(653, 254)=1908611))then
            Mouse(653, 254, 20, 20, true)
    'v' : if(not(GetColor(697, 254)=1908611))then
            Mouse(697, 254, 20, 20, true)
  end;
  GameTab(4)
end;

Nice Job :) A bit to random for my liking though…

Great job :)

i suggest using

procedure Brightness(Intensity : String);
begin
  GameTab(11)
  case Lowercase(Intensity[1]) of
    'd' : if(not(GetColor(577, 254)=1908611))then
            Mouse(562, 254, 20, 20, true)
    'n' : if(not(GetColor(607, 254)=1908611))then
            Mouse(607, 254, 20, 20, true)
    'b' : if(not(GetColor(653, 254)=1908611))then
            Mouse(653, 254, 20, 20, true)
    'v' : if(not(GetColor(697, 254)=1908611))then
            Mouse(697, 254, 20, 20, true)
  end;
  GameTab(4)
end;

So they dont really have to read that you can only put the first letter :p

well if i knew how to do that.. i would have :p

Just to avoid if people type, "Dark" and it's only looking for the first letter:

procedure Brightness(Intensity : String);
begin
  GameTab(11)
  case[B] lowercase(copy(Intensity, 1, 1))[/B] of
    'd' : if(not(GetColor(577, 254)=1908611))then
            Mouse(562, 254, 20, 20, true)
    'n' : if(not(GetColor(607, 254)=1908611))then
            Mouse(607, 254, 20, 20, true)
    'b' : if(not(GetColor(653, 254)=1908611))then
            Mouse(653, 254, 20, 20, true)
    'v' : if(not(GetColor(697, 254)=1908611))then
            Mouse(697, 254, 20, 20, true)
  end;
  GameTab(4)
end;

eh ok.. if its already put into srl, just change it.. i just give out the general layout and idea :D

From: Bebemycat2
Nice Job :) A bit to random for my liking though…

You are nothing to me now :(

From: XxKanexX
Just to avoid if people type, "Dark" and it's only looking for the first letter:

procedure Brightness(Intensity : String);
begin
  GameTab(11)
  case[B] lowercase(copy(Intensity, 1, 1))[/B] of
    'd' : if(not(GetColor(577, 254)=1908611))then
            Mouse(562, 254, 20, 20, true)
    'n' : if(not(GetColor(607, 254)=1908611))then
            Mouse(607, 254, 20, 20, true)
    'b' : if(not(GetColor(653, 254)=1908611))then
            Mouse(653, 254, 20, 20, true)
    'v' : if(not(GetColor(697, 254)=1908611))then
            Mouse(697, 254, 20, 20, true)
  end;
  GameTab(4)
end;

I think thats what mine did :p. Great job phantom. You've been making alot lately :)

From: The Prince of Randomness
You are nothing to me now :(

Why, all I'm saying is that he can tone down how random the mouse clicking is therefore making it less likely to make a mistake. There has to be a balance between efficacy and randomness.

haha RSCI has one of these good job though. i suggest not returning to gametab(4); when finished with brightness because everytime someone sets there brightness and goes back to gametab(4) its kinda obvious lol

From: Mutant Squirrle
haha RSCI has one of these good job though. i suggest not returning to gametab(4); when finished with brightness because everytime someone sets there brightness and goes back to gametab(4) its kinda obvious lol

yeah i didnt think of removing that because for my particular usage i will need to go back to gametab(4)

thanks tho :)

From: Bebemycat2
Why, all I'm saying is that he can tone down how random the mouse clicking is therefore making it less likely to make a mistake. There has to be a balance between efficacy and randomness.

Sorry bebe i was only playing around..

From: Mutant Squirrle
haha RSCI has one of these good job though. i suggest not returning to gametab(4); when finished with brightness because everytime someone sets there brightness and goes back to gametab(4) its kinda obvious lol

GameTab(4+random(4)) ???

Jagex_Fagex: If it doesn't do anything, the person writing the script can choose what the next tab is ;)

Kane: Sdcit had already fixed that problem. And he did it the easy way ;) A little late buddy.

Good job phantombmx. Only suggestion is to take out the whole gametab thing at the end so people can customize it after the procedure has gone through ;)

so maybe have another parameter, EndTab?

like

{*******************************************************************************
procedure Brightness(Intensity : String; endTab:Integer);
By: phantombmx
Description: Used to set the Screen Brightness to anything. Use the first
  letter of the brightness as an argument.
*******************************************************************************}

procedure Brightness(Intensity : String; endTab:Integer);
begin
  GameTab(11)
  case Lowercase(Intensity) of
    'd' : if(not(GetColor(577, 254)=1908611))then
            Mouse(562, 254, 20, 20, true)
    'n' : if(not(GetColor(607, 254)=1908611))then
            Mouse(607, 254, 20, 20, true)
    'b' : if(not(GetColor(653, 254)=1908611))then
            Mouse(653, 254, 20, 20, true)
    'v' : if(not(GetColor(697, 254)=1908611))then
            Mouse(697, 254, 20, 20, true)
  end;
  GameTab(endTab)
end;

that would work,wouldn't it?

nah its best just to take out the second gametab, but yes that would work

i dunno, i reckon it would be better with it in, it cut's down on the user script, which is better aint it?

well yes but its kinda.. just standard to have it out :p

geese! whatever that means :p