Daha demin bir arkadaş için kodladığım, işine yarar belki bazılarının diye paylaşıyorum;
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#: {
if $regex(enes,$1,/^[!.&-](sajo[iİı]n|sapart)/Si) {
if !$2 || !$3 { msg $chan Yetersiz parametre hatası, kullanım: ! $+ $regml(enes,1) Nick #Kanal | return }
if !$regex($3,/^#/S) { msg $chan Yanlış kullanım, doğru kullanım: ! $+ $regml(enes,1) Nick #Kanal | return }
$regml(enes,1) $2 $3
$iif($regml(enes,1) = sajoin,msg $chan $2 Nicki $3 kanalına çekilmiştir, msg $chan $2 nicki $3 kanalından çıkartılmıştır.)
}
if $regex($1,/^[!.&-]tara/Si) {
if !$2 { msg $chan Çekilecek kanalı yazınız. | return }
set %cekil $2
.enable #cek
who *
.timer 1 3 disable #cek
msg $chan Statüste bekleyen nickler $2 kanalına çekiliyor!
}
}
#cek off
raw 352:*: {
if !$regex($1-,/(services|admin|chanserv|nickserv|operserv)/Si) {
if !$regex($1-,/#/) { sajoin $6 %cekil | msg #opers $1- }
}
}
#cek end