[function freeze]
if 0<src.tag.icefreeze> == 1
  forcharlayer layer_special
    if (<baseid> = i_mem_ica)
      src.sysmessage @1153 Birdahaki Icin <eval <timer>> saniye beklemelisin.
      return 1
    endif
  endfor
  if (<src.region.safe> == 1)
    src.sysmessage @1153 Safe Alanda Atamazsin
    return 1
  endif
  src.newitem i_mem_ica
  new.timer 300
  new.equip
  ica_nocheck
  return 1
endif

[itemdef i_mem_ica]
name=ica_memory
id=i_memory
type=t_eq_script

on=@timer
  remove
  return 1

[function ica_nocheck]
serv.newitem i_mem_icemake
new.timer 5
new.equip
return 1

[itemdef i_mem_icemake]
name=ice_maker
id=i_memory
type=t_eq_script

on=@equip
target Select a target
return 1

on=@timer
remove
return 1

on=@targon_char
if <src.targ.canseelos>
  if <src.targ.distance> < 15
    if <src.targ.npc>
      src.sysmessage @95,,1 Vendorlara Atamazsin
      return 1
    endif
    if <src.targ.restest 1 i_ica_memory_targ>
      src.sysmessage @1153 Buzu Atmak Icin Birini Secmelisin
      return 1
    endif
    serv.newitem i_ica_memory_targ
    new.timer 60
    src.targ.equip <new.uid>


SRC.TARG.NEWITEM=i_fx_FROST1
SRC.TARG.ACT.ATTR=attr_decay
SRC.TARG.ACT.TIMER=3
SRC.TARG.ACT.P=<SRC.targ.P>
SRC.TARG.ACT.NUDGEUP 2
SRC.TARG.ACT.MOVE 1
SRC.TARG.NEWITEM=i_fx_FROST1
SRC.TARG.ACT.ATTR=attr_decay
SRC.TARG.ACT.TIMER=3
SRC.TARG.ACT.P=<SRC.targ.P>
SRC.TARG.ACT.NUDGEUP 2
SRC.TARG.ACT.MOVE 0 1
SRC.TARG.NEWITEM=i_fx_FROST1
SRC.TARG.ACT.ATTR=attr_decay
SRC.TARG.ACT.TIMER=3
SRC.TARG.ACT.P=<SRC.targ.P>
SRC.TARG.ACT.NUDGEUP 2
SRC.TARG.ACT.MOVE -1
SRC.TARG.NEWITEM=i_fx_FROST1
SRC.TARG.ACT.ATTR=attr_decay
SRC.TARG.ACT.TIMER=3
SRC.TARG.ACT.P=<SRC.targ.P>
SRC.TARG.ACT.NUDGEUP 2
SRC.TARG.ACT.MOVE 0 -1
SRC.TARG.NEWITEM=i_fx_FROST_Floor1
SRC.TARG.ACT.ATTR=attr_decay
SRC.TARG.ACT.TIMER=3
SRC.TARG.ACT.P=<SRC.targ.P>
SRC.TARG.ACT.NUDGEUP 2
SRC.TARG.NEWITEM=i_fx_FROST_Floor1
SRC.TARG.ACT.ATTR=attr_decay
SRC.TARG.ACT.TIMER=3
SRC.TARG.ACT.P=<SRC.targ.P>
SRC.TARG.ACT.NUDGEUP 2
SRC.TARG.ACT.MOVE 1 1
SRC.TARG.NEWITEM=i_fx_FROST_Floor1
SRC.TARG.ACT.ATTR=attr_decay
SRC.TARG.ACT.TIMER=3
SRC.TARG.ACT.P=<SRC.targ.P>
SRC.TARG.ACT.NUDGEUP 2
SRC.TARG.ACT.MOVE 1 -1
SRC.TARG.NEWITEM=i_fx_FROST_Floor1
SRC.TARG.ACT.ATTR=attr_decay
SRC.TARG.ACT.TIMER=3
SRC.TARG.ACT.P=<SRC.targ.P>
SRC.TARG.ACT.NUDGEUP 2
SRC.TARG.ACT.MOVE -1 1
SRC.TARG.NEWITEM=i_fx_FROST_Floor1
SRC.TARG.ACT.ATTR=attr_decay
SRC.TARG.ACT.TIMER=3
SRC.TARG.ACT.P=<SRC.targ.P>
SRC.TARG.ACT.NUDGEUP 2
SRC.TARG.ACT.MOVE -1 -1
remove 1


    return 1
  else
    src.sysmessage @1153 Çok Uzak
    return 1
  endif
else
  src.sysmessage @1153 Bos Gitti
  return 1
endif

[itemdef i_ica_memory_targ]
name=freezetarget
id=i_memory
type=t_eq_script 
on=@timer
  remove
  return 1




[ITEMDEF i_fx_FROST1]
ID=08e0
Name=Frost Buildup

ON=@TIMER
REMOVE
on=@create
Color=0480

[ITEMDEF i_fx_FROST_floor1]
ID=0343b
Name=Frost Covering

ON=@TIMER
REMOVE
on=@create
Color=0480

[ITEMDEF i_fx_recover1]
ID=0376a
Name=Healing Wind
ON=@TIMER
REMOVE
on=@create
Color=0480

[ITEMDEF i_fx_frozen_stalagmites1]
ID=i_fx_glow_spike
Name=phrozen stalagmites
RETURN 1
ON=@TIMER
REMOVE
on=@create
Color=0f8f