on *:text:*:#:{
  if $1 == !ters {
    if $2 == $null { msg # Lütfen Kelime Belirdiniz. | halt }
    else {
      unset %ters*
      set %tersd $2-
      if ( $chr(47) == $mid(%tersd,1,1) ) { %tersd | halt }
      set %tersu $len(%tersd)
      set %terss 1
      :ilk
      if ( %tersu == 0 ) goto son
      if ( $mid(%tersd,%tersu,1) == $chr(32) ) {
        %tersd = $replace(%tersd,$mid(%tersd,%tersu,1),$chr(0160))
      }
      %terst = $instok(%terst,$mid(%tersd,%tersu,1),%terss,0)
      dec %tersu
      inc %terss
      goto ilk
      :son
      msg # Kelime:4 %terst
      unset %ters*
      halt
    }
  }
}

«03:54:57» <ChanServ> !ters
«03:54:57» <02GhoSt> Lütfen Kelime Belirdiniz.
«03:54:59» <ChanServ> !ters selam
«03:55:00» <02GhoSt> Kelime:4 males