Clan Chat

[Rich]

{*******************************************************************************
procedure GetInChat(channel: string);
By: Akwardsaw
Description: It will get you into a Clan Chat channel, if it exists.
             If no Specific Channel, leave as GetInChannel('');
*******************************************************************************}

procedure GetInChat(channel: string);
var channelarray: tstringarray;
begin
  if not FindCCTab then exit;
  if not inclanchat then
  begin
    begin
      Mousebox(571, 438, 625, 453, 1);
      wait(100);
    end;
    if channel = '' then
    begin
      channelarray:= ['dewll dragon', 'spaderdabomb', 'Strings Mas',
                      'Zeth317', '0wn3d xx', 'Miljaker', 'Trawler Fish', 'Sir Nrop',
                      'Diy Chat', 'Seraphyna', 'zach5433', 'Cake753', 'World65edge',
                      'Mr Sniper1', 'Jsen', 'Quirk_X', 'Sworddude247', 'munyacct5',
                      'ashcon4', 'Gastrophete', 'Ot Chatroom', 'Meimaskiller',
                      'Xhuntahx'];
      Typesend(channelarray[Random(Length(channelarray))]);
    end else typesend(channel);
    while inclanchat = false do wait(100);
  end;
end;

Could be

{*******************************************************************************
procedure GetInChat(channel: string);
By: Akwardsaw
Description: It will get you into a Clan Chat channel, if it exists.
             If no Specific Channel, leave as GetInChannel('');
*******************************************************************************}

procedure GetInChat(channel: string);
var channelarray: tstringarray;
begin
  if not FindCCTab then exit;
  if not inclanchat then
  begin
    Mousebox(571, 438, 625, 453, 1);
    wait(100);
    if channel = '' then
    begin
      channelarray:= ['dewll dragon', 'spaderdabomb', 'Strings Mas',
                      'Zeth317', '0wn3d xx', 'Miljaker', 'Trawler Fish', 'Sir Nrop',
                      'Diy Chat', 'Seraphyna', 'zach5433', 'Cake753', 'World65edge',
                      'Mr Sniper1', 'Jsen', 'Quirk_X', 'Sworddude247', 'munyacct5',
                      'ashcon4', 'Gastrophete', 'Ot Chatroom', 'Meimaskiller',
                      'Xhuntahx'];
      Typesend(channelarray[Random(Length(channelarray))]);
    end else typesend(channel);
    while inclanchat = false do wait(100);
  end;
end;

Meh, it's two lines shorter.

[Awkwardsaw]

well, the less lines the faster it is right? although its very very very small difference

besides, i like it when people look through stuff and change things around