replace words for mike v0.0015

on *:INPUT:*:{ if (($ctrlenter) || ($left($1,1) == $readini(mirc.ini,text,commandchar))) { return }
  else { var %rpwds $1-
         if (alot isin %rpwds) var %rpwds $reptok(%rpwds,alot,a lot,0,32)
         if (fag isin %rpwds) var %rpwds $reptok(%rpwds,fag,mike,0,32)
         if (homosexual isin %rpwds) var %rpwds $reptok(%rpwds,homosexual,mike,0,32)
     msg $target %rpwds
     haltdef
    }
 }