[PLEVEL 2]
mtele
[FUNCTION mtele]
NEWITEM mtele_item
ACT.CONT <UID>
ACT.TARGETG @0791 Select Target.
[ITEMDEF mtele_item]
ID=i_memory
TYPE=t_eq_script
ON=@Create
TIMER=20
ON=@Timer
REMOVE
RETURN 1
ON=@Targon_ground
SRC.GO <SRC.TARGP>
SRC.MTELE
REMOVE
RETURN 1
ON=@Targon_char
SRC.GO <SRC.TARG.P>
SRC.MTELE
REMOVE
RETURN 1
ON=@Targon_item
SRC.GO <SRC.TARG.P>
SRC.MTELE
REMOVE
RETURN 1
[function mtele]
src.newitem=i_mtele
src.act.equip
src.act.timer=30
src.sysmessage @0bb2 Target secin.
return 1
[itemdef i_mtele]
ID=i_gold
TYPE=t_eq_script
ON=@EQUIP
targetg
ON=@TARGON_GROUND
src.go=<src.targp>
mtele
remove
return 1
ON=@TARGON_ITEM
src.go=<src.targp>
mtele
remove
return 1
ON=@TARGON_CHAR
src.go=<src.targp>
mtele
remove
return 1
ON=@TIMER
remove
return 1
[PLEVEL 2]
mtele
[function mtele]
sysmessage @1153 Nereye Teleport Olacaksin?
TARGETFG f_telex2
[function f_telex2]
p=<TARGP>
UPDATE
TARGETFG f_telex2