##calls: runsub ismaster;
##push: runsub whoispushed;
##zap: runsub whoispushed;
##shoot: runsub whoispushed;
##talk: runsub ismaster2;

##ismaster:
if $init_obj eq 15760 or $init_obj eq 87 then checkcaller else checkcaller2;

##checkcaller:
if $actor eq $target then movetocaller else end;

##checkcaller2:
if $actor eq $target then cannotcall else end;

##cannotcall:
call "shout why should I obey you, [$init_obj]?";

##movetocaller:
var $dest to $init_obj's loc;
if $dest > 0 then movenow else end;
##movenow:
say 'force',"force:look";
set $actor's loc to $dest;
msg $dest,$actor,0,0,'force',"force:look";
msg $dest,$actor,$dest,0,'msg',"[$init_obj] just summoned [$actor] !";

##whoispushed:
if 15760 eq $target or 87 eq $target then protect else isitme;

##protect:
say 'msg',"[$actor] says '[$init_obj], you have attacked my master... now you will feel my power...'";
say 'msg',"...[$actor] is doing some strange gestures...";
say 'msg',"...[$actor] is saying something but [$init_obj] couldn't understand anything...";
say 'msg',"...[$init_obj] is so afraid that it cannot move...";
say 'msg',"...the Sun becomes covered by large dark clouds... You can hear a loud thunder...";
say 'msg',"...and another one...";

say 'msg',"[$init_obj] says 'Please, stop! This was the last time i attacked [$target]!'";
say 'msg',"[$actor] says 'I hope so...'";
say 'msg',"...The black clouds have disappeared...";

##isitme:
if $actor eq $target then defend else end;

##defend:
say 'msg',"[$actor] says 'What? you dare to attack ME?'";
say 'msg',"Multiple lightnings come from [$actor]'s hands towards [$init_obj]'";
call "zap $init_obj";

##ismaster2:
if $init_obj eq 15760 or $init_obj eq 87 then checkme else end;

##checkme:
if $target eq $actor then return else end;

##return:
var $dest to 16191;
var $dloc to $dest's loc;
if $dloc > 0 then return2 else end;

##return2:
say 'force',"force:look";
say 'msg',"[$actor] mysteriously disappears!";
set $actor's loc to $dloc;
msg $dloc,$actor,0,0,'force',"force:look";