Sayac.Tcl ( Kanalda Atılan Kickleri,toplam girişleri v.s Sayar.) - Sayac, Tcl, (, Kanalda, Atılan, Kickleri,toplam, girişleri, v, s, Sayar, )
Frmda.com
+ FRmda.Com Paylasim Platformu » Sohbet Chat Programları ve Tanıtımı Irc Serverler Msn Yahoo  » IRC Shell Hizmeti » Ircd Yazılımları
 Sayac.Tcl ( Kanalda Atılan Kickleri,toplam girişleri v.s Sayar.)

Kullanıcı Adı: Beni Hatirla
Şifre:


 

HEM ARKADAŞ EDİNMEK HEMDE BİNLERCE HEDİYEDEN BİRİNİ KAZANMAK İSTERMİSİN?
HEMEN TIKLA VE SOHBETE KATIL HEM ARKADAŞ HEMDE HEDİYE KAZANMAYA BAŞLA
Konu Bilgileri
Konu BasligiKonu: Sayac.Tcl ( Kanalda Atılan Kickleri,toplam girişleri v.s Sayar.)
Cevap SayisiCevap Sayisi: 0 cevap var
Okunma SayısıOkunma Sayısı 82 defa
Bu Konuyu Görüntüleyenler0 Üye ve 1 Ziyaretçi konuyu incelemekte.
Sayfa: [1]   Yukarı git
Konu: Sayac.Tcl ( Kanalda Atılan Kickleri,toplam girişleri v.s Sayar.)  (Okunma Sayısı 82 defa) Seçenekler Arama
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
« : 02 Mayıs 2008, 23:27:54 »            

Admin'in Bilgileri
Admin
HER ŞEY DAHA GÜZEL OLACAK
Administrator
KraL Üye
*




Cinsiyet Bay
Üye ID 30041
Kayit Tarihi 02 Ağustos 2007, 23:01:42
Nerden istanbul
Mesaj Sayisi 1211
Rep Puani
Rep Puan: 510
Deneyimleri

Aktiflik

Deneyim
Seviye
Kötü Itibar
Iletisim
WWW Offline Offline

Sayac.Tcl ( Kanalda Atılan Kickleri,toplam girişleri v.s Sayar.)

Www.Hossohbetci.Com " Degisen Dunyanin Degismeyen Yuzu Seviyeli Hossohbet Adresiniz"
Sayac.Tcl ( Kanalda Atılan Kickleri,toplam girişleri v.s Sayar.)


Kod:
# Bu Tcl Cok basit kanal kick ve join Sayac Tcl`idir..
# Kanaliza Giren Kisileri vede kanaldan atilan kisileri sayar..
# Bu Tcl IRCturk NEtwork Team Tarafindan Yazilmistir..
# Tcl calismak icin userinfo1.0.tcl ye ihtiyac duyar..
# Aksi takdirde calismicaktir..
#  Stonkeep
#
# Kullanabileceginiz Komutlar..
# Kanalda:
# !toplamgiris - Kanala bugune kadar kisi sayisini gosterir..
# !toplamatilan - Kanaldan bugune kadar atilan kisi sayisini gosterir..
# !toplamatilan <nick> - Nick`in kac kisiyi attigini gosterir..
# DCC Komutlari:
# .toplamgiris - Kanala bugune kadar kisi sayisini gosterir..
# .toplamatilan - Kanaldan bugune kadar atilan kisi sayisini gosterir..
# .toplamatilan <nick> - Nick`in Kac kisiyi attigini gosterir..
#


if {![info exists userinfover] } {
 putlog "*** Sayac Tcl Yuklenemiyo 2.0 -- Userinfo v1.01 .tcl Yuklu Olmak Zorunda.!"
 return 0
}

bind pub -|- !toplamgiris pub:toplamgiris
bind dcc -|- toplamgiris dcc:toplamgiris
bind join -|- * joincounter
bind pub -|- !toplamatilan pub:toplamatilan
bind dcc -|- toplamatilan dcc:toplamatilan
bind kick -|- * kickcounter
set khits 0
set jhits 0

proc convert {number} {
 set one .
 set two .
 set three .
 set others .
 set numlength [string length $number]
 incr numlength -2
 set num2ndchar [string index $number $numlength]
 switch $num2ndchar {
  1 { set number $number$others }
  default {
   incr numlength
   set numchar [string index $number $numlength]
   switch $numchar {
    1 { set number $number$one }
    2 { set number $number$two }
    3 { set number $number$three }
    default { set number $number$others }
   }
  }
 }
 return $number
}

