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

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

- - Acil Yardım Lütfen (https://www.ircforumlari.net/mirc-scripting-sorunlari/776632-acil-yardim-lutfen.html)

Acil Yardım Lütfen

unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,s,S,ü,û,Ü,Û,ö,ô,Ö,Ô,l,L,c,C,r,R ,o,O)
say %mugang %turkce %jumong
unset %turkce
halt
}

bu scriptimde türkçe yazı stili bunu hiç bozmadan
kodun içine nickleri de renkli ve alt çizgili yazabileceğimiz bir kod eklemek mümkün mü ?

Şimdiden yardım olursa da olmazsa da teşekküscript,r ederim.

Cevap: Acil Yardım Lütfen

Kod:

on 1:INPUT:*:{

  if (/* iswm $1) { return } 

  if (.* iswm $1) { return } 

  if (&* iswm $1) { return } 

  if (!* iswm $1) { return } 

  if (* isin $1) { return } 

  if (http isin $1-) { return }

  unset %turkce

  set %turkce $1-

  if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }

  %turkce = $replacecs(%turkce,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü,Û,ö,ô,Ö,Ô)

  var %a 0, %b, %c 

  while (%a < $numtok(%turkce,32)) { 

    inc %a 

    %c = $gettok(%turkce,%a,32) 

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

    else { %b = %b %c } 

  }

  if (!%b) { %b = %turkce }

  say %b

  unset %turkce

  unset %b

  halt

}

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: Acil Yardım Lütfen

BlackForce Duyarlılığın için çok tsk ederim ellerine sağlık