Miscellany

set vPubchar "."

proc pPubchar {} {
  global vPubchar
  return $vPubchar
}

bind PUB lo|lo [pPubchar]add pAdduser

proc pAdduser {nick uhost hand chan text} {
  set arguments [split [string trim $text]]
  switch -- [llength $arguments] {
    1 {
      set who [join [lindex $arguments 0]]
      if {[onchan $who]} {
        set host *!*@[join [lindex [split [getchanhost $who] @] 1]]
        adduser $who $host
      } else {putserv "PRIVMSG $chan :$nick is not on a bot channel"}
    }
    2 {
      set who [join [lindex $arguments 0]]
      set host [join [lindex $arguments 1]]
      adduser $who $host
    }
    default {putserv "PRIVMSG $chan :correct syntax is [pPubchar]add <nick> ?hostmask?"}
  }
}


bind join - * RanaUsman:wjoin

proc RanaUsman:wjoin {nick host handle chan} {
global urchan reason banmask who 
if {(([lsearch -exact [string tolower $urchan] [string tolower $chan]] != -1)  || ($urchan == ""))} {
 if {[matchattr $nick p]} { return 0 } elseif {[isbotnick $nick] == 1} { return 0 } elseif {[matchattr $host p]} {return 0} 

else {
                putquick "MODE $chan +b $nick"
		putquick "KICK $chan $nick :$reason"
  }
 }
}      


#Ever Seen such simple coding ??? eh