[neobre]

arkadaslar elımde soyle bır kod var ama bulamadım neye yaradıgını gereksız ıse sılecem yardımcı olursanı sevınrım

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

alias -l efekt.tit { 
  if ($dialog($1)) { 
    set %klen $calc(%klen + 1) 
    if (%pos == sol) { dialog -t $1 $left(%baslik,%klen) } 
    if (%pos == sag) { dialog -t $1 $right(%baslik,%klen) } 
    if (%klen == %kbaslik) { 
      if (%pos == sol) set %pos sag 
      elseif (%pos == sag) set %pos sol 
      set %klen 1 
    } 
  } 
  else { unset %pos %klen %kbaslik %baslik | .timereffect off } 
} 
alias efekt { 
  if (!$1) echo -a Dialog belirtilmedi. 
  elseif (!$dialog($1)) echo -a Dialog bulunamadı. 
  elseif (!$timer(effect)) { 
    set %baslik $dialog($1).title 
    set %kbaslik $len(%baslik) 
    set %klen 1 | set %pos sol 
    .timereffect -m 0 100 efekt.tit $1 
  } 
} 
#partmes off
on me:*:part:*: { part #  10,1 Hos Sohbetler Dilerim. %pasmessa 
}
#partmes end
alias ame { if $1 { var %º = 1 | while $chan(%º) { if !$istok(#help %kanal1 %kanal2 %kanal3 %kanal4 %kanal5 %kanal6 %kanal7 %kanal8 ,$v1,32) { !describe $chan(%º) $1- } | inc %º } } }

[Editor]

/efekt Dialog-ismi yazdığında Diyalogun(başlığını) ismini kaydırmaya yarıyor.