##use:runsub whattodo;
##whattodo:if $actor eq $target then hehe else end;
##hehe:if $init_obj's name like "(superblah)" then happy else doom;
##doom:
say 'msg',"[$init_obj] starts the long speech to summon a dijinni";
say 'msg',"A djinn appears from nowhere in [$actor]";
say 'msg',"The djinn whispers, 'congratualtions....'";
say 'msg',"The djinn continues 'YOU FORGOT A WORD! NOW PAY FOR IT WITH BLOOD!'";
say 'msg',"[$init_obj] screams as the djinn steps out of [$actor] and towards them";
say 'msg',"The djinn bends over [$init_obj] and eats them";
say 'msg',"The djinn spits out [$init_obj] and mutters, 'possibly the most disgusting...never again...foolish....so nasty....' and disappears";

rem - take of money;
var $mny to 500;
add 1 to $mny;
var $omny to $target's worth;
var $amny to $actor's worth; rem - read actors worth;
take $mny from $omny;
take $mny from $amny; rem - take money of actors worth;
set $actor's worth to $amny; rem - write new value back;
if $omny > 0 then curse else blackout;

##blackout:
set $target's worth to 1;
set $target's slot1 to "";
##endnow:

##old_moveit_code:
rem - this is just the beach ball bouncing away code for now;
find $loc,random doorway;
var $tlink to $found_id's link;
var $tloc to $tlink's loc;
say 'leaves',"[$target] stumbles away via [$found_id]";
clear $actor,all;
msg $loc,$target,0,0,'force',"force:look $loc";
set $target's loc to $tloc;
var $loc to $tloc;
msg $tloc,$target,0,0,'arrives',"[$target] stumbles in from [$tlink] and collapses on the ground";
msg $tloc,$actor,0,0,'force',"force:look $tloc";


##fail:
say 'blastfail',"[$actor] tried to hit $cmd_text but missed";

##happy:
say 'msg',"[$init_obj] makes a few weird symbols and signs with their hands and starts to speak in different laguages";
say 'msg',"As soon as [$init_obj] is done, a dijinni appears in [$actor] and says humbly, 'What do wish me to do, master?'";
say 'msg',"[$init_obj] smiles evily to theirself with the possibilities";