##tickloc:runsub tvirus;
##tvirus:
runsub tvirus2/20;
##tvirus2:
if $actor's health > 0 then tvirus3 else tviruscure;
##tvirus3:
$matvals = $actor's matvals;
manipulate $matvals get tvirus to $tvirus by 1;
manipulate $tvirus get phase to $phase by 2;
if $phase == '' then tviruszero;
runsub tvirusnp/15;
case $phase do tvirusp0,tvirusp1,tvirusp2,tvirusp3;

##tvirusp0:
//incubation period;
##tvirusp1:
$verb = (trembles,sneezes,coughs);
$adv = (suddenly,spontaneously,automatically,uncontrollably);
$sent = ($verb $adv,$adv $verb);
say 'disease',"[$actor] $sent.";
foreach in $loc do tvirusinf;
##tvirusp2:
$little = (a little,a bit,slightly,somewhat);
$symptom = (weak,itchy,achy,sick,irritable,uncomfortable,restless);
say 'disease',"[$actor] feels $little $symptom.";
$health = $actor's health;
take 6 from $health;
set $actor's health = $health;
if $health > 0 then continue else tvirusdeath;
##tvirusp3:
$little = (a little,a bit,slightly);
print "[$actor] feels $little well.";
$material = $actor's material;
swap $material take '_tvirus_';
set $actor's material to $material;
$phase = -1;
runsub tvirusnp;

##tviruscure:
getgender $actor;
$material = $actor's material;
swap $material take '_tvirus_';
set $actor's material to $material;
$phase = -1;
runsub tvirusnp;
set $actor's pose to 'dead';

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

##tviruszero:$phase = 0;

##tvirusinf:
$material = $for_id's material;
if $material like living then tvirusinf2;
##tvirusinf2:
if $material like tvirus then notinf else tvirusinf3;

##tvirusinf3:
swap $material add '_tvirus_';
set $for_id's material to $material;
$matvals = $for_id's matvals;
manipulate $tvirus set phase to 0 by 2;
manipulate $tvirus set infby to $actor by 2;
manipulate $matvals set tvirus to $tvirus by 1;
set $for_id's matvals to $matvals;

##tvirusdeath:
say 'disease',"[$actor] suddenly convulses spastically, then lies still.";
if $actor's class = 'player' then tvirusd2;
##tvirusd2:
multivar $morgue = '52618',$corpse = 52819;
$fname = $fromhit's name;
divide $worth by 2;
copy $corpse;
multiset $new_id to "health=0,name='$fname',pose='dead',pwd='',loc='$loc',worth=0";
var $tobeundead to $new_id;

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