Use this list
http://www.moparisthebest.com/smf/in...ic,2894.0.html
Loop through the numbers, and have a 1337 alphabet string. When you get to a key number that is down, subtract 65 from it, and TheString[TheNumber-65] should get you the corresponding letter in the 1337 alphabet.
Edit: actually nevermind, that way doesn't help with spaces etc. Try it this way.
SCAR Code:
program New;
var mystr,mystr2,mystr3:string;
i,t:integer;
begin
mystr :='abcdefghijklmnopqrstuvwxyz ';
mystr2:='4b[d3f9hijklmn0pqr5tuvwxyz ';
repeat
for i:=1 to 27 do
begin
if iskeydown(mystr[i]) then
begin
mystr3:=mystr3+mystr2[i];
cleardebug;
writeln(mystr3);
t:=getsystemtime;
repeat
wait(1);
until ((getsystemtime-t)>250)or(not iskeydown(mystr[i]));
end;
end;
until isfkeydown(12);
end.
Or instead of a string, turn it into an array, so that you can have a single match up to a multiple, like V = \/.