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

DorukChat · 05 Nisan 2008, 16:27

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

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

KryshtaL · 10 Temmuz 2008, 05:14

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.

RahmetLi · 14 Ocak 2010, 20:46

yaw paşam kod superde kanala girince op olmuyo direk ona nasıl eklıcem ben ekledım putserv die olmadı malesef
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

RahmetLi · 16 Ocak 2010, 23:05

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

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.