Buyrun çok özen gösteremedim k.bakma aceleyle bi göz attım işallah işine yarar.
[ITEMDEF i_bank_kumbara]
DEFNAME=i_bank_kumbara
name=Kumbara
ID=i_box_brass
WEIGHT=1
VALUE=5000
TYPE=t_script
on=@create
ATTR=attr_newbie
tag.bilet 0
<src.name>
on=@click
message <eval <tag.bilet>> Bilet
return 1
on=@dclick
if (<src.targ.topobj.uid> != <src.uid>)
src.sysmessage @0845,1,1 Bunu kullanabilmeniz için çantanizda olmalidir!
return 1
endif
if !(<more1>)
more1 <src.uid>
src.sysmessage @00482,1,1 Kumbara artik size aittir.
elseif (<more1> != <src.uid>)
src.sysmessage @0845,1,1 Bu kumbaranin sahibi siz degilsiniz!
elseif (<topobj.uid> != <src.uid>)
src.sysmessage @0845,1,1 Kumbarayi kullanabilmeniz için üstünüze almalisiniz!
else
more2 1
target
src.hata Kumbara menusunu acmak icin kumbarayi, para yatirmak icin parayi 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 çantanizda olmalidir!
return 1
endif
if (<src.targ.baseid> == i_bilet)
tag0.bilet += <src.targ.amount>
src.targ.remove
more2 1
target
src.sysmessage @666,1,1 Kumbara menüsünü açmak için kumbarayi, para yatirmak için parayi veya checki seçiniz.
elseif (<src.targ.baseid> == i_check_brnx)
tag0.bilet += <src.targ.more1>
src.targ.remove
more2 1
target
src.sysmessage @666,1,1 Kumbara menüsünü açmak için kumbarayi, para yatirmak için parayi 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 5054 230 155
dtext 83 65 38 Kumbara Menusu
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.bilet>> Bilet
[dialog d_bank_kumbara button]
on=1
sdialog d_bank_kumbara_para_cek
on=2
sdialog d_bank_kumbara_check
on=3
src.sysmessage @666,1,1 Havale yapimi kapalidir.
[dialog d_bank_kumbara_havale]
100, 20
PAGE 0
resizepic 2 2 3600 240 80
dtextentry 32 32 150 20 1152 1 Buraya Yaziniz_
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 Hatali bir rakam girdiniz.
elseif (<eval <argtxt[1]>> > <eval <tag.bilet>>)
src.sysmessage @0845,1,1 Kumbaranizda <eval <argtxt[1]>> Bilet bulunmuyor.
else
src.sysmessage @00482,1,1 <eval <argtxt[1]>> Bilet <name> isimli kisye aktarilmistir.
tag.bilet -= <argtxt[1]>>
f_give_money <argtxt[1]>
endif
[dialog d_bank_kumbara_para_cek]
100, 20
PAGE 0
resizepic 2 2 5054 240 80
dtextentry 32 32 150 20 1152 1 Buraya Yaziniz_
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 Hatali bir rakam girdiniz!
elseif (<eval <argtxt[1]>> > <eval <tag0.bilet>>)
src.sysmessage @0845,1,1 Kumbaranizda <eval <argtxt[1]>> Bilet bulunmuyor.
else
src.sysmessage @00482,1,1 <eval <argtxt[1]>> Bilet bankaniza aktarilmistir.
tag.bilet -= <eval <argtxt[1]>>
src.f_give_money <eval <argtxt[1]>>
endif
[dialog d_bank_kumbara_check]
50,50
resizepic 60 20 5054 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]
Kumbaranizda <eval <tag.bilet>> altin var.
Çekinizin miktari ne kadar olsun?
50.000 Bilet
100.000 Bilet
250.000 Bilet
500.000 Bilet
1.000.000 Bilet
-->
[dialog d_bank_kumbara_check button]
On=1
if (<eval <tag.bilet>> >= 50000)
tag.bilet -= 50000
newitem i_check_brnx
new.more1 50000
new.more2 <src.uid>
new.cont <src.findlayer(21).uid>
else
src.sysmessage @0845,1,1 Kumbaranizda 50k bulunmamaktadir!
endif
On=2
if (<eval <tag.bilet>> >= 100000)
tag.bilet -= 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 Kumbaranizda 100k bulunmamaktadir!
endif
On=3
if (<eval <tag.bilet>> >= 250000)
tag.bilet -= 250000
newitem i_check_brnx
new.more1 250000
new.more2 <src.uid>
new.cont <src.findlayer(21).uid>
else
src.sysmessage @0845,1,1 Kumbaranizda 250k bulunmamaktadir!
endif
On=4
if (<eval <tag.bilet>> >= 500000)
tag.bilet -= 500000
newitem i_check_brnx
new.more1 500000
new.more2 <src.uid>
new.cont <src.findlayer(21).uid>
else
src.sysmessage @0845,1,1 Cantanizda 500k bulunmamaktadir!
endif
On=5
if (<eval <tag.bilet>> >= 1000000)
tag.bilet -= 1000000
newitem i_check_brnx
new.more1 1000000
new.more2 <src.uid>
new.cont <src.findlayer(21).uid>
else
src.sysmessage @0845,1,1 Kumbaranizda 1m bulunmamaktadir!
endif
[function f_give_money]
local.bilet <argn1>
if (<eval <local.bilet>> > 64999)
serv.newitem i_bilet
new.amount 65000
new.cont <findlayer(layer_bankbox).uid>
local.bilet -= 65000
f_give_money <eval <local.bilet>>
elseif (0<eval <local.bilet>>)
serv.newitem i_bilet
new.amount <eval <local.bilet>>
new.cont <findlayer(layer_bankbox).uid>
local.bilet 0
endif
[eof]
