Amazing AutoTalker

This auto-talker is the BEST ever made. Though it is extremely simple, the dynamicness of it makes it unbeatable .

How to make it work:
Lines 34-43

Code:

function ChooseSaying : string;
begin
  case random(5) of
    0: Result := '';
    1: Result := '';
    2: Result := '';
    3: Result := '';
    4: Result := '';
  end;
end;

Fill in the messages to type in between each ' '. If you do not have so many messages to type, delete some lines, and change the random(int) accordingly... For example:

Code:

function ChooseSaying : string;
begin
  case random(3) of
    0: Result := 'Follow me I am Zezima';
    1: Result := 'Omg I am Zezima!!!!;
    2: Result := 'Look it's Zezima!!!!!';
  end;
end

Copy and paste the following into SCAR:

Code:

program SuperRandomAutoTalker;
{.include SRL\SRL.scar}

function ChooseColor : string;
begin
  case random(12) of
    0: Result := '';
    1: Result := 'red:';
    2: Result := 'green:';
    3: Result := 'cyan:';
    4: Result := 'purple:';
    5: Result := 'white:';
    6: Result := 'flash1:';
    7: Result := 'flash2:';
    8: Result := 'flash3:';
    9: Result := 'glow1:';
    10: Result := 'glow2:';
    11: Result := 'glow3:';
  end;
end;

function ChooseEffect : string;
begin
  case random(6) of
    0: Result := 'scroll:';
    1: Result := 'shake:';
    2: Result := 'slide:';
    3: Result := 'wave:';
    4: Result := 'wave2:';
    5: Result := '';
  end;
end;

function ChooseSaying : string;
begin
  case random(5) of
    0: Result := '';
    1: Result := '';
    2: Result := '';
    3: Result := '';
    4: Result := '';
  end;
end;

procedure WriteSaying;
begin
  repeat
    wait(100);
    //Writeln(ChooseColor + ChooseEffect + ChooseSaying);
    TypeSend(ChooseColor + ChooseEffect + ChooseSaying);
    wait(100+random(6581)+random(2012)-random(6541));
  until(false);
end;

begin
  SetupSRL;
  wait(2000);
  WriteSaying;
end.

To Download SCAR: http://sythe.org/showthread.php?t=703177