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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Nick ince alt yazılı (https://www.ircforumlari.net/mirc-scripting-sorunlari/533476-nick-ince-alt-yazili.html)

ZenqerDenq 05 Haziran 2013 06:23
Nick ince alt yazılı
 
Selam şöyle bir sorum olacak tek input içersinde birden fazla özelliği toparlayamadım

Nick ince vede altı cizgili olacak Normal yazılarım ilk harfi büyük vede sonunda nokta olacak şekilde nasıl ayarlaya bilirim ?

Coldman 05 Haziran 2013 17:22
Cevap: Nick ince alt yazılı
 
Alıntı:
ZenqerDenq Nickli Üyeden Alıntı (Mesaj 1041307248)
Selam şöyle bir sorum olacak tek input içersinde birden fazla özelliği toparlayamadım

Nick ince vede altı cizgili olacak Normal yazılarım ilk harfi büyük vede sonunda nokta olacak şekilde nasıl ayarlaya bilirim ?
Şu kodu önerebilirim, kendimde kullaniyorum;
Dp/ kodda eksik olan sadece sonundaki "noktadir". bu kurcalamadimda, kode bozulmasin diye.

Alıntı:
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,$+(,$upper(\1),))
%b = %b $+(%e,%f)
}
}
if (!%b) { %b = $1- }
else { say %b }
halt
:end
}
Şu kode işini görecektir istek üzerine bir coder arkadaşim yazmişti bunu bana.

Set 05 Haziran 2013 18:39
Cevap: Nick ince alt yazılı
 
Alıntı:
ZenqerDenq Nickli Üyeden Alıntı (Mesaj 1041307248)
Selam şöyle bir sorum olacak tek input içersinde birden fazla özelliği toparlayamadım

Nick ince vede altı cizgili olacak Normal yazılarım ilk harfi büyük vede sonunda nokta olacak şekilde nasıl ayarlaya bilirim ?

Toparlayamadın kısma kadarki yaptıgın codu paylasırsan yardımcı oluruz. Hayırlı IF'ler.

ZenqerDenq 06 Haziran 2013 20:19
Cevap: Nick ince alt yazılı
 
Kod:
On 1:input:*:{
if ($left($1,1) !isin x/$%.! && !$ctrlenter) {
var %smiley = :) :D :P :( :\\ :/ ;) ;D ;P ;/ ;\\ ;( :* ;* :@ :S :# :$ :o xD :< :> ;@ ;S ;# ;$ ;o ;< ;>
var %smileys = :-) :-D :-P :-( :-\\ :-/ ;-) ;-D ;-P ;-/ ;-\\ ;-( :-* ;-* :-@ :-S :-# :-$ :-o :-< :-> ;-@ ;-S ;-# ;-$ ;-o ;-< ;-> :=) :=D :=P :=( :=\\ :=/ ;=) ;=D ;=P ;=/ ;=\\ ;=( :=* ;=* :=@ :=S :=# :=$ :=o :=< :=> ;=@ ;=S ;=# ;=$ ;=o ;=< ;=> ^_^ o_o O_O o_O O_o 0_0 0_o o_0 *_^ ^_* -.- omg lol btw wtf heh bbl brb
var %noact = $chr(33) $chr(64) $chr(35) $chr(36) $chr(37) $chr(94) $chr(38) $chr(42) $chr(40) $chr(41) $chr(45) $chr(43) $chr(61) $chr(49) $chr(50) $chr(51) $chr(52) $chr(53) $chr(54) $chr(55) $chr(56) $chr(57) $chr(48) $chr(92) $chr(123) $chr(125) $chr(124) $chr(59) $chr(58) $chr(39) $chr(34) $chr(44) $chr(46) $chr(60) $chr(62) $chr(47) $chr(63) $chr(95) $chr(91) $chr(93)
var %httpthingy = htt
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ftp
var %httpthingy21 = .com .net .org .php .asp .htm omfg rofl .asx
var %httpthingy22 = .html .aspx
var %newmsg = $iif($1 !ison $active && $1 != $active && !$istok(%smiley,$1,32) && !$istok(%smileys,$1,32) && !$istok(%noact,$1,32) && !$istok(%httpthingy,$left($1,3),32) && !$istok(%httpthingy21,$right($1,4),32) && !$istok(%httpthingy22,$right($1,5),32),$upper($left($1,1)) $+ $right($1,-1),$1) $+ $iif($2-,$chr(32) $+ $2- $+ $iif(!$istok(%noact,$right($2-,1),32) && !$istok(%smiley,$right($2-,2),32) && !$istok(%smileys,$right($2-,3),32) && !$istok(%httpthingy,$left($gettok($2-,-1,32),3),32) && !$istok(%httpthingy21,$right($gettok($2-,-1,32),4),32) && !$istok(%noact,$left($gettok($2-,-1,32),1),32) && !$istok(%httpthingy22,$left($gettok($2-,-1,32),5),32),.),$iif(!$istok(%noact,$right($1,1),32) && !$istok(%smiley,$right($1,2),32) && !$istok(%smileys,$right($1,3),32) && !$istok(%httpthingy,$left($1,3),32) && !$istok(%httpthingy21,$right($1,4),32) && !$istok(%noact,$left($1,1),32) && !$istok(%httpthingy22,$right($1,5),32),.))
var %newmsg = $regsubex(%newmsg,/\\bi\\b/g,I)
msg $active %newmsg
halt
}
}
burada text in ilk harfi büyük ve sonunda nokta var ama ince altı cizgili nicki ekleyemedim :S


