sonuna nokta koymaz. Bunlar harici biten bir kelime veya cümle sonuna nokta koyar.
Fazla test şansım olmadı. Umarım hata vermez, bir dene bakalım. İyi forumlar.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*:{
if !$istok(/ ! .,$left($1,1),32) {
if $window($active).type == channel { msg $active $regsubex(_yz,$regsubex(yz_,$1-,/(\S+)/g,$iif(\1 ison #,$+( ,\1, ,),\1)),/(?<=^|\.)(\s.|.)/g,$upper(\1)) $+ $iif(!$istokcs(Ş ş ı Ç ç ğ Ğ İ Ö ö Ü ü,$left($mid($regml(yz_,$regml(yz_,-1)),-2),1),32) && $left($mid($regml(yz_,$regml(yz_,-1)),-2),1) !isalpha || $mid($regml(yz_,$regml(yz_,-1)),-1) !isalpha,$null,$chr(46)) }
elseif $window($active).type == query { msg $active $regsubex(_yz,$regsubex(yz_,$1-,/(\S+)/g,$iif(\1 == $active,$+( ,\1, ,),\1)),/(?<=^|\.)(\s.|.)/g,$upper(\1)) $+ $iif(!$istokcs(Ş ş ı Ç ç ğ Ğ İ Ö ö Ü ü,$left($mid($regml(yz_,$regml(yz_,-1)),-2),1),32) && $left($mid($regml(yz_,$regml(yz_,-1)),-2),1) !isalpha || $mid($regml(yz_,$regml(yz_,-1)),-1) !isalpha,$null,$chr(46)) }
halt
}
}