on *:input:*:*:{
if (($left($1,1) == $readini($mircini,text,commandchar)) || ($left($$1,1) == !) || ($left($$1,1) == @) || ($ctrlenter == $true)) { return }
msg $active $replace($$1-,O,0)
haltdef
}
try something like that
this has been covered on the message board here many times
you will find many many examples of input scripts by using the search feature on the message board