#mrt on
alias tara {
  var %mrtt = 1
  while (%mrtt <= $nick(#,0)) {
    var %Bad = $nick(#,%mrtt)
    if ($level($nick(#,%mrtt)) == nnick) { .timer 1 $calc(%mrtt * 10) msg %bad %swsw  7Tarih :14 $date 7Saat :14 $time  }
    inc %mrtt
  }
}
on *:join:#kanal:if $ulist($nick,nnick,0) { inc -eu300 $+(%,$nick,#) 1 | if $($+(%,$nick,#),2) == 1 { msg $nick %swsw } }
#mrt end
menu * {
  Arkadaş Nick
  .aç:enable #mrt | set %swsw $$?="mesajınızı yazınız:"
  .kapat:disable #mrt
  .tara:tara
  .listeyi gör:gör
  .ekle:auser nnick $$?="nick yazınız:" $+ *
  .çıkart:ruser nnick $$?="nick yazınız:" $+ *
}
alias gör  { 
  $iif($window(@Görüntüleme),clear @Görüntüleme,window -n @Görüntüleme)
  if ($ulist(*,nnick,0) != $null) { 
    set %cnt.shit 0
    while (%cnt.shit < $ulist(*,nnick,0)) { 
      inc %cnt.shit 1 
      echo @Görüntüleme $ulist(*,nnick,%cnt.shit) 
    }  
    unset %cnt.shit 
  }
}

alias tara {
  var %csr = 1
  while (%csr <= $nick(%chan,0)) {
    var %mesajnick = $nick(%chan,%csr)
    if ($level($nick(%chan,%csr)) == Mesaj) {  msg %mesajnick %mesaj }
    inc %csr
  }
}

alias tara {
  var %csr = 1
  while (%csr <= $nick(%chan,0)) {
    var %mesajnick = $nick(%chan,%csr)
    if ($level($nick(%chan,%csr)) == Mesaj) { .timer 1 10 msg %mesajnick %mesaj }
    inc %csr
  }
}