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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Istek TCL v2.0 (https://www.ircforumlari.net/tcl-scriptler/31546-istek-tcl-v20.html)

Cevap: Istek TCL v2.0

Alıntı:

woody Nickli Üyeden Alıntı (Mesaj 481980)

Conf olarak ne kullanıoruz

eğer radyo botunuz var ise yeni bir conf yaratmanıza gerek yok bu tcl yi alarak scrip klasörüne atıyorsunuz ve radyo botunuzun conf una şu satırı ekliyorsunuz

Kod:

source scripts/istek.tcl

Cevap: Istek TCL v2.0

Eyw.. poaylaşımın icin sagoL

Cevap: Istek TCL v2.0

çalıstıramadım:)

Cevap: Istek TCL v2.0

bende calışıo yanlız 2 sorunum var
[23:54] <ScanX> butterfly Lütfen bekleyiniz.İsteginizi Kontrol Ediyorum.
[23:54] <ScanX> : Üzgünüm,İsteğiniz Arşivimizde Bulunmamaktadır..Başka Bir İstekte Bulunabilirsiniz.
kime üzgün oldunuda soyleyebilirmi yani kimin istek şarkısnın olmadını.
örnek: [23:54] <ScanX> : Selma Üzgünüm,İsteğiniz Arşivimizde Bulunmamaktadır..Başka Bir İstekte Bulunabilirsiniz.
bide bi kişi 5 dakkada bir istek isteyebilsin ama yukardaki mesajda isteyi bulunmayan kişi yeniden isteyebilsin 5 dakka beklemek zorunda kalmasın
bu nasıl olabilir mantık olarak !no yaptımız kişi istek istemiş gözükmesin

Cevap: Istek TCL v2.0

Kod:

#gerekli bindler

bind pub - !yes yes

bind pub - !no no

bind pub - !istek istek

bind pub - !msg cevap

bind evnt - init-server baglan_yap

#Gerekli degiskenler

set onick ""

set opass ""

#Dj kanali

set djkanal "#DJ"

#Radyo kanali

set radyo "#Radyo"

#ELLEMEYIN (Siz Bİlirsiniz)

proc baglan_yap {type} {

global onick opass

putserv "OPER OPERNİCK OPERPASS"

}

proc cevap {nick uhand host chan arg} {

global djkanal radyo

set nick [lindex [split $arg] 0]

if {$chan == "#dj"} {

if {[isop $nick $djkanal]==0 && [onchan $nick $radyo]==0} {

putquick "PRIVMSG $radyo :4 [lindex [split $arg] 0] :6 [join [lrange [split $arg] 1 end]]"

}

}

}

proc yes {nick uhand host chan arg} {

global djkanal radyo

set nick [lindex $arg 0]

putquick "PRIVMSG $radyo :4 $nick 6İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır."

}

proc no {nick uhand host chan arg} {

global djkanal radyo

set nick [lindex $arg 0]

putquick "PRIVMSG $radyo :4 $nick 6Üzgünüm, İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz."

}

proc istek {nick uhand host chan arg} {

global radyo djkanal

if {[lindex $arg 0] == ""} { return }

dj:ara $nick $arg

}

proc dj:ara {kim mesaj} {

global botnick djkanal radyo

set opbulundu 0

foreach opcuk [chanlist $djkanal] {

if {[isop $opcuk $djkanal] && $opcuk != $botnick} { set opbulundu "1" }

}

if {$opbulundu != "1"} {

putserv "PRIVMSG $radyo :6Üzgünüm 4 $kim 6isteginize cevap verecek dj bulunamadı! Lütfen daha sonra tekrar deneyiniz."

} {

putquick "PRIVMSG $radyo :4 $kim 6Lütfen bekleyiniz. İsteğinizi Kontrol Ediyorum."

putquick "PRIVMSG $djkanal :4 $kim 6Istegi: 12 $mesaj"

putquick "PRIVMSG $radyo :4 $kim 12 $mesaj 6 isteğiniz DJ'lerimize iletilmiştir. Bir sonraki istek isteme süreniz 4 5dk6'dir."

newignore $kim!*@* aCoustiC "Istek Ignore" 5

}

}

channel add $djkanal

channel add $radyo

putlog "yapimci : aCoustiC"

putlog "e-mail : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"

Bu tcl 5dk bir istek istenmesini sağlar fakat diyelim eğer istek yok ise tekrar istek istenme gibi şans yok çünkü istek komutunu kullanan userleri ignore ediyor bot diğer bir sorunuza yanıt ise !no nick yada !yes nick şeklindedir.

Cevap: Istek TCL v2.0

yayında kimse olmadı halde yine istek alıo
[01:29] <ScanX> Suan Yayında Dj buLunmamaktardır.
[01:29] <weliii> !istek zara flflf
[01:29] <ScanX> weliii Lütfen bekleyiniz. İsteğinizi Kontrol Ediyorum.
[01:29] <ScanX> weliii isteğiniz DJ'lerimize iletilmiştir. Bir sonraki istek isteme süreniz 5dk'dir.

bide. boş istek, yanlış bicimde istek yapanlara şoyle bi uyarı gelebilirmi
Bos istek gondermeyiniz nick Örnek: !istek sanatcı şarkı mesajın.1 dk Sonra tekrar deneyin.
ve bu kişyi 1 dakka ignore edicek.kusursuz bu radyo istek tcl cıkmış olur ortaya. bence tabi.