birde bu şekil dene bakalım.. #Dj kanalında
!istek on yazarsan
istekleri açar ,
!istek off yazarsan
kapatır.
Her ikisindede dj ve radyo kanalına
mesaj gonderir..
Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind pub - !istek istek
bind pub - !var var
bind pub - !yok yok
set onoff "0"
proc istek {n u h c a} {
global gnick gchan
set gchan $c
set gnick $n
set kanal [lindex $a ]
if { [string match -nocase "#dj" $gchan] & $a eq "on" | $a eq "off" } {
if {$a eq "on"} { set ::onoff 1; putquick "privmsg $gchan :İstekler kullanıma açıldı."; putquick "privmsg #radyo :İstek alımları kullanıcılarımıza açılmıştır."; return } else { set ::onoff 0; putquick "privmsg $gchan :İstekler kullanıma kapatıldı."; putquick "privmsg #radyo :İstek alımları şuan itibarı ile kapatıldı."; return }
}
if { ![string match -nocase "#radyo" $gchan] } { putquick "notice $gnick :istekler sadece #radyo kanalından yapılmaktadır."; return 0 }
if { $a ne "on" & $a ne "off" } {
if { $::onoff eq 1 } {
putserv "PRIVMSG #DJ :\[Radyo İstek Paneli\] 2 İstekte Bulunan Kullanıcı: 4 $gnick $gchan 2 Kanalında İsteği: $kanal"
putserv "privmsg $gchan :2 İsteğiniz DJ'lerimize İletilmiştir 4 $gnick."
} else { putquick "privmsg $gchan :İstek alımı yapılmamaktadır.." }
}
}
proc var {n u h c a} {
set kanal [lindex $a 0]
if {![string match -nocase "#DJ" $c]} {return 0}
putserv "privmsg $kanal : 2 İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır."
}
proc yok {n u h c a} {
set kanal [lindex $a 0]
if {![string match -nocase "#DJ" $c]} {return 0}
putserv "privmsg $kanal : 2 Üzgünüm, İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz."
}