if target of touch then findit;

##findit:
find $loc, charged ore;
if $found_id > 0 then donothing else newit;

##donothing:
print "[$actor] shines brightly, then fades";

##newit:
new a charged ore worth 5000;
print "[$actor] produced [$new_id] for [$init_obj]";
relook $loc;