arkadaslar elimde wendor scpde bir sorum warda oyuncu item aldıgında parayı bankadan almasını istiyorum ama yapamadım yardımcı olabilirmisiniz
[Dialog d_scribe_satiss]
0,0
NOMOVE
PAGE 0
Resizepic 10 5 5054 380 430
Resizepic 15 10 3000 370 420
Dtext 130 15 096d Scribe Vendor
Dtext 60 45 01c6 Esya
Dtext 230 45 01c6 Fiyat
Dtext 310 45 01c6 Adet
Resizepic 60 70 9300 300 3 // Cizgi
Tilepic 23 80 3643 //refresh
Dtext 60 82 0357 Spellbook
Dtext 230 82 0357 198gp
Resizepic 310 80 9300 50 20
Textentry 312 81 42 25 0 0 0
Tilepic 23 110 7956 // agility
Dtext 60 107 0357 Recall Rune
Dtext 230 107 0357 19gp
Resizepic 310 105 9300 50 20
Textentry 312 106 42 25 0 1 1
Tilepic 23 130 3636 // nightsight
Dtext 60 132 0357 Blank Scroll
Dtext 230 132 0357 18gp
Resizepic 310 130 9300 50 20
Textentry 312 131 42 25 0 2 2
// Satin AL
Resizepic 60 362 9300 100 33
Button 63 365 4030 4031 1 0 23
Dtext 88 368 08a5 Satin Al
// Iptal
Resizepic 170 362 9300 72 33
Button 173 365 4030 4031 1 0 24
Dtext 198 368 08a5 Iptal
[Dialog d_scribe_satiss Text]
0
0
0
[Dialog d_scribe_satiss Button]
On=23 // Satin Al
If !(<isnum <ARGTXT[0]>>)
src.sysmessage @38,,1 Hatali karakter girdiniz.
return 1
elseif !(<isnum <ARGTXT[1]>>)
src.sysmessage @38,,1 Hatali karakter girdiniz.
return 1
elseif !(<isnum <ARGTXT[2]>>)
src.sysmessage @38,,1 Hatali karakter girdiniz.
return 1
endif
Local.toplamsatis 0
If (<eval <argtxt[0]>> > 0)
Local.ToplamSatis (<eval <argtxt[0]> * 198>)
endif
if (<eval <argtxt[1]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[1]> * 19>)
endif
if (<eval <argtxt[2]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[2]> * 16>)
endif
If (<local.toplamsatis> == 0)
Src.Sysmessage @38,,1 Herhangi bir esya satin almamissiniz!
Return 1
Elseif (<Src.Totalgold> < <eval <Local.ToplamSatis>>)
Src.sysmessage @38,,1 Yeterli paraniz yok!
Return 1
Endif
If (<eval <argtxt[0]>> > 250) || (<eval <argtxt[1]>> > 250) || (<eval <argtxt[2]>> > 250)
src.sysmessage @38,,1 En fazla 250 adet alabilirsiniz!
return 1
endif
Src.consumebank <eval <Local.ToplamSatis>>
If (<eval <argtxt[0]>> > 0)
Src.EsyaVer i_spellbook,<eval <argtxt[0]>>
Endif
If (<eval <argtxt[1]>> > 0)
Src.EsyaVer i_rune_marker,<eval <argtxt[1]>>
Endif
If (<eval <argtxt[2]>> > 0)
Src.EsyaVerAmo i_scroll_blank,<eval <argtxt[2]>>
Endif
src.sysmessage @54,,1 Toplam <eval <Local.ToplamSatis>>gp harcadiniz.
endif
