For all your antiban needs:
SCAR Code:
Type
Emotion = (Angry, Confused, AngryConfused, AndSoOn);
Function EmotionExpressionBooster(Text: String; Mode: Emotion): String;
Var
C, SubC: String;
I, R: Integer;
Begin
Result := Text;
Case Mode Of
Angry: C := '!';
Confused: C := '?';
AngryConfused: C := '?!';
AndSoOn: C := '.';
End;
R := Random(9);
If Length(C) = 2 Then
Begin
For I := 1 To 1 + R Do
Begin
SubC := C[1 + Random(2)];
If SubC = '!' Then
If Random(3) = 1 Then
SubC := '1'; // :P
Result := Result + SubC;
End
End Else
For I := 1 To 1 + R Do
Result := Result + C;
End;
Emotions -
Angry, adds '!' marks.
Confused, adds '?' marks.
AngryConfused - the traditional expression found on the keyboard of noobs desperate for phree geepeez, adds "?":s or "!":s and has a chance of turning the '!' into '1'! O.o
AndSoOn, adds '.':s
Enjoy