##tickloc:runsub cowpox;
##cowpox:
runsub cowpox2/20;
##cowpox2:
if $actor's health > 0 then cowpox3 else cowpoxcure;
##cowpox3:
$matvals = $actor's matvals;
manipulate $matvals get cowpox to $cowpox by 1;
manipulate $cowpox get phase to $phase by 2;
if $phase == '' then cowpoxzero;
runsub cowpoxnp/15;
case $phase do cowpoxp0,cowpoxp1,cowpoxp2,cowpoxp3;

##cowpoxp0:
//incubation period;
##cowpoxp1:
$verb = (sniffles,sneezes,coughs);
$adv = (suddenly,spontaneously,automatically,uncontrollably);
$sent = ($verb $adv,$adv $verb);
say 'disease',"[$actor] $sent.";
foreach in $loc do cowpoxinf;
##cowpoxp2:
$little = (a little,a bit,slightly,somewhat);
$symptom = (weak,lethargic,itchy,achy,sick,irritable,uncomfortable,restless,stuffy);
say 'disease',"[$actor] feels $little $symptom.";
$health = $actor's health;
take 1 from $health;
set $actor's health = $health;
if $health > 0 then continue else cowpoxdeath;
##cowpoxp3:
$little = (a little,a bit,slightly);
print "[$actor] feels $little well.";
$material = $actor's material;
$matvals = $actor's matvals;
swap $material take '_cowpox_';
manipulate $matvals set cowpox to '';
set $actor's material to $material;
set $actor's matvals to $matvals;
$phase = -1;
runsub cowpoxnp;

##cowpoxcure:
getgender $actor;
$material = $actor's material;
swap $material take '_cowpox_';
set $actor's material to $material;
$phase = -1;
runsub cowpoxnp;
set $actor's pose to 'dead';

##cowpoxnp:
add 1 to $phase;
manipulate $cowpox set phase to $phase by 2;
manipulate $matvals set cowpox to $cowpox by 1;
set $actor's matvals to $matvals;

##cowpoxzero:$phase = 0;

##cowpoxinf:
$material = $for_id's material;
if $material like living then cowpoxinf2;
##cowpoxinf2:
if $material like cowpox then notinf else cowpoxinf3;

##cowpoxinf3:
swap $material add '_cowpox_';
set $for_id's material to $material;
$matvals = $for_id's matvals;
manipulate $cowpox set phase to 0 by 2;
manipulate $cowpox set infby to $actor by 2;
manipulate $matvals set cowpox to $cowpox by 1;
set $for_id's matvals to $matvals;

##cowpoxdeath:
say 'disease',"[$actor] cries out in agony!";
say 'disease',"[$actor] suddenly convulses spastically, then lies still.";
if $actor's class = 'player' then cowpoxd2;
##cowpoxd2:
multivar $morgue='52618',$corpse=52819;
$fname = $actor's name;
divide $worth by 2;
copy $corpse;
multiset $new_id to "health=0,name='$fname',pose='dead',pwd='',loc='$loc',worth=0";

getgender $actor;
print "[$actor]'s spirit rises from $hisher body";
relocate $actor to $morgue print "[$actor]'s spirit moves swiftly to another place, leaving behind a corpse." then "The spirit of [$actor] arrives.";
sayto $actor,"You are dead.";