on !*:text:!remblk *:#,?: { 
  if ($nick == `Tom-) { 
    var %file = black.ini 
    if ($read(%file,nw,$2)) write $+(-dl,$readn) %file $2 
    msg $nick $chan is no longer black listed
  } 
}
on !*:TEXT:!blk *:#,?:{ 
  IF ($nick == `Tom-) { 
    write black.ini $2- 
    msg $nick $2 is black listed
  }
  else { 
    msg $nick you don't have access to that command 
  }
}
on *:INVITE:#:{
  IF $read(black.ini,w,$chan) { 
    notice $nick $chan is blacklisted 
  }  
  ELSE {
    msg $nick Hello $nick I am HawtBot and it appears you invited me into $chan $+ . To function properly I do require half-op. Type !commands to find out what I do. If you have any questions or problems then please go to #hawt, my owner will be in there. Enjoy!.
    timer 1 3 join $chan
  }
}