Fixed SetChat for updated RS
For those of you that need a working SetChat, did a quick fix.
Changed the cords and added assist (5).
SCAR Code:
procedure SetChat2(state: string; chat: Integer);//Temporary working one till SRL update
var
x, y, mx, my, Color: Integer;
begin
case chat of
1: mx := 145;
2: mx := 199;
3: mx := 316;
4: mx := 261;
5: mx := 373;
else Exit;
end;
my := 492;
case LowerCase(State) of
'on': begin Color := 65280; State :='On'; end;
'off': begin Color := 255; State :='Off'; end;
'hide': begin Color := 16776960; State :='Hide'; end;
'friends': begin Color := 65535; State :='Friends'; end;
else Writeln('State in SetChat does not exist!');
end;
if not FindColor(x, y, Color, mx - 10, my - 10, mx + 10, my + 10) then
begin
Mouse(mx, my, 8, 8, False);
Wait(450 + Random(175));
ChooseOption(State);
end;
end;