botname = "" 
minutes = 300
file = "timer.txt" 
a = 0
b = 0
gb = 0 * 1024 * 1024
gb1 = 15 * 1024 * 1024
bot_name = "¨˜”°º•Hawk•º°”˜¨" 
bot_name1 = "Billy" 
bot_name2 = "Bob" 
OpChatName = "¨°º.Hawks-Closet.º°¨"
OpChatDesc = "¨°º.Hawks-Hiding-Place.º°¨"
OpChatSpeed = "HaHa"
bot_email = "hawk@hawks-world.com" 
bot_speed = "slow" 
bot_descr1 = "¨''°º.Hûbš  'ÎñçõrpõrãTêd  ÑëTwõrk.º°''¨" 
bot_descr2 = "      ¨''°º.Hawks Network {UK}.º°''¨" 
bot_descr3 = "      Type !reghelp in main chat" 
bot_descr4 = "      and follow the instructions" 
bot_descr5 = "         www.hawks-world.com" 
bot_descr6 = "               ! ! ! ENJOY ! ! !" 
bot_share_size = 1 * 1024 * gb
bot_share_size1 = 1 * 1024 * gb1
my_info_opchat = "$MyINFO $ALL "..OpChatName.." "..OpChatDesc.."$ $"..OpChatSpeed..strchar( 1 ).."$"..bot_email.."$"..bot_share_size.."$"
my_info_string1 = "$MyINFO $ALL "..bot_name.." "..bot_descr1.."$ $"..bot_speed..strchar( 1 ).."$"..bot_email.."$"..bot_share_size.."$" 
my_info_string2 = "$MyINFO $ALL "..bot_name.." "..bot_descr2.."$ $"..bot_speed..strchar( 1 ).."$"..bot_email.."$"..bot_share_size.."$" 
my_info_string3 = "$MyINFO $ALL "..bot_name.." "..bot_descr3.."$ $"..bot_speed..strchar( 1 ).."$"..bot_email.."$"..bot_share_size.."$" 
my_info_string4 = "$MyINFO $ALL "..bot_name.." "..bot_descr4.."$ $"..bot_speed..strchar( 1 ).."$"..bot_email.."$"..bot_share_size.."$" 
my_info_string5 = "$MyINFO $ALL "..bot_name.." "..bot_descr5.."$ $"..bot_speed..strchar( 1 ).."$"..bot_email.."$"..bot_share_size.."$" 
my_info_string6 = "$MyINFO $ALL "..bot_name.." "..bot_descr6.."$ $"..bot_speed..strchar( 1 ).."$"..bot_email.."$"..bot_share_size.."$" 
my_info_string7 = "$MyINFO $ALL "..bot_name1.." "..bot_descr1.."$ $"..bot_speed..strchar( 1 ).."$"..bot_email.."$"..bot_share_size1.."$" 
my_info_string8 = "$MyINFO $ALL "..bot_name1.." "..bot_descr3.."$ $"..bot_speed..strchar( 1 ).."$"..bot_email.."$"..bot_share_size1.."$" 
my_info_string9 = "$MyINFO $ALL "..bot_name1.." "..bot_descr5.."$ $"..bot_speed..strchar( 1 ).."$"..bot_email.."$"..bot_share_size1.."$" 
my_info_string10 = "$MyINFO $ALL "..bot_name2.." "..bot_descr2.."$ $"..bot_speed..strchar( 1 ).."$"..bot_email.."$"..bot_share_size1.."$" 
my_info_string11 = "$MyINFO $ALL "..bot_name2.." "..bot_descr4.."$ $"..bot_speed..strchar( 1 ).."$"..bot_email.."$"..bot_share_size1.."$" 
my_info_string12 = "$MyINFO $ALL "..bot_name2.." "..bot_descr6.."$ $"..bot_speed..strchar( 1 ).."$"..bot_email.."$"..bot_share_size1.."$" 


function Main() 
  SetTimer(minutes*60) 
   StartTimer() 
end 

function OnTimer() 
  SendToUsers()
end 

function NewUserConnected(curUser) 
  curUser:SendData( my_info_string2 ) 
  curUser:SendData( my_info_opchat ) 
end 

function OpConnected(curUser) 
  curUser:SendData( my_info_string2 ) 
  curUser:SendData( my_info_opchat ) 
end

function SendToUsers() 
a = a + 1
   if a == 1 then
     SendToAll( my_info_string1 ) 
      SendToAll( my_info_string7 ) 
     SendToAll( my_info_string10 ) 
   end
   if a == 2 then
     SendToAll( my_info_string2 ) 
   end
   if a == 3 then
     SendToAll( my_info_string3 ) 
      SendToAll( my_info_string8 ) 
     SendToAll( my_info_string11 ) 
   end
   if a == 4 then
     SendToAll( my_info_string4 ) 
   end
   if a == 5 then
     SendToAll( my_info_string5 ) 
      SendToAll( my_info_string9 ) 
     SendToAll( my_info_string12 ) 
   end
   if a == 6 then
     SendToAll( my_info_string6 ) 
   end
if a == 7 then
 a = 0
 b = b + 1
end

if b == 20 then
 MessageToAll()
b = 0
end

end 


function MessageToAll() 
 local handle = openfile(file, "r") 
  if (handle ~= nil) then 
   local line = read(handle) 
    while line do 
     SendToAll(botname,line) 
    line = read(handle) 
  end 
 closefile(handle) 
end 
end