seans speak v1

Code:

{
Time usage recomendation: as long as you want!
Class of script: Autotyper
Complexity 1-10: 2
Bugs: None
Notes:
The reason i did not use any random waits and why i used sendekeys instead of typesend is becuase as long as you dont abuse the speed,
you can not get banned for using an autotyper.

{.Script Info:
ScriptName  = SeanSpeak
Author      = Sean-Scripts©  ( Sean R )
Description = Types manualy or automaticly.
Version     = 1.0
Date        = february 28th 2007
Comments    = Add this script to your collection!
/Script Info}

program SeanSpeak;

const
color ='white:';//color of the mesage
effect='shake:';// effect of the mesage
text = 'muhahahahaahaaahaa';// the message
AM = false;// true for auto-type false for manual type
waitT = 2000;// only for automatic. the wait between types.

var
talktimes:integer;



procedure calibrate;
begin
talktimes:= 0
writeln('welcome to SS type. A free script. Enjoy!')
wait(500)
writeln('you will be saying ' + (text))
wait(500)
writeln('your color will be ' + (color))
wait(500)
writeln('your effect will be ' + (effect))
if AM = true then
writeln('it will be automatic')
if AM = false then
writeln('it will be manual')
end;

procedure Autotype;
begin
if AM = true then
begin
writeln('you have chosen auto-type. Enjoy!')
repeat
wait(500)
sendkeys(color + (effect + (text)))
talktimes:= talktimes + 1
wait(300)
sendkeysvb('{ENTER}',false)
wait(waitT)
until(false)
end;
end;

procedure manualtype;
begin
if AM = false then
begin
writeln('you have chosen manual type. Enjoy!')
repeat
wait(100)
if isfkeydown(1) = true then
begin
sendkeys(color + (effect + (text)))
talktimes:= talktimes + 1
wait(300)
sendkeysvb('{ENTER}',false)
end;
until(false)
end;
end;

begin
calibrate;
wait(10)
autotype;
wait(10)
manualtype;
end.

tell me what u think.