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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 26 Ocak 2009, 22:47   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Founder yardımcısı birkaçı lazım.




PHP 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,@,~,%,&) != 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 %1, %$findfile($mircdir,*.db,0) | while %<= %{ if $gettok($findfile($mircdir,*.db,%j),%&,92) != nickler.db { echo -a $gettok($findfile($mircdir,*.db,%j),%&,92) } | inc %} | hfree -* | unset %trh hsil }
alias helperler { if ${ var %1,%$nick($1,0),%| while %<= %{ if $nick($1,%1) != $me { %$addtok(%3,$nick($1,%1),32) } | inc %} } msg $%}
alias hsil { var %$numtok($findfile(helper,*.txt,1),92) | var %1,%$findfile(helper,*.txt,0) | while %<= %remove $gettok($findfile(helper,*.txt,%1),%s,92) | inc %} }
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 $hsave -i nickler nickler.db hdel giris $hsave -i giris giris.db hdel cıkıs $hsave -i cıkıs cıkıs.db hdel vc $hsave -i vc vc.db
  hdel devc 
$hsave -i devc devc.db hdel ban $hsave -i ban ban.db hdel unban $hsave -i unban unban.db hdel text $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:#HELP: { if !$hmatch(nickler,$opnick) { hadd -m nickler $opnick 1 | hsave -i nickler nickler.db } }
on *:join:#HELP: { hinc -m normalg v 1 | hsave -i normalg normalg.db | .timer 1 1 kontrol # $nick } 
on *:part:#HELP: { 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:#HELP: { 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:#HELP: { 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:#HELP: { 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:#HELP: { 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:*:#HELP: { 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:*:#HELP-OP: {
  
if $nick == HELP-Founder-NICK'i {
    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 $
== !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 $
== !helperler 
      if 
$hget(nickler,0).item 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 $
== !voicelist 
      if 
$hget(voiceler,v) < 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,%$hget(vc,0).item | while %<= %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 $
== !devoicelist 
      if 
$hget(devoiceler,v) < 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 %1,%$hget(devc,0).item | while %<= %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 $
== !banlist 
      if 
$hget(banlar,v) < 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 %1,%$hget(ban,0).item | while %<= %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 $
== !unbanlist 
      if 
