Ok, first find your SRL directory. In my case it'll be
C:\Program Files\Scar 2.03\includes\SRL\
Now find the SRL folder that's inside the main SRL folder.
We're now at
C:\Program Files\Scar 2.03\includes\SRL\SRL
Find the core's folder and open up . Find SetRun and replace it's code with this
Code:
procedure SetRun(run: Boolean);
begin
GameTab(11);
case run of
True: if (GetColor(647, 425) <> 5542492) then
Mouse(647, 425, 4, 4, True);
False: if (GetColor(647, 425) <> 1251528) then
Mouse(647, 425, 4, 4, True);
end;
end;
Simple fix, very simple. Now find DoEmote. Copy + paste this code over that function and it's fixed.(It should work!)
Code:
procedure DoEmote(EmoteNumber: Integer);
var
EmoteCoords, Section: TPoint;
Row: Integer;
begin
if (EmoteNumber > 32) or (EmoteNumber < 1) then Exit;
if (EmoteNumber < 12) then Row := 1;
if (EmoteNumber > 12) then begin EmoteNumber := EmoteNumber - 12; Row := 2; end;
if (EmoteNumber > 12) then begin EmoteNumber := EmoteNumber - 8; Row := 3; end;
Section.x := EmoteNumber / 4;
Section.y := EmoteNumber - (Section.x * 4) - 1;
if (Section.y < 0) then
begin
Section.y := 3;
Section.x := Section.x - 1;
end;
EmoteCoords.x := 562 + ((Section.y) * 42);
EmoteCoords.y := 377 + ((Section.x) * 30);
GameTab(12);
case Row of
1: if not (GetColor(574, 226) = 5531254) then Mouse(730, 393, 6, 4, True);
2: if not (GetColor(577, 336) = 2436403) then Mouse(730, 422, 6, 0, True);
3: if not (GetColor(706, 239) = 2436403) then Mouse(730, 440, 6, 3, True);
end;
Wait(500 + Random(500));
if (FindColor(x, y, 65535, EmoteCoords.x, EmoteCoords.y, EmoteCoords.x + 32, EmoteCoords.y + 23)) then
begin
MouseBox(EmoteCoords.x, EmoteCoords.y, EmoteCoords.x + 32, EmoteCoords.y + 23, 1);
Wait(1750 + Random(750));
end;
end;
Again, simple, simple fix.