proc dcc:toplamgiris {hand idx arg} {
 if {$arg == ""} {
  set temp 0
  set chan [lindex [console $idx] 0]
  set rchan [string tolower $chan]
  if {[file exists ./scripts/$rchan.jcount.txt]} {
   set o_fid [open "./scripts/$rchan.jcount.txt" "RDONLY"]
   gets $o_fid temp
   close $o_fid
   putdcc $idx "$rchan kanalini toplam $temp kisi ziyaret etti."
   return 0
  } else {
   putdcc $idx "$rchan kanalini suana kadar kimse ziyaret etmedi.."
  }
 } else {
  set temp 0
  set rchan [string tolower $arg]
  if {[file exists ./scripts/$rchan.jcount.txt]} {
   set o_fid [open "./scripts/$rchan.jcount.txt" "RDONLY"]
   gets $o_fid temp
   close $o_fid
   putdcc $idx "$rchan kanalini toplam $temp kisi ziyaret etti"
   return 0
  } else {
   putdcc $idx "$rchan kanalini suana kadar kimse ziyaret etmedi"
  }
 }
}

proc pub:toplamgiris {nick host hand chan arg} {
 if { $arg == "" } {
  set temp 0
  set rchan [string tolower $chan]
  if {[file exists ./scripts/$rchan.jcount.txt]} {
   set o_fid [open "./scripts/$rchan.jcount.txt" "RDONLY"]
   gets $o_fid temp
   close $o_fid
   putserv "PRIVMSG $chan :$chan Kanalini toplamda $temp kisi Ziyaret Etti."
   return 0
  } else {
   putserv "PRIVMSG $chan :Uzgunum, $rchan kanalini simdiye kadar kimse ziyaret etmedi."
  }
 } else {
  set temp 0
  set rchan [string tolower $arg]
  if {[file exists ./scripts/$rchan.jcount.txt]} {
   set o_fid [open "./scripts/$rchan.jcount.txt" "RDONLY"]
   gets $o_fid temp
   close $o_fid
   putserv "PRIVMSG $chan :#rchan Kanalini Toplamda $temp kisi Ziyaret Etti."
   return 0
  } else {
   putserv "PRIVMSG $chan :Uzgunum, $rchan kanalini simdiye kadar kimse ziyaret etmedi."
  }
 }
}

proc joincounter {nick host hand chan} {
 global jhits
 set temp 0
 set rchan [string tolower $chan]
 if {[file exists ./scripts/$rchan.jcount.txt]} {
  set o_fid [open "./scripts/$rchan.jcount.txt" "RDONLY"]
  gets $o_fid temp
  close $o_fid
 } else {
  set o_fid [open "./scripts/$rchan.jcount.txt" "CREAT RDWR"]
  puts $o_fid temp
  close $o_fid
 }
 set jhits $temp
 incr jhits
 putserv "NOTICE $nick :$chan Kanalina Giren [convert $jhits] Kisisiniz.! Turkiyenin IRC Portali WwW.IRCturk.OrG"
 set o_id [open "./scripts/$rchan.jcount.txt" "WRONLY"]
 puts $o_id $jhits
 close $o_id
}


proc dcc:toplamatilan {hand idx arg} {
 if {$arg == ""} {
  set temp 0
  set chan [lindex [console $idx] 0]
  set rchan [string tolower $chan]
  if {[file exists ./scripts/$rchan.kcount.txt]} {
   set o_fid [open "./scripts/$rchan.kcount.txt" "RDONLY"]
   gets $o_fid temp
   close $o_fid
   putdcc $idx "$rchan kanalindan toplamda $temp kisi atildi."
   return 0
  } else {
   putdcc $idx "Suana kadar kimse $rchan kanalindan atilmadi."
  }
 } else {
  set temp 0
  set nick [string tolower $arg]
  if {[validuser $nick]} {
   if {[getuser $nick XTRA KICKS] == ""} {
    putdcc $idx "$arg Kimseyi Atmadi."
   } else {
    set tkicks [getuser $nick XTRA KICKS]
    putdcc $idx "$arg Suana Kadar $tkicks kisiyi kanaldan atti."
   }
  } else {
   putdcc $idx "$arg Kim Bilmiyorum..!"
  }
 }
}       

