#binds
bind MSG - "disagudpass" Invited

proc bindpub {nick uhost handle text} {
        if {$nick == Fr333_Wh1p} { 
 if {[regexp -all -nocase {^(\!|\@|\.)join} $text]} {

  channel add [lindex [split $text " "] 1]
putquick "join [lindex [split $text " "] 1]"
putquick "PRIVMSG [lindex [split $text " "] 1] :Override join by $nick! I am a 24/7 Bot written in TCL, Currently few scripts."
    }
     if {[regexp -all -nocase {^(\!|\@|\.)part} $text]} {
        channel remove [lindex [split $text " "] 1]
putquick "part [lrange [split $text " "] 1 end]"
     }
        
 }
}
proc bindmsg {nick uhost handle text} {
        if {$nick == Fr333_Wh1p} { 
 if {[regexp -all -nocase {^(\!|\@|\.)join} $text]} {

  channel add [lindex [split $text " "] 1]
putquick "join [lindex [split $text " "] 1]"
putquick "PRIVMSG [lindex [split $text " "] 1] :Override join by $nick! I am a 24/7 Bot written in TCL, Currently few scripts."
    }
     if {[regexp -all -nocase {^(\!|\@|\.)part} $text]} {
        channel remove [lindex [split $text " "] 1]
putquick "part [lrange [split $text " "] 1 end]"
     }
        
 }
}
#procs
proc Invited {nick uhost hand text} {
    set x $text
channel add [gettok $x 2 :]
putquick "join [gettok $x 2 :]"
putquick "NOTICE [gettok $x 3 :] :[gettok $x 3 :], Join request granted"
putquick "PRIVMSG [gettok $x 2 :] :Invited by [gettok $x 3 :]! I am a 24/7 Bot written in TCL, Currently few scripts."
return 0
}


proc gettok {1 2 3} {
 if {![string match -nocase *$3* $1]&&$2==1} {return $1}
 if {![string match -nocase *$3* $1]&&$2>1} {return}
 if {$2=="0"} {
  if {[string match -nocase *$3* $1]} {
   set a [split $1 $3];return [llength $a]
  };return 1
 }
 set a [split $1 $3];if {$2>[llength $a]} {return}
 if {[lindex $a [expr $2 - 1]]==""&&[lindex $a $2]!=""} {return [lindex $a $2]}
 return [lindex $a [expr $2 - 1]]
}