Istek TCL v2.0 - Sayfa 3 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

hipokrat · 26 Kasım 2007, 22:59

proc baglan_yap {type} {
global onick opass
putserv "OPER $onick $opass"
}

arkadaslar kusura bakmayında pek anlayamadım ben buraya oper
sifresi girilecekmi girilecekse başlarında $ bu işaretler kalıyomu

CanCeL · 26 Kasım 2007, 23:19

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

set onick "opernick"
set opass "opersifre"

Sadece o kısma oper bilgilerine gireceksin...
-

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

proc baglan_yap {type} {
global onick opass
putserv "OPER $onick $opass"
}

Bu kısma dokunma..

hipokrat · 27 Kasım 2007, 14:14

bot dj kanalına girdi ama !istek yapamadım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

çalıştıranlar bi bakabilirmiler rica etsem

GemLik · 28 Kasım 2007, 16:02

aCoustiC Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

# 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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
(dj kimse kim sen istedigini iste beni tanimak zorunda degildin diyen djlere ozel)

[/

bu !cevap çalışmıor !msg nick deneyincede sadece kanalda @ opların nicki çıkıor !msg user msj yaptımı olmuor bir bakarmısınız

tarzan · 29 Kasım 2007, 21:51

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

proc cevap {nick uhand host chan arg} {
global djkanal radyo
set nick [lindex [split $arg] 0]
if {[isop $nick $djkanal] && [onchan $nick $radyo]} {
putquick "PRIVMSG $radyo :4 [lindex [split $arg] 0] :6 [join [lrange [split $arg] 1 end]]"
}
}

satirini,

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

proc cevap {nick uhand host chan arg} {
global djkanal radyo
set nick [lindex [split $arg] 0]
if {$chan == "#dj"} {
if {[isop $nick $djkanal]==1 && [onchan $nick $radyo]==1} {
putquick "PRIVMSG $radyo :4 [lindex [split $arg] 0] :6 [join [lrange [split $arg] 1 end]]"
}
}
}

seklinde degistirip dj kanalinda,

!msg gemlikliali selam nasilsin?
yazdigimda
<Radyo> gemlikliali : selam nasilsin?
cevabini aldim.

GemLik · 02 Aralık 2007, 16:37

denedim çalışmıor senin dediğin değişikliği yaptımm...

tarzan · 02 Aralık 2007, 20:18

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

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

kisimini

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

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

olarak birdaha denermisin. Benim kendi localhostumda 0 olarak calisti internetteki serverimda 1 olarak calisti. 1 de #dj ve #radyo kanal isimlerini yazarken buyuk kucuk harfe dikkat etmek gerio serverda nasil kaydedildiyse oda ismi tcl e de ole yazmak gerekio.

GemLik · 02 Aralık 2007, 20:39

aynen kontrol eddim 1 ve 0 ikisinide denedim olmadı arkadaşım sorun neyde olabilirki ?

hipokrat · 06 Aralık 2007, 10:38

Arkadaslar aşağıdaki tcl ile sorunsuz çalıştırdım çalıştaramayan arkadaşlar
bu tcl yi kullansınlar

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


#gerekli bindler 
bind pub - !yes yes 
bind pub - !no no 
bind pub - !istek istek 
bind evnt - init-server baglan_yap 
#Gerekli degiskenler 
set inick "opernick" 
set ipass "opersifre" 
#ELLEMEYIN (Siz Bİlirsiniz) 
proc baglan_yap {type} { 
global inick ipass 
putserv "OPER $inick $ipass" 
putserv "WALLOPS :Basari ile Login Oldum FPRIVATE "TYPE=PICT;ALT=" " 
} 
proc yes {n u h c a} { 
set kanal [lindex $a 0] 
putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır." 
} 
proc no {n u h c a} { 
set kanal [lindex $a 0] 
putserv "PRIVMSG #Radyo :\002$kanal\002 :\0034Üzgünüm,İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz." 
} 
proc istek {n u h c a} { 
set kanal [lindex $a 0] 
putserv "PRIVMSG #DJ :\0034İstek İsteyen Nick \002$n\0034 İsteği:\001 $kanal" 
putserv "PRIVMSG #Radyo :\002$n \0034Lütfen bekleyiniz. İsteginizi Kontrol Ediyorum." 
} 
#gerekli bindler 
bind pub - !istek istek 
bind evnt - init-server baglan_yap 
proc baglan_yap {type} { 
global inick ipass 
putserv "OPER $inick $ipass" 
putserv "WALLOPS :Basari ile Login Oldum " 
} 
proc istek {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a ] 
putserv "PRIVMSG #DJ 4İstek İsteyen Nick 2$gnick4 İsteği:2 $kanal" 
putserv "PRIVMSG #Radyo : 2$gnick 4Lütfen bekleyiniz.İsteginizi Kontrol Ediyorum." 
} 
#gerekli bindler 
bind pub - !yes yes 
bind evnt - init-server baglan_yap 
proc baglan_yap {type} { 
global inick ipass 
putserv "OPER $inick $ipass" 
putserv "WALLOPS :Basari ile Login Oldum " 
} 
proc yes {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a ] 
putserv "PRIVMSG #Radyo 2$kanal : 4İsteğiniz Arşivimizde Mevcut.Kısa Süre İçinde İsteginiz yayınlanacaktır." 
} 
#gerekli bindler 
bind pub - !no no 
bind evnt - init-server baglan_yap 
proc baglan_yap {type} { 
global inick ipass 
putserv "OPER $inick $ipass" 
putserv "WALLOPS :Basari ile Login Oldum " 
} 
proc no {n u h c a} { 
global gnick 
set gnick $n 
set kanal [lindex $a ] 
putserv "PRIVMSG #Radyo 2$kanal : 4Üzgünüm,İsteğiniz Arşivimizde Bulunmamaktadır..Başka Bir İstekte Bulunabilirsiniz." 
}

woody · 06 Haziran 2008, 15:03

Conf olarak ne kullanıoruz

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
TCL istek	Sephiroth	Eggdrop, NeoStats, BNC	1	16 Kasım 2012 02:55
TCL istek	aquabluee	Eggdrop, NeoStats, BNC	0	02 Kasım 2012 21:52
TCL iStek..	n1ks1z	Eggdrop, NeoStats, BNC	0	02 Aralık 2010 09:22
!radyo , !istek istek parçasi	Yunus	mIRC Scripting Sorunları	2	21 Temmuz 2008 21:11
tcl istek	hipokrat	TCL Scriptler	0	17 Ocak 2008 09:08

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.