set ruleschan "#lebanon"

bind pub - !rules rules

bind join -|- "$ruleschan *" joinmsg



proc joinmsg {nick host hand chan} {

 global botnick ruleschan 

  if {($nick != $botnick) && ([strlwr $ruleschan]==[strlwr $chan])} {

  putnotc $nick "Hello and welcome to \002$chan\002, $nick.  Please type !rules on the main channel if you need help clarifying $chan rules. Enjoy your stay! :-)"

 }gdfg

}



proc rules {nick host handle channel arg} {

global botnick ruleschan

if {![isop $botnick $channel]} {return 0}

set n2hand [nick2hand $nick $channel]

if {[regexp -nocase dcc $nick]} {return 0}

if {[isop $nick $channel]} {putserv "PRIVMSG $channel :You're a $channel Op, $nick. You should already know the rules, dumbo."}

putnotc $nick "Listing $channel user-rules:"

putnotc $nick "\002$channel [strupr prohibits]\002 any act of:"

putnotc $nick "1) \00304Flooding, Hacking, Spamming or Scanning\003"

putnotc $nick "2) \00304Bad Nicks\003 (Offensive Nicknames)"

putnotc $nick "3) \00304Swearing\003 (Offensive language, including disrespect to another user's race or color.)"

putnotc $nick "4) \00304Sexual Reference\003 and/or any act of harrassing other $channel users" 

putnotc $nick "5) \00304Religious Topics\003 (No references or discussions about religion of any kind is permitted.)"

putnotc $nick "6) \00304ONLY English and/or Arabic.\003 (which allows $channel Operators to monitor the channel easily.)"

putnotc $nick "7) \00304Politics\003. $channel allows political discussions and nicknames as long as those are still decent and non-offensive to other channels." 

putnotc $nick "Remember: $channel ops do their job for the love of the channel, they do not get paid for being ops. You are welcome to ask for assistance, but be patient for an op might be busy with someone else. You will be voiced (+v) on channel activity. Enjoy your time on $channel, $nick."

}

return 1

}