Üye ol    Giriş
  1. Arşiv
  2. 55r402 Teot Rename Fix
Nicole

55r402 Teot Rename Fix

  • Nicole
  • 2007-08-09 21:51
  • 3
  • 9128

[title]5.Çözüm
Vendor menülerinizi değiştirin.Bunun için sizlere bir vendor sripti vereceğim.Script şu;

 

 

 

 

// ----------------------------
// Vendormenus.scp - Buys
// Yazar: By Andoria Staff
// SON GUNCELLENME TARIHI: 12 Ocak 2006 13:58 - LorieN
// ----------------------------
//Editing By Nicole(Sadece Dialogları değiştirdim)
Menudeki Bug Giderildi Verdataya Gore Editlendi...
VERSION=0.55

[Dialog d_scribe_satiss]
130,30
PAGE 0
Resizepic 10 10 5150 380 430
Dtext 130 15 0790 War Of Near Alisveris
Dtext 60 45 0790 Esya
Dtext 230 45 0790 Fiyat
Dtext 310 45 0790 Adet
Resizepic 60 70 60600 300 3 // Cizgi
Tilepic 23 80 3643 //refresh
Dtext 60 82 0790 Spellbook
Dtext 230 82 0790 198gp
Resizepic 310 80 60600 50 20
Textentry 312 81 42 25 0 0 0
Tilepic 23 110 7956 // agility
Dtext 60 107 0790 Recall Rune
Dtext 230 107 0790 19gp
Resizepic 310 105 60600 50 20
Textentry 312 106 42 25 850 1 1
Tilepic 23 130 3636 // nightsight
Dtext 60 132 0790 Blank Scroll
Dtext 230 132 0790 18gp
Resizepic 310 130 60600 50 20
Textentry 312 131 42 25 0 2 2

// Satin AL
Button 60 365 4006 4005 1 0 23
Dtext 88 368 0790 Satin Al
// Iptal
Button 170 365 4006 4005 1 0 24
Dtext 198 368 0790 Iptal

[Dialog d_scribe_satiss Text]
0
0
0

[Dialog d_scribe_satiss Button]
On=23 // Satin Al
if !(<isnum <argtxt[0]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[1]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[2]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
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]>> > 200) || (<eval <argtxt[1]>> > 200) || (<eval <argtxt[2]>> > 200)
src.sysmessage @38,,1 En fazla 200 adet alabilirsiniz!
return 1
endif
Src.consumegold <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 @0790 Toplam <eval <Local.ToplamSatis>>gp harcadiniz.
endif

On=24

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

[Dialog d_ship_satiss]
130,30
PAGE 0
Resizepic 10 10 5150 380 430
Dtext 130 15 0790 War Of Near Alisveris
Dtext 60 45 0790 Esya
Dtext 230 45 0790 Fiyat
Dtext 310 45 0790 Adet
Resizepic 60 70 60600 300 3 // Cizgi
Tilepic 23 80 5364 //refresh
Dtext 60 82 0790 Small dragon ship
Dtext 230 82 0790 16675gp
Resizepic 310 80 60600 50 20
Textentry 312 81 42 25 0 0 0
Tilepic 23 110 5364 // agility
Dtext 60 107 0790 Long Dragon Ship
Dtext 230 107 0790 21275gp
Resizepic 310 105 60600 50 20
Textentry 312 106 42 25 850 1 1
Tilepic 23 130 5364 // nightsight
Dtext 60 132 0790 Long Ship
Dtext 230 132 0790 20700gp
Resizepic 310 130 60600 50 20
Textentry 312 131 42 25 0 2 2
Tilepic 23 158 5364 // str
Dtext 60 157 0790 Small ship
Dtext 230 157 0790 16100gp
Resizepic 310 155 60600 50 20
Textentry 312 156 42 25 850 3 3
Tilepic 20 183 5364 // shipe
Dtext 60 182 0790 Medium Ship
Dtext 230 182 0790 18400gp
Resizepic 310 180 60600 50 20
Textentry 312 181 42 25 0 4 4
Tilepic 23 205 4183 // poison	
Dtext 60 207 0790 Pusula
Dtext 230 207 0790 110gp
Resizepic 310 205 60600 50 20
Textentry 312 206 42 25 850 5 5

// Satin AL
Button 60 365 4006 4005 1 0 23
Dtext 88 368 0790 Satin Al
// Iptal
Button 170 365 4006 4005 1 0 24
Dtext 198 368 0790 Iptal

[Dialog d_ship_satiss Text]
0
0
0
0
0
0

[Dialog d_ship_satiss Button]
On=23 // Satin Al
if !(<isnum <argtxt[0]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[1]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[2]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1  
elseif !(<isnum <argtxt[3]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1  
elseif !(<isnum <argtxt[4]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[5]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
endif 

Local.toplamsatis 0
If (<eval <argtxt[0]>> > 0)
Local.ToplamSatis (<eval <argtxt[0]> * 16675>)
endif
if (<eval <argtxt[1]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[1]> * 21275>)
endif
if (<eval <argtxt[2]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[2]> * 20700>)
endif
if (<eval <argtxt[3]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[3]> * 16100>)
endif
if (<eval <argtxt[4]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[4]> * 18400>)
endif
if (<eval <argtxt[5]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[5]> * 110>)
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]>> > 200) || (<eval <argtxt[1]>> > 200) || (<eval <argtxt[2]>> > 200) || (<eval <argtxt[3]>> > 200) || (<eval <argtxt[4]>> > 200) || (<eval <argtxt[5]>> > 200)
src.sysmessage @38,,1 En fazla 200 adet alabilirsiniz!
return 1
endif
Src.consumegold <eval <Local.ToplamSatis>>
If (<eval <argtxt[0]>> > 0)
Src.EsyaVer i_deed_ship_dragon_small_n,<eval <argtxt[0]>>
Endif
If (<eval <argtxt[1]>> > 0)
Src.EsyaVer i_deed_ship_dragon_long_n,<eval <argtxt[1]>>
Endif
If (<eval <argtxt[2]>> > 0)
Src.EsyaVer i_deed_ship_long_n,<eval <argtxt[2]>>
Endif
If (<eval <argtxt[3]>> > 0)
Src.EsyaVer i_deed_ship_small_n,<eval <argtxt[3]>>
ENDIF
If (<eval <argtxt[4]>> > 0)
Src.EsyaVer i_deed_ship_medium_n,<eval <argtxt[4]>>
ENDIF
If (<eval <argtxt[5]>> > 0)
Src.EsyaVer i_sextant,<eval <argtxt[5]>>
ENDIF
src.sysmessage @0790 Toplam <eval <Local.ToplamSatis>>gp harcadiniz.
endif

On=24

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

[Dialog d_carpentry_satiss]
130,30
PAGE 0
Resizepic 10 10 5150 380 430
Dtext 130 15 0790 War Of Near Alisveris
Dtext 60 45 0790 Esya
Dtext 230 45 0790 Fiyat
Dtext 310 45 0790 Adet
Resizepic 60 70 60600 300 3 // Cizgi
Tilepic 23 80 7133//refresh
Dtext 60 82 0790 Log
Dtext 230 82 0790 12gp
Resizepic 310 80 60600 50 20
Textentry 312 81 42 25 0 0 0
Tilepic 23 110 7130 // agility
Dtext 60 107 0790 Board
Dtext 230 107 0790 12gp
Resizepic 310 105 60600 50 20
Textentry 312 106 42 25 850 1 1
Tilepic 23 130 4148 // sawsight
Dtext 60 132 0790 Saw
Dtext 230 132 0790 320gp
Resizepic 310 130 60600 50 20
Textentry 312 131 42 25 0 2 2
Tilepic 23 158 3740 // str
Dtext 60 157 0790 Drumy
Dtext 230 157 0790 89gp
Resizepic 310 155 60600 50 20
Textentry 312 156 42 25 850 3 3
Tilepic 20 183 3762 // cure
Dtext 60 182 0790 Arp
Dtext 230 182 0790 89gp
Resizepic 310 180 60600 50 20
Textentry 312 181 42 25 0 4 4
Tilepic 23 205 4020 // poison	
Dtext 60 207 0790 Mallet and chisels
Dtext 230 207 0790 1210gp
Resizepic 310 205 60600 50 20
Textentry 312 206 42 25 850 5 5

// Satin AL
Button 60 365 4006 4005 1 0 23
Dtext 88 368 0790 Satin Al
// Iptal
Button 170 365 4006 4005 1 0 24
Dtext 198 368 0790 Iptal

[Dialog d_carpentry_satiss Text]
0
0
0
0
0
0

[Dialog d_carpentry_satiss Button]
On=23 // Satin Al
if !(<isnum <argtxt[0]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[1]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[2]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[3]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1  
elseif !(<isnum <argtxt[4]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[5]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
endif 

Local.toplamsatis 0
If (<eval <argtxt[0]>> > 0)
Local.ToplamSatis (<eval <argtxt[0]> * 12>)
endif
if (<eval <argtxt[1]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[1]> * 12>)
endif
if (<eval <argtxt[2]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[2]> * 320>)
endif
if (<eval <argtxt[3]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[3]> * 89>)
endif
if (<eval <argtxt[4]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[4]> * 1210>)
endif
if (<eval <argtxt[5]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[5]> * 15>)
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]>> > 200) || (<eval <argtxt[1]>> > 200) || (<eval <argtxt[2]>> > 200) || (<eval <argtxt[3]>> > 200) || (<eval <argtxt[4]>> > 200) || (<eval <argtxt[5]>> > 200)
src.sysmessage @38,,1 En fazla 200 adet alabilirsiniz!
return 1
endif
Src.consumegold <eval <Local.ToplamSatis>>
If (<eval <argtxt[0]>> > 0)
Src.EsyaVer i_log,<eval <argtxt[0]>>
Endif
If (<eval <argtxt[1]>> > 0)
Src.EsyaVer i_board,<eval <argtxt[1]>>
Endif
If (<eval <argtxt[2]>> > 0)
Src.EsyaVer i_saw,<eval <argtxt[2]>>
Endif
If (<eval <argtxt[3]>> > 0)
Src.EsyaVer i_drum,<eval <argtxt[3]>>
ENDIF
If (<eval <argtxt[4]>> > 0)
Src.EsyaVer i_lyre,<eval <argtxt[4]>>
ENDIF
If (<eval <argtxt[5]>> > 0)
Src.EsyaVer i_manchi,<eval <argtxt[5]>>
ENDIF
src.sysmessage @0790 Toplam <eval <Local.ToplamSatis>>gp harcadiniz.
endif

On=24


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

[Dialog d_fish_satiss]
130,30
PAGE 0
Resizepic 10 10 5150 380 430
Dtext 130 15 0790 War Of Near Alisveris
Dtext 60 45 0790 Esya
Dtext 230 45 0790 Fiyat
Dtext 310 45 0790 Adet
Resizepic 60 70 60600 300 3 // Cizgi
Tilepic 23 80 3528 //refresh
Dtext 60 82 0790 Fishing net
Dtext 230 82 0790 575gp
Resizepic 310 80 60600 50 20
Textentry 312 81 42 25 0 0 0
Tilepic 23 110 3520 // agility
Dtext 60 107 0790 Fishing pole
Dtext 230 107 0790 115gp
Resizepic 310 105 60600 50 20
Textentry 312 106 42 25 850 1 1
Tilepic 23 130 2530 // nightsight
Dtext 60 132 0790 Balik Tavasi
Dtext 230 132 0790 28750gp
Resizepic 310 130 60600 50 20
Textentry 312 131 42 25 0 2 2

// Satin AL
Button 60 365 4006 4005 1 0 23
Dtext 88 368 0790 Satin Al
// Iptal
Button 170 365 4006 4005 1 0 24
Dtext 198 368 0790 Iptal

[Dialog d_fish_satiss Text]
0
0
0

[Dialog d_fish_satiss Button]
On=23 // Satin Al
if !(<isnum <argtxt[0]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[1]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[2]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
endif 

Local.toplamsatis 0
If (<eval <argtxt[0]>> > 0)
Local.ToplamSatis (<eval <argtxt[0]> * 575>)
endif
if (<eval <argtxt[1]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[1]> * 115>)
endif
if (<eval <argtxt[2]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[2]> * 28750>)
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]>> > 200) || (<eval <argtxt[1]>> > 200) || (<eval <argtxt[2]>> > 200)
src.sysmessage @38,,1 En fazla 200 adet alabilirsiniz!
return 1
endif
Src.consumegold <eval <Local.ToplamSatis>>
If (<eval <argtxt[0]>> > 0)
Src.EsyaVer i_fishing_net_green,<eval <argtxt[0]>>
Endif
If (<eval <argtxt[1]>> > 0)
Src.EsyaVer i_fishing_pole,<eval <argtxt[1]>>
Endif
If (<eval <argtxt[2]>> > 0)
Src.EsyaVer i_tava_balik,<eval <argtxt[2]>>
Endif
src.sysmessage @0790 Toplam <eval <Local.ToplamSatis>>gp harcadiniz.
endif

On=24

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

[Dialog d_bow_satiss]
130,30
PAGE 0
Resizepic 10 10 5150 380 430
Dtext 130 15 0790 War Of Near Alisveris
Dtext 60 45 0790 Esya
Dtext 230 45 0790 Fiyat
Dtext 310 45 0790 Adet
Resizepic 60 70 60600 300 3 // Cizgi
Tilepic 23 80 4133// shaft kristali
Dtext 60 82 0790 Shaft
Dtext 230 82 0790 37gp
Resizepic 310 80 60600 50 20
Textentry 312 81 42 25 0 0 0
Tilepic 23 110 4128 // feat dye
Dtext 60 107 0790 Feather
Dtext 230 107 0790 37gp
Resizepic 310 105 60600 50 20
Textentry 312 106 42 25 850 1 1
Tilepic 23 130 7163 // cbolti deed
Dtext 60 132 0790 CrossBow bolt
Dtext 230 132 0790 7gp
Resizepic 310 130 60600 50 20
Textentry 312 131 42 25 0 2 2
Tilepic 23 158 3903 // arrow
Dtext 60 157 0790 Arrow
Dtext 230 157 0790 7gp
Resizepic 310 155 60600 50 20
Textentry 312 156 42 25 850 3 3
Tilepic 20 183 5117 // Kindling
Dtext 60 182 0790 Heavy Crossbow
Dtext 230 182 0790 137gp
Resizepic 310 180 60600 50 20
Textentry 312 181 42 25 0 4 4
Tilepic 23 205 3919 // cross
Dtext 60 207 0790 CrossBow
Dtext 230 207 0790 137gp
Resizepic 310 205 60600 50 20
Textentry 312 206 42 25 850 5 5
Tilepic 23 235 5042 // bow craft
Dtext 60 232 0790 Bow
Dtext 230 232 0790 137gp
Resizepic 310 230 60600 50 20
Textentry 312 231 42 25 0 6 6

// Satin AL
Button 60 365 4006 4005 1 0 23
Dtext 88 368 0790 Satin Al
// Iptal
Button 170 365 4006 4005 1 0 24
Dtext 198 368 0790 Iptal

[Dialog d_bow_satiss Text]
0
0
0
0
0
0
0

