Here is a script I made a while ago that I'm willing to share with the community.
I know it's easy to make but this one is special for you guys :wink:
Basicly just an autotyper that says the sentences in random order each time.
Direct Link:
http://users.telenet.be/Fre4k/scar/Talker-V1.4.scar
Code:
SCAR Code:
program Talker;
{------------------------------------------------------}
{*-* Universal Talker by Deweel aka Fre4k *-* }
{*-* Version 1.4 *-* }
{------------------------------------------------------}
{ )
{ What it is: - Most complete, random, free and )
( undetectable autotyper ) )
( )
( What it does: - Automaticly types for you )
( - Completely random order )
( )
( How do it: - Fill in "Setup" (line 20-31) )
( - Have capslock on if you got problems )
( typing numbers (azerty keyboards) )
{------------------------------------------------------}
{.include library2.txt}
var
sentence1,sentence2,sentence3,sentence4,sentence5: string;
triggerreport,trigger,waittime,amount,repeatem,timesspoke: integer;
stopspeaking,writereport: boolean;
Procedure Setup;
begin
amount:=5; // amount of sentences to say (max 5)
waittime:=1; // time in seconds to wait between every sentence (standard 2)
repeatem:=0; // amount of times to repeat sentences (0 = unlimited)
sentence1:='Im using a free autotalker omg';
sentence2:='Using utotalker by Deweel aka Fre4k';
sentence3:='Dont want ou saying that huh';
sentence4:='You better change the pink text ';
sentence5:='to whatever is usefull for you';
trigger:=0;
timesspoke:=0;
triggerreport:=0;
end;
{-------------------------------------------}
{ --- ACTUAL SCRIPT --- Do not modify this! }
{-------------------------------------------}
Procedure Checkrepeat;
begin
writereport:=false;
timesspoke:=timesspoke+1;
if(timesspoke>=repeatem)and(not(repeatem=0))then
stopspeaking:=true;
end;
Procedure Progressreport;
begin
triggerreport:=triggerreport+1;
if(triggerreport=5)then
begin
writereport:=true
end;
if(writereport=true)then
begin
Writeln('*--------------------------------------------*');
Writeln('*- Auto-Talker v1.4 -*');
Writeln('*- Made by Deweel aka Fre4k -*');
Writeln('*- Spoke '+inttostr(timesspoke)+' Time(s) -*');
Writeln('*--------------------------------------------*');
triggerreport:=0;
end;
end;
Procedure Line1;
begin
if(amount>=1)and(stopspeaking=false)then
begin
Wait(waittime*1000+random(400));
SendKeysSilent(sentence1);
Wait(100+random(100));
SendKeysSilent(chr(13));
Checkrepeat;
Progressreport;
end;
end;
Procedure Line2;
begin
if(amount>=2)and(stopspeaking=false)then
begin
Wait(waittime*1000+random(400));
SendKeysSilent(sentence2);
Wait(100+random(100));
SendKeysSilent(chr(13));
Checkrepeat;
Progressreport;
end;
end;
Procedure Line3;
begin
if(amount>=3)and(stopspeaking=false)then
begin
Wait(waittime*1000+random(400));
SendKeysSilent(sentence3);
Wait(100+random(100));
SendKeysSilent(chr(13));
Checkrepeat;
Progressreport;
end;
end;
Procedure Line4;
begin
if(amount>=4)and(stopspeaking=false)then
begin;
Wait(waittime*1000+random(400));
SendKeysSilent(sentence4);
Wait(100+random(100));
SendKeysSilent(chr(13));
Checkrepeat;
Progressreport;
end;
end;
Procedure Line5;
begin
if(amount>=5)and(stopspeaking=false)then
begin;
Wait(waittime*1000+random(400));
SendKeysSilent(sentence5);
Wait(100+random(100));
SendKeysSilent(chr(13));
Checkrepeat;
Progressreport;
end;
end;
Procedure RandomTalker;
begin
trigger:=0+random(6);
if(trigger=1)then
begin
Line1;
end;
if(trigger=2)then
begin
Line2;
end;
if(trigger=3)then
begin
Line3;
end;
if(trigger=4)then
begin
Line4;
end;
if(trigger=5)then
begin
Line5;
end;
end;
Procedure Talk;
begin
repeat
RandomTalker;
until(stopspeaking=true)
end;
{- You cannot take any part out of this script without my
permission. Contact me: [email]Deweel@gmail.com[/email]}
begin
Writeln('*--------------------------------------------*');
Writeln('*- Auto-Talker v1.4 -*');
Writeln('*- Made by Deweel aka Fre4k -*');
Writeln('*--------------------------------------------*');
Setup;
Talk;
end.