@create Gazing Ball
@set Gazing Ball= NO_COMMAND

@FAILURE Gazing Ball=That's much too fragile for you to handle.
@ODROP Gazing Ball=hangs up the glass ball carefully.
@DROP Gazing Ball=You hang up the glass ball carefully.
@OSUCCESS Gazing Ball=picks up the glass ornament carefully.
@SUCCESS Gazing Ball=You pick up the glass ornament carefully by its thread loop.

&BROWNLIST Gazing Ball=copper|brown|sandy brown|bronze|sepia|chocolate
&WHITELIST Gazing Ball=creamy|ivory|pearly|white
&GREYLIST Gazing Ball=silver|pewter|steel grey|mist grey|pearl
&PURPLELIST Gazing Ball=lilac|lavender|violet|mauve|amethyst|purple
&BLUELIST Gazing Ball=turquoise|cobalt|cerulean|smoke blue|sapphire|blue-black|peacock blue
&GREENLIST Gazing Ball=jade|emerald|moss-green|grass-green|sea green|peridot|olive|teal
&YELLOWLIST Gazing Ball=gold|yellow|saffron|marigold|honey|amber|ochre
&ORANGELIST Gazing Ball=saffron|orange|tangerine|apricot|coral
&REDLIST Gazing Ball=flame|crimson|blood-red|scarlet|maroon|rose|garnet|ruby red|coral|dawn-pink|russet

@DESCRIBE Gazing Ball=%r%tA globe of smooth opalescent glass is hung from a loop of silk thread, its [first(shuffle(u(me/whitelist),|),|)] surface shimmering in the light with all the colors of a hundred rainbows, shading from [switch(rand(2),0,{[first(shuffle(u(me/redlist),|),|)] to [first(shuffle(u(me/orangelist),|),|)] through [first(shuffle(u(me/yellowlist),|),|)] into [first(shuffle(u(me/brownlist),|),|)]},1,{[first(shuffle(u(me/greenlist),|),|)] to [first(shuffle(u(me/bluelist),|),|)] through [first(shuffle(u(me/purplelist),|),|)] into [first(shuffle(u(me/greylist),|),|)]})]. %r