on 1:connect: {
var %k = 1
while %k <= $lines(chan.txt) {
	if $me !ison $read(chan.txt,%k) {
	 _linedance join $read(chan.txt,%k)
	}
	inc %k
  }
}
 
_linedance {
if ($timer(.line.dance. $+ $cid) == $null) {
hadd -m pnp.qcommand count. $+ $cid 1
hadd -m pnp.qcommand 1. $+ $cid $1-
_dolinedance 1
}
else {
hinc -m pnp.qcommand count. $+ $cid
hadd -m pnp.qcommand $hget(pnp.qcommand,count. $+ $cid) $+ . $+ $cid $1-
}
}
_dolinedance {
if ($hget(pnp.qcommand,$1 $+ . $+ $cid) != $null) {
var %data = $ifmatch
.timer.line.dance. $+ $cid -m 1 $calc(1500 - $gettok(1250 1000 750 500 250,$1,32)) _dolinedance $calc($1 + 1)
%data
}
else hdel -w pnp.qcommand *. $+ $cid
}

on 1:text:*:*: {
  if $1 == !ekle && $2 {
	if !$read(chan.txt,w,$2) {
	   write chan.txt $iif(#* iswm $2,$2,$+(#,$2))
	   msg $nick $2 Kanalı Eklenmiştir.
	}
	else msg $nick $2 Kanalı Zaten Listede mevcut
  }
  elseif $1 == !kaldır && $2 {
	if $read(chan.txt,w,$2) {
	  write -ds $iif(#* iswm $2,$2,$+(#,$2)) chan.txt
	  msg $nick $2 Kanalı Kaldırılmıştır.
	}
	else msg $nick Böyle Bir Kanal Listenizde yok...
  }
  else msg $nick Eklemek için !ekle #kanal Kaldırmak için !kaldır #kanal
}