{.Script Info:
# ScriptName  = Aj's Auto Talker for N00bs  V1
# Author      = Aj
# Description = Auto talker
# Version     = 1
# Date        = 3/25/08
# Comments    = For N00bs
/Script Info}
{
      This is my first script, please dont make fun of me for how simple it is.
-------------------------------------------------------------------------------
Directions:

To make this script not endless, take out the line(s) "repeat" and "until(false)".
Do "word2" if you know what you'r doing/if you want too.
THANK YOU PEOPLE WHO MAKE TUTS B/C I WOULD NOT BE ABLE TO DO THIS W/O YOU!!!
-------------------------------------------------------------------------------

Made by Aj

Aj on codeusa.net
PM any suggestions for me please.

}

program AjAutoTalker4n00bsV1;

const
      Word1 = 'Selling cooked trout 31gp each. -=YourName=-';  //This is what you will type
procedure SendString(text : string);

var
      TempInt, TempInt1 : Integer;
      TempChar : Char;

begin
      ActivateClient;

      for TempInt := 1 to Length(text) do
      begin
        TempChar := StrGet(text, TempInt);
        TempInt1 := GetKeyCode(TempChar);
        KeyDown(TempInt1);
        Wait(30 + Random(35));
        KeyUp(TempInt1);
        Wait(45 + Random(35));
      end;
      SendKeysVB('{ENTER}', True);
      Wait(1200+random(2100));
end;

begin
      repeat
      sendstring(word1)
      until(false)          //Infinite Loop (if You dont want then delete + delete "repeat"
end.