var
	when : array [0 .. 11] of String;
	msg : array [0 .. 11] of String;

procedure ActivateServer;
var
	i : Byte;
begin

	when[0] := '19:00:00';
	when[1] := '99:00:00';
	when[2] := '99:00:00';
	when[3] := '99:00:00';
	when[4] := '99:00:00';
	when[5] := '99:00:00';
	when[6] := '99:00:00';
	when[7] := '99:00:00';
	when[8] := '99:00:00';
	when[9] := '99:00:00';
	when[10] := '99:00:00';
	when[11] := '99:00:00';

	msg[0] := 'MSG';
	msg[1] := 'MSG';
	msg[2] := 'MSG';
	msg[3] := 'MSG';
	msg[4] := 'MSG';
	msg[5] := 'MSG';
	msg[6] := 'MSG';
	msg[7] := 'MSG';
	msg[8] := 'MSG';
	msg[9] := 'MSG';
	msg[10] := 'MSG';
	msg[11] := 'MSG';
end;

procedure Reload;
begin
	ActivateServer;
end;

procedure AppOnIdle(Ticks : Integer);
var
	i : Byte;
	s : String;
begin
	s := FormatDate('hh:mm:ss');

	for i := 0 to 11 do
	if s = when[i] then
	Command('/say '+ msg[i]);
end;