Çevrimdışı

Radyo.TCL Eklentisi(!yes,!no,!istek )
Kod:
#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 "opersifresi"
#ELLEMEYIN (Siz Bİlirsiniz)
proc baglan_yap {type} {
global inick ipass
putserv "OPER $inick $ipass"
putserv "WALLOPS
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
asari ile Login Oldum
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
}
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."alıntı