Çevrimdışı

on 1:INPUT:*: {
set %purp $replace(%purp,b,B)
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Statusa Birşey Yazamazsınız. | goto halt }
if ($active == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { goto halt }
set %Var3 $1-
unset %Var1 %Var2
set %Var1 1 | set %Var2 $upper($mid(%Var3,1,1))
if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand }
if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) | say %Var2 | halt }
:Start1
inc %Var1 1
if ($mid(%Var3,%Var1,1) != $chr(32)) { set %var2 $replace(%Var2,b,ß,l,L) $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } }
if ($mid(%Var3,%Var1,1) == $chr(32)) { set %var2 %var2 $+ $upper($mid(%Var3,%Var1,2)) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } }
if ($len(%Var3) != %Var1) { goto Start1 }
say 1 $+ $chr(2) $+ %Var2 $+ $chr(2)
:ServerCommand
:halt
halt

ELımde SoyLe Bır Adon Var Sorum SoyLe Kod Gayet Iyı Calısıyor Sadece Nıcke SesLendıgımde Nıck FarkLı Renk Ve Buna Extradan Konusma Ayrı RenK Cıksın Sımıden Tesekur Ederım

 

Çevrimdışı

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

on 1:INPUT:*: { set %purp $replace(%purp,b,B) if ( $left($1,1) == / ) { goto son } if ($ctrlenter) { goto son } if ($active == Status Window) { Echo -a %logo2 11,1Statusa Birşey Yazamazsınız. | goto halt } if ($active == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { goto halt } set %Var3 $1- unset %Var1 %Var2 set %Var1 1 | set %Var2 $upper($mid(%Var3,1,1)) if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand } if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) | say %Var2 | halt } :Start1 inc %Var1 1 if ($mid(%Var3,%Var1,1) != $chr(32)) { set %var2 $replace(%Var2,b,ß,l,L) $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } } if ($mid(%Var3,%Var1,1) == $chr(32)) { set %var2 %var2 $+ $upper($mid(%Var3,%Var1,2)) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } } if ($len(%Var3) != %Var1) { goto Start1 } say 1 $+ $chr(2) $+ %Var2 $+ $chr(2) :ServerCommand :halt halt ELımde SoyLe Bır Adon Var Sorum SoyLe Kod Gayet Iyı Calısıyor Sadece Nıcke SesLendıgımde Nıck FarkLı Renk Ve Buna Extradan Konusma Ayrı RenK Cıksın Sımıden Tesekur Ederım

Ben sorunuzu anlamadım? Addonu atmışsınız da, neyini sordunuz ki

__________________

kar havası gibisin dışarda, içimde elmanın dişlenişi.

 

Çevrimdışı

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

Ben sorunuzu anlamadım? Addonu atmışsınız da, neyini sordunuz ki

Nicke SesLendıgımde Nick Altı Cızgılı Ve Mavı Renkte Olsun Bu vermıs Koda Extradan Onu NasıL Ekleyebılırız

 

Çevrimdışı

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

on *:input:#:{
  if (/* iswm $1) || (!* 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
}

Kırmızıyla belirtilen virgüllü yerlere renkli olmasını istediğin nickleri yazabilirsin.
Kod sahibi: Xclusive (HaLiL)

__________________

kar havası gibisin dışarda, içimde elmanın dişlenişi.

 

Çevrimdışı

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

Kod:   Kodu kopyalamak için üzerine çift tıklayın! on *:input:#:{ if (/* iswm $1) || (!* 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 } Kırmızıyla belirtilen virgüllü yerlere renkli olmasını istediğin nickleri yazabilirsin. Kod sahibi: Xclusive (HaLiL)

Koda Kırmızı Olan Yerı Guremedım Her Taraf VirguL

 

Çevrimdışı

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

Koda Kırmızı Olan Yerı Guremedım Her Taraf VirguL

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

Ben örnek verdim burada arkadaşın verdiği kodda ctrl b kodu ile sadece bold yazı rengi verilmiş ben oraya nickleri yazınca 4 yanı kırmızı 2 mavi ise nickten sonra yazılan kelimeye verilen renk kodu

__________________
Benim En Kötü Hikaye'mi En Güvendiğim İnsanlar Yazdı..
Erhan İle Hüzünlü Saatler Etka..

 

Çevrimdışı

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

if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(4,%c,2) } Ben örnek verdim burada arkadaşın verdiği kodda ctrl b kodu ile sadece bold yazı rengi verilmiş ben oraya nickleri yazınca 4 yanı kırmızı 2 mavi ise nickten sonra yazılan kelimeye verilen renk kodu

Tmm Elıne SagLık Ve Kodu payLasaşn Arakadasa Tesekur Ederım

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 22:30 -->-> Daha önceki mesaj 22:29 --

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

Koda Kırmızı Olan Yerı Guremedım Her Taraf VirguL

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




Cok Tesekur Ederım Suan NormaL HaLı Yardımınız Icın SaoLun Kulanmak Isteyen varsa Suankı Son HaLı İyi İfLer