IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

2Beğeni(ler)
  • 1 Post By IRC-Dancer
  • 1 Post By Mylife

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 15 Mart 2013, 04:44   #1
Çevrimdışı
• Mobil Uygulama Geliştiricisi •
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Helper Takip ?




Öncelikle merhaba :

Help kanalınaki yetkili olan % dahil 1 haftalık toplam onlinesüresini dakika saat saniye tarzında listelemek istiyorum.
Örnek : !takip list yazınca

Takip list listeleniyor
Stylechild : 5 gün 1 saat online olmuştur.
Stylechild2 : 2 saa online olmuştur.

Ayrıca Bunları Sıfırlmak isiyorum. !sıfırla takipyazınca tüm liste sıfılansın.

Cevap verenlere teşekkürler..

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 15 Mart 2013, 13:19   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Helper Takip ?




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias yuzde return $+($chr(40),%,$left($calc($hget($1,v) * 100 / $hget($2,v)),4),$chr(41)) alias yuzde2 return $+($chr(40),%,$calc($left(100.000000,4) - $remove($yuzde($1,$2),$chr(41),$chr(40),%)),$chr(41)) alias yuzde3 return $+($chr(40),%,$left($calc($hget($1,$2) * 100 / $hget($3,v)),4),$chr(41)) alias ll return $calc($hget($1,v)-$hget($2,v)) alias kapsa return $+($chr(2),$1-,$chr(2)) alias kontrol { if $count($nick($1,$2).pnick,@,~,%,&) != 0 { hadd -m nickler $2 1 | hsave -i nickler nickler.db | hinc -m giris $2 1 | hsave -i giris giris.db | hinc -m ygiris v 1 | hsave -i ygiris ygiris.db | write $+(helper/,$2,.,txt) $+(=>,$chr(40),$chr(2),$chr(31),Giriş,$chr(31),$chr(2),$chr(41),$chr(32),$chr(40),$chr(2),$date,$chr(2),$chr(41)) Gün: $gun($+($chr(2),$day,$chr(2))) - Saat: $+($chr(2),$time,$chr(2)) } | else { helperler #HELP-OP #HELP-OP | msg #HELP-OP #Help kanalına giriş yapıldı. Nick: $+($chr(2),$2,$chr(2)) } } alias gun { return $replace($1,Monday,Pazartesi,Tuesday,Salı,Wednesday,Çarşamba,Thursday,Perşembe,Friday,Cuma,Saturday,Cumartesi,Sunday,Pazar) } alias pp { var %& = $numtok($findfile($mircdir,*.db,1),92) | var %j = 1, %k = $findfile($mircdir,*.db,0) | while %j <= %k { if $gettok($findfile($mircdir,*.db,%j),%&,92) != nickler.db { echo -a $gettok($findfile($mircdir,*.db,%j),%&,92) } | inc %j } | hfree -w * | unset %trh | hsil } alias helperler { if $1 { var %1 = 1,%2 = $nick($1,0),%3 | while %1 <= %2 { if $nick($1,%1) != $me { %3 = $addtok(%3,$nick($1,%1),32) } | inc %1 } } msg $2 %3 } alias hsil { var %s = $numtok($findfile(helper,*.txt,1),92) | var %1 = 1,%2 = $findfile(helper,*.txt,0) | while %1 <= %2 { remove $gettok($findfile(helper,*.txt,%1),%s,92) | inc %1 } } alias sil { hdec voiceler v $hget(vc,$1) | hdec banlar v $hget(ban,$1) | hdec unbanlar v $hget(unban,$1) | hdec ytext v $hget(text,$1) hdec ygiris v $hget(giris,$1) | hdec ycıkıs v $hget(cıkıs,$1) | hdec devoiceler v $hget(devc,$1) hdel nickler $1 | hsave -i nickler nickler.db | hdel giris $1 | hsave -i giris giris.db | hdel cıkıs $1 | hsave -i cıkıs cıkıs.db | hdel vc $1 | hsave -i vc vc.db hdel devc $1 | hsave -i devc devc.db | hdel ban $1 | hsave -i ban ban.db | hdel unban $1 | hsave -i unban unban.db | hdel text $1 | hsave -i text text.db } on *:start: { if !%trh { set %trh $date } if $isfile(nickler.db) { hmake nickler 100 | hload -i nickler nickler.db } | else { hmake nickler 100 | hsave -i nickler nickler.db } if $isfile(giris.db) { hmake giris 100 | hload -i giris giris.db } | else { hmake giris 100 | hsave -i giris giris.db } if $isfile(cıkıs.db) { hmake cıkıs 100 | hload -i cıkıs cıkıs.db } | else { hmake cıkıs 100 | hsave -i cıkıs cıkıs.db } if $isfile(voiceler.db) { hmake voiceler 100 | hload -i voiceler voiceler.db } | else { hmake voiceler 100 | hsave -i voiceler voiceler.db } if $isfile(devoiceler.db) { hmake devoiceler 100 | hload -i devoiceler devoiceler.db } | else { hmake devoiceler 100 | hsave -i devoiceler devoiceler.db } if $isfile(vc.db) { hmake vc 100 | hload -i vc vc.db } | else { hmake vc 100 | hsave -i vc vc.db } if $isfile(devc.db) { hmake devc 100 | hload -i devc devc.db } | else { hmake devc 100 | hsave -i devc devc.db } if $isfile(banlar.db) { hmake banlar 100 | hload -i banlar banlar.db } | else { hmake banlar 100 | hsave -i banlar banlar.db } if $isfile(ban.db) { hmake ban 100 | hload -i ban ban.db } | else { hmake ban 100 | hsave -i ban ban.db } if $isfile(unbanlar.db) { hmake unbanlar 100 | hload -i unbanlar unbanlar.db } | else { hmake unbanlar 100 | hsave -i unbanlar unbanlar.db } if $isfile(unban.db) { hmake unban 100 | hload -i unban unban.db } | else { hmake unban 100 | hsave -i unban ban.db } if $isfile(text.db) { hmake text 100 | hload -i text text.db } | else { hmake text 100 | hsave -i text text.db } if $isfile(normalg.db) { hmake normalg 100 | hload -i normalg normalg.db } | else { hmake normalg 100 | hsave -i normalg normalg.db } if $isfile(normalc.db) { hmake normalc 100 | hload -i normalc normalc.db } | else { hmake normalc 100 | hsave -i normalc normalc.db } if $isfile(ntext.db) { hmake ntext 100 | hload -i ntext ntext.db } | else { hmake ntext 100 | hsave -i ntext ntext.db } if $isfile(ytext.db) { hmake ytext 100 | hload -i ytext ytext.db } | else { hmake ytext 100 | hsave -i ytext ytext.db } if $isfile(ycıkıs.db) { hmake ycıkıs 100 | hload -i ycıkıs ycıkıs.db } | else { hmake ycıkıs 100 | hsave -i ycıkıs ycıkıs.db } if $isfile(ygiris.db) { hmake ygiris 100 | hload -i ygiris ygiris.db } | else { hmake ygiris 100 | hsave -i ygiris ygiris.db } } on *:op:%yardimkanali: { if !$hmatch(nickler,$opnick) { hadd -m nickler $opnick 1 | hsave -i nickler nickler.db } } on *:join:%yardimkanali: { hinc -m normalg v 1 | hsave -i normalg normalg.db | .timer 1 1 kontrol # $nick } on *:part:%yardimkanali: { hinc -m normalc v 1 | hsave -i normalc normalc.db | if $hmatch(nickler,$nick) { hinc -m ycıkıs v 1 | hsave -i ycıkıs ycıkıs.db | hinc -m cıkıs $nick 1 | hsave -i cıkıs cıkıs.db | write $+(helper/,$nick,.,txt) $+(=>,$chr(40),$chr(2),$chr(31),Çıkış,$chr(31),$chr(2),$chr(41),$chr(32),$chr(40),$chr(2),$date,$chr(2),$chr(41)) Gün: $gun($+($chr(2),$day,$chr(2))) - Saat: $+($chr(2),$time,$chr(2)) } } on *:voice:%yardimkanali: { if $hmatch(nickler,$nick) { hinc -m voiceler v 1 | hsave -i voiceler voiceler.db | hinc -m vc $nick 1 | hsave -i vc vc.db } } on *:devoice:%yardimkanali: { if $hmatch(nickler,$nick) { hinc -m devoiceler v 1 | hsave -i devoiceler devoiceler.db | hinc -m devc $nick 1 | hsave -i devc devc.db } } on *:ban:%yardimkanali: { if $hmatch(nickler,$nick) { hinc -m banlar v 1 | hsave -i banlar banlar.db | hinc -m ban $nick 1 | hsave -i ban ban.db } } on *:unban:%yardimkanali: { if $hmatch(nickler,$nick) { hinc -m unbanlar v 1 | hsave -i unbanlar unbanlar.db | hinc -m unban $nick 1 | hsave -i unban unban.db } } on *:text:*:%yardimkanali: { hinc -m ntext v 1 | hsave -i ntext ntext.db | if $hmatch(nickler,$nick) { hinc -m ytext v 1 | hsave -i ytext ytext.db | hinc -m text $nick 1 | hsave -i text text.db } } on *:text:*:%helperkanali: { if $nick == %helpfounder { if $1 == !durum { msg # $+([,$chr(2),%trh,$chr(2),]) Tarihinden beri kayıt'da olan $+($chr(2),#help,$chr(2)) kanalı istatistik'leri sıralanıyor: msg # - msg # Toplam kullanıcı girişi istatistikleri: $+($chr(40),$iif($hget(normalg,v),$hget(normalg,v),0),$chr(41)) msg # - Giriş bilgisi: $iif($hget(normalg,v),Yetkili girişi: $iif($hget(ygiris,v),$hget(ygiris,v),0) $yuzde(ygiris,normalg) - Yetkisiz girişi: $ll(normalg,ygiris) $yuzde2(ygiris,normalg),Toplam: 0 (%100)) msg # Toplam kullanıcı çıkışı istatistikleri: $+($chr(40),$iif($hget(normalc,v),$hget(normalc,v),0),$chr(41)) msg # - Çıkış bilgisi: $iif($hget(normalc,v),Yetkili çıkışı: $iif($hget(ycıkıs,v),$hget(ycıkıs,v),0) $yuzde(ycıkıs,normalc) - Yetkisiz çıkışı: $ll(normalc,ycıkıs) $yuzde2(ycıkıs,normalc), Toplam: 0 (%100)) msg # Toplam verilen voice: $+($chr(40),$iif($hget(voiceler,v),$hget(voiceler,v),0),$chr(41)) msg # Toplam alınan voice: $+($chr(40),$iif($hget(devoiceler,v),$hget(devoiceler,v),0),$chr(41)) msg # Toplam atılan ban sayısı: $+($chr(40),$iif($hget(banlar,v),$hget(banlar,v),0),$chr(41)) msg # Toplam açılan ban sayısı: $+($chr(40),$iif($hget(unbanlar,v),$hget(unbanlar,v),0),$chr(41)) msg # Toplam yazılan satır sayısı: $+($chr(40),$iif($hget(ntext,v),$hget(ntext,v),0),$chr(41)) msg # - Satır bilgisi: $iif($hget(ntext,v),Yetkili yazısı: $iif($hget(ytext,v),$hget(ytext,v),0) $yuzde(ytext,ntext) - Yetkisiz yazısı: $ll(ntext,ytext) $yuzde2(ytext,ntext),Toplam: 0 (%100)) msg # - msg # $+($chr(2),$nick,$chr(2)) kullanabileceğiniz komutlar listesini görmek için: $+($chr(2),!Komutlar,$chr(2)) yazınız. } if $1 == !Komutlar { msg # $+($chr(31),Genel komutlar,$chr(31),:) msg # - msg # !voicelist $kapsa((#Help kanalında kayıt gününden beri verilen tüm voice'leri sıralar)) msg # !devoicelist $kapsa((#Help kanalında kayıt gününden beri alınan tüm voice'leri sıralar)) msg # !banlist $kapsa((#Help kanalında kayıt tarihinden beri atılan tüm banları sıralar)) msg # !unbanlist $kapsa((#Help kanalında kayıt tarihinden beri açılan tüm banları sıralar)) msg # !Helperler $kapsa((#Help kanalında takip listesinde olan tüm helper'ları sıralar)) msg # !sıfırla tümü $kapsa((#Help kanalı için varolan tüm kayıtları sıfır'lar)) msg # - msg # $+($chr(31),Kişisel komutlar,$chr(31),:) msg # - msg # !ekle helper-nick $kapsa((Takip listesine helper eklemek için kullanılır)) msg # !sil helper-nick $kapsa((Takip listesinde ekli olan bir helper'i siler)) msg # !istatistik helper-nick $kapsa((Takip listesinde kayıtlı olan helper hakkında ayrıntılı bilgiler verir)) msg # !takip helper-nick $kapsa((Takip listesinde kayıtlı olan helper'in, hangi tarihlerde giriş/çıkış yaptığını gösterir)) msg # !tsil helper-nick $kapsa((Takip listesinde kayıtlı olan helper'in, giriş/çıkış tarihlerini sıfır'lar)) msg # - msg # Tüm komutlar sıralandı. } if $1 == !helperler { if $hget(nickler,0).item < 1 { msg # Kayıtlı helper mevcut değil. Helper eklemek için; $kapsa(!ekle helper-nick) yazınız. | halt } else { msg # Kayıtlı olan toplam; $kapsa($hget(nickler,0).item) helper sıralanıyor. | var %& = 1,%&& = $hget(nickler,0).item | while %& <= %&& { msg # $+(%&,$chr(45)) $kapsa($hget(nickler,%&).item) | inc %& } } msg # Kayıtlar sıralandı. msg # Herhangi bir helper hakkında detaylı bilgi almak için; $kapsa(!istatistik helper-nick) yazınız. } if $1 == !voicelist { if $hget(voiceler,v) < 1 { msg # $kapsa(#Help) kanalı için voice kaydı yok.(Voice verilmemiş) | halt } else { msg # #Help kanalın'da $kapsa(%trh) tarihinden itibaren verilen toplam voice sayısı: $kapsa($hget(voiceler,v)) msg # #Help kanalın'da yetkili olan $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41))) helper'in voice verme istastiği(Sadece voice veren'ler sıralanır): var %1 = 1,%2 = $hget(vc,0).item | while %1 <= %2 { msg # Helper: $kapsa($hget(vc,%1).item) - Verdiği voice sayısı: $kapsa($iif($hget(vc,%1).data,$hget(vc,%1).data $yuzde3(vc,$hget(vc,%1).item,voiceler),0)) | inc %1 } } msg # - msg # Voice kayıtları sıralandı. } if $1 == !devoicelist { if $hget(devoiceler,v) < 1 { msg # $kapsa(#Help) kanalı için devoice kaydı yok.(Devoice işlevi yapılmamış) | halt } else { msg # #Help kanalın'da $kapsa(%trh) tarihinden itibaren uygulanan toplam devoice sayısı: $kapsa($hget(devoiceler,v)) msg # #Help kanalın'da yetkili olan $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41))) helper'in devoice uygulama istastiği:(Sadece devoice veren'ler sıralanır) var %a = 1,%b = $hget(devc,0).item | while %a <= %b { msg # Helper: $kapsa($hget(devc,%a).item) - Uyguladığı devoice sayısı: $kapsa($iif($hget(devc,%a).data,$hget(devc,%a).data $yuzde3(devc,$hget(devc,%a).item,devoiceler),0)) | inc %a } } msg # - msg # Devoice kayıtları sıralandı. } if $1 == !banlist { if $hget(banlar,v) < 1 { msg # $kapsa(#Help) kanalı için ban kaydı bulunamadı.(Atılan ban yok) | halt } else { msg # #Help kanalın'da $kapsa(%trh) tarihinden itibaren atılan toplam ban sayısı: $kapsa($hget(banlar,v)) msg # #Help kanalın'da yetkili olan $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41))) helper'in ban uygulama istastiği:(Sadece ban atanlar sıralanır) var %x = 1,%y = $hget(ban,0).item | while %x <= %y { msg # Helper: $kapsa($hget(ban,%x).item) - Attığı ban sayısı: $kapsa($iif($hget(ban,%x).data,$hget(ban,%x).data $yuzde3(ban,$hget(ban,%x).item,banlar),0)) | inc %x } } msg # - msg # Ban kayıtları sıralandı. } if $1 == !unbanlist { if $hget(unbanlar,v) < 1 { msg # $kapsa(#Help) kanalı için unban kaydı bulunamadı.(Açılan ban yok) | halt } else { msg # #Help kanalın'da $kapsa(%trh) tarihinden itibaren açılan toplam ban sayısı: $kapsa($hget(unbanlar,v)) msg # #Help kanalın'da yetkili olan $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41))) helper'in ban açma istastiği:(Sadece ban açanlar sıralanır) var %s = 1,%k = $hget(unban,0).item | while %s <= %k { msg # Helper: $kapsa($hget(unban,%s).item) - Açtığı ban sayısı: $kapsa($iif($hget(unban,%s).data,$hget(ban,%s).data $yuzde3(unban,$hget(unban,%s).item,unbanlar),0)) | inc %s } } msg # - msg # Unban kayıtları sıralandı. } if $1 == !sıfırla { if !$2 { msg # Yanlış kullanım. Kullanım şekli: $kapsa(!sıfırla tümü) (Tüm verileri sıfırlar) | halt } if $2 == tümü { msg # Bu işlev eklenen helper'ler hariç tüm kayıtları silecektir. msg # $kapsa(#Help) kanalı için tüm kayıtlar sıfırlansın'mı? msg # Onaylamak için: $kapsa(!Evet) - Vazgeçmek için: $kapsa(!Hayır) yazınız. } } if $1 == !Evet { msg # Tüm veriler sıfırlan'dı. | pp } if $1 == !Hayır { msg # Tüm verileri sıfırlama işlevi durduruldu. | return $false } if $1 == !istatistik { if !$2 { msg # Herhangi bir nick girilmedi. Kullanım şekli: $kapsa(!istatistik helper-nick) | halt } if !$hmatch(nickler,$2) { msg # $kapsa($2) isminde helper kayıtlı değil. | halt } else { msg # $kapsa($2) helper'inin $kapsa(%trh) tarihinden beri kayıt edilen istatistik'leri sıralanıyor: msg # - msg # #Help kanalına toplam: $kapsa($+($chr(40),$iif($hget(giris,$2),$hget(giris,$2),0),$chr(41))) giriş yaptı. msg # #Help kanalın'dan toplam: $kapsa($+($chr(40),$iif($hget(cıkıs,$2),$hget(cıkıs,$2),0),$chr(41))) çıkış yaptı. msg # Not: $kapsa($2) helper'inin hangi tarihlerde giriş/çıkış yaptığını öğrenmek için: $kapsa(!Takip $2) yazınız. msg # Verdiği voice sayısı: $kapsa($iif($hget(vc,$2),$hget(vc,$2) $yuzde3(vc,$2,voiceler),0)) msg # Aldığı voice sayısı: $kapsa($iif($hget(devc,$2),$hget(devc,$2) $yuzde3(devc,$2,devoiceler),0)) msg # Attığı ban sayısı: $kapsa($iif($hget(ban,$2),$hget(ban,$2) $yuzde3(ban,$2,banlar),0)) msg # Açtığı ban sayısı: $kapsa($iif($hget(unban,$2),$hget(unban,$2) $yuzde3(unban,$2,unbanlar),0)) msg # #Help kanalın'da yazdığı satır miktarı: $kapsa($iif($hget(text,$2),$hget(text,$2) $yuzde3(text,$2,ntext),0)) msg # - msg # Bilgi: $kapsa($2) helper'inin tüm istatistikleri sıralandı. } } if $1 == !Takip { if !$2 { msg # Yanlış kullanım. Kullanım şekli: $kapsa(!Takip helper-nick) | halt } if !$hmatch(nickler,$2) { msg # $kapsa($2) helper listesinde mevcut değil. | halt } else { msg # $kapsa($2) helper'inin $kapsa(%trh) tarihinden beri, $kapsa(#help) kanalına giriş/çıkış bilgileri sıralanıyor. var %1 = 1,%2 = $lines($+(helper/,$2,.,txt)) | while %1 <= %2 { msg # $read($+(helper/,$2,.,txt),%1) | inc %1 } msg # Bu kayıtları silmek için; $kapsa(!tsil $2) yazınız. } } if $1 == !tsil { if !$2 { msg # Yanlış kullanım. Kullanım şekli: $kapsa(!Tsil helper-nick) | halt } if !$hmatch(nickler,$2) { msg # $kapsa($2) helper listesinde kayıtlı değil. | halt } if !$isfile($+(helper/,$2,.,txt)) { msg # $kapsa($2) için giriş/çıkış kaydı yok. | halt } else { remove $+(helper/,$2,.,txt)) | msg # $kapsa($2) helper'i için, giriş/çıkış tarihleri sıfırlandı. } } if $1 == !ekle { if !$2 { msg # Yanlış kullanım. Kullanım şekli: $kapsa(!Ekle yeni-helper-nick) | halt } if $hmatch(nickler,$2) { msg # $kapsa($2) helper listesinde zaten mevcut. | halt } else { hadd -m nickler $2 | hsave -i nickler nickler.db | msg # $kapsa($2) helper listesine eklendi. } } if $1 == !sil { if !$2 { msg # Yanlış kullanım. Kullanım şekli: $kapsa(!sil helper-nick) | halt } if !$hmatch(nickler,$2) { msg # $kapsa($2) helper listesinde zaten mevcut değil. | halt } else { sil $2 | msg # $kapsa($2) helper listesinden tüm kayıtları ile beraber silindi. } } }

Not :Gerekli aliasları '' Variables(e) '' eklemen yeterlidir.
İf'te buna benzer 1'den fazla kodlar mevcud güzel insan
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
aygılarımla~~

__________________
kS.-.cMGz
 
Alıntı ile Cevapla

Alt 15 Mart 2013, 21:36   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Helper Takip ?




variable de alias nasıl çalışıyokine

 
Alıntı ile Cevapla

Alt 17 Mart 2013, 07:59   #4
Çevrimdışı
• Mobil Uygulama Geliştiricisi •
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Helper Takip ?




Aynı Code bendede mevcut belki bi yeri eksikdir die hata veriyordur neyse bunuda denicem umarım çalışıyordur teşekkürler.

 
Alıntı ile Cevapla

Alt 03 Kasım 2016, 02:33   #5
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Helper Takip ?




bu addonu calıstıramadım yardımcı olurmusunuz rıca etsem hangı yerlerı Variablese eklıyecegım denedım ama olmadı

 
Alıntı ile Cevapla

Alt 07 Kasım 2016, 19:36   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Helper Takip ?




@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kod da gerekli yerleri doğru bir şekilde doldurup denedinizmi ?

__________________
i don't care if i'm misfit..
 
Alıntı ile Cevapla

Alt 07 Kasım 2016, 19:55   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Helper Takip ?




IRC-Dancer Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias yuzde return $+($chr(40),%,$left($calc($hget($1,v) * 100 / $hget($2,v)),4),$chr(41)) alias yuzde2 return $+($chr(40),%,$calc($left(100.000000,4) - $remove($yuzde($1,$2),$chr(41),$chr(40),%)),$chr(41)) alias yuzde3 return $+($chr(40),%,$left($calc($hget($1,$2) * 100 / $hget($3,v)),4),$chr(41)) alias ll return $calc($hget($1,v)-$hget($2,v)) alias kapsa return $+($chr(2),$1-,$chr(2)) alias kontrol { if $count($nick($1,$2).pnick,@,~,%,&) != 0 { hadd -m nickler $2 1 | hsave -i nickler nickler.db | hinc -m giris $2 1 | hsave -i giris giris.db | hinc -m ygiris v 1 | hsave -i ygiris ygiris.db | write $+(helper/,$2,.,txt) $+(=>,$chr(40),$chr(2),$chr(31),Giriş,$chr(31),$chr(2),$chr(41),$chr(32),$chr(40),$chr(2),$date,$chr(2),$chr(41)) Gün: $gun($+($chr(2),$day,$chr(2))) - Saat: $+($chr(2),$time,$chr(2)) } | else { helperler #HELP-OP #HELP-OP | msg #HELP-OP #Help kanalına giriş yapıldı. Nick: $+($chr(2),$2,$chr(2)) } } alias gun { return $replace($1,Monday,Pazartesi,Tuesday,Salı,Wednesday,Çarşamba,Thursday,Perşembe,Friday,Cuma,Saturday,Cumartesi,Sunday,Pazar) } alias pp { var %& = $numtok($findfile($mircdir,*.db,1),92) | var %j = 1, %k = $findfile($mircdir,*.db,0) | while %j <= %k { if $gettok($findfile($mircdir,*.db,%j),%&,92) != nickler.db { echo -a $gettok($findfile($mircdir,*.db,%j),%&,92) } | inc %j } | hfree -w * | unset %trh | hsil } alias helperler { if $1 { var %1 = 1,%2 = $nick($1,0),%3 | while %1 <= %2 { if $nick($1,%1) != $me { %3 = $addtok(%3,$nick($1,%1),32) } | inc %1 } } msg $2 %3 } alias hsil { var %s = $numtok($findfile(helper,*.txt,1),92) | var %1 = 1,%2 = $findfile(helper,*.txt,0) | while %1 <= %2 { remove $gettok($findfile(helper,*.txt,%1),%s,92) | inc %1 } } alias sil { hdec voiceler v $hget(vc,$1) | hdec banlar v $hget(ban,$1) | hdec unbanlar v $hget(unban,$1) | hdec ytext v $hget(text,$1) hdec ygiris v $hget(giris,$1) | hdec ycıkıs v $hget(cıkıs,$1) | hdec devoiceler v $hget(devc,$1) hdel nickler $1 | hsave -i nickler nickler.db | hdel giris $1 | hsave -i giris giris.db | hdel cıkıs $1 | hsave -i cıkıs cıkıs.db | hdel vc $1 | hsave -i vc vc.db hdel devc $1 | hsave -i devc devc.db | hdel ban $1 | hsave -i ban ban.db | hdel unban $1 | hsave -i unban unban.db | hdel text $1 | hsave -i text text.db } on *:start: { if !%trh { set %trh $date } if $isfile(nickler.db) { hmake nickler 100 | hload -i nickler nickler.db } | else { hmake nickler 100 | hsave -i nickler nickler.db } if $isfile(giris.db) { hmake giris 100 | hload -i giris giris.db } | else { hmake giris 100 | hsave -i giris giris.db } if $isfile(cıkıs.db) { hmake cıkıs 100 | hload -i cıkıs cıkıs.db } | else { hmake cıkıs 100 | hsave -i cıkıs cıkıs.db } if $isfile(voiceler.db) { hmake voiceler 100 | hload -i voiceler voiceler.db } | else { hmake voiceler 100 | hsave -i voiceler voiceler.db } if $isfile(devoiceler.db) { hmake devoiceler 100 | hload -i devoiceler devoiceler.db } | else { hmake devoiceler 100 | hsave -i devoiceler devoiceler.db } if $isfile(vc.db) { hmake vc 100 | hload -i vc vc.db } | else { hmake vc 100 | hsave -i vc vc.db } if $isfile(devc.db) { hmake devc 100 | hload -i devc devc.db } | else { hmake devc 100 | hsave -i devc devc.db } if $isfile(banlar.db) { hmake banlar 100 | hload -i banlar banlar.db } | else { hmake banlar 100 | hsave -i banlar banlar.db } if $isfile(ban.db) { hmake ban 100 | hload -i ban ban.db } | else { hmake ban 100 | hsave -i ban ban.db } if $isfile(unbanlar.db) { hmake unbanlar 100 | hload -i unbanlar unbanlar.db } | else { hmake unbanlar 100 | hsave -i unbanlar unbanlar.db } if $isfile(unban.db) { hmake unban 100 | hload -i unban unban.db } | else { hmake unban 100 | hsave -i unban ban.db } if $isfile(text.db) { hmake text 100 | hload -i text text.db } | else { hmake text 100 | hsave -i text text.db } if $isfile(normalg.db) { hmake normalg 100 | hload -i normalg normalg.db } | else { hmake normalg 100 | hsave -i normalg normalg.db } if $isfile(normalc.db) { hmake normalc 100 | hload -i normalc normalc.db } | else { hmake normalc 100 | hsave -i normalc normalc.db } if $isfile(ntext.db) { hmake ntext 100 | hload -i ntext ntext.db } | else { hmake ntext 100 | hsave -i ntext ntext.db } if $isfile(ytext.db) { hmake ytext 100 | hload -i ytext ytext.db } | else { hmake ytext 100 | hsave -i ytext ytext.db } if $isfile(ycıkıs.db) { hmake ycıkıs 100 | hload -i ycıkıs ycıkıs.db } | else { hmake ycıkıs 100 | hsave -i ycıkıs ycıkıs.db } if $isfile(ygiris.db) { hmake ygiris 100 | hload -i ygiris ygiris.db } | else { hmake ygiris 100 | hsave -i ygiris ygiris.db } } on *:op:#yardimkanaliAdı: { if !$hmatch(nickler,$opnick) { hadd -m nickler $opnick 1 | hsave -i nickler nickler.db } } on *:join:#yardimkanaliAdı: { hinc -m normalg v 1 | hsave -i normalg normalg.db | .timer 1 1 kontrol # $nick } on *:part:#yardimkanaliAdı: { hinc -m normalc v 1 | hsave -i normalc normalc.db | if $hmatch(nickler,$nick) { hinc -m ycıkıs v 1 | hsave -i ycıkıs ycıkıs.db | hinc -m cıkıs $nick 1 | hsave -i cıkıs cıkıs.db | write $+(helper/,$nick,.,txt) $+(=>,$chr(40),$chr(2),$chr(31),Çıkış,$chr(31),$chr(2),$chr(41),$chr(32),$chr(40),$chr(2),$date,$chr(2),$chr(41)) Gün: $gun($+($chr(2),$day,$chr(2))) - Saat: $+($chr(2),$time,$chr(2)) } } on *:voice:#yardimkanaliAdı: { if $hmatch(nickler,$nick) { hinc -m voiceler v 1 | hsave -i voiceler voiceler.db | hinc -m vc $nick 1 | hsave -i vc vc.db } } on *:devoice:#yardimkanaliAdı: { if $hmatch(nickler,$nick) { hinc -m devoiceler v 1 | hsave -i devoiceler devoiceler.db | hinc -m devc $nick 1 | hsave -i devc devc.db } } on *:ban:#yardimkanaliAdı: { if $hmatch(nickler,$nick) { hinc -m banlar v 1 | hsave -i banlar banlar.db | hinc -m ban $nick 1 | hsave -i ban ban.db } } on *:unban:#yardimkanaliAdı: { if $hmatch(nickler,$nick) { hinc -m unbanlar v 1 | hsave -i unbanlar unbanlar.db | hinc -m unban $nick 1 | hsave -i unban unban.db } } on *:text:*:#yardimkanaliAdı: { hinc -m ntext v 1 | hsave -i ntext ntext.db | if $hmatch(nickler,$nick) { hinc -m ytext v 1 | hsave -i ytext ytext.db | hinc -m text $nick 1 | hsave -i text text.db } } on *:text:*:#HelpersKanalıAdı: { if $nick == YetkiliNickiburaya { if $1 == !durum { msg # $+([,$chr(2),%trh,$chr(2),]) Tarihinden beri kayıt'da olan $+($chr(2),#help,$chr(2)) kanalı istatistik'leri sıralanıyor: msg # - msg # Toplam kullanıcı girişi istatistikleri: $+($chr(40),$iif($hget(normalg,v),$hget(normalg,v),0),$chr(41)) msg # - Giriş bilgisi: $iif($hget(normalg,v),Yetkili girişi: $iif($hget(ygiris,v),$hget(ygiris,v),0) $yuzde(ygiris,normalg) - Yetkisiz girişi: $ll(normalg,ygiris) $yuzde2(ygiris,normalg),Toplam: 0 (%100)) msg # Toplam kullanıcı çıkışı istatistikleri: $+($chr(40),$iif($hget(normalc,v),$hget(normalc,v),0),$chr(41)) msg # - Çıkış bilgisi: $iif($hget(normalc,v),Yetkili çıkışı: $iif($hget(ycıkıs,v),$hget(ycıkıs,v),0) $yuzde(ycıkıs,normalc) - Yetkisiz çıkışı: $ll(normalc,ycıkıs) $yuzde2(ycıkıs,normalc), Toplam: 0 (%100)) msg # Toplam verilen voice: $+($chr(40),$iif($hget(voiceler,v),$hget(voiceler,v),0),$chr(41)) msg # Toplam alınan voice: $+($chr(40),$iif($hget(devoiceler,v),$hget(devoiceler,v),0),$chr(41)) msg # Toplam atılan ban sayısı: $+($chr(40),$iif($hget(banlar,v),$hget(banlar,v),0),$chr(41)) msg # Toplam açılan ban sayısı: $+($chr(40),$iif($hget(unbanlar,v),$hget(unbanlar,v),0),$chr(41)) msg # Toplam yazılan satır sayısı: $+($chr(40),$iif($hget(ntext,v),$hget(ntext,v),0),$chr(41)) msg # - Satır bilgisi: $iif($hget(ntext,v),Yetkili yazısı: $iif($hget(ytext,v),$hget(ytext,v),0) $yuzde(ytext,ntext) - Yetkisiz yazısı: $ll(ntext,ytext) $yuzde2(ytext,ntext),Toplam: 0 (%100)) msg # - msg # $+($chr(2),$nick,$chr(2)) kullanabileceğiniz komutlar listesini görmek için: $+($chr(2),!Komutlar,$chr(2)) yazınız. } if $1 == !Komutlar { msg # $+($chr(31),Genel komutlar,$chr(31),:) msg # - msg # !voicelist $kapsa((#Help kanalında kayıt gününden beri verilen tüm voice'leri sıralar)) msg # !devoicelist $kapsa((#Help kanalında kayıt gününden beri alınan tüm voice'leri sıralar)) msg # !banlist $kapsa((#Help kanalında kayıt tarihinden beri atılan tüm banları sıralar)) msg # !unbanlist $kapsa((#Help kanalında kayıt tarihinden beri açılan tüm banları sıralar)) msg # !Helperler $kapsa((#Help kanalında takip listesinde olan tüm helper'ları sıralar)) msg # !sıfırla tümü $kapsa((#Help kanalı için varolan tüm kayıtları sıfır'lar)) msg # - msg # $+($chr(31),Kişisel komutlar,$chr(31),:) msg # - msg # !ekle helper-nick $kapsa((Takip listesine helper eklemek için kullanılır)) msg # !sil helper-nick $kapsa((Takip listesinde ekli olan bir helper'i siler)) msg # !istatistik helper-nick $kapsa((Takip listesinde kayıtlı olan helper hakkında ayrıntılı bilgiler verir)) msg # !takip helper-nick $kapsa((Takip listesinde kayıtlı olan helper'in, hangi tarihlerde giriş/çıkış yaptığını gösterir)) msg # !tsil helper-nick $kapsa((Takip listesinde kayıtlı olan helper'in, giriş/çıkış tarihlerini sıfır'lar)) msg # - msg # Tüm komutlar sıralandı. } if $1 == !helperler { if $hget(nickler,0).item < 1 { msg # Kayıtlı helper mevcut değil. Helper eklemek için; $kapsa(!ekle helper-nick) yazınız. | halt } else { msg # Kayıtlı olan toplam; $kapsa($hget(nickler,0).item) helper sıralanıyor. | var %& = 1,%&& = $hget(nickler,0).item | while %& <= %&& { msg # $+(%&,$chr(45)) $kapsa($hget(nickler,%&).item) | inc %& } } msg # Kayıtlar sıralandı. msg # Herhangi bir helper hakkında detaylı bilgi almak için; $kapsa(!istatistik helper-nick) yazınız. } if $1 == !voicelist { if $hget(voiceler,v) < 1 { msg # $kapsa(#Help) kanalı için voice kaydı yok.(Voice verilmemiş) | halt } else { msg # #Help kanalın'da $kapsa(%trh) tarihinden itibaren verilen toplam voice sayısı: $kapsa($hget(voiceler,v)) msg # #Help kanalın'da yetkili olan $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41))) helper'in voice verme istastiği(Sadece voice veren'ler sıralanır): var %1 = 1,%2 = $hget(vc,0).item | while %1 <= %2 { msg # Helper: $kapsa($hget(vc,%1).item) - Verdiği voice sayısı: $kapsa($iif($hget(vc,%1).data,$hget(vc,%1).data $yuzde3(vc,$hget(vc,%1).item,voiceler),0)) | inc %1 } } msg # - msg # Voice kayıtları sıralandı. } if $1 == !devoicelist { if $hget(devoiceler,v) < 1 { msg # $kapsa(#Help) kanalı için devoice kaydı yok.(Devoice işlevi yapılmamış) | halt } else { msg # #Help kanalın'da $kapsa(%trh) tarihinden itibaren uygulanan toplam devoice sayısı: $kapsa($hget(devoiceler,v)) msg # #Help kanalın'da yetkili olan $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41))) helper'in devoice uygulama istastiği:(Sadece devoice veren'ler sıralanır) var %a = 1,%b = $hget(devc,0).item | while %a <= %b { msg # Helper: $kapsa($hget(devc,%a).item) - Uyguladığı devoice sayısı: $kapsa($iif($hget(devc,%a).data,$hget(devc,%a).data $yuzde3(devc,$hget(devc,%a).item,devoiceler),0)) | inc %a } } msg # - msg # Devoice kayıtları sıralandı. } if $1 == !banlist { if $hget(banlar,v) < 1 { msg # $kapsa(#Help) kanalı için ban kaydı bulunamadı.(Atılan ban yok) | halt } else { msg # #Help kanalın'da $kapsa(%trh) tarihinden itibaren atılan toplam ban sayısı: $kapsa($hget(banlar,v)) msg # #Help kanalın'da yetkili olan $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41))) helper'in ban uygulama istastiği:(Sadece ban atanlar sıralanır) var %x = 1,%y = $hget(ban,0).item | while %x <= %y { msg # Helper: $kapsa($hget(ban,%x).item) - Attığı ban sayısı: $kapsa($iif($hget(ban,%x).data,$hget(ban,%x).data $yuzde3(ban,$hget(ban,%x).item,banlar),0)) | inc %x } } msg # - msg # Ban kayıtları sıralandı. } if $1 == !unbanlist { if $hget(unbanlar,v) < 1 { msg # $kapsa(#Help) kanalı için unban kaydı bulunamadı.(Açılan ban yok) | halt } else { msg # #Help kanalın'da $kapsa(%trh) tarihinden itibaren açılan toplam ban sayısı: $kapsa($hget(unbanlar,v)) msg # #Help kanalın'da yetkili olan $kapsa($+($chr(40),$hget(nickler,0).item,$chr(41))) helper'in ban açma istastiği:(Sadece ban açanlar sıralanır) var %s = 1,%k = $hget(unban,0).item | while %s <= %k { msg # Helper: $kapsa($hget(unban,%s).item) - Açtığı ban sayısı: $kapsa($iif($hget(unban,%s).data,$hget(ban,%s).data $yuzde3(unban,$hget(unban,%s).item,unbanlar),0)) | inc %s } } msg # - msg # Unban kayıtları sıralandı. } if $1 == !sıfırla { if !$2 { msg # Yanlış kullanım. Kullanım şekli: $kapsa(!sıfırla tümü) (Tüm verileri sıfırlar) | halt } if $2 == tümü { msg # Bu işlev eklenen helper'ler hariç tüm kayıtları silecektir. msg # $kapsa(#Help) kanalı için tüm kayıtlar sıfırlansın'mı? msg # Onaylamak için: $kapsa(!Evet) - Vazgeçmek için: $kapsa(!Hayır) yazınız. } } if $1 == !Evet { msg # Tüm veriler sıfırlan'dı. | pp } if $1 == !Hayır { msg # Tüm verileri sıfırlama işlevi durduruldu. | return $false } if $1 == !istatistik { if !$2 { msg # Herhangi bir nick girilmedi. Kullanım şekli: $kapsa(!istatistik helper-nick) | halt } if !$hmatch(nickler,$2) { msg # $kapsa($2) isminde helper kayıtlı değil. | halt } else { msg # $kapsa($2) helper'inin $kapsa(%trh) tarihinden beri kayıt edilen istatistik'leri sıralanıyor: msg # - msg # #Help kanalına toplam: $kapsa($+($chr(40),$iif($hget(giris,$2),$hget(giris,$2),0),$chr(41))) giriş yaptı. msg # #Help kanalın'dan toplam: $kapsa($+($chr(40),$iif($hget(cıkıs,$2),$hget(cıkıs,$2),0),$chr(41))) çıkış yaptı. msg # Not: $kapsa($2) helper'inin hangi tarihlerde giriş/çıkış yaptığını öğrenmek için: $kapsa(!Takip $2) yazınız. msg # Verdiği voice sayısı: $kapsa($iif($hget(vc,$2),$hget(vc,$2) $yuzde3(vc,$2,voiceler),0)) msg # Aldığı voice sayısı: $kapsa($iif($hget(devc,$2),$hget(devc,$2) $yuzde3(devc,$2,devoiceler),0)) msg # Attığı ban sayısı: $kapsa($iif($hget(ban,$2),$hget(ban,$2) $yuzde3(ban,$2,banlar),0)) msg # Açtığı ban sayısı: $kapsa($iif($hget(unban,$2),$hget(unban,$2) $yuzde3(unban,$2,unbanlar),0)) msg # #Help kanalın'da yazdığı satır miktarı: $kapsa($iif($hget(text,$2),$hget(text,$2) $yuzde3(text,$2,ntext),0)) msg # - msg # Bilgi: $kapsa($2) helper'inin tüm istatistikleri sıralandı. } } if $1 == !Takip { if !$2 { msg # Yanlış kullanım. Kullanım şekli: $kapsa(!Takip helper-nick) | halt } if !$hmatch(nickler,$2) { msg # $kapsa($2) helper listesinde mevcut değil. | halt } else { msg # $kapsa($2) helper'inin $kapsa(%trh) tarihinden beri, $kapsa(#help) kanalına giriş/çıkış bilgileri sıralanıyor. var %1 = 1,%2 = $lines($+(helper/,$2,.,txt)) | while %1 <= %2 { msg # $read($+(helper/,$2,.,txt),%1) | inc %1 } msg # Bu kayıtları silmek için; $kapsa(!tsil $2) yazınız. } } if $1 == !tsil { if !$2 { msg # Yanlış kullanım. Kullanım şekli: $kapsa(!Tsil helper-nick) | halt } if !$hmatch(nickler,$2) { msg # $kapsa($2) helper listesinde kayıtlı değil. | halt } if !$isfile($+(helper/,$2,.,txt)) { msg # $kapsa($2) için giriş/çıkış kaydı yok. | halt } else { remove $+(helper/,$2,.,txt)) | msg # $kapsa($2) helper'i için, giriş/çıkış tarihleri sıfırlandı. } } if $1 == !ekle { if !$2 { msg # Yanlış kullanım. Kullanım şekli: $kapsa(!Ekle yeni-helper-nick) | halt } if $hmatch(nickler,$2) { msg # $kapsa($2) helper listesinde zaten mevcut. | halt } else { hadd -m nickler $2 | hsave -i nickler nickler.db | msg # $kapsa($2) helper listesine eklendi. } } if $1 == !sil { if !$2 { msg # Yanlış kullanım. Kullanım şekli: $kapsa(!sil helper-nick) | halt } if !$hmatch(nickler,$2) { msg # $kapsa($2) helper listesinde zaten mevcut değil. | halt } else { sil $2 | msg # $kapsa($2) helper listesinden tüm kayıtları ile beraber silindi. } } }

Not :Gerekli aliasları '' Variables(e) '' eklemen yeterlidir.
İf'te buna benzer 1'den fazla kodlar mevcud güzel insan
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
aygılarımla~~


Edit;
  • Anlaşılır şekilde eklenmesi gereken yerler kırmızı ile işaretlendi.
  • Remote kısmında çalışır. Variables(e) kısmında değil.
Kullanım;
!komutlar

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

__________________
i don't care if i'm misfit..
 
Alıntı ile Cevapla

Cevapla


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Helper Mirc indir - Helper Script Download | Unique | St_By_Romantiq_Serseri mIRC Scripting Tanıtımları 12 01 Aralık 2021 19:34
Helper Takip ArresT mIRC Scripting Hazır Kodlar 6 23 Eylül 2009 22:47