///////////////////////////////////////////////////////////////////////
// *Scripter Name : Raskol Serna
// *Shard Name : The Rosario Game
// *Shard Address : www.rosario.gen.tr
// *Personal Address : www.raskolserna.com
// *Messenger and E-Mail : raskolserna@msn.com
// *Sphere Version : Specially 0.56b and maybe other releases
//
// *Bu kodlar TheRaskol tarafından yazılmış veya editlenmiştir.
// *The codes are written or were edited by TheRaskol (Raskol Serna).
///////////////////////////////////////////////////////////////////////

[ITEMDEF i_bank_kumbara]
DEFNAME=i_bank_kumbara
name=money box
ID=i_box_brass
WEIGHT=1
VALUE=5000
TYPE=t_script

on=@create
ATTR=attr_newbie
tag.gp 0

on=@dclick
if (<src.targ.topobj.uid> != <src.uid>)
src.sysmessage @0845,1,1 Bunu kullanabilmeniz için çantanızda olmalıdır!
return 1
endif
if !(<more1>)
more1 <src.uid>
src.sysmessage @00482,1,1 Kumbara artık size aittir.
elseif (<more1> != <src.uid>)
src.sysmessage @0845,1,1 Bu kumbaranın sahibi siz değilsiniz!
elseif (<topobj.uid> != <src.uid>)
src.sysmessage @0845,1,1 Kumbarayı kullanabilmeniz için üstünüze almalısınız!
else
more2 1
target
src.sysmessage @666,1,1 Kumbara menüsünü açmak için kumbarayı, para yatırmak için parayı veya checki seçiniz.
endif
return 1

on=@targon_item
if (<more2> == 1)
if (<src.targ.topobj.uid> != <src.uid>)
src.sysmessage @0845,1,1 Bunu kullanabilmeniz için çantanızda olmalıdır!
return 1
endif
if (<src.targ.baseid> == i_gold)
tag0.gp += <src.targ.amount>
src.targ.remove
more2 1
target
src.sysmessage @666,1,1 Kumbara menüsünü açmak için kumbarayı, para yatırmak için parayı veya checki seçiniz.
elseif (<src.targ.baseid> == i_check_brnx)
tag0.gp += <src.targ.more1>
src.targ.remove
more2 1
target
src.sysmessage @666,1,1 Kumbara menüsünü açmak için kumbarayı, para yatırmak için parayı veya checki seçiniz.
elseif (<src.targ.uid> == <uid>)
sdialog d_bank_kumbara
dialogclose d_bank_kumbara_havale
dialogclose d_bank_kumbara_para_cek
dialogclose d_bank_kumbara_check
dialogclose d_bank_kumbara_havale
endif
endif
return 1

on=@targon_char
if (<more2> == 2)
if (<src.targ.uid> == <src.uid>)
return 1
endif
src.targ.sdialog d_bank_kumbara_havale
endif
return 1

[dialog d_bank_kumbara]
0,0
page 1
resizepic 50 50 3600 200 155

dtext 83 65 38 Kumbara Menüsü
dtext 110 90 1152 Nakit para çek
button 75 90 4006 4005 1 0 1
dtext 110 110 1152 Check yaz
button 75 110 4006 4005 1 0 2
dtext 110 130 1152 Havale yap
button 75 130 4006 4005 1 0 3
dtext 80 160 064 Bakiye: <eval <tag.gp>> gp

[dialog d_bank_kumbara button]
on=1
sdialog d_bank_kumbara_para_cek

on=2
sdialog d_bank_kumbara_check

on=3
more2 2
target
src.sysmessage @666,1,1 Havale yapacağınız kişiyi seçiniz.

[dialog d_bank_kumbara_havale]
100, 20
PAGE 0
resizepic 2 2 3600 240 80
dtextentry 32 32 150 20 1152 1 Buraya Yazınız_
button 190 30 4005 4006 1 0 1


[dialog d_bank_kumbara_havale button]
on=1
if !(<isnum <argtxt[1]>>)
src.sysmessage @0845,1,1 Sadece rakam kullanabilirsiniz!
elseif (<eval <argtxt[1]>> < 1)
src.sysmessage @0845,1,1 Hatalı bir rakam girdiniz.
elseif (<eval <argtxt[1]>> > <eval <tag.gp>>)
src.sysmessage @0845,1,1 Kumbaranızda <eval <argtxt[1]>> gp bulunmuyor.
else
src.sysmessage @00482,1,1 <eval <argtxt[1]>> gp <name> isimli kişye aktarılmıştır.
tag.gp -= <argtxt[1]>>
f_give_money <argtxt[1]>
endif

