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

>
+
Etiketlenen Kullanıcılar

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 14 Mayıs 2010, 19:45   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !xbilgi tcl istek




Alıntı:
bind join - * bilgiver
proc bilgiver {nick uhost hand chan} {
# Kanal adını #founders yaptım, sen kafana göre değiştir
if {![string match -nocase "#founders" $chan]} { return }
# Bu verileri giren kişiye notice olarak atacak, istersen sen
# notice $nick yazan yerleri
# privmsg $nick olarak değiştirip özeline, istersen de
# privmsg $chan olarak değiştirip kanal geneline attırabilirsin.
putquick "notice $nick : Global Kanal Kuralları İçin : !kurallar"
putquick "notice $nick : Global Kanalların Listesi : !Globallist"
putquick "notice $nick :vs vs"
putquick "notice $nick :vs vs"
}
[/PHP]
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
bind pub - !kurallar kuraloku
proc kuraloku 
{nick uhost hand chan arg} {
   global 
botnick
   
# burada da kanal adını #founders yaptım. Değiştirebilirsin.
   
if {![string match -nocase "#founders" $chan]} { return }
   
# burada kanaldaki tüm nickleri taratıp hepsinin özeline bilgileri
   # mesajlatıyoruz.
   
foreach [chanlist $chan] {
      
# kendi özeline atmasın ;)
      
if {$n == "$botnick"} {continue}
      
putquick "privmsg $n :KURALLAR"
      
putquick "privmsg $n :Kural bir şudur.."
      
putquick "privmsg $n :Kural iki budur.."
      
putquick "privmsg $n :Kural üç bu iki kural değiştirilemez"
      
putquick "privmsg $n :Kural dört: kural üç geçersizdir"
      
putquick "privmsg $n :Kural beş: Kuralları boşverin"
      
putquick "privmsg $n :v.s v.s"
    
}
   
# bir de kanal geneline atsın aynı mesajı diyordun;
   # ki bence gayet gereksiz her iki yere birden attırmak
   # ama sen istedin ;)
    
putquick "privmsg $chan :KURALLAR"
    
putquick "privmsg $chan :Kural bir şudur.."
    
putquick "privmsg $chan :Kural iki budur.."
    
putquick "privmsg $chan :Kural üç bu iki kural değiştirilemez"
    
putquick "privmsg $chan :Kural dört: kural üç geçersizdir"
    
putquick "privmsg $chan :Kural beş: Kuralları boşverin"
    
putquick "privmsg $chan :v.s v.s"


Bu yukarıdaki !kurallar komutu için örnekti; sen bunu !Globallist !yerellist !aciktim !uykumvar gibi istediğin tüm mesajlatmalar için buna bakarak çoğaltabilirsin.


Nebiliymben Tşk.ler.

 
Alıntı ile Cevapla

 

Etiketler
istek, tcl, xbilgi


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

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
tcl istek Xpyhre Eggdrop, NeoStats, BNC 16 27 Haziran 2013 00:05
TCL istek Sephiroth Eggdrop, NeoStats, BNC 1 16 Kasım 2012 02:55
TCL istek aquabluee Eggdrop, NeoStats, BNC 0 02 Kasım 2012 21:52
!radyo , !istek istek parçasi Yunus mIRC Scripting Sorunları 2 21 Temmuz 2008 21:11
tcl istek hipokrat TCL Scriptler 0 17 Ocak 2008 09:08

×