[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

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
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
Novice
-14.8
bu sorun sphere ile alakalı değil zeka ile alakalı:
yaw çift tıklıyom sonrada kumbaraya tıklıyom çalışmıyo
Novice
-14.8
kumbara çift tıkla target çıkacak o target ile kumbara tıkla oke ?
yaw onu dedim bende çalışmıyor !! aynısını yapıyorum olmuyor !!
[ITEMDEF i_bank_kumbara]
DEFNAME=i_bank_kumbara
name=Domuz Kumbara
ID=i_pet_pig
WEIGHT=1
VALUE=5000
TYPE=t_script

on=@create
DORAND 3
       COLOR 0455
       COLOR 07d1
       COLOR 0515
ENDDO
tag.gp 0
attr=04


on=@Click
message @1153 [<tag0.kumbaraisim>]
message @038 <name> : <eval <tag.gp>> gp
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_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 3500 250 205
resizepic 60 60 3500 230 185

dtext 95 70 1153 <serv.name> Domuz Kumbara
dtext 95 99 1153 Nakit Para Cek
button 75 100 3 4 1 0 1
dtext 95 138 1153 Check Yaz
button 75 140 3 4 1 0 2
dtext 75 180 1153 Bakiye: <eval <tag.gp>> gp



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



[dialog d_bank_kumbara_para_cek]
100, 20
PAGE 0
resizepic 2 2 3500 190 90
resizepic 25 25 3000 110 35
dtextentry 32 32 90 20 990 1 0
button 140 45 3 4 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.
elseif (<eval <argtxt[1]>> > 50000)
        src.sysmessage @080a Bir Seferde En fazla 50000 Altin Cekebilirsiniz.
        return 1
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 3500 350 220

htmlgump 100 50 300 20 0 0 0
htmlgump 100 65 250 20 1 0 0

button 120 96 3 4 1 0 1
button 120 116 3 4 1 0 2
button 120 136 3 4 1 0 3
button 120 156 3 4 1 0 4
button 120 176 3 4 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>>)
	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
type t_script
weight 0.1
name check

On=@Create
color 0515
attr 04

On=@Click
message @1153 Cek Karsiligi: <eval <more1>>
message @1153 [<src.uid.<more2>.name>]
return 1

On=@DClick
src.sysmessage @080a Checki Bozdurmaniz Icin Kumbaraya Ihtiyaciniz Vardir.
return 1

[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



[EOF]
çalışmıyor
55r ye yada 56b ye geç
Niye ßu kadar topic açıyorsun ya

Bıktık !
56b yi indirdim download bölümüden warning verdi
Hakkaten arkadaşım hangi cağda yaşıyorsun sen artık 56b ye geçmen gerekiyor. Geçmiyorsanda bırakıver ya kasma kendinide milletide boş boş şeylerle... www.sphereserver.net adresinden indir en son releaseyi
55i siteden kaldırılmalı bence
zippo : Hakkaten arkadaşım hangi cağda yaşıyorsun sen artık 56b ye geçmen gerekiyor. Geçmiyorsanda bırakıver ya kasma kendinide milletide boş boş şeylerle... www.sphereserver.net adresinden indir en son releaseyi

indirdim kurdum warning verdi dll yi yaptım ama açınca warning verdi
arkadaşım 55r 4.0.2 kullan 56 b den ve 55i den daha iyi demiş olam
tamam 56b ye geçtim çalışıyo :D
55r ye geç 56 b den daha iyi



Üye Ol veya Giriş Yap

Bu forum başlığına mesaj atmak istiyorsanız hemen üye olun veya giriş yapın.