Alıntı:
CoLdmAn Nickli Üyeden Alıntı (Mesaj 1041307334)
Şu kodu önerebilirim, kendimde kullaniyorum;
Dp/ kodda eksik olan sadece sonundaki "noktadir". bu kurcalamadimda, kode bozulmasin diye.


Şu kode işini görecektir istek üzerine bir coder arkadaşim yazmişti bunu bana.
bu vermiş olduğun kodda nickler ince değil vede her kelimenin başı büyük harf ben cümlenin ilk harfi büyük istiyorum

Set 06 Haziran 2013 20:21
Cevap: Nick ince alt yazılı
 
Kod:
On 1:input:*:{
  if ($left($1,1) !isin x/$%.! && !$ctrlenter) {
    var %smiley =  :P :( :\\ :/ ;) ;D ;P ;/ ;\\ ;( :* ;* :@ :S :# :$ :o xD :< :> ;@ ;S ;# ;$ ;o ;< ;>
    var %smileys = :-) :-D :-P :-( :-\\ :-/ ;-) ;-D ;-P ;-/ ;-\\ ;-( :-* ;-* :-@ :-S :-# :-$ :-o :-< :-> ;-@ ;-S ;-# ;-$ ;-o ;-< ;-> :=) :=D :=P :=( :=\\ :=/ ;=) ;=D ;=P ;=/ ;=\\ ;=( :=* ;=* :=@ :=S :=# :=$ :=o :=< :=> ;=@ ;=S ;=# ;=$ ;=o ;=< ;=> ^_^ o_o O_O o_O O_o 0_0 0_o o_0 *_^ ^_* -.- omg lol btw wtf heh bbl brb
    var %noact = $chr(33) $chr(64) $chr(35) $chr(36) $chr(37) $chr(94) $chr(38) $chr(42) $chr(40) $chr(41) $chr(45) $chr(43) $chr(61) $chr(49) $chr(50) $chr(51) $chr(52) $chr(53) $chr(54) $chr(55) $chr(56) $chr(57) $chr(48) $chr(92) $chr(123) $chr(125) $chr(124) $chr(59) $chr(58) $chr(39) $chr(34) $chr(44) $chr(46) $chr(60) $chr(62) $chr(47) $chr(63) $chr(95) $chr(91) $chr(93)
    var %httpthingy = htt
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ftp
    var %httpthingy21 = .com .net .org .php .asp .htm omfg rofl .asx
    var %httpthingy22 = .html .aspx
    var %newmsg = $iif($1 !ison $active && $1 != $active && !$istok(%smiley,$1,32) && !$istok(%smileys,$1,32) && !$istok(%noact,$1,32) && !$istok(%httpthingy,$left($1,3),32) && !$istok(%httpthingy21,$right($1,4),32) && !$istok(%httpthingy22,$right($1,5),32),$upper($left($1,1)) $+ $right($1,-1),$1) $+ $iif($2-,$chr(32) $+ $2- $+ $iif(!$istok(%noact,$right($2-,1),32) && !$istok(%smiley,$right($2-,2),32) && !$istok(%smileys,$right($2-,3),32) && !$istok(%httpthingy,$left($gettok($2-,-1,32),3),32) && !$istok(%httpthingy21,$right($gettok($2-,-1,32),4),32) && !$istok(%noact,$left($gettok($2-,-1,32),1),32) && !$istok(%httpthingy22,$left($gettok($2-,-1,32),5),32),.),$iif(!$istok(%noact,$right($1,1),3 2) && !$istok(%smiley,$right($1,2),32) && !$istok(%smileys,$right($1,3),32) && !$istok(%httpthingy,$left($1,3),32) && !$istok(%httpthingy21,$right($1,4),32) && !$istok(%noact,$left($1,1),32) && !$istok(%httpthingy22,$right($1,5),32),.))
    var %newmsg  = $regsubex(%newmsg,/(\w+)/g,$iif(\t ison #,$chr(2)\t$chr(2),\t))
    var %newmsg = $regsubex(%newmsg,/\\bi\\b/g,I)
    say %newmsg
    halt
  }
}

ZenqerDenq 07 Haziran 2013 01:01
Cevap: Nick ince alt yazılı
 
çok tşkler işe yarıyor ama şu var nicki yazdığımda sonuna nokta koyuyor onu koymasa ?

Set 07 Haziran 2013 18:45
Cevap: Nick ince alt yazılı
 
Kod:

On 1:input:*:{
  if ($left($1,1) !isin x/$%.! && !$ctrlenter) {
    var %smiley =  :P :( :\\ :/ ;) ;D ;P ;/ ;\\ ;( :* ;* :@ :S :# :$ :o xD :< :> ;@ ;S ;# ;$ ;o ;< ;>
    var %smileys = :-) :-D :-P :-( :-\\ :-/ ;-) ;-D ;-P ;-/ ;-\\ ;-( :-* ;-* :-@ :-S :-# :-$ :-o :-< :-> ;-@ ;-S ;-# ;-$ ;-o ;-< ;-> :=) :=D :=P :=( :=\\ :=/ ;=) ;=D ;=P ;=/ ;=\\ ;=( :=* ;=* :=@ :=S :=# :=$ :=o :=< :=> ;=@ ;=S ;=# ;=$ ;=o ;=< ;=> ^_^ o_o O_O o_O O_o 0_0 0_o o_0 *_^ ^_* -.- omg lol btw wtf heh bbl brb
    var %noact = $chr(33) $chr(64) $chr(35) $chr(36) $chr(37) $chr(94) $chr(38) $chr(42) $chr(40) $chr(41) $chr(45) $chr(43) $chr(61) $chr(49) $chr(50) $chr(51) $chr(52) $chr(53) $chr(54) $chr(55) $chr(56) $chr(57) $chr(48) $chr(92) $chr(123) $chr(125) $chr(124) $chr(59) $chr(58) $chr(39) $chr(34) $chr(44) $chr(46) $chr(60) $chr(62) $chr(47) $chr(63) $chr(95) $chr(91) $chr(93)
    var %httpthingy = htt
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ftp
    var %httpthingy21 = .com .net .org .php .asp .htm omfg rofl .asx
    var %httpthingy22 = .html .aspx
    var %newmsg = $iif($1 !ison $active && $1 != $active && !$istok(%smiley,$1,32) && !$istok(%smileys,$1,32) && !$istok(%noact,$1,32) && !$istok(%httpthingy,$left($1,3),32) && !$istok(%httpthingy21,$right($1,4),32) && !$istok(%httpthingy22,$right($1,5),32),$upper($left($1,1)) $+ $right($1,-1),$1) $+ $iif($2-,$chr(32) $+ $2- $+ $iif(!$istok(%noact,$right($2-,1),32) && !$istok(%smiley,$right($2-,2),32) && !$istok(%smileys,$right($2-,3),32) && !$istok(%httpthingy,$left($gettok($2-,-1,32),3),32) && !$istok(%httpthingy21,$right($gettok($2-,-1,32),4),32) && !$istok(%noact,$left($gettok($2-,-1,32),1),32) && !$istok(%httpthingy22,$left($gettok($2-,-1,32),5),32) && $token($1-,-1,32) !ison #,.),$iif(!$istok(%noact,$right($1,1),3 2) && !$istok(%smiley,$right($1,2),32) && !$istok(%smileys,$right($1,3),32) && !$istok(%httpthingy,$left($1,3),32) && !$istok(%httpthingy21,$right($1,4),32) && !$istok(%noact,$left($1,1),32) && !$istok(%httpthingy22,$right($1,5),32),.)),.))
    var %newmsg  = $regsubex(%newmsg,/(\w+)/g,$iif(\t ison #,$chr(2)\t$chr(2),\t))
    var %newmsg = $regsubex(%newmsg,/\\bi\\b/g,I)
    say %newmsg
    halt
  }
}

ZenqerDenq 07 Ekim 2013 15:23
Cevap: Nick ince alt yazılı
 
Nickler ince değil ve yazdığım nickin sonunada nokta koyuyor

Feragat 07 Ekim 2013 17:38
Cevap: Nick ince alt yazılı
 
Alıntı:
ZenqerDenq Nickli Üyeden Alıntı (Mesaj 1041307248)
Selam şöyle bir sorum olacak tek input içersinde birden fazla özelliği toparlayamadım

Nick ince vede altı cizgili olacak Normal yazılarım ilk harfi büyük vede sonunda nokta olacak şekilde nasıl ayarlaya bilirim ?
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] un başka bir konuda paylaşmış olduğu kodda biraz değişiklik yapılıp istediğin hale getirilebilir.
Cümlenin ilk harfini büyük yapıp cümle sonuna nokta koymak. Nickleri ince ve alt çizgili olacak şekilde yazdırmak. Cümle içinde nokta konup tekrar cümleye veya kelimeye başlanmışsa ilk harfi büyük yapmak gibi.

Resim:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:
on *:input:*:{
  if !$istok(/ ! .,$left($1,1),32) {
    if $window($active).type == channel { msg $active $regsubex($regsubex($1-,/(\S+)/g,$iif(\1 ison #,$+(,\1,,),\1)),/(?<=^|\.)(\s.|.)/g,$upper(\1)) $+ . }
    elseif $window($active).type == query { msg $active $regsubex($regsubex($1-,/(\S+)/g,$iif(\1 == $active,$+(,\1,,),\1)),/(?<=^|\.)(\s.|.)/g,$upper(\1)) $+ . }
    halt
  }
}

ZenqerDenq 07 Ekim 2013 18:12
Cevap: Nick ince alt yazılı
 
tşkler ederim ancak bu kodda hatalı cünki smiley veya virgül ünlem soru işaretleri ile biten cümlerin sonunda nokta koyuyor

Feragat 07 Ekim 2013 23:41
Cevap: Nick ince alt yazılı
 
Alıntı:
ZenqerDenq Nickli Üyeden Alıntı (Mesaj 1041349706)
tşkler ederim ancak bu kodda hatalı cünki smiley veya virgül ünlem soru işaretleri ile biten cümlerin sonunda nokta koyuyor
Smile sembolleri (:d :P :S :s :o :> gibi..) veya karakterlerde (! ? . , gibi) 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.

Örnek Resim:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Kod:
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
  }
}

fLayer 08 Ekim 2013 01:04
Cevap: Nick ince alt yazılı
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kardeşim birşeyde ben isteyim Cümleyi yazdıktan sonra mirc otomatik noktalama işareti yapabilirmi acaba zxcöxmzcöz örnegin(;) yada (,) (!) (?) hem millete havam olur türkçeyi iyi kullanıyorum diye (((:

Feragat 09 Ekim 2013 01:58
Cevap: Nick ince alt yazılı
 
Bir önceki paylaştığım kodun bir kaç gözüme çarpan hatası vardı. Mesela tek harfli bir kelimede noktalama işareti koymuyordu. Örnek: "Selam a" gibi. Ve isalnum yani alfabe karakterleri ve numaraların sonuna nokta koy(tek karakter olsa bile.) şeklindeki $iif koşulunu yeniden düzenledim. Smile karakterlerinde ve özel karakterlerin sonuna nokta koyma koşulunu da biraz düzenledim. Farklı kombinasyonlarda noktalama veya karakter hataları olabilir belki bilemiyorum. İyi forumlar.

Kod:
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($len($regml(yz_,$regml(yz_,0))) == 1 && !$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS),$iif($mid($regml(yz_,$regml(yz_,0)),-1) !isalnum,$null,$chr(46)),$iif(!$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS) && $mid($regml(yz_,$regml(yz_,0)),-2) !isalnum,$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($len($regml(yz_,$regml(yz_,0))) == 1 && !$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS),$iif($mid($regml(yz_,$regml(yz_,0)),-1) !isalnum,$null,$chr(46)),$iif(!$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS) && $mid($regml(yz_,$regml(yz_,0)),-2) !isalnum,$null,$chr(46))) }
    halt
  }
}

Reqal 21 Ekim 2013 17:43
Cevap: Nick ince alt yazılı
 
Alıntı:
Feragat Nickli Üyeden Alıntı (Mesaj 1041350114)
Bir önceki paylaştığım kodun bir kaç gözüme çarpan hatası vardı. Mesela tek harfli bir kelimede noktalama işareti koymuyordu. Örnek: "Selam a" gibi. Ve isalnum yani alfabe karakterleri ve numaraların sonuna nokta koy(tek karakter olsa bile.) şeklindeki $iif koşulunu yeniden düzenledim. Smile karakterlerinde ve özel karakterlerin sonuna nokta koyma koşulunu da biraz düzenledim. Farklı kombinasyonlarda noktalama veya karakter hataları olabilir belki bilemiyorum. İyi forumlar.

Kod:
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($len($regml(yz_,$regml(yz_,0))) == 1 && !$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS),$iif($mid($regml(yz_,$regml(yz_,0)),-1) !isalnum,$null,$chr(46)),$iif(!$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS) && $mid($regml(yz_,$regml(yz_,0)),-2) !isalnum,$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($len($regml(yz_,$regml(yz_,0))) == 1 && !$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS),$iif($mid($regml(yz_,$regml(yz_,0)),-1) !isalnum,$null,$chr(46)),$iif(!$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS) && $mid($regml(yz_,$regml(yz_,0)),-2) !isalnum,$null,$chr(46))) }
    halt
  }
}

Sa üstat ben bu kodu burdan alıp kullanmaya başladım yanlız nicki ilceltip altını çizgili ve sonuna nokta koyuyo bu noktayı kaldırsak ve nickide renklendirsek ben denedim biraz ama sadece noktayı renklendirebildim yardım edermisiniz ?

Feragat 21 Ekim 2013 18:57
Cevap: Nick ince alt yazılı
 
Alıntı:
Reqal Nickli Üyeden Alıntı (Mesaj 1041353356)
nicki ilceltip altını çizgili ve sonuna nokta koyuyo bu noktayı kaldırsak ve nickide renklendirsek ben denedim biraz ama sadece noktayı renklendirebildim yardım edermisiniz ?
Sonuna nokta koymaz ve nickleri renkli yazar. Renk değişimi için:
Kod:
$+(4,\1,),\1))
Renkli olan kısımda değişiklik yapabilirsin.

