Ben kodlar için yardım ettiğimi hatırlamıyorum ama adımı yazmışsınız tşkler hiç olmazsa bi kaç bilgi vermiş olayım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
en alttaki kodlarda önemli bi açık var o farkedilirse normal userlerde oda kayıt edebilir
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. onun için o kısmı değiştirirseniz daha sağlıklı olur;
"[onchan $nick $ops_chan]==0" nick kanalda değilse demektir (yanlışmıyım ?). o halde kanal dışındaki herkes bu botu farklı kanallardan kanal kaydetmek amaçlı yönetebilir o kısımları silelim ilk önce ve kayıt odasında op ise çalışsın sadece. ve part içinde tekrar komut vermemize gerek yok. işini hallettikten sonra odadan çıksın bot ki boşa komut kullanmayalım. Birde şifre için sabit bi şifre yerine rastgele sayılar verebiliriz. Bu gibi bi iki ufak düzenlemeden sonra şu şekli alır sizde deneyip sonucu söylersiniz.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
#### ozel kanal onay sistemi###
set ops_chan "#OzelOdaBasvuru"
bind pub - !kaydet kaydet
proc kaydet {nick uhost handle chan text} {
global ops_chan
if {[isop $nick $ops_chan]} {
set kanal [lindex $text 0]
set gnick [lindex $text 1]
set sifre [rand 99999999]
if {![validchan $kanal]} {
channel add $kanal { +nodesynch flood-chan 10:2 }
}
putserv "operserv mode $kanal +o botnick"
putserv "chanserv register $kanal $sifre
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
putserv "chanserv set $kanal founder $gnick"
putserv "memoserv send $gnick Merhaba4 $gnick ,isteginiz uzerine $kanal odasi nickinize kaydedilmistir.Kanalinizin sifresi $sifre olarak belirlenmistir . Guvenliginiz icin sifrenizi derhal degistirmeniz onerilir . Kanal sifrenizi degistirmek için /cs set $kanal password4 sifreniz komutunu uygulayiniz . sunucuadı Keyifli Sohbetler Diler .."
putserv "PRIVMSG $ops_chan :iSLem tamamlandi . $gnick nickinin istegi uzerine $kanal kanali kayit islemi tamamlanmis , kanal sahibi $gnick olarak belirlenmistir."
utimer 5[list channel remove $kanal]
utimer 6[list putserv "PRIVMSG $ops_chan : $kanal kanalindan cikildi $nick"]
return 1
}
return 1
}