Yazı tipine ufak bi düzenleme - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

10 Eylül 2011, 13:50

S.a IF sakinleri.. Elimdeki yazı stili kelimelerin ilk harflerini büyük yazıyor yanls "q" harfi muaf olarak ayarlı mesela qardeŞim dediqimizde Qardeşim olarak cıkmıyor.. şimdi ise ben e harfini £ olarak ayarlamak istiyorum ama sadece kelime basındaki "e" harflerini kelime ortasından gecenleri değil :
örnek: "£lime Gecsen £llerimle Boğardım Seni £min Ol" umarım anlata bilmisimdir sevgiler..
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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


on 1:INPUT:*: {  
  set %purp $replace(%purp,b,B) 
  if ( $left($1,1) == / ) { goto son }  
  if ($ctrlenter) { goto son }  
  if ($active == Status Window) { Echo -a %logo2 12 Statusa Birşey Yazamazsınız. | goto halt }  
  if ($active == @Bot) { goto halt }  
  set %Var3 $1-  
  unset %Var1 %Var2  
  set %Var1 1 | set %Var2 $upper($mid(%Var3,1,1))  
  if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand }  
  if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) | say %Var2 | halt }  
  :Start1  
  inc %Var1 1  
  if ($mid(%Var3,%Var1,1) != $chr(32)) { set %var2 $replace(%Var2,l,L) $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } }  
  if ($mid(%Var3,%Var1,1) == $chr(32)) { set %var2 %var2 $+ $upper($mid(%Var3,%Var1,2)) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } } 
  if ($len(%Var3) != %Var1) { goto Start1 }  
  say $replace(%Var2,Q,q,b,B) 
  halt  
  :ServerCommand  
  :halt  
  halt  
  :son  
}

Set · 10 Eylül 2011, 14:36

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

on 1:INPUT:*: {  
  set %purp $replace(%purp,b,B) 
  if ( $left($1,1) == / ) { goto son }  
  if ($ctrlenter) { goto son }  
  if ($active == Status Window) { Echo -a %logo2 12 Statusa Birşey Yazamazsınız. | goto halt }  
  if ($active == @Bot) { goto halt }  
  set %Var3 $1-  
  set %Var1 1 | set %Var2 $replace($upper($mid(%Var3,1,1)),e,£)
  if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand }  
  if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) | say %Var2 | halt }  
  :Start1  
  inc %Var1 1  
  if ($mid(%Var3,%Var1,1) != $chr(32)) { set %var2 $replace(%Var2,l,L) $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } }  
  if ($mid(%Var3,%Var1,1) == $chr(32)) { set %var2 %var2 $+ $replace($upper($mid(%Var3,%Var1,2)),e,£) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } } 
  if ($len(%Var3) != %Var1) { goto Start1 }  
  say $replace(%Var2,Q,q,b,B) 
  halt  
  :ServerCommand  
  :halt  
  halt  
  :son  
}

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

[14:38] <Aeg> £zel
[14:38] <Aeg> NasiLsin £zel
[14:38] <Aeg> NaBer Zel
[14:38] <Aeg> £zeL £ve Gel
[14:38] <Aeg> :)

Narsinha · 11 Eylül 2011, 20:01

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

on 1:INPUT:*: { 
  if ($left($1,1) == / ) || ($ctrlenter) || ($active == @Bot) { return }
  if ($active == Status Window) { Echo -a %logo2 12 Statusa Birşey Yazamazsınız. | return }
  say $regsubex($1-,/(^| )(.)/g,\1 $replace($upper(\2),e,£)) 
  halt
}

qardesim Qardesim olarak cıkar.

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

on 1:INPUT:*: { 
  if ($left($1,1) == / ) || ($ctrlenter) || ($active == @Bot) { return }
  if ($active == Status Window) { Echo -a %logo2 12 Statusa Birşey Yazamazsınız. | return }
  say $regsubex($1-,/(^| )(.)/g,\1 $replace($upper(\2),e,£,Q,q)) 
  halt
}

qardesim qardesim olarak cıkar.

fav · 11 Eylül 2011, 21:40

kısave öz tbrler

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Yazı Şeklimdeki Ufak Bir Sorun	kArAyAzi	mIRC Scripting Sorunları	4	31 Ağustos 2010 20:30
yazı tipine ilave..	TİGeR	mIRC Scripting Sorunları	4	16 Mayıs 2009 10:30
Saç Tipine Göre Tarak	Heidi	Güzellik, Sağlık ve Bakım Önerileri	0	28 Ekim 2008 20:02

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.