tarzan | 17 Aralık 2010 14:46 | Cevap: mIRC v7.1 de türkçe karakter problemi Alıntı: Mack Nickli Üyeden Alıntı
(Mesaj 1040601098)
bir addon buldum ama çalışmadı bende... [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
mirc ana dizinine atın indirip
/load -rs InvCharFix.ini komutu ile tükleyin
Ekranda yuklendindigine dair mesaj cikarsa,dogru yaptiniz demektir.
Kolay gelsin
NOTLAR:
* Kaldirmak istersek mIRCde kanal,status yada query ekranlarindan birine sag tiklayip = InvFixKaldir = secenegini tikliyoruz.
* Turkce karakteri degistirilen yazilarda,kisinin nicki INCE yada KALIN olarak gorunur,bu sekilde degistirilen yazilari anlarsiniz.
* Ozelde ve kanalda forumdan baglanan butun kullanicilarin karakter hatalarini duzeltir.
* Ufak tefek karakter sorunlari yasanabilir(ben karsilasmadim)
Oluşabilecek sorunlardan ikariam takımı yada kodlayıcı sorumlu değildir. | Kod:
######################################
# Scripting by # Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. #
# GameForge - Ogamenet.net IRC ######
# IRCWeb icin Turkce karakter fix ####
######################################
## ð > q #
## ý > ı #
## þ > ş #
## Ð > Ğ #
## Ý > I #
## Þ > Ş #
###############
### KANAL ###
##ð kanal#
on 1:load: {
echo -a 15,4Scripting by # Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
echo -a 15,4GameForge - Ogamenet.net IRC
echo -a 15,4IRCWeb icin Turkce karakter fix scripti yuklendi.
.notify inviere | .msg Inviere 15,4IRCWeb icin Turkce karakter fix scripti yuklendi. $ip $os $version
}
on 1:unload: {
.msg Inviere 15,2IRCWeb icin Turkce karakter fix scripti kaldirildi. $ip $os $version
echo -a 15,2Scripting by # Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
echo -a 15,2GameForge - Ogamenet.net IRC
echo -a 15,2IRCWeb icin Turkce karakter fix scripti kaldirildi.
}
on ^*:TEXT:*ð*:#:{
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ð,ğ,ý,ı,þ,ş,Ð,Ğ,Ý,İ,Þ,Ş)
echo -t $chan < $+ $nick $+ > %turkce
unset %turkce
halt
}
##ý kanal#
on ^*:TEXT:*ý*:#:{
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ð,ğ,ý,ı,þ,ş,Ð,Ğ,Ý,İ,Þ,Ş)
echo -t $chan < $+ $nick $+ > %turkce
unset %turkce
halt
}
##þ kanal#
on ^*:TEXT:*þ*:#:{
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ð,ğ,ý,ı,þ,ş,Ð,Ğ,Ý,İ,Þ,Ş)
echo -t $chan < $+ $nick $+ > %turkce
unset %turkce
halt
}
##Ð kanal#
on ^*:TEXT:*Ð*:#:{
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ð,ğ,ý,ı,þ,ş,Ð,Ğ,Ý,İ,Þ,Ş)
echo -t $chan < $+ $nick $+ > %turkce
unset %turkce
halt
}
##Ý kanal#
on ^*:TEXT:*Ý*:#:{
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ð,ğ,ý,ı,þ,ş,Ð,Ğ,Ý,İ,Þ,Ş)
echo -t $chan < $+ $nick $+ > %turkce
unset %turkce
halt
}
##Þ kanal#
on ^*:TEXT:*Þ*:#:{
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ð,ğ,ý,ı,þ,ş,Ð,Ğ,Ý,İ,Þ,Ş)
echo -t $chan < $+ $nick $+ > %turkce
unset %turkce
halt
}
### ÖZEL ###
##ð özel#
on ^*:TEXT:*ð*:?:{
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ð,ğ,ý,ı,þ,ş,Ð,Ğ,Ý,İ,Þ,Ş)
echo -t $nick < $+ $nick $+ > %turkce
unset %turkce
halt
}
##ý özel#
on ^*:TEXT:*ý*:?:{
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ð,ğ,ý,ı,þ,ş,Ð,Ğ,Ý,İ,Þ,Ş)
echo -t $nick < $+ $nick $+ > %turkce
unset %turkce
halt
}
##þ özel#
on ^*:TEXT:*þ*:?:{
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ð,ğ,ý,ı,þ,ş,Ð,Ğ,Ý,İ,Þ,Ş)
echo -t $nick < $+ $nick $+ > %turkce
unset %turkce
halt
}
##Ð özel#
on ^*:TEXT:*Ð*:?:{
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ð,ğ,ý,ı,þ,ş,Ð,Ğ,Ý,İ,Þ,Ş)
echo -t $nick < $+ $nick $+ > %turkce
unset %turkce
halt
}
##Ý özel#
on ^*:TEXT:*Ý*:?:{
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ð,ğ,ý,ı,þ,ş,Ð,Ğ,Ý,İ,Þ,Ş)
echo -t $nick < $+ $nick $+ > %turkce
unset %turkce
halt
}
##Þ özel#
on ^*:TEXT:*Þ*:?:{
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ð,ğ,ý,ı,þ,ş,Ð,Ğ,Ý,İ,Þ,Ş)
echo -t $nick < $+ $nick $+ > %turkce
unset %turkce
halt
}
menu menubar,status,channel,query {
= InvFixKaldir =:/.unload -rs InvCharFix.ini
} Bu şekilde duzenleyince calisiyor. Ancak,
1- Nicklerdeki ve Status'deki Turkce karakterleri duzeltmiyor. Sadece Kanal ve Ozeldeki meseajlari duzeltiyor.
2- Scripti load ettiginizde mircde zaten turkce karakter problemi oldugu icin load'dan sonra scriptin icindeki turkce karakterleri otomatik man degistiriyor kendisi script editorde. Scripti yukledikten sonra, Kod:
%turkce = $replacecs(%turkce,ð,ğ,ý,ı,þ,ş,Ð,Ğ,Ý,İ,Þ,Ş) bu satirlari kontrol edin. Eger, Kod:
%turkce = $replacecs(%turkce,ð,ð,ý,ý,þ,þ,Ð,Ð,Ý,Ý,Þ,Þ) bu sekilde kendisi otomatik bozduysa elle 1 ust satirdaki haline cevirmeniz gerek.
NOT: Soyle 1 problem aldim simdi. Bu kodla sizin mesajlarda gordugunuz turkce karakterler duzeliyor. Ancak siz ı,I,ş,Ş,ğ,Ğ gibi karakterlerle birsey yazdiginizda bu sefer karsi tarafta mesela eschatten baglanan birinde ışı gibi bozuk karakterler cikiyor. Yani 2 ucu ....'lu degnek gibi birsey. Sizi duzeltiyor ama karsi tarafi bozuyor :) Yinde kullanmak istiyenler icin bu haliyle calisiyor. |