yazi stili özeldede kullanimi? - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

MerakLıuSer · 21 Aralık 2012, 00:27

bu yazi stili özeldede aktif hale gelebilir mi?

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
" gibi sonra kaldirdim sebebi nedir onlarda eklenilebilir mi

Med Cezir · 22 Aralık 2012, 04:38

Ö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

ö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

konu güncel.

By_ATMACA · 23 Aralık 2012, 00:13

MerakLıuSer Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

bu yazi stili özeldede aktif hale gelebilir mi?

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
" gibi sonra kaldirdim sebebi nedir onlarda eklenilebilir mi

Bu Kısımdan YoLa Cık :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

$+(,%c,)

MerakLıuSer · 23 Aralık 2012, 00:28

hic bisey anlamadim kardes

By_ATMACA · 23 Aralık 2012, 18:46

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

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

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: Kodu kopyalamak için üzerine çift tıklayın!

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

ö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.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
IRCbook icin yazi stili ..	Coldman	mIRC Scripting Sorunları	3	06 Aralık 2011 18:13
Yardım! Yazi Stili Kodunda Hata	Nothinq	mIRC Scripting Sorunları	3	16 Ekim 2010 11:56
mToolbar.Dll Kullanimi	Rohit	mIRC Scripting Programları	13	07 Mart 2010 18:27
GParted Kullanimi	Julw	GNU, Linux ve UNIX	0	22 Kasım 2007 10:45

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.