IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Çözüldü Özel yazı stilinde değişiklik

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

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

- - Çözüldü Özel yazı stilinde değişiklik (https://www.ircforumlari.net/mirc-scripting-sorunlari/396127-ozel-yazi-stilinde-degisiklik.html)

RadyocUgur

07 Haziran 2011 22:10

Özel yazı stilinde değişiklik

ConferenceRoom bir sunucuya takiliyorum.. biliyorsunuz ki bu tür sunucularda genelde renkli yazilar unreal sunucular gibi sorun olmuyor banlanmiyorsunuz renkli yazi yuzunden kanallardan. Onun icin kendime CesuryureK arkadasimizin emegi olan mIRC Turkce 6.35 Scripti kendime gore duzenlemeler yaptim kullaniyorum ve bu scripte resimdeki sekilde yazi addonu eklemek istiyorum yardimi gececek herkese tesekkurler.

Dip Not: Tıpkisinin aynisi olsun istiyorum.

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

Orjinalinden alintidir. Coder by 4CesuryureK

on 1:input:*:{
if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end }
if ($1- == isnum) { goto end }
var %a 0, %b, %c
while (%a < $numtok($1-,32)) {
inc %a
%c = $gettok($1-,%a,32)
if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+($chr(3),1) $chr(2) %c $chr(3) $chr(2) }
else { %b = %b %c }
}
if (!%b) { %b = $1- }
say %b
halt
:end
}

CesuryureK

09 Haziran 2011 09:07

Cevap: Özel yazı stilinde değişiklik

Kod:

On 1:input:*:{

  if  ($left($1,1) != /) || ($active != Status Window)  {

    if ($target == $chan) {

      if $1 isnum  { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $1 $regsubex($2-,/(\S+)/gi,$iif(\1 ison #,$+($chr(2),\1,$chr(2)),$+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3)),$mid(\1,2-)))) | halt }

      else {

        msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+($chr(2),\1,$chr(2)),$+($+($+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3),$chr(2))),$chr(2)),$mid(\1,2-)))) 

        halt

      }

    } 

    else {

      if $1 isnum  { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $1 $regsubex($2-,/(\S+)/gi,$iif(\1 isin $target,$+($chr(2),\1,$chr(2)),$+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3)),$mid(\1,2-)))) | halt }

      else {

        msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $regsubex($1-,/(\S+)/gi,$iif(\1 isin $target,$+($chr(2),\1,$chr(2)),$+($+($+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3),$chr(2))),$chr(2)),$mid(\1,2-)))) 

        halt

      }

    }

  }

}

Aslında böyle direk isteklere cevap vermiyoruz. Lakin canım sıkıldı uğraşmak için birşeyler arıyordum denk geldi.

Kod hem özelde hemde kanalda nickleri ince yapar ve hem özelde hemde kanalda çalışacaktır aynı yazı tipi ile.

Örnek: Bu Nedir Deme CesuryureK Bu Bir Yazı Tipi Deneme Yazısıdır.

RadyocUgur

10 Haziran 2011 16:15

Cevap: Özel yazı stilinde değişiklik

Alıntı:

CesuryureK Nickli Üyeden Alıntı (Mesaj 1040760443)

Kod:

