if target of push then spawnit;

##spawnit:
$button = $actor;
$killit = $init_obj;
print "You here a deep voice boom '[$killit] .. your choice is made'";
runsub numb1;

##numb1:
find $actor, spawned1;
copy $found_id;
$monst = $new_id;
$nami = (goblin, kobold, imp);
multiset $monst = "class='$nami',loc=$loc";
find $actor, greatclub;
copy $found_id;
$weap = $new_id;
set $weap's loc to $loc;
print "[$monst] and [$weap] fall from the sky";
$actor = $monst;
call "wield $weap";
call "attack $killit";
$actor = $button;
find $actor, spawned2;
copy $found_id;
$monst2 = $new_id;
find $actor, spawnweap;
copy $found_id;
$weap2 = $new_id;
var $nami2 to (human, elf, dwarf, hobgoblin, nymph);
multiset $monst2 = "class='$nami2',loc=$loc";
set $monst2's healthmax to 25;
set $monst2's health to 25;
var $typi2 to (shortsword, hatchet, longdagger, mallet);
multiset $weap2 = "class='$typi2',loc=$loc";
$actor = $monst2;
print "[$monst2] and [$weap2] fall from the sky";
call "wield $weap2";
call "attack $killit";
$actor = $button;
find $actor, spawned3;
copy $found_id;
var $monst3 to $new_id;
find $actor, weapspawn;
copy $found_id;
var $weap3 to $new_id;
var $nami3 to (drow, ogre, vampire, mohrg, troll, hill giant);
multiset $monst3 = "class='$nami3',loc=$loc";
set $monst3's healthmax to 40;
set $monst3's health to 40;
var $typi3 to (warhammer, battleaxe, longsword, flail);
multiset $weap3 = "class='$typi3',loc=$loc";
print "[$monst3] and [$weap3] fall from the sky";
$actor = $monst3;
call "wield $weap3";
call "attack $killit";
$actor = $button;
find $actor, spawned4;
copy $found_id;
var $monst4 to $new_id;
find $actor, wespawnap;
copy $found_id;
var $weap4 to $new_id;
var $nami4 to (nightstalker, storm giant, leshay, vampire lord, werewolf);
multiset $monst4 = "class='$nami4',loc=$loc";
set $monst4's healthmax to 65;
set $monst4's health to 65;
var $typi4 to (greatsword, maul, spiked chain, dire flail);
multiset $weap4 = "class='$typi4',loc=$loc";
print "[$monst4] and [$weap4] fall from the sky";
$actor = $monst4;
call "wield $weap4";
call "attack $killit";