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

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - istek tcl soru ? (https://www.ircforumlari.net/eggdrop-neostats-bnc/506902-istek-tcl-soru.html)

Cevap: istek tcl soru ?

verdiğiniz kod üstünde biraz oynama yaptım.hangi kanal yada kanallar üstünde işlemesini istiyorsanız scripti bota yükleyip .rehash yada .restart yaptıktan sonra ,botunuza telnet/dcc ile bağlanıp: .chanset #kanalınız +karsila komutu verin o kanala girişlerde çalışacaktır.
pasif etmek istediğinizde de: .chanset #kanalınız -karsila tüm kanallarda aktif etmek için: .chanset * +karsila

kod içinde bu karşılama mesajından muaf etmek istediğiniz nickleri girebilirsiniz.kanal üstünde script aktif edilmiş olsada muaf tutulan nicklere bu karşılama mesajını atmayacaktır.

Kod:

# mevcut script ozellikleri

# istenen kanal/lar üstünde aktif edilebilecek

# sekilde editlendi.

setudef flag karsila

# scripti hangi kanal üstünde aktif etmek istiyorsaniz

# telnet/dcc üstünde .chanset #kanaliniz +karsila

# komutu vermelisiniz

bind join - * join_greet 

proc join_greet {nick uhost hand chan} {

global botnick karsilanan

# karsilama mesajindan muaf tutmak istediginiz nickleri

# alt satirda || $nick == "muaf-nick"} 

# seklinde cogaltarak ekleyin .

# ekleme yaparken ayraclara ve diğer

# özel script karakterlerine dikkat edin.

if {$nick == "ChanServ" || $nick == $botnick} {

 return 0

}

 if {[info exists karsilanan($nick:$chan)]} {

 return 0

}

 set karsilanan($nick:$chan) 1

 timer 3 "unset karsilanan($nick:$chan)"

# hangi kanal ustunde aktif edilmisse 

# o kanala giren kullaniciya gonderecek.

 if {[channel get $chan karsila]} {

putserv "PRIVMSG $nick : 2Merhaba 4 $nick "

putserv "PRIVMSG $nick : 2site.Com Ailesine 2Hoşgeldiniz."

putserv "PRIVMSG $nick : 2Sunucumuzda Oyun Kanalarımız 4#Oyun  #test  #kelime  #yarisma  #islamioyun  2Kanallarıdır."

putserv "PRIVMSG $nick : 2Sunucumuzda Global Sohbet Kanallarımız 4#Sohbet  2 Kanallaridir."

putserv "PRIVMSG $nick : 2Girmek İstediginiz 2Kanallar İçin Örnek 4 /j Sohbet 2 Şeklinde Kanallara Gire Bilirsiniz.."

putserv "PRIVMSG $nick : 2Radyomuzu Winap Üzerinden Dinlemek İstiyorsanız 2 radyomuzu.com" 

putserv "PRIVMSG $nick : 2İsteklerinizi 4#Radyo 2Kanallindan  Yapabilirsiniz.."

putserv "PRIVMSG $nick : 2İstekler İçin Örnek 4!istek Niran unsal İzin Ver : Mesajınız 2Şeklinde Yapabilirsiniz..."

return

 }

}

putlog "karsila.tcl yuklendi."

Cevap: istek tcl soru ?

Sa simdi söyle bisi dicem altaki koda istegi tüm odalardan isteye biliyorsuz güzel hos calisiyor söyle bisi ekliye bilirmiyiz !istekoff !istekon dj odasinda yaptiginda user hangi oda istek istese bile bot ona istek kapali yazsin sadece istek kapaliysa

Kod:

bind pub - !istek istek 

bind pub - !var var 

bind pub - !yok yok 

proc istek {n u h c a} {  

global gnick gchan

set gchan $c

set gnick $n  

set kanal [lindex $a ]  

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

} 

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

}

boyle bisi buldum yukardakine benzetmeye ayarlama calistim lakin bu defa istek kapaniyor acsanda istek dj odalarina gitmiyor

Kod:

bind pub - !istek istekoff

proc istekoff {n u h c a} {

  setudef flag radyocmd

  if {[string match -nocase "#Dj" $c]} {

   set kanal [lindex $a 0]

    if {$kanal == ""} { putquick "PRIVMSG #Dj :Kullanımı !istek on veya !istek off şeklindedir."; return 0 }

    if {[string match -nocase "on" $kanal]} { channel set $cc +radyocmd; putquick "PRIVMSG #Dj Radyo İstekleri Kabul Edilecek."; return 0 }

    if {[string match -nocase "off" $kanal]} { channel set $c -radyocmd; putquick "PRIVMSG #Dj Radyo İstekleri Reddedilecek."; return 0 }

    }

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

    putserv "privmsg $kanal : 2 Üzgünüz Dj'imiz İstekleri Kabul Etmemektedir $nick."

  }

}

Alıntı:

saywhat Nickli Üyeden Alıntı (Mesaj 1041225503)

verdiğiniz kodun bind kısmını

Kod:

bind join - "#kanalınız *" join_greet

kanalınız yazan yere karşılama mesajının işlemesini istediğiniz kanalın adını yazıp değişiniz.(büyük küçük harf uyumuna dikkat edin) sadece o kanala giren kullanıcının özeline istenen mesajı atacaktır.

Cevap: istek tcl soru ?

channel set $cc +radyocmd; putquick "PRIVMSG #Dj Radyo İstekleri Kabul Edilecek.

Burdaki $cc bolumunu $c olarak değiş

Cevap: istek tcl soru ?

Alıntı:

rascoLn Nickli Üyeden Alıntı (Mesaj 1041709708)

channel set $cc +radyocmd; putquick "PRIVMSG #Dj Radyo İstekleri Kabul Edilecek.

Burdaki $cc bolumunu $c olarak değiş

onunla ilisi yok o asagidaki kodu ben oe degisirdim vs olmadi o koda aldanma usteki kodla buunlestirmek lazim

Cevap: istek tcl soru ?

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:

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

}

Cevap: istek tcl soru ?

Alıntı:

rascoLn Nickli Üyeden Alıntı (Mesaj 1041709933)

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:

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

}

calisiyor guzel hosta usta neden istekler sadece radyo odasinda yapiliyor ? onceki koda tum odalarda yapa biliyordu simdi sadece radyoda

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 20:26 -->-> Daha önceki mesaj 20:11 --

tsk ederim haletim