if target of examines then animate;

##tickloc:
runsub animate;

##tickhour2:
runsub animate;

##animate:
if $actor's pose like "dead" then animate2 else undeadchecks;

##animate2:
set $actor's extra to "undead";
print "[$actor] twitches and gets up";
set $actor's motion to "shambles";
set $actor's material to "_tzombie_|_undead_";
set $actor's pose to "";
set $actor's healthmax to 20;
set $actor's health to $actor's healthmax;

##undeadchecks:
if $actor's health < 1 then undeaddeath else continue;

##undeaddeath:
print "[$actor] collapses onto the ground, finally DEAD dead";

##tickloc:runsub ticked;

##ticked:
if $actor's health > 0 then tickslot else undeaddeath;

##tickslot:
find $loc,'battle';
if $found_id < 1 then continue else end;
$who = $actor's slot1;
if $who's loc ne $loc then tickfind else end;

##tickfind:
find $loc,random player;
if $actor's owner ne $found_id then ticknewenemy else nothing;

##ticknewenemy:
if $found_id's health > 0 then tickattackit else end;

##tickattackit:
set $actor's slot1 to $found_id;
$attackdelay = 0;
$target = $found_id;
runsub whyattack;
call "attack $target",$attackdelay;

##resetattack:
//set $actor's slot1 to 0;


##continue:
find $loc, random player;
if $found_id > 0 then attackit else elsewhere;

##attackit:
call "attack $found_id";

##hits:
runsub whodunit;

##whodunit:
if $actor = $init_obj then runsub infect else end;

##infect:
swap $material add '_T-Virus_';
set $target'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 T-Virus to $tvirus by 1;
set $target's matvals to $matvals;

##elsewhere:
call "roam";