SRL Archive - Other Scripts

This script to basically: To type in letter you get out the # you picked.
so if a=1 and you type in a in the writeln('a') in the debug box is will write the number. This is my second script and i seek improving it. Mostly its just a whole bunch of strings.:D

Here's the first version.

{
To change the message the lines are at 71-101-
Also only one letter per a letter.
aa = a space
II=a period  II=.
To change the vaule of the letters lines are at: 40-67

}
program Coder;
var
a :string;
b :string;
c :string;
d :string;
e :string;
f :string;
g :string;
h :string;
i :string;
j :string;
k :string;
l :string;
m :string;
n :string;
o :string;
p :string;
q :string;
r :string;
s :string;
t :string;
u :string;
v :string;
w :string;
x :string;
y :string;
z :string;
////////////////////////////////////
II :string;
aa :string;
jj :string;
QQ :string;
begin
a :=('1')
b :=('2')
c :=('3')
d :=('4')
e :=('5')
f :=('6')
g :=('7')
h :=('8')
i :=('9')
j :=('10')
k :=('11')
l :=('12')
m :=('13')
n :=('14')
o :=('15')
p :=('16')
q :=('17')
r :=('18')
s :=('19')
t :=('20')
u :=('21')
v :=('22')
w :=('23')
x :=('24')
w :=('25')
x :=('26')
y :=('27')
z :=('28')
/////////////////
II :=('.')
aa :=(' ')
jj :=(',')
qq :=('!')
ClearDebug;
////////////////////////////////////////////////////////
writeln{                          }(S )
writeln{                          }(m )
writeln{                          }(i )
writeln{                          }(t )
writeln{                          }(h )
writeln{                          }(s )
writeln{                          }(p )
writeln{                          }(s)
writeln{                          }(aa )
writeln{                          }(d )
writeln{                          }(i )
writeln{                          }(d )
writeln{                          }(aa )
writeln{                          }(t )
writeln{                          }(h)
writeln{                          }(i )
writeln{                          }(s )
writeln{                          }(qq )
//writeln{                          }(aa )
//writeln{                          }(aa )
//writeln{                          }(aa)
//writeln{                          }(aa )
//writeln{                          }(aa )
//writeln{                          }(aa )
//writeln{                          }(aa )
//writeln{                          }(aa )
//writeln{                          }(aa )
//writeln{                          }(aa )
//writeln{                          }(aa )
//writeln{                          }(aa )
//writeln{                          }(aa )
/////////////////////////////////////////////////
//////////////////////////
//////////////////////////
//////////////////////////
//////////////////////////
writeln('/////////////////////////////////////')
writeln('Thank you for using my script')
writeln('Smithspsbob =)')
writeln('/////////////////////////////////////')
end.

Also qq=! aa= (a space) II=. and jj=, :stirthepot:
19
13
9
20
8
19
16
19

4
9
4

20
8
9
19
!