if target of push then stuffs;
##stuffs:
$killit = $init_obj;
print "You here a deep voice boom '[$killit] .. your choice is made'";
runsub affirma;
##affirma:
find $actor, spawnedepic;
copy $found_id;
var $monst to $new_id;
find $actor, magweap;
copy $found_id;
var $weap to $new_id;
runsub abili;
##abili:
var $nami to (black slaad, devastation beetle, gloom, adamantine golem, elder titan, paragon leshay);
multiset $monst = "class='$nami',loc=$loc";
set $monst's healthmax to 100;
set $monst's health to 100;
runsub whatweap;
##whatweap:
if $monst's class like "black slaad" then slaady else next;
##next:
if $monst's class like "devastation beetle" then beetley else next1;
##next1:
if $monst's class like "gloom" then gloomy else next2;
##next2:
if $monst's class like " adamantine golem" then golemy else next3;
##next3:
if $monst's class like " elder titan" then titany else next4;
##next4:
if $monst's class like "paragon leshay" then leshaye else error;
##error:
print "debug please";
##slaady:
var $typi to (long claws, sharp claws);
multiset $weap = "class='$typi',loc=$loc";
runsub formy;
##beetley:
var $typi to (large mandibles, massive claws);
multiset $weap = "class='$typi',loc=$loc";
runsub formy;
##gloomy:
var $typi to (long dagger, kris);
multiset $weap = "class='$typi',loc=$loc";
runsub formy;
##golemy:
var $typi to (massive fists, blade hands);
multiset $weap = "class='$typi',loc=$loc";
runsub formy;
##titany:
var $typi to (titan maul, titan sword);
multiset $weap = "class='$typi',loc=$loc";
runsub formy;
##leshaye:
var $typi to (hand-and-a-half sword, waraxe);
multiset $weap = "class='$typi',loc=$loc";
runsub formy;
##formy:
set $weap's healthmax to 40;
set $weap's health to 40;
find $actor, vorpal slice;
copy $found_id;
set $found_id's loc to $weap;
runsub formation;
##formation:
print "[$monst] and [$weap] fall from the sky";
$actor = $monst;
call "wield $weap";
call "attack $killit";