|
sen online olduğun sürece servere giren ve cıkan nickleri noticelerden takip eder ve hasha yazar eğer serverin cok yoğun ve 2000 kullanıcıdan fazla ise alttaki 2000 i artırabilirsin.
aşağıdaki kodu remoteye kopyala (alt + r):
on *:connect: {
if $hget(listenusers) { hfree listenusers }
hmake listenusers 2000
}
on *:snotice:*: {
if $regex($1-,Client exiting:) { .hdel listenusers $6 }
if $regex($1-,Client connecting on port) { .hadd listenusers $9 $remove($10,$chr(40),$chr(41)) }
}
alias fbdlg { if !$dialog(fbdlg) { dialog -m fbdlg fbdlg } }
dialog fbdlg {
title "Forbid"
size -1 -1 239 246
option dbu
list 1, 1 1 237 229, sort size extsel hsbar vsbar
button "Tazele", 2, 204 232 33 12
button "Seçili olan nickleri forbidle", 3, 2 232 63 12
text "birden çok nick seçmek için ctrl tuşunu kullanın", 4, 68 234 133 8
button "x",5, 0 0 0 0,cancel
}
on *:dialog:fbdlg:*:*: {
if $devent == init || ($devent == sclick && $did == 2) {
did -r $dname 1
var %i = $hget(listenusers,0).item
while %i {
did -a $dname 1 $hget(listenusers,%i).item $+($str(*,15),[ip: $hget(listenusers,%i).data,])
dec %i 1
}
}
if $devent == sclick && $did == 3 {
var %i = $did(1).lines
while %i {
if $did(1,%i).sel { .timer -m 1 $calc($rand(50,500) * 6) /ns Forbid $gettok($did(1,%i),1,32) Sebebi buraya yaz }
dec %i 1
}
}
}
kopyaladıktan sonra serverden bağlantını kes ve tekrar gir komutu çalıştırmak için /fbdlg yazman yeterli bunu kanal menusunde görmek istersen remoteye alttaki kodu da yapıştır:
menu channel {
-
Forbid list: fbdlg
-
}
ayrıca komutları çok yavaş uyguluyorsa $calc($rand(50,500) * 6) timerdaki 6 yı küçültebilirsin. çok hızlı uyguluıyorsa artırabilirsin.
|