procedure FlashTopic(ServerID: Integer; Channel: String);
procedure ScrollTopic(ServerID: Integer; Channel: String);
procedure DNS(Server: Integer; Host: String);
function GetFunctionNames: String;
procedure cline(ServerID: Integer; Window, Colour, BackColour: String; Line: Integer);
function GetPosition(ServerID: Integer; Channel, Nick: String): Integer;
function AwayReason(ServerID: Integer): string;
function AmAway(ServerID: Integer): Boolean;
function IsPagerOn(ServerID: Integer): boolean;
function MatchHost(WildHost, Host: String): Boolean;
function MyHost(ServerID: Integer): String;
function MyIP(ServerID: Integer): String;
function GetUserInfo(ServerID: Integer; Nick: String): TIRCUser;
procedure Cmd(ServerID: Integer; Command: String);
procedure SetTitle(Title: string);
procedure SetCaption(ServerID: Integer; Window: string; Caption: string);
function UTC: TDateTime;
procedure Sleep(Milliseconds: Integer);
function GetTickCount: Integer;
function GetSelectedUsers(ServerID: Integer; Channel: String): String;
function GetChanUsers(ServerID: Integer; Channel: String): String;
function GetChanUsersEx(ServerID: Integer; Channel: String): String;
function GetChannels(ServerID: Integer): String;
function GetIRCTime(ServerID: Integer): Integer;
function Duration(Milliseconds: Integer): string;
procedure Nserver(ServerName: string; Profile: string; Port: Integer);
procedure server(ServerName: string; Profile: string; Port: Integer);
procedure Say(Text: string);
procedure Act(Text: string);
procedure Msg(ServerID: Integer; Target: string; Text: string);
procedure AMe(ServerID: Integer; Text: String);
procedure AMsg(ServerID: Integer; text: string);
function ShortOS: string;
function OS: string;
function GetProfileFile(ServerID: Integer): string;
procedure DCCChat(ServerID: Integer; Nick: string);
procedure DCCSend(ServerID: Integer; Nick, Filename: string);
function GetTopic(ServerID: Integer; Channel: String): String;
function GetActiveWindowType: TFormType;
function IsIP(Address: string): Boolean;

function GetServerName(IDNum: Integer): string;
function LongOS: string;
function NiceDate(DateX: TDateTime): string;
procedure Run(URL: string);
procedure SetIcon(IconFile: string);
function PluginDir: string;
function ProfileDir: string;
function ScriptDir: string;
function bersIRCDir: string;
function GetTimeZone: string;
function GetTimeZoneLong: string;
procedure Raw(ServerID: Integer; Command: string);
procedure Quote(ServerID: Integer; Command: string);
procedure Halt;
function Prompt(Query: string): string;
function PromptEx(Query, Caption, Default: string): string;
procedure Echo(Color: String; Flags, Target, Text: string; ServerID: Integer);
function GetCountry(Code: string): string;
function GetMajorVersion: string;
function GetMinorVersion: string;
function GetBuildVersion: string;
function GetReleaseVersion: string;
function GetProfile: string;
function GetSysColors: Integer;
function Random(Int: Integer): Integer;
procedure SendCTCPReply(Target, Command, Reply: string; ServerID: Integer);

function GetBCol(ColorID: TBColor): string;
function GetBColPref(ColorID: TBColor): string;

function GetCol(ColorID: TBColor): string;

function FindWindow(ClassName: string; Title: string): Integer;
function SizeOf(X: Variant): Integer;
procedure GetWindowText(Handle: HWND; var Title: string; Count: Integer);

{ String search }
function ScanF(const Source, Search: AnsiString; Start: Integer): Integer;
function ScanFF(const Source, Search: AnsiString; Start: Integer): Integer;
function ScanR(const Source, Search: AnsiString; Start: Integer): Integer;
function ScanW(const Source, Search: AnsiString; var Start: Integer): Integer;
function ScanOR(const Source, Search: AnsiString; Start: Integer): Integer;
function ScanRX(const Source, Pattern: AnsiString; var Start: Integer): Integer;

{ Tokens }
function GetToken(const Source: AnsiString; Index: Integer): AnsiString;
function GetTokenCnt(const Source: AnsiString): Integer;

function GetFirstToken(TokenText: String): String;
function GetNextToken: String;
function GetRemainingTokens: String;
function StripNonAlpha(AString: String): String;

{ String modify }
function TitleCase(Source: AnsiString): string;
function ReplaceSC(Source: AnsiString; const Target, Replace: AnsiString; CFlg: Boolean): string;
function ReplaceC(Source: AnsiString; const X, Y: Char): string;
function DeleteC(Source: AnsiString; const X: Char): string;

{ MIRC Methods }
function hFile(Caption, Path, Filter: string): string;
function sDir(Caption, Folder: string): string;
function Dir(Caption, Path, Filter: string): string;

{ Win API stuff }
function GetWinDir: string;
function GetSysDir: string;
function GetTmpDir: string;
function GetPCName: string;
function GetWinVer: TOSName;

{ misc hyperstring }
function GetClipText: AnsiString;
function SetClipText(const Source: AnsiString): Boolean;
function GetUser: AnsiString;
function GetNetUser: AnsiString;

