Sybers Auto Typer[Lil Laggy.. Need help on lag fix]
Hey All I havent seen a AutoTyper around so I figured I would whip up one real quick =] well here it is please give me pointers and how to make it type better because currently i have to press F1 like 3-4 times for it to type.. =[ and I removed the wait and it made reallllly laggy! so feel free edit it and repost =] its my first script and contribution so go easy on me =] Its a small script so ill just post here--
SCAR Code:
program SybersAutoTalker;
{.Include SRL/SRL.Scar}
{.include srl\srl\extended\xtext.scar}
const
msg1 ='Hi'; // This is what you will type.
msg2 ='Wuts up?'; // Press F1-F4 to type each message. msg1=F1 msg2=F2 ETC.
msg3 ='huh?';
msg4 ='ok..';
procedure Talk;
begin
If(IsFKeydown(1)) then
begin
TypeSend(msg1 + chr(13))
End;
End;
procedure Talk2;
begin
If(isFKeydown(2)) then
begin
TypeSend(msg2 + chr(13))
End;
End;
procedure Talk3;
begin
If(isFKeydown(3)) then
begin
TypeSend(msg3 + chr(13))
End;
End;
procedure Talk4;
begin
If(isFKeydown(4)) then
begin
TypeSend(msg4 + chr(13))
End;
End;
procedure AllTalk;
begin
Talk;
Talk2;
Talk3;
Talk4;
End;
begin
setupsrl;
activateclient;
wait(200);
repeat
AllTalk;
wait(1000 + random(500))
Until(false)
End.