On 1:input:*:{

  if (/* !iswm $1) || ($active != Status Window)  {

    if ($target == $chan) {

      if $1 isnum  { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $1 $regsubex($2-,/(\S+)/gi,$iif(\1 ison #,$+($chr(2),\1,$chr(2)),$+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3)),$mid(\1,2-)))) | halt }

      else {

        msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+($chr(2),\1,$chr(2)),$+($+($+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3),$chr(2))),$chr(2)),$mid(\1,2-)))) 

        halt

      }

    } 

    else {

      if $1 isnum  { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $1 $regsubex($2-,/(\S+)/gi,$iif(\1 isin $target,$+($chr(2),\1,$chr(2)),$+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3)),$mid(\1,2-)))) | halt }

      else {

        msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $regsubex($1-,/(\S+)/gi,$iif(\1 isin $target,$+($chr(2),\1,$chr(2)),$+($+($+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3),$chr(2))),$chr(2)),$mid(\1,2-)))) 

        halt

      }

    }

  }

}

CesuryureK cok teşekkur ediyorum hocam iyi denk gelmisim oyleyse) oldu fakat soyle bir sorunla karsilastim /join #kanal olarak kanallara girmiyor;idea neden acaba kanala yansitiyor oldugu gibi komutu.. birde boyle bos bir vaktinizi yakalamisken fisatcilik gibi olmasin ama CesuryureK ;
Ben istedigim resim örneginde butun kelimelerin harfleri buyuk ciksin istemistim biliyorum ama gozume hos gelmedi "İ"lk harf buyuk digerleri kucuk olucak sekilde ayarlamak istersem hangi bolumu degısmem gerekir onuda belirtirseniz pek horaa gececektir hocam simdiden teşekkürler.

Örn:

[16:08] <Ugur> /j Ur
[16:08] <Ugur> Allah Allah
[16:14] <Ugur> /join #ur

L4roXyL

10 Haziran 2011 21:04

Cevap: Özel yazı stilinde değişiklik

Kodda 2. satırı kaldır.
Verdiğim satırı ekle: if ($left($1,1) != /) {

SessizKaLp

12 Ağustos 2011 07:18

Cevap: Özel yazı stilinde değişiklik

Emeği geçen coder arkadaşların eline sağlık.. ilk harfleri küçük olarak nasıl yapabiliriz? büyük olmasın.. ve bu yazı şeklind eki metin öncesi ctrl + k kutucuğu çıkıyor.. onunda mutlak bir önlemi var mı acaba çıkmasın..

WingmaN

13 Ağustos 2011 02:11

Cevap: Özel yazı stilinde değişiklik

Lütfen, bu başlığı kontrol ediniz.

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

SessizKaLp

22 Ağustos 2011 18:41

Cevap: Özel yazı stilinde değişiklik

Alıntı:

CesuryureK Nickli Üyeden Alıntı (Mesaj 1040760443)

Kod:

On 1:input:*:{

  if (/* !iswm $1) || ($active != Status Window)  {

    if ($target == $chan) {

      if $1 isnum  { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $1 $regsubex($2-,/(\S+)/gi,$iif(\1 ison #,$+($chr(2),\1,$chr(2)),$+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3)),$mid(\1,2-)))) | halt }

      else {

        msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+($chr(2),\1,$chr(2)),$+($+($+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3),$chr(2))),$chr(2)),$mid(\1,2-)))) 

        halt

      }

    } 

    else {

      if $1 isnum  { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $1 $regsubex($2-,/(\S+)/gi,$iif(\1 isin $target,$+($chr(2),\1,$chr(2)),$+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3)),$mid(\1,2-)))) | halt }

      else {

        msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $regsubex($1-,/(\S+)/gi,$iif(\1 isin $target,$+($chr(2),\1,$chr(2)),$+($+($+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3),$chr(2))),$chr(2)),$mid(\1,2-)))) 

        halt

      }

    }

  }

}

normal metin yazmak için hangi komutu değiştirmemiz lazım arkadaşlar? ilk harf büyük YAZMASIN..

fav	07 Eylül 2011 23:29

Cevap: Özel yazı stilinde değişiklik

$lower identify ni kullanabilirsin
örnek: //ech -a $lower(SELAM) selam

kodu şöyle değişsek kısa ve hızlı sanırım istediğin olur

Kod:

On *:input:*:{

  if (/* !iswm $1) || ($active != Status Window)  {

    if ($target == $chan) {

      if $1 isnum  { msg $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $1 $regsubex($2-,/(\S+)/gi,$iif(\1 ison #,$+($chr(2),\1,$chr(2)),$+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3)),$mid(\1,2-)))) | halt }

      else {

        var %dnm $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+($chr(2),\1,$chr(2)),$+($+($+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3),$chr(2))),$chr(2)),$mid(\1,2-)))) 

        msg $lower(%dnm)

        halt

      }

    } 

    else {

      if $1 isnum  { 

      var dnm1 $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $1 $regsubex($2-,/(\S+)/gi,$iif(\1 isin $target,$+($chr(2),\1,$chr(2)),$+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3)),$mid(\1,2-)))) | halt }

      msg $lower(%dnm1)

      else {

        var dnm2 $target $+($+($+($chr(3),14),$chr(263)),$chr(3)) $regsubex($1-,/(\S+)/gi,$iif(\1 isin $target,$+($chr(2),\1,$chr(2)),$+($+($+($+($chr(3),14),$+($upper($left(\1,1)),$chr(3),$chr(2))),$chr(2)),$mid(\1,2-)))) 

        msg $lower(%dnm2)

        halt

      }

    }

  }

}

arslan__

09 Eylül 2012 22:43

Cevap: Özel yazı stilinde değişiklik

Peki bu yazı tipinin hem baş harflerini altı çizili ve renkli diğerlerininde başka bi renkte mesel mirc renk tonu olarak konuşmak gerekirse her kelimenin baş harfleri 12 renginde altı çizili diğer harfler 14 renginde böyle bir yazı tipi gördüm arıyorum bulamıyorum yardımcı olursanız sevinirim

Selam Naber gibi

By_ATMACA

10 Eylül 2012 14:38

Cevap: Özel yazı stilinde değişiklik

Kod:

On 1:input:*:{ 

  if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end }

  if ($1- == isnum) { goto end }

  var %a 0, %b, %c, %d, %e, %f

  while (%a < $numtok($1-,32)) {

    inc %a

    %c = $gettok($1-,%a,32)

    if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(·,%c,·) }

    else {

      if (%a == $numtok($1-,32)) {

        %d = $+($right(%c,..1),,,)

        %f = $right(%d,2)

      }

      %e = $regsubex(%c,/(?=^| )(.)/g,$+(12,$upper(\1),14))

      %b = %b $+(%e,%f)

    }

  }

  if (!%b) { %b = $1- }

  else { say %b }

  halt

  :end

}

arslan__ Buyrun

arslan__

10 Eylül 2012 19:13

Cevap: Özel yazı stilinde değişiklik

Çok sağolun teşekkürler

BeReLi

11 Mayıs 2019 17:50

Cevap: Özel yazı stilinde değişiklik

Alıntı:

By_ATMACA Nickli Üyeden Alıntı (Mesaj 1041211689)

Kod:

On 1:input:*:{ 

  if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end }

  if ($1- == isnum) { goto end }

  var %a 0, %b, %c, %d, %e, %f

  while (%a < $numtok($1-,32)) {

    inc %a

    %c = $gettok($1-,%a,32)

    if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(·,%c,·) }

    else {

      if (%a == $numtok($1-,32)) {

        %d = $+($right(%c,..1),,,)

        %f = $right(%d,2)

      }

      %e = $regsubex(%c,/(?=^| )(.)/g,$+(12,$upper(\1),14))

      %b = %b $+(%e,%f)

    }

  }

  if (!%b) { %b = $1- }

  else { say %b }

  halt

  :end

}

arslan__ Buyrun

rakkamlarda sıkıntı oluyor onu nasıl cözeriz acaba ?

Alper

11 Mayıs 2019 19:20

Cevap: Özel yazı stilinde değişiklik

Alıntı:

Tamer Genc Nickli Üyeden Alıntı (Mesaj 1042075724)

rakkamlarda sıkıntı oluyor onu nasıl cözeriz acaba ?

Kod:

On 1:input:*:{ 

  if !$regex($1,/(\.|!|\/|[0-9])/i) || ($ctrlenter) {

    var %a 0, %b, %c, %d, %e, %f

    while (%a < $numtok($1-,32)) {

      inc %a

      %c = $gettok($1-,%a,32)

      if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(·,%c,·) }

      else {

        if (%a == $numtok($1-,32)) {

          %d = $+($right(%c,..1),,,)

          %f = $right(%d,2)

        }

        %e = $regsubex(%c,/(?=^| )(.)/g,$iif(%c isnum,\1,$+(12,$upper(\1),14)))

        %b = %b $+(%e,%f)

      }

    }

    if (!%b) { %b = $1- }

    else { say %b }

    halt

  }

}

Yazı tipi konusunda pek iyi değilimdir. Baştaki if ($1- == isnum) { goto end } aslında ($1 isnum) { goto end } şeklinde olması gerekiyor orayı değişirsen yine 1. kelime sadece sayı içeren kelime olursa normal yazar ben o kısmı değiştim. Ek olarak koşul ekledim 1. kelime sadece sayı değilde cümle içerisinde sayı geçiyorsa aynı renk tonunda yazması için.

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 10:54.