yada :
Kod: Kodu kopyalamak için üzerine çift tıklayın!
set agalar {
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
*
}
.......
.....
global agalar
if {![string match -nocase $agalar [getchanhost $nick]]} {
return 0
}
.....
....
yada :
Kod: Kodu kopyalamak için üzerine çift tıklayın!
set agalar {
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
*
}
.......
.....
global agalar
set kabul 0
foreach host $agalar {
if {[string match $host [lindex [split $uhost @] 1]]} { set kabul 1 }
}
switch -- $kabul {
0 { putserv "notice $nick :det..bu komut senin boyunu aşar.." }
1 { putserv "notice $nick :Lafı mı olur .ne demek ağam ..." }
..... kodun devamı...
yada en güzeli/sağlamı:
kim/lerin kullanabilmesi isteniyorsa ,bu zat-ı muhteremleri botun user dosyasına eklersiniz :
örnek:
.+user Tom
.+host Tom
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.*
.chattr Tom +f
+f friend yane arkideş yada ne bileyim herhangi bir user flagı verilebilir bu komutlara erişimi olmasını istediğiniz zatlara ->
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sonrada koda proc/un/ların altına :
Kod: Kodu kopyalamak için üzerine çift tıklayın!
if {![matchattr [nick2hand $nick $chan] f]} { return 0 :}
yani f "friend" kullanıcı flagı yoksa vallahi-olmaz. gibi eklenip komut/lara erişim "sınırlandırılabilinir....
ayrıca :
!temizle komutu için 50 satır dolusu
Kod: Kodu kopyalamak için üzerine çift tıklayın!
putquick "PRIVMSG $chan :."
yazmak yerine tek satırda :
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
yada
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
gibi yapılabilinir....di...(hem daha pratik , hemde en azından göze "hoş" görünürdü kod...)