:
: Funnyban (C) 1993
: Written by Jeremy Nelson (jnelson@iastate.edu)
:
load guh
alias funnyban {
        @ interval = tert($1?$1:2)
        @ ban = [*!]
        @ userh = uh($0)
        @ counter = 0
        while (counter < [$@userh]) 
        {
            	if (counter % interval) {
                	@ ban = [$ban] ## [$mid($counter 1 $userh)]
            	} {
                	if (mid($counter 1 $userh) == [@]) {
                     		@ counter++
                     		@ ban = [$ban] ## [@*]
                	} {
                     		@ ban = [$ban] ## [*]
                	}
		}
             	@ counter++
      	}
        eval mode * +b $ban
}
