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

Birazcık Arama Yapsanız.....
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 :Basari ile Login Oldum :)"

}
 

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."

}