IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tekil Mesaj gösterimi

ZaLiM1979 · 30 Ağustos 2017, 04:27

DeLiKanLl Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Merhaba Arkadaşlar.

Bana kim yardımcı olabilir. Mevcut kullandığım helperlere özel aşağıdaki kod var. Ben bununla birlikte. Yazı karakterini değiştiren bir kod kullanmak istiyorum. Mesela ş yi $ b yi ß olarak yazacak bir kod kullanmak istiyorum. Araştırdım bir çok kod buldum. Fakat aşağıdaki kod ile çakışıyor sanırım. bir mesajı iki kez yazıyor. bununla ilgili bana yardımcı olabilecek biri varmıdır. ? Teşekkürler

menu status,menubar, {
.-
.• © Helpere,Admine Özel Yazı !
..• Açık !:.enable #absoyazı | .echo -a 0,4 Helpere,Admine Özel Yazı AcıLdı.. %logo
..• Kapalı !:.disable #absoyazı | .echo -a 0,4 Helpere,Admine Özel Yazı KapatıLdı.. %logo
..• Bilgi !:.echo -a 0,4 Bu Yazı Tipi Helper,Admin, ArkadasLara KoLaylık Saglasın diye EkLendi.. %logo
.-
}

#absoyazı on
on *:input:*:{
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) $+(,%c,) }
else { %b = %b %c }
}
if (!%b) { %b = $1- }
say %b
halt
}
#absoyazı end

Selamlar..
Yaptim bunu umarim istedgin gibi olmus.. forumda baska bi arkadasin nickini hatirliyamadigim eklenti yaptim
denedim oluyor..

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

menu status,menubar, {
  .-
  .• © Helpere,Admine Özel Yazı !
  ..• Açık !:.enable #absoyazı | .echo -a 0,4 Helpere,Admine Özel Yazı AcıLdı.. %logo 
  ..• Kapalı !:.disable #absoyazı | .echo -a 0,4 Helpere,Admine Özel Yazı KapatıLdı.. %logo
  ..• Bilgi !:.echo -a 0,4 Bu Yazı Tipi Helper,Admin, ArkadasLara KoLaylık Saglasın diye EkLendi.. %logo 
  .-
}
#absoyazı on
on *:input:#:{
  if (!$istok(! . /, $left($1-,1), 32)) { 
  msg # $regsubex($1-,/(\S+)/Sg, $iif(\1 ison #, 2\1, $replacecs(\1, l, L, ş, $, b, ß))) | halt }

  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) $+(,%c,) } 
    else { %b = %b %c } 
  } 
  if (!%b) { %b = $1- } 
  say %b 
  halt 
}
#absoyazı end