# This TlC will invite ALL users with a flag to the channel every 5 minutes
# it is very usefull to use on bots to invite eachother in a +i channel
# To make it invite users with another flag (+o +m ?) just change this
# on the line with [userlist - ]  sub - for the flag
#
#
#
# This Tcl was brought to you by Skreet (edwin@wit377306.student.utwente.nl)
# ftp : 130.89.232.76
# i am open for requests.




timer 1 invite_bots

proc invite_bots {} {
  global channel
  set botlist [userlist b ]
  foreach dariusbot $botlist {
  if { [onchan $dariusbot] == "0" } {
     putserv "INVITE $dariusbot $channel"
  } 
  }
timer 1 invite_bots
}