Konu: online takip
Tekil Mesaj gösterimi
Alt 26 Ağustos 2013, 21:04   #1
Çevrimdışı
Bilecikli
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
online takip




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 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. } }

Selamun aleyküm arkadaşlar, elimde böyle bir kod var. Sizden ricam tabi uygunsa; online takip bölümünün mIRC`te kalıcı bir kayıt yapması ve #Oyunteam kanalına giriş yaptığımda o an kanalda bulunanların online bilgilerini de kayıt etmesidir. İstatistik bölümü mIRC kapanıp açılsa bile kayıt etmeye devam ediyor fakat, online bölümü kayıt etmiyor. Yardımlarınız için şimdiden teşekkür ederim.

NOT: Kod alıntıdır. Kod sahibi @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] .

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet