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

yuvarlananpanda · 24 Haziran 2013, 21:26

Öncelikle kod için çok teşekkürler. Emeğinize sağlık. Bir sorum olacaktı;

"<Ayrıca herhangi birinin "nick" 'ini " kanal " içerisinde yazmış olduğunuzda o nick'i parantez içine alıp, belirlediğiniz renk ile veya karışık renkli şekilde kalınlık ayarı ile birlikte kanalda kullanmanıza yardımcı olacaktır.

Ekstra olarak kanal içerisinde bulunduğunuz kanalı yazdığınızda tekrar belirlediğiniz renk'te "<#kanal>" şeklinde, kanalda yazmanıza yardımcı olacaktır. >"

Demişsiniz ya. Ben bu nick ve kanal renklendirmeyi istemiyorum da. Koddan nasıl silebilirim?

By_ATMACA · 24 Haziran 2013, 23:31

Şu şekilde dener misin bi

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,1,$chan,,,))
alias yr return $r(2,6)

aLone · 02 Eylül 2014, 02:14

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

Arkadaşlar elimdeki koda ek olarak Cümlenin ilk harfi büyük ve sonunada noktalama işareti ekleyebilirmiyiz. Aşağıdaki koda bunu nasıl ekleriz.
on 1:INPUT:*:{
if ( $left($1,1) == /) && ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a Statusa Bir?ey Yazamazs?n?z. | goto halt }
unset %csr
set %csr $+ $1-
if ( $chr(47) == $mid(%csr,1,1) ) { %csr | unset %csr* | halt }
%csr = $replacecs(%csr,b,ß,?,$)
say %csr
unset %csr
halt
:halt
halt
:son
}

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

on *:input:*:if $regex($1-,^[^/]) { msg $active  $replacecs($regsubex($1-,/(^\S)/, $upper(\1)), b,ß) $+ . | halt }

Daha kısa bir kodla bunu daha önce Feragat sizinle paylaştı
Şuan paylaşmış oldugumuz kod. ilk harf büyük cümle sonunda Nokta(.) ve ince yazıyor
kopyalarken Ctrl+b karakterini almıyorsa kırmızı renkle işaretlediğim bölüme CTRL +B karakterini uygula
msg $active burası $replacecs

Ayrıca Bu bölüme b,ß) aralarına virgül koyarak coğalta bilirisin b,ß,ş,Ş,?,$) ş harfi size Ş soru işareti ? ise $ olarak dönecektir.umaraım anlata bilmişimdir

Dahimurat · 02 Eylül 2014, 17:54

aLone hocam dediğiniz kodları ben birleştirip her cümlenin ilkharfi büyük sonuna nokta işareti uyguladım. anladım buraya kadar. Fakat sadece ince yazmıyor şu aşağıdaki kod tamam ama kalın yazıyor ben sadece ince yazmasını istiyorum. noktalama ve her cümlenin ilkharfi büyük çıkıyor tamamdır. sadece ince yazmam için neresine ek yazabilirim yada değişebilirim. tşkler

on 1:INPUT:*:{
if ( $left($1,1) == /) && ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a Statusa Bir?ey Yazamazs?n?z. | goto halt }
unset %csr
set %csr $+ $1-
if ( $chr(47) == $mid(%csr,1,1) ) { %csr | unset %csr* | halt }
{ msg $active $replacecs($regsubex($1-,/(^\S)/, $upper(\1)), b,ß,s,S) $+ . | halt }
say %csr
unset %csr
halt
:halt
halt
:son
}

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 18:13 -->-> Daha önceki mesaj 18:00 --

aLone hocam birde ./oper nick veya /nick pass komut uygulanmıyor. bu kodda bu sorunuda veriyor.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 18:24 -->-> Daha önceki mesaj 18:13 --

aloNe hocam tamam ince yazı koduda uyguladım ve oldu sadece oper açamıyorum komut yazdığımda sohbet odasına yansıyor.

aLone · 02 Eylül 2014, 18:15

scriptinde INPUT cakışması olabilir [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
scriptindeki input ları deaktif et dene hangisi çakışıyorsa o şekilde bulabilirsin.
Bu yazı stili ile alakalı bir sorun deyil
Team viwer varsa pm at ordan bakalım scriptine istersen.

Dahimurat · 02 Eylül 2014, 19:16

aLone kod sorunumu pc me bağlanarak halletmiştir. Çok tşk ediyorum alone arkdaşımıza sağolasın. emeğine sağlık..

alifb · 08 Ekim 2014, 01:47

Merhabalar bana da yardımcı olur musunuz acaba? Noktalama işaretleri kırmızı, sadece nick bölümü ince parantez falan yok yanında ve cümlenin sadece ilk harfi büyük olan kod lazım yardımcı olursanız sevinirim.

Feragat · 09 Ekim 2014, 15:31

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

Merhabalar bana da yardımcı olur musunuz acaba? Noktalama işaretleri kırmızı, sadece nick bölümü ince parantez falan yok yanında ve cümlenin sadece ilk harfi büyük olan kod lazım yardımcı olursanız sevinirim.

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

on *:input:*:{
  if ($regex($1-,/^(?!\/|!|\.)/)) { 
    msg $active $regsubex(c,$regsubex(b,$regsubex(a,$1-,/([[:punct:]])/g,$+($chr(3), 4, \1, $chr(15))), $&
      /(\S+)/g,$iif($strip(\1) ison # || $strip(\1) = $active, $+($chr(2),$v1,$chr(2)),\1)),/^(\S)/,$upper(\1)) | halt
  }
}

alifb · 18 Ekim 2014, 23:07

Feragat Nickli Üyeden Alıntı
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!

on *:input:*:{
  if ($regex($1-,/^(?!\/|!|\.)/)) { 
    msg $active $regsubex(c,$regsubex(b,$regsubex(a,$1-,/([[:punct:]])/g,$+($chr(3), 4, \1, $chr(15))), $&
      /(\S+)/g,$iif($strip(\1) ison # || $strip(\1) = $active, $+($chr(2),$v1,$chr(2)),\1)),/^(\S)/,$upper(\1)) | halt
  }
}

Yardımın için tekrardan teşekkürler Feragat kardeşim peki bişey daha sorucam bu vermiş olduğun kodda parantezli karakterlerin siyah olmasını istiyosam ne yapmalıyım?

Feragat · 19 Ekim 2014, 14:24

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

Yardımın için tekrardan teşekkürler Feragat kardeşim peki bişey daha sorucam bu vermiş olduğun kodda parantezli karakterlerin siyah olmasını istiyosam ne yapmalıyım?

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

on *:input:*:{
  if ($regex($1-,/^(?!\/|!|\.)/)) { 
    msg $active $regsubex(d,$regsubex(c,$regsubex(b,$regsubex(a,$1-,/([[:punct:]])/g,$+($chr(3), 4, \1, $chr(15))), $&
      /(\S+)/g,$iif($strip(\1) ison # || $strip(\1) = $active, $+($chr(2),$v1,$chr(2)),\1)),/^(\S)/,$upper(\1)),/(\x28|\x29)/g,$+($chr(3),1,\1,$chr(15))) | halt
  }
}

Bunu kullanabilirsin. Açık "(" ve ")" kapalı parantez siyah gözükür.

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	ofofyaRim	mIRC Scripting Sorunları	13	05 Haziran 2008 12:44
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 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.