Çevrimdışı

on *:start:{
.remote on | hashyukle
$+(.timer,vipkontrol) 0 3600 vipkontrol
}
on *:voice:#:{
var %:vsayi1 = 50, %:vsayi2 = 100, %:vsayi3 = 150, %:vsayi4 = 200, %:vsayi5 = 250
.hinc -ms $+(#,voice) $vnick
.hsave -o $+(#,voice) $+(#,voice,.tprk)
if $hget($+(#,voice),$vnick) <= %:vsayi1 { msg # 4 $+([3 ,$vnick,,4]) 1 $+([4 ,#,,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 { msg # 4 $+([>>3 ,$vnick,,4<<]) 1 $+([4 ,#,,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 { msg # 4 $+([>>3 ,$vnick,,4<<]) 1 $+([4 ,#,,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) <= %:vsayi4 { msg # 4 $+([>>3 ,$vnick,,4<<]) 1 $+([4 ,#,,1]) 2Kanalında 1 $+([0,4,$hget($+(#,voice),$vnick),1]) 2~ Defa Voice Aldın. ~ 4 Günlük VIP Olabilmeniz için $+([,$calc(%:vsayi4 - $hget($+(#,voice),$vnick)),]) Defa Voice Almalısınız. | return }
elseif $hget($+(#,voice),$vnick) >= %:vsayi4 && $hget($+(#,voice),$vnick) <= %:vsayi5 { msg # 4 $+([>>3 ,$vnick,,4<<]) 1 $+([4 ,#,,1]) 2Kanalında 1 $+([0,4,$hget($+(#,voice),$vnick),1]) 2~ Defa Voice Aldın. ~ 5 Günlük VIP Olabilmeniz için $+([,$calc(%:vsayi5 - $hget($+(#,voice),$vnick)),]) Defa Voice Almalısınız. | return }
elseif $hget($+(#,voice),$vnick) >= %:vsayi5 || $hget($+(#,voice),$vnick) == %:vsayi5 { return }
}
on *:join:#: {
var %:vsayi1 = 50, %:vsayi2 = 100, %:vsayi3 = 150, %:vsayi4 = 200, %:vsayi5 = 250
if $hget(voicesuresi,$nick) { mode # +v $nick | msg # $nick VIP kullanıcı konumuna geçtiniz. | return }
else {
if $hget($+(#,voice),$nick) >= %:vsayi1 && $hget($+(#,voice),$nick) <= %:vsayi2 {
mode # +v $nick | msg 4 # 2 $nick 4V2I4P 1kullanıcı konumuna geçtiniz.
.hadd -m voicesuresi $nick 1 | .hsave -o voicesuresi voicesuresi.tprk
return
}
elseif $hget($+(#,voice),$nick) >= %:vsayi2 && $hget($+(#,voice),$nick) <= %:vsayi3 {
mode # +v $nick | msg 4 # 2 $nick 4V2I4P 1kullanıcı konumuna geçtiniz.
.hadd -m voicesuresi $nick 2 | .hsave -o voicesuresi voicesuresi.tprk
return
}
elseif $hget($+(#,voice),$nick) >= %:vsayi3 && $hget($+(#,voice),$nick) <= %:vsayi4 {
mode # +v $nick | msg 4 # 2 $nick 4V2I4P 1kullanıcı konumuna geçtiniz.
.hadd -m voicesuresi $nick 3 | .hsave -o voicesuresi voicesuresi.tprk
return
}
elseif $hget($+(#,voice),$nick) >= %:vsayi4 && $hget($+(#,voice),$nick) <= %:vsayi5 {
mode # +v $nick | msg 4 # 2 $nick 4V2I4P 1kullanıcı konumuna geçtiniz.
.hadd -m voicesuresi $nick 4 | .hsave -o voicesuresi voicesuresi.tprk
return
}
elseif $hget($+(#,voice),$nick) >= %:vsayi5 || $hget($+(#,voice),$nick) == %:vsayi5 {
mode # +v $nick | msg 4 # 2 $nick 4V2I4P 1kullanıcı konumuna geçtiniz.
.hadd -m voicesuresi $nick 5 | .hsave -o voicesuresi voicesuresi.tprk
}
}
}
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-2,58),/^00:00$/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
}

Her Girene Voice Veriyor VIP konumuna geçtiniz diyor