on *:input:*:{ 
  if $left($1,1) != / { 
    if $window($active).type == channel { msg $active $regsubex($regsubex($1-,/((^[^A-Z])|((\.|\?)(.)))/g,$upper($replace(\1,i,İ,ı,I))),/(\S+)/gi,$iif(\1 ison #,$+(<04,\1,,>),\1)))) } 
    elseif $window($active).type == query { msg $active $regsubex($regsubex($1-,/((^[^A-Z])|((\.|\?)(.)))/g,$upper($replace(\1,i,İ,ı,I))),/(\S+)/gi,$iif(\1 == $active,$+(<04,\1,,>),\1)))) }
    halt
  }
}