SRL Archive - SRL Archives

Here you go, shortened 4 lines :)

{*******************************************************************************
procedure SetRun(run: Boolean);
By: Wizzup? and Hy71194.
Description: Sets Run on or off.
*******************************************************************************}

procedure SetRun(Run: Boolean);
begin
  GameTab(11);
  if run xor (GetColor(634, 421) = 1974404) then
    MouseBox(627,415,657,444,1);
end;

Old procedure:

procedure SetRun(Run: Boolean);
begin
  GameTab(11);
  case Run of
    True: if (GetColor(634, 421) = 5067346) then
        Mouse(647, 428, 8, 8, True);
    False: if (GetColor(634, 421) = 1974404) then
        Mouse(647, 428, 8, 8, True);
  end;
end;

Hopefully it is good enough for SRL :)

PS: If you say "Wdf, why does 4 lines matter?" Look at what n3ss3s did to Retaliate();.

~ Harry.

procedure SetRun(Run: Boolean);
begin
  GameTab(11);
  if run <> (GetColor(634, 421) = 1974404) then
    MouseBox(627,415,657,444,1);
end;

One character shorter xD

From: Bullzeye95
procedure SetRun(Run: Boolean);
begin
GameTab(11);
if run <> (GetColor(634, 421) = 1974404) then
MouseBox(627,415,657,444,1);
end;

'xor' pwns '<>' IMO :p

Actually, they're the exact same speed, which means that I officially win :D

SetRun has already been edited in the Dev SvN.

Mmmkay.

BY ME! PWNED NUBS !!!!1111








(:p Sorry for spamming, I just have to underline my win to everyone.)

Post? Why would I post? It l00x 3x4ctly like yours, exept that it uses MouseBox.. (CBF finding quote of you saying "We need MouseBox everywhere!" or something.)

@EvilChicken!: Really? Cool! :p Post it so we can l33ch?

From: Hy71194
@EvilChicken!: Really? Cool! :p Post it so we can l33ch?

It is the same as yours, but his MouseBox' Box is bigger.

Ow.. I was making sure mine was accurate.

Well, I guess he beat me to it :)

As from the dev repos:

{*******************************************************************************
procedure SetRun(run: Boolean);
By: Wizzup? & EvilChicken!
Description: Sets Run on or off.
*******************************************************************************}

procedure SetRun(Run: Boolean);
begin
  GameTab(11);
  if Run xor (GetColor(634, 421) = 1974404) then
    MouseBox(625, 413, 658, 448, 1);
end;

Closed :)