proc pub:toplamatilan {nick host hand chan arg} {
 if { $arg == "" } {
  set temp 0
  set rchan [string tolower $chan]
  if {[file exists ./scripts/$rchan.kcount.txt]} {
   set o_fid [open "./scripts/$rchan.kcount.txt" "RDONLY"]
   gets $o_fid temp
   close $o_fid
   putserv "PRIVMSG $chan :$chan Kanalindan toplamda $temp kisi Atildi."
   return 0
  } else {
   putserv "PRIVMSG $chan :Suana kadar kimse $rchan kanalindan atilmadi."
  }
 } else {
  set temp 0
  set nick [string tolower $arg]
  if {[validuser $nick]} {
   if {[getuser $nick XTRA KICKS] == ""} {
    putserv "PRIVMSG $chan :$arg Kimseyi Kanaldan Atmadi."
   } else {
    set tkicks [getuser $nick XTRA KICKS]
    putserv "PRIVMSG $chan :$arg Suanada kadar Kanaldan $tkicks kisiyi atti."
   }
  } else {
   putserv "PRIVMSG $chan :$arg kimdir bilmiyorum..!"
  }
 }
}

proc kickcounter {nick host hand chan knick reason} {
 global khits
 set temp 0
 set rchan [string tolower $chan]
 if {[file exists ./scripts/$rchan.kcount.txt]} {
  set o_fid [open "./scripts/$rchan.kcount.txt" "RDONLY"]
  gets $o_fid temp
  close $o_fid
 } else {
  set o_fid [open "./scripts/$rchan.kcount.txt" "CREAT RDWR"]
  puts $o_fid temp
  close $o_fid
 }
 set khits $temp
 incr khits
 if {[validuser [nick2hand $nick $chan]]} {
  if {[getuser $hand XTRA KICKS] == ""} {
   setuser $hand XTRA KICKS 0
  }
  set tkicks [getuser $hand XTRA KICKS]
  incr tkicks
  setuser $hand XTRA KICKS $tkicks
  putserv "PRIVMSG $chan :$nick Bugune Kadar $tkicks Kisi Kicklemis.."
 }
 putserv "NOTICE $knick :Siz $chan Kanalindan Atilan [convert $khits] Kisiniz.!"
 set o_id [open "./scripts/$rchan.kcount.txt" "WRONLY"]
 puts $o_id $khits
 close $o_id
}

putlog "Join ve Kick Kanal Sayaci"




! FORUMDAN YARARLANMAK İÇİN BURAYA TIKLAYARAK KAYIT OLMALISINIZ !


BİNLERCE HEDİYEDEN BİRİNİ KAZANMAK İSTERMİSİN?
HEMEN TIKLA VE ÜYE OL HEM ARKADAŞ HEMDE HEDİYE KAZANMAYA BAŞLA


Bu Sayfayı Paylaş
Google Ekle Yumile Ekle Yahoo Ekle Msn Ekle Netspace Ekle Ask Ekle Clesto Ekle Digg Ekle Reddit Ekle Furl Ekle Del.icio.us Ekle Submit to Jeqq Spurl Ekle Technorati Ekle Newsvine Ekle Simpy Ekle BlinkList Ekle Shadows Ekle
Logged




Sevgilerin En Yücesi Seveni Sevmektir..

Zannetmeyinki Gücümüz Bitti,Yorgunuz
Zannetmeyinki silahımız Yok, Suskunuz;
Zaman Bekliyoruz,Fırtınalar Kopacak,
Fırtınalar Öncesi Hep Böyle Durgunuz Biz!
BeLki Yeniden Doğamayız Ama ;
Her Batan Güneşlede Batmayız Biz





Sohbet Etmenin Tam Zamanı TIKLA Sohbete Gel..

Etiket:
Sayfa: [1]   Yukarı git

 
Gitmek istediğiniz yer:  

İlgili Konular
Konu Başlığı Başlatan Yanıtlar Görüntülenme Son Mesaj
saidi nursi hzlerine atılan iftiralar Evliyalar mihrbolu 0 288 Son Mesaj 21 Ekim 2007, 02:00:35
Gönderen: mihrbolu
Siteme sayaç ekledim ama çalışmıyor? Mambo Sorular ve Cevaplar GoKTuG 0 157 Son Mesaj 09 Aralık 2007, 22:36:16
Gönderen: GoKTuG
adı:bilgi Soyadı : sayar :D:D:D:D Serbest Kürsü « 1 2  Hepsi » LiNDa 6 167 Son Mesaj 10 Mayıs 2008, 00:23:28
Gönderen: VAROL
Denize Atılan Yüzük Tarihi Hikayeler GoKTuG 0 133 Son Mesaj 19 Temmuz 2008, 22:30:02
Gönderen: GoKTuG
Güzin Abla (Sayar) Basın-Yayın LiNDa 0 54 Son Mesaj 25 Ekim 2008, 18:29:44
Gönderen: LiNDa
Arsiv

Powered by SMF 1.1.9 | SMF © 2006-2008, Simple Machines LLC
Theme Sohbet-Chat | Arrange GoKTuG
Sitemiz En iyi 1024x768 çözünürlükte Mozilla Firefox ile Görüntülenebilir