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

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

- - yazı sekline ilave (https://www.ircforumlari.net/mirc-scripting-sorunlari/275787-yazi-sekline-ilave.html)

yazı sekline ilave

selam arkadaslar. elimde şöle bi remote var

PHP- Kodu:

   #yaziqarisma end 
#yaziilkbuyuk on
on 1:INPUT:*: { 
  if ( $left($1,1) == / ) { goto son } 
  if ($ctrlenter) { goto son } 
  if ($active == Status Window) { Echo -a %logo2 11,1Status'a 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 %Var2 $+ $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 %Var2 
  halt 
  :ServerCommand 
  :halt 
  halt 
  :son

bu input codu kelimelerin bas harflerini Buyuk Yazıoyor buna ilaveten (l,L,b,ß) bunlarıda böyle yazmasını istiyorum nasıl yaparız arkadaslar. ?

Cevap: yazı sekline ilave

Kod:

#yaziqarisma end 

#yaziilkbuyuk on

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 11,1Statusa 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,b,ß,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 %Var2 

  halt 

  :ServerCommand 

  :halt 

  halt 

  :son

Denemedim , sorun cıkarırsa bilgilendirirsin.

Cevap: yazı sekline ilave

Alıntı:

TriviuM` Nickli Üyeden Alıntı (Mesaj 833884)

Kod:

#yaziqarisma end 

#yaziilkbuyuk on

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 11,1Statusa 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,b,ß,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 %Var2 

  halt 

  :ServerCommand 

  :halt 

  halt 

  :son

Denemedim , sorun cıkarırsa bilgilendirirsin.

dostum saol calısıor eline saglık ;olley

Cevap: yazı sekline ilave

paylaşım için thanks ..