if !(<isnum <argtxt[4]>>)
src.sysmessage @33,,1 Sadece rakam kullanabilirsiniz.
return 1
else
src.newitem_x i_box_wood,<argtxt[4]>
new.bounce
return 1
endif
ENDDO
src.sysmessage @0481,,1 Bir defada en fazla 1 Binek alabilirsiniz.
src.dialog d_binekvendor
[dialog d_mama]
0,0
nomove
noclose
resizepic 2 2 5170 430 270
dtext 40 4 47 Sayin <src.name>
dtext 40 30 0481 Bineklerinizi iyi besleyin!
tilepic 38 65 <serv.itemdef.i_hay_sheaf.id>
tilepic 38 120 <serv.itemdef.i_fruit_carrot.id>
tilepic 38 162 <serv.itemdef.i_deed_animal.id>
tilepic 38 205 <serv.itemdef.i_box_wood.id>
dtext 218 69 058 Eger almak istediginiz
dtext 218 98 058 binek ise "binek alacam"
dtext 218 127 058 komutunu kullanabilirsiniz.
dtextentry 134 123 90 20 990 2 ?
dtextentry 134 69 90 20 990 1 ?
dtextentry 134 165 90 20 990 3 ?
dtextentry 134 208 90 20 990 4 ?
button 19 69 5601 5605 1 0 1
button 19 123 5601 5605 1 0 2
button 19 165 5601 5605 1 0 3
button 19 208 5601 5605 1 0 4
button 273 160 5549 5550 1 0 5
[dialog d_mama button]
on=1
if !(<isnum <argtxt[1]>>)
src.sysmessage @33,,1 Sadece rakam kullanabilirsiniz.
esleif ((strlen(<argtxt[1]>)) > 3) || ((strlen(<argtxt[1]>)) < 1)
src.sysmessage @33,,1 En az 1 En çok 3 haneli rakam yazabilirsiniz!
return 1
else
src.newitem_x i_hay_sheaf,<eval <argtxt[1]>>
return 1
endif
On 2
if !(<isnum <argtxt[2]>>)
src.sysmessage @33,,1 Sadece rakam kullanabilirsiniz.
return 1
else
src.newitem i_fruit_carrot,<argtxt[2]>,<src.findlayer(layer_pack)>
new.bounce
return 1
endif
On 3
if !(<isnum <argtxt[3]>>)
src.sysmessage @33,,1 Sadece rakam kullanabilirsiniz.
return 1
else
src.newitem_x i_deed_animal,<argtxt[3]>
return 1
endif
on 4
if !(<isnum <argtxt[4]>>)
src.sysmessage @33,,1 Sadece rakam kullanabilirsiniz.
return 1
else
src.newitem_x i_box_wood,<argtxt[4]>
new.bounce
return 1
endif
on 5
src.dialog d_binekvendor
[function newitem_x]
local.sayi = <argv[1]>
local.item = <argv[0]>
if !(<dlocal.sayi> == 0) && (<dlocal.sayi> == 1)
serv.newitem <local.item>
new.bounce
else
for 1 <dlocal.sayi>
serv.newitem <local.item>,<dlocal.sayi>
new.bounce
endfor
endifbutton kaç ise (onbutton 10)
if !(<isnum <argtxt[4]>>)
src.sysmessage @33,,1 Sadece rakam kullanabilirsiniz.
return 1
else
src.newitem_x i_reag_black_pearl ,<argtxt[4]>
src.newitem_x i_reag_mandrake_root,<argtxt[4]>
src.newitem_x i_reag_blood_moss ,<argtxt[4]>
new.bounce
return 1
endif
TEMPLATE VENDOR_S_MAGE_SHOP
CATEGORY=Vendor Templates
SUBSECTION=Sell Templates
DESCRIPTION=Mage
SELL=i_reag_black_pearl,{200}[CHARDEF 0492]
DEFNAME=C_H_MAGESHOP
NAME=#NAMES_HUMANMALE the Mage
ID=C_MAN
DESIRES=i_gold,t_wand,t_reagent,t_bone
//SPELLCIRCLES=3-7
AVERSIONS=t_TRAP,t_eerie_stuff
TSPEECH=spk_human_prime
TSPEECH=jobMageShop
TSPEECH=spk_shopkeep
TSPEECH=spk_needs
TSPEECH=spk_rehello
TSPEECH=spk_human_default
TEVENTS=e_Human_HearUnk
TEVENTS=e_Human_Needs
TEVENTS=e_Human_ConvInit
TEVENTS=e_Human_Greet
TEVENTS=e_Human_Space
TEVENTS=e_Human_Refuse
TEVENTS=e_Human_Environon=@dclick
buy
On=@Click
message @49,,1 <name> Mageshop
return 1[defname itemsatisi]
item1 i_abc
item2 i_cba
item3 i_bac
item4 i_bca
[dialog d_itemsatisi]
0,0
PAGE 0
resizepic 12 373 3000 235 200
local.y 30
for z 1 4
dtext 20 <dlocal.y> 1 <def.item<dlocal.z>>
dtextentry 45 30 200 18 045 <dlocal.z> 0
local.y +=20
endfor
button 20 110 4005 4006 1 0 1
button 35 110 1 Satın al
[dialog d_itemsatisi button]
on=1
for z 1 4
if (<eval <argtxt[<dlocal.z>]>>) > 0)
src.newitem_x <def.item<dlocal.z>>,<argtxt[<dlocal.z>]>
endif
endfor