ok this is my first script after reading about 30 tuts lol well here it is i hope you like it also give me sum suggestions to make better
also it includes sum anti ban features 
SCAR Code:
program MyFirstAlcerScript;
{.include SRL/SRL.scar}
{ setup down there lol made bye radiclerobby }
{VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV}
const
alcs = 2; // how many times you want to alc this item
antiban = true; // if you want to use the anti ban where it talks
{^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\ setup right up there/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
var
i:Integer;
procedure nonbanage;
begin
if (i = 20) THEN
begin
typesend('wooo almost done!')
end else
if(i = 45) then
begin
typesend('not much longer now')
end else
if(i =70) then
begin
typesend('omg this is taking forever')
end else
if(i=200) then
begin
typesend('so many alcs to do =(')
end else
if(i=325) then
begin
typesend('my magic level is profiting off this at least')
end else
if(i=450) then
begin
typesend('my mage lvl is none of you bussiness lol')
end;
end;
procedure Alc;
begin
Mouse(571,360,4,4, true);
wait(1000+random(300));
Mouse(579,227,4,4, true);
wait(1000+random(100));
end;
begin
ClearDebug;
i:= 0;
ActivateClient;
RandomMovement;
begin;
mousespeed:=25+random(5)
repeat;
if(antiban = true) then
begin
nonbanage;
end;
i:= i + 1;
gametab(7);
Alc;
until(i = alcs);
end;
begin
pickupmouse;
end;
begin;
Logout;
end;
end.