SRL Archive - SRL Archives

Changed it to use MouseCircle:

{*******************************************************************************
procedure ClickNorth(AngleHigh : boolean);
By: R1ch
Description: Clicks the compass to make it perfect North. Will set angle at
             highest or lowest depending on AngleHigh
*******************************************************************************}
procedure ClickNorth(AngleHigh : Boolean);
begin
  if Random(4) = 1 then
  begin
    MouseCircle(542, 24, 15, 2);
    WaitOptionMulti(['ace', 'orth'], 1200);
  end else
    MouseCircle(542, 24, 15, 1);
  SetAngle(AngleHigh);
end;

{*******************************************************************************
function AddChatEffect(Effects : Integer) : string;
By: R1ch
Description: Adds a random chat effect to text depending on Effects
             1 = Colour - eg. Cyan:
             2 = Effect - eg. Shake:
             3 = Both - eg. Cyan:Shake:
*******************************************************************************}
function AddChatEffect(Effects : Integer) : string;
var
  Eff : TStringArray;
  
begin
  Eff:= ['cyan', 'red', 'white', 'purple', 'green', 'flash1', 'flash2', 'flash3',
        'glow1', 'glow2', 'glow3', 'slide', 'shake', 'scroll', 'wave', 'wave2'];
  case Effects of
    1 : Result:= (Eff[Random(11)] + ':');
    2 : Result:= (Eff[(Random(5) + 11)] + ':');
    3 : Result:= (Eff[Random(11)] + ':' + Eff[(Random(5) + 11)] + ':');
  end;
end;

Richard

Added AddChatEffects. Please look!

EDIT: Sorry about double-post. I didn't realize.

{*******************************************************************************
function ColorEffectAdd(Color, Effect: Boolean): string;
By: NiCbaZ
Description: Returns a RS chat effect based on 'Color' and 'Effect' booleans.
*******************************************************************************}
function ColorEffectAdd(Color, Effect: Boolean): string;
var
  Str : TStringArray;

begin
  Str := ['flash1:', 'flash2:', 'flash3:', 'glow1:', 'glow2:', 'glow3:', 'red:',
    'green:', 'cyan:', 'purple:', 'white:', 'scroll:', 'shake:', 'slide:',
    'wave:', 'wave2:'];
  if Color then
    Result := Str[Random(11)];
  if Effect then
    Result := Result + Str[11 + Random(5)];
end;

~RM

From: Rasta Magician

{*******************************************************************************
function ColorEffectAdd(Color, Effect: Boolean): string;
By: NiCbaZ
Description: Returns a RS chat effect based on 'Color' and 'Effect' booleans.
*******************************************************************************}
function ColorEffectAdd(Color, Effect: Boolean): string;
var
  Str : TStringArray;

begin
  Str := ['flash1:', 'flash2:', 'flash3:', 'glow1:', 'glow2:', 'glow3:', 'red:',
    'green:', 'cyan:', 'purple:', 'white:', 'scroll:', 'shake:', 'slide:',
    'wave:', 'wave2:'];
  if Color then
    Result := Str[Random(11)];
  if Effect then
    Result := Result + Str[11 + Random(5)];
end;

~RM

Damn. I didn't look in Chat.scar…Only Text.scar. Oh well!

Is the modded ClickNorth going to be added?