+static int seed(verb_t verb, const char *arg)
+/* Set seed */
+{
+ long seed = atol(arg);
+ speak(actions[verb].message, arg);
+ set_seed(seed);
+ --game.turns;
+ return GO_TOP;
+}
+
+static int waste(verb_t verb, turn_t turns)
+/* Burn turns */
+{
+ game.limit -= turns;
+ char newlim[1024];
+ sprintf(newlim, "%ld", (long)game.limit);
+ speak(actions[verb].message, newlim);
+ return GO_TOP;
+}
+