Other than the $gettok method, you can do it with the $replace one:
on !*:join:#:describe # $+($replace($r(1,4),1,hug,2,kisse,3,kill,4,slap),s) $nick