I made few changes regarding your talking:
SCAR Code:
{==============================================================================]
[ -CLAN PROMOTER! By mysterious123- ]
[==============================================================================]
[ Welcome to mysterious123's first script. This script promotes your clan. ]
[ (Don't worry if you haven't set the clan name and such, ]
[ just read the instructions.) ]
[==============================================================================]
[ -Instructions- ]
[==============================================================================]
[ Set Lines 35 To 37 & From 46 To 49. ]
[==============================================================================]
[ -Credits- ]
[==============================================================================]
[ ]
[ * Mixster - Guided me on IRC for hours. ]
[ ]
[==============================================================================}
program ClanPromoter;
{.include srl/srl.scar}
Var
x: Integer;
var TalkTSA: TStringArray;
Const
Runs=7;
Username=''; //Insert the username you wish to promote.
Clanname=''; //Insert the clan name.
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; //Insert your Username
Pass := ''; //Insert your Password
Nick := ''; //Insert a 3-4 letter nickname
Active := True; //Since it's the only player, leave it True!
end;
end;
Procedure SetAnyonea; // Who can enter chat?
Var
posax,posay:Integer;
begin
Mouse(102,112,10,10,false); // Clicks on Who can enter chat?
GetMousePos(posax,posay);
Mouse(posax,posay+25,10,10,true); // Sets it to Anyone
end;
Procedure SetAnyoneb; // Who can talk in chat?
Var
posbx,posby:Integer;
begin
Mouse(125,152,10,10,false); // Clicks On Who can talk in chat?
GetMousePos(posbx,posby);
Mouse(posbx,posby+25,10,10,true); // Sets it to Anyone
end;
Procedure Setnameofclan; // Sets clan name
begin
Mouse(115,70,40,10,true);
Typesend(Clanname);
end;
Procedure SetUp; // Sets up the clan
Var
x,y:Integer;
begin
Wait(500 + random(1000))
GameTab(tab_Clan);
if FindColor(x,y,6619135,547,206,751,459) then //Checks if you are in a clan or not
begin
Mouse(591,436,20,20,true); // Clicks on Leave/Join
Wait(1000 + random(3000));
Mouse(591,436,20,20,true); // Clicks on Leave/Join
Wait(1000 + random(3000));
TypeSend(Username); // Joins your clan
Wait(1000 + random(3000));
end else
begin
Mouse(591,436,20,20,true); // Clicks on Leave/Join
Wait(1000 + random(3000));
TypeSend(Username);
Wait(1000 + random(3000));
end;
Mouse(682,442,20,20,true)
Wait(2000 + random(5000));
Setnameofclan;
Wait(2000 + random(5000));
SetAnyonea;
Wait(2000 + random(5000));
SetAnyoneb;
Mouse(487,42,3,4,true); //Closes clan setup
end;
Procedure Walk; // Randomly walks
begin
Wait(1000 + random(3000));
Mouse(260,159,50,50,true);
end;
procedure SetupTalk;
begin
TalkTSA := ['Join "' + Username + '" for the best clan!', 'Join "' + Username + '" for the best clan ever!',
'Join "' + Username + '" for the best clan ever!!!!', 'wave2: Join "' + Username + '" for the best clan ever!',
'cyan:shake: Join "' + Username + '" for the best clan ever!', 'Join "' + Username + '" for the best clan ever!',
'Join "' + Username + '" for the best clan ever!!', 'Join "' + Username + '" for the best clan ever!'];
end;
begin
x := 0;
ClearDebug;
SetupSRL;
SetupTalk;
DeclarePlayers;//Calls the procedure.
LoginPlayer;//Logs your player into the game.
SetAngle(True);
SetUp;
Repeat
case Random(13) of
0,9,10,11,12: Walk;
1: TypeSend( TalkTSA[ Random( High( TalkTSA ) ) ] );
2: TypeSend( TalkTSA[ Random( High( TalkTSA ) ) ] );
3: TypeSend( TalkTSA[ Random( High( TalkTSA ) ) ] );
4: TypeSend( TalkTSA[ Random( High( TalkTSA ) ) ] );
5: TypeSend( TalkTSA[ Random( High( TalkTSA ) ) ] );
6: TypeSend( TalkTSA[ Random( High( TalkTSA ) ) ] );
7: TypeSend( TalkTSA[ Random( High( TalkTSA ) ) ] );
8: TypeSend( TalkTSA[ Random( High( TalkTSA ) ) ] );
end;
Wait(1000 + random(3000))
x:=x+1;
until( x >= Runs );
end.
Saves the trouble of having so many different procedures.
Just some small things how i like to code, space after every comma, and True / False capitalized.
After begin indent for 2 spaces, after end continue as normal. Like this:
SCAR Code:
//You have:
Procedure Setnameofclan; // Sets clan name
begin
Mouse(115,70,40,10,true);
Typesend(Clanname);
end;
//I would recommend doing like:
Procedure Setnameofclan; // Sets clan name
begin
Mouse(115, 70, 40, 10, True);
Typesend(Clanname);
end;
Also, spaces between operators and conditions, like your until in the main:
Anyway, fixed up the whole script a little, take a look:
SCAR Code:
{==============================================================================]
[ -CLAN PROMOTER! By mysterious123- ]
[==============================================================================]
[ Welcome to mysterious123's first script. This script promotes your clan. ]
[ (Don't worry if you haven't set the clan name and such, ]
[ just read the instructions.) ]
[==============================================================================]
[ -Instructions- ]
[==============================================================================]
[ Set Lines 35 To 37 & From 46 To 49. ]
[==============================================================================]
[ -Credits- ]
[==============================================================================]
[ ]
[ * Mixster - Guided me on IRC for hours. ]
[ ]
[==============================================================================}
program ClanPromoter;
{.Include SRL/SRL.scar}
var x: Integer;
TalkTSA: TStringArray;
const Runs=7;
Username=''; //Insert the username you wish to promote.
Clanname=''; //Insert the clan name.
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; //Insert your Username
Pass := ''; //Insert your Password
Nick := ''; //Insert a 3-4 letter nickname
Active := True; //Since it's the only player, leave it True!
end;
end;
Procedure SetAnyonea; // Who can enter chat?
var posax, posay: Integer;
begin
Mouse(102,112,10,10,false); // Clicks on Who can enter chat?
GetMousePos(posax,posay);
Mouse(posax,posay+25,10,10,true); // Sets it to Anyone
end;
procedure SetAnyoneb; // Who can talk in chat?
var posbx, posby: Integer;
begin
Mouse(125, 152, 10, 10, False); // Clicks On Who can talk in chat?
GetMousePos(posbx, posby);
Mouse(posbx, posby+25, 10, 10, True); // Sets it to Anyone
end;
procedure Setnameofclan; // Sets clan name
begin
Mouse(115, 70, 40, 10, True);
Typesend(Clanname);
end;
procedure SetUp; // Sets up the clan
var x,y:Integer;
begin
Wait(500 + Random(1000));
GameTab(tab_Clan);
if FindColor(x, y, 6619135, 547, 206, 751, 459) then begin //Checks if you are in a clan or not
Mouse(591, 436, 20, 20, True); // Clicks on Leave/Join
Wait(1000 + Random(3000));
Mouse(591, 436, 20, 20, True); // Clicks on Leave/Join
Wait(1000 + Random(3000));
TypeSend(Username); // Joins your clan
Wait(1000 + Random(3000));
end else begin
Mouse(591, 436, 20, 20, True); // Clicks on Leave/Join
Wait(1000 + Random(3000));
TypeSend(Username);
Wait(1000 + Random(3000));
end;
Mouse(682,442,20,20,true)
Wait(2000 + Random(5000));
Setnameofclan;
Wait(2000 + Random(5000));
SetAnyonea;
Wait(2000 + Random(5000));
SetAnyoneb;
Mouse(487, 42, 3, 4, True); //Closes clan setup
end;
Procedure Walk; // Randomly walks
begin
Wait(1000 + Random(3000));
Mouse(260, 159, 50, 50, True);
end;
procedure SetupTalk;
begin
TalkTSA := ['Join "' + Username + '" for the best clan!', 'Join "' + Username + '" for the best clan ever!',
'Join "' + Username + '" for the best clan ever!!!!', 'wave2: Join "' + Username + '" for the best clan ever!',
'cyan:shake: Join "' + Username + '" for the best clan ever!', 'Join "' + Username + '" for the best clan ever!',
'Join "' + Username + '" for the best clan ever!!', 'Join "' + Username + '" for the best clan ever!'];
end;
begin
x := 0;
ClearDebug;
SetupSRL;
SetupTalk;
DeclarePlayers; //Calls the procedure.
LoginPlayer; //Logs your player into the game.
SetAngle(True);
SetUp;
repeat
case Random(13) of
0, 9, 10, 11, 12: Walk;
1: TypeSend( TalkTSA[ Random( High( TalkTSA ) ) ] );
2: TypeSend( TalkTSA[ Random( High( TalkTSA ) ) ] );
3: TypeSend( TalkTSA[ Random( High( TalkTSA ) ) ] );
4: TypeSend( TalkTSA[ Random( High( TalkTSA ) ) ] );
5: TypeSend( TalkTSA[ Random( High( TalkTSA ) ) ] );
6: TypeSend( TalkTSA[ Random( High( TalkTSA ) ) ] );
7: TypeSend( TalkTSA[ Random( High( TalkTSA ) ) ] );
8: TypeSend( TalkTSA[ Random( High( TalkTSA ) ) ] );
end;
Wait(1000 + Random(3000))
Inc(x);
until(x >= Runs);
end.
Also, you had random() instead of Random(), write them as they are meant to write! 
Anyways, nice script.