IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Daha demin bir arkadaş için kodladığım, işine yarar belki bazılarının diye paylaşıyorum;

Kod:

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