#include "sfall.h"
#include "define_extra.h"

procedure KEYPRESS begin
   variable key = get_sfall_arg_at(1);
   variable critter;
   variable critters_in_radius;
   if key == 45 then begin//DIK_X
      critters_in_radius = objects_in_radius(tile_num(dude_obj), 50, elevation(dude_obj), OBJ_TYPE_CRITTER);
   end
end

procedure start begin
   if game_loaded then begin
      register_hook_proc(HOOK_KEYPRESS, KEYPRESS);
   end
end