Well this is my first script i have made this is basically a auto talker with login please post comments, bugs and advice on this script
thanks 
looking foraward to reviews
SCAR Code:
//Please do not post this script without my permission
//Autotype with Login Created by elite_h4x
//special thanks to Hobbit for helping me with this script
program thename;
{.include SRL/SRL.scar}
const TheMessage='ddd';//This is the message u want it to say
HowManyMsgs=2; //This is how many times u want it to say. it set-1 for unlimited
Username='pure might12'; //the name of the acc ur using
Password='*****'; //the password
UseLogin= 'True'; // Set as True or False
var
x:Integer;
procedure Login;
begin //This is the login precedure
MoveMouse(445,289);
wait(100+random(250));
ClickMouse(445,289,true);
wait(200+random(200));
typesend (Username);
typesend (Password);
MoveMouse (299,319);
ClickMouse(299,319,true);
wait(4000+random(500));
MoveMouse (381,333);
ClickMouse(381,333,true);
wait(2000+random(2000));
end;
procedure Talk;
begin
x:=0;
repeat // the beauty of the untill loop
wait(1000+random(750));
typesend (TheMessage);
wait(250+random(250));
x:= x + 1;
until(x >= (HowManyMsgs))
end;
begin
if(UseLogin= 'True')then
begin
Login;
Talk;
end;
if(UseLogin= 'False')then
begin
Talk;
end;
end.