/* Yazı Tipi - Noktalama işaretleri ve Fazlası */ - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Narsinha · 09 Aralık 2011, 15:26

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

on *:INPUT:*: { 
  if ($left($1,1) == / ) || ($ctrlenter) { return }
  if ($active == Status Window) { echo -a 4 Statusa Birşey Yazamazsınız. | return }
  say $regsubex($regsubex($1-,/(^| )(.)/g,\1 $upper(\2)),/([[:punct:]])/g,4\1))
  halt
}

sonuç

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

WingmaN · 09 Aralık 2011, 19:24

Alıntı:

[[:punct:]] regex'te noktalama işaretleri ile eşleşir.Bunu kullanarakta noktlama işaretlerini renklendirebilirsin.While loop kullanarak mirci yormana gerek yok bu kod için.

Aferin, regex'i öğrenmişsin. Bu bilgilerini yardım istediğin kişileri rencide etmeye çalışarak kullanmasan daha iyi olur. Ayrıca, bir while mIRC'i yormaz, CPU üzerinden işleme alır ki, değil bir loop, 10 loop aynı anda açsan, yine de senin farkedemeyeceğin bir şekilde etkileşime sokar ki, senin bunu kalkıp da benim bilmediğim birşeyi, bana göstermeye çalışmak gibi birşey olmuş bu ki, gördüğün gibi kodlamanın başında can sıkıntısı ve konuya örnek amacıyla açılmış bir post bulunmakta.

Amacın eğer farklıysa, bunu farklı dillerle anlat, farklı şekillerde çözelim, böyle saçma sapan gereksiz " Taş'lama " post'larıyla dikkat çekmeye çalışmana gerek yok sanırım.

W

Narsinha · 09 Aralık 2011, 22:24

Eleştiriyi kaldıramıyorsun Wingman.Dikkat çekmek v.s konusuna gelince ölü balığı kim canlandırmışta ben canlandıracam.Neyse arkadaşım süper kod yazmışsın aynen böyle devam et.

tam1deLi · 22 Aralık 2011, 18:43

Parantez istemiyorum bu kod icin nasıl olucak, yani ncikleri parantez icinde yazmasın normal yazssın

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

on *:input:*:{
  if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
    var %wn $numtok($1-,32)
    while (%wn > 0) {
      if ($gettok($1-,%wn,32) ison #) { set %wm $+($chr(40) $+ $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { say $wn(%wm) | unset %wm | halt } | dec %wn
    }
  }
}
alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))
alias yr return $r(2,6)

WingmaN · 23 Aralık 2011, 00:09

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

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

on *:input:*:{
    if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
      say $wn($1-) | halt
       }
}
alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))
alias yr return 4

Narsinha · 23 Aralık 2011, 02:18

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

Daha orada ki " while " 'ın hangi amaçla kullanıldığına bile dikkat etmeden, bana kalkıp saçma sapan post atarsan, bende sana gerekli açıklamayı elbette yaparım @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] .

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

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

on *:input:*:{
    if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
      say $wm($1-) | halt
       }
}
alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))
alias yr return 4

Bu kod bence hantalca hala yorumu mu merak ediyorsan
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

tam1deLi · 26 Aralık 2011, 14:29

* /say: insufficient parameters (line 3, 2.txt)

böyle bir hata alıyorum

Set · 26 Aralık 2011, 16:16

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

 
on *:input:*:{
  if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
    var %wn $numtok($1-,32)
    while (%wn > 0) {
      if ($gettok($1-,%wn,32) ison #) { set %wm  $+(,$yr,$gettok($1-,%wn,32),) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { say $wn(%wm) | unset %wm | halt } | dec %wn
    }
  }
}
alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))
alias yr return $r(2,6)

parantez'lerin kaldırılması isteniliyor galiba, codda tam1deLi arkadasımız bu WingmaN arkadasımızın parantezsiz codu.

WingmaN · 26 Aralık 2011, 18:10

Yok hayır, " $wn " yazıcağım yerde, " $wm " yazmışım, düzelttim yukarda, ordan alabilirsin @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

BorTeCineOguzhan · 05 Ocak 2012, 19:18

Merhaba Arkadaslar öncelikle Saçma Bir Soru ise Hor görmeyin bu işlerden pek anlamam
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Benım Sorum su parantez içinde yazmak yerine başka semboller kullanabilirmiyim örnegin Hasan nickini | Hasan |olarak yazabilirmiyim bu sadEce bi örnekti Bunu nerden değiştirebilirim Şimdiden Teşekkur ederim

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Noktalama işaretleri	Lcia	Türkçe	0	27 Kasım 2014 19:59
Yazı Tipi Hk.	Prens	mIRC Scripting Sorunları	1	08 Nisan 2013 19:16
Yazı Tipi	Impulsiv	mIRC Scripting Sorunları	11	21 Haziran 2008 21:19
yazı tipi	Requiem	mIRC Scripting Sorunları	5	08 Ekim 2006 07:31
yazı tipi	Serhatt	mIRC Scripting Sorunları	1	05 Ekim 2006 18:57

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.