Trapped pouch hakkında...

an ex por yediğinizde 5 şarj ı birden harcıyor ben istiyorumki her defasında 1 er 1 er harcıcak ama uğraştım yapamadım???

[plevel 1]
tp

[function tp]
if (<src.flags>&statf_dead)
src.sysmessage Bu komutu kullanamazsiniz...
return 1
elseif (<src.restest 1 i_stuck_slayer>)
src.sysmessage Stuck kullanirken bu komut kapalidir...
return 1
elseif (<src.restest 1 i_travel_slayer>)
src.sysmessage Travel Stone kullanirken bu komut kapalidir...
return 1
elseif (<src.restest 1 i_stunol>)
src.sysmessage Sersemlemis halde oldugunuz icin bunu kullanamadiniz...
return 1
elseif (<src.restest 1 i_parablow>)
src.sysmessage Su an paradarbe aldiginiz icin bunu kullanamadiniz...
return 1
elseif (<src.findid.i_mageryfix>)
src.sysmessage Su anda tp kullanamazsiniz...
return 1
endif

if (<src.findid.i_pouch_trapped>)
src.flags <src.FLAGS>&~statf_freeze
src.findid.i_pouch_trapped.dclick
src.effect 3,i_fx_explode,3,25,1
src.sound snd_spell_explosion
src.anim 20
if (<src.hits> > 5)
src.hits <src.hits> + -5
else
src.hits 0
endif
else
src.sms Cantanizda tp yok...
endif

[ITEMDEF i_pouch_trapped]
ID=i_pouch
NAME=a trapped pouch
WEIGHT=4
SKILLMAKE=TINKERING 65.0,t_tinker_tools
RESOURCES=20 i_log
TYPE=t_script

ON=@DClick
if (<more2> == 1)
src.effect 3,i_fx_explode,3,25,1
src.sound snd_spell_explosion
src.anim 20
remove
return 1
endif

if (<more2> == 0)
remove
else
src.effect 3,i_fx_explode,3,25,1
src.sound snd_spell_explosion
src.anim 20
more2 (<more2> + (-1))
return 1
endif

on=@click
if (<more2> == 5)
src.tag.tpk Sarj : 5
elseif (<more2> == 4)
src.tag.tpk Sarj : 4
elseif (<more2> == 3)
src.tag.tpk Sarj : 3
elseif (<more2> == 2)
src.tag.tpk Sarj : 2
elseif (<more2> == 1)
src.tag.tpk Sarj : 1
elseif (<more2> == 0)
src.tag.tpk bitmis
remove
endif
message <src.tag.tpk>
message <name>
return 1

on=@create
color 00
more2 5

elseif ((<argn> == 38) || (<argn> == 47)) // paralyze & paralyze field

if (<findid.i_pouch_trapped>) 
ref1 =<findid.i_pouch.trapped>
if (<ref1.more2> > 1)
ref1.more2 -=1
effect 3,i_fx_explode,3,25,1
sound snd_spell_explosion
damage 20
return 1
else
effect 3,i_fx_explode,3,25,1
sound snd_spell_explosion
damage 20
ref1.remove
return 1
endif
endif