/*
Aşağıdaki rumuzu değiştiren kişi, karakter bakımından zayıftır.
*/
;Yazan: Regex
;Kod: /pj - Tüm Kanallardan Çıkış-Giriş
;Kullanım şekli: /pj [<N>]

pj {
  var %h = echo $color(info) -te * /pj: Hatalı kullanım.
  if (!$server) %h Sunucuya bağlı değilsiniz.
  elseif (!$chan(0)) %h Hiçbir kanalda bulunmuyorsunuz.
  elseif (!$regex($1,\d)) %h $qt($1) geçersiz rakam.
  else { var %" = $remove($regsubex($dde(mirc,channels),$+(/,$chr(32),/g),$chr(44)),*) | part %" | $iif($regex($1,\d),.timer 1 $1) join -n %" }
}