tcl istek acil... - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

JoinT · 05 Nisan 2008, 19:09

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

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

Buyur arkadaşım

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

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

DorukChat · 05 Nisan 2008, 20:05

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

Buyur arkadaşım

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

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

JoinT · 05 Nisan 2008, 23:18

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

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

DorukChat · 06 Nisan 2008, 01:02

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

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal gösterime geğ Hybrid-Şeklinde Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Canlı yayında akılalmaz istek: Karım buraya gelsin boşanalım benim acil evlenmem lazım!	NurSima	Güncel ve Son Dakika Haberler	0	27 Nisan 2021 15:57
Acil tcl istek	desdek	Eggdrop, NeoStats, BNC	12	20 Mart 2012 19:53
TCL istek (acil)	PiSLiCk_06	Eggdrop, NeoStats, BNC	1	06 Ocak 2010 10:51
Acil Kod iStek	Cihanim	mIRC Scripting Sorunları	1	14 Kasım 2009 01:04
Acil Tcl iStek	TurkeyAJANS	Eggdrop, NeoStats, BNC	3	12 Ağustos 2009 19:37

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.