buyrun kumbara scriptim demek istediğim sizin uğraşmadan bize yardımcı olabilmeniz.
Kod:
[ITEMDEF i_bank_kumbarasp]
DEFNAME=i_bank_kumbarasp
name=Kumbara
ID=i_box_brass
WEIGHT=1
VALUE=5000
TYPE=t_script
on=@create
COLOR 0
tag.gp 0
attr=04
on=@Click
message @38 [Sahibi: <tag0.kumbaraisim>]
message @07a1 <name> : <eval <tag.gp>> Bilet
src.sysmessage @38,,1 Dikkat : Kumbaraniza 2.000.000.000 bilet'den fazla yükleme yapmayiniz aksi taktirde -'lere düşer bunun sorumlulugu size aittir ve geri iade kesinlikle yapılmaz.
return 1
on=@dclick
if !(<more1>)
more1 <src.uid>
src.sysmessage @69,1,1 Kumbara artik size ait.
tag0.kumbaraisim <src.name>
elseif (<more1> != <src.uid>)
src.sysmessage @38,1,1 Bu kumbaranin sahibi degilsiniz.
elseif (<topobj.uid> != <src.uid>)
src.sysmessage @38,1,1 Kumbarayi kullanabilmek icin uzerinize almalisiniz.
else
more2 1
target @69,1,1 Kumbara menusunu acmak icin kumbarayi, para yatirmak icin parayi veya checki seciniz.
endif
return 1
on=@targon_item
if (<more2> == 1)
if (<src.targ.topobj.uid> != <src.uid>)
src.sysmessage @38,1,1 Sadece ustunuzdeki esyalari kullanabilirsiniz.
return 1
endif
if (<src.targ.baseid> == i_bilet)
tag0.gp += <src.targ.amount>
src.targ.remove
more2 1
target @69,1,1 Kumbara menusunu acmak icin kumbarayi, para yatirmak icin parayi veya checki seciniz.
elseif (<src.targ.baseid> == i_check_brnx)
tag0.gp += <src.targ.more1>
src.targ.remove
more2 1
target @69,1,1 Kumbara menusunu acmak icin kumbarayi, para yatirmak icin parayi veya checki seciniz.
elseif (<src.targ.uid> == <uid>)
sdialog d_bank_kumbara
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
return 1
endif
[dialog d_bank_kumbara]
0,0
page 1
resizepic 50 50 5150 300 255
//resizepic 60 60 5150 280 235
dtext 125 70 39 <serv.name> Kumbara Menu
dtext 95 98 39 Nakit Para Çek //49 YAZI RENGİ
button 75 100 11401 11402 1 0 1
dtext 95 138 39 Hesaptan Çek Yaz
button 75 140 11401 11402 1 0 2
dtext 95 177 39 Çantanizdan Çek Yazin
button 75 180 11401 11402 1 0 4
dtext 95 210 39 Hepsinini Ekle
button 75 213 11401 11402 1 0 6
dtext 75 245 39 Bakiyeniz : <eval <tag.gp>> Bilet
[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 @69,1,1 Havale yapacaginiz kisiyi secin.
on=4
sdialog d_bank_kumbara_check_canta
on=6
if !(<src.gold>)
src.sysmessage @38,,1 Üzerinizde bilet yok.
return 1
endif
local.cbilet=<eval <src.gold>>
tag0.gp += <eval <src.gold>>
src.gold -= <dlocal.cbilet>
src.update
src.sysmessage @1153,,1 <dlocal.cbilet> kumbaraya eklendi.
[dialog d_bank_kumbara_para_cek]
100, 20
PAGE 0
resizepic 2 2 5150 190 90
//resizepic 25 25 5150 110 35
dtextentry 32 32 90 20 38 1 50000 //990
button 140 35 11401 11402 1 0 1 //55 56
[dialog d_bank_kumbara_para_cek button]
on=1
if !(<isnum <argtxt[1]>>)
src.sysmessage @38,1,1 Sadece rakam kullanabilirsiniz.
src.targ.sdialog d_bank_kumbara_para_cek
elseif (<eval <argtxt[1]>> < 1)
src.sysmessage @38,1,1 Hatali bir rakam girdiniz.
src.targ.sdialog d_bank_kumbara_para_cek
elseif (<eval <argtxt[1]>> > <eval <tag0.gp>>)
src.sysmessage @38,1,1 Kumbaranizda <eval <argtxt[1]>> Bilet bulunmuyor.
src.targ.sdialog d_bank_kumbara_para_cek
elseif (<eval <argtxt[1]>> > 50000)
src.sysmessage @080a Bir Seferde En fazla 50000 Bilet Cekebilirsiniz.
return 1
else
src.sysmessage @69,1,1 <eval <argtxt[1]>> Bilet cantaniza aktarildi.
tag.gp -= <eval <argtxt[1]>>
src.f_give_money <eval <argtxt[1]>>
src.targ.sdialog d_bank_kumbara_para_cek
endif
[dialog d_bank_kumbara_check]
50,50
resizepic 60 10 5150 370 280
htmlgump 100 35 300 25 0 1 0
htmlgump 100 55 300 25 1 1 0
button 120 97 11401 11402 1 0 1
button 120 119 11401 11402 1 0 2
button 120 139 11401 11402 1 0 3
button 120 159 11401 11402 1 0 4
button 120 179 11401 11402 1 0 5
button 120 199 11401 11402 1 0 6
button 120 220 11401 11402 1 0 7
htmlgump 142 96 100 25 2 1 0
htmlgump 142 116 100 25 3 1 0
htmlgump 142 136 120 25 4 1 0
htmlgump 142 156 120 25 5 1 0
htmlgump 142 176 120 25 6 1 0
htmlgump 142 196 150 25 8 1 0
htmlgump 142 216 150 25 9 1 0
tilepic 275 135 3826
tilepic 270 120 3823
tilepic 275 120 3819
tilepic 280 135 3825
tilepic 285 125 3820
tilepic 290 135 3823
tilepic 295 135 3820
htmlgump 330 130 100 20 7 0 0
tilepic 350 122 <eval 014ef>
[dialog d_bank_kumbara_check text]
Kumbaranızda <eval <tag.gp>> Bilet var.
Çekinizin rakamı ne olacaktı <src.sex bayım/bayan>?
500.000 Bilet
750.000 Bilet
1.000.000 Bilet
2.500.000 Bilet
5.000.000 Bilet
-->
50.000.000 Bilet
100.000.000 Bilet
[dialog d_bank_kumbara_check button]
On=1
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>
sdialog d_bank_kumbara_check
else
src.sysmessage @38,1,1 Kumbaranizda 500k Biletiniz bulunmuyor.
endif
On=2
if (<eval <tag.gp>> >= 750000)
tag.gp -= 750000
serv.newitem i_check_brnx
new.more1 750000
new.more2 <src.uid>
new.cont <src.findlayer(21).uid>
sdialog d_bank_kumbara_check
else
src.sysmessage @38,1,1 Kumbaranizda 750k Biletiniz bulunmuyor.
endif
On=3
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>
sdialog d_bank_kumbara_check
else
src.sysmessage @38,1,1 Kumbaranizda 1m Biletiniz bulunmuyor.
endif
On=4
if (<eval <tag.gp>> >= 2500000)
tag.gp -= 2500000
newitem i_check_brnx
new.more1 2500000
new.more2 <src.uid>
new.cont <src.findlayer(21).uid>
sdialog d_bank_kumbara_check
else
src.sysmessage @38,1,1 Kumbaranizda 2.5m Biletiniz bulunmuyor.
endif
On=5
if (<eval <tag.gp>> >= 5000000)
tag.gp -= 5000000
newitem i_check_brnx
new.more1 5000000
new.more2 <src.uid>
new.cont <src.findlayer(21).uid>
sdialog d_bank_kumbara_check
else
src.sysmessage @38,1,1 Kumbaranizda 5m Biletiniz bulunmuyor.
endif
On=6
if (<eval <tag.gp>> >= 50000000)
tag.gp -= 50000000
newitem i_check_brnx
new.more1 50000000
new.more2 <src.uid>
new.cont <src.findlayer(21).uid>
sdialog d_bank_kumbara_check
else
src.sysmessage @38,1,1 Kumbaranizda 50m Biletiniz bulunmuyor.
endif
On=7
if (<eval <tag.gp>> >= 100000000)
tag.gp -= 100000000
newitem i_check_brnx
new.more1 100000000
new.more2 <src.uid>
new.cont <src.findlayer(21).uid>
sdialog d_bank_kumbara_check
else
src.sysmessage @38,1,1 Kumbaranizda 100m Biletiniz bulunmuyor.
endif
[dialog d_bank_kumbara_check_canta]
50,50
resizepic 60 10 5150 370 280
htmlgump 100 35 300 23 0 1 0
htmlgump 100 55 250 23 1 1 0
button 120 100 11401 11402 1 0 1
button 120 120 11401 11402 1 0 2
button 120 138 11401 11402 1 0 3
button 120 158 11401 11402 1 0 4
button 120 178 11401 11402 1 0 5
button 120 198 11401 11402 1 0 6
button 120 222 11401 11402 1 0 7
htmlgump 142 96 100 25 2 1 0
htmlgump 142 116 100 25 3 1 0
htmlgump 142 136 120 25 4 1 0
htmlgump 142 156 120 25 5 1 0
htmlgump 142 176 120 25 6 1 0
htmlgump 142 196 150 25 8 1 0
htmlgump 142 216 150 25 9 1 0
tilepic 275 125 3826
tilepic 270 120 3823
tilepic 275 120 3819
tilepic 280 135 3825
tilepic 285 125 3820
tilepic 290 135 3823
tilepic 295 135 3820
htmlgump 330 130 100 20 7 0 0
tilepic 350 122 <eval 014ef>
[dialog d_bank_kumbara_check_canta text]
Cantanizda <eval <src.rescount i_bilet>> Bilet var.
Cekinizin degeri ne olacakti <src.sex bayim/bayan>?
100.000 Bilet
500.000 Bilet
750.000 Bilet
1.000.000 Bilet
10.000.000 Bilet
-->
25.000.000 Bilet
50.000.000 Bilet
[dialog d_bank_kumbara_check_canta button]
On=1
if !(<src.restest 100000 i_bilet>)
src.sysmessage @38,1,1 Çantanizda 100k Biletiniz bulunmuyor.
else
src.consume 100000 i_bilet
src.newitem i_check_brnx
src.act.more1 100000
src.act.more2 01
src.act.bounce
sdialog d_bank_kumbara_check_canta
endif
On=2
if !(<src.restest 500000 i_bilet>)
src.sysmessage @38,1,1 Çantanizda 500k Biletiniz bulunmuyor.
else
src.consume 500000 i_bilet
src.newitem i_check_brnx
src.act.more1 500000
src.act.more2 01
src.act.bounce
sdialog d_bank_kumbara_check_canta
endif
On=3
if !(<src.restest 750000 i_bilet>)
src.sysmessage @38,1,1 Çantanizda 750k Biletiniz bulunmuyor.
else
src.consume 750000 i_bilet
src.newitem i_check_brnx
src.act.more1 750000
src.act.more2 01
src.act.bounce
sdialog d_bank_kumbara_check_canta
endif
On=4
if !(<src.restest 1000000 i_bilet>)
src.sysmessage @38,1,1 Çantanizda 1m Biletiniz bulunmuyor.
else
src.consume 1000000 i_bilet
src.newitem i_check_brnx
src.act.more1 1000000
src.act.more2 01
src.act.bounce
sdialog d_bank_kumbara_check_canta
endif
On=5
if !(<src.restest 10000000 i_bilet>)
src.sysmessage @38,1,1 Çantanizda 10m Biletiniz bulunmuyor.
else
src.consume 10000000 i_bilet
src.newitem i_check_brnx
src.act.more1 10000000
src.act.more2 01
src.act.bounce
sdialog d_bank_kumbara_check_canta
endif
On=6
if !(<src.restest 25000000 i_bilet>)
src.sysmessage @38,1,1 Çantanizda 25m Biletiniz bulunmuyor.
else
src.consume 25000000 i_bilet
src.newitem i_check_brnx
src.act.more1 25000000
src.act.more2 01
src.act.bounce
sdialog d_bank_kumbara_check_canta
endif
On=5
if !(<src.restest 50000000 i_bilet>)
src.sysmessage @38,1,1 Çantanizda 50m Biletiniz bulunmuyor.
else
src.consume 50000000 i_bilet
src.newitem i_check_brnx
src.act.more1 50000000
src.act.more2 01
src.act.bounce
sdialog d_bank_kumbara_check_canta
endif
[function f_give_money]
local.gp <argn1>
if (0<eval <local.gp>>)
serv.newitem i_bilet
new.amount <eval <local.gp>>
new.cont <findlayer(21).uid>
local.gp 0
endif
[itemdef i_check_brnx]
id i_deed
type t_script
weight 0.1
name check
On=@Create
color 0515
attr 04
On=@Click
message @1153 Cek Karsiligi: <eval <more1>> Bilet
message @1153 [<src.uid.<more2>.name>]
return 1
On=@DClick
target Islem yapacaginiz bankeri seciniz.
return 1
On=@TargOn_Char
if (<src.targ.npc> == 5)
src.check_deposit <more1>
src.sfx 50
src.sysmessage <eval <more1>> Bilet cantaniza aktarildi.
remove
endif
return 1
On=@TargOn_Item
return 1
[function check_deposit]
var.check <eval (<argn> - 50000)>
newitem i_bilet
act.amount 50000
act.cont <findlayer(21).uid>
if (<eval <var.check>> >= 50000)
check_deposit <eval <var.check>>
elseif (<eval <var.check>> > 0)
newitem i_bilet
act.amount <eval <var.check>>
act.cont <findlayer(21).uid>
var.check
else
var.check
endif
[EOF]