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