[dialog d_bank_kumbara_para_cek]
100, 20
PAGE 0
resizepic 2 2 3600 240 80
dtextentry 32 32 150 20 1152 1 Buraya Yazınız_
button 190 30 4005 4006 1 0 1

[dialog d_bank_kumbara_para_cek button]
on=1
if !(<isnum <argtxt[1]>>)
src.sysmessage @0845,1,1 Sadece rakam kullanabilirsiniz!
elseif (<eval <argtxt[1]>> < 1)
src.sysmessage @0845,1,1 Hatalı bir rakam girdiniz!
elseif (<eval <argtxt[1]>> > <eval <tag0.gp>>)
src.sysmessage @0845,1,1 Kumbaranızda <eval <argtxt[1]>> gp bulunmuyor.
else
src.sysmessage @00482,1,1 <eval <argtxt[1]>> gp bankanıza aktarılmıştır.
tag.gp -= <eval <argtxt[1]>>
src.f_give_money <eval <argtxt[1]>>
endif

[dialog d_bank_kumbara_check]
50,50

resizepic 60 20 3600 350 220

text 100 50 38 0
text 100 65 38 1

button 120 95 2714 2715 1 0 1
button 120 115 2714 2715 1 0 2
button 120 135 2714 2715 1 0 3
button 120 155 2714 2715 1 0 4
button 120 175 2714 2715 1 0 5

text 142 96 1152 2
text 142 116 1152 3
text 142 136 1152 4
text 142 156 1152 5
text 142 176 1152 6

tilepic 250 125 3826
tilepic 240 120 3823
tilepic 250 120 3819
tilepic 255 135 3825
tilepic 225 125 3820
tilepic 235 135 3823
tilepic 245 135 3820

text 298 130 38 7

tilepic 320 122 <eval 014ef>

[dialog d_bank_kumbara_check text]
Kumbaranızda <eval <tag.gp>> altın var.
Çekinizin miktarı ne kadar olsun?
50.000 gp
100.000 gp
250.000 gp
500.000 gp
1.000.000 gp
-->

[dialog d_bank_kumbara_check button]
On=1
if (<eval <tag.gp>> >= 50000)
tag.gp -= 50000
newitem i_check_brnx
new.more1 50000
new.more2 <src.uid>
new.cont <src.findlayer(21).uid>
else
src.sysmessage @0845,1,1 Kumbaranızda 50k bulunmamaktadır!
endif

On=2
if (<eval <tag.gp>> >= 100000)
tag.gp -= 100000
serv.newitem i_check_brnx
new.more1 100000
new.more2 <src.uid>
new.cont <src.findlayer(21).uid>
else
src.sysmessage @0845,1,1 Kumbaranızda 100k bulunmamaktadır!
endif

On=3
if (<eval <tag.gp>> >= 250000)
tag.gp -= 250000
newitem i_check_brnx
new.more1 250000
new.more2 <src.uid>
new.cont <src.findlayer(21).uid>
else
src.sysmessage @0845,1,1 Kumbaranızda 250k bulunmamaktadır!
endif

On=4
if (<eval <tag.gp>> >= 500000)
tag.gp -= 500000
newitem i_check_brnx
new.more1 500000
new.more2 <src.uid>
new.cont <src.findlayer(21).uid>
else
src.sysmessage @0845,1,1 Kumbaranızda 500k bulunmamaktadır!
endif

On=5
if (<eval <tag.gp>> >= 1000000)
tag.gp -= 1000000
newitem i_check_brnx
new.more1 1000000
new.more2 <src.uid>
new.cont <src.findlayer(21).uid>
else
src.sysmessage @0845,1,1 Kumbaranızda 1m bulunmamaktadır!
endif

[function f_give_money]
local.gp <argn1>
if (<eval <local.gp>> > 64999)
serv.newitem i_gold
new.amount 65000
new.cont <findlayer(layer_bankbox).uid>
local.gp -= 65000
f_give_money <eval <local.gp>>
elseif (0<eval <local.gp>>)
serv.newitem i_gold
new.amount <eval <local.gp>>
new.cont <findlayer(layer_bankbox).uid>
local.gp 0
endif

[eof]