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

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

- - INPUT Hakkında yardım (https://www.ircforumlari.net/mirc-scripting-sorunlari/346320-input-hakkinda-yardim.html)

INPUT Hakkında yardım

Kod:

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 

}

Arkadaslar bu yazı tıpı ınce yazıyo bunu Kelımelerın Basharflerını buyuk yazacak sekılde ayarlayabılırmıyız yardımcı olursanız sevınırım.

Cevap: INPUT Hakkında yardım

PHP- Kodu:

   alias basharf {
  return $regsubex($1-,/(?<=^| )(.)/g,$+(,$upper(\1),))
}

forbidden vermişti bu kodu bana biraz editledikten sonra kullanmaya başlamıştım sanırım senin istediğin kodda bu :)

bunu eklersen

PHP- Kodu:

   say %csr kısmını

say $basharf( $+ %csr $+ )

olarak değişirsen olacaktır.

Cevap: INPUT Hakkında yardım

[22:06] <@DaDaS> selam
* /say: insufficient parameters (line 104, Yazışekilleri)

Cevap: INPUT Hakkında yardım

pardon farketmemişim %csr yi setlemiyorsun onu setle önce şöyle olucak

.set %csr $replacecs(%csr,b,ß,ş,$)

Cevap: INPUT Hakkında yardım

on *:input:#: {
if !$regex($1,\/) {
msg $active 1 $+ $iif($regex($1,[0-9]),$+($chr(32),$1-),$1-)
halt
}
}
on *:input:?: {
if !$regex($1,\/) {
msg $active 12 $+ $iif($regex($1,[0-9]),$+($chr(32),$1-),$1-)
halt
}
}

arkadaslar yukarıda kardesım belırttı ama yıne olmadı bu kod ınce yazı yazıyo fakat kelımelerın bas harflerını buyuk yazmak ısıtıyorum bır cok denememe ragmen yapamadım yardımcı olabılecek bırı varmı .

Cevap: INPUT Hakkında yardım

iLk Harf Buyuk :D

Alıntı:

on *:input:*: {
if /* !iswm $1- && !$inpaste && status !isin $active && @* !iswm $active {
say $regsubex($1-,/(?<=^|\s)(.)/g,$+( ,$upper(\1), ))
halt
}
}

Cevap: INPUT Hakkında yardım

Peki bu Kodda boCek : selam Olarak nasıL yapariz ? Yani ben boCek selam yazdigimda Otomatik boCek : selam yazacak :) Vardi IF'dede Aklima Gelmiyor İsmi :)

Cevap: INPUT Hakkında yardım

Alıntı:

bøCek Nickli Üyeden Alıntı (Mesaj 1040473840)

Peki bu Kodda boCek : selam Olarak nasıL yapariz ? Yani ben boCek selam yazdigimda Otomatik boCek : selam yazacak :) Vardi IF'dede Aklima Gelmiyor İsmi :)

Alıntı:

On 1:input:*:{
if ($1- == bocekselam) { say 1Selam | halt }
}

Sanırım Dedığin Bu ŞekiL

Cevap: INPUT Hakkında yardım

Alıntı:

bøCek Nickli Üyeden Alıntı (Mesaj 1040473840)

Peki bu Kodda boCek : selam Olarak nasıL yapariz ? Yani ben boCek selam yazdigimda Otomatik boCek : selam yazacak :) Vardi IF'dede Aklima Gelmiyor İsmi :)

/nickkalin on : Açar
/nickkalin off : Kapar

Yazdıktan sonra açmayı unutma. =)

Kod:

alias nickkalin {

if $1 == on { enable #massacre }

if $1 == off { disable #massacre }

}

#massacre off

on *:input:*:{

if $1 ison $active {

say $regsubex($1,/(.)/gi,$+($chr(2),\t,$chr(15))) : $2-

halt

}

}

#massacre end

----------

Alıntı:

DaDaS Nickli Üyeden Alıntı (Mesaj 1040472684)

Kod:

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 

}

Arkadaslar bu yazı tıpı ınce yazıyo bunu Kelımelerın Basharflerını buyuk yazacak sekılde ayarlayabılırmıyız yardımcı olursanız sevınırım.

/ilkbuyuk on : Açar
/ilkbuyuk off : Kapar

Yazdıktan sonra açmayı unutmayın =)

Kod:

alias ilkbuyuk {

if $1 == on { enable #massacre }

if $1 == off { disable #massacre }

}

#massacre off

on *:input:*:{

if $regex($1-,/(^[\x2F])/) { $1- | halt }

else { say $regsubex($1-,/(^.|\s.)/gi,$upper(\t)) | halt }

}

#massacre end

Cevap: INPUT Hakkında yardım

#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 1~ $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
}
#yaziilkbuyuk end

bende halletım gercıde yınede hepınız sagolun arkadaslar