IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Yazı tipine ufak bi düzenleme (https://www.ircforumlari.net/mirc-scripting-sorunlari/410217-yazi-tipine-ufak-bi-duzenleme.html)

Yazı tipine ufak bi düzenleme

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.. ;s1

PHP- Kodu:

   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  
}

Cevap: Yazı tipine ufak bi düzenleme

Kod:

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:

[14:38] <Aeg> £zel

[14:38] <Aeg> NasiLsin £zel

[14:38] <Aeg> NaBer Zel

[14:38] <Aeg> £zeL £ve Gel

[14:38] <Aeg> :)

Cevap: Yazı tipine ufak bi düzenleme

Kod:

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:

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.

Cevap: Yazı tipine ufak bi düzenleme