neo_welmeow
2006-11-21 15:03:02
hey this is my first script, and its one of those basic ones, it still needs some work. i put this to gether in like 30 min, it took me a while i know, but im just a noob!!!, anyone now how i could set it up so that messege2 would only go once?
program something;
var
I: integer ;
L: integer ;
done: boolean;
const
message1='10010110101010101011101000110101010101110101101010101010111100';
message2=' Welcome to the Matrix ';
procedure binary;
begin
wait(50)
sendkeys(message1);
wait(50)
sendkeys(message1);
wait(50)
sendkeys(message1);
wait(50)
sendkeys(message1);
wait(50)
sendkeys(message1);
wait(50)
sendkeys(message1);
wait(50)
sendkeys(message1);
wait(50)
sendkeys(message1);
wait(50)
sendkeys(message1);
wait(50)
sendkeys(message1);
wait(50)
sendkeys(message1);
wait(50)
sendkeys(message1);
wait(50)
sendkeys(message1);
wait(50)
sendkeys(message1);
wait(50)
sendkeys(message1);
wait(50)
sendkeys(message1);
wait(50)
sendkeys(message1);
wait(50)
sendkeys(message1);
wait(50)
sendkeys(message1);
wait(50)
sendkeys(message1);
end;
procedure matrix;
begin
wait(100)
sendkeys(message2)
end;
begin
ClearDebug ;
repeat
binary;
I:=L+50;
L:=I+5*I;
if I>100 then matrix;
if I>150 then binary;
if I>1000 then done:=true else done:=false
until(done)
end.
there is probably a better way to make this script but it was my first!!!