SRL Archive - Non-RuneScape Scripts

Quick Modification

sm321

2012-05-26 09:49:44

Hello :) Could someone please edit this script so that instead of 2 random letters, it chooses 1 random letter and 1 random number between 0-9 please. It can also have letternumber or numberletter. Thankyou.

program new;
begin
repeat
writeln(chr(97+random(26))+chr(97+random(26)));
until false;
end.

Justin

2012-05-26 09:54:30


program new;
begin
repeat
writeln(chr(97+random(26)) + IntToStr(random(10)));
until false;
end.

LetterNumber

sm321

2012-05-26 09:56:40

From: [J]ustin


program new;
begin
repeat
writeln(chr(97+random(26)) + IntToStr(random(10)));
until false;
end.

LetterNumber

Thankyou :)

Justin

2012-05-26 09:57:26

From: sm321
Thankyou :)

No worries

sm321

2012-05-27 05:33:52

Infact, can anyone make it do what [J]ustin's script does, but can do letternumber or numberletter. Thankyou.

Justin

2012-05-27 05:57:28


program new;
var i: Integer;
begin
repeat
i := Random(2);
case (i) of
0: writeln(chr(97+random(26)) + IntToStr(random(10)));
1: writeln(IntToStr(random(10)) + chr(97+random(26)));
end;
until false;
end.

Result:


p6
5l
s1
9a
b8
8w
a2
p2
1v
6y
h0
q9
2l
l5
7p
6l
m4
6a
2o
8c
g0
u2
i5
2k
5f
q1
2u
8t
Successfully executed.

sm321

2012-05-27 07:36:03

From: [J]ustin


program new;
var i: Integer;
begin
repeat
i := Random(2);
case (i) of
0: writeln(chr(97+random(26)) + IntToStr(random(10)));
1: writeln(IntToStr(random(10)) + chr(97+random(26)));
end;
until false;
end.

Result:


p6
5l
s1
9a
b8
8w
a2
p2
1v
6y
h0
q9
2l
l5
7p
6l
m4
6a
2o
8c
g0
u2
i5
2k
5f
q1
2u
8t
Successfully executed.

Thankyou :) Is there any way to make it do upper or lowercase at random too? Sorry to keep asking.