##tickloc:runsub ticked;

##ticked:
var $fromhit to $actor's slot1;
var $tohit to $actor's slot2;
var $weapon to $actor's slot3;
say 'msg',"[$actor] shoots out of [$fromhit] towards [$tohit]!";

var $hlth to $tohit's health;
take 4 from $hlth;
if $hlth < 0 then zeroit;
set $tohit's health to $hlth;
say 'msg',"[$tohit] is zapped by [$actor]!";

set $actor's loc to $weapon;
unhost $actor;
relook $loc;
switch $actor off;

##zeroit:
$hlth = 0;