##push:runsub isitme;
##put:runsub isonme;
##look:runsub say2;
##call:runsub isitme2;
##isitme2:
if $actor eq $target then goto else end;

##goto:

var $dest to 15760;
var $dloc to $dest's loc;
call "You called me.";

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

##isonme:
if $second eq $actor then throw else end;

##throw:

call "throw $target to $init_obj";

##shoot:
call "How dare you, [$init_obj]?";
find $loc,Desert Eagle;

call "shoot $init_obj with $found_id";
say 'msg',"[$init_obj] says 'OUCH!'";
call "say Don't push me again, [$init_obj]";

##say2:
say 'ask',"[$actor] asks 'Are you looking for something?'";