get $target in $loc;
if $target > 0 then checkid else list;
##checkid:
say 'msg',"[$target]'s ID is $target";
##list:
var $click_cmd to 'checkid';
var $desc_intro to 'Click on the object you want to checkid:

';
look $loc,list;
msg $loc,$actor,$actor,0,'force',"force:look $loc,list";