Music(off : boolean);

[footballjds]

here you go!!!
this will turn the music on/off at the login screen !

function Music(off : boolean) : boolean;
var
  MusicOff, MusicOn : integer;
begin
  if LoggedIn then EXIT;
  MusicOn := BitmapFromString(19, 3, 'beNqzt2dgYOzo6AUiIMPR3r6s' +
               'rAaIgGwgioxODQmJACJ9fWMgd9bM2RAEZENE4BohCMgGmgBUD+FC9GLVCLcFy' +
               'IWIwLUDEbKBQATR6AgAPe8r6g==');
  MusicOff := BitmapFromString(13, 2, 'beNpLyiwrq2FgYNTXN46MT' +
                'gUy2kREkBFQBIg6OnrhyrCqCQmJcLS3TwIAnB0QaA==');
  if off then
  begin
    if FindBitmap(MusicOn, x, y) then
    begin
      Mouse(x, y, 8, 8, True);
      wait(500 + random(1000));
      Result := FindBitmap(MusicOff, x, y);
    end else Result := FindBitmap(MusicOff, x, y);
  end else
  begin
    if FindBitmap(MusicOff, x, y) then
    begin
      Mouse(x, y, 8, 8, True);
      wait(500 + random(1000));
      Result := FindBitmap(MusicOn, x, y);
    end else Result := FindBitmap(MusicOn, x, y);
  end;
  FreeBitmap(MusicOn);
  FreeBitmap(MusicOff);
end;

<--i hope you like it

[bullzeye95]

procedure SetMusic(SetOn: Boolean);
begin
  if(SetOn and (GetColor(738, 484) = 1315974)) or ((SetOn = False) and (GetColor(738, 484) = 4144961))then
    Mouse(730, 469, 25, 25, True);
end;

Sorry, I just HAD to
GetColor is very useful when dealing with the interface.

[footballjds]

you are the meanest ! well, bitmap still beats that

[MylesMadness]

not really. If they both work the same why not use the shorter one?

[P1nky]

sweeeeeeeett!

thanks h8 that song

[footballjds]

heh, np p1nky

[n3ss3s]

I hate the song too, not that this would be used for the legit player's comfort.

Gj, though bullzeye kinda pwnt

[mastaraymond]

procedure SetMusic(SetOn: Boolean);
begin
  if(SetOn and (GetColor(738, 484) = 1315974)) or ((SetOn = False) and (GetColor(738, 484) = 4144961))then
    Mouse(730, 469, 25, 25, True);
end;

Sorry, I just HAD to
GetColor is very useful when dealing with the interface.

procedure SetMusic(SetOn: Boolean);
begin
 if SetOn xor (GetColor(738, 484) = 4144961) then
    Mouse(730, 469, 25, 25, True);
end;

Pwned?


Still dizzy about how you got pwned?

Take this one!

procedure SetMusic(SetOn: Boolean);
begin
 if (SetOn=(GetColor(738, 484) = 1315974)) then
    Mouse(730, 469, 25, 25, True);
end;

[Negaal]

Hah, Raymond just had to...

Haha lol'ed at this

Football, actually, the 1 reason why bullzeye's/mastaraymond's functions are better, is that bitmaps finding is slow, and makes lag.

[n3ss3s]

Actually finding with that small bitmaps doesn't cause lagg, but Bullzeye's and Raymond's functions are still much faster...

[bullzeye95]

procedure SetMusic(SetOn: Boolean);
begin
 if SetOn xor (GetColor(738, 484) = 4144961) then
    Mouse(730, 469, 25, 25, True);
end;

Pwned?


Still dizzy about how you got pwned?

Take this one!

procedure SetMusic(SetOn: Boolean);
begin
 if (SetOn=(GetColor(738, 484) = 1315974)) then
    Mouse(730, 469, 25, 25, True);
end;

You owned me.

I thought I pwnt him enough. I would've eventually figured out the second one, but you absolutely pwnz0rd me with the first one.

Hacker.

EDIT: You don't have to xor it BTW.

procedure SetMusic(SetOn: Boolean);
begin
 if SetOn <> (GetColor(738, 484) = 4144961) then
    Mouse(730, 469, 25, 25, True);
end;

Just a <> would work.

[n3ss3s]

Raymond, does xor tell whether or not the statements are "the same"?

I managed to figure out that False Xor False is False, True Xor True is False, False Xor True is True and True Xor False is True. Correct?

[mastaraymond]

You owned me.

I thought I pwnt him enough. I would've eventually figured out the second one, but you absolutely pwnz0rd me with the first one.

Hacker.

CSS Gives me the power

Raymond, does xor tell whether or not the statements are "the same"?

I managed to figure out that False Xor False is False, True Xor True is False, False Xor True is True and True Xor False is True. Correct?

Xor returns True when the values differ from eachother...
True xor false = true;
False Xor True = True;
False xor False = False;
True Xor True = False;

[footballjds]

*crys for 10 days* well at least me doing this sparked someone to make a better one

still you didn't have to make em that small *Thinks about the pathetic procedure and crys again for 10 days* ha ha!