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

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

- - input Çakışması (https://www.ircforumlari.net/mirc-scripting-sorunlari/538899-input-cakismasi.html)

input Çakışması

Arkadaşlar aşagıdaki codede görüldüğü gibi @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ın daha önce paylaştıgı codeye ek olarak ç yazınca c ş yazınca $ çıkması için birşeyler yapmak istedim fakat 2 codeyi aynı anda kullanınca 1. inputun çalıştıgını gördüm bunları nasıl birleştirebilirim. tşkler. şimdiden yardım eden herkese.

Kod:

on *:input:*:{

  if (!$regex($left($1,1),/^!|[./]|/|/i/)) {

    var %wn $numtok($1-,32)

    while (%wn > 0) {

      if ($gettok($1-,%wn,32) ison #) { set %wm $+($chr(40) $+ $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { say $wn(%wm) | unset %wm | halt } | dec %wn

    }

  }

}

alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))

alias yr return $r(2,10)

on 1:INPUT:*:{  

  unset %turkce

  set %turkce $1-

  if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | halt }

  %turkce = $replace(%turkce,ı,I)

  %turkce = $replace(%turkce,İ,I)  

  %turkce = $replace(%turkce,ş,$)

  %turkce = $replace(%turkce,Ş,$)

  %turkce = $replace(%turkce,ç,c)

  %turkce = $replace(%turkce,Ç,c)

  %turkce = $replace(%turkce,ğ,G)

  %turkce = $replace(%turkce,Ğ,G)

  %turkce = $replace(%turkce,ü,u)

  %turkce = $replace(%turkce,Ü,U)  

  %turkce = $replace(%turkce,b,ß)

  %turkce = $replace(%turkce,B,ß)

  %turkce = $replace(%turkce,<,«)

  %turkce = $replace(%turkce,>,»)

  say %turkce

  unset %turkce  

  halt

}

Cevap: input Çakışması

Merhaba, @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

WingmaN'in actigi konunun 3. sayfasinda kod @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tarafindan paylasilmisti zaten sadece tek sorun ilk harfleri buyuk yazmasi onu ayarlayamadim maalesef bu saatte de kafam almadi acikcasi. Ben onu direk paylasiyorum kullanip kullanmamak size kalmis. Kullanmak istemezseniz de baslik altinda tekrar yazar, coder arkadaslarimizin yardimini beklersiniz artik. Belirttiginiz harflerin bir kacini ekledim gerisini siz halledersiniz umarim.

Kod;

Kod:

on *:input:*:{

  if (!$regex($left($1,1),/^!|[./]|/|/i/)) {

    var %wn $numtok($1-,32)

    while (%wn > 0) {

      if ($gettok($1-,%wn,32) ison #) { set %wm $+($chr(40) $+  $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { byaz $replacecs($wn(%wm),ı,I,b,ß,l,L,ş,$,ç,c,Ç,C,Ş,$)  | unset %wm | halt } | dec %wn

    }

  }

}

alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))

alias yr return $r(2,6)
 

alias byaz {

  var %/ = 1,%= = $numtok($1-,32),%: 

  while %/ <= %= { 

    var %: = $instok(%:,$+($upper($left($gettok($1-,%/,32),1)),$right($gettok($1-,%/,32),-1)),%/,32)

    inc %/ 

    haltdef 

  }

  say %:

}

Kolay gelsin.

Cevap: input Çakışması

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Merhaba Teşekkür ederim Saolun. Bu codede asciileri nasıl renki çıkmasını engellerim

Cevap: input Çakışması

Kod:

      if ($gettok($1-,%wn,32) ison #) { set %wm $+($chr(40) $+  $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { byaz $replacecs(%wm,ı,I,b,ß,l,L,ş,$,ç,c,Ç,C,Ş,$)  | unset %wm | halt } | dec %wn

Üstte ki satırı var olan ile değiştirirseniz renk iptal olacaktır, alias wn satırı ile alias yr satırlarını komple silebilirsiniz.

Ufak bir not: Eğer ki elinizde olan input'ların başka bir input ile çakışmasını istemiyorsanız, hepsi aynı input altında olmak durumundadır, farklı farklı " * " input açılımı demek, hepsini aynı anda işleme tabii tut demektir ki, biz bunu istemeyiz, o zaman yazılarımız da 2 defa veya 3 defa çıkacaktır. (ekli olan input sayısına göre) Bu inputları birleştirmek için de, kendiniz başaramıyorsanız, kod'unuzu paylaşıp yardım isteyebilirsiniz, bu sadece ufak bir bilgilendirme mesajıdır.

Cevap: input Çakışması

Çok Teşekkür ederim arkadaşlar saolun.