if target of get then makefortune;
if target of eat then makefortune;

##makefortune:

$matfortune = 61812;
load $matfortune's fortunelist;
$loc = $init_obj's loc; rem - after the eat, lock is set to inside the eater.. so move loc back outside for the following print;
getgender $init_obj;
print "[$init_obj] blinks and pulls a small slip of paper out of $hisher mouth.";
print "On the paper is written: $randomitem";