IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - mirc hakkında bi kaç soru (https://www.ircforumlari.net/mirc-scripting-sorunlari/175866-mirc-hakkinda-bi-kac-soru.html)

mirc hakkında bi kaç soru

izin verirseniz bi kaç sorum olacak arkadaşlar... 1-mircde ileti yazıyor mesajı nasıl konulabilir (benim özemime yazaılan iletiler)? 2-özelden konuştuğum biri mirc'i terkettiğinde normalde genelde IRC'den çıktı veya ayrıldı deniyor...bu uyarıyı özele nasıl taşıyabiliriim? 3-iki farklı kalıp yazı rengi kullanıyorum..haliyle çakışıyor ve karşıya 2 defa gidiyor..bunları çakışmadan,kendim seçebileceğim şekilde düzenlemek istiyorum...normalde mircin içinde sağ tıkladığımda 'yazı tipi' çıkıyor ve oraya başka bi yazı tipini çakışmadan ilave etmek istiyorum...kullandığım yazı tipi ;################################################# # :## Bu kodlar SiNYoL tarafından hazırlanmıştır.... ;################################################# # on 1:load: { if ( $version < 5.6 ) { unload -rs yazitipi.mrc echo 4 -a mIRC versiyonunuz yazıtipi addonını desteklemiyor, yazıtipi addonı kaldırılıyor. | halt } else { echo 4 -a YAZITipleri add-onu yüklendi. } } #yazirenkli off on 1:INPUT:*:{ unset %ahenk* if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ahenk* | halt } :ilk inc %ahenks if ( %ahenks > $len($1-) ) { say %ahenkt | unset %ahenk* | halt } %ahenkh = $mid($1-,%ahenks,1) %ahenkh = $replace(%ahenkh,$chr(32),$chr(0160)) %ahenkt = %ahenkt $+ $+ $rand(3,13) $+ %ahenkh goto ilk } #yazirenkli end #yaziters off on 1:INPUT:*:{ unset %ters* if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ters* | halt } :ilk inc %terss if ( %terss > $len($1-) ) { say %terst | unset %terst* | halt } set %tersh $mid($1-,%terss,1) %terst = %tersh $+ %terst goto ilk } #yaziters end #yaziturkce off on 1:INPUT:*:{ unset %turkce set %turkce $1- if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt } %turkce = $replacecs(%turkce,?,I,?,Î,?,$,?,$,ç,¢,Ç,¢,?,g,?,? ,ü,û,Ü,Û,ö,ô,Ö,Ô) say %turkce unset %turkce halt } #yaziturkce end #yazielit off on 1:INPUT:*:{ unset %elit set %elit $1- if ( $chr(47) == $mid(%elit,1,1) ) { %elit | unset %elit* | halt } %elit = $replacecs(%elit,a,å,b,ß,c,©,d,D,e,ë,f,F,h,]-[,i,î,k,|{,l,£,m,M,n,ñ,o,ø,p,P,q,¶,r,®,s,§,t,±,u,µ, v,V,w,\\',x,×,y,¥,z,Z,?,I,?,Î,?,$,?,$,ç,¢,Ç,¢,?,g, ?,?,ü,û,Ü,Û,ö,ô,Ö,Ô,!,¡,?,¿,,»,-,¬,:,¦,',`,`,') say %elit unset %elit halt } #yazielit end #yaziseskuc off on 1:INPUT:*:{ unset %seskuc set %seskuc $1- if ( $chr(47) == $mid(%seskuc,1,1) ) { %seskuc | unset %seskuc | halt } %seskuc = $replacecs(%seskuc,q,Q,w,W,E,e,r,R,t,T,y,Y,U,u,I,? ,O,o,p,P,?,?,Ü,ü,A,a,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l ,L,?,?,?,i,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,Ö,ö,ç,Ç) say %seskuc unset %seskuc halt } #yaziseskuc end #yazibuykuc off on 1:INPUT:*:{ unset %buy* set %buyk $1- if ( $chr(47) == $mid(%buyk,1,1) ) { %buyk | unset %buy* | halt } set %buys 1 set %buyu $len(%buyk) :ilk if ( %buys > %buyu ) goto son set %buyh $mid(%buyk,%buys,1) if ( %buyh == $chr(32) ) { %buyh = $replace(%buyh,$chr(32),$chr(0160)) } %buyh = $replacecs(%buyh,q,Q,w,W,e,E,r,R,t,T,y,Y,u,U,?,I,o ,O,p,P,?,?,ü,Ü,a,A,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L ,?,?,i,?,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,ö,Ö,ç,Ç,!,¡,? ,¿) set %buyb %buyb $+ %buyh inc %buys if ( %buys > %buyu ) goto son set %buyh $mid(%buyk,%buys,1) if ( %buyh == $chr(32) ) { %buyh = $replace(%buyh,$chr(32),$chr(0160)) } %buyh = $replacecs(%buyh,Q,q,W,w,E,e,R,r,T,t,Y,y,U,u,I,?,O ,o,P,p,?,?,Ü,ü,A,a,S,s,D,d,F,f,G,g,H,h,J,j,K,k,L,l ,?,?,?,i,Z,z,X,x,C,c,V,v,B,b,N,n,M,m,Ö,ö,Ç,ç,¡,!,¿ ,?) inc %buys set %buyb %buyb $+ %buyh goto ilk :son say %buyb unset %buy* halt } #yazibuykuc end dialog yazitip { title "Yaz?tipi" size -1 -1 110 190 radio "Tûrk¢e",1,10 10 90 20 radio "ë£î±",2,10 30 90 20 radio "sreT",3,10 50 90 20 radio "BüYüK-kÜçÜk",4,10 70 90 20 radio "SeSSiZ BüYüK",5,10 90 90 20 radio "Renkli",6,10 110 90 20 radio "Normal",19,10 130 90 20 box "",20,5 0 100 155 button "TAMAM",21,5 165 100 20,ok } on 1:dialog:yazitip:*:*: { if ( $devent == init ) { if ($group(#yaziturkce).status == on ) { did -c yazitip 1 } elseif ($group(#yazielit).status == on ) { did -c yazitip 2 } elseif ($group(#yaziters).status == on ) { did -c yazitip 3 } elseif ($group(#yazibuykuc).status == on ) { did -c yazitip 4 } elseif ($group(#yaziseskuc).status == on ) { did -c yazitip 5 } elseif ($group(#yazirenkli).status == on ) { did -c yazitip 6 } else { did -c yazitip 19 } } if ( $devent == sclick ) { if ( $did == 1 ) { .disable #yazi* | .enable #yaziturkce } if ( $did == 2 ) { .disable #yazi* | .enable #yazielit } if ( $did == 3 ) { .disable #yazi* | .enable #yaziters } if ( $did == 4 ) { .disable #yazi* | .enable #yazibuykuc } if ( $did == 5 ) { .disable #yazi* | .enable #yaziseskuc } if ( $did == 6 ) { .disable #yazi* | .enable #yazirenkli } if ( $did == 19) { .disable #yazi* } } } alias yazitip { dialog -m yazitip yazitip } menu query,channel { Yazıtipi...:/yazitip } EKLEMEK İSTEDİĞİM YAZI TİPİ İSE ŞU on 1:input:*:{ if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end } if ($1- == isnum) { goto end } var %a 0, %b, %c, %d, %e, %f while (%a < $numtok($1-,32)) { inc %a %c = $gettok($1-,%a,32) if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(·,%c,·) } else { if (%a == $numtok($1-,32)) { %d = $+($right(%c,1),..) %f = $right(%d,2) } %e = $regsubex(%c,/(?=^| )(.)/g,$+(12,$upper(\1),4)) %b = %b $+(%e,%f) } } if (!%b) { %b = $1- } else { say %b } halt :end }