[ITEMDEF i_mapa_tesouro_pote]
ID=i_bottle_liquor
TYPE=t_normal
NAME=Pote com mapa

ON=@Create
more1=<HVAL {1 999999}>

ON=@Dclick
serv.newitem i_sea_mapa_tesouro
IF !(<R20>)
new.color=0481
new.name=Ancient Treasure Map
ENDIF
src.bounce <new>
consume 1

[FUNCTION removetimer]
LOCAL.LASTNEW=<NEW>
SERV.NEWITEM i_removetimer_mem
EQUIP <NEW>
NEW.TIMER=<ARGN1>
NEW=<LOCAL.LASTNEW>

[ITEMDEF i_removetimer_mem]
ID=i_memory
NAME=remove timer
TYPE=t_eq_script

ON=@Timer
cont.remove
return 1

[EOF]