if target of use then whoisit;

##whoisit:
if $init_obj = $actor's host then continue else toobad;

##continue:
var $funct to random 9;
if $funct = 1 then first else check;

##check:
if $funct = 2 then second else check2;

##check2:
if $funct = 3 then third else check3;

##check3:
if $funct = 4 then fourth else check4;

##check4:
if $funct = 5 then fifth else check5;

##check5:
if $funct = 6 then sixth else check6;

##check6:
if $funct = 7 then seventh else check7;

##check7:
if $funct = 8 then eighth else check8:

##check8:
if $funct = 9 then ninth else derror;

##first:
print "[$actor] briefly flashes green";
find $loc, random;
var $foo to $found_id;
set $actor's host's loc to $foo;
relook $loc;
relook $foo;

##second:
print "[$actor] sends out a pulse of violet light";
find $loc, random player;
var $hurty to $found_id;
print "[$hurty] doubles over in pain";
var $h1 to $hurty's health;
var $h2 to 5;
subtract $h2 from $h1;
set $hurty's health to $h1;

##third:
print "[$actor] glows blue for a moment";
var $w1 to $actor's host's worth;
var $w2 to 500;
add $w2 to $w1;
set $actor's host's worth to $w1;
var $w3 to $actor's host;
print "[$w3]'s money pouch looks fatter";

##fourth:
print "[$actor] is wrapped in shadow for a split second";
print "The Dark Bell doth toll";
var $t1 to 62227;
set $t1's loc to $actor's loc;
var $t2 to 60080;
set $t2's loc to $actor's loc;
var $t3 to $avtor's host;
$actor = $t1;
relook $loc;
call "attack $t3";

##fifth:
print "Smoke billows from [$actor]";
var $l1 to 49043;
var $l2 to $actor's host;
print "[$l2] is lost in the mists";
set $l2's loc to $l1's loc;
relook $loc;
relook $l2's loc;

##sixth:
print "Yellow runes briefly glow upon [$actor]'s surface";
var $o1 to (apple, screwdriver, snake, paper);
new $o1;
set $new_id's color to lightsteelblue;
print "[$new_id] comes into existance next to [$actor]";
relook $loc;

##seventh:
print "Effect 7";

##eighth:
print "Effect 8";

##ninth:
print "Effect 9";

##derror:
print "Please Debug [$actor]";