phailurism
2007-05-24 17:35:45
doesn't totally suck IMO.
although i'd like you hear your opinion.
~PH :cartman:
although i'd like you hear your opinion.
//////////////////////////////////
//// ~PHAILURISM'S AUTOTYPER ////
//// Press F2 to start typing ////
//// Setup lines 10-13 ////
//////////////////////////////////
program AutoTyper;
{.include SRL/SRL.scar}
Const
msg= '~Phailurism r0x'; //your message
times= 5; // how many times to type the message
waittime= 3000; // how long to wait in between each message
speed= 50; // how long to wait between each letter when typing
procedure TypeAndSend(s: string);
var
letter: Integer;
begin
if(not(LoggedIn))then
Exit;
for letter:= 1 to Length(s) do
begin
Sleep(speed + Random(5));
TypeSend(Copy(s, letter, 1));
end;
end;
begin
SetupSRL;
while times > 0 do
begin
if(IsFKeyDown(2))then
begin
for x:= 1 to times do
begin
TypeAndSend(msg);
wait(waittime);
end;
end;
end;
end.
~PH :cartman: