[plevel 1]
hesabim

[function vada]
src.sys_normal <totalgold>

[function hesabim]
sdialog d_bank_kumbara

[dialog d_bank_Kumbara]
300,90
page 1
resizepic 50 50 <var.theme1> 250 130
resizepic 60 60 <var.theme2> 230 110

dtext 110 90 150 Hepsini ekle
button 75 90 4006 4005 1 0 1
dtext 110 110 150 Check yaz
button 75 110 4006 4005 1 0 2
dtext 110 130 150 Nakit para cek
button 75 130 4006 4005 1 0 3
if <account.tag.gold> == 0
dtext 70 70 0 Bakiye : 0 gp
else
dtext 70 70 0 Bakiye : <f_bolukayir <eval <account.tag0.gold>>> gp
endif

[dialog d_bank_Kumbara button]
on=1
ref1=<uid>
ref1.account.tag0.gold=<eval (<ref1.account.tag0.gold>+<totalgold>)>
src.sys_normal Çantanızdaki ve bankanızdaki paralar hesabınıza eklendi
src.consumegold <totalgold>



on=2
sdialog d_bank_Kumbara_check

on=3
sdialog d_bank_Kumbara_para_cek

[dialog d_bank_Kumbara_check]
300,90
page 1
resizepic 50 50 <var.theme1> 250 130
resizepic 60 60 <var.theme2> 230 110

resizepic 75 75 3000 150 25
//resizepic 25 25 2620 110 35
button 75 130 4006 4005 1 0 1
dtextentry 80 80 150 20 990 1
dtext 110 130 150 Cek yaz

[dialog d_bank_Kumbara_check button]
On=1
if (<IsNum <ARGTXT[1]>>==0)
src.sys_error Sadece rakamlardan olusmalidir.
elseif (strmatch('<strsub 0 1 <argtxt[1]>>','0'))
src.sys_error Ilk rakama 0 yazamazsiniz.
elseif ((strlen(<argtxt[1]>)) > 10) || ((strlen(<argtxt[1]>)) < 1)
src.sys_error Cek miktari en az 1, en fazla 9 rakamdan olusabilir.Max : 2.000.000.000
elseif (<argtxt[1]> > <eval <account.tag0.gold>>)
src.sys_error Hesabınızda <argtxt[1]> gp bulunmuyor.
else
account.tag.gold -= <ARGTXT[1]>
newitem i_check_brnx
new.more1 <ARGTXT[1]>
new.more2 <src.uid>
new.cont <src.findlayer(21)uid>
endif


[dialog d_bank_Kumbara_para_cek]
330,130
PAGE 0
resizepic 2 2 <var.theme1> 190 90
resizepic 12 12 <var.theme2> 170 70
resizepic 25 25 3000 110 35
dtextentry 32 32 90 20 990 1 0
button 140 30 4005 4006 1 0 1

[dialog d_bank_Kumbara_para_cek button]
on=1
if (<strsub 0 1 <argtxt[1]>> == 0)
src.sysmessage @38,1,1 Ilk rakama 0 yazamazsiniz.
elseif !(<isnum <argtxt[1]>>)
src.sysmessage @38,1,1 Sadece rakam kullanabilirsiniz.
elseif (<argtxt[1]> < 1)
src.sysmessage @38,1,1 Hatali bir rakam girdiniz.
elseif (<argtxt[1]> > <eval <account.tag0.gold>>)
src.sysmessage @38,1,1 Hesabınızda <argtxt[1]> gp bulunmuyor.
else
src.sysmessage @69,1,1 <argtxt[1]> gp hesabiniza aktarildi.
account.tag.gold -= <argtxt[1]>
src.f_give_money <argtxt[1]>
endif


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


[itemdef i_check_brnx]
id i_deed
type t_script
weight 0
name check

On=@Create
color 096d
attr 04

On=@Click
message @60 [<eval <more1>>]
message @07a1,1,1,1 [<src.uid.<more2>.name>]
return 1

On=@DClick
src.account.tag.gold +=<more1>
src.sys_normal <f_bolukayir <eval <more1>>> altın hesabınıza aktarıldı
remove


[function check_deposit]
var.check <eval (<argn> - 50000)>
newitem i_gold
act.amount 50000
act.cont <findlayer(29).uid>
if (<eval <var.check>> >= 50000)
check_deposit <eval <var.check>>
elseif (<eval <var.check>> > 0)
newitem i_gold
act.amount <eval <var.check>>
act.cont <findlayer(29).uid>
var.check
else
var.check
endif

[FUNCTION f_bolukayir]
// Kullanım: <f_bolukayir 10000>
IF (<EVAL STRLEN(<ARGS>)> > 3)
   LOCAL.STRLEN=<EVAL STRLEN(<ARGS>)>
   LOCAL.CURRENTDIGIT=<EVAL STRLEN(<ARGS>)>
   WHILE (<LOCAL.CURRENTDIGIT> > 3)
      ARGS=<STRSUB 0 <EVAL (<LOCAL.CURRENTDIGIT> - 3)> <ARGS>>.<STRSUB <EVAL (<LOCAL.CURRENTDIGIT> - 3)> 50 <ARGS>>
      LOCAL.CURRENTDIGIT -= 3
   ENDWHILE
ENDIF
RETURN <ARGS>