[Dialog d_bow_satiss Button]
On=23 // Satin Al
if !(<isnum <argtxt[0]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[1]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[2]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[3]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[4]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[5]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[6]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
endif 

Local.toplamsatis 0
If (<eval <argtxt[0]>> > 0)
Local.ToplamSatis (<eval <argtxt[0]> * 37>)
endif
if (<eval <argtxt[1]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[1]> * 37>)
endif
if (<eval <argtxt[2]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[2]> * 7>)
endif
if (<eval <argtxt[3]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[3]> * 7>)
endif
if (<eval <argtxt[4]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[4]> * 137>)
endif
if (<eval <argtxt[5]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[5]> * 137>)
endif
if (<eval <argtxt[6]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[6]> * 137>)
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]>> > 200) || (<eval <argtxt[1]>> > 200) || (<eval <argtxt[2]>> > 200) || (<eval <argtxt[3]>> > 200) || (<eval <argtxt[4]>> > 200) || (<eval <argtxt[5]>> > 200) || (<eval <argtxt[6]>> > 200)
src.sysmessage @38,,1 En fazla 200 adet alabilirsiniz!
return 1
endif
Src.consumegold <eval <Local.ToplamSatis>>
If (<eval <argtxt[0]>> > 0)
Src.EsyaVeramo i_arrow_shaft,<eval <argtxt[0]>>
Endif
If (<eval <argtxt[1]>> > 0)
Src.EsyaVeramo i_feather,<eval <argtxt[1]>>
Endif
If (<eval <argtxt[2]>> > 0)
Src.EsyaVeramo i_xbolt,<eval <argtxt[2]>>
Endif
If (<eval <argtxt[3]>> > 0)
Src.EsyaVeramo i_arrow,<eval <argtxt[3]>>
ENDIF
If (<eval <argtxt[4]>> > 0)
Src.EsyaVer i_crossbow_heavy,<eval <argtxt[4]>>
ENDIF
If (<eval <argtxt[5]>> > 0)
Src.EsyaVer i_crossbow,<eval <argtxt[5]>>
ENDIF
If (<eval <argtxt[6]>> > 0)
Src.EsyaVer i_bow,<eval <argtxt[6]>>
ENDIF
src.sysmessage @0790 Toplam <eval <Local.ToplamSatis>>gp harcadiniz. 
endif

On=24

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

[Dialog d_animal_satiss]
130,30
PAGE 0
Resizepic 10 10 5150 380 430
Dtext 130 15 0790 War Of Near Alisveris
Dtext 60 45 0790 Esya
Dtext 230 45 0790 Fiyat
Dtext 310 45 0790 Adet
Resizepic 60 70 60600 300 3 // Cizgi
Tilepic 23 80 8486 //phorseh
Dtext 60 82 0790 Pack Horse
Dtext 230 82 0790 2145gp
Resizepic 310 80 60600 50 20
Textentry 312 81 42 25 0 0 0
Tilepic 23 110 8487 // plamality
Dtext 60 107 0790 Pack lama
Dtext 230 107 0790 1799gp
Resizepic 310 105 60600 50 20
Textentry 312 106 42 25 850 1 1
Tilepic 23 130 8480 // ahorsesight
Dtext 60 132 0790 Horse
Dtext 230 132 0790 1369gp
Resizepic 310 130 60600 50 20
Textentry 312 131 42 25 0 2 2
Tilepic 23 158 8481 // Horse
Dtext 60 157 0790 Horse
Dtext 230 157 0790 1369gp
Resizepic 310 155 60600 50 20
Textentry 312 156 42 25 850 3 3
Tilepic 20 183 8479 // chorse
Dtext 60 182 0790 Horse
Dtext 230 182 0790 1369gp
Resizepic 310 180 60600 50 20
Textentry 312 181 42 25 0 4 4
Tilepic 23 205 8484// dhorseson	
Dtext 60 207 0790 Horse
Dtext 230 207 0790 1369gp
Resizepic 310 205 60600 50 20
Textentry 312 206 42 25 850 5 5
Tilepic 23 235  3714// gnar
Dtext 60 232 0790 Crock
Dtext 230 232 0790 134gp
Resizepic 310 230 60600 50 20
Textentry 312 231 42 25 0 6 6
Tilepic 20 260 3722// taming
Dtext 60 257 0790 Taming Staff
Dtext 230 257 0790 196gp
Resizepic 310 255 60600 50 20
Textentry 312 256 42 25 850 7 7
Tilepic 25 285 014f0 // animal
Dtext 60 282 0790 Animal Deed
Dtext 230 282 0790 157gp
Resizepic 310 280 60600 50 20
Textentry 312 281 42 25 0 8 8
Tilepic 21 310 4108 // samana
Dtext 60 307 0790 Saman
Dtext 230 307 0790  118gp
Resizepic 310 305 60600 50 20
Textentry 312 306 42 25 850 9 9
Tilepic 23 337 4108 // pic
Dtext 60 332 0790 Saman
Dtext 230 332 0790 118gp
Resizepic 310 330 50600 50 20
Textentry 312 331 42 25 0 10 10
// Satin AL
Button 60 365 4006 4005 1 0 23
Dtext 88 368 0790 Satin Al
// Iptal
Button 170 365 4006 4005 1 0 24
Dtext 198 368 0790 Iptal


// Satin AL
Button 60 365 4006 4005 1 0 23
Dtext 88 368 0790 Satin Al
// Iptal
Button 170 365 4006 4005 1 0 24
Dtext 198 368 0790 Iptal

[Dialog d_animal_satiss Text]
0
0
0
0
0
0
0
0
0
0
0

[Dialog d_animal_satiss Button]
On=23 // Satin Al
if !(<isnum <argtxt[0]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[1]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[2]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1  
elseif !(<isnum <argtxt[3]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[4]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[5]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[6]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[7]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[8]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[9]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[10]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
endif 

Local.toplamsatis 0
If (<eval <argtxt[0]>> > 0)
Local.ToplamSatis (<eval <argtxt[0]> * 2145>)
endif
if (<eval <argtxt[1]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[1]> * 1799>)
endif
if (<eval <argtxt[2]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[2]> * 1369>)
endif
if (<eval <argtxt[3]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[3]> * 1369>)
endif
if (<eval <argtxt[4]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[4]> * 1369>)
endif
if (<eval <argtxt[5]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[5]> * 1369>)
endif
if (<eval <argtxt[6]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[6]> * 134>)
endif
if (<eval <argtxt[7]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[7]> * 134>)
endif
if (<eval <argtxt[8]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[8]> * 157>)
endif
if (<eval <argtxt[9]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[9]> * 118>)
endif
if (<eval <argtxt[10]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[10]> * 118>)
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]>> > 200) || (<eval <argtxt[1]>> > 200) || (<eval <argtxt[2]>> > 200) || (<eval <argtxt[3]>> > 200) || (<eval <argtxt[4]>> > 200) || (<eval <argtxt[5]>> > 200) || (<eval <argtxt[6]>> > 200) || (<eval <argtxt[7]>> > 200) || (<eval <argtxt[8]>> > 200) || (<eval <argtxt[9]>> > 200) || (<eval <argtxt[10]>> > 200)
src.sysmessage @38,,1 En fazla 200 adet alabilirsiniz!
return 1
endif
Src.consumegold <eval <Local.ToplamSatis>>
If (<eval <argtxt[0]>> > 0)
Src.EsyaVer i_pet_horse_pack,<eval <argtxt[0]>>
Endif
If (<eval <argtxt[1]>> > 0)
Src.EsyaVer i_pet_llama_pack,<eval <argtxt[1]>>
Endif
If (<eval <argtxt[2]>> > 0)
Src.EsyaVer i_pet_horse_brown_lt,<eval <argtxt[2]>>
Endif
If (<eval <argtxt[3]>> > 0)
Src.EsyaVer i_pet_horse_brown_dk,<eval <argtxt[3]>>
ENDIF
If (<eval <argtxt[4]>> > 0)
Src.EsyaVer i_pet_horse_gray,<eval <argtxt[4]>>
ENDIF
If (<eval <argtxt[5]>> > 0)
Src.EsyaVer i_pet_horse_tan,<eval <argtxt[5]>>
ENDIF
If (<eval <argtxt[6]>> > 0)
Src.EsyaVer i_shepherds_Crook,<eval <argtxt[6]>>
ENDIF
If (<eval <argtxt[7]>> > 0)
Src.EsyaVer i_staff_taming,<eval <argtxt[7]>>
ENDIF
If (<eval <argtxt[8]>> > 0)
Src.EsyaVer i_animal,<eval <argtxt[8]>>
ENDIF
If (<eval <argtxt[9]>> > 0)
Src.EsyaVer i_hay_sheaf,<eval <argtxt[9]>>
ENDIF
If (<eval <argtxt[10]>> > 0)
Src.EsyaVer i_hay_Sheaf,<eval <argtxt[10]>>
ENDIF
src.sysmessage @0790 Toplam <eval <Local.ToplamSatis>>gp harcadiniz.
endif

On=24 

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


[Dialog d_mage_satiss]
130,30
PAGE 0
Resizepic 10 10 5150 380 430
Dtext 130 15 0790 War Of Near Alisveris
Dtext 60 45 0790 Esya
Dtext 230 45 0790 Fiyat
Dtext 310 45 0790 Adet
Resizepic 60 70 60600 300 3 // Cizgi
Tilepic 23 80 7961 // Spellbook
Dtext 60 82 0790 Reg Crystal(30)
Dtext 230 82 0790 1200gp
Resizepic 310 80 60600 50 20
Textentry 312 81 42 25 0 0 0
Tilepic 23 110 7961 // Recall Rune
Dtext 60 107 0790 Reg Crystal(60)
Dtext 230 107 0790 2950gp
Resizepic 310 105 60600 50 20
Textentry 312 106 42 25 850 1 1
Tilepic 23 130 7961 // Blank Scrolls
Dtext 60 132 0790 Reg Crystal(90)
Dtext 230 132 0790 4350gp
Resizepic 310 130 60600 50 20
Textentry 312 131 42 25 0 2 2
Tilepic 23 158 3981 // Spider's Silk
Dtext 60 157 0790 Spider's silk
Dtext 230 157 0790 7gp
Resizepic 310 155 60600 50 20
Textentry 312 156 42 25 850 3 3
Tilepic 20 183 3980 // Sulfurous Ash
Dtext 60 182 0790 Sulfurous Ash
Dtext 230 182 0790 7gp
Resizepic 310 180 60600 50 20
Textentry 312 181 42 25 0 4 4
Tilepic 23 205 3976 // Nightshade
Dtext 60 207 0790 Nightshade
Dtext 230 207 0790 7gp
Resizepic 310 205 60600 50 20
Textentry 312 206 42 25 850 5 5
Tilepic 23 235 3974 // Mandrake Root
Dtext 60 232 0790 Mandrake root
Dtext 230 232 0790 7gp
Resizepic 310 230 60600 50 20
Textentry 312 231 42 25 0 6 6
Tilepic 20 260 3973 // Ginseng
Dtext 60 257 0790 Ginseng
Dtext 230 257 0790 7gp
Resizepic 310 255 60600 50 20
Textentry 312 256 42 25 850 7 7
Tilepic 25 285 3972 // Garlic
Dtext 60 282 0790 Garlic
Dtext 230 282 0790 7gp
Resizepic 310 280 60600 50 20
Textentry 312 281 42 25 0 8 8
Tilepic 21 310 3963 // Blood Moss
Dtext 60 307 0790 Blood moss
Dtext 230 307 0790 7gp
Resizepic 310 305 60600 50 20
Textentry 312 306 42 25 850 9 9
Tilepic 23 337 3962 // Black Pearls
Dtext 60 332 0790 Black pearls
Dtext 230 332 0790 7gp
Resizepic 310 330 50600 50 20
Textentry 312 331 42 25 0 10 10
// Satin AL
Button 60 365 4006 4005 1 0 23
Dtext 88 368 0790 Satin Al
// Iptal
Button 170 365 4006 4005 1 0 24
Dtext 198 368 0790 Iptal

[Dialog d_mage_satiss Text]
0
0
0
0
0
0
0
0
0
0
0

[Dialog d_mage_satiss Button]
On=23 // Satin Al
if !(<isnum <argtxt[0]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[1]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[2]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1  
elseif !(<isnum <argtxt[3]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[4]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[5]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[6]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[7]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[8]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[9]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[10]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
endif 

Local.toplamsatis 0
If (<eval <argtxt[0]>> > 0)
Local.ToplamSatis (<eval <argtxt[0]> * 1200>)
endif
if (<eval <argtxt[1]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[1]> * 2950>)
endif
if (<eval <argtxt[2]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[2]> * 4350>)
endif
if (<eval <argtxt[3]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[3]> * 7>)
endif
if (<eval <argtxt[4]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[4]> * 7>)
endif
if (<eval <argtxt[5]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[5]> * 7>)
endif
if (<eval <argtxt[6]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[6]> * 7>)
endif
if (<eval <argtxt[7]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[7]> * 7>)
endif
if (<eval <argtxt[8]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[8]> * 7>)
endif
if (<eval <argtxt[9]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[9]> * 7>)
endif
if (<eval <argtxt[10]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[10]> * 7>)
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]>> > 200) || (<eval <argtxt[1]>> > 200) || (<eval <argtxt[2]>> > 200) || (<eval <argtxt[3]>> > 200) || (<eval <argtxt[4]>> > 200) || (<eval <argtxt[5]>> > 200) || (<eval <argtxt[6]>> > 200) || (<eval <argtxt[7]>> > 200) || (<eval <argtxt[8]>> > 200) || (<eval <argtxt[9]>> > 200) || (<eval <argtxt[10]>> > 200)
src.sysmessage @38,,1 En fazla 200 adet alabilirsiniz! 
return 1
endif
Src.consumegold <eval <Local.ToplamSatis>>
If (<eval <argtxt[0]>> > 0)
Src.EsyaVer i_magic_reg30,<eval <argtxt[0]>>
Endif
If (<eval <argtxt[1]>> > 0)
Src.EsyaVer i_magic_reg60,<eval <argtxt[1]>>
Endif
If (<eval <argtxt[2]>> > 0)
Src.EsyaVer i_magic_reg90,<eval <argtxt[2]>>
Endif
If (<eval <argtxt[3]>> > 0)
Src.EsyaVerAmO i_reag_spider_silk,<eval <argtxt[3]>>
ENDIF
If (<eval <argtxt[4]>> > 0)
Src.EsyaVerAmO i_reag_sulfur_ash,<eval <argtxt[4]>>
ENDIF
If (<eval <argtxt[5]>> > 0)
Src.EsyaVerAmO i_reag_nightshade,<eval <argtxt[5]>>
ENDIF
If (<eval <argtxt[6]>> > 0)
Src.EsyaVerAmO i_reag_mandrake_root,<eval <argtxt[6]>>
ENDIF
If (<eval <argtxt[7]>> > 0)
Src.EsyaVerAmO i_reag_ginseng,<eval <argtxt[7]>>
ENDIF
If (<eval <argtxt[8]>> > 0)
Src.EsyaVerAmO i_reag_garlic,<eval <argtxt[8]>>
ENDIF
If (<eval <argtxt[9]>> > 0)
Src.EsyaVerAmO i_reag_blood_moss,<eval <argtxt[9]>>
ENDIF
If (<eval <argtxt[10]>> > 0)
Src.EsyaVerAmO i_reag_black_pearl,<eval <argtxt[10]>>
ENDIF
src.sysmessage @0790 Toplam <eval <Local.ToplamSatis>>gp harcadiniz.
endif


On=24

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

[Dialog d_black_satiss]
130,30
PAGE 0
Resizepic 10 10 5150 380 430
Dtext 130 15 0790 War Of Near Alisveris
Dtext 60 45 0790 Esya
Dtext 230 45 0790 Fiyat
Dtext 310 45 0790 Adet
Resizepic 60 70 60600 300 3 // Cizgi
Tilepic 23 80 5091 //smith
Dtext 60 82 0790 Smith's hammer
Dtext 230 82 0790 59gp
Resizepic 310 80 60600 50 20
Textentry 312 81 42 25 0 0 0
Tilepic 23 110 3717 // kazmality
Dtext 60 107 0790 Pickaxe
Dtext 230 107 0790 55gp
Resizepic 310 105 60600 50 20
Textentry 312 106 42 25 850 1 1
Tilepic 23 130 3921 // daggersight
Dtext 60 132 0790 Dagger
Dtext 230 132 0790 37gp
Resizepic 310 130 60600 50 20
Textentry 312 131 42 25 0 2 2
Tilepic 23 158 3778 // clever
Dtext 60 157 0790 Clever
Dtext 230 157 0790 37gp
Resizepic 310 155 60600 50 20mace
Textentry 312 156 42 25 850 3 3
Tilepic 20 183 3911 // battle
Dtext 60 182 0790 Battleaxe
Dtext 230 182 0790 149gp
Resizepic 310 180 60600 50 20
Textentry 312 181 42 25 0 4 4
Tilepic 23 205 3934// broadson	
Dtext 60 207 0790 Broad Sword
Dtext 230 207 0790 134gp
Resizepic 310 205 60600 50 20
Textentry 312 206 42 25 850 5 5
Tilepic 23 235  3936// long
Dtext 60 232 0790 Long Sword
Dtext 230 232 0790 134gp
Resizepic 310 230 60600 50 20
Textentry 312 231 42 25 0 6 6
Tilepic 20 260 9594// spear
Dtext 60 257 0790 Spear
Dtext 230 257 0790 196gp
Resizepic 310 255 60600 50 20
Textentry 312 256 42 25 850 7 7
Tilepic 25 285 5187 // two
Dtext 60 282 0790 Two Handed Axe
Dtext 230 282 0790 157gp
Resizepic 310 280 60600 50 20
Textentry 312 281 42 25 0 8 8
Tilepic 21 310 3932 // mace
Dtext 60 307 0790 Mace
Dtext 230 307 0790  118gp
Resizepic 310 305 60600 50 20
Textentry 312 306 42 25 850 9 9
Tilepic 23 337 3720 // pic
Dtext 60 332 0790 Pitchfork
Dtext 230 332 0790 115gp
Resizepic 310 330 50600 50 20
Textentry 312 331 42 25 0 10 10
// Satin AL
Button 60 365 4006 4005 1 0 23
Dtext 88 368 0790 Satin Al
// Iptal
Button 170 365 4006 4005 1 0 24
Dtext 198 368 0790 Iptal

[Dialog d_black_satiss Text]
0
0
0
0
0
0
0
0
0
0
0

[Dialog d_black_satiss Button]
On=23 // Satin Al
if !(<isnum <argtxt[0]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[1]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[2]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[3]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[4]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[5]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[6]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[7]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[8]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[9]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1  
elseif !(<isnum <argtxt[10]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
endif 

Local.toplamsatis 0
If (<eval <argtxt[0]>> > 0)
Local.ToplamSatis (<eval <argtxt[0]> * 59>)
endif
if (<eval <argtxt[1]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[1]> * 55>)
endif
if (<eval <argtxt[2]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[2]> * 37>)
endif
if (<eval <argtxt[3]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[3]> * 37>)
endif
if (<eval <argtxt[4]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[4]> * 149>)
endif
if (<eval <argtxt[5]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[5]> * 134>)
endif
if (<eval <argtxt[6]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[6]> * 196>)
endif
if (<eval <argtxt[7]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[7]> * 169>)
endif
if (<eval <argtxt[8]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[8]> * 157>)
endif
if (<eval <argtxt[9]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[9]> * 118>)
endif
if (<eval <argtxt[10]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[10]> * 115>)
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]>> > 200) || (<eval <argtxt[1]>> > 200) || (<eval <argtxt[2]>> > 200) || (<eval <argtxt[3]>> > 200) || (<eval <argtxt[4]>> > 200) || (<eval <argtxt[5]>> > 200) || (<eval <argtxt[6]>> > 200) || (<eval <argtxt[7]>> > 200) || (<eval <argtxt[8]>> > 200) || (<eval <argtxt[9]>> > 200) || (<eval <argtxt[10]>> > 200)
src.sysmessage @38,,1 En fazla 200 adet alabilirsiniz!
return 1
endif
Src.consumegold <eval <Local.ToplamSatis>>
If (<eval <argtxt[0]>> > 0)
Src.EsyaVer i_hammer_smith,<eval <argtxt[0]>>
Endif
If (<eval <argtxt[1]>> > 0)
Src.EsyaVer i_pickaxe,<eval <argtxt[1]>>
Endif
If (<eval <argtxt[2]>> > 0)
Src.EsyaVer i_dagger,<eval <argtxt[2]>>
Endif
If (<eval <argtxt[3]>> > 0)
Src.EsyaVer i_cleaver_meat,<eval <argtxt[3]>>
ENDIF
If (<eval <argtxt[4]>> > 0)
Src.EsyaVer i_axe_battle,<eval <argtxt[4]>>
ENDIF
If (<eval <argtxt[5]>> > 0)
Src.EsyaVer i_sword_broad,<eval <argtxt[5]>>
ENDIF
If (<eval <argtxt[6]>> > 0)
Src.EsyaVer i_sword_long,<eval <argtxt[6]>>
ENDIF
If (<eval <argtxt[7]>> > 0)
Src.EsyaVer i_spear,<eval <argtxt[7]>>
ENDIF
If (<eval <argtxt[8]>> > 0)
Src.EsyaVer i_axe_two_hand,<eval <argtxt[8]>>
ENDIF
If (<eval <argtxt[9]>> > 0)
Src.EsyaVer i_mace,<eval <argtxt[9]>>
ENDIF
If (<eval <argtxt[10]>> > 0)
Src.EsyaVer i_pitchfork,<eval <argtxt[10]>>
ENDIF
src.sysmessage @0790 Toplam <eval <Local.ToplamSatis>>gp harcadiniz.
endif


On=24 // Taglari siler

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

[Dialog d_weap_satiss]
130,30
PAGE 0
Resizepic 10 10 5150 380 430
Dtext 130 15 0790 War Of Near Alisveris
Dtext 60 45 0790 Esya
Dtext 230 45 0790 Fiyat
Dtext 310 45 0790 Adet
Resizepic 60 70 60600 300 3 // Cizgi
Tilepic 23 80 5118 //katanaresh
Dtext 60 82 0790 Katana
Dtext 230 82 0790 131gp
Resizepic 310 80 60600 50 20
Textentry 312 81 42 25 0 0 0
Tilepic 23 110 5045 // Scility
Dtext 60 107 0790 Scimitar
Dtext 230 107 0790 127gp
Resizepic 310 105 60600 50 20
Textentry 312 106 42 25 850 1 1
Tilepic 23 130 5049 // wikingsight
Dtext 60 132 0790 Wiking Sword
Dtext 230 132 0790 151gp
Resizepic 310 130 60600 50 20
Textentry 312 131 42 25 0 2 2
Tilepic 23 158 5184 // Cutlas
Dtext 60 157 0790 Cuttlass
Dtext 230 157 0790 96gp
Resizepic 310 155 60600 50 20
Textentry 312 156 42 25 850 3 3
Tilepic 20 183 5182 // halberd
Dtext 60 182 0790 Halberd
Dtext 230 182 0790 21gp
Resizepic 310 180 60600 50 20
Textentry 312 181 42 25 0 4 4
Tilepic 23 205 3917 // bardicheson	
Dtext 60 207 0790 Bardiche
Dtext 230 207 0790 201gp
Resizepic 310 205 60600 50 20
Textentry 312 206 42 25 850 5 5
Tilepic 23 235 5043 // waraxe
Dtext 60 232 0790 waraxe bottle
Dtext 230 232 0790 18gp
Resizepic 310 230 60600 50 20
Textentry 312 231 42 25 0 6 6
Tilepic 20 260 5039 // warfork
Dtext 60 257 0790 Waraxe
Dtext 230 257 0790 196gp
Resizepic 310 255 60600 50 20
Textentry 312 256 42 25 850 7 7
Tilepic 25 285 5125 // club
Dtext 60 282 0790 Warfork
Dtext 230 282 0790 157gp
Resizepic 310 280 60600 50 20
Textentry 312 281 42 25 0 8 8
Tilepic 21 310 5120 // kyrs
Dtext 60 307 0790 Kyrss
Dtext 230 307 0790  118gp
Resizepic 310 305 60600 50 20
Textentry 312 306 42 25 850 9 9
Tilepic 23 337 5122 // ss
Dtext 60 332 0790 Short spear
Dtext 230 332 0790 115gp
Resizepic 310 330 50600 50 20
Textentry 312 331 42 25 0 10 10
// Satin AL
Button 60 365 4006 4005 1 0 23
Dtext 88 368 0790 Satin Al
// Iptal
Button 170 365 4006 4005 1 0 24
Dtext 198 368 0790 Iptal

[Dialog d_weap_satiss Text]
0
0
0
0
0
0
0
0
0
0
0

[Dialog d_weap_satiss Button]
On=23 // Satin Al
if !(<isnum <argtxt[0]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[1]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[2]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1  
elseif !(<isnum <argtxt[3]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[4]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[5]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[6]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[7]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[8]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1  
elseif !(<isnum <argtxt[9]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[10]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
endif 

Local.toplamsatis 0
If (<eval <argtxt[0]>> > 0)
Local.ToplamSatis (<eval <argtxt[0]> * 131>)
endif
if (<eval <argtxt[1]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[1]> * 127>)
endif
if (<eval <argtxt[2]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[2]> * 151>)
endif
if (<eval <argtxt[3]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[3]> * 96>)
endif
if (<eval <argtxt[4]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[4]> * 212>)
endif
if (<eval <argtxt[5]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[5]> * 201>)
endif
if (<eval <argtxt[6]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[6]> * 18>)
endif
if (<eval <argtxt[7]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[7]> * 196>)
endif
if (<eval <argtxt[8]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[8]> * 157>)
endif
if (<eval <argtxt[9]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[9]> * 118>)
endif
if (<eval <argtxt[10]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[10]> * 115>)
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]>> > 200) || (<eval <argtxt[1]>> > 200) || (<eval <argtxt[2]>> > 200) || (<eval <argtxt[3]>> > 200) || (<eval <argtxt[4]>> > 200) || (<eval <argtxt[5]>> > 200) || (<eval <argtxt[6]>> > 200) || (<eval <argtxt[7]>> > 200) || (<eval <argtxt[8]>> > 200) || (<eval <argtxt[9]>> > 200) || (<eval <argtxt[10]>> > 200)
src.sysmessage @38,,1 En fazla 200 adet alabilirsiniz!
return 1
endif
Src.consumegold <eval <Local.ToplamSatis>>
If (<eval <argtxt[0]>> > 0)
Src.EsyaVer i_katana,<eval <argtxt[0]>>
Endif
If (<eval <argtxt[1]>> > 0)
Src.EsyaVer i_scimitar,<eval <argtxt[1]>>
Endif
If (<eval <argtxt[2]>> > 0)
Src.EsyaVer i_sword_viking,<eval <argtxt[2]>>
Endif
If (<eval <argtxt[3]>> > 0)
Src.EsyaVer i_cutlass,<eval <argtxt[3]>>
ENDIF
If (<eval <argtxt[4]>> > 0)
Src.esyaver i_halberd,<eval <argtxt[4]>>
ENDIF
If (<eval <argtxt[5]>> > 0)
Src.esyaver i_bardiche,<eval <argtxt[5]>>
ENDIF
If (<eval <argtxt[6]>> > 0)
Src.esyaver i_club,<eval <argtxt[6]>>
ENDIF
If (<eval <argtxt[7]>> > 0)
Src.esyaver i_axe_war,<eval <argtxt[7]>>
ENDIF
If (<eval <argtxt[8]>> > 0)
Src.esyaver i_war_fork,<eval <argtxt[8]>>
ENDIF
If (<eval <argtxt[9]>> > 0)
Src.esyaver i_kryss,<eval <argtxt[9]>>
ENDIF
If (<eval <argtxt[10]>> > 0)
Src.esyaver i_spear_short,<eval <argtxt[10]>>
ENDIF
src.sysmessage @0790 Toplam <eval <Local.ToplamSatis>>gp harcadiniz.
endif


On=24 //

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

[Dialog d_armor_satiss]
130,30
PAGE 0
Resizepic 10 10 5150 380 430
Dtext 130 15 0790 War Of Near Alisveris
Dtext 60 45 0790 Esya
Dtext 230 45 0790 Fiyat
Dtext 310 45 0790 Adet
Resizepic 60 70 60600 300 3 // Cizgi
Tilepic 23 80 014f0 // leat kristali
Dtext 60 82 0790 Full leather set
Dtext 230 82 0790 600gp
Resizepic 310 80 60600 50 20
Textentry 312 81 42 25 0 0 0
Tilepic 23 110 014f0 // stud dye
Dtext 60 107 0790 Full Studded Set
Dtext 230 107 0790 820gp
Resizepic 310 105 60600 50 20
Textentry 312 106 42 25 850 1 1
Tilepic 23 130 014f0 // ironi deed
Dtext 60 132 0790 Full iron set
Dtext 230 132 0790 1423gp
Resizepic 310 130 60600 50 20
Textentry 312 131 42 25 0 2 2
Tilepic 23 158 014f0 // ring
Dtext 60 157 0790 Full Ringmail set
Dtext 230 157 0790 600gp
Resizepic 310 155 60600 50 20
Textentry 312 156 42 25 850 3 3
Tilepic 20 183 014f0 // Kindling
Dtext 60 182 0790 Full chainmail set
Dtext 230 182 0790 320gp
Resizepic 310 180 60600 50 20
Textentry 312 181 42 25 0 4 4
Tilepic 23 205 7030 // Heater
Dtext 60 207 0790 Heater Shield
Dtext 230 207 0790 188gp
Resizepic 310 205 60600 50 20
Textentry 312 206 42 25 850 5 5
Tilepic 23 235 7027 // buck craft
Dtext 60 232 0790 Buckler Shield
Dtext 230 232 0790 115gp
Resizepic 310 230 60600 50 20
Textentry 312 231 42 25 0 6 6
Tilepic 20 260 7028 // Glas craf
Dtext 60 257 0790 Kite Shield
Dtext 230 257 0790 126gp
Resizepic 310 255 60600 50 20
Textentry 312 256 42 25 850 7 7
Tilepic 25 285 7026 // Bronze
Dtext 60 282 0790 Bronze Shield
Dtext 230 282 0790 80gp
Resizepic 310 280 60600 50 20
Textentry 312 281 42 25 0 8 8
Tilepic 21 310 7034 // wood deedi
Dtext 60 307 0790 Wooden Shield
Dtext 230 307 0790 35gp
Resizepic 310 305 60600 50 20
Textentry 312 306 42 25 850 9 9
Tilepic 23 337 7032 // kit TAsarimi
Dtext 60 332 0790 Kite Shield
Dtext 230 332 0790 86gp
Resizepic 310 330 50600 50 20
Textentry 312 331 42 25 0 10 10
// Satin AL
Button 60 365 4006 4005 1 0 23
Dtext 88 368 0790 Satin Al
// Iptal
Button 170 365 4006 4005 1 0 24
Dtext 198 368 0790 Iptal

[Dialog d_armor_satiss Text]
0
0
0
0
0
0
0
0
0
0
0

[Dialog d_armor_satiss Button]
On=23 // Satin Al
if !(<isnum <argtxt[0]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[1]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[2]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[3]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[4]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[5]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[6]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[7]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[8]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[9]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[10]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
endif 

Local.toplamsatis 0
If (<eval <argtxt[0]>> > 0)
Local.ToplamSatis (<eval <argtxt[0]> * 600>)
endif
if (<eval <argtxt[1]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[1]> * 820>)
endif
if (<eval <argtxt[2]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[2]> * 1423>)
endif
if (<eval <argtxt[3]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[3]> * 600>)
endif
if (<eval <argtxt[4]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[4]> * 320>)
endif
if (<eval <argtxt[5]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[5]> * 188>)
endif
if (<eval <argtxt[6]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[6]> * 115>)
endif
if (<eval <argtxt[7]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[7]> * 126>)
endif
if (<eval <argtxt[8]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[8]> * 80>)
endif
if (<eval <argtxt[9]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[9]> * 35>)
endif
if (<eval <argtxt[10]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[10]> * 86>)
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]>> > 200) || (<eval <argtxt[1]>> > 200) || (<eval <argtxt[2]>> > 200) || (<eval <argtxt[3]>> > 200) || (<eval <argtxt[4]>> > 200) || (<eval <argtxt[5]>> > 200) || (<eval <argtxt[6]>> > 200) || (<eval <argtxt[7]>> > 200) || (<eval <argtxt[8]>> > 200) || (<eval <argtxt[9]>> > 200) || (<eval <argtxt[10]>> > 200)
src.sysmessage @38,,1 En fazla 200 adet alabilirsiniz!
return 1
endif
Src.consumegold <eval <Local.ToplamSatis>>
If (<eval <argtxt[0]>> > 0)
Src.EsyaVer i_set_leat,<eval <argtxt[0]>>
Endif
If (<eval <argtxt[1]>> > 0)
Src.EsyaVer i_set_stud,<eval <argtxt[1]>>
Endif
If (<eval <argtxt[2]>> > 0)
Src.esyaver i_set_iron,<eval <argtxt[2]>>
Endif
If (<eval <argtxt[3]>> > 0)
Src.esyaver i_set_ring,<eval <argtxt[3]>>
ENDIF
If (<eval <argtxt[4]>> > 0)
Src.esyaver i_set_chain,<eval <argtxt[4]>>
ENDIF
If (<eval <argtxt[5]>> > 0)
Src.esyaver i_shield_heater,<eval <argtxt[5]>>
ENDIF
If (<eval <argtxt[6]>> > 0)
Src.esyaver i_shield_buckler,<eval <argtxt[6]>>
ENDIF
If (<eval <argtxt[7]>> > 0)
Src.esyaver i_shield_kite_metal,<eval <argtxt[7]>>
ENDIF
If (<eval <argtxt[8]>> > 0)
Src.esyaver i_shield_round_bronze,<eval <argtxt[8]>>
ENDIF
If (<eval <argtxt[9]>> > 0)
Src.esyaver i_shield_wood,<eval <argtxt[9]>>
ENDIF
If (<eval <argtxt[10]>> > 0)
Src.esyaver i_shield_kite_wood,<eval <argtxt[10]>>
ENDIF
src.sysmessage @0790 Toplam <eval <Local.ToplamSatis>>gp harcadiniz.
endif

On=24 

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

[Dialog d_alchem_satiss]
130,30
PAGE 0
Resizepic 10 10 5150 380 430
Dtext 130 15 0790 War Of Near Alisveris
Dtext 60 45 0790 Esya
Dtext 230 45 0790 Fiyat
Dtext 310 45 0790 Adet
Resizepic 60 70 60600 300 3 // Cizgi
Tilepic 23 80 3851 //refresh
Dtext 60 82 0790 Refresh Potion
Dtext 230 82 0790 18gp
Resizepic 310 80 60600 50 20
Textentry 312 81 42 25 0 0 0
Tilepic 23 110 3848 // agility
Dtext 60 107 0790 Agility potion
Dtext 230 107 0790 24gp
Resizepic 310 105 60600 50 20
Textentry 312 106 42 25 850 1 1
Tilepic 23 130 3846 // nightsight
Dtext 60 132 0790 Night Sight potion
Dtext 230 132 0790 18gp
Resizepic 310 130 60600 50 20
Textentry 312 131 42 25 0 2 2
Tilepic 23 158 3849 // str
Dtext 60 157 0790 Strenght potion
Dtext 230 157 0790 34gp
Resizepic 310 155 60600 50 20
Textentry 312 156 42 25 850 3 3
Tilepic 20 183 3847 // cure
Dtext 60 182 0790 Cure potion
Dtext 230 182 0790 40gp
Resizepic 310 180 60600 50 20
Textentry 312 181 42 25 0 4 4
Tilepic 23 205 3850 // poison	
Dtext 60 207 0790 Poison potion
Dtext 230 207 0790 34gp
Resizepic 310 205 60600 50 20
Textentry 312 206 42 25 850 5 5
Tilepic 23 235 3854 // empty
Dtext 60 232 0790 Empty bottle
Dtext 230 232 0790 11gp
Resizepic 310 230 60600 50 20
Textentry 312 231 42 25 0 6 6
Tilepic 20 260 3739 // mortar
Dtext 60 257 0790 Mortar and pastle
Dtext 230 257 0790 57gp
Resizepic 310 255 60600 50 20
Textentry 312 256 42 25 850 7 7
Tilepic 25 285 0e8a // blow
Dtext 60 282 0790 Blow pipe
Dtext 230 282 0790 391gp
Resizepic 310 280 60600 50 20
Textentry 312 281 42 25 0 8 8
Tilepic 21 310 3972 // garlic
Dtext 60 307 0790 Garlic
Dtext 230 307 0790  5gp
Resizepic 310 305 60600 50 20
Textentry 312 306 42 25 850 9 9
Tilepic 23 337 3973 // ginseng
Dtext 60 332 0790 Ginseng
Dtext 230 332 0790 4gp
Resizepic 310 330 50600 50 20
Textentry 312 331 42 25 0 10 10
// Satin AL
Button 60 365 4006 4005 1 0 23
Dtext 88 368 0790 Satin Al
// Iptal
Button 170 365 4006 4005 1 0 24
Dtext 198 368 0790 Iptal

[Dialog d_alchem_satiss Text]
0
0
0
0
0
0
0
0
0
0
0

[Dialog d_alchem_satiss Button]
On=23 // Satin Al
if !(<isnum <argtxt[0]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[1]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[2]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1  
elseif !(<isnum <argtxt[3]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[4]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[5]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[6]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[7]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[8]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[9]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[10]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
endif

Local.toplamsatis 0
If (<eval <argtxt[0]>> > 0)
Local.ToplamSatis (<eval <argtxt[0]> * 18>)
endif
if (<eval <argtxt[1]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[1]> * 24>)
endif
if (<eval <argtxt[2]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[2]> * 18>)
endif
if (<eval <argtxt[3]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[3]> * 34>)
endif
if (<eval <argtxt[4]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[4]> * 40>)
endif
if (<eval <argtxt[5]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[5]> * 34>)
endif
if (<eval <argtxt[6]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[6]> * 11>)
endif
if (<eval <argtxt[7]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[7]> * 57>)
endif
if (<eval <argtxt[8]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[8]> * 391>)
endif
if (<eval <argtxt[9]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[9]> * 3>)
endif
if (<eval <argtxt[10]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[10]> * 4>)
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]>> > 200) || (<eval <argtxt[1]>> > 200) || (<eval <argtxt[2]>> > 200) || (<eval <argtxt[3]>> > 200) || (<eval <argtxt[4]>> > 200) || (<eval <argtxt[5]>> > 200) || (<eval <argtxt[6]>> > 200) || (<eval <argtxt[7]>> > 200) || (<eval <argtxt[8]>> > 200) || (<eval <argtxt[9]>> > 200) || (<eval <argtxt[10]>> > 200)
src.sysmessage @38,,1 En fazla 200 adet alabilirsiniz!
return 1
endif
Src.consumegold <eval <Local.ToplamSatis>>
If (<eval <argtxt[0]>> > 0)
Src.EsyaVer i_potion_refresh,<eval <argtxt[0]>>
Endif
If (<eval <argtxt[1]>> > 0)
Src.EsyaVer i_potion_agility,<eval <argtxt[1]>>
Endif
If (<eval <argtxt[2]>> > 0)
Src.EsyaVer i_potion_nightsight,<eval <argtxt[2]>>
Endif
If (<eval <argtxt[3]>> > 0)
Src.Esyaver i_potion_strength,<eval <argtxt[3]>>
ENDIF
If (<eval <argtxt[4]>> > 0)
Src.EsyaVer i_potion_cure,<eval <argtxt[4]>>
ENDIF
If (<eval <argtxt[5]>> > 0)
Src.EsyaVer i_potion_poison,<eval <argtxt[5]>>
ENDIF
If (<eval <argtxt[6]>> > 0)
Src.EsyaVer i_bottle_empty,<eval <argtxt[6]>>
ENDIF
If (<eval <argtxt[7]>> > 0)
Src.EsyaVer i_mortar_pestle,<eval <argtxt[7]>>
ENDIF
If (<eval <argtxt[8]>> > 0)
Src.EsyaVer i_blow_pipe,,<eval <argtxt[8]>>
ENDIF
If (<eval <argtxt[9]>> > 0)
Src.esyaveramo i_reag_garlic,<eval <argtxt[9]>>
ENDIF
If (<eval <argtxt[10]>> > 0)
Src.esyaveramo i_reag_ginseng,<eval <argtxt[10]>>
ENDIF
src.sysmessage @0790 Toplam <eval <Local.ToplamSatis>>gp harcadiniz.
endif

On=24

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

[Dialog d_tailor_satiss]
130,30
PAGE 0
Resizepic 10 10 5150 380 430
Dtext 130 15 0790 War Of Near Alisveris
Dtext 60 45 0790 Esya
Dtext 230 45 0790 Fiyat
Dtext 310 45 0790 Adet
Resizepic 60 70 60600 300 3 // Cizgi
Tilepic 23 80 0fab // dye
Dtext 60 82 0790 Boya Tubu
Dtext 230 82 0790 59gp
Resizepic 310 80 60600 50 20
Textentry 312 81 42 25 0 0 0
Tilepic 23 110 0fa9 // dyes
Dtext 60 107 0790 Kumas Boyasi
Dtext 230 107 0790 11gp
Resizepic 310 105 60600 50 20
Textentry 312 106 42 25 850 1 1
Tilepic 23 130 0f9d // Dikis kutusu
Dtext 60 132 0790 Dikis kutusu
Dtext 230 132 0790 28gp
Resizepic 310 130 60600 50 20
Textentry 312 131 42 25 0 2 2
Tilepic 23 158 0f9f // makas
Dtext 60 157 0790 Makas
Dtext 230 157 0790 43gp
Resizepic 310 155 60600 50 20
Textentry 312 156 42 25 850 3 3
Tilepic 20 183 0175e // kumas
Dtext 60 182 0790 Kumas
Dtext 230 182 0790 4gp
Resizepic 310 180 60600 50 20
Textentry 312 181 42 25 0 4 4
Tilepic 23 205 01530 // Cloak
Dtext 60 207 0790 Pelerin
Dtext 230 207 0790 69gp
Resizepic 310 205 60600 50 20
Textentry 312 206 42 25 850 5 5
Tilepic 23 235 01f04 // Robe
Dtext 60 232 0790 Robe
Dtext 230 232 0790 89gp
Resizepic 310 230 60600 50 20
Textentry 312 231 42 25 0 6 6
Tilepic 20 260 01fa0 // jester
Dtext 60 257 0790 Renkli Elbise
Dtext 230 257 0790 87gp
Resizepic 310 255 60600 50 20
Textentry 312 256 42 25 850 7 7
Tilepic 25 285 01f00 // Gelinlil
Dtext 60 282 0790 Gelinlik
Dtext 230 282 0790 110gp
Resizepic 310 280 60600 50 20
Textentry 312 281 42 25 0 8 8
Tilepic 21 310 01ffe // Tunik
Dtext 60 307 0790 Tunik
Dtext 230 307 0790 90gp
Resizepic 310 305 60600 50 20
Textentry 312 306 42 25 850 9 9
Tilepic 23 337 0153c // Onluk
Dtext 60 332 0790 Onluk
Dtext 230 332 0790 3gp
Resizepic 310 330 50600 50 20
Textentry 312 331 42 25 0 10 10
// Satin AL
Button 60 365 4006 4005 1 0 23
Dtext 88 368 0790 Satin Al
// Iptal
Button 170 365 4006 4005 1 0 24
Dtext 198 368 0790 Iptal

button 270 400 4006 4005 1 0 25
Dtext 300 403 0790 Ileri 

[Dialog d_tailor_satiss Text]
0
0
0
0
0
0
0
0
0
0
0

[Dialog d_tailor_satiss Button]
On=23 // Satin Al
if !(<isnum <argtxt[0]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[1]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1
elseif !(<isnum <argtxt[2]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[3]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[4]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[5]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[6]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[7]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[8]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[9]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
elseif !(<isnum <argtxt[10]>>) 
sysmessage @38,,1 Hata: Sadece Rakam olarak girmelisiniz. 
return 1 
endif 

Local.toplamsatis 0
If (<eval <argtxt[0]>> > 0)
Local.ToplamSatis (<eval <argtxt[0]> * 28>)
endif
if (<eval <argtxt[1]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[1]> * 11>)
endif
if (<eval <argtxt[2]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[2]> * 28>)
endif
if (<eval <argtxt[3]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[3]> * 43>)
endif
if (<eval <argtxt[4]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[4]> * 4>)
endif
if (<eval <argtxt[5]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[5]> * 69>)
endif
if (<eval <argtxt[6]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[6]> * 89>)
endif
if (<eval <argtxt[7]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[7]> * 87>)
endif
if (<eval <argtxt[8]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[8]> * 110>)
endif
if (<eval <argtxt[9]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[9]> * 90>)
endif
if (<eval <argtxt[10]>> > 0)
Local.ToplamSatis (<eval <local.toplamsatis>> + <eval <argtxt[10]> * 59>)
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]>> > 200) || (<eval <argtxt[1]>> > 200) || (<eval <argtxt[2]>> > 200) || (<eval <argtxt[3]>> > 200) || (<eval <argtxt[4]>> > 200) || (<eval <argtxt[5]>> > 200) || (<eval <argtxt[6]>> > 200) || (<eval <argtxt[7]>> > 200) || (<eval <argtxt[8]>> > 200) || (<eval <argtxt[9]>> > 200) || (<eval <argtxt[10]>> > 200)
src.sysmessage @38,,1 En fazla 200 adet alabilirsiniz!
return 1
endif
Src.consumegold <eval <Local.ToplamSatis>>
If (<eval <argtxt[0]>> > 0)
Src.EsyaVer i_dye_tub,<eval <argtxt[0]>>
Endif
If (<eval <argtxt[1]>> > 0)
Src.EsyaVer i_dyes,<eval <argtxt[1]>>
Endif
If (<eval <argtxt[2]>> > 0)
Src.esyaver i_sewing_kit,<eval <argtxt[2]>>
Endif
If (<eval <argtxt[3]>> > 0)
Src.esyaver i_scissors,<eval <argtxt[3]>>
ENDIF
If (<eval <argtxt[4]>> > 0)
Src.esyaveramo i_cloth,<eval <argtxt[4]>>
ENDIF
If (<eval <argtxt[5]>> > 0)
Src.esyaver i_cape,<eval <argtxt[5]>>
ENDIF
If (<eval <argtxt[6]>> > 0)
Src.esyaver i_robe,<eval <argtxt[6]>>
ENDIF
If (<eval <argtxt[7]>> > 0)
Src.esyaver i_jester_suit,<eval <argtxt[7]>>
ENDIF
If (<eval <argtxt[8]>> > 0)
Src.esyaver i_dress_full,<eval <argtxt[8]>>
ENDIF
If (<eval <argtxt[9]>> > 0)
Src.esyaver i_tunic,<eval <argtxt[9]>>
ENDIF
If (<eval <argtxt[10]>> > 0)
Src.esyaver i_apron_half,<eval <argtxt[10]>>
ENDIF
src.sysmessage @0790 Toplam <eval <Local.ToplamSatis>>gp harcadiniz.
endif

On=24 // Taglari siler

on=25
src.dialog d_tailor_satiss2

[Dialog d_tailor_satiss2]
130,30
PAGE 0
Resizepic 10 10 5150 380 430
Dtext 130 15 0790 War Of Near Alisveris
Dtext 60 45 0790 Esya
Dtext 230 45 0790 Fiyat
Dtext 310 45 0790 Adet
Resizepic 60 70 60600 300 3 // Cizgi
Tilepic 23 80 0153f // bandana
Dtext 60 82 0790 Bandana
Dtext 230 82 0790 13gp
Resizepic 310 80 60600 50 20
Textentry 312 81 42 25 0 0 0
Tilepic 23 110 01716 // Hat Straw
Dtext 60 107 0790 Hat Straw
D

 

 


Değerlendirmeler

8 (8)

3 Kullanıcı

Özet:

1. 55r402 Teot Rename Fix
2. Sayfa 2

  • 1
  • 2

    • Üye Ol veya Giriş Yap

    Bu içeriğe yorum atmak istiyorsanız hemen üye olun veya giriş yapın.

    Discord ile Bağlan
    Twitch ile Bağlan
    Steam ile Bağlan
    Google ile Bağlan
    Yorumlar (3)
    yekta12 Avatar
    yekta12 2009-07-21 03:30

    yaw nerden indircez

    yekta12 Avatar
    Silindi 2008-10-15 17:33

    nicole ben yeni script yazmak istiyorum fakat bu konu hakkinda bilgim yok bu shperyi fln nerden indiricem acaba kendi serwrima nasi girecem ?

    nuker* Avatar
    nuker* 2008-07-14 09:49

    Teskkurler... nicole

    Sadece kayıtlı kullanıcılar yeni yorum yapabilir.


    Benzer Sayfalar