[PLEVEL 1]
check

[function check]
src.sdialog d_check

[dialog d_check]
50,50
nomove
resizepic 0 10 5120 190 240
resizepic 12 20 3000 170 140

button 30 45 2714 2715 1 0 1
button 30 65 2714 2715 1 0 2
button 30 85 2714 2715 1 0 3
button 30 105 2714 2715 1 0 4
button 30 125 2714 2715 1 0 5

htmlgump 70 45 100 20 0 0 0
htmlgump 70 65 100 20 1 0 0
htmlgump 70 85 100 20 2 0 0
htmlgump 70 105 100 20 3 0 0
htmlgump 70 125 100 20 4 0 0
dhtmlgump 12 160 170 80 1 0 Bankanizin ust kisminda <BANKBALANCE> altin var. <def.br>Cekinizin degeri ne olacakti <sex bayim/bayan>?
dhtmlgump 25 23 120 20 0 0 <def.l1>basefont size="3" color="#578356" <def.r1><def.b>Check Defteri
[dialog d_check text]
50.000 gp
100.000 gp
250.000 gp
500.000 gp
1.000.000 gp

[dialog d_check button]
On=1
if (<BANKBALANCE> >= 50000)
FINDLAYER(29).FINDID(i_gold).CONSUME [50000]
newitem i_check_brnx
new.more1 50000
new.more2 <uid>
new.bounce
else
sysmessage @54,,1 Bankanizin en ust kisminda 50k altininiz bulunmuyor.
endif

On=2
if (<BANKBALANCE> >= 100000)
FINDLAYER(29).FINDID(i_gold).CONSUME [100000]
newitem i_check_brnx
new.more1 100000
new.more2 <uid>
new.bounce
else
sysmessage @54,,1 Bankanizin en ust kisminda 100k altininiz bulunmuyor.
endif

On=3
if (<BANKBALANCE> >= 250000)
FINDLAYER(29).FINDID(i_gold).CONSUME [250000]
newitem i_check_brnx
new.more1 250000
new.more2 <uid>
new.bounce
else
sysmessage @54,,1 Bankanizin en ust kisminda 250k altininiz bulunmuyor.
endif

On=4
if (<BANKBALANCE> >= 500000)
FINDLAYER(29).FINDID(i_gold).CONSUME [500000]
newitem i_check_brnx
new.more1 500000
new.more2 <uid>
new.bounce
else
sysmessage @54,,1 Bankanizin en ust kisminda 500k altininiz bulunmuyor.
endif

On=5
if (<BANKBALANCE> >= 1000000)
FINDLAYER(29).FINDID(i_gold).CONSUME [1000000]
newitem i_check_brnx
new.more1 1000000
new.more2 <uid>
new.bounce
else
sysmessage @54,,1 Bankanizin en ust kisminda 1m altininiz bulunmuyor.
endif

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

On=@Create
color 096d
attr 04

On=@Click
message=@0790,,1 Cek miktari: <eval <more1>>
message=@0492,,1 [<src.uid.<more2>.name>]
return 1

On=@DClick
IF !(<topobj.uid> == <src.uid>)
src.sysmessage=@39 Sadece cantanizdayken kullanabilirsiniz !
else
target=@065,,1 Islem yapacaginiz bankeri seciniz.
endif
return 1

On=@TargOn_Char
if (<src.targ.npc> == 5)
src.f_cek <more1>
src.ctag.checkiz 1
src.sfx 50
src.sysmessage @54,,1 <eval <more1>> altin bankaniza aktarildi.
remove
endif
return 1

On=@TargOn_Item
return 1

[function f_cek]
var.check <eval (<argn> - 50000)>
newitem i_gold
act.amount 50000
act.cont <findlayer(29).uid>
if (<eval <var.check>> >= 50000)
f_cek <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 check_deneme]
say Deneme
Return 1


[eof]