Kod:
on *:input:*:{
  if !$istok(/ ! .,$left($1,1),32) {
    if $window($active).type == channel { msg $active $regsubex($regsubex($1-,/(\S+)/g,$iif(\1 ison #,$+(4,\1,),\1)),/(?<=^|\.)(\s.|.)/g,$upper(\1)) }
    elseif $window($active).type == query { msg $active $regsubex($regsubex($1-,/(\S+)/g,$iif(\1 == $active,$+(4,\1,),\1)),/(?<=^|\.)(\s.|.)/g,$upper(\1)) }
    halt
  }
}

MerakLıuSer 06 Kasım 2013 22:33
Cevap: Nick ince alt yazılı
 
Alıntı:
Feragat Nickli Üyeden Alıntı (Mesaj 1041350114)
Bir önceki paylaştığım kodun bir kaç gözüme çarpan hatası vardı. Mesela tek harfli bir kelimede noktalama işareti koymuyordu. Örnek: "Selam a" gibi. Ve isalnum yani alfabe karakterleri ve numaraların sonuna nokta koy(tek karakter olsa bile.) şeklindeki $iif koşulunu yeniden düzenledim. Smile karakterlerinde ve özel karakterlerin sonuna nokta koyma koşulunu da biraz düzenledim. Farklı kombinasyonlarda noktalama veya karakter hataları olabilir belki bilemiyorum. İyi forumlar.

Kod:
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($len($regml(yz_,$regml(yz_,0))) == 1 && !$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS),$iif($mid($regml(yz_,$regml(yz_,0)),-1) !isalnum,$null,$chr(46)),$iif(!$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS) && $mid($regml(yz_,$regml(yz_,0)),-2) !isalnum,$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($len($regml(yz_,$regml(yz_,0))) == 1 && !$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS),$iif($mid($regml(yz_,$regml(yz_,0)),-1) !isalnum,$null,$chr(46)),$iif(!$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS) && $mid($regml(yz_,$regml(yz_,0)),-2) !isalnum,$null,$chr(46))) }
    halt
  }
}
Buna nickleri ince altı çizili çıkarıyor ya. Onun yerine nick kısmı şöyle olabilir mi?
Nick ince önündeki ve arkasındaki noktalama işaretleri kalın olacak, diğer bütün işlemler aynı. örnek;

