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

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

- - tcl istek acil... (https://www.ircforumlari.net/eggdrop-neostats-bnc/52744-tcl-istek-acil.html)

tcl istek acil...

Arkadaslar tcl istiyorum baya ugrastım ama yapamadım yardım edecek arkadaslara tesekürler..

Hani Scanx da kkanal sayısı 5 kişiyi gecen kanala oto giriş yapıyorya oo şekil tcl istıyorum yardım edermesiniz..

uygun yere tasınırsa sevinirim..

Cevap: tcl istek acil...

Alıntı:

DorukChat Nickli Üyeden Alıntı (Mesaj 363335)

Buyur arkadaşım

Kod:

 

###############################################################

## Bot sunucu üzerinde aşağıda belirleyeceğiniz sayıdan daha ##

## daha fazla user olan kanala otomatik olarak girer ve ##

## kanalı korumaya alır. Default olarak 5 ayarlanmıştır. ##

###############################################################

set usersayisi 5

bind raw - "322" kanal_listele

set listzaman 30

if {![string match "*kanal_listesi*" [utimers]]} {

utimer $listzaman kanal_listesi

}

proc kanal_listesi {} {

global listzaman

putserv "LIST"

utimer $listzaman kanal_listesi

return 1

}

proc kanal_listele {from keyword arg} {

global usersayisi botnick

set listekanaladi [lindex $arg 1]

set guncelsayi [lindex $arg 2]

if {[lsearch -exact [string tolower $listekanaladi]] != -1} {return 0}

if {$guncelsayi >= $usersayisi && ![validchan $listekanaladi]} {

channel add $listekanaladi { +nodesynch flood-chan 10:2 }

}

if {$guncelsayi < $usersayisi && [validchan $listekanaladi]} {

channel remove $listekanaladi

} else {

return 0

}

}

kırmızı ile belirttigim 5 sayisini istedigin gibi değiş

Buarada SAW ve Nebiliymben arkadaşlara tşkler..

Cevap: tcl istek acil...

Alıntı:

joint Nickli Üyeden Alıntı (Mesaj 363481)

Buyur arkadaşım

Kod:

 

###############################################################

## Bot sunucu üzerinde aşağıda belirleyeceğiniz sayıdan daha ##

## daha fazla user olan kanala otomatik olarak girer ve ##

## kanalı korumaya alır. Default olarak 5 ayarlanmıştır. ##

###############################################################

set usersayisi 5

bind raw - "322" kanal_listele

set listzaman 30

if {![string match "*kanal_listesi*" [utimers]]} {

utimer $listzaman kanal_listesi

}

proc kanal_listesi {} {

global listzaman

putserv "LIST"

utimer $listzaman kanal_listesi

return 1

}

proc kanal_listele {from keyword arg} {

global usersayisi botnick

set listekanaladi [lindex $arg 1]

set guncelsayi [lindex $arg 2]

if {[lsearch -exact [string tolower $listekanaladi]] != -1} {return 0}

if {$guncelsayi >= $usersayisi && ![validchan $listekanaladi]} {

channel add $listekanaladi { +nodesynch flood-chan 10:2 }

}

if {$guncelsayi < $usersayisi && [validchan $listekanaladi]} {

channel remove $listekanaladi

} else {

return 0

}

}

kırmızı ile belirttigim 5 sayisini istedigin gibi değiş

Buarada SAW ve Nebiliymben arkadaşlara tşkler..

cok tsk arkadasım ufak bişi daha sorcam bu kansla girince

bilmem ne bot bilmemne kanalına giriş yapmıştır demesi için nasıl olcak

Cevap: tcl istek acil...

Kod:

 

###############################################################

## Bot sunucu üzerinde aşağıda belirleyeceğiniz sayıdan daha ##

## daha fazla user olan kanala otomatik olarak girer ve ##

## kanalı korumaya alır. Default olarak 5 ayarlanmıştır. ##

###############################################################

set usersayisi 2

bind raw - "322" kanal_listele

set listzaman 30

if {![string match "*kanal_listesi*" [utimers]]} {

utimer $listzaman kanal_listesi

}

proc kanal_listesi {} {

global listzaman

putserv "LIST"

utimer $listzaman kanal_listesi

return 1

}

proc kanal_listele {from keyword arg} {

global usersayisi botnick

set listekanaladi [lindex $arg 1]

set guncelsayi [lindex $arg 2]

if {[lsearch -exact [string tolower $listekanaladi]] != -1} {return 0}

if {$guncelsayi >= $usersayisi && ![validchan $listekanaladi]} {

channel add $listekanaladi { +nodesynch flood-chan 10:2 }

putserv "privmsg #Services :$listekanaladi kanalina giriş yapıldı"

}

if {$guncelsayi < $usersayisi && [validchan $listekanaladi]} {

channel remove $listekanaladi

putserv "privmsg #Services :$listekanaladi kanalindan çıkış yapıldı"

} else {

return 0

}

}

Kırmızı ile belirttigim yerler giriş çıkışlarını belirtecegi kanal orayı kendine göre düzenle

Cevap: tcl istek acil...

yaa anlatamadım hani scanx da kanala girdiginde dıyor ya scanx kanalı koruma altına almıştır..

Cevap: tcl istek acil...

bende o kadar anlamam ama şurdan bakınca o kadarda her şeyi bilmene gerek olmadığı gözüküyor :S

putserv "privmsg #Services :$listekanaladi kanalina giriş yapıldı"

satırının yerine

putserv "privmsg $listekanaladi Bot $listekanaladi kanalını koruma altına almıştır."

yazman yeterli olacaktır.

Cevap: tcl istek acil...

yaw paşam kod superde kanala girince op olmuyo direk ona nasıl eklıcem ben ekledım putserv die olmadı malesef :(

Cevap: tcl istek acil...

su op alma sorununu nasıl coz<cez yaw kımse yokmuuuuuu