Stat Function

31 c:/sphere , Somalia
212.00 1940 0

///////////////////////Coded by : Basic
//////////// September 08 2008






[events e_stats]
on=@spellcast
if (!(<findlayer(32)> || <findlayer(44)> || <findlayer (47)>) && (<str> + <dex> + <int> > 225))
str <tag.stro>
dex <tag.dexo>
int <tag.into>
endif

on=@environchange
if (!(<findlayer(32)> || <findlayer(44)> || <findlayer (47)>) && (<str> + <dex> + <int> > 225))
str <tag.stro>
dex <tag.dexo>
int <tag.into>
endif

[plevel 1]
stat

[function stat]
src.dialog d_stat
src.sysmessage @07a1 Statlarinizi Korumaya Alin...

[dialog d_stat]
50,50
nomove
resizepic 150 150 3600 300 300
dtext 200 200 0455 Maximum Stat Points 225'dir
dtext 200 220 0455 Statlarinizi Korumaya Almayi
dtext 200 240 0455 Ihmal Etmeyiniz..!

dtext 200 280 0455 Str'niz Suanda : <src.str>
dtext 200 300 0455 Dex'iniz Suanda : <src.dex>
dtext 200 320 0455 Int'iniz Suanda : <src.int>

dtext 250 350 0455 Korumayi Kaldir
dtext 250 370 0455 Statlarimi Koru
dtext 250 400 0455 Kapat

button 160 160 52 52 1 0 0
button 220 350 57 58 1 0 1
button 220 370 57 58 1 0 2
button 220 400 57 58 1 0 3

[dialog d_stat button]
on=2
if (<flags>&statf_dead)
	sysmessage Bu islemi olu iken yapamazsiniz.
	return 1
endif
if (<findlayer(32)> || <findlayer(44)> || <findlayer(47)>)
	sysmessage @080a Uzerinizde Buyu Varken Kullanilmaz..!
	return 1
endif
findlayer(1).bounce
findlayer(2).bounce
findlayer(3).bounce
findlayer(4).bounce
findlayer(5).bounce
findlayer(6).bounce
findlayer(7).bounce
findlayer(8).bounce
findlayer(10).bounce
findlayer(12).bounce
findlayer(13).bounce
findlayer(14).bounce
findlayer(17).bounce
findlayer(18).bounce
findlayer(19).bounce
findlayer(20).bounce
findlayer(22).bounce
findlayer(23).bounce
findlayer(24).bounce
if (<src.str> + <src.dex> + <src.int> == 225)
	src.sysmessage Stat'lariniz korumaya alindi.
src.events +e_stats
src.tag.stro <src.str>
src.tag.into <src.int>
src.tag.dexo <src.dex>
else
src.sysmessage Bu secenegi kullanabilmeniz icin stat toplaminizin 225 olmasi gerekiyor.
src.dialog d_stat
endif
on=1
src.events -e_stats
src.tag.stro
src.tag.into
src.tag.dexo
on=3
dialogclose d_stat

[itemdef i_drum_str]
id i_drum
name Drum
type t_script

on=@dclick
if ((<src.str> + <src.dex> + <src.int> == 225) && (<src.str> == 100) && !(<findlayer(32)> || <findlayer(44)> || <findlayer (47)>))
src.str +=1
else
src.sysmessage @08a Statlariniz 225, Strniz 100 veya Statlarinizi etkileyen bir buyunun altindaysaniz bunu kullanamazsiniz...
endif

on=@click
message @08 [STR]
message <name>

[itemdef i_drum_dex]
id i_drum
name Drum
type t_script

on=@dclick
if ((<src.str> + <src.dex> + <src.int> == 225) && (<src.dex> == 100) && !(<findlayer(32)> || <findlayer(44)> || <findlayer (47)>))
src.dex +=1
else
src.sysmessage @08a Statlariniz 225, Dexiniz 100 veya Statlarinizi etkileyen bir buyunun altindaysaniz bunu kullanamazsiniz...
endif

on=@click
message @08 [DEX]
message <name>

[itemdef i_drum_int]
id i_drum
name Drum
type t_script

on=@dclick
if ((<src.str> + <src.dex> + <src.int> == 225) && (<src.int> == 100) && !(<findlayer(32)> || <findlayer(44)> || <findlayer (47)>))
src.int +=1
else
src.sysmessage @08a Statlariniz 225, Intiniz 100 veya Statlarinizi etkileyen bir buyunun altindaysaniz bunu kullanamazsiniz...
endif

on=@click
message @08 [INT]
message <name>

evet hızlı bi scp yazdım. bilgisayarda uo yüklü olmadığı için resizepic ve buttonları arkadaş yaptı (ykp) biraz esinlenmiş gibi olduk ama yazarken hiç esinlenme düşünmemiştim bug olursa ya siz çözün yada yazın buraya çözelim çalışmazsada söyleyin siliyim konuyu