on *:start:{
  .remote on | hashyukle
  $+(.timer,vipkontrol) 0 3600 vipkontrol
}
on *:voice:#:{ if *-* iswm $1 { return }
  var %:vsayi1 = 50, %:vsayi2 = 100, %:vsayi3 = 150
  .hinc -ms $+(#,voice) $vnick
  .hsave -o $+(#,voice) $+(#,voice,.tprk)
  if $hget($+(#,voice),$vnick) <= %:vsayi1 { notice $nick $+([13 ,$vnick,,1]) $+([14 ,#,,1]) 2Kanalında 1 $+([0,4,$hget($+(#,voice),$vnick),1]) 2~ Defa Voice Aldın. ~ 1 Günlük VIP Olabilmeniz için $+([,$calc(%:vsayi1 - $hget($+(#,voice),$vnick)),]) Defa Voice Almalısınız. | return }
  elseif $hget($+(#,voice),$vnick) >= %:vsayi1 && $hget($+(#,voice),$vnick) <= %:vsayi2 { notice $nick $+([13 ,$vnick,,1]) $+([14 ,#,,1]) 2Kanalında 1 $+([0,4,$hget($+(#,voice),$vnick),1]) 2~ Defa Voice Aldın. ~ 2 Günlük VIP Olabilmeniz için $+([,$calc(%:vsayi2 - $hget($+(#,voice),$vnick)),]) Defa Voice Almalısınız. | return }
  elseif $hget($+(#,voice),$vnick) >= %:vsayi2 && $hget($+(#,voice),$vnick) <= %:vsayi3 { notice $nick $+([13 ,$vnick,,1]) $+([14 ,#,,1]) 2Kanalında 1 $+([0,4,$hget($+(#,voice),$vnick),1]) 2~ Defa Voice Aldın. ~ 3 Günlük VIP Olabilmeniz için $+([,$calc(%:vsayi3 - $hget($+(#,voice),$vnick)),]) Defa Voice Almalısınız. | return }
  elseif $hget($+(#,voice),$vnick) >= %:vsayi3 || $hget($+(#,voice),$vnick) == %:vsayi3 { return }
}
on *:join:#: {
  var %:vsayi1 = 50, %:vsayi2 = 100, %:vsayi3 = 150
  if $hget(voicesuresi,$nick) { cs voice # $nick | msg # $nick VIP kullanıcı konumuna geçtiniz. | return }
  else {
    if $hget($+(#,voice),$nick) >= %:vsayi1 && $hget($+(#,voice),$nick) <= %:vsayi2 {
      cs voice # $nick | msg # $nick VIP kullanıcı konumuna geçtiniz.
      .hadd -m voicesuresi $nick 1 | .hsave -o voicesuresi voicesuresi.tprk
      return
    }
    elseif $hget($+(#,voice),$nick) >= %:vsayi2 && $hget($+(#,voice),$nick) <= %:vsayi3 {
      cs voice # $nick | msg # $nick VIP kullanıcı konumuna geçtiniz.
      .hadd -m voicesuresi $nick 2 | .hsave -o voicesuresi voicesuresi.tprk
      return
    }
    elseif $hget($+(#,voice),$nick) >= %:vsayi3 || $hget($+(#,voice),$nick) == %:vsayi3 {
      cs voice # $nick | msg # $nick VIP kullanıcı konumuna geçtiniz.
      .hadd -m voicesuresi $nick 3 | .hsave -o voicesuresi voicesuresi.tprk
      return
    }
  }
}
alias hashyukle {
  var %hash = $findfile($mircdir,*.tprk,0) | while %hash {
    var %tprk = $token($findfile($mircdir,*.tprk,%hash),-1,92)
    if !$hget(%tprk) { .hmake $token(%tprk,1,46) | .hload $token(%tprk,1,46) %tprk }
    dec %hash
  }
}
alias vipkontrol { if $regex($token($time,1,58),/^01$/Si) && !$hget(VoiceVIP,Kontrol) { vipsure | .hinc -msu200 VoiceVIP Kontrol } }
alias vipsure {
  if !$hget(voicesuresi,0).data { echo -a Liste boş. | return }
  var %sure = $hget(voicesuresi,0).data | while %sure {
    .hdec -ms voicesuresi $hget(voicesuresi,%sure).item
    if $hget(voicesuresi,$hget(voicesuresi,%sure).item) == 0 {
      .hdel -ms voicesuresi $hget(voicesuresi,%sure).item 
    }  
    dec %sure
  }
  .hsave -o voicesuresi voicesuresi.tprk
}