IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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
      }
    }
  }
}
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.
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
      }
    }
  }
}
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.
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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 01:35.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk