on *:input:*:{ 
  if !$istok(/ ! .,$left($1,1),32) { 
    if $window($active).type == channel { msg $active $regsubex(_yz,$regsubex(yz_,$1-,/(\S+)/g,$iif($regsubex(\1,/(\W)/g,\t) ison #,$+(,\1,,),\1)),/(?<=^|\.)(\s.|.)/g,$upper(\1)) $+ $iif($len($regml(yz_,$regml(yz_,0))) == 1 && !$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS),$iif($mid($regml(yz_,$regml(yz_,0)),-1) !isalnum,$null,$+(,$chr(46),)),$iif(!$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS) && $mid($regml(yz_,$regml(yz_,0)),-2) !isalnum,$null,$+(,$chr(46),))) }
    elseif $window($active).type == query { msg $active $regsubex(_yz,$regsubex(yz_,$1-,/(\S+)/g,$iif($regsubex(\1,/(\W)/g,\t) == $active,$+(,\1,,),\1)),/(?<=^|\.)(\s.|.)/g,$upper(\1)) $+ $iif($len($regml(yz_,$regml(yz_,0))) == 1 && !$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS),$iif($mid($regml(yz_,$regml(yz_,0)),-1) !isalnum,$null,$+(,$chr(46),)),$iif(!$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS) && $mid($regml(yz_,$regml(yz_,0)),-2) !isalnum,$null,$+(,$chr(46),))) }
    halt
  }
}