Clone/Away/IRCop Tarama ( dialog )

alias tarama { dialog -m tarama tarama } dialog tarama { title “Muhabbet Script Taramalar 2007” size -1 -1 188 123 option dbu button “? Away Tara ?”, 1, 5 61 177 12, default flat multi button “? Clone Tara ?”, 2, 5 75 177 12, default flat multi button “? IRCop Tara ?”, 3, 5 89 177 12, default flat multi icon 4, 6 6 174 49, C:\Documents and Settings\samettt\Desktop\image copy.jpg, 0 button “Tamam/Kapa”, 5, 72 106 44 13, ok cancel } on 1:dialog:tarama:sclick:1:{ awaytara #$$?=”Lütfen tarama yapmak istediğiniz Kanal Adını Yazınız:” } on 1:dialog:tarama:sclick:2:{ clonetara #$$?=”Lütfen tarama yapmak istediğiniz Kanal Adını Yazınız:” } on 1:dialog:tarama:sclick:3:{ ircoptara } —

 
alias ircoptara {
  .unset %ircop
  $iif(!$window(@Ircop),window @ircop)
  echo @ircop 7~ 2Ircop Listesi7 ~
  .enable #ircoptara
  who 0 o
}
#ircoptara off
raw 352:*:{
  $iif(!$window(@Ircop),window @ircop)
  inc %ircop
  echo @Ircop %ircop – $6 – $4
}
raw 315:*:{
  .disable #ircoptara
  unset %ircop
  echo @Ircop 7~ 2Ircop Listesi Sonu7 ~ 
}
#ircoptara end

—

alias clonetara {
  if ($1) { 
    write -c clone.txt 
    .enable #clonetara
    who $1
  }
  else { echo -a 4Kanal Yaz! }
}
#clonetara off
raw 352:*:{
  if ($read(clone.txt,w,$+(*,$4,*))) {
    var %i $read(clone.txt,w,$+(*,$4,*))
    write $+(-dw,$+(*,$4,*)) clone.txt   
    write clone.txt $gettok(%i,1,$asc(-)) $6 – $4 – $calc($numtok($gettok(%i,1,$asc(-)),32) +1)
  }
  else { write clone.txt $6 – $4 – 1 }
}
raw 315:*:{
  var %i 1
  $iif(!$window(@clonelar),window @Clonelar)
  echo @Clonelar ~ Clone Listesi ~ 
  while %i <= $lines(clone.txt) { 
    if 1 == $($gettok($read(clone.txt,%i),-1,$asc(-)),2) { write $+(-dl,%i) clone.txt }
    else { echo @Clonelar $read(clone.txt,%i) Tane }   
    inc %i
  }
  echo @Clonelar ~ Clone Listesi Sonu ~
  .disable #clonetara
}
#clonetara end

alias awaytara {
  if ($1) {   
    .unset %away 
    $iif(!$window(@Awaylar),window @Awaylar)
    echo @Awaylar 7~2 Away Listesi7 ~
    .enable #awaytara
    who $1
  }
  else { echo -a 4Kanal Yazmadınız! }
}
#awaytara off
raw 352:*:{
  if (G isin $7) {
    $iif(!$window(@Awaylar),window @Awaylar)
    inc %away   
    echo @Awaylar %away – $6
  }
}
raw 315:*:{
  .unset %away 
  echo @Awaylar 7~2 Away Tarama Sonu7 ~
  .disable #awaytara
}
#awaytara off

Kullanımı : /tarama yazmanız yeterlidir.

Umarım işinize yarar.
Not: Resim Yolunu (icon) değiştiriniz. Çakışma olabileceği sebebi ile Code’leri ayrı ayrı pencerelere yapıştırırsanız sorun olmayacaktır.
Yapımcısı : Benim ( sadece dialog konusunda ) Code’lerin sahiplerini bılmıorum.