16:-swi_module(modTeleport, []). 17
18:- include(prologmud(mud_header)). 19
21
23baseKB:action_info(actTeleport(isOptional(isAnd([tObj,isNot(tRegion)]),isSelfAgent),isOptionalStr("to"),isOptional(tRegion,isRandom(tRegion))),"teleport [obj] [to] [somewhere]").
24
25baseKB:text_actverb(tp,actTeleport).
26
28baseKB:agent_call_command(_Agent,actTeleport(Other,_TO,Where)):-
29 coerce(Other,tObj,Target),
30 coerce(Where,tRegion,Location),
31 detatch_object(Target),
32 to_3d(Location,Where3D),
33 ain(mudAtLoc(Target,Where3D)).
34
35
36:- include(prologmud(mud_footer)).