hum. tatam!

[ITEMDEF vendrepipe]
DEFNAME=i_vendre_pipe
NAME=Vente de pipe
ID=i_crate_small_2
TYPE=T_NORMAL
WEIGHT=1

ON=@Create
COLOR=color_o_fer

CATEGORY=Drogue
SUBSECTION=weed
DESCRIPTION=vente pipe

ON=@Dclick
IF <SRC.RESTEST 5000 i_gold>
SRC.MESSAGE Chaque pipe coute 5 000 pieces
SRC.NEWITEM i_pipe_weed
SRC.ACT.Bounce
SRC.CONSUME=5000 i_gold
SRC.EMOTE Prend une pipe
RETURN 1
ENDIF
return 1

[ITEMDEF weed_plante]
DEFNAME=i_weed_plante
NAME=Herbe a fumer
TYPE=t_normal
ID=0cad
CATEGORY=Drogue
SUBSECTION=plante
DESCRIPTION=plante

ON=@DCLICK
attr=attr_invis
Timer=60*60*2
SRC.NEWITEM i_feuille_weed
SRC.ACT.BOUNCE
SRC.NEWITEM i_feuille_weed
SRC.ACT.BOUNCE
SRC.NEWITEM i_feuille_weed
SRC.ACT.BOUNCE
SRC.NEWITEM i_feuille_weed
SRC.ACT.BOUNCE
return 1
ON=@TIMER
attr=08000

[ITEMDEF feuille_weed]
DEFNAME=i_feuille_weed
NAME=Feuille de plante a fumer
TYPE=T_normal
ID=0cb2
CATEGORY=DROGUE
SUBSECTION=plante
DESCRIPTION=Feuille

[ITEMDEF pipe_weed]
DEFNAME=i_pipe_weed
NAME=Pipe a herbe
TYPE=t_normal
ID=i_bottle_3
CATEGORY=Drogue
SUBSECTION=Pipe
DESCRIPTION=Pipe

On=@Create
color=color_o_fer

On=@Dclick
IF <SRC.RESTEST i_feuille_weed>
SRC.CONSUME=1 i_feuille_weed
SRC.FLAGS 000400000
SRC.FIX
SRC.emote fume de la pipe a herbe
SRC.emote te sent bizarre
SOUND=00db
LINK=<SRC.SERIAL>
SRC.NEWITEM i_timer_drogue
SRC.ACT.p <src.p>
SRC.ACT.LINK <SRC.SERIAL>
RETURN 1
ENDIF
ELSE
SRC.MESSAGE Vous ne pouvez fumer puisque vous n´avez pas de feuille a fumer !
ENDIF
return 1
[ITEMDEF i_timer_drogue]
Name=item de timer de drogue
ID=i_gold

ON=@Create
ATTR=attr_invis|attr_decay
Timer 60

ON=@Timer
LINK.remove
LINK.FLAGS=000000000
LINK.FIX
LINK.SAY *les effets de la drogue se discipe*
remove
RETURN 1
[EOF]