##tickloc:runsub ticked;

##ticked:
$cnt = $actor's counter;
$fromhit = $actor's slot1;
$tohit = $actor's slot2;
$weapon = $actor's slot3;
if $cnt > 0 then sing else doinit;
if $cnt > 10 then alldone;

##doinit:
say 'msg',"[$weapon] glows brightly for a moment, and an angelic creature comes to [$fromhit]'s aid!";
call "attack $tohit";
set $actor's counter to 1;

##sing:
if $tohit's health > 0 then continue else wewin;
if $actor's health < 0 then actdead else sing2;

##sing2:
$cnt = $actor's counter;
add 1 to $cnt;
set $actor's counter to $cnt;
$roll = random 2;
case $roll do sing3;

##sing3:
$verb = (twirls,prances,swoops,dances);
$adj = (glorious,praiseworthy,pious,joyful,cheerful,powerful,angelic,immaculate);
$adj2 = (battle,fighting,jihad,war,combat);
$what = (jig,waltz,samba,boogie,foxtrot,jive,rhumba,sambo,shimmy,strut,twist);
say 'msg',"[$actor] $verb the $adj $adj2 $what.";

##actdead:
say 'msg',"[$actor] is knocked out of this realm";
set $actor's counter to 11;

##wewin:
say 'msg',"[$actor] discos to a song of praise and glory to the victor, [$fromhit]!";
set $actor's counter to 11;

##alldone:
say 'msg',"[$actor] leaves to a higher plane of existence.";
set $actor's loc to $weapon;
unhost $actor;
set $actor's host to 0;
set $actor's hosthow to '';
set $actor's counter to 0;
set $actor's pose to '';
set $actor's health to $actor's healthmax;
relook $loc;
switch $actor off;