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

>
+
Etiketlenen Kullanıcılar

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 06 Aralık 2007, 10:38   #29
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Istek TCL v2.0




Arkadaslar aşağıdaki tcl ile sorunsuz çalıştırdım çalıştaramayan arkadaşlar
bu tcl yi kullansınlar

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#gerekli bindler bind pub - !yes yes bind pub - !no no bind pub - !istek istek bind evnt - init-server baglan_yap #Gerekli degiskenler set inick "opernick" set ipass "opersifre" #ELLEMEYIN (Siz Bİlirsiniz) proc baglan_yap {type} { global inick ipass putserv "OPER $inick $ipass" putserv "WALLOPS :Basari ile Login Oldum FPRIVATE "TYPE=PICT;ALT=" " } proc yes {n u h c a} { set kanal [lindex $a 0] putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır." } proc no {n u h c a} { set kanal [lindex $a 0] putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034Üzgünüm,İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz." } proc istek {n u h c a} { set kanal [lindex $a 0] putserv "PRIVMSG #DJ :\0034İstek İsteyen Nick \002$n\0034 İsteği:\001 $kanal" putserv "PRIVMSG #Radyo :\002$n \0034Lütfen bekleyiniz. İsteginizi Kontrol Ediyorum." } #gerekli bindler bind pub - !istek istek bind evnt - init-server baglan_yap proc baglan_yap {type} { global inick ipass putserv "OPER $inick $ipass" putserv "WALLOPS :Basari ile Login Oldum " } proc istek {n u h c a} { global gnick set gnick $n set kanal [lindex $a ] putserv "PRIVMSG #DJ 4İstek İsteyen Nick 2$gnick4 İsteği:2 $kanal" putserv "PRIVMSG #Radyo : 2$gnick 4Lütfen bekleyiniz.İsteginizi Kontrol Ediyorum." } #gerekli bindler bind pub - !yes yes bind evnt - init-server baglan_yap proc baglan_yap {type} { global inick ipass putserv "OPER $inick $ipass" putserv "WALLOPS :Basari ile Login Oldum " } proc yes {n u h c a} { global gnick set gnick $n set kanal [lindex $a ] putserv "PRIVMSG #Radyo 2$kanal : 4İsteğiniz Arşivimizde Mevcut.Kısa Süre İçinde İsteginiz yayınlanacaktır." } #gerekli bindler bind pub - !no no bind evnt - init-server baglan_yap proc baglan_yap {type} { global inick ipass putserv "OPER $inick $ipass" putserv "WALLOPS :Basari ile Login Oldum " } proc no {n u h c a} { global gnick set gnick $n set kanal [lindex $a ] putserv "PRIVMSG #Radyo 2$kanal : 4Üzgünüm,İsteğiniz Arşivimizde Bulunmamaktadır..Başka Bir İstekte Bulunabilirsiniz." }


 
Alıntı ile Cevapla

 

Etiketler
v20, tcl, istek


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 Sephiroth Eggdrop, NeoStats, BNC 1 16 Kasım 2012 02:55
TCL istek aquabluee Eggdrop, NeoStats, BNC 0 02 Kasım 2012 21:52
TCL iStek.. n1ks1z Eggdrop, NeoStats, BNC 0 02 Aralık 2010 09:22
!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