Best i can do wub.gif

CODE
[itemdef i_tele_crook]
defname i_tele_crook
id 0e81
name Tele Crook

on=@dclick
if (<src.isgm>)
targetg Target to teleport.
else
remove
endif
return 1

on=@targon_item
if !(<link>)
  src.go <src.targ.p>
else
  link.go <src.targ.p>
  link 0
endif
return 1

on=@targon_ground
if !(<link>)
  src.go <src.targp>
else
  link.go <src.targp>
   link 0
endif
return 1

on=@targon_char
link <src.targ>
  targetg Target to teleport <src.targ.name>.
   return 1

on=@targon_cancel
link 0
  return 1