[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