IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Radyo Botu için !istek kapalı ve açık tcl isteği

Kod:

proc yes {n u h c a} {

   set kanal [lindex $a 0]

   putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034Isteginiz Arsivimizde Mevcut. Kisa Süre Içinde Isteginiz yayinlanacaktir."

}
 

proc no {n u h c a} {

  set kanal [lindex $a 0]

  putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034Üzgünüm,Isteginiz Arsivimizde Bulunmamaktadir. Baska Bir Istekte Bulunabilirsiniz."

}
 
 

bind pub - !istek istekoff

proc istekoff {nick uhost hand chan text} {

  setudef flag radyocmd

  if {[string match -nocase "#DJ" $chan]} {

    set komut [lindex $text 0]

    if {$komut == ""} { putquick "PRIVMSG #DJ :Kullanimi !istek on/off seklindedir."; return 0 }

    if {[string match -nocase "on" $komut]} { channel set $chan +radyocmd; putquick "PRIVMSG #DJ Radyo Istekleri Kabul Edilecek."; return 0 }

    if {[string match -nocase "off" $komut]} { channel set $chan -radyocmd; putquick "PRIVMSG #DJ Radyo Istekleri Reddedilecek."; return 0 }

    }

    if {[string match -nocase "#Radyo" $chan]} {

    if {[lsearch -exact [channel info #DJ] +radyocmd] != -1} { 

    putquick "PRIVMSG #Radyo :12Isteginiz DJ'lerimize Iletilmistir 4 $nick."

    putquick "PRIVMSG #DJ 12Radyo Istegi:4 $text 12Istekte Bulunan Kullanici: 4 $nick"

    }

    if {[lsearch -exact [channel info #DJ] +radyocmd] == -1} { 

    putquick "PRIVMSG #Radyo 12Üzgünüz 4 $nick 12Suanda Istek Alimi Yoktur, Lütfen Daha Sonra Deneyiniz..."

    }

  }

}

putlog "Radyo Panel TCL v1.0 CLubber"
 

proc istek {n u h c a} {

  global gnick

        set gnick $n

        set kanal [lindex $a ]

        putserv "PRIVMSG #DJ 1Istek Isteyen Nick 4$gnick1 - Istegi:4 $kanal"

    putserv "PRIVMSG #Radyo :4Isteginiz DJ'lerimize iletilmistir2 $gnick 5( $kanal )"

}
 

proc istek {n u h c a} {

  set kanal [lindex $a 0]

putserv "PRIVMSG #DJ 1Istek Isteyen Nick 4$gnick1 - Istegi:4 $kanal"

putserv "PRIVMSG #DJ :\0034Istek Isteyen Nick \002$n\0034 Istegi:\001 $kanal"

  putserv "PRIVMSG #Radyo :\002$n \0034Lütfen bekleyiniz. Isteginizi Kontrol Ediyorum."

}
 

bind pub - !istek istekProc

proc istekProc {nick uhost hand chan arg} {

  global istek

  # eger !istek yazip yanina birsey yazmadiysa komutun

  # nasil kullanilacagini gösterelim.

  if {$arg == ""} {

    putquick "privmsg $chan :\002HATA\022 isteginizi belirtmeyi unuttunuz."

    putquick "privmsg $chan :\002Dogru kullanim:\002 !istek sarkiciadi - sarkisi - kime istediginiz."

    return

  }

  # burada olusturdugumuz degisken mevcut mu bakiyoruz.

  # eger mevcutsa komutu durduruyoruz.

  if {[info exists istek([md5 $uhost])]} { 

    putquick "privmsg $chan :4$nick 12, 15 Dakika Içerisinde 4Sadece 1 kez 12Istekte bulunabilirsiniz!...."

    return 

  }

  # simdi ise komutlari uygulatalim

  putquick "privmsg #dj :2Istek Isteyen Nick 4\002$nick\002, 2Istenilen Sarki: 4\002$arg\002 2isteginde bulundu." 

  putquick "privmsg $chan :\002$nick\002 isteginiz djlerimize iletilmistir."

  # simdi de bu kisinin hostunu degiskene atayalim.

  set istek([md5 $uhost]) 1

  # bu degiskeni 15 dk sonra yokedelim

  timer 15[list unset istek([md5 $uhost])]
 

}

gibi kod ları toparladık kullanalım istiyoruz ama şöyle bir sorunla karşılaştık bu istek on/off kod unu sona eklediğimde 15 dakika limiti iptal oldu bende bu sefer 15 dakika limitini sona aldım ama şöyle bir sorunla karşılaştım bot istek yaptığım andan sonra isteği kapatmama izin vermiyor 15 dakika limitine takılıyorum acaba burda oper admin op sop vs. gibi ayrım yapmasını sağlayabilir miyiz birde bu piyasadaki radyo.tcl lerde !dj veya .dj şeklinde bir komut vardır ve bu komut ne işe yarar şahsen bir türlü öğrenemedim sanırım boş bir komut diye düşünüyorum acaba bota dj tanıtımı da yapabilir miyiz acaba böyle karmaşık ve detaylı bir isteğe cevap verecek birileri varmıdır varsa şimdiden teşekkür ederim... CLubber bu kadar çabuk istek on off tcl sini paylaştığın için ayrıca teşekkürler....