"Ali" selam.
'Ali' veya "Ali' gibi tek ' veye çift " falan farketmeyecek.
Ali, veya Ali; veya Ali: veya Ali? veya Ali! veya Ali. veya (Ali) veya Ali'de gibi durumlarda nick ince olacak.

Feragat 06 Kasım 2013 22:59
Cevap: Nick ince alt yazılı
 
Aslında nick ince diye bir şey yok. Orada ince gibi gözükmesini sağlayan karakter $chr(2) (CTRL + B). Bold, yani koyu renkle yazılmış anlamında. Bazı scriptler de ince gözükür bazılarında ise koyu gözükür. Aynı karakterdir. İnce veya kalın olayı yok yani.

- Örnek vereyim. İki yazıda da bold karakteri kullandım. 2 farklı mIRC, birisinde ince gözüküyor diğerinde kalın gözüküyor. -

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

MerakLıuSer 08 Kasım 2013 21:39
Cevap: Nick ince alt yazılı
 
Alıntı:
Feragat Nickli Üyeden Alıntı (Mesaj 1041359035)
Aslında nick ince diye bir şey yok. Orada ince gibi gözükmesini sağlayan karakter $chr(2) (CTRL + B). Bold, yani koyu renkle yazılmış anlamında. Bazı scriptler de ince gözükür bazılarında ise koyu gözükür. Aynı karakterdir. İnce veya kalın olayı yok yani.

