##tickloc:runsub ticked;

##ticked:
$fromhit = $actor's slot1;
$tohit = $actor's slot2;
$weapon = $actor's slot3;
say 'msg',"Suddenly, [$actor] explodes from [$weapon] towards [$tohit]!";

$hlth = $tohit's health;
take 3 from $hlth;
if $hlth < 0 then zeroit;
set $tohit's health to $hlth;
$t = $target;
$target = $tohit;
$verb = (struck,knocked back,blown back,blown over);
$adj = (powerful,burning,searing);
$noun = (wave,force,blast,rush,onslaught);
say 'burn',"[$tohit] is $verb by a $adj $noun of heat!";
$target = $t;
if $hlth < 1 then saydead;
runsub alldone;

##zeroit:
$hlth = 0;

##saydead:
say 'msg',"[$tohit] is burned to death.";

##alldone:
$charge = $actor's health;
take 1 from $charge;
if $charge > 0 then continue else gone;
multiset $actor to "host=0,hosthow='',pose='hidden',counter=0,health='$charge',loc='$weapon'";
relook $loc;
switch $actor off;

##gone:
$weapon = 0;