if target of pull then stuffs;
##stuffs:
$killit = $init_obj;
msg 0,$actor,0,0,'shout',"You here something shout 'An Abomination is Challenged!!'",$actor;
find $actor, abomi;
copy $found_id;
var $monst to $new_id;
find $actor, uberweap;
copy $found_id;
var $weap to $new_id;
var $nami to (xixecal, phaethon, dream larva, atropal, infernal, hecatoncheires);
multiset $monst = "class='$nami',loc=$loc";
set $monst's healthmax to 300;
set $monst's health to 300;
runsub whatweap;
##whatweap:
if $monst's class like "xixecal" then icy else next;
##next:
if $monst's class like "phaethon" then fiery else next1;
##next1:
if $monst's class like "dream larva" then mindy else next2;
##next2:
if $monst's class like "atropal" then baby else next3;
##next3:
if $monst's class like " infernal" then fiendish else next4;
##next4:
if $monst's class like "hecatoncheires" then death else error;
##error:
print "debug please";
##icy:
var $typi to (massive feet, massive arms);
set $weap's class to $typi;
set $monst's aim to 30;
set $monst's aimcap to 40;
set $monst's dodge to 10;
runsub formy;
##fiery:
var $typi to (burning pseudopod, flaming maw);
set $weap's class to $typi;
set $monst's aim to 20;
set $monst's aimcap to 40;
set $monst's dodge to 15;
runsub formy;
##mindy:
var $typi to (cursed claws, accursed fist);
set $weap's class to $typi;
set $monst's aim to 20;
set $monst's aimcap to 40;
set $monst's dodge to 20;
runsub formy;
##baby:
var $typi to (rotting hand, large umbilicalcord);
set $weap's class to $typi;
set $monst's aim to 30;
set $monst's aimcap to 40;
set $monst's dodge to 10;
runsub formy;
##fiendish:
var $typi to (large greatsword, large maul);
set $weap's class to $typi;
set $monst's aim to 30;
set $monst's aimcap to 40;
set $monst's dodge to 24;
runsub formy;
##death:
var $typi to (insanely large sword);
set $weap's class to $typi;
set $monst's aim to 30;
set $monst's aimcap to 40;
set $monst's dodge to 25;
runsub formy2;
##formy:
set $weap's healthmax to 200;
set $weap's health to 200;
find $actor, severe trauma;
copy $found_id;
set $found_id's loc to $weap;
runsub formation;
##formy2:
set $weap's healthmax to 400;
set $weap's health to 400;
find $actor, shadow of death;
copy $found_id;
set $found_id's loc to $weap;
runsub formation;
##formation:
print "[$monst] and [$weap] walk in from a dimensional rift";
$actor = $monst;
call "wield $weap";
call "attack $killit";