#mrt on
alias kontrol {
  var %murtt = 1
  while (%murtt <= $nick(#,0)) {
    var %Badd = $nick(#,%murtt)
    if ($level($nick(#,%murtt)) == nnick) { _linedance msg %badd %swsw  7Tarih :14 $date 7Saat :14 $time  }
    inc %murtt
  }
}

on *:join:#: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:kontrol
  .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 
  }
}

_linedance {
  if ($timer(.line.dance. $+ $cid) == $null) {
    hadd -m pnp.qcommand count. $+ $cid 1
    hadd -m pnp.qcommand 1. $+ $cid $1-
    _dolinedance 1
  }
  else {
    hinc -m pnp.qcommand count. $+ $cid
    hadd -m pnp.qcommand $hget(pnp.qcommand,count. $+ $cid) $+ . $+ $cid $1-
  }
}
_dolinedance {
  if ($hget(pnp.qcommand,$1 $+ . $+ $cid) != $null) {
    var %data = $ifmatch
    .timer.line.dance. $+ $cid -m 1 $calc(3500 - $gettok(1250 1000 750 500 250,$1,32)) _dolinedance $calc($1 + 1)
    %data
  }
  else hdel -w pnp.qcommand *. $+ $cid
}