Çevrimdışı

on *:input:*:{
if (/* iswm $1) { return }
unset %yazışek*
set %yazışekliana $1-
if $regex($window($active).type,/^(channel)$/) {
var %difi 1 | while %difi <= $numtok($1-,32) {
if $token($1-,%difi,32) !ison $chan {
%yazışekli = $replace($addtok(%yazışekli,$token($1-,%difi,32),32),a,1à,b,1ß,c,1¢,d,1D,e,1é,f,1ƒ ,h,1h,i,1i,k,1k,l,1L,m,1m,n,1n,o,1o,p,1p,q ,1q,r,1r,s,1s,t,1†,u,1µ,v,1v,w,1w,x,1×,y, 1y,z,1z,ı,1ı,İ,1i,ş,1ş,Ş,1ş,ç,1¢,Ç,1¢,ğ,1q ,Ğ,1q,g,1q,ü,1ü,Ü,1ü,ö,1ö,Ö,1Ô,!,4!,?,4¿,< ,1«,>,1»,-,,-,,:,1:,',`,`,')
}
else { set %yazışeklinick $token($1-,%difi,32) }
inc %difi
}
if %yazışeklinick { %yazışekli = $instok(%yazışekli,$+(12,,%yazışeklinick,),$fin dtok(%yazışekliana,%yazışeklinick,1,32),32) | msg $active %yazışekli | halt }
}
if $regex($window($active).type,/^(query)$/) {
var %difi 1 | while %difi <= $numtok($1-,32) {
if $token($1-,%difi,32) != $active {
%yazışekli = $replace($addtok(%yazışekli,$token($1-,%difi,32),32),a,1à,b,1ß,c,1¢,d,1D,e,1é,f,1ƒ ,h,1h,i,1i,k,1k,l,1L,m,1m,n,1n,o,1o,p,1p,q ,1q,r,1r,s,1s,t,1†,u,1µ,v,1v,w,1w,x,1×,y, 1y,z,1z,ı,1ı,İ,1i,ş,1ş,Ş,1ş,ç,1¢,Ç,1¢,ğ,1q ,Ğ,1q,g,1q,ü,1ü,Ü,1ü,ö,1ö,Ö,1Ô,!,4!,?,4¿,< ,1«,>,1»,-,,-,,:,1:,',`,`,')
}
else { set %yazışeklinick $token($1-,%difi,32) }
inc %difi
}
if %yazışeklinick { %yazışekli = $instok(%yazışekli,$+(12,,%yazışeklinick,),$fin dtok(%yazışekliana,%yazışeklinick,1,32),32) | msg $active %yazışekli | halt }
}
%yazışekli = $replace(%yazışekli,1k1à1r1i1z1m1à,12]{4à12r4i12z4m12à)
%yazışekli = $replace(%yazışekli,1à.1s,4A1Léyküm 4S1éLam 4H1oş 4G1éLdin)
%yazışekli = $replace(%yazışekli,1n1à1s1ı1L1s1ı1n,4N1 àsıLsıN4..12?)
%yazışekli = $replace(%yazışekli,1h.1q,4H1oş 4G1éLdin ..)
%yazışekli = $replace(%yazışekli,1s1à1q1o1L,4S1àqoL4..)
%yazışekli = $replace(%yazışekli,1é1ƒ1é1n1D6i1m,4£1f1 é1n1d1i1m4..)
%yazışekli = $replace(%yazışekli,1s1à1q1o1L,4S1àqoL4..)
%yazışekli = $replace(%yazışekli,1h1é1h1é,4éHéµé12éhéµ10 héµ14héµ4éheµ12éheµ10éheµ14éhéµé4hé)
%yazışekli = $replace(%yazışekli,1m1¢1×,12m4¢3×)
%yazışekli = $replace(%yazışekli,1à1s1à1ß1i,4© 12A4s12à4ß12i 4®)
%yazışekli = $replace(%yazışekli,1h1à1h1à,4Ha12ha10ha14 ha4h a12ha10ha14ha4ha4)
%yazışekli = $replace(%yazışekli,1m1é1r1h1à1ß1à,4M1érh àßà 4..)
%yazışekli = $replace(%yazışekli,1s1é1L1à1m1é1t1L1é,4 S1éL àmétLé4..)
%yazışekli = $replace(%yazışekli,1i1y1i 1à1q1s1à1m1L1à1r,4İ1yi 4A1kşàmLàr4..)
%yazışekli = $replace(%yazışekli,1h1q,4H1oş 4G1éLdin ..)
%yazışekli = $replace(%yazışekli,1s.1à,4S1éLamun 4A1Léyküm 4H1oş 4S1ohßétLér4..)
%yazışekli = $replace(%yazışekli,1h.1ß,4H1oş 4ß1uLdum 4S1àqoLun4..)
%yazışekli = $replace(%yazışekli,1×1D,12×4D)
%yazışekli = $replace(%yazışekli,1h1I1m1s,4H1ı3m12s3S 4s1. 12.4.)
%yazışekli = $replace(%yazışekli,1†1m1m,4†1àmàm4..)
%yazışekli = $replace(%yazışekli,1†1à1m1à1m,4†1àmàm4..)
%yazışekli = $replace(%yazışekli,1o1q1é,4O1qé4..)
%yazışekli = $replace(%yazışekli,1é1v1é1t,4£1vét4..)
%yazışekli = $replace(%yazışekli,1y1é1s,4Y1éSs4..)
%yazışekli = $replace(%yazışekli,4© 12AgReSsivVe 4®,4© 12AgReSsivVe 4®)
%yazışekli = $replace(%yazışekli,1é1y1w1L,4£1ywL4..)
%yazışekli = $replace(%yazışekli,1k1à1n1k1à,4K1ànk'y4.. )
%yazışekli = $replace(%yazışekli,1s1é1r1s1e1r1y,12• 1S4é1r4S1é4r1y4.. 12•)
%yazışekli = $replace(%yazışekli,1n1z1L1i,12•1 N4a1z4L1i4.1. 12•)
%yazışekli = $replace(%yazışekli,1k1o1n1µ1s1ß1é,12» 1w4w1w4.1K4o1n4u1S4ß1é4.1c4o1m4 .1. 12«)
msg $active %yazışekli
halt
}


Difuzyon Coq tşq ederim yardımLarın için .. bende bu şeqiL yAptım coq gzL birsey cıktı ortaya ama birtek sorunum var uzun yazı yazdıqım zaman şeqLLi yazım dewre dısı oLuyor * Sıra cok uzun: $replace (Satır 18, yazı şekLi) < bu cıkıyor buna ßir cözüm bulabilirmiyiz [ tşq ederim ] ..