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

Sanirim 5 aydan uzun 1 sure once yapmistim, amaci djlerin olmadigi saatlerde istek istemenin engellenmesi ve bu sayede de kullanicinin ayrica uyarilmasiydi, ayrica DJ lerin kanal icinde birebir kullanicilar ile yuz goz olmalari yerine botu kanal icerisinde konusturabilme yetkiside kazandirmakti. Boylece DJ kullanici ile birebir degil bor araciligi ile kanala yazi yazabilecek ve kullanici kesinlikle dj ile ozelden istek isteme lakaitlik gibi davranislar sergileyemeyecekti.

# alttarafta gorundugu gibi istek istemek yine klasik bir sekilde calismakta
!istek falancafilan - falancasarkisi

Yalniz !istek komudu uygulandigi zaman eger belirtilen dj kanalinda op yoksa dj de yok olarak algilanacak ve isteklerin reddedildigi sebebininde yayini surduren 1 dj yin olmadigini kullaniciya belirtecektir. (Bu size yayini otamatik yapma isteklere artik cevap vermeme gibi 1 cok avantaj saglayabilir, yapilma amacida zaten buydu ;)

# yine klasik !yes ve !no islemleri
!yes nick
!no nick

istegin kabul ve reddedilme secenekleri !yes nick ile istegin kabul edildigini
!no nick ile de istegin bulunmadigini ve baska 1 istek istemesini bot otomatik olarak sizin yerinize dile getirecektir. (!yes !no islemleri yalnizca botun dj lerin bulundugu kanalda calisacaktir.)

# Alttaki komut dj kanalinda calismaktadir
!cevap nick Selam nasilsin

Bu sayede belirtilen nick'e radyo kanalinda botun sizin yerinize cevap vermesi saglanmaktadir. Bahsettigim gibi dj kimligini saklamak hava civa islerini pek sevmeyenler icin dusundugum 1 seydir ;) (dj kimse kim sen istedigini iste beni tanimak zorunda degildin diyen djlere ozel)

NOT: !istek komudu kullanici tarafindan yalnizca 1 kere kullanilabilir ve tam olarak 1dk sonra yeniden istek istemesine izin verilecek sekilde ayarlanmistir (Bu da salak sulak istek isteyenlerin sn basi !istek falanca dilan yazmasina engel olmak icin dusunulmustur)

PHP- Kodu:

   #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 "opernick"
set opass "opersifre"
#Dj kanali
set djkanal "#DJ"
#Radyo kanali
set radyo "#Radyo"
#ELLEMEYIN (Siz Bİlirsiniz)
 
proc baglan_yap {type} {
global onick opass
putserv "OPER $onick $opass"
}
proc cevap {nick uhand host chan arg} {
global djkanal radyo
set nick [lindex [split $arg] 0]
if {$chan != $djkanal} { return }
if {[isop $nick $djkanal] && [onchan $nick $radyo]} {
putquick "PRIVMSG $radyo :\002[lindex [split $arg] 0]\002 :[join [lrange [split $arg] 1 end]]"
}
}
proc yes {nick uhand host chan arg} {
global djkanal radyo
set nick [lindex $arg 0]
if {$chan != $djkanal} { return }
putquick "PRIVMSG $radyo :\002$nick\002 :\0034İ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]
if {$chan != $djkanal} { return }
putquick "PRIVMSG $radyo :\002$nick\002: \0034Ü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 {$chan != $radyo} { return }
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 $kim :Uzgunum $kim isteginize cevap verecek dj bulunamadi! lutfen daha sonra tekrar deneyiniz."
} {
putquick "PRIVMSG $radyo :\002$kim\002 \0034Lütfen bekleyiniz. İsteginizi Kontrol Ediyorum."
putquick "PRIVMSG $djkanal :\00302$kim \00306Istegi: \00302$mesaj"
putquick "PRIVMSG $kim :\002$kim\002 \00302$mesaj\00302 isteginiz DJ lerimize iletilmistir, bir sonraki istek isteme sureniz 1dk dir" 
newignore $nick!$uhost aCoustiC "Istek Ignore" 1
}
}
putlog "yapimci : aCoustiC"
putlog "e-mail : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"

Kim tarafindan yapildi aCoustiC (ben) ;bigeyes
Kim tarafindan dusunuldu 1 tuvalet faciasi ve ricadan kaynaklanan teknik 1 aksaklik :(

Ne yapabilirsin bu TCL yi Kivirip kivirip ben yaptim diyip egonu tatmin edebilirsin, belli bir sure sonra hic 1 sey ogrenmedigini ve 5para etmedigini de anlayacagin kesindir, Yada alir once mantigini anlamaya ve TCL yazilimini ogrenmeye calisir simdi 1 sey degilsen sonra olmak icin 1 adim atmis olabilirsin. Bu nedenle Kaynak kodlari kesinlikle gizlenmemistir (Adil Bülbül). ;scare