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

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

- - Nick ince virgül (https://www.ircforumlari.net/mirc-scripting-sorunlari/189233-nick-ince-virgul.html)

Nick ince virgül

Arkadaşlar merhaba hayırlı forumlar, söyle bisey mümkünmü? özelde yada kanalda ben bir nick'e herhangi bir cümle içinde, başında, yada sonunda seslendigimde seslenmiş olduğum nick hem ince çıkabilirmi? örnek kanalda,
Ali, bana bakarmısın
Bana bakarmısın Ali.
Selam Ali naber.
özelde,
Ali, bana bakarmısın
Bana bakarmısın Ali.
Selam Ali naber.

Cevap: Nick ince virgül

Soruyu eksik yazmış gibisin ?

Cevap: Nick ince virgül

Kod:

on *:input:*:{ 

  if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) || ($1- == isnum) { goto end }

  var %a 0, %b, %c 

  if ($window($active).type == channel) {

    while (%a < $numtok($1-,32)) { 

      inc %a 

      %c = $gettok($1-,%a,32) 

      if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(,%c,) } 

      else { %b = %b %c } 

    } 

  }

  elseif ($window($active).type == query) {

    while (%a < $numtok($1-,32)) { 

      inc %a 

      %c = $gettok($1-,%a,32) 

      if ($query($remove(%c,!,?,:,;,.,$chr(44),?))) { %b = $iif(%b,%b) $+(,%c,) } 

      else { %b = %b %c } 

    } 

  }

  else { goto end }

  if (!%b) { %b = $1- } 

  else { say %b }

  halt 

  :end

}

Cevap: Nick ince virgül

Mirc Scriptin Yazı Karakteri kısmından Font stilini kalın yaptığında istediğin gibi olur, yapamadım dersen resimli olarak anlatabilirim.

Kod:

