##tickloc:runsub whattodo;
##xwish:runsub whattodo;



##whattodo:runsub forcasts/6;

##forcasts:
find $loc,random;
if $found_id's class eq snow then end else tempest;

##tempest:
var $adj to (continus,strong,mad);
var $subject to (snow tempest,snowstorm);
var $item to $found_id;
var $action to (overcomes,sweeps);
say 'nothing',"a $adj $subject $action [$item]";