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/)
-   -   yazi stili özeldede kullanimi? (https://www.ircforumlari.net/mirc-scripting-sorunlari/518101-yazi-stili-ozeldede-kullanimi.html)

MerakLıuSer 21 Aralık 2012 00:27
yazi stili özeldede kullanimi?
 
bu yazi stili özeldede aktif hale gelebilir mi?

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) {
    if !$regex($active,/(#help|#kanal2|#kanal3)/i) {
      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
  }
}
yazi;
sadece nick ince önündeki ve sonundaki "?,!,,,.,:,;,",..." gibi tüm işaretleri ve kelimeler. kalin gösteriyor. örnek;
nick,
nick!
nick?
nick:
nick;
nick...
"nick"
nick. gibi.
eklenmemiş birkaç işareti ekledim kod bozuldu. :( " gibi sonra kaldirdim sebebi nedir onlarda eklenilebilir mi

Med Cezir 22 Aralık 2012 04:38
Cevap: yazi stili özeldede kullanimi?
 
Özeldede aktif olması gerek gördüğüm kadarıyla, kast ettiğin başka birşey değilse eğer.
Eklemek istediğin karakterleri verirsen eklemeye çalışabiliriz.

MerakLıuSer 22 Aralık 2012 15:12
Cevap: yazi stili özeldede kullanimi?
 
özelde nick'e seslendiğimde kanaldaki gibi ince cikarmiyor ama.
sadece nick ince diğer bütün yazi ve karakterler kalin olacak. nickin hemen dibinde olsada.
nick , böyle kalin degil virgül hemen bitişiğinde olsada ince ciksin.
yazi;
sadece nick ince önündeki ve sonundaki "?,!,,,.,:,;,",..." gibi tüm işaretleri ve kelimeler. kalin gösteriyor. örnek;
nick,
nick!
nick?
nick:
nick;
"nick" bu karakterde ve 'nick' bu karakterde tanimlamiyor.
nick. gibi.

MerakLıuSer 22 Aralık 2012 21:18
Cevap: yazi stili özeldede kullanimi?
 
konu güncel.

By_ATMACA 23 Aralık 2012 00:13
Cevap: yazi stili özeldede kullanimi?
 
Alıntı:
MerakLıuSer Nickli Üyeden Alıntı (Mesaj 1041259941)
bu yazi stili özeldede aktif hale gelebilir mi?

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) {
    if !$regex($active,/(#help|#kanal2|#kanal3)/i) {
      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
  }
}
yazi;
sadece nick ince önündeki ve sonundaki "?,!,,,.,:,;,",..." gibi tüm işaretleri ve kelimeler. kalin gösteriyor. örnek;
nick,
nick!
nick?
nick:
nick;
nick...
"nick"
nick. gibi.
eklenmemiş birkaç işareti ekledim kod bozuldu. :( " gibi sonra kaldirdim sebebi nedir onlarda eklenilebilir mi
Bu Kısımdan YoLa Cık :=)
Kod:
$+(,%c,)

MerakLıuSer 23 Aralık 2012 00:28
Cevap: yazi stili özeldede kullanimi?
 
hic bisey anlamadim kardes

By_ATMACA 23 Aralık 2012 18:46
Cevap: yazi stili özeldede kullanimi?
 
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) {
    if !$regex($active,/(#help|#kanal2|#kanal3)/i) {
      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
  }
}
Dene ŞöyLe Bi istersen denemedim Kodu.

MerakLıuSer 23 Aralık 2012 21:33
Cevap: yazi stili özeldede kullanimi?
 
kanalda problem yok ama özelde işlemiyor

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 21:32 -->-> Daha önceki mesaj 21:31 --

"nick" bu işarettede başına koyunca algılamıyor. sonuna koyunca algılıyor

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 21:33 -->-> Daha önceki mesaj 21:32 --

böyle oluyor
(09:27:58) <1Meraklı> 'User' se
böyle olmali
(09:27:58) <1Meraklı> 'User' se

Med Cezir 24 Aralık 2012 02:25
Cevap: yazi stili özeldede kullanimi?
 
1-Bir parantez } yanlış yerde kullanıldığından özelde çalışmıyordu düzeltildi
2-İstediğin ' , " karakterlerini ekleyip, bu karakterleri bulduğunda kelimenin başındada kalınlaştırması sağlandı.
3- ; , : karakterleri kalınlaştırılmıyordu onlarda düzeltildi.

bu bir deneme yazısıdır uMuT.
bu bir deneme yazısıdır "uMuT"
bu bir deneme yazısıdır uMuT,
bu bir deneme yazısıdır 'uMuT'

gibi çalışıyor.

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) {
    if !$regex($active,/(#help|#kanal2|#kanal3)/i) {
      while (%a < $numtok($1-,32)) {
        inc %a
        %c = $gettok($1-,%a,32)
        if ($remove(%c,!,?,:,;,.,',$chr(44),") ison #) {
          if $regex(%c,/(\!|\?|\:|\;|\.|\'|\,|\")) {
            var %. $regml(1)
            %b = $iif(%b,%b) $iif($regex(%.,/(\'|\")),$+(%.,,$right($left(%c,$calc($len(%c) -1)),-1),,%.),$+(,$left(%c,$calc($len(%c) -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,/(\!|\?|\:|\;|\.|\'|\,|\")) {
          var %. $regml(1)
          %b = $iif(%b,%b) $iif($regex(%.,/(\'|\")),$+(%.,,$right($left(%c,$calc($len(%c) -1)),-1),,%.),$+(,$left(%c,$calc($len(%c) -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
}

MerakLıuSer 24 Aralık 2012 16:52
Cevap: yazi stili özeldede kullanimi?
 
özelde hic olmuyor. kanalda deneme;

(04:41:21) <04Merakli> Melis, selam dostum. bu tamam
(04:41:30) <04Merakli> Melis? bu tamam
(04:41:36) <04Merakli> Hey Melis! buda tamam
(04:41:46) <04Merakli> Melis; yapman gereken. bunda ; de ince gösteriyo dogru --> Melis;
(04:41:51) <04Merakli> Melis: yapman gereken. bunda : da ince gösteriyo dogru --> Melis:
(04:42:02) <04Merakli> Melis'de böyle. bunda hepsi kalin dogru --> Melis'de
(04:42:10) <04Merakli> 'Melis' böyle. bunda bastaki ' ince dogru --> 'Melis' burda.
(04:42:27) <04Merakli> "Melis" baksana. bunda bastaki " ince dogru --> "Melis" baksana.

Med Cezir 24 Aralık 2012 18:08
Cevap: yazi stili özeldede kullanimi?
 
Şuanki hali ile özelde çalışıyor, denenmiştir.

(04:42:02) <04Merakli> Melis'de böyle. bunda hepsi kalin dogru --> Melis'de

Bu kullanım dışında gösterdiklerinin hepsine uygundur. Böyle bir talepte degil 'Melis' şeklinde örnek verdiğin içindir buda.

MerakLıuSer 24 Aralık 2012 20:17
Cevap: yazi stili özeldede kullanimi?
 
aynen olmus simdi emegine saglik dostum

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 20:17 -->-> Daha önceki mesaj 20:12 --

bu olayi diger sekle cevirebilirsen makbule gecer ama =)
Melis'de gibi. =) cevirmesende canin sagolsun istedigim gibi olmus sayilir


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk