Kumbara hatası [Yardım]

Merhaba arkadaşlar ben bi kumbara ekledim servera ilk defa alıntı yapayım dedim ama hatalarla karşılaştım şu aslında sıfırı sorunsuz olarak çalışıyor ama ben buna bir button ekledim ve çantamdaki bütün paraları aktarmasını istiyorum (SP leri) tag0 ile denedim olmadı , reg crystal scriptinden baktım hani tümünü ekle gibisinden ama ondanda çıkartamadım bir türlü sitede çok aradım bir türlü bulamadım son çare olarak buraya yazmayı uygun gördüm aslında pek yardım istemeyi sevmem ama bu konuda yardım almam gerekiyo sanırım gözden kaçırdığım ufak bir şey var ama tam anlamadım anlıyanlar birdaha scripti gözden geçerirse sevinirim..Yardımlarınızı bekliyorum..

Script :

[ITEMDEF i_bank_kumbara]
DEFNAME=i_bank_kumbara
name=Undead Kumbara
ID=i_box_brass
WEIGHT=0
VALUE=50
TYPE=t_script

on=@create
ATTR=attr_newbie
tag.sp = 0

on=@click
message @59,,1 [<serv.name>]
message @1153 Toplam <eval <tag.sp>> SP var.
message @1153 <name>
return 1

on=@dclick
if (<src.targ.topobj.uid> != <src.uid>)
src.sysmessage @0845,1,1 Bunu kullanabilmeniz icin cantanizda 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 değilsiniz!
elseif (<topobj.uid> != <src.uid>)
src.sysmessage @0845,1,1 Kumbarayi kullanabilmeniz icin ustunuze almalisiniz!
else
more2 1
target
src.sysmessage @666,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 @0845,1,1 Bunu kullanabilmeniz icin cantanizda olmalidir!
return 1
endif
if (<src.targ.baseid> == i_sp)
tag0.sp += <src.targ.amount>
src.targ.remove
more2 1
target 
src.sysmessage @666,1,1 Kumbara menusunu acmak icin kumbarayi, para yatirmak icin parayi veya checki seciniz.
else
if (<src.targ.baseid> == i_check_brnx)
tag0.sp += <src.targ.more1>
src.targ.remove
more2 1
target 

src.sysmessage @666,1,1 Kumbara menusunu acmak icin kumbarayi, para yatirmak icin parayi veya checki seciniz.
elseif (<src.targ.uid> == <uid>)
sdialog d_bank_kumbara
dialogclose d_bank_kumbara_check
endif
endif
return 1

on=@targon_char
if (<more2> == 2)
if (<src.targ.uid> == <src.uid>)
return 1
endif
endif
return 1

[dialog d_bank_kumbara]
0,0
page 1
resizepic 10 15 5170 270 260
resizepic 25 30 5170 240 230

dtext 85 33 250 Kumbara Menusu
dtext 110 120 1152 Check yaz.
button 85 123 2117 2118 1 0 1
dtext 110 140 1152 Cantamdaki Butun SP'leri ekle.
button 85 143 2117 2118 1 0 2
dtext 80 190 064 Bakiye: <eval <tag.sp>> sp

[dialog d_bank_kumbara button]
on=1
sdialog d_bank_kumbara_check

on=2
tag.sp +=<src.sp>

[dialog d_bank_kumbara_check]
50,50

resizepic 60 20 3600 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.sp>> altin var.
cekinizin miktari ne kadar olsun?
50.000 sp
100.000 sp
250.000 sp
500.000 sp
1.000.000 sp
-->

[dialog d_bank_kumbara_check button]
On=1
if (<eval <tag.sp>> >= 50000)
tag.sp -= 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.sp>> >= 100000)
tag.sp -= 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.sp>> >= 250000)
tag.sp -= 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.sp>> >= 500000)
tag.sp -= 500000
newitem i_check_brnx
new.more1 500000
new.more2 <src.uid>
new.cont <src.findlayer(21).uid>
else
src.sysmessage @0845,1,1 Kumbaranizda 500k bulunmamaktadir!
endif

On=5
if (<eval <tag.sp>> >= 1000000)
tag.sp -= 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.sp <argn1>
if (<eval <local.sp>> > 64999)
serv.newitem i_sp
new.amount 65000
new.cont <findlayer(layer_bankbox).uid>
local.sp -= 65000
f_give_money <eval <local.sp>>
elseif (0<eval <local.sp>>)
serv.newitem i_sp
new.amount <eval <local.sp>>
new.cont <findlayer(layer_bankbox).uid>
local.sp 0
endif
[CHARDEF c_merchant3]
DEFNAME=c_merchant3
NAME=#NAMES_HUMANMALE
ID=C_MAN

ON=@Create
NPC=brain_vendor
COLOR=colors_skin
STR=100
DEX=1
INT=1
        ALLSKILLS=100.0

ON=@NPCRestock
ITEM=i_shroud
COLOR=07ff
        attr 04
ITEM=i_shoes_plain
COLOR=1
        attr 04
ITEM=i_bandana
COLOR=1
        attr 04
        ITEM=i_apron_half
COLOR=1
        attr 04

on=@click
message @0f4,3 <name> the exchanger
return 1

on=@dclick
if (<distance> < 4)
dialoglarinhepsinikapat
src.sdialog d_exchanger
return 1
else
src.sysmessage @07b1,,1 Uzaktasınız.
return 1
endif

on=@gethit
return 1

on=@death
return 1

on=@usewarmode
return 1

on=@skillstart
return 1

on=@useskill
return 1

on=@spellcast
return 1




////////////////////--------------------//////////////////////////

[dialog d_exchanger]
200,50
nomove
resizepic 10 10 3600 400 250
resizepic 60 150 9300 140 20

dhtmlgump 25 25 370 70 10 0 <def.bfont_dblack> Merhaba <name>.Burası bir nevi döviz bürosudur.Paranı çek yapabilir veya çeklerini bozdurabilirsin ve tabi istersen sana kumbarada satabilirim 
//dhtmlgump 201 119 20 20 0 0 <def.bfont_gray> ı
//dhtmlgump 201 127 20 20 0 0 <def.bfont_gray> ı
//dhtmlgump 201 135 20 20 0 0 <def.bfont_gray> ı
//dhtmlgump 201 143 20 20 0 0 <def.bfont_gray> ı
//dhtmlgump 201 151 20 20 0 0 <def.bfont_gray> ı
//dhtmlgump 201 159 20 20 0 0 <def.bfont_gray> ı
//dhtmlgump 201 167 20 20 0 0 <def.bfont_gray> ı
//dhtmlgump 201 175 20 20 0 0 <def.bfont_gray> ı
//dhtmlgump 201 183 20 20 0 0 <def.bfont_gray> ı
//dhtmlgump 201 191 20 20 0 0 <def.bfont_gray> ı
//dhtmlgump 201 199 20 20 0 0 <def.bfont_gray> ı
//dhtmlgump 201 207 20 20 0 0 <def.bfont_gray> ı
//dhtmlgump 201 215 20 20 0 0 <def.bfont_gray> ı
//dhtmlgump 201 223 20 20 0 0 <def.bfont_gray> ı


dhtmlgump 25 120 400 35 0 0 <def.bfont_gray> ----------------------------------------------------------
dhtmlgump 25 225 400 35 0 0 <def.bfont_gray> ----------------------------------------------------------

dhtmlgump 382 119 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 382 127 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 382 135 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 382 143 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 382 151 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 382 159 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 382 167 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 382 175 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 382 183 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 382 191 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 382 199 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 382 207 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 382 215 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 382 223 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 19 119 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 19 127 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 19 135 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 19 143 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 19 151 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 19 159 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 19 167 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 19 175 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 19 183 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 19 191 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 19 199 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 19 207 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 19 215 20 20 0 0 <def.bfont_gray> ı
dhtmlgump 19 223 20 20 0 0 <def.bfont_gray> ı

//////////////-----------------------/////////////////////////


dtext 60 110 0481 Çek menüsü
dtext 200 150 03a0 miktar paramı çek yap.
dtextentry 60 150 160 100 1152 1 <var.blank>

dtext 60 180 03a0 Çek bozdurmak istiyorum.

dtext 60 210 03a0 Kumbara satın almak istiyorum.

button 40 150 55 56 1 0 1
button 40 180 55 56 1 0 2
button 40 210 55 56 1 0 3



[dialog d_exchanger button]
onbutton=0

onbutton=1
if !(<isnum <argtxt[1]>>)
src.sysmessage @045a,,1 Sadece rakam kullanabilirsiniz!
elseif (<eval <argtxt[1]>> < 1)
src.sysmessage @045a,,1 Hatalı bir rakam girdiniz!
elseif (<eval <argtxt[1]>> > <src.sp>)
src.sysmessage @045a,,1 Bukadar paran yok 
else
src.sp -= <argtxt[1]>
newitem i_check_brnx
new.more1 <argtxt[1]>
new.more2 <src.uid>
new.cont <src.findlayer(21).uid>
return 1
endif

onbutton=2
src.targetf checkbozdur

onbutton=3
IF (<src.sp> > 99999)
SRC.NEWITEM=i_bank_kumbara
new.BOUNCE
SRC.sp -= 100000
SRC.sysMESSAGE 100.000 sp karsiliginda kumbara aldiniz.
sdialog d_exchanger
SOUND 0F7
ELSE
sdialog d_exchanger
sysmessage Paraniz yeterli degil. ( 100k )
ENDIF

////////////////////////////////////////////////////////////////////

[function checkbozdur]
obj=<argo>
if (<obj.baseid> == i_check_brnx)
src.checkkarsiligi <obj.more1>
src.sfx 50
src.sysmessage @045a,,1 Aktarılan Miktar: <eval <obj.more1>>
obj.remove
src.update
src.fix
return 1
else
src.sysmessage @045a,,1 Sadece Check bozdurabilirsiniz.
return 1
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 @045a,,1 Miktar: <eval <more1>>
message @030a,,1 [<src.uid.<more2>.name>]
return 1

On=@DClick
return 1

/////////////////////////////////////////////
[function checkkarsiligi]
var.parasi <argn>
for 0 1000
if (<eval <var.parasi>> > 50000)
serv.newitem i_sp
new.amount 50000
new.cont <findlayer(layer_bankbox).uid>
var.parasi -= 50000
elseif (<eval <var.parasi>> = 50000)
serv.newitem i_sp
new.amount 50000
new.cont <findlayer(layer_bankbox).uid>
var.parasi = 0
return 1
elseif (<eval <var.parasi>> != 0)
serv.newitem i_sp
new.amount <eval <var.parasi>>
new.cont <findlayer(layer_bankbox).uid>
var.parasi 0
return 1
endif
endfor


[EOF]

Ekledim sp ler eklendi olarak gözüktü fakat dostum kumbarada para gözükmedi spherede şöyle bir hata verdi
3:09:ERROR:(kumbara.scp,91)Undefined symbol ''
23:09:ERROR:(kumbara.scp,91)Undefined symbol 'eval'

tag.gp += <src.rescount i_sp>

Dostum yaptım çok teşekkürler gp yerine sp yaptım oldu bu arada özel mesajına bakarsan sevinirim Gerçekten teşekkürler..

Bu konu Redcoatx tarafından düzenlendi(2013-06-07 23:21, 10 yıl önce)