##axrrives:
runsub check;

##wish:
runsub check2;

##txickhour2:
runsub whattodo;

##whattodo:
runsub check2/1 or itsgotime/8;

##check:
if $actor's slot1 eq "egglaying" then callforhelp else defend;

##callforhelp:
var $minion to (19951,19950,35299,35301,35309);
say 'msg',"[$actor] screeches and calls for help!";
call "summon $minion";

##defend:
var $pest to $init_obj;
var $loc to $actor's loc;
var $dest to 19151;
say 'msg',"[$actor]'s tail darts forward towards [$pest]!";
sayto $pest,"[$actor]'s tail darts forward towards [$pest]!";
say 'msg',"[$pest] attempts to roll out of the way but gets speared throught the shoulder";
sayto $pest,"[$pest] attempts to roll out of the way but gets speared throught the shoulder";
say 'msg',"As [$actor] raises [$pest] to her face, [$pest] kicks out and hits [$actor] in the chin!";
sayto $pest,"As [$actor] raises [$pest] to her face, [$pest] kicks out and hits [$actor] in the chin!";
say 'msg',"[$actor] screeches, she flicks her tail out of [$pest]'s shoulder and spears it through [$pest]'s stomach";
say 'msg',"[$pest] passes out!";
sayto $pest,"[$pest] passes out!";
relook $loc;
say 'msg',"[$pest]'s body vanished when nobody was looking!";
set $pest's loc to 19151;
runsub rescued;
##rescued:
msg $loc,$actor,0,0,'force',"force:look $loc";
sayto $pest,"[$pest] wakes up with a headache and notices the several bandages around their arms and stomach";
set $pest's extra to "looking rather beat up";
sayto $pest,"One of [$pest]'s bandages has a note scrawled on it, it says: PLEASE be more careful!";
msg $loc,$actor,0,0,'force',"force:look $loc";
relook $dest;
##check2:
if $actor's slot1 eq "egglaying" then startegg else moveon;

##startegg:
copy 36142;
var $egg to $new_id;
runsub continueegg;

##continueegg:
copy 36202;
var $instinct to $new_id;
runsub nextpart;

##nextpart:
copy 36148;
var $spider to $new_id;
runsub lastcopy;

##lastcopy:
copy 35898;
var $product to $new_id;
runsub putitogether;

##putitogether:
set $product's loc to $spider;
set $spider's loc to $egg;
set $instinct's loc to $egg;
call "layegg $egg";

##moveon:
call "roam";