# colors suck!!!!!!
# let's fuck those lamers.
# AltBlue 2000

set antik_version "v1.0"
set antik_reason "4c5o6l7o8r9s0 suck!"


bind pubm - "*" antik_pub
bind ctcp - ACTION antik_ctcp

proc antik_ctcp {nick uhost hand chan key arg} {
	antik_checkup $nick $uhost $chan $arg
}

proc antik_pub {nick uhost hand chan arg} {
#	putlog "nick: $nick uhost: $uhost hand: $hand chan: $chan arg: $arg"
	antik_checkup $nick $uhost $chan $arg
}

proc antik_checkup {nick uhost chan arg} {
	global botnick
	if {[string tolower $nick] == [string tolower $botnick]} {return 0}
	if {![isop $botnick $chan]} {return 0}

	if { [string match "**" $arg] } {
		antik_punish $nick $uhost $chan
	}
}

proc antik_punish {nick uhost chan} {
	global antik_reason
	putserv "KICK $chan $nick :$antik_reason" 

	putlog "AntiK: $nick ($uhost) used colors on $chan"
}


putlog "AntiK $antik_version loaded. Colors SUCK!"