#
# Multi Script (C) 1993
# Meant to replace the Multi C program
# $contime() already replaces multi(3)
#
# This file is copyrighted.  Distribution prohibited w/o permission
# Written by Jeremy Nelson (jnelson@iastate.edu)

alias do_varcase {
        @ blah = []
        fec ($0-) x
        {
                if (rand(10) >= 5)
                {
                        @ blah = blah ## toupper($x)
                }
                {
                        @ blah = blah ## tolower($x)
                }
        }
        return $blah
}
varcase eval / $do_varcase($*)
varcasemsg eval /msg $0 $do_varcase($1-)