on *:input:*:{

  if (/* !iswm $1-) {

    var %x 1,%y

    while (%x <= $numtok($1-,32)) {

      if ($gettok($1-,%x,32) ison #) {

        %y = %y  $+ $gettok($1-,%x,32) $+  

      }

      else {

        %y = %y $gettok($1-,%x,32)

      }

      inc %x

    }

    msg $iif($chan,$chan,$nick) %y | halt

  }

}

öğrenmeye çalışıyoruz bizde :)

Cevap: Nick ince virgül

Alıntı:

MerakLıuSer Nickli Üyeden Alıntı (Mesaj 665004)

Arkadaşlar merhaba hayırlı forumlar, söyle bisey mümkünmü? özelde yada kanalda ben bir nick'e herhangi bir cümle içinde, başında, yada sonunda seslendigimde seslenmiş olduğum nick hem ince çıkabilirmi? örnek kanalda,
Ali, bana bakarmısın
Bana bakarmısın Ali.
Selam Ali naber.
özelde,
Ali, bana bakarmısın
Bana bakarmısın Ali.
Selam Ali naber.

Evet eksik yamışım pardon :S şu kısmı istiyorum sizin verdiklerinizde oluyor teşekkürlerde mesela,
Ali, önüne virgül koyunca kalın oluyor tekrar ben tam örnekteki gibi olsun istemiştim anlatamadım :S üzgünüm.
"Ali, ata bak" önündeki vürgül kalın.
Melek sen Hasan, beraber gidin.
Bu gün çok şıksın Ali.
Ali ince önündeki nokta kalın.

XcLusive ben anlatamadım özür dilerim :(

Cevap: Nick ince virgül

tamam işte verdiğim kod aynı işlevi yapıyor sen istiyorsunki sadece nick ince olsun diğerleri normal.. ben verdiğimde senin istediğin gibi alıp denedin mi?

Cevap: Nick ince virgül

evet denedim ama sizinkinde mesela,
Ali, virgülü bitişiğine koyunca ince çıkıyor işte :( ben bitişiğindede kalın çıkabilmesini istemiştim.

Cevap: Nick ince virgül

Kod:

on *:input:*:{ 

  if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) || ($1- == isnum) { goto end }

  var %a 0, %b, %c 

  if ($window($active).type == channel) {

    while (%a < $numtok($1-,32)) { 

      inc %a 

      %c = $gettok($1-,%a,32) 

      if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) {

        if $regex(%c,/(\!|\?|\.|\,)) { 

          %b = $iif(%b,%b) $+(,$left(%c,$calc($len(%c) -1)),,$regml(1)) | goto ch

        }

        %b = $iif(%b,%b) $+(,%c,)

        :ch

      } 

      else { %b = %b %c } 

    } 

  }

  elseif ($window($active).type == query) {

    while (%a < $numtok($1-,32)) { 

      inc %a 

      %c = $gettok($1-,%a,32) 

      if ($query($remove(%c,!,?,:,;,.,$chr(44),?))) {

        if $regex(%c,/(\!|\?|\.|\,)) { 

          %b = $iif(%b,%b) $+(,$left(%c,$calc($len(%c) -1)),,$regml(1)) | goto ry

        }

        %b = $iif(%b,%b) $+(,%c,)

        :ry

      } 

      else { %b = %b %c } 

    } 

  }

  else { goto end }

  if (!%b) { %b = $1- } 

  else { say %b }

  halt 

  :end

}

desenize artık Türkçe konusunda çok düzgün ve belirgin ifadeler kullanacağız. :)
dediğin gibi ayarladım . , ! ? karakterlerine ayar veriyor extradan başka karakterler eklemek istersen mavi yeri takip et.

arkadaşlar kolay gelsin öncelikle paylaşımlar için tşk ediyiyorum. benim şöyle bir sorum olucak. nick'i tablıyorum tmm ince çıkıyor. devamı normal. ben normal değilde yazitipleri var onlar ile devam etmesini istiyorum mirc'imde yazitip var ama ikileme oluyor şöyle örnek vereyim

[15:34:20] <Muhabbet1155234760> Muhaßßét1155234760 a$dLfk$Lafkaf
[15:34:20] <Muhabbet1155234760> Muhabbet1155234760 aşdlfkşlafkaf

1.de yazitipi kodları var
2.de sizlerin vermiş oldugu nick ince kodu

kısaca nick'i tab'ladıgımda ince ve normal karakterler olsun, devamında da yazitip karakterlerini kullansın. b,ß,ı,L,ş,$ qibi. hem böylelikle seslendiğimiz nick bizi daha rahat görmüş olur. çünkü yazitip'den dolayı mesela emel nick'ine seslenicem éméL çıkıyor ve doğal olarak görmüyor :) dediğim gibi olursa ( emel nßr naSıLSın vß. ) hem görmesi rahat olucak hem karizma yazıya devam etmiş olucaz :P

Muhabbet1155234760> Muhabbet1155234760 a$dLfk$Lßééafkaf

umarım anlatabilmişimdir :) şimdiden teşekkürler herkese ii çalışmalar hayırlı bayramlar :)

Bu kod'un içine ekleme yapiLsa nick tab'landıgında ince normal gerisi türkçe elit vs oLsa. Çok aradım ugraşdım yapmayi pek anLamıyorum yapamadım :(

#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 on
on 1:INPUT:*:{
unset %turkce
set %turkce $1-
%turkce = $replacecs(%turkce,l,L,o,ø,v,v,e,é,b,ß,s,S,ı,ı,İ,Î ,ş,$,ç,¢,Ç,¢,ğ,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,c,d,d,e,é,f,ƒ,h,h,i ,î,k,k,l,L,m,m,n,n,o,ø,p,p,q,q,r,r,s,S,t,t,u, u,v,v,w,w',x,x,y,y,z,z,ı,ı,İ,Î,ş,$,Ş,$,ç,¢,Ç, ¢,ğ,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

alias y { /dialog -m yazitip yazitip }
dialog yazitip {
title "Yazı tipi"
size -1 -1 110 175
radio "Tûrk¢e",1,10 10 90 20
radio "ë£î±",2,10 30 90 20
radio "sreT",3,10 50 90 20
radio "SeSSiZ BüYüK",5,10 70 90 20
radio "Renkli",6,10 90 90 20
radio "Normal",19,10 110 90 20
box "",20,5 0 100 140
button "TAMAM",21,5 150 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(#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* }
}
}