Bir çözüm buldum !

[itemdef i_ore_ekleme]
id i_grave_stone
name a Ore Tasi

ON=@create
color 0104
attr attr_static

ON=@Click
message @60,,1 <name>
message @0481 Ore eklemek icin lutfen cift tiklayiniz..
return 1

ON=@Dclick
target @60,,1 Satmak istediginiz ore'u seciniz..
return 1

ON=@targon_item
if (<src.mining> < 100)
src.sysmessage Mining Skill'iniz zaten 100 Daha Fazla Yukseltemezsiniz.
return 1
elseif !(<src.targ.baseid> == i_ore_iron)
src.sysmessage @60,,1 Bu bir iron ingot degil..!
return 1
elseif (<src.targ.amount> < 10)
src.sysmessage @60,,1 Ore yeterli degil..!
return 1
else
src.mining=<src.mining>+1
src.consume 10 i_ore_iron
src.sound 511
src.sysmessage @60,,1 Skilliniz artmistir.
src.targ.remove
return 1
endif

ON=@targon_char
src.sysmessage @60,,1 Bu bir ore degil!!
return 1

[ITEMDEF 019b7]
// DEFNAME2=METAL_ORE_1
DEFNAME=i_ore_iron
NAME=Iron Ore
TYPE=t_ore
SKILLMAKE=MINING 20.0
TDATA1=i_ingot_iron
WEIGHT=2
VALUE=4
DUPELIST=019b8,019b9,019ba
CATEGORY=Items by Professions
SUBSECTION=Blacksmiths
DESCRIPTION=Ore (Small Pile)

Bir yerinde derken, neresinde? Skill mi vermiyor?

[itemdef i_ore_ekleme]
id i_grave_stone
name a Ore Tasi

ON=@create
color 0104
attr attr_static

ON=@Click
message @60,,1 <name>
message @0481 Ore eklemek icin lutfen cift tiklayiniz..
return 1

ON=@Dclick
target @60,,1 Satmak istediginiz ore'u seciniz..
return 1

ON=@targon_item
if !(<src.targ.baseid> == i_ore_iron)
src.sysmessage bu ore degil.
return 1
elseif (<src.mining> == 100)
src.sysmessage daha fazla yukselemez..
return 1
elseif (<src.targ.amount> < 10)
src.sysmessage en az 10 ore..
return 1
else
src.consume 10 i_ore_iron
src.mining <src.mining>+1
src.sysmessage skill aldin!
return 1
endif
ON=@targon_char
src.sysmessage @60,,1 Bu bir ore degil!!
return 1

[ITEMDEF 019b7]
// DEFNAME2=METAL_ORE_1
DEFNAME=i_ore_iron
NAME=Iron Ore
TYPE=t_ore
SKILLMAKE=MINING 20.0
TDATA1=i_ingot_iron
WEIGHT=2
VALUE=4
DUPELIST=019b8,019b9,019ba
CATEGORY=Items by Professions
SUBSECTION=Blacksmiths
DESCRIPTION=Ore (Small Pile)

Bence bu bir çözüm değil facia olurdu Böyle skill kasmak diye birşey olur mu?Skill'i 100 olan arkadaşın çıkartsın oreleri sana versin sen 5 dakikada yüzle.Ne kıyak iş değil mi ?

Benim aklıma daha iyi birşey geldi

[Skill 45]
DEFNAME=Skill_MINING
KEY=Mining
TITLE=Miner
PROMPT_MSG=
DELAY=0.2
STAT_STR=85
STAT_INT=20
STAT_DEX=45
BONUS_STR=70
BONUS_DEX=30
BONUS_INT=0
BONUS_STATS=70
ADV_RATE=10.0,20.0,30.0
VALUES=1,10,80

On=@Fail
src.sysmessage @0810 Bir Maden Çıkartamadınız...
return 1

On=Start
src.mininggain
return 1

[Function mininggain]
if (<cont.mining> < 30.0)
if (rand(2) == 1)
cont.mining (<cont.mining> + 1)
endif
elseif (<cont.mining> < 50.0)
if (rand(2) == 1)
cont.mining (<cont.mining> + 1)
endif
elseif (<cont.mining> < 75.0)
if (rand(4) == 1)
cont.mining (<cont.mining> + 1)
endif
elseif (<cont.mining> < 100.0)
if (rand(8) == 1)
cont.mining (<cont.mining> + 1)
endif
endif
endif

(56b'ye hakimiyetim yok.cont diye bir komut kaldımı bilmiyorum )

Yukardaki Ph gain ayarı ama sende zaten böyle birşey var ona gerek yok

lseif (<src.mining> == 100)
src.sysmessage daha fazla yukselemez..
return 1
src.consume 10 i_ore_iron
src.mining <src.mining>+1
src.sysmessage skill aldin!

eğer ph 'i % 100 olarak ayarlıyacaksan [skill 45 ] in altına

On=@success
src.sysmessage @0 Basardiniz ve becerinizi gelistirdiniz.
src.mining=<src.mining>+1

eklersen sorun kalmaz eğer ph ayarlıyacaksan rand kullanarak yapabilirsin.

on=@success
if (<src.mining> < 100)
src.sysmessage @0 Basardiniz ve becerinizi gelistirdiniz.
src.mining=<src.mining>+1

Böyle yaparsan daha sağlıklı olur.

kazi yapinca skill in artar.