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

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

- - Yazı Şekli Addonuna Ekleme (https://www.ircforumlari.net/mirc-scripting-sorunlari/505735-yazi-sekli-addonuna-ekleme.html)

Yazı Şekli Addonuna Ekleme

Merhabalar sevgili İrcforumlari.net kullanıcıları aşşağıda göstermiş olduğum yazı şeklime bir eklenti yapmak istiyorum lakin yardım almam gerekiyor. Sorun ; Bir nicke seslendiğimde yazı şeklimden muaf olmasını istiyorum • nick • şeklinde çıkmasını istiyorum. Şimdikten Teşekkür Ederim,Saygılar ;s1

---------------

#yaziturkce 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 == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { goto halt }
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,-,12•,A,12A,a,12à,b,12ß,c,12¢,d,12d,e, 12é,f,12f,h,12h,i,12i,k,12k,l,12L,m,1 2m,n,12n,o,12o,p,12p,q ,12q,r,12r,s,12s,t,12†,u,12µ,v,12v,w, 12w,x,12×,y,12y,z,12z,ı,12ı,İ,12i,ş,1 2ş,Ş,12ş,ç,12¢,Ç,12¢,ğ,12q ,Ğ,12q,g,12q,ü,12ü,Ü,12ü,ö,12ö,Ö,12Ô,! ,4!,?,4¿,< ,12«,>,12»,-,,-,,:,4:,',`,`,')
say %turkce
unset %turkce
halt
:halt
halt
:son
}

Cevap: Yazı Şekli Addonuna Ekleme

Kod:

on *: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 }

  msg $active $regsubex($regsubex($1-,/(.)/g,\1),/(\S+)/g,$iif(($strip(\1) ison # || $strip(\1) == $active),$+(•,$strip(\1),•) ,$replace(\1-,A,12A,a,12à,b,12ß,c,12¢,d,12d,e,12é,f,12f,h,12h,i,12i,k,12k,l,12L,m,12m,n,12n,o,12o,p,12p,q ,12q,r,12r,s,12s,t,12†,u,12µ,v,12v,w, 12w,x,12×,y,12y,z,12z,ı,12ı,İ,12i,ş,1 2ş,Ş,12ş,ç,12¢,Ç,12¢,ğ,12q ,Ğ,12q,g,12q,ü,12ü,Ü,12ü,ö,12ö,Ö,12Ô,! ,4!,?,4¿,< ,12«,>,12»,-,,-,,:,4:,',`,`,')))

  halt

  :halt

  halt

  :son

}

$replace kısmını düzenlersen güzel olur çalışıyor fakat kanala yazınca pis bi görüntü oluyor.

NOT: Difuzyon un kodundan alıntı yaptım editledim sadece.

Cevap: Yazı Şekli Addonuna Ekleme

menu status,menubar,channel {
.-
.» Vt Nick Yazı Stili
..Acık:.enable #Vt-yazis | .echo -a 4 Nick Renkli yazi Açıldı
..Kapalı:.disable #Vt-yazis | .echo -a 4 Nick Renkli yazi Kapatıldı
.-
}
#Vt-yazis on
on *:input:*:{
if $active == #Kanal1 { return }
if $active == #Kanal2 { return }
if $active == #Kanal3 { return }
if (/* iswm $1) { return }
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) $+( 14 (2 • $+ %c $+ ·• 14) ) }
else { %b = %b %c }
}
if (!%b) { %b = $1- }
say %b
halt
}
#Vt-yazis end

#kanal1 / #kanal2 << kanal ad'larını girdikten sonra ; Örnek : #Opers < bu kanalda , yazı şekli çalışmaz.Muaf kılar ;
Not : Açıp / Kapamalı Modül.
Dipnot : ( • $+ %c $+ ·• ) < Yazı şeklinide burdan değiştire bilirsin. Suanki Modül ; ( • Vagrant • )

Saygılarımla : Vt

Cevap: Yazı Şekli Addonuna Ekleme

İlki ve alakanız için teşekkür ediyorum arkadaşlar [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Sorunumu çözdün sağol.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 02:09 -->-> Daha önceki mesaj 01:52 --

Uzun Bir Cümle Yazdıgımda Cümlenin Bir Kısmı Cıkıyor Bir Kısmı Çıkmıyor Bunu Nasıl Ayarlıyabiliriz Acaba ?

Cevap: Yazı Şekli Addonuna Ekleme

Kod:

#yaziturkce on

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) $+(4•1 ,%c, 4•) }

    else {

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

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

        %f = $right(%d,2)

      }

      %e = $replacecs($regsubex(%c,/(?=^| )(.)/g,$+( 12, $+ $upper(\1)|,)),a,a,b,ß,c,c,d,d,e,e,f,f,h,h,i,î,k ,k,l,L,n,ñ,o,o,p,p,q,¶,r,r,s,š,t,†,u,µ,v,v,w,w ,x,×,y,ÿ,z,z,ı,ı,İ,ï,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü ,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,',.,•)

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

    }

  }

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

  else { say %b }

  halt

  :end

}

Bu ŞekiLdede İstediqin Yazi şekLini aLabıLırSın