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

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Istek TCL v2.0 (https://www.ircforumlari.net/tcl-scriptler/31546-istek-tcl-v20.html)

Cevap: Istek TCL v2.0

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

Cevap: Istek TCL v2.0

Kod:

set onick "opernick"
 set opass "opersifre"

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

Kod:

proc baglan_yap {type} {
 global onick opass

putserv "OPER $onick $opass"

}

Bu kısma dokunma..

Cevap: Istek TCL v2.0

bot dj kanalına girdi ama !istek yapamadım :(
çalıştıranlar bi bakabilirmiler rica etsem

Cevap: Istek TCL v2.0

Alıntı:

aCoustiC Nickli Üyeden Alıntı (Mesaj 214685)

# 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)

[/

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

Yanıt: Istek TCL v2.0

Kod:

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:

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.

Cevap: Istek TCL v2.0

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

Yanıt: Istek TCL v2.0

Kod:

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

kisimini

Kod:

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.

Cevap: Istek TCL v2.0

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

Cevap: Istek TCL v2.0

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

Kod:



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

}

Cevap: Istek TCL v2.0

Conf olarak ne kullanıoruz