input Çakışması - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

StyLechiLd · 28 Temmuz 2013, 04:25

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: Kodu kopyalamak için üzerine çift tıklayın!

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
}

Rüzgar · 28 Temmuz 2013, 07:37

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: Kodu kopyalamak için üzerine çift tıklayın!

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.

StyLechiLd · 28 Temmuz 2013, 14:19

@[Ü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

WingmaN · 28 Temmuz 2013, 17:50

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

      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.

StyLechiLd · 28 Temmuz 2013, 19:01

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Input Cakışması.	yaLin	mIRC Scripting Sorunları	6	20 Mart 2017 00:09
Alias Çakışması	serencebey	mIRC Scripting Sorunları	1	21 Ocak 2013 16:36
xpopup.dll dcx.dll çakışması	muratt_aziz	mIRC Scripting Sorunları	1	28 Ocak 2010 13:21
Random kod çakışması	Emrax	mIRC Scripting Sorunları	5	05 Ocak 2010 16:05

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.