Normal Mod | Çizgisel Mod

**BLaCK_and_WHiTe** · 03-23-2008, 10:58 AM

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)

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

set opass "opersifre"

#Dj kanali

set djkanal "#DJ"

#Radyo kanali

set radyo "#Radyo"

#ELLEMEYIN (Siz Blirsiniz)

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 :\0034steiniz Arivimizde Mevcut. Ksa Süre çinde steginiz yaynlanacaktr."

}

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, steiniz Arivimizde Bulunmamaktadr. Baka 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 : acoustic@realcoder.com"

Kim tarafindan yapildi aCoustiC