sphere versionun kac 56b dede bu scp calisiyor
[ITEMDEF i_bank_kumbara]
DEFNAME=i_bank_kumbara
name=Kumbara
ID=i_box_brass
WEIGHT=1
VALUE=5000
TYPE=t_script
on=@create
tag.gp 0
attr=4
color=070d
on=@dclick
if !(<more1>)
more1 <src.uid>
src.sysmessage @69,1,1 Kumbara artik size ait.
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_gold)
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
endif
return 1
[dialog d_bank_kumbara]
0,0
page 1
resizepic 50 50 5120 250 205
resizepic 60 60 3000 230 185
dtext 110 90 0 Nakit para cek
button 75 90 4006 4005 1 0 1
dtext 110 110 0 Check yaz
button 75 110 4006 4005 1 0 2
dtext 110 130 0 Havale yap
button 75 130 4006 4005 1 0 3
dtext 90 200 990 Bakiye: <eval <tag.gp>> gp
[dialog d_bank_kumbara button]
on=1
src.sysmessage @657 Bi sure kapalidir lutfen check yaziniz
//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.
[dialog d_bank_kumbara_havale]
100, 20
PAGE 0
resizepic 2 2 5054 190 90
resizepic 25 25 2620 110 35
dtextentry 32 32 90 20 990 1 0
button 140 30 4005 4006 1 0 1
[dialog d_bank_kumbara_havale button]
on=1
if !(<isnum <argtxt[1]>>)
src.sysmessage @38,1,1 Sadece rakam kullanabilirsiniz.
elseif (<eval <argtxt[1]>> < 1)
src.sysmessage @38,1,1 Hatali bir rakam girdiniz.
elseif (<eval <argtxt[1]>> > <eval <tag.gp>>)
src.sysmessage @38,1,1 Kumbaranizda <eval <argtxt[1]>> gp bulunmuyor.
else
src.sysmessage @69,1,1 <eval <argtxt[1]>> gp <name> isimli kisiye aktarildi.
sysmessage @69,1,1 <src.name> isimli kisi size <eval <argtxt[1]>> gp aktardi. Para bankanizda...
tag.gp -= <argtxt[1]>>
f_give_money <argtxt[1]>
endif
[dialog d_bank_kumbara_para_cek]
100, 20
PAGE 0
resizepic 2 2 5054 190 90
resizepic 25 25 2620 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 !(<isnum <argtxt[1]>>)
src.sysmessage @38,1,1 Sadece rakam kullanabilirsiniz.
elseif (<eval <argtxt[1]>> < 1)
src.sysmessage @38,1,1 Hatali bir rakam girdiniz.
elseif (<eval <argtxt[1]>> > <eval <tag0.gp>>)
src.sysmessage @38,1,1 Kumbaranizda <eval <argtxt[1]>> gp bulunmuyor.
else
src.sysmessage @69,1,1 <eval <argtxt[1]>> gp bankaniza aktarildi.
tag.gp -= <eval <argtxt[1]>>
src.f_give_money <eval <argtxt[1]>>
endif
[dialog d_bank_kumbara_check]
50,50
resizepic 60 20 5170 350 220
htmlgump 100 50 300 20 0 0 0
htmlgump 100 65 250 20 1 0 0
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
htmlgump 142 96 100 20 2 0 0
htmlgump 142 116 100 20 3 0 0
htmlgump 142 136 100 20 4 0 0
htmlgump 142 156 100 20 5 0 0
htmlgump 142 176 100 20 6 0 0
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
htmlgump 298 130 100 20 7 0 0
tilepic 320 122 <eval 014ef>
[dialog d_bank_kumbara_check text]
Kumbaranizda <eval <tag.gp>> altin var.
Cekinizin degeri ne olacakti <src.sex bayim/bayan>?
50.000 gp
100.000 gp
250.000 gp
500.000 gp
1.000.000 gp
-->
[dialog d_bank_kumbara_check button]
On=1
if (<eval <tag.gp>> >= 50000)
tag.gp -= 50000
newitem i_check_brnx
new.more1 50000
new.more2 <src.uid>
new.cont <src.findlayer(21).uid>
else
src.sysmessage @38,1,1 Kumbaranizda 50k altininiz bulunmuyor.
endif
On=2
if (<eval <tag.gp>> >= 100000)
tag.gp -= 100000
serv.newitem i_check_brnx
new.more1 100000
new.more2 <src.uid>
new.cont <src.findlayer(21).uid>
else
src.sysmessage @38,1,1 Kumbaranizda 100k altininiz bulunmuyor.
endif
On=3
if (<eval <tag.gp>> >= 250000)
tag.gp -= 250000
newitem i_check_brnx
new.more1 250000
new.more2 <src.uid>
new.cont <src.findlayer(21).uid>
else
src.sysmessage @38,1,1 Kumbaranizda 250k altininiz bulunmuyor.
endif
On=4
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>
else
src.sysmessage @38,1,1 Kumbaranizda 500k altininiz bulunmuyor.
endif
On=5
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>
else
src.sysmessage @38,1,1 Kumbaranizda 1m altininiz bulunmuyor.
endif
[function f_give_money]
local.gp <argn1>
if (0<eval <local.gp>> => 65000)
serv.newitem i_gold
new.amount 65000
new.cont <findlayer(layer_bankbox).uid>
local.gp -= 65000
f_give_money <eval <local.gp>>
elseif (0<eval <local.gp>>)
serv.newitem i_gold
new.amount <eval <local.gp>>
new.cont <findlayer(layer_bankbox).uid>
local.gp 0
endif
[ITEMDEF i_check_brnx]
ID=i_deed
Name=Check
TYPE=t_normal
CATEGORY=Check
SUBSECTION=Misc
DESCRIPTION=Check
ON=@CREATE
ATTR=04
COLOR=070d
ON=@CLICK
MESSAGE @045 <NAME>
MESSAGE @033 Toplam: <MORE> gp
RETURN 1
ON=@DCLICK
IF (<MORE> <= 0)
REMOVE
RETURN 1
ELSE
VAR.AMNT=<MORE>
GIVEGOLD
SRC.SOUND=037
SRC.SYSMESSAGE @045 <MORE> Altin bankaniza aktarildi.
REMOVE
RETURN 1
ENDIF
[FUNCTION Givegold]
IF (<VAR.AMNT> >= 10000)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=10000
SRC.ACT.CONT=<SRC.FINDLAYER.29.UID>
VAR.AMNT=(<VAR.AMNT>+-10000)
GIVEGOLD
RETURN 1
ELSEIF (<VAR.AMNT> <= 0)
VAR.AMNT=
RETURN 1
ELSE
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=<VAR.AMNT>
SRC.ACT.CONT=<SRC.FINDLAYER.29.UID>
VAR.AMNT=
RETURN 1
ENDIF
bunu dene bakalim
