#this is my first script gime all the feed back ya can :D###
set file "scripts/bad
bind pub o +abusive checban
proc checban {nick host handle chan text} {
global file handm nicke
set nicke [lindex $text 0]
set handm [getchanhost $nicke]
set found 0
set fs [open $file r]
set fsread [split [read $fs] \n]
while {![eof $fsread]} {
  gets $fs line
  if {$line == $handm} { set found 1 }
  if {$line != $handm} { set notfound 1 }
close $fs
if {$found} {
  putserv "mode $chan +b $handm"
  putserv "kick $chan $nicke"
}
}
if {$notfound} {
 set sf [open $file a]
puts $sf "$handm"
close $sf 
putserv "PRIVMSG $nicke :please dont abuse people, first and last warning"
}
}