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

Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 01 Haziran 2009, 23:48   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
sözcük sayım




mirce bir kod ekleyerek, kanalda konusanların konusma satırlarını tutmasını istiyorum nasıl olacak bu ?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Mobil Chat
Alt 01 Haziran 2009, 23:54   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: sözcük sayım




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
   on *:text:*:#kanal:{
  
;muaf nickler buraya
  
if ($istok(nick1 nick2 nick3,$nick,32)) { halt }
  if (!
$hget(topten)) { hmake topten }
  if ($
== !toplist) { msg $chan $toplist halt }
  if ($
== !puan) { msg $chan $nick Senin Puanın$iif($hget(topten,$nick),$hget(topten,$nick),Yok) | halt }
  if (
$len($1-) <= 50) { hinc topten $nick 1 hsave -o topten $shortfn($mircdirtopten.data) }
}
on *:start:{
  if (!
$hget(topten)) { hmake topten hload topten $shortfn($mircdirtopten.data) }
}
on *:exit:hsave -o topten $shortfn($mircdirtopten.data)
on *:disconnect:hsave -o topten $shortfn($mircdirtopten.data)
alias toplist {
  unset %
top10puan
  hsave topten $shortfn
($mircdirtopten.data)
  .
hfree -sw topten hmake topten hload topten $shortfn($mircdirtopten.data)
  var %
xc $hget(topten,0).data,%ss 1
  
while (%ss <= %xc) {
    
set %top10puan $addtok(%top10puan,$hget(topten,%ss).data,46)
    
inc %ss 1
  
}
  var %
sira $sorttok(%top10puan,46,nr)
  var %
1,%1,%1,%1,%1,%1,%1,%1,%1,%10 1
  
%$fazlaise($gettok(%sira,1,46)) $gettok(%sira,1,46)
  %
$fazlaise($gettok(%sira,2,46)) $gettok(%sira,2,46)
  %
$fazlaise($gettok(%sira,3,46)) $gettok(%sira,3,46)
  %
$fazlaise($gettok(%sira,4,46)) $gettok(%sira,4,46)
  %
$fazlaise($gettok(%sira,5,46)) $gettok(%sira,5,46)
  %
$fazlaise($gettok(%sira,6,46)) $gettok(%sira,6,46)
  %
$fazlaise($gettok(%sira,7,46)) $gettok(%sira,7,46)
  %
$fazlaise($gettok(%sira,8,46)) $gettok(%sira,8,46)
  %
$fazlaise($gettok(%sira,9,46)) $gettok(%sira,9,46)
  %
10 $fazlaise($gettok(%sira,10,46)) $gettok(%sira,10,46)
  return 
0,10Top10 Puan $+(0,$chr(44),4,#10,$chr(44),10,$chr(32),%1) $+(0,$chr(44),4,#20,$chr(44),10,$chr(32),%2) $+(0,$chr(44),4,#30,$chr(44),10,$chr(32),%3) $+(0,$chr(44),4,#40,$chr(44),10,$chr(32),%4) $+(0,$chr(44),4,#50,$chr(44),10,$chr(32),%5) $+(0,$chr(44),4,#60,$chr(44),10,$chr(32),%6) $+(0,$chr(44),4,#70,$chr(44),10,$chr(32),%7) $+(0,$chr(44),4,#80,$chr(44),10,$chr(32),%8) $+(0,$chr(44),4,#90,$chr(44),10,$chr(32),%9) $+(0,$chr(44),4,#100,$chr(44),10,$chr(32),%10)

}
alias -l fazlaise {
  unset %
| unset %w
  
var %$hfind(topten,$1,0,w).data
  
while (%i) {
    %
$hfind(topten,$1,%i,w).data
    
%= %%w
    dec 
%i
  
}
  return 
$replace($sorttok(%w,32,a),$chr(32),$chr(44))



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
!puan !toplist 50 karakterden uzun yazarsa 1 puan artacak birkaç kere test ettim çalışıyor.. genede hata falan olursa bildirin.

XcLusive 'ye ait bir codedir. umarım işine yarar iyi forumlar..

__________________
Lucifer dediler bana, kötülüğü anlatmak için. Halbuki, ışık ve güzelliği anlatırdı Lucifer. Ben kötüyüm bu düzen için; ama değilim asla kötülük.
 
Alıntı ile Cevapla

Alt 02 Haziran 2009, 00:12   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: sözcük sayım




teşekkürler ama saymıyor olabilir mi bu biraz daha açıklayabilir misin remote ye ekledim ama tık yok

 
Alıntı ile Cevapla

Alt 02 Haziran 2009, 00:15   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: sözcük sayım




Kendi mIRC'inde çalışması için;
bunun yerine;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#kanal:{



bunu eklemen gerekmektedir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:input:#:{


Ayrıca Açıklamasındada söylediğim gibi.. !puan !toplist 50 karakterden uzun yazarsa 1 puan artacak

__________________
Lucifer dediler bana, kötülüğü anlatmak için. Halbuki, ışık ve güzelliği anlatırdı Lucifer. Ben kötüyüm bu düzen için; ama değilim asla kötülük.
 
Alıntı ile Cevapla

Alt 02 Haziran 2009, 00:30   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



Peki bunda bir kişinin puanını öğrenmem mümkün mü

Bir de toplisti çalıştıramadım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Konu Regex tarafından (02 Haziran 2009 Saat 00:39 ) değiştirilmiştir. Sebep: Ardarda gönderilen iletiler birleştirildi.
 
Alıntı ile Cevapla

Cevapla

Etiketler
mirc download, mirc indir, sayim, sayım, sozcuk, sözcük


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
Sözcük Türleri Lcia Türkçe 0 27 Kasım 2014 20:07