- Örnek vereyim. İki yazıda da bold karakteri kullandım. 2 farklı mIRC, birisinde ince gözüküyor diğerinde kalın gözüküyor. -

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Zaten bold olayında sıkıntı yok sadece altına çizgi falan yerine örnekte gösterdiğim ifadelerden önce sonra arasında falan kalıncada bold olsun öyle. Hani . nokta koyunca sonuna falan bold olayı iptal olmasın.

Burdaki gibi noktalama işareterinde bold olayı devam etsin yani.

"Ali" selam.
'Ali' veya "Ali' gibi tek ' veye çift " falan farketmeyecek.
Ali, veya Ali; veya Ali: veya Ali? veya Ali! veya Ali. veya (Ali) veya Ali'de gibi durumlarda nick ince olacak.

Feragat 09 Kasım 2013 00:15
Cevap: Nick ince alt yazılı
 
Şöyle bir şey mi istiyorsun

Örnek1:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Örnek2:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:
on *:input:*:{
  if !$istok(/ ! .,$left($1,1),32) {
    if $window($active).type == channel { msg $active $regsubex(_yz,$regsubex(yz_,$1-,/(\S+)/g,$iif($regsubex(\1,/(\W)/g,\t) ison #,$+(,\1,,),\1)),/(?<=^|\.)(\s.|.)/g,$upper(\1)) $+ $iif($len($regml(yz_,$regml(yz_,0))) == 1 && !$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS),$iif($mid($regml(yz_,$regml(yz_,0)),-1) !isalnum,$null,$+(,$chr(46),)),$iif(!$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS) && $mid($regml(yz_,$regml(yz_,0)),-2) !isalnum,$null,$+(,$chr(46),))) }
    elseif $window($active).type == query { msg $active $regsubex(_yz,$regsubex(yz_,$1-,/(\S+)/g,$iif($regsubex(\1,/(\W)/g,\t) == $active,$+(,\1,,),\1)),/(?<=^|\.)(\s.|.)/g,$upper(\1)) $+ $iif($len($regml(yz_,$regml(yz_,0))) == 1 && !$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS),$iif($mid($regml(yz_,$regml(yz_,0)),-1) !isalnum,$null,$+(,$chr(46),)),$iif(!$regex($regml(yz_,$regml(yz_,0)),/([ŞşıÇçğĞİÖöÜü])/gS) && $mid($regml(yz_,$regml(yz_,0)),-2) !isalnum,$null,$+(,$chr(46),))) }
    halt
  }
}

MerakLıuSer 10 Kasım 2013 00:29
Cevap: Nick ince alt yazılı
 
hemen hemen evet ama sen ifadeleri bold yapmışsın onlar bold olmayacak sade ve sadece nick bold olacak başka hiçbirşey bold olmayacak. aşağıdaki örneklerdeki gibi;
"Ali" selam.
'Ali' veya "Ali' gibi tek ' veye çift " falan farketmeyecek.
Ali, veya Ali; veya Ali: veya Ali? veya Ali! veya Ali. veya (Ali) veya Ali'de gibi durumlarda nick ince olacak.

Difuzyon 11 Kasım 2013 00:35
Cevap: Nick ince alt yazılı
 
Merhaba,
Aşağıdaki kodu remote kısmına eklediğiniz takdirde, kanalda yazmış olduğunuz cümle içerisinde bulunan kelimelerden birinin önünde veya ardında noktalama işareti varsa ve bu kelimenin ayıklanmış hali #kanal içerisinde bulunan bir nick ise o kelime bold olarak yansır.

Kod:
on *:input:*:{
  if !$istok(/ ! .,$left($1,1),32) {
    msg $active $regsubex($1-,/([^[:punct:]\s]+)/gi,$iif(\1 ison #,\1,\1))
    halt
  }
}
Hoşca paylaşımlar...

MerakLıuSer 11 Kasım 2013 21:28
Cevap: Nick ince alt yazılı
 
Difuzyon biliyorum bana içinden sövüyorsun ama :) aynı işlemler özeldede aktif olabilir mi :(

Med Cezir 15 Kasım 2013 02:28
Cevap: Nick ince alt yazılı
 
Forumda o kadar çok buna benzer kod varki, güncel tutmak adına post atmak yerine az biraz baksan hiç birşey bilmesen bile çoktan koddan faydalanıyo olabilirdin.

Kod:
on *:input:*:{
  if !$istok(/ ! .,$left($1,1),32) {
    if $window($active).type == channel { msg $active $regsubex($1-,/([^[:punct:]\s]+)/gi,$iif(\1 ison #,\1,\1)) }
    elseif $window($active).type == query { msg $active $regsubex($1-,/([^[:punct:]\s]+)/gi,$iif(\1 == $active,\1,\1)) }
    halt
  }
}

IRC-Dancer 22 Şubat 2014 17:10
Cevap: Nick ince alt yazı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
}

Lociz 14 Mart 2014 12:42
Cevap: Nick ince alt yazılı
 
Alıntı:
IRC-Dancer Nickli Üyeden Alıntı (Mesaj 1041396686)
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
}
Kod için verilen emeğin karşılığı için kodun kime ait olduğunu yazınız. Ayrıca mesele sadece emek değil sizin MODERATÖR olduğunuz bölümün bir KURALIDIR. Bkz: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...](4- Paylaştığınız kod size ait olmalıdır. Eğer kod size ait değilse yayınlamanızı uygun görmüyoruz. İllaki yayınlayacağım derdindeyseniz kod yazarını kesinlikle belirtmek zorundasınız.)
Kodun Sahibi: XcLusive

IRC-Dancer 14 Mart 2014 20:34
Cevap: Nick ince alt yazılı
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] :)) Yayınlama tarihimle ; Mod oluş tarihim bir birini tutmuyor , sırf post olsun diğe yorum yapma.
1.cisi kod benimdir veya şunundur yazısı yazmak zorunda değilim.
2.cisi kodu nerde nasıl bulduğum , yaptığım , yardım aldığım , veya verdiğimde beni ilgilendirir.

Lociz 14 Mart 2014 20:58
Cevap: Nick ince alt yazılı
 
Alıntı:
IRC-Dancer Nickli Üyeden Alıntı (Mesaj 1041406795)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] :)) Yayınlama tarihimle ; Mod oluş tarihim bir birini tutmuyor , sırf post olsun diğe yorum yapma.
1.cisi kod benimdir veya şunundur yazısı yazmak zorunda değilim.
2.cisi kodu nerde nasıl bulduğum , yaptığım , yardım aldığım , veya verdiğimde beni ilgilendirir.
Yayınlama tarihi bu yılın şubat ayında olmuş? Tarihleri görmekte zorlanıyorsunuz sanırım.
Hazır Kodlar Bölüm Kurallarında yer alan kurala göre ZORUNDASIN.
Seni ilgilendirir evet, sorumluluklarını da bileceksiniz.

Med Cezir 15 Mart 2014 02:50
Cevap: Nick ince alt yazılı
 
Başka arkadaşlarımızın kodlarını paylaştığımızda bunu belirtmemiz hem forum kuralları, hemde etik açıdan en doğru olanıdır. Bizlerin bu kodlarda değerli arkadaşlarımızın nicklerini belirtmemiz bizim onların emeklerine gösterdiğimiz saygınında göstergesidir. Forumun bu bölümüne emek veren insanlar olarak bu konuda herkesden daha fazla dikkatli olmamız gereklidir.

Konu içerisinde yeterince fantazi kod yazılmış bundan sonra konuya bir katkısı olmayacaktır eklenen kodların, ayrıca konununda ikili polemik halinde sürmemesi için "Konu Kilit".


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 02:07.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net