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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

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

- - tcl yardım (https://www.ircforumlari.net/eggdrop-neostats-bnc/306451-tcl-yardim.html)

zeusq

19 Aralık 2009 02:20

tcl yardım

scanx tcl dosyasındaki kodlara

if {$mode == "+o"} {
putquick "PRIVMSG $chan $victim kanal yetkilisi konumuna geçti."
}
if {$mode == "+v"} {
putquick "PRIVMSG $chan $victim vip üye konumuna geçti."
}
if {$mode == "+h"} {
putquick "PRIVMSG $chan $victim Yardımcı Operatör konumuna geçti."
}

bu kodları ekleme yapmak istedim.fakat çalışmadı..
if {$mode == "+oa"} {
putquick "PRIVMSG $chan $victim süper operatör konumuna geçti."
}
if {$mode == "+aq"} {
putquick "PRIVMSG $chan $victim kanal sahibi konumuna geçti."
}
-------------------------------
if {$mode == "+o"} {
putquick "PRIVMSG $chan $victim kanal operatörü konumuna geçti."
}
if {$mode == "+v"} {
putquick "PRIVMSG $chan $victim vip üye konumuna geçti."
}
if {$mode == "+h"} {
putquick "PRIVMSG $chan $victim Yardımcı Operatör konumuna geçti."
}

if {$mode == "+oa"} {
putquick "PRIVMSG $chan $victim süper operatör konumuna geçti."
}
if {$mode == "+aq"} {
putquick "PRIVMSG $chan $victim kanal sahibi konumuna geçti."
}
--------------------------------------------
kanala bu şekilde yazacak hale nasıl getirebilirim. tşk.

zeusq

19 Aralık 2009 18:20

Cevap: tcl yardım

tşk ilginiz için.mevcut kodlarla sizin yazdıklarınızı değiştim ancak
hiçbir yetki türünü yazmıyor kanala .

zeusq

19 Aralık 2009 18:31

Cevap: tcl yardım

peki bunu yetki.tcl diye ayrı bir dosya olarak yapıp herhangi bir bot confuna ekleyerek çalıştırmak mümkünmüdür acaba.böyle bir tcl yapabilecek arkadaşımız var mı.?

toXic

19 Aralık 2009 18:39

Cevap: tcl yardım

Alıntı:

zeusq Nickli Üyeden Alıntı (Mesaj 882774)

peki bunu yetki.tcl diye ayrı bir dosya olarak yapıp herhangi bir bot confuna ekleyerek çalıştırmak mümkünmüdür acaba.böyle bir tcl yapabilecek arkadaşımız var mı.?

Hulk mIRC Script'e göre vermiş kodlari.

Dediğin ise ayrı bir tcl de herhangi bir üzerinde calistirabilirsin evet. .tcl yi herhangi bir .conf'a atip calistirin.

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

Burdaki Konuya bakarsin.

zeusq

19 Aralık 2009 19:04

Cevap: tcl yardım

evet aynı konu tşkler yardımınız için. ama +oa ve +oq sorunu hala çözülememiş galiba.

BuCaLI

19 Aralık 2009 19:08

Cevap: tcl yardım

+q ve +a için şöyle bir çözüm olabilir. Ancak bazen kararsız çalışabilir bu şekilde yinede pek sorunlu olacağını sanmam..

Bi deneyin sorun olursa bu konu altından devam edelim..

Kod:



bind mode - * modes

bind raw - NOTICE modess
 

proc modess {from keyword arg} { 

    if { [lindex $arg 8] == "+q" || [lindex $arg 8] == "+oq" || [lindex $arg 8] == "+qo"} {

    unbind mode - * modes

    putserv "privmsg [lindex $arg 7] [lindex $arg 9] Su Anda FOUNDER ( Kanal Sahibi) Konumuna Gecti. "

    utimer 1 [list bind mode - * modes]

    } elseif { [lindex $arg 8] == "+a" || [lindex $arg 8] == "+oa" || [lindex $arg 8] == "+ao"} {

    unbind mode - * modes

    putserv "privmsg [lindex $arg 7] [lindex $arg 9] Su Anda PROTECT ( Kanal Super Operatoru) Konumuna Gecti. "

    utimer 1 [list bind mode - * modes]

    }

}
 

proc modes {eden b c kanal mode etken} { 

if {$mode == "+o"} { putserv "privmsg $kanal $etken Su Anda AOP ( Kanal Operatoru) Konumuna Gecti. " } 

if {$mode == "+h"} { putserv "privmsg $kanal $etken Su Anda HALFOP ( Kanal Yardimci Operatoru) Konumuna Gecti. " }

}

zeusq

20 Aralık 2009 00:51

Cevap: tcl yardım

tşkler ancak hala aynı. kanala giren sop ve founderleri aop olarak gösteriyor.

[00:47] *** OperServ mod değiştirdi:+oa Apollon Apollon
[00:47] <Apollon> Apollon Su Anda AOP ( Kanal Operatoru) Konumuna Gecti.

toXic

20 Aralık 2009 09:47

Cevap: tcl yardım

Kod:

 

bind mode - * modes

bind raw - NOTICE modess

proc modess {from keyword arg} { 

if { [lindex $arg 8] == "+q" || [lindex $arg 8] == "+oq" || [lindex $arg 8] == "+qo"} {

unbind mode - * modes

putserv "privmsg [lindex $arg 7] [lindex $arg 9] Su Anda FOUNDER ( Kanal Sahibi) Konumuna Gecti. "

utimer 1[list bind mode - * modes]

} else if { [lindex $arg 8] == "+a" || [lindex $arg 8] == "+oa" || [lindex $arg 8] == "+ao"} {

unbind mode - * modes

putserv "privmsg [lindex $arg 7] [lindex $arg 9] Su Anda PROTECT ( Kanal Super Operatoru) Konumuna Gecti. "

utimer 1[list bind mode - * modes]

}

}

proc modes {eden b c kanal mode etken} { 

else if {$mode == "+o"} { putserv "privmsg $kanal $etken Su Anda AOP ( Kanal Operatoru) Konumuna Gecti. " } 

else if {$mode == "+h"} { putserv "privmsg $kanal $etken Su Anda HALFOP ( Kanal Yardimci Operatoru) Konumuna Gecti. " }

}

Su Sekil deneyin

zeusq

20 Aralık 2009 18:53

Cevap: tcl yardım

toxic arkadaşım hayır bu şekilde de hiçbir yetkiliyi göstermiyor.nomercy gibi mirc scriptlerde çalıştığına göre tcl ile de çalışacağına inandığım için üzerinde duruyorum.yoksa kanallar için olmazsa olmaz türüde bişi değil açıkcası.

zeusq

22 Aralık 2009 19:25

Cevap: tcl yardım

kodlar konusunda uzman arkadaşlardan bu sorunu çözebilecek yardım edecek yok mu acaba..?

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 04:57.