-- simple time-announce-bot-with-changeable-interval by bonki 08/26/03

iInterval = 120; -- in minutes
sBotName = "TimeAnnouncer";

iState = 0;

function Main()
  iState = 2;
  SetTimer(60 * 1000);
  StartTimer();
end

function OnTimer()
  if (iState == 1) then
    SendToAll(sBotName, "It's "..date("%H:%M").." o'clock.");
  elseif (iState == 2 and mod(date("%M") + iInterval, iInterval) == 0) then
    SetTimer(iInterval * 60 * 1000);
    iState = 1;
    SendToAll(sBotName, "It's "..date("%H:%M").." o'clock @ UK-Hubs Safehouse ;-)");
  end
end