| biLecikLi | 29 Ağustos 2013 18:57 |
online takip
Kod:
on *:start:{
.hmake Voice | .hload -o Voice Voice.mercy
.hmake DeVoice | .hload -o DeVoice DeVoice.mercy
.hmake Ban | .hload -o Ban Ban.mercy
.hmake UnBan | .hload -o UnBan UnBan.mercy
.hmake Kick | .hload -o Kick Kick.mercy
.hmake Onlines | .hload -o Onlines Onlines.mercy
}
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 Onlines.mercy }
on *:quit:{ if !$hget(Online) { return } | $+(.timeronline,$nick) off | .hsave -o Online Onlines.mercy }
on *:nick:{ if $hget(Online,$nick) { $+(.timeronline,$nick) off | $+(.timeronline,$newnick) 0 1 .hinc -ms Online $newnick | .hsave -o Online Onlines.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 Onlines.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 Onlines.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 Onlines.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.
}
}
Kolay gelsin, elimde böyle bir kod var. Sizden ricam tabi uygunsa, online bölümünün mIRC`ime kalıcı kayıt yapmasını sağlamak ve #oyunteam kanalına girdiğimde bulunan kullanıcı/opların online bilgilerini otomatik olarak mIRC`e kayıt etmesini sağlamak için düzeltmeleri yapmanız yönünde olucaktır. Lütfen çok lazım olmazsa inanın kimseyi uğraştırmam. Şimdiden teşekkürler... |
