if target of wears then worn;
if reacting to gestures then checkpoint;

##worn:
$host = $actor's host;
print "[$actor] sparkles on [$host]'s finger.";

##checkpoint:
if $actor's host == $init_obj then checkpoint2;
##checkpoint2:
if $target > 0 then checkpoint3;
##checkpoint3:
$matvals = $target's matvals;
manipulate $matvals get cowpox to $cowpox;
manipulate $cowpox get phase to $phase by 2;
manipulate $cowpox get infby to $infby by 2;
if $infby > 0 then showit else shownone;
##showit:
if $target's material like _cowpox_ then getphase else cured;
print "[$actor]'s inscription shifts to read '[$infby] gave it to [$target], who is $current'";
##getphase:
$phaseword = "p0=incubating it}1{p1=infectious}1{p2=suffering from it";
$lookup = "p$phase";
manipulate $phaseword get $lookup to $current;
##cured:
$current = "cured of it";
##shownone:
print "[$actor]'s inscription shifts to read: '[$target] has no history of it'";