{ IRC Specific }
function ActiveServer: Integer;
function IsOp(ServerID: Integer; Nick, Channel: string): Boolean;
function IsVoice(ServerID: Integer; Nick, Channel: string): Boolean;
function IsSubop(ServerID: Integer; Nick, Channel: string): Boolean;
function IsOn(ServerID: Integer; Nick, Channel: string): Boolean;
function IsReg(ServerID: Integer; Nick, Channel: string): Boolean;
function IsOwner(ServerID: Integer; Nick, Channel: string): boolean; { IRCX }

procedure Channel(ChannelName: string);
procedure Query(ServerID: Integer; Nick: string);
procedure CTCP(ServerID: Integer; Nick, Query, Parms: string);
procedure Onotice(ServerID: Integer; Chan, Text: string);

function Me: string;
procedure Join(ServerID: Integer; Channels: string; Key: string);

function GetChanModes(ServerID: Integer; Channel: string): string;
function GetchanLimit(ServerID: Integer; Channel: string): Integer;
function GetChanKey(ServerID: Integer; Channel: string): string;
procedure Ban(ServerID: Integer; Channel: string; User: string; Level: Byte);
procedure Kick(ServerID: Integer; Channel, User, Reason: string);

function GetUserCount(ServerID: Integer; Channel: string): Integer;
function GetOpCount(ServerID: Integer; Channel: string): Integer;
function GetSubopCount(ServerID: Integer; Channel: string): Integer;
function GetVoiceCount(ServerID: Integer; Channel: string): Integer;
function GetNormalCount(ServerID: Integer; Channel: string): Integer;
function GetOwnerCount(ServerID: Integer; Channel: string): Integer; { IRCX }

procedure AddFavorite(Channel, Description, network: string; Hidden: Boolean);
procedure SPlay(Sound: string);
procedure Ignore(ServerID: Integer; User, Parameters: string; Level: Integer);

function IgnoreMatch(ServerID: Integer; Hostmask: string): Boolean;
function ServerISIRCX(ServerID: Integer): Boolean;

function GetStyle: string;

procedure Close(WinTitle: String);
procedure CloseEx(ServerID: Integer; WinTitle: String);
procedure minimize(WinTitle: String);
procedure minimizeEx(ServerID: Integer; WinTitle: String);
procedure maximize(WinTitle: String);
procedure maximizeEx(ServerID: Integer; WinTitle: String);
procedure restore(WinTitle: String);
procedure restoreEx(ServerID: Integer; WinTitle: String);

procedure tile;
procedure Cascade;



{ menus }
function AddMenuItem(MenuID: Integer; Caption: string; AliasName: string): Integer;
function AddMenuItemEx(MenuID: Integer; Caption: string; AliasName: string;
  Bitmap: TFilename; Enabled: Boolean; Checked: Boolean; Default: Boolean;
  RadioItem: Boolean; RadioIndex: Integer; Visible: Boolean; ImageIndex: Integer): Integer;
procedure ClearMenu(MenuID: Integer);
procedure SetMenuEnabled(MenuID: Integer; State: Integer);
procedure SetMenuChecked(MenuID: Integer; state: Integer);
procedure SetMenuVisible(MenuID: Integer; state: Integer);
procedure RemoveMenuItem(MenuID: Integer);
procedure SetMenuCaption(MenuID: Integer; Caption: string);
function MenuChecked(MenuID: Integer): Boolean;

{ class based funcs }
function GetServers: TStringList;
function GetServerCount: Integer;
function GetServerNames: TStringList;
function GetServer(IDNum: Integer): TIRCServer;
function RunForm(FileName: string): TForm;
function GetVersion: TVersionInfo;



{ Some classes etc. }

  TFormType = (ftChannel, ftQuery, ftDCCChat, ftDCCFile, ftStatus, ftNone);

  TBColor = (bcAction, bcCTCP, bcHighlight, bcInfo, bcInfo2, bcInvite, bcJoin, bcKick,
                bcMode, bcNick, bcNormal, bcNotice, bcNotify, bcOther, bcOwn, bcPart, bcQuit,
                bcTopic, bcWallops, bcWhois, bcServer, bcError, bcDCC, bcNickList, bcNicklistText,
                bcCommandLine, bcCommandLineText, bcViewer, bcAllNicks, bcOwnNick);

  TVersionInfo = class
  private
    FMajor: Integer;
    FMinor: Integer;
    FRelease: Integer;
    FBuild: Integer;
  public
    property Major: integer read FMajor write FMajor;
    property Minor: integer read FMinor write FMinor;
    property Release: integer read FRelease write Frelease;
    property Build: integer Read FBuild write FBuild;
  end;

  TIRCServer = class
  private
    FID: Integer;
    FAddress: string;
    FPort: Integer;
  public
    property ID: integer read FID write FID;
    property Address: string read FAddress write FAddress;
    property Port: Integer read FPort write FPort;
  end;

  TIRCUser = class
  private
    FNick: string;
    FAddress: string;
    FLevel: Integer;
  public
    property Nick: string read FNick write FNick;
    property Address: string read FAddress write FAddress;
    property Level: Integer read FLevel write FLevel;
  end;