Loglar
.kanal log: /Run C:\b3ytullah mIRC\logs\ $+ $actife $+ \ | /play $active
.Ozel log: $$?="Log'unu okumak istediginiz Nick'i belirtiniz:" %nick | /Run C:\b3ytullah mIRC\logs\ $+ %nick

menu channel {
  Loglar menüsü
  .# logu:kanal #
  .Özel logları:falan $$?="Log'unu okumak istediginiz nick'i giriniz:"
}
alias falan {
  if $findfile($logdir,$+($1,*),0) >= 1 { 
    var %1 = $v1
    $iif($input(Aradığınız nick için %1 adet veri bulundu açmak istiyormusunuz?,w) == $false,halt)
    var %2 = 1,%3 = $findfile($logdir,$+($1,*),0) 
    while %2 <= %3 { run $findfile($logdir,$+($1,*),%2) | inc %2 }
  }
  else { 
    var %/ = $1,%½ = $left($1,1)
    $iif($input(Aradığınız %/ nick'i için uygun kayıt bulunamadı. %½ harfi ile başlıyan loglar listelensinmi?,w) == $false,halt)
    echo -at $left($1,1) ile başlıyan loglar sıralanıyor.
    echo -at $findfile($logdir,$+($left($1,1),*),0,echo -at $gettok($1-,$numtok($1-,92),92)) 
  }
}
alias kanal {
  if $findfile($logdir,$+($1,*),0) >= 1 {
    var %1 = $v1, %% = $1
    $iif($input(Aradığınız %% kanal'ı için %1 adet veri bulundu açmak istiyormusunuz?,w) == $false,halt)
    var %2 = 1,%3 = $findfile($logdir,$+($1,*),0) 
    while %2 <= %3 { run $findfile($logdir,$+($1,*),%2) |  inc %2 }
  }
  else {  var %& = $1 | $input(%& kanal'ı için herhangi bir kayıt bulunamadı,ohud,UYARI,) }
}

dialog Logs {
  title "Logs."
  size -1 -1 156 134
  option dbu
  box "Loglar menüsü", 1, 6 14 147 117
  list 2, 14 34 74 88, size
  text "Loglar;", 3, 15 24 73 8
  button "Ac", 4, 99 34 51 12
  button "Sil", 5, 100 52 50 12
  button "TAMAM", 6, 99 87 51 12
}

 
on *:dialog:logs:init:*: { return $findfile($logdir,*,0,did -a $dname 2 $nopath($1-)) }
on *:dialog:logs:sclick:*: {
  if $did == 4 { kntrl | run $findfile($logdir,$+(*,$did($dname,2).seltext),1) }
  if $did == 5 { kntrl | remove -b $shortfn($findfile($logdir,$+(*,$did($dname,2).seltext),1)) | did -d $dname 2 $did($dname,2).sel }
  if $did == 6 { dialog -x logs logs }
}
alias kntrl if !$did(logs,2).sel { $iif($input(listeden veri seçmedin.,ohud,Uyarı) == $true,halt,halt) | halt | else return $true }