only get gems from kicking thrones

- this was a betabug I think, but not recorded as such
- if you kicked a throne, any GEM_CLASS item could be generated, including rocks
- changes behavior to be consistent with gems from fountains

doc/fixes34.1

@@ -12,6 +12,7 @@ allow both wishing and genocide to accept either "none" or "nothing" when
 	the player wants to decline
 left word in format string in get_wet() causing "The spellbook fadefades"
 two bad wizkit items in a row shouldn't make the user hit space many times
+kicking thrones no longer loosens rocks
 
 
 Platform- and/or Interface-Specific Fixes

src/dokick.c

@@ -811,7 +811,9 @@ dokick()
 			(void) mkgold((long) rn1(201, 300), x, y);
 			i = Luck + 1;
 			if(i > 6) i = 6;
-			while(i--) (void) mkobj_at(GEM_CLASS, x, y, TRUE);
+			while(i--)
+			    (void) mksobj_at(rnd_class(DILITHIUM_CRYSTAL,
+					LUCKSTONE-1), x, y, FALSE, TRUE);
 			if (Blind)
 			    You("kick %s loose!", something);
 			else {