TypeTalk - AutoTalk Procedure
These functions could be used in the empty AutoTalk.scar located in the Core file of your SRL Include's Folder.
TypeTalk (Normal Speed):
SCAR Code:
{*******************************************************************************
procedure TypeTalkNS(SentenceOne, SentenceTwo, FKey1, FKey2: Integer);
By: IP-Drowner
Description: Using TypeSend, press your select FKey number to type that sentence.
*******************************************************************************}
procedure TypeTalk(SentenceOne, SentenceTwo, FKey1, FKey2: Integer);
begin
if(IsFKeyDown(FKey1)) then
begin
TypeSend(SentenceOne);
repeat
Wait(1)
until(not(IsFKeyDown(FKey1)))
end;
if(IsFKeyDown(FKey2)) then
begin
TypeSend(SentenceTwo);
repeat
Wait(1)
until(not(IsFKeyDown(FKey2)))
end;
end;
TypeTalkSS (SpamSpeed):
SCAR Code:
{*******************************************************************************
procedure TypeTalk(SentenceOne, SentenceTwo, FKey1, FKey2: Integer);
By: IP-Drowner
Description: Using TypeSend, press your select FKey number to type that sentence.
*******************************************************************************}
procedure TypeTalkSS(SentenceOne, SentenceTwo, FKey1, FKey2: Integer);
begin
if(IsFKeyDown(FKey1)) then
begin
SendKeys(SentenceOne + Chr(13));
repeat
Wait(1)
until(not(IsFKeyDown(FKey1)))
end;
if(IsFKeyDown(FKey2)) then
begin
SendKeys(SentenceTwo + Chr(13));
repeat
Wait(1)
until(not(IsFKeyDown(FKey2)))
end;
end;
Well, at least it is something to add into the AutoTalk.scar file.