src.findtype(t_key).remove
[FUNCTION f_remove_keys]
FOR 0 <SRC.FINDLAYER.21.RESCOUNT>
IF (<SRC.FINDLAYER.21.FINDCONT(<LOCAL._FOR>).DISPID>==i_key_copper)
IF (<SRC.FINDLAYER.21.FINDCONT(<LOCAL._FOR>).LINK.TYPE>==t_multi)
TRY UID.<SRC.FINDLAYER.21.FINDCONT(<LOCAL._FOR>).UID>.REMOVE
ENDIF
ENDIF
IF (<SRC.FINDLAYER.29.FINDCONT(<LOCAL._FOR>).DISPID>==i_key_copper)
IF (<SRC.FINDLAYER.29.FINDCONT(<LOCAL._FOR>).LINK.TYPE>==t_multi)
TRY UID.<SRC.FINDLAYER.29.FINDCONT(<LOCAL._FOR>).UID>.REMOVE
ENDIF
ENDIF
ENDFOR
[itemdef i_redeeder]
id=i_memory
weight=0
layer=layer_special
type t_eq_script
On=@Equip
F_remove_keys
cont.sysmessage Ev kaldiriliyor, lutfen bekleyin.
timer 2
On=@UnEquip
cont.newitem <more2>
cont.act.attr 04
cont.act.bounce
On=@Timer
remove
return 1
[FUNCTION f_remove_keys_ship]
FOR 0 <SRC.FINDLAYER.21.RESCOUNT>
IF (<SRC.FINDLAYER.21.FINDCONT(<LOCAL._FOR>).DISPID>==i_key_copper)
IF (<SRC.FINDLAYER.21.FINDCONT(<LOCAL._FOR>).LINK.TYPE>==t_ship)
TRY UID.<SRC.FINDLAYER.21.FINDCONT(<LOCAL._FOR>).UID>.REMOVE
ENDIF
ENDIF
IF (<SRC.FINDLAYER.29.FINDCONT(<LOCAL._FOR>).DISPID>==i_key_copper)
IF (<SRC.FINDLAYER.29.FINDCONT(<LOCAL._FOR>).LINK.TYPE>==t_ship)
TRY UID.<SRC.FINDLAYER.29.FINDCONT(<LOCAL._FOR>).UID>.REMOVE
ENDIF
ENDIF
ENDFOR