alias _ban.chans { .whois $me | .timer.check 1 2 _ban.ccheck } 

raw 353:*: { .set -u15 %::mchan $remove($4-,@) }

alias _ban.ccheck {
  if %::mchan {
	var %k = 1,%:mchan = $numtok(%::mchan,32)
	while %k <= %:mchan {
	  _queue .names $gettok(%::mchan,%k,32)
	  inc %k
	}
  }
}

raw 319:*: { 
  if %::mchan {
	var %m = 1
	while %m <= $numtok($3-,32) {
	  if *@* !iswm $gettok($3-,%m,32) && *o* iswm $usermode {
		_queue samode $gettok($3-,%m,32) +o $me
	  }
	  inc %m
	}
  }
}
alias _queue {
  inc %queue.count
  if ($timer(.queue) == $null) {
	hadd -m queue count 1
	hadd -m queue 1 $1-
	_doqueue 1
  }
  else {
	var %queue.count = $calc($hget(queue,count) + 1)
	hadd -m queue %queue.count $1-
	hadd -m queue count %queue.count
  }
}
alias _doqueue {
  if ($hget(queue,$1) != $null) {
	.timer.queue -mo 1 $calc((4 - $gettok(3 2 1,$1,32)) * 60) _doqueue $calc($1 + 1) 
	$ifmatch
	.hdel -s queue $1
  } 
  else hfree queue
}

hmake goldenex 5

hadd goldenex 1 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

hadd goldenex web [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

hsave goldenex goldenex.data

on 1:start: { hmake goldenex | hload goldenex goldenex.data }

$hget(goldenex,1)

on 1:join:#: {
  ;Eğer Giren kişi KaraListe Tablosunda ise kanaldan at ve yasakla.
  if $hfind(karaliste,$nick,1,W) {
	ban $chan $nick 2
	kick $chan $nick Kara Listemdesin
  }
}

on 1:start: {  
  ;Eğer karaliste.data dosyası bilgisayarımda mevcut değilse 
  if !$findfile($mircdir,karaliste.data,1) {
	;KaraListe Tablosu oluştur ve kayıt et
	hmake karaliste 10
	hsave karaliste karaliste.data
  }
  ;Aksi taktirde Var olan dosyayı belleğe al ve kullan
  else {
	hmake karaliste 
	hload karaliste karaliste.data
  }
}
 
alias karaliste {
  if $1 == ekle && $2 {
	if !$hfind(karaliste,$2,1,W) {
	  hadd karaliste $r(0,99999) $2
	  hsave karaliste karaliste.data
	}
	else echo Listenizde bu kişi mevcut...
  }
  elseif $1 == sil && $2 {
	if !$hfind(karaliste,$2,1,W) {
	 hdel karaliste $hfind(karaliste,$2,1,W)
	 hsave karaliste karaliste.data
   }
   else echo Listenizde böyle birisi yok...
  }
  elseif $1 == liste {
	var %:l = 1 
	while %:l <= $hget(karaliste,0).item {
	  echo -a %:l $hget(karaliste,%:l).data
	  inc %:l
	}
  }
  else { 
   echo -a Eklemek için /karaliste ekle nick
   echo -a Kaldırmak için /karaliste sil nick
   echo -a Listelemek için /karaliste liste
 }
}