$hget(unbanlar,v) < 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 %1,%$hget(unban,0).item | while %<= %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 $
== !sıfırla {
      if !$
msg # Yanlış kullanım. Kullanım şekli: $kapsa(!sıfırla tümü) (Tüm verileri sıfırlar)  | halt }
      
if  $== 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 $
== !Evet msg # Tüm veriler sıfırlan'dı. | pp }
    
if $== !Hayır msg # Tüm verileri sıfırlama işlevi durduruldu. | return $false }
    
if $== !istatistik {
      if !$
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 $
== !Takip {
      if !$
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,%$lines($+(helper/,$2,.,txt)) | while %<= %msg # $read($+(helper/,$2,.,txt),%1) | inc %1 } 
        
msg # Bu kayıtları silmek için; $kapsa(!tsil $2) yazınız.
      
}
    }
    if $
== !tsil {
      if !$
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 $
== !ekle {
      if !$
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 $hsave -i nickler nickler.db msg # $kapsa($2) helper listesine eklendi. } 
    
}
    if $
== !sil {
      if !$
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 $msg # $kapsa($2) helper listesinden tüm kayıtları ile beraber silindi. }
    
}
  }


Bu codeden bana;
Genel komutlar;

!voicelist
(#Help kanalında kayıt gününden beri verilen tüm voice'leri sıralar)
!Helperler (#Help kanalında takip listesinde olan tüm helper'ları sıralar)

Kişisel komutlar:

!ekle helper-nick (Takip listesine helper eklemek için kullanılır)
!sil helper-nick (Takip listesinde ekli olan bir helper'i siler)
!istatistik helper-nick (Takip listesinde kayıtlı olan helper hakkında ayrıntılı bilgiler verir)
!takip helper-nick (Takip listesinde kayıtlı olan helper'in, hangi tarihlerde giriş/çıkış yaptığını gösterir)
!tsil helper-nick (Takip listesinde kayıtlı olan helper'in, giriş/çıkış tarihlerini sıfır'lar)


Diğerlerini çıkarabilirmiyiz?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 27 Ocak 2009, 01:15   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Founder yardımcısı birkaçı lazım.




İstatistik bilgilerinde giriş,çıkış,voice,devoice,ban,unban vs vs seçenekleri listeleniyor.
Ayrıca komple bir kod olduğu için bağlantılı bir halde,istemediğin yeri (kayıt almamasını ve istatistik\durum menüsünde listelenmemesini) istediğin kısımları daha net bir şekilde belirtmen doğru olur.

 
Alıntı ile Cevapla

Alt 27 Ocak 2009, 03:18   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Founder yardımcısı birkaçı lazım.




Şöyle anlatıyım. Bu kode içerisinden bana !voicelist bölümü lazım mesela ben help kanalında !voicelist yazdığımda aynı bu kodedeki gibi voicelistesi çıkaracak şöyle;

#Help kanalın'da 26/01/2009 tarihinden itibaren verilen toplam voice sayısı: 8
#Help kanalın'da yetkili olan (3) helper'in voice verme istatistiği(Sadece voice veren'ler sıralanır):
Helper: MerakLıuSer - Verdiği voice sayısı: 1 (%100)
Helper: MerakLıuSers - Verdiği voice sayısı: 2 (%100)
Helper: MerakLıuSerCik - Verdiği voice sayısı: 5 (%100)
-
Voice kayıtları MerakLıuSer tarafından listelendi.
!voicem nick
Bu komutu uyguladığındada sadece bir nicke ait voiceyi listeleyecek örnek;
!voicem MerakLıuSer
Helper: MerakLıuSer - Verdiği voice sayısı: 1 (%100)
!helperler
Bu komutu yazıncada helperleri sıralasın istiyorum.
Bu üçtanesini lazım bana
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Konu MerakLıuSer tarafından (27 Ocak 2009 Saat 12:25 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 27 Ocak 2009, 13:36   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Founder yardımcısı birkaçı lazım.




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias yuzde3 { return $+($chr(40),%,$left($calc($hget($1,$2) * 100 / $hget($3,v)),4),$chr(41)) } alias kapsa { return $+($chr(2),$1-,$chr(2)) } 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 sil { hdec voiceler v $hget(vc,$1) hdel nickler $1 | hsave -i nickler nickler.db | hdel vc $1 | hsave -i vc vc.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(voiceler.db) { hmake voiceler 100 | hload -i voiceler voiceler.db } | else { hmake voiceler 100 | hsave -i voiceler voiceler.db } if $isfile(vc.db) { hmake vc 100 | hload -i vc vc.db } | else { hmake vc 100 | hsave -i vc vc.db } } on *:voice:#HELP: { 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 *:text:*:#HELP-OP: { if $1 == !voicelist { if !$2 { 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ı. } else { msg # Helper: $kapsa($hfind(vc,$2)) - Verdiği voice sayısı: $kapsa($iif($hget(vc,$2),$hget(vc,$2) $yuzde3(vc,$hfind(vc,$2),voiceler),0)) } } if $nick == HELP-Founder-NICK'i { 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 == !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. } } } }

Kod içerisindeki HELP-Founder-NICK'i , #HELP - OP yerlerini kendine göre düzenliyorsun !voicelist(hepsini verir) !voicelist nick (nicki verir).Ayıkladığım kısım bu şimdilik,tabii senin kullanımına bağlı olarak gözlem yapman gerekir.Aksayan kısım olursa yine bu başlıkta dile getirirsin...

(ayrıca bu sana 4. kez help kanalıyla ilgili voice düzenlemem,orda herşey yolunda dimi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)


Konu Difuzyon tarafından (27 Ocak 2009 Saat 19:03 ) değiştirilmiştir. Sebep: düzenleme
 
Alıntı ile Cevapla

Alt 27 Ocak 2009, 14:31   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Founder yardımcısı birkaçı lazım.




Önce buna bakalım bundan herşey güzel fakat şöyle bir hata oldu.

[14:15:52] <04MerakLıuSer> !Voicelist
[14:15:53] <04BOT> #Help kanalın'da 27/01/2009 tarihinden itibaren verilen toplam voice sayısı: 3
[14:15:53] <04BOT> #Help kanalın'da yetkili olan (2) helper'in voice verme istastiği(Sadece voice veren'ler sıralanır):
[14:15:53] <04BOT> Helper: MerakLıuSer - Verdiği voice sayısı: 3 (%100)
[14:15:53] <04BOT> Helper: Deneme - Verdiği voice sayısı: 2 (%66.6)
[14:15:53] <04BOT> 0,0-1-
[14:15:53] <04BOT> Voice kayıtları sıralandı.
[14:16:03] <04MerakLıuSer> !voicelist Deneme
[14:16:04] <04BOT> Helper: 2 - Verdiği voice sayısı: 2 (%0)

Birtek burda ufak bir hata var.

 
Alıntı ile Cevapla

Alt 27 Ocak 2009, 14:48   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Founder yardımcısı birkaçı lazım.




msg # Helper: $kapsa($hget(vc,$2).item) - Verdiği voice sayısı: $kapsa($iif($hget(vc,$2).data,$hget(vc,$2).data $yuzde3(vc,$hget(vc,$2).item,voiceler),0))

satırı yerine aşağıdaki gibi:

msg # Helper: $kapsa($hfind(vc,$2)) - Verdiği voice sayısı: $kapsa($iif($hget(vc,$2),$hget(vc,$2) $yuzde3(vc,$hfind(vc,$2),voiceler),0))


Konu Difuzyon tarafından (27 Ocak 2009 Saat 18:57 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 27 Ocak 2009, 17:55   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Founder yardımcısı birkaçı lazım.




!Voicelist nick
Kendi voicesinde sorun var.
[17:22:16] <04MerakLıuSer> !Voicelist
[17:22:16] <04BOT> #Help kanalın'da 27/01/2009 tarihinden itibaren verilen toplam voice sayısı: 3
[17:22:16] <04BOT> #Help kanalın'da yetkili olan (1) helper'in voice verme istastiği(sadece voice(+) veren'ler sıralanır):
[17:22:16] <04BOT> Helper: MerakLıuSer - Verdiği voice sayısı: 6 (%200)
[17:22:45] <04MerakLıuSer> !Voicelist MerakLıuSer
[17:22:51] <04BOT> Helper: MerakLıuSer - Verdiği voice sayısı: 1 (%0)
Bunu ayrı yapma imkanımız var mı? Diğerlerinden bağımsız olcak yani.
Bunu çünkü herkez kullancakta.Diğerlerini yaptım saol
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.



Alıntı:
İlk verdiğim kodu tekrar alırmısın. Difuzyon



Konu Difuzyon tarafından (27 Ocak 2009 Saat 19:05 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 28 Ocak 2009, 11:02   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Founder yardımcısı birkaçı lazım.




Şimdide voicelistide herkez kullandı ama. bir nick sadece kendi voicesine bakabilsin istiyorum ben.

 
Alıntı ile Cevapla

Alt 29 Ocak 2009, 20:29   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Founder yardımcısı birkaçı lazım.




Arkadaşlar bu kodeden şu iki kısım lazım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

!Voicelist nick
!Voicem nick
Nick sadece kendi voicelistesine bakabilecek.
!Voicesıfırla
Sadece tüm voice kayıtlarını sıfırlıcak.

 
Alıntı ile Cevapla

Alt 04 Şubat 2009, 11:48   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Founder yardımcısı birkaçı lazım.




Burda bir olay başgösterdi : ) Scripti kapattıgımda helperler listesini sıfırlıyor :S birde yapabilecek varsa;
Arkadaşlar bu kodeden şu iki kısım lazım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

!Voicelist nick (herhangi biri)
!Voicem nick (herhangi biri)
Nick sadece kendi voicelistesine bakabilecek.
!Voicesıfırla
Sadece tüm voice kayıtlarını sıfırlıcak.
!Helpersıfırla
Sadece tüm helper kayıtlarını sıfırlıcak.

 
Alıntı ile Cevapla

Cevapla

Etiketler
birkaci, founder, lazim, mirc download, mirc indir, yardimcisi


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
Founder yardımcısı bir kısım ufak bir sorun. MerakLıuSer mIRC Scripting Sorunları 8 07 Haziran 2009 17:51
unreal için m_spy lazım ama win32 de çalışması lazım bendeniz00 Unreal IRCd 3 15 Aralık 2007 22:00