A through Z

[RandomPhobia]

Is it possible to get scar to type random letters???

[Underwear]

Hmm, i dont know. tbh i dont know what scar is ^^

[RandomPhobia]

Ty u were a lotta help:(

[Underwear]

No problem, hehe. lol im sorry =P

[Richard]

Theres probably a better way than this but...

Program RandomLetter;
Var
S : String;

Procedure GenerateLetter;
Begin
Case Random(26) of
1: S := 'a';
2: S := 'b';
3: S := 'c';
4: S := 'd';
5: S := 'e';
6: S := 'f';
7: S := 'g';
8: S := 'h';
9: S := 'i';
10: S := 'j;'
11: S := 'k';
12: S := 'l';
13: S := 'm;'
14: S := 'n';
15: S := 'o';
16: S := 'p';
17: S := 'q';
18: S := 'r';
19: S := 's';
20: S := 't';
21: S := 'u';
22: S := 'v';
23: S := 'w';
24: S := 'x';
25: S := 'y';
26: S := 'z';
end;
end;

Begin
GenerateLetter;
WriteLN(s);
end.

EDIT: Underwear don't be suprised when you get banned for spamming and useless posts...

[Iron Man]

function RandomLetter: string;
var
i: integer;
RandChars: TStringArray;
begin
RandChars := ['a','b','c','d','e','f','g','h','i','j','k','l','m ','n','o','p',
'q','r','s','t','u','v','w','x','y','z'];
i := Random(26);
Result := RandChars[i];
end;


Use:

TypeSend(RandomLetter);


Rather simple, but it should work.

By the way, wrong section. It should be in Scripting Help. ;)

[Sandstorm]

WriteLN(Chr(65 + random(25)));

Win.

~Sandstorm

[RandomPhobia]

hehe srry ........ and thanks for the help

[Method]

WriteLN(Chr(65 + random(25)));

Win.

~Sandstorm

That needs to be Random(26) if you're planning on including Z also.

[Sandstorm]

That needs to be Random(26) if you're planning on including Z also.

Woops, forgot it didn't return the last number to.

~Sandstorm

[RandomPhobia]

thanks for the ideas guys ........but is there anyway to make the letters type in order like
A, B, C, D..........also maybe numbers to.......A,B,C,D-1, 2, 3

[TViYH]

for i := 65 to 90 do
WriteLn(Chr(i));


That will write
A
B
C
etc.

[RandomPhobia]

wat if u need it to type a couple thousand letters and u really really don't want to type that much:D

[TViYH]

All of the consecutive letters? Or just one letter?

[A G E N T]

s := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVW XYZ0123456789';
TypeByte(s[randomrange(1,62));

[RandomPhobia]

thx agent