GMK Typer. v 2.6 --- PLEASE COMMENT

Ok this is a little bit updated. but this time can i get some feedback.
thanks!

Code:

{
Time usage recomendation: as long as you want!
Class of script: Autotyper
Complexity 1-10: 1.5
Bugs: None
Notes:
you can not get banned for using an autotyper as long as you dont spam.(typing so fast that you flood the chat box)

{.Script Info:
ScriptName  = GMK typer
Author      = GMK
Description = Types manualy or automaticly.
Version     = 2.6
Date        = November 5th 2007
Comments    = Add this script to your collection!
New         = Risk system added
/Script Info}

program SeanSpeak;

const
color ='white';//color of the mesage
effect ='wave2';// effect of the mesage
text = 'Buying all uncuts except diamonds ';// the message
name = 'Seanthymage';// your rs name
speed = 5000;// the speed of the autoer. in milliseconds.
Riss = true;// do you want the risk system on (true = yes  false = no)

var
talktimes:integer;
loopcount:integer;
textO:string;
x,y:integer;


procedure calibrate;
begin
talktimes:= 0
cleardebug;
writeln('-----------------------------------------------------')
writeln('welcome to GMK typer. A free script. Enjoy!')
wait(5)
writeln('you will be saying: ' + (text))
wait(5)
writeln('your color will be: ' + (color))
wait(5)
writeln('your effect will be: ' + (effect))
writeln('-----------------------------------------------------')
wait(1500)
ActivateClient;
end;



procedure Autotype;
begin
wait(4 + random(3))
sendkeys(color + ':' + (effect + ':' + (text +'{'+(name +'}'))))
talktimes:= talktimes + 1
wait(4 + random(1))
sendkeysvb ('{ENTER}',false)
wait(speed + random(50 + random(1)))
end;

procedure risk;
begin
if speed>4700 then
writeln('There is no risk of getting banned.')
if speed>6500 then
writeln('Thats pretty slow may i recommend somewhere in the 4000s')
if speed<1000 then
writeln('I recommend slowing your speed down or you will most likely get muted')
if speed=4500 then
writeln('Thats a perfect speed for autotyping')
if speed<900 then
begin
writeln('Sorry, thats way too fast. Terminating script')
terminatescript;
end;
end;

procedure Mods;
begin
if findcolorspiral(x,y,10658466,9,343,489,452) then
begin
writeln('Mod spotted. terminating script')
terminatescript;
end;
end;

begin
calibrate;
if Riss = true then
risk
loopcount:= 0
repeat
loopcount:= loopcount + 1;
wait(3)
if Riss = true then
Mods;
wait(1)
Autotype;
wait(1)
until(false)
end.

 

sorry no one has commented on this script, it does look very good, even has a way to tell you if you are autoing to fast .

 

Use typesend(text:string) instead sendkeys(sendkeys are detectable)

read some tuts from srl-forums.com