Под рукой сферы нет, но как то так. Перемещает и игроков и предметы
Код
[PLEVEL 2]
moveto
[FUNCTION moveto]
IF (<UID.<ARGO.UID>.IsChar>==0)
SRC.SYSMESSAGE @100,3,1 Куда перемещаем предмет?
SRC.TARGETFG Move_Item_To <ARGO.UID>
ELSE
SRC.SYSMESSAGE @100,3,1 Куда вы хотите переместить <ARGO.NAME>?
SRC.TARGETFG Move_Char_To <ARGO.UID>
ENDIF
[FUNCTION Move_Item_To]
UID.<ARGN>.P=<TargP>
[FUNCTION Move_Char_To]
UID.<ARGN>.GO <TargP>