##pet:runsub isitime;
##examines:runsub isitime;
##isitime: if $target eq $actor then fire else end;
##fire:
say 'msg',"[$init_obj] accidentally brushes against [$actor].";
say 'msg',"All of sudden a huge fire breaks out on [$actor] and [$init_obj] starts screaming hysterically and running in cicles.";
say 'msg',"Luckily for [$init_obj] the clouds form together and start raining, putting out the fire on [$actor].";
say 'msg',"[$init_obj] stops running in circles and screaming hystericlly but starts crying from fear.";