SCAR Code:
{*******************************************************************************
procedure TalkinCC(text: string; true: boolean; mistake: integer;);
By: Akwardsaw
Description: text = text you want it to say
true = say random sentences, false if
you just want it to say that one sentence.
mistake = chance of it making a mistake. 1 = 100%, 2= 50%, 0 = 0%
*******************************************************************************}
Procedure TalkInCC(text :string; true: boolean; mistake: integer);
var
yourmessage: array [0..11] of string;
i: integer;
begin
if inclanchat then
begin
if true then
begin
yourmessage:= ['heya', 'heya whats up', 'whats up', 'hola', 'hi',
'im bored', text, 'hiya', 'im sooo bored', 'whats new',
'whats new guys'];
for i:= 0 to 11 do
typesend('/' + addmistakes(yourmessage[random(i)], mistake));
end else
typesend(text);
end;
end;
how would you get a random string from the array, and type it in? this one gets a run time error