isinla.tcl olan var mı ? - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

|{awissa · 28 Aralık 2009, 18:44

slm arkadaşlar elimde bir tcl var ama istediğim gibi çalışmıyor. yardım edebilecek olan var mı....

Odalara Aktarılıyorsunuz...Hos Sohbetler Dilerim.(5 saniye sonra ise son mesajı oda geneline değilde özele atmasını istiyorum..)

isinlama islemi Tamamlanlmıştır.Seviyeli ve Hoş Sohbetler Dileriz

uğraşıyorum ama yapamadım isinlamadı bir türlü yardım edereniz sevinirim...

¿ · 29 Aralık 2009, 08:04

Neyi nereye isinliyoruz ? anlamadim ki
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Sunucuya baglanan kisileri mi ?
Zaten unrealircd.conf'un kanal'a alma ozelligi var neden kasiyorsun ki ?
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

|{awissa · 06 Ocak 2010, 01:49

Alıntı:

ircten girenler bir odaya gerlicek mesela #isinla odasına. Bu odaya geldiğpi zaman isinlama yapıcak olan bot x eggdrop botu hoşgeldiniz nick odalara geçmek için Lütfen .isinla nick yazın dicek.. Gelen User .isinla nick yazdığında sırasıyla aralarında 3 er saniye süreyle..

nick isinlama işlemi başlatıldı Lütfen bekleyin.

isinlama işlemi gerçeklerştiriliyor..(bu 3ünü #isinla odasının genelinde yazıcak..) ve son olarak isinla odasından part yapıp odalara aktarıldıktan sonra ise bot userin özeline işinlama işlemi sona erdi. Seviyeli Sohbetler dileriz diye bir not göndericek...

Bu sistem 3 4 yıl öncesinde vardı tcl ve conf ile beraber silindi sanırım yardım eden olursa sevinirim...

¿ · 06 Ocak 2010, 10:26

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
# Kullanicilarin sunucuya giriste isinlanacaklari kanali yaziniz.
set isinla(kanal) "#isinla"

# Isinla komut on ekini yaziniz.
set isinla(komut) ".isinla"

# Kullanicilarin .isinla komutunu uyguladiklarinda girecekleri kanallari yaziniz.
set isinla(cekkanal) "#Oyun,#Radyo,#Sohbet"

# Kullanici kanallara alindiktan sonra gosterilecek mesaji yaziniz.
set isinla(mesaj) "*** Keyifli sohbetler dileriz."

##################
# ELLEME CISS :d #
##################

bind raw * notice kullanici:cek
proc kullanici:cek {from keyword text} {
global botnick isinla
    set nick [lindex $text 9]
    if {[string match -nocase "*client connecting*" $text]} {
    putquick "SAJOIN $nick $isinla(kanal)"
    }
}

bind pub - $isinla(komut) kullanici:isinla
proc kullanici:isinla {nick uhand host chan text} {
global botnick isinla
    if {[string match -nocase $isinla(kanal) $chan]} {
    set kisi "[lindex $text 0]"
    if {$kisi == ""} {
    putquick "NOTICE $nick :Nick belirtmediniz. Lutfen nick belirtiniz."
    } else {
    putquick "SAPART $kisi $isinla(kanal)"
    puthelp "SAJOIN $kisi $isinla(cekkanal)"
    puthelp "PRIVMSG $kisi :$isinla(mesaj)"
    }
    } else {
    putquick "NOTICE $nick :Bu komut sadece $isinla(kanal) kanalinda calisir."
 }
}

|{awissa · 06 Ocak 2010, 12:18

Namesis Çalışmadı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Lucifer · 06 Ocak 2010, 16:40

Burayı incelerseniz, daha önceden örnekler verilmiş belki işinize yarayabilir.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

iyi forumlar..

|{awissa · 06 Ocak 2010, 18:13

Alıntı:

Burayı incelerseniz, daha önceden örnekler verilmiş belki işinize yarayabilir.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

iyi forumlar..

Teşk ederim daha önceden de ordan faydalanmıştım ama tam istediğişm gibi olmadı..Bakın şöyle irc girişlerini sadece bir odaya alıcam örneğin #isinla odasına yönlendirdim.Mircten gelen user oraya gelicek. ve ordaki eggdrop botu karşılıcak useri..
odalara girebilmek için Lütfen .isinla nick yazınız dicek. isinla kanal genelinde..
user .isinla user yazdığı zaman yine genelde. isinlama işlemi başladı nick lütfen bekleyiniz.. ve işinlama işlemi gerçekleştiriliyor. beklediğiniz için tşk ederiz. dicek ve bunları #isinla odasında gfenelde söylemesinii istiyorum 3 er saniye arayla.. sonra odalara aktarılcak.. sajoinlencek.. odalara aktarılırken #isinla odasınan oto çıkıcak....

¿ · 06 Ocak 2010, 21:01

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
# Kullanicilarin sunucuya giriste isinlanacaklari kanali yaziniz.
set isinla(kanal) "#isinla"

# Isinla komut on ekini yaziniz.
set isinla(komut) ".isinla"

# Kullanicilarin .isinla komutunu uyguladiklarinda girecekleri kanallari yaziniz.
set isinla(cekkanal) "#Oyun,#Radyo,#Sohbet"

##################
# ELLEME CISS :d #
##################

bind join - * user:join
proc user:join {nick uhost hand chan} {
global botnick isinla
    if {[string match -nocase $isinla(kanal) $chan]} {
    putquick "NOTICE $nick :*** Sunucumuza hosgeldiniz $nick."
    putquick "NOTICE $nick :*** Sohbet odalarina girebilmek icin $isinla(kanal) kanalina: $isinla(komut) $nick yaziniz."
    }
}

bind pub - $isinla(komut) kullanici:isinla
proc kullanici:isinla {nick uhost hand chan text} {
global botnick isinla
    if {[string match -nocase $isinla(kanal) $chan]} {
    set kisi "[lindex $text 0]"
    if {$kisi == ""} {
    putquick "NOTICE $nick :Nick belirtmediniz. Lutfen nick belirtiniz."
    } else {
    putquick "PRIVMSG $isinla(kanal) :Isinlama islemi basladi $nick, lutfen bekleyiniz. Isinlama islemi gerceklestiriliyor, beklediginiz icin tesekkur ederiz..."
    putquick "SAPART $kisi $isinla(kanal)"
    utimer 3 [list putquick "SAJOIN $kisi $isinla(cekkanal)"]
    utimer 5 [list putquick "PRIVMSG $kisi :Isinlama islemi gerceklesmistir. Keyifli sohbetler dileriz..."]
    }
    } else {
   putquick "NOTICE $nick :Bu komut sadece $isinla(kanal) kanalinda calisir."
 }
}

|{awissa · 06 Ocak 2010, 21:26

Tşk ederim namesis senle özel görüşebilirmiyiz .. pm attım cwp atarsan sevinirim..

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Balı Parmağı Uzun Olan Değil Kısmeti Olan Yer Atasözünün Anlamı ve Açıklaması	Amelia	Atasözleri ve Deyimler	0	18 Haziran 2014 21:19
Servislere Restart Attım. Sunucuda Var Olan Oyun vs. Olan Botları Geri Sokamıyorum.	Quaxis	IRCServices	1	20 Mayıs 2011 18:32
isinla.tcl lazım arkadaşlar yardım ederseniz sevinirim..	Askyagmuru	Eggdrop, NeoStats, BNC	9	01 Haziran 2009 19:52
ISINLA TCL bilen ?......	ATAHAN	Eggdrop, NeoStats, BNC	25	15 Nisan 2006 08:02

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.