Çevrimdışı

Bahsettiğiniz kodu yapabildiğim kadar düzelttim ama bota konsoldan bağlanıp .chanset #Kanal +GirisFlood yaptıktan sonra bahsetmiş olduğum girişkodu açıp kapatma işlemini yaptıramıyorum.. Kod'un neresinde oynama yapmalıyız ? Teşekkürler bu arada.

[BOX="tcl"]
# Kaç Saniyede ,
set GirisSaniye 8
# Kaç Kanal Girisi?
set GirisMax 4
# Bu Nickler Banlanacak Mı? 1 -> Evet , 0 -> Hayır
set Banlansin 0
# Kanal'da Uygulanan Modlar Kaç Saniye Sonra Kaldırılsın?
set GirisKodSaniyesi 900
# .chanset #Kanal +GirisFlood İle Kanal'ınızda Aktif Edilir!
setudef flag GirisFlood

bind join - *!*@* Giris:Flood

proc Giris:Flood {nick uhost hand chan} {
if {![channel get $chan GirisFlood] || [isbotnick $nick] || $nick eq $::owner} { return 0 }
if {![info exists ::Giris($chan)]} { set ::Giris($chan 1 } { incr ::Giris($chan) }
if {![info exists ::Saydir($chan,Kisi)]} { set ::Saydir($chan,Kisi) $nick } { lappend ::Saydir($chan,Kisi) $nick }
if {$::Giris($chan) >= $::GirisMax} {
if {$:: Banlansin >= "1" && [string length $:: Banlansin]}
{
foreach Hedef $::Saydir($chan,Kisi) { putquick "zline $Hedef :Aşırı Giriş Yapıldı.";}
}
else
{
putquick "girisac"
utimer $::GirisKodSaniyesi[list putquick "giriskapat"]
}
}
utimer $::GirisSaniye[list unset ::Giris($chan) ::Saydir($chan,Kisi)]
}
[/BOX]

Edit: Banlansin kısmında smiley çıktığı için boşluk bıraktım.