switch para controlar comandos

Con este snippet para eggdrop podrás saber cómo separar los parámetros de un comando global.

proc test {nick uhost hand chan text} {
	
	set options [list "" "una" "dos" "tres" "cuatro"]
	set subCommand [lindex [split $text " "] 0]
    set arguments [join [lrange [split $text " "] 1 end] " "]
	switch -- $subCommand {
		{} {
		    putserv "PRIVMSG $chan :Hola, no has usado ningún parámetro."
		}
		{una} {
			putserv "PRIVMSG #canal :Hola, este subcomando de test es: una"
		}
		{dos} {
			putserv "PRIVMSG #canal :Hola, este subcomando de test es: dos"	
		}
		{tres} - {cuatro} {
			putserv "PRIVMSG #canal :Hola, este subcomando de test es: $subCommand"
		}
		default {
			putserv "PRIVMSG #canal :Hola, $subCommand no es válido. Usa uno de estos: [join $options {, }]"
		}
	}
}
 
foreach word [list una dos tres cuatro cinco seis] {
	test Sentencia Sentencia@eggdrop.es Sentencia {#eggdrop} $word
}