##tickloc:runsub ticked;

##ticked:
$cnt = $actor's counter;
$fromhit = $actor's slot1;
$tohit = $actor's slot2;
runsub doinit;
runsub dodamage;
runsub alldone;

##doinit:
say 'msg',"[$fromhit] casts [$actor] at [$tohit]!";
update $actor = "pose='giving off sparks',host='$tohit',hosthow='around'";
relook $loc;

##dodamage:
$hlth = $tohit's health;
take 6 from $hlth;
if $hlth < 0 then zeroit;
set $tohit's health to $hlth;
$verb = (is shocked by,feels jolted from,convulses from,is zapped by,crackles and sparks from);
$obj = (electricity,current,juice,voltage);
$t = $target;
$target = $tohit;
say 'shock',"[$tohit] $verb the $obj!";
$target = $t;
if $hlth > 0 then continue else saydead;

##zeroit:
$hlth = 0;

##saydead:
$verb = (is shocked,is jolted,convulses,is zapped);
say 'msg',"[$tohit] $verb to death.";

##alldone:
unhost $actor;
clear $actor,all;
update $actor = "loc=0,host=0,hosthow='',counter=0,switch=0";
relook $loc;

##difficultdata:
$dcommand = 'cast';
$dlevel = 2;
$dreq = 4;
$dskill = 'sorcery';
$dskillcap = 10;
$dskilltip = 69431;

##failcast:
"[$init_obj]'s attempt fizzles.";