Fr0znteddygis AutoTalker
{\\//\\//\\//\\//\\//\\// Fr0znteddygi's Auto Talker \\//\\//\\//\\//\\//\\//
{//\\//\\//\\//\\//\\//\\ Version: 1.4 //\\//\\//\\//\\//\\//\\
--------------------------------------------------------------------------
Hi, thanks for using my script. It is an Auto Talker which means that it will say whatever you enter into the variable "WhatToSay" in the player setup box.There is no need to add colors or animations to your desired text, as I have made it so that they areadded randomly to your text, so that most things will still have colors and animations. This makes it less obvious that you are actually "macroing",and in turn makes this a much safer script to use than many programs you may download. It can be used to say different phrases using different keys =). Feel free to use parts of this script wherever you like, but I request that you acknowledge me in your script. Happy Playing!!!
\\//\\//\\//\\//\\//\\// Current Version: 1.4 \\//\\//\\//\\//\\//\\//\\//
//\\//\\//\\//\\//\\//\\ *Release Notes* //\\//\\//\\//\\//\\//\\//\\}
--------------------------------------------------------------------------
Version 1.0:
Began writing script. Created basic loop and one key to say something. Version 1.1:
Fixed bugs such as making it say stuff! Added the rest of the FKeys to the say stuff options.
Version 1.2:
Added the AutoSend Feature =).
Version 1.3:
Added chance of yellow text as in 100.
Version 1.4:
Added extra colors and animations. Added Release Notes.
Version 1.5:
Added the sending of esc key to return to inventory.
SCAR Code:
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\// Fr0znteddygi's Auto Talker \\//\\//\\//\\//\\//\\//\\//}
{//\\//\\//\\//\\//\\//\\ Version: 1.4 //\\//\\//\\//\\//\\//\\//\\}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
{//\\//\\//\\ Hi, thanks for using my script. It is an Auto Talker \\//\\//\\//}
{\\//\\//\\// which means that it will say whatever you enter into //\\//\\//\\}
{//\\//\\//\\ the variable "WhatToSay" in the player setup box. \\//\\//\\//}
{\\//\\//\\// There is no need to add colors or animations to your //\\//\\//\\}
{//\\//\\//\\ desired text, as I have made it so that they are \\//\\//\\//}
{\\//\\//\\// added randomly to your text, so that most things //\\//\\//\\}
{//\\//\\//\\ will still have colors and animations. This makes \\//\\//\\//}
{\\//\\//\\// it less obvious that you are actually "macroing", //\\//\\//\\}
{//\\//\\//\\ and in turn makes this a much safer script to use \\//\\//\\//}
{\\//\\//\\// than many programs you may download. It can be used //\\//\\//\\}
{//\\//\\//\\ to say different phrases using different keys =). \\//\\//\\//}
{\\//\\//\\// Feel free to use parts of this script wherever you //\\//\\//\\}
{//\\//\\//\\ like, but I request that you acknowledge me in your \\//\\//\\//}
{\\//\\//\\// script. Happy Playing!!! //\\//\\//\\}
{//\\//\\//\\ Fr0znteddygi \\//\\//\\//}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\// Current Version: 1.4 \\//\\//\\//\\//\\//\\//\\//}
{//\\//\\//\\//\\//\\//\\ *Release Notes* //\\//\\//\\//\\//\\//\\//\\}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
{//\\//\\//\\ Version 1.0: \\//\\//\\//}
{\\//\\//\\// Began writing script. Created basic loop and one key //\\//\\//\\}
{//\\//\\//\\ to say something. \\//\\//\\//}
{\\//\\//\\// Version 1.1: //\\//\\//\\}
{//\\//\\//\\ Fixed bugs such as making it say stuff! Added the \\//\\//\\//}
{\\//\\//\\// rest of the FKeys to the say stuff options. //\\//\\//\\}
{//\\//\\//\\ Version 1.2: \\//\\//\\//}
{\\//\\//\\// Added the AutoSend Feature =). //\\//\\//\\}
{//\\//\\//\\ Version 1.3: \\//\\//\\//}
{\\//\\//\\// Added chance of yellow text as in 100. //\\//\\//\\}
{//\\//\\//\\ Version 1.4: \\//\\//\\//}
{\\//\\//\\// Added extra colors and animations. Added Release //\\//\\//\\}
{//\\//\\//\\ Notes. \\//\\//\\//}
{\\//\\//\\// Version 1.5: //\\//\\//\\}
{//\\//\\//\\ Added the sending of esc key to return to inventory \\//\\//\\//}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
program AutoTalker;
var
i, ChanceOfYellowText, ChanceOfNoAnimation :integer;
WhatToSayF1, WhatToSayF2, WhatToSayF3, WhatToSayF4, WhatToSayF5, WhatToSayF6, WhatToSayF7 :string;
WhatToSayF8, WhatToSayF9, WhatToSayF10, WhatToSayF11, WhatToSayF12, TColor, TAnimation :string;
AutoSend :boolean;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure PlayerSetup;
begin
ChanceOfYellowText := 010; //The chance of text being yellow in 100 (default is 005 meaning 5% Chance. CANNOT GO OVER 100)
ChanceOfNoAnimation := 010; //The chance of text not being animated in 100 (default is 005 meaning 5% Chance. CANNOT GO OVER 100)
AutoSend:=true; //Press enter after pressing F* key? True/False
WhatToSayF1 := 'Selling full rune (t) - 900k - fr0zn s0ul' //What you want to say when you press F1
WhatToSayF2 := 'Selling strength ammys 5kea - fr0zn s0ul' //What you want to say when you press F2
WhatToSayF3 := 'Hi I am F3' //What you want to say when you press F3
WhatToSayF4 := 'Hi I am F4' //What you want to say when you press F4
WhatToSayF5 := 'Hi I am F5' //What you want to say when you press F5
WhatToSayF6 := 'Hi I am F6 ' //What you want to say when you press F6
WhatToSayF7 := 'Hi I am F7' //What you want to say when you press F7
WhatToSayF8 := 'Hi I am F8' //What you want to say when you press F8
WhatToSayF9 := 'Hi I am F9' //What you want to say when you press F9
WhatToSayF10 := 'Hi I am F10' //What you want to say when you press F10
WhatToSayF11 := 'Hi I am F11' //What you want to say when you press F11
WhatToSayF12 := 'Hi I am F12' //What you want to say when you press F12
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure GetTextColor;
Begin
if(ChanceOfYellowText > 100) then
Begin
Writeln('ChanceOfYellowText must be under 100! Terminate Script.')
TerminateScript;
end;
i := 0 + random(101);
if i <= ChanceOfYellowText then
Begin
Tcolor :=''
end else
case random(3) of
0: Case random(3) of
0: TColor := 'glow1:';
1: TColor := 'glow2:';
2: TColor := 'glow3:';
end;
1: Case random(3) of
0: TColor := 'flash1:';
1: TColor := 'flash2:';
2: TColor := 'flash3:';
end;
2: Case random(5) of
0: TColor := 'cyan:'
1: Tcolor := 'green:'
2: Tcolor := 'white:'
3: Tcolor := 'red:'
4: Tcolor := 'purple:'
end;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure GetTextAnimation;
Begin
if(ChanceOfNoAnimation > 100) then
Begin
Writeln('ChanceOfNoAnimation must be under 100! Terminate Script.')
TerminateScript;
end;
i := 0 + random(101);
if i <= ChanceOfNoAnimation then
Begin
TAnimation :='';
end else
Case random(5) of
0: TAnimation := 'wave:';
1: TAnimation := 'wave2:';
2: TAnimation := 'slide:';
3: TAnimation := 'scroll:';
4: TAnimation := 'shake:';
end;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure SendText;
Begin
if(IsFKeyDown(1) = true) then
Begin
SendKeys(TColor + TAnimation + WhatToSayF1);
if(AutoSend=true) then
Begin
SendKeys(chr(13));
end;
SendKeysVB('{ESC}', false);
Wait(3000 + random(500));
end;
if(IsFKeyDown(2) = true) then
Begin
SendKeys(TColor + TAnimation + WhatToSayF2);
if(AutoSend=true) then
Begin
SendKeys(chr(13));
end;
SendKeysVB('{ESC}', false);
Wait(3000 + random(500)););
end;
if(IsFKeyDown(3) = true) then
Begin
SendKeys(TColor + TAnimation + WhatToSayF3);
if(AutoSend=true) then
Begin
SendKeys(chr(13));
end;
SendKeysVB('{ESC}', false);
Wait(3000 + random(500));
end;
if(IsFKeyDown(4) = true) then
Begin
SendKeys(TColor + TAnimation + WhatToSayF4);
if(AutoSend=true) then
Begin
SendKeys(chr(13));
end;
SendKeysVB('{ESC}', false);
Wait(3000 + random(500));
end;
if(IsFKeyDown(5) = true) then
Begin
SendKeys(TColor + TAnimation + WhatToSayF5);
if(AutoSend=true) then
Begin
SendKeys(chr(13));
end;
SendKeysVB('{ESC}', false);
Wait(3000 + random(500));
end;
if(IsFKeyDown(6) = true) then
Begin
SendKeys(TColor + TAnimation + WhatToSayF6);
if(AutoSend=true) then
Begin
SendKeys(chr(13));
end;
SendKeysVB('{ESC}', false);
Wait(3000 + random(500));
end;
if(IsFKeyDown(7) = true) then
Begin
SendKeys(TColor + TAnimation + WhatToSayF7);
if(AutoSend=true) then
Begin
SendKeys(chr(13));
end;
SendKeysVB('{ESC}', false);
Wait(3000 + random(500));
end;
if(IsFKeyDown(8) = true) then
Begin
SendKeys(TColor + TAnimation + WhatToSayF8);
if(AutoSend=true) then
Begin
SendKeys(chr(13));
end;
SendKeysVB('{ESC}', false);
Wait(3000 + random(500));
end;
if(IsFKeyDown(9) = true) then
Begin
SendKeys(TColor + TAnimation + WhatToSayF9);
if(AutoSend=true) then
Begin
SendKeys(chr(13));
end;
SendKeysVB('{ESC}', false);
Wait(3000 + random(500));
end;
if(IsFKeyDown(10) = true) then
Begin
SendKeys(TColor + TAnimation + WhatToSayF10);
if(AutoSend=true) then
Begin
SendKeys(chr(13));
end;
SendKeysVB('{ESC}', false);
Wait(3000 + random(500));
end;
if(IsFKeyDown(11) = true) then
Begin
SendKeys(TColor + TAnimation + WhatToSayF11);
if(AutoSend=true) then
Begin
SendKeys(chr(13));
end;
SendKeysVB('{ESC}', false);
Wait(3000 + random(500));
end;
if(IsFKeyDown(12) = true) then
Begin
SendKeys(TColor + TAnimation + WhatToSayF12);
if(AutoSend=true) then
Begin
SendKeys(chr(13));
end;
SendKeysVB('{ESC}', false);
Wait(3000 + random(500));
end;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure Fr0znteddygisGreeting;
Begin
Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//' + chr(13));
Writeln('\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ' + chr(13) + (chr(13)) + ' ()' + (chr(39)) + (chr(39)) + (chr(39)) + '()');
Writeln('\\//\\// I hope you enjoy this script! //\\//\\// ' + chr(13) + ' (' + (chr(39)) + '( 0 0 )' + (chr(39)) +')');
Writeln('//\\//\\ Fr0znteddygi \\//\\//\\ ' + chr(13) + ' ( o )');
Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\// ' + chr(13) + ' (' + (chr(39)) + ')-(' + (chr(39)) + ')');
Writeln('\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\' + chr(13));
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure SetupAutoTalker;
Begin
ClearDebug;
PlayerSetup;
GetSelf.Caption := 'iTunes';
Fr0znteddygisGreeting;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
begin
SetupAutoTalker;
Repeat
Begin
GetTextColor;
GetTextAnimation;
SendText;
end;
until(false);
end.