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

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/)
-   -   Kod hakkında yardım (https://www.ircforumlari.net/mirc-scripting-sorunlari/774829-kod-hakkinda-yardim.html)

yokay 14 Haziran 2017 23:54

Cevap: Kod hakkında yardım
 
Teşekkür ederim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

ZaLiM1979 30 Ağustos 2017 04:27

Cevap: Kod hakkında yardım
 
Alıntı:

DeLiKanLl Nickli Üyeden Alıntı (Mesaj 1041861657)
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:

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



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

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