* cit-weather
if ( greater(random(0,4),3), {goto(start);}, {goto(end);} );  label(start);

wait(random(0,100));
if ( cmp(weather(),0), { do({say Nice day, isn't it?}); } );
if ( cmp(weather(),1), { do({say Looks a bit overcast.}); } );
if ( cmp(weather(),2), { do({say Gonna storm harder I bet.}); } );
if ( cmp(weather(),3), { do({say Now we're in for it!}); } );
if ( cmp(weather(),4), { do({say Bit of a storm, isn't it?}); } );
wait(20);
} );
label(end);