SCAR Code:
program ZikaAutotalker;{|||||||||||||||||||||||||||||||||||||||||||||||||||||||}
const{ }
{ - Zika's First AutoTalker }
{ - v0.1 }
{ }
{||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
{ }
{ 1 Whrite what you want to say, use F2 to speak }
{ 2 TalkLikeA, Human or Macro }
{ }
{||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
{ }
{ - Set-up }
{1} WhatToSay = 'Test'; {1}
{2} TalkLikeA = 'Human'; {2}
{ }
{||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
{.include Squig.txt}
Var i:integer;
Procedure Speak;
Begin
i:=0;
Repeat
i:= (i+1)
Wait(100);
If (IsFKeyDown(2))Then
Begin
i:=(i+1)
If(TalkLikeA='Human')Then
Begin
SendKeysHuman(WhatToSay + chr(13))
end;
If(TalkLikeA='Macro')Then
Begin
Sendkeys(WhatToSay + chr(13))
end;
end;
Until(i<=0)
end;
Begin
Speak;
end.
well, this is my first script. And i find this strange issure, it is when i press F1 agen after it is beginning to type it just press enter, and start up by re-saying it..
Also could be awesome if someone could tell me how to make a pop-up like startblaster100's script to edit what you need to say + text animations :S
Btw, rep+ for the help.
Thanks for attention, Zika