[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>

Kumbara scriptim de
.hesabim diyorum tüm parayı bankaya ekle diyorum eklendi olarak yanda yazıyor ama para eklenmiyor scriptte bu hata nerde Yardımcı olursanız cok minnettar olurum

eklediğin herhangi birşeyin kodu doğru mu? para dediğin gold pieces mi oluyor?

Spheresvr.exe'nin revisionu totalgold ve consumegold'u okumuyor olabilir, daha güncel bir sphere revisionuna geçerek sorunu çözebilirsin. (Keza sphere de hata almadığını varsayıyorum.)