Tekil Mesaj gösterimi
Alt 06 Aralık 2007, 10:38   #29
Çevrimdışı
hipokrat
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

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet