Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:start:{
if ($isfile(Voice.mercy)) { .hmake Voice | .hload -o Voice Voice.mercy }
if ($isfile(DeVoice.mercy)) { .hmake DeVoice | .hload -o DeVoice DeVoice.mercy }
if ($isfile(Ban.mercy)) { .hmake Ban | .hload -o Ban Ban.mercy }
if ($isfile(UnBan.mercy)) { .hmake UnBan | .hload -o UnBan UnBan.mercy }
if ($isfile(Kick.mercy)) { .hmake Kick | .hload -o Kick Kick.mercy }
if ($isfile(Online.mercy)) { .hmake Online | .hload -o Online Online.mercy }
}
on *:connect:.timerophashekle 1 30 ophash #OyunTeam
alias ophash {
var %hs = 1
while %hs <= $nick($1,0) {
if !$istok(nick1 nick3 nick3 nick4,$nick($1,%hs),32) && $regex($nick($1,%hs).pnick,/^(@|&)/) {
$+(.timeronline,$nick($1,%hs)) 0 1 .hinc -ms Online $nick($1,%hs)
}
inc %hs
}
}
alias on return $replace($duration($1-),secs,Saniye,mins,Dakika,hrs,Saat,day,Gün,wk,Hafta,min,Dakika,Hr,Saat,sec,Saniye)
alias hekle { if !$hget($2) { .hmake $2 100 } | if !$hget(Nickler) { .hmake Nickler 100 } | .hinc -ms $2 $1 | .hsave -o $2 $+($2,.mercy) | .hinc -ms Nickler $1 | .hsave -o Nickler Nickler.mercy }
on *:join:#OyunTeam:{ if $regex($site,/(root|admin|ircop|oper|techinal|system)/i) { return } | $+(.timeronline,$nick) 0 1 .hinc -ms Online $nick }
on *:part:#OyunTeam:{ if $regex($site,/(root|admin|ircop|oper|techinal|system)/i) { return } | $+(.timeronline,$nick) off | .hsave -o Online Online.mercy }
on *:quit:{ if !$hget(Online) { return } | $+(.timeronline,$nick) off | .hsave -o Online Online.mercy }
on *:nick:{ if $hget(Online,$nick) { $+(.timeronline,$nick) off | $+(.timeronline,$newnick) 0 1 .hinc -ms Online $newnick | .hsave -o Online Online.mercy } }
on *:kick:#Oyun:{ if $nick isop # || $nick ishop # { .hekle $nick kick } }
on *:text:*:#Oyun:{ if $nick isop # || $nick ishop # { if !$hget(Text) { .hmake Text 100 } | .hinc -ms Text $nick $len($remove($1-,$chr(32))) | .hsave -o Text Text.mercy } }
on *:rawmode:#Oyun:{
if $nick isop # || $nick ishop # {
if ($regex($1,\+(v))) { .hekle $nick voice }
if ($regex($1,\-(v))) { .hekle $nick devoice }
if ($regex($1,\+(b))) { .hekle $nick ban }
if ($regex($1,\-(b))) { .hekle $nick unban }
}
}
on *:input:#OyunTeam:{
if ($1 == !onlines) {
if !$2 { if ($hget(Online,0).data == 0) { msg # Takip listesinde kayıt bulunmamaktadır. | return } | var %:ons 1 | while %:ons <= $hget(Online,0).data { msg # [ $hget(Online,%:ons).item ] Onlinesi: $iif($hget(Online,%:ons).data,$on($hget(Online,%:ons).data),Yok) | inc %:ons } }
if $2 == sıfırla { if ($hget(Online,0).data == 0) { msg # Takip listesinde kayıt bulunmamaktadır. | return } | .hfree -sw Online | .hmake Online | .hload -o Online Online.mercy | msg # Takip listesi sıfırlandı. | .timeronline* off | return }
if $2 { if !$hget(Online,$2) { msg # [ $2 ] Takip listesinde bulunmamaktadır. | return } | msg # [ $2 ] Onlinesi: $iif($hget(Online,$2),$on($hget(Online,$2)),Yok) }
}
if ($1 == !sil) {
if (!$2) { echo -a Nick belirtiniz. | return }
if $hget(Online) { .hdel -ms Online $2 | .hsave -o Online Online.mercy }
if $hget(Voice) { .hdel -ms Voice $2 | .hsave -o Voice Voice.mercy }
if $hget(DeVoice) { .hdel -ms DeVoice $2 | .hsave -o DeVoice DeVoice.mercy }
if $hget(Ban) { .hdel -ms Ban $2 | .hsave -o Ban Ban.mercy }
if $hget(Unban) { .hdel -ms UnBan $2 | .hsave -o UnBan UnBan.mercy }
if $hget(Kick) { .hdel -ms Kick $2 | .hsave -o Kick Kick.mercy }
if $hget(Nickler) { .hdel -ms Nickler $2 | .hsave -o Nickler Nickler.mercy }
msg # [ $2 ] Ait istatikler silindi.. | $+(.timeronline,$2) off
}
if ($1 == !istatistik) {
if ($2 == sıfırla) {
if $hget(Online) { .hfree -sw Online | .hmake Online | .hsave -o Online Online.mercy }
if $hget(Voice) { .hfree -sw Voice | .hmake Voice | .hsave -o Voice Voice.mercy }
if $hget(Devoice) { .hfree -sw Devoice | hmake DeVoice | .hsave -o DeVoice DeVoice.mercy }
if $hget(Ban) { .hfree -sw Ban | hmake Ban | .hsave -o Ban Ban.mercy }
if $hget(Unban) { .hfree -sw UnBan | .hmake UnBan | .hsave -o UnBan UnBan.mercy }
if $hget(Kick) { .hfree -sw Kick | .hmake Kick | .hsave -o Kick Kick.mercy }
msg # İstatikler'ler sıfırlandı
return
}
if $2 { if !$hget(Nickler,$2) { msg # [ $2 ] Ait hiç bir bilgi bulunmamaktadır. | return } | msg # Voice: $iif($hget(Voice,$2),$hget(Voice,$2),Yok) Devoice: $iif($hget(Devoice,$2),$hget(Devoice,$2),Yok) Ban: $iif($hget(Ban,$2),$hget(Ban,$2),Yok) UnBan: $iif($hget(UnBan,$2),$hget(UnBan,$2),Yok) Kick: $iif($hget(Kick,$2),$hget(Kick,$2),Yok) }
}
if ($1 == !istatikler) {
if ($hget(Nickler,0).data == 0) { msg # İstatik listesinde kayıt bulunmamaktadır. | return }
msg # İstatikler.
msg #
var %:ist 1 | while %:ist <= $hget(Nickler,0).data {
msg # [ $hget(Nickler,%:ist).item ] Voice: $iif($hget(Voice,$hget(Nickler,%:ist).item),$hget(Voice,$hget(Nickler,%:ist).item),Yok) Devoice: $iif($hget(Devoice,$hget(Nickler,%:ist).item),$hget(Devoice,$hget(Nickler,%:ist).item),Yok) Ban: $iif($hget(Ban,$hget(Nickler,%:ist).item),$hget(Ban,$hget(Nickler,%:ist).item),Yok) UnBan: $iif($hget(UnBan,$hget(Nickler,%:ist).item),$hget(UnBan,$hget(Nickler,%:ist).item),Yok) Kick: $iif($hget(Kick,$hget(Nickler,%:ist).item),$hget(Kick,$hget(Nickler,%:ist).item),Yok)
inc %:ist
}
msg #
msg # The end.
}
}
bilgilerini sıfırlamaz artık.
kanalında online olan opları ve sopları da Listede yoklarsa Online listesine ekler..(Sen kanala yeni girdiğinde online olan Op ve sopları tabloya eklediğinde Online süresini
(0) saniyeden başlatır, bilgine. /hop yaptırmaman için)(Renkli kısıma muaf nick ekleyebilirsin.). Süreyi kendine göre ayarlayıp değiştirebilirsin.
İyi forumlar.