clan

set msgjoin "Hello, Welcome to Dartians Clan"
set pickupchan "#dartiansbot"

bind pub o|o !kick pub:kick
proc pub:kick { nickname user handle channel } {
  set whom [lindex $text 0]
  set reason [lrange $text 1 end]
  if {[onchan $whom $chan]} {
    putserv "KICK $chan $whom :$reason"
  } else {
    puthelp $chan "$nick: $whom is not on $chan"
  }
}

bind join - * msgjoin

proc msgjoin { nickname user handle channel } {
global msgjoin pickupchan botnick
if {$chan == $pickupchan} { 
putserv "NOTICE $nickname :Hi Welcome to Dartians Channel $nickname . $msgjoin"
}
}

bind pub - !site site

proc site { nickname user handle channel } {
global botnick pickupchan
if { $chan == $pickupchan } {
putserv "NOTICE $nick :www.dartians.gr" 
}
}

bind pub - !clanmembers clanmember

proc clanmember { nickname user handle channel } {
global botnick pickupchan
if { $chan == $pickupchan } {
putserv "NOTICE $nick :LoW" 
}
}

bind pub o|o !ban ban


proc ban { nickname user handle channel } {
  set whom [lindex $text 0]
  set reason [lrange $text 1 end]
  if {[onchan $whom $chan]} {
    putserv "/mode $chan +b $whom :$reason"
    putserv "KICK $chan $whom :$reason"
  } else {
    puthelp $chan "$nick: $whom is not on $chan"
  }
}