[itemdef i_vendor_Stone]
name Vendor Kirala
id i_grave_Stone
weight 5000
type t_eq_Script
on=@click
message @07d1,,1 <serv.name> Uo Shard
message @666,1,1 Vendor Sistem
return 1
on=@pickup_ground
return 1
on=@timer
return 1
on=@dclick
if (<more1> = 0)
if (0<src.tag.vendor>)
src.sysmessage @55 Zaten bir vendora sahipsiniz.
else
dialog d_kira
endif
else
src.sysmessage @55 Bir hata olusmus olabilir. Lutfen yetkililere iletiniz.
endif
return 1
[dialog d_vendor_hasilat]
300,300
resizepic 0 0 5120 200 75
resizepic 5 10 2620 190 35
textentry 15 16 600 20 1152 1 0
button 165 50 4005 4006 1 0 1
[dialog d_vendor_hasilat text]
<eval (<findlayer(29).more1> - 2500)>
[dialog d_vendor_hasilat button]
On=1
if (<eval <argtxt[1]>> <= 0)
src.sysmessage Bir miktar belirleyin..
elseif (<eval <argtxt[1]>> > <eval <findlayer(29).more1>>)
src.sysmessage Bu miktar kasada bulunmuyor.
elseif (<eval (<findlayer(29).more1> - <argtxt[1]>)> < 2500)
src.sysmessage Bu miktari alamazsiniz, en az 2500 altin kalmali.
elseif (<eval <argtxt[1]>> >= 65000)
vend_collect <eval <argtxt[1]>>
src.sysmessage <argtxt[1]> altin bankaniza aktarildi.
else
findlayer(29).more1 <eval (<findlayer(29).more1> - <argtxt[1]>)>
src.newitem i_gold
src.act.amount <eval <argtxt[1]>>
src.act.cont <src.findlayer(29).uid>
src.sysmessage <argtxt[1]> altin bankaniza aktarildi.
endif
src.fix
[dialog d_vendor_buy]
300,300
resizepic 0 0 5120 270 105
htmlgump 10 15 250 60 0 1 0
button 200 80 1153 1155 1 0 1
button 233 80 1150 1152 1 0 0
[dialog d_vendor_buy text]
<name>, fiyati: <eval <tag.price>> altin. Bunu satin almak istediginize emin misiniz?
[dialog d_vendor_buy button]
On=1
src.pay <eval <tag.price>>
if (<var.enough>)
if !(<src.targ.topobj.uid> = <src.tag.pvendor_fix>)
src.sysmessage @55 Bu esya vendorun cantasinda degil yada satilmis.
return 1
else
topobj.findlayer(29).more1 (<topobj.findlayer(29).more1> + <eval <tag.price>>)
src.targ.cont <src.findlayer(21).uid>
src.targ.tag.price
src.targ.update
endif
if ((<src.targ.baseid> == i_spellbook) || (<src.targ.baseid> == i_runebook) || (<src.targ.baseid> == i_regs_lesser) || (<src.targ.baseid> == i_regs_normal) || (<src.targ.baseid> == i_regs_greater) || (<src.targ.baseid> == i_dye_fur) || (<src.targ.baseid> == i_alet_cantasi) || (<src.targ.dispid> == i_deed))
attr <attr>|attr_newbie
endif
endif
[dialog d_kira_uzat]
300,300
resizepic 0 0 3500 200 75
dhtmlgump 50 20 100 20 0 0 1 hafta uzat (50k)
dhtmlgump 50 40 100 20 0 0 iptal
button 20 20 56 55 1 0 1
button 20 40 56 55 1 0 2
[dialog d_kira_uzat text]
[dialog d_kira_uzat button]
on=1
src.pay 50000
if (<var.enough>)
timer <eval <timer> + 604800> //1 hafta uzat
cont.say Sizinle calisma sureme 7 gun eklendi. Tesekkur ederim.
endif
[dialog d_kira]
300,300
resizepic 0 0 3500 200 75
dhtmlgump 50 20 150 20 0 0 2 hafta kirala (100k)
dhtmlgump 50 40 100 20 0 0 iptal
button 20 20 56 55 1 0 1
button 20 40 56 55 1 0 2
[dialog d_kira text]
[dialog d_kira button]
on=1
src.pay 100000
if (<var.enough>)
src.newnpc c_player_vendor
src.act.p <p>
src.act.tag.sahip <src.uid>
src.act.findlayer(29).more1 2500
src.act.memorydel <src.uid>
src.tag.vendor <src.act.uid>
src.act.newitem i_memory
src.act.act.attr 04
src.act.act.more1 04
src.act.act.more2 <serv.time>
src.act.act.morep <src.act.p>
src.act.act.color memory_ipet
src.act.act.timer -1
src.act.act.link <src.uid>
src.act.act.cont <src.act.uid>
src.act.flags <src.act.flags>&statf_pet
src.act.update
src.sysmessage Vendorunuz kuruldu, komutlar icin '<src.act.name> bilgi' yaziniz.
remove
endif
[chardef c_player_vendor]
defname c_player_vendor
name #names_humanmale the Player Vendor
id c_man
can mt_equip|mt_nonmover
hiredaywage 52
desires i_gold
tspeech player_vendor
On=@Create
events +e_player_vendor
str 9500
dex 25
int 25
color colors_skin
speechcolor 0481
food 990
npc 1
itemnewbie random_male_hair
color colors_hair
itemnewbie random_facial_hair
color match_hair
item i_robe
color colors_all
item i_torch_lit
morey -1
itemnewbie i_backpack
itemnewbie i_bankbox
color 0384
timer 900
attr 014
itemnewbie i_player_vendor
On=@Spelleffect
return 1
On=@Gethit
return 1
On=@Death
hits <str>
return 1
[speech player_vendor]
on=*bilgi*
on=*help*
on=*yard*
if (<src.uid> == <tag.sahip>)
say Kullanabileceginiz komutlar; durum, fiyat, hasilat, kira
endif
return 1
on=*durum*
if (<src.uid> == <tag.sahip>)
findid.i_player_vendor.morex (<findid.i_player_vendor.timer> / 60) //dakika
findid.i_player_vendor.morey (<findid.i_player_vendor.morex> / 60) //saat
findid.i_player_vendor.morez (<findid.i_player_vendor.morey> / 24) //gün
if (<findid.i_player_vendor.morez> < 1)
if (<findid.i_player_vendor.morey> < 1)
say Sizinle <findid.i_player_vendor.morex> dakika daha calisabilirim
else
say Sizinle <findid.i_player_vendor.morey> saat daha calisabilirim
endif
else
say Sizinle <findid.i_player_vendor.morez> gun daha calisabilirim
endif
endif
return 1
on=fiyat *
if (<src.uid> == <tag.sahip>)
if !(<findlayer(21).findcont(0)>)
src.sysmessage Vendorun cantasinda fiyatlandirilacak mal bulunmuyor.
else
try <args>
endif
endif
return 1
on=hasila*
if (<src.uid> == <tag.sahip>)
if (<eval <findlayer(29).more1>> < 1)
say Suan size verecek hic param yok
else
dialog d_vendor_hasilat
endif
endif
return 1
on=*kira*
if (<src.uid> == <tag.sahip>)
findid.i_player_vendor.morex (<findid.i_player_vendor.timer> / 60) //dakika
findid.i_player_vendor.morey (<findid.i_player_vendor.morex> / 60) //saat
findid.i_player_vendor.morez (<findid.i_player_vendor.morey> / 24) //gün
if (<findid.i_player_vendor.morez> > 2)
say Kirayi uzatmak icin son 2 calisma gunumu beklemelisiniz. Sizinle daha <findid.i_player_vendor.morez> gun calisabilirim
else
findid.i_player_vendor.dialog d_kira_uzat
endif
endif
return 1
on=*buy*
if (<src.uid> == <tag.sahip>)
say Siz benim isverenim oldugunuz icin ucretsiz alabilirsiniz.
elseif !(<findlayer(21).findcont(0)>)
src.sysmessage @55 Vendorda su an satilik mal yok.
else
findid.i_player_vendor.more1 2
findid.i_player_vendor.target
endif
return 1
on=*
say
return 1
[function fiyat]
if (<eval <argn>> > 5000000)
src.sysmessage @55 Tek bir mali 5 milyon altinin uzerinde fiyatla satilamaz.
else
findid.i_player_vendor.more1 1
findid.i_player_vendor.more2 <eval <argn>>
findid.i_player_vendor.target
endif
[function vend_collect]
var.vendorcash <eval (<argn> - 65000)>
findlayer(29).more1 <eval (<findlayer(29).more1> - 65000)>
src.newitem i_gold
src.act.amount 65000
src.act.cont <src.findlayer(29).uid>
if (<eval <var.vendorcash>> >= 65000)
vend_collect <eval <var.vendorcash>>
elseif (<eval <var.vendorcash>> > 0)
findlayer(29).more1 <eval (<findlayer(29).more1> - <var.vendorcash>)>
src.newitem i_gold
src.act.amount <eval <var.vendorcash>>
src.act.cont <src.findlayer(29).uid>
var.vendorcash
else
var.vendorcash
endif
[itemdef i_player_vendor]
id i_memory
name player vendor kontrol
type t_eq_script
on=@create
timer 60*60*24*14
on=@timer
cont.newitem i_vendor_Stone
cont.act.p <cont.p>
cont.findlayer(21).color 033
cont.findlayer(21).attr 00
cont.findlayer(21).cont <uid.<cont.tag.sahip>.findlayer(29).uid>
try uid.<cont.tag.sahip>.tag.vendor
cont.remove
return 1
on=@targon_item
if (<more1> == 1) //fiyat belirmele
if !(<src.uid> == <cont.tag.sahip>)
src.sysmessage @55 Siz bu vendorun isvereni degilsiniz.
elseif !(<src.targ.topobj.uid> == <cont.uid>)
src.sysmessage @55 Bu esya vendorun cantasinda degil.
elseif (<eval <more2>> <= 0)
src.targ.tag.price 0
src.sysmessage @55 <src.targ.name>: 'satilik degil' olarak isaretlendi.
else
src.targ.tag.price <eval <more2>>
more2 0
src.sysmessage @55 <src.targ.name>: <eval <src.targ.tag.price>> altin.
endif
elseif (<more1> == 2) //buy
src.pay <eval <src.targ.tag.price>>
if (<var.enough>)
if !(<src.targ.topobj.uid> == <cont.uid>)
src.sysmessage @55 Bu esya vendorun cantasinda degil.
elseif (strmatch('<src.targ.tag.price>',''))
src.sysmessage @55 Bu esya satilik degil.
elseif (<src.targ.tag.price> <= 0)
src.sysmessage @55 Bu esya satilik degil.
else
src.targ.dialog d_vendor_buy
src.tag.pvendor_fix <cont.uid>
endif
endif
endif
return 1
[events e_player_vendor]
On=@Click
message @07d1,,1 Player Vendor
message @666,1,1 * <memoryfindtype.memory_ipet.link.name> *
return 1
On=@DClick
if !(<memoryfindtype.memory_ipet>)
memorydel <src.uid>
newitem i_memory
act.attr 04
act.more1 04
act.more2 <serv.time>
act.morep <link.p>
act.color memory_ipet
act.timer -1
act.link <tag.sahip>
act.cont <uid>
flags <flags>&statf_pet
endif
if (<src.uid> == <tag.sahip>)
src.tag.vendor <uid>
endif
if (<src.isgm>)
pack
elseif (<src.flags>&statf_dead)
src.sysmessage @55 Su anki durumuzda bu islemi gerceklestiremezsiniz.
elseif ((<canseelos>) && (<distance> < 4))
if (<src.uid> == <tag.sahip>)
say Satilacak esyalari buraya koyabilirsiniz.
pack
elseif !(<findlayer(21).findcont(0)>)
say Su an satilik mal yok.
else
pack
endif
else
src.sysmessage @55 Vendor'a ulasamiyorsunuz.
endif
src.events +e_vendor_player
return 1
On=@EnvironChange
if (<flags>&statf_war)
flags <flags>&~statf_war
update
endif
food 990
[events e_vendor_player]
on=@Spellcast
if (<act.id> == c_player_vendor) || (<act.topobj.id> == c_player_vendor))
skill fail
return 1
endif
On=@Attack
If (<src.id> == c_player_vendor)
return 1
endif
On=@SkillStart
if ((<action> == id(skill_herding)) || (<action> == skill_herding))
if (<targ.id> == c_player_vendor)
skill fail
return 1
endif
elseif ((<action> == id(skill_stealing)) || (<action> == skill_stealing))
if (<targ.topobj.id> == c_player_vendor)
src.sysmessage @55 Player vendorlardan herhangi birsey calamazsiniz.
skill fail
return 1
endif
On=@ItemDClick
if (<targ.topobj.id> == c_player_vendor)
if (<targ.type> == t_container)
targ.open
endif
return 1
endif
On=@ItemClick
if (<act.topobj.id> == c_player_vendor)
if (0<act.tag.price> < 1)
act.message @33 [satilik degil]
else
if ((<act.type> == t_armor) || (<act.type> == t_armor_leather) || (<act.type> == t_shield) || (<act.type> == t_clothing) || (<act.type> == t_weapon_sword) || (<act.type> == t_weapon_fence) || (<act.type> == t_weapon_mace_staff) || (<act.type> == t_weapon_mace_smith) || (<act.type> == t_weapon_mace_pick) || (<act.type> == t_weapon_bow) || (<act.type> == t_weapon_xbow))
if !(<eval ((<act.more1l> * 100) / <act.more1h>)> == 100)
act.message @55 [<eval <act.tag.price>> gp] [%<eval (100 - ((<act.more1l> * 100) / <act.more1h>))> eski]
else
act.message @55 [<eval <act.tag.price>> gp] [yeni]
endif
else
act.message @55 [<eval <act.tag.price>> gp]
endif
endif
endif
On=@ItemPickUp_Pack
if (<act.topobj.id> == c_player_vendor)
if !(<uid> == <act.topobj.tag.sahip>)
return 1
endif
endif
On=@ItemTargOn_Item
if ((<targ.topobj.id> == c_player_vendor) && (<act.cont.uid> != <targ.topobj.uid>))
return 1
endif
[function pay]
if !(<args>) //empty command line?
var.enough=1
return 1 //then do nothing
endif
if (<src.isgm>)
if (<src.account.plevel> < 7)
src.sysmessage @55 Yetkililer bu islemi gercekletiremez.
var.enough=0
return 1
else
src.sysmessage @55 Gmden parami 
var.enough=1
return 1
endif
endif
var.enough=0 //if not enough gold, var.enough will be '0'
var.totalgold=<findlayer.21.rescount i_gold> + <bankbalance>
if (<eval <args>> > <var.totalgold>) //the amount to pay is more then you own??
src.sysmessage @55 Bankanizda <eval <args>> gp yok.//refuse transaction
else //you have enough to pay
var.enough=1 //allow you to check transaction later
if (<argn> > <src.findlayer.21.rescount i_gold>)
goldtopack <eval <argn>-<src.findlayer.21.rescount i_gold>> //put the needed money in the backpack
endif
payamount <args> //pay the needed amount
endif
[function goldtopack] //move enough gold so that we can pay
//argn- amount of gold left to move
var.found=(<argn> - <src.findlayer.29.findid.i_gold.amount>) //amount found
if (<var.found> > 0) //pile is not big enough, so move it all
src.findlayer.29.findid.i_gold.cont=<src.findlayer.21.uid> // transfer to backpack
goldtopack <var.found> //get the next pile of gold
else //not entire pile needed
var.left=(0 - <var.found>) // get the amount of money left in this pile
if (<var.left>)
src.findlayer.29.findid.i_gold.amount <var.left> //set this amount
else
src.findlayer.29.findid.i_gold.remove
endif
src.newitem i_gold //create a new pile of gold
src.act.amount <args> //the needed amount
src.act.cont=<src.findlayer.21.uid> //place in backpack
endif //done
[function payamount]
var.counter=<eval <args>> //amount left to pay
if (<var.counter> > 65000) // more then 65000 left to pay??
src.consume 65000 i_gold //consume 65000 first
var.counter=(<var.counter> - 65000)
payamount <var.counter> //then get the rest
else
src.consume <args> i_gold //consume the rest of the needed amount
endif // we are finished
[EOF] 
[function pay]
if (<src.account.plevel> = 7)
var.enough=1
elseif (<src.account.plevel> > 1)
src.sysmessage @55 Yetkililer bu islemi gercekletiremez.
var.enough=0
else
if (<src.gold> < <args>)
src.sysmessage @55 Bankanizda <args> gp yok.
var.enough=0
else
var.enough=1
src.gold -=<args>
src.updatex
endif
endif
[itemdef i_vendor_Stone]
name Vendor Kirala
id i_grave_Stone
weight 5000
type t_eq_Script
on=@click
message @07d1,,1 <serv.name> Uo Shard
message @666,1,1 Vendor Sistem
return 1
on=@pickup_ground
return 1
on=@timer
return 1
on=@dclick
if (<more1> = 0)
if (0<src.tag.vendor>)
src.sysmessage @55 Zaten bir vendora sahipsiniz.
else
dialog d_kira
endif
else
src.sysmessage @55 Bir hata olusmus olabilir. Lutfen yetkililere iletiniz.
endif
return 1
[dialog d_vendor_hasilat]
300,300
resizepic 0 0 5120 200 75
resizepic 5 10 2620 190 35
textentry 15 16 600 20 1152 1 0
button 165 50 4005 4006 1 0 1
[dialog d_vendor_hasilat text]
<eval (<findlayer(29).more1> - 2500)>
[dialog d_vendor_hasilat button]
On=1
if (<eval <argtxt[1]>> <= 0)
src.sysmessage Bir miktar belirleyin..
elseif (<eval <argtxt[1]>> > <eval <findlayer(29).more1>>)
src.sysmessage Bu miktar kasada bulunmuyor.
elseif (<eval (<findlayer(29).more1> - <argtxt[1]>)> < 2500)
src.sysmessage Bu miktari alamazsiniz, en az 2500 altin kalmali.
elseif (<eval <argtxt[1]>> >= 65000)
vend_collect <eval <argtxt[1]>>
src.sysmessage <argtxt[1]> altin bankaniza aktarildi.
else
findlayer(29).more1 <eval (<findlayer(29).more1> - <argtxt[1]>)>
src.newitem i_gold
src.act.amount <eval <argtxt[1]>>
src.act.cont <src.findlayer(29).uid>
src.sysmessage <argtxt[1]> altin bankaniza aktarildi.
endif
src.fix
[dialog d_vendor_buy]
300,300
resizepic 0 0 5120 270 105
htmlgump 10 15 250 60 0 1 0
button 200 80 1153 1155 1 0 1
button 233 80 1150 1152 1 0 0
[dialog d_vendor_buy text]
<name>, fiyati: <eval <tag.price>> altin. Bunu satin almak istediginize emin misiniz?
[dialog d_vendor_buy button]
On=1
src.pay <eval <tag.price>>
if (<var.enough>)
if !(<src.targ.topobj.uid> = <src.tag.pvendor_fix>)
src.sysmessage @55 Bu esya vendorun cantasinda degil yada satilmis.
return 1
else
topobj.findlayer(29).more1 (<topobj.findlayer(29).more1> + <eval <tag.price>>)
src.targ.cont <src.findlayer(21).uid>
src.targ.tag.price
src.targ.update
endif
if ((<src.targ.baseid> == i_spellbook) || (<src.targ.baseid> == i_runebook) || (<src.targ.baseid> == i_regs_lesser) || (<src.targ.baseid> == i_regs_normal) || (<src.targ.baseid> == i_regs_greater) || (<src.targ.baseid> == i_dye_fur) || (<src.targ.baseid> == i_alet_cantasi) || (<src.targ.dispid> == i_deed))
attr <attr>|attr_newbie
endif
endif
[dialog d_kira_uzat]
300,300
resizepic 0 0 3500 200 75
dhtmlgump 50 20 100 20 0 0 1 hafta uzat (50k)
dhtmlgump 50 40 100 20 0 0 iptal
button 20 20 56 55 1 0 1
button 20 40 56 55 1 0 2
[dialog d_kira_uzat text]
[dialog d_kira_uzat button]
on=1
src.pay 50000
if (<var.enough>)
timer <eval <timer> + 604800> //1 hafta uzat
cont.say Sizinle calisma sureme 7 gun eklendi. Tesekkur ederim.
endif
[dialog d_kira]
300,300
resizepic 0 0 3500 200 75
dhtmlgump 50 20 150 20 0 0 2 hafta kirala (100k)
dhtmlgump 50 40 100 20 0 0 iptal
button 20 20 56 55 1 0 1
button 20 40 56 55 1 0 2
[dialog d_kira text]
[dialog d_kira button]
on=1
src.pay 100000
if (<var.enough>)
src.newnpc c_player_vendor
src.act.p <p>
src.act.tag.sahip <src.uid>
src.act.findlayer(29).more1 2500
src.tag.vendor <src.act.uid>
src.act.newitem i_memory
src.act.act.attr 04
src.act.act.more1 04
src.act.act.more2 <serv.time>
src.act.act.morep <src.act.p>
src.act.act.color memory_ipet
src.act.act.timer -1
src.act.act.link <src.uid>
src.act.act.cont <src.act.uid>
src.act.flags <src.act.flags>&statf_pet
src.act.update
src.sysmessage Vendorunuz kuruldu, komutlar icin '<src.act.name> bilgi' yaziniz.
remove
endif
[chardef c_player_vendor]
defname c_player_vendor
name #names_humanmale the Player Vendor
id c_man
can mt_equip|mt_nonmover
hiredaywage 52
desires i_gold
tspeech player_vendor
On=@Create
events +e_player_vendor
str 9500
dex 25
int 25
color colors_skin
speechcolor 0481
food 990
npc 1
itemnewbie random_male_hair
color colors_hair
itemnewbie random_facial_hair
color match_hair
item i_robe
color colors_all
item i_torch_lit
morey -1
itemnewbie i_backpack
itemnewbie i_bankbox
color 0384
timer 900
attr 014
itemnewbie i_player_vendor
On=@Spelleffect
return 1
On=@Gethit
return 1
On=@Death
hits <str>
return 1
[speech player_vendor]
on=*bilgi*
on=*help*
on=*yard*
if (<src.uid> == <tag.sahip>)
say Kullanabileceginiz komutlar; durum, fiyat, hasilat, kira
endif
return 1
on=*durum*
if (<src.uid> == <tag.sahip>)
findid.i_player_vendor.morex (<findid.i_player_vendor.timer> / 60) //dakika
findid.i_player_vendor.morey (<findid.i_player_vendor.morex> / 60) //saat
findid.i_player_vendor.morez (<findid.i_player_vendor.morey> / 24) //gün
if (<findid.i_player_vendor.morez> < 1)
if (<findid.i_player_vendor.morey> < 1)
say Sizinle <findid.i_player_vendor.morex> dakika daha calisabilirim
else
say Sizinle <findid.i_player_vendor.morey> saat daha calisabilirim
endif
else
say Sizinle <findid.i_player_vendor.morez> gun daha calisabilirim
endif
endif
return 1
on=fiyat*
if (<src.uid> == <tag.sahip>)
if !(<findlayer(21).findcont(0)>)
src.sysmessage Vendorun cantasinda fiyatlandirilacak mal bulunmuyor.
else
try <args>
endif
endif
return 1
on=hasila*
if (<src.uid> == <tag.sahip>)
if (<eval <findlayer(29).more1>> < 1)
say Suan size verecek hic param yok
else
dialog d_vendor_hasilat
endif
endif
return 1
on=*kira*
if (<src.uid> == <tag.sahip>)
findid.i_player_vendor.morex (<findid.i_player_vendor.timer> / 60) //dakika
findid.i_player_vendor.morey (<findid.i_player_vendor.morex> / 60) //saat
findid.i_player_vendor.morez (<findid.i_player_vendor.morey> / 24) //gün
if (<findid.i_player_vendor.morez> > 2)
say Kirayi uzatmak icin son 2 calisma gunumu beklemelisiniz. Sizinle daha <findid.i_player_vendor.morez> gun calisabilirim
else
findid.i_player_vendor.dialog d_kira_uzat
endif
endif
return 1
on=*buy*
if (<src.uid> == <tag.sahip>)
say Siz benim isverenim oldugunuz icin ucretsiz alabilirsiniz.
elseif !(<findlayer(21).findcont(0)>)
src.sysmessage @55 Vendorda su an satilik mal yok.
else
findid.i_player_vendor.more1 2
findid.i_player_vendor.target
endif
return 1
on=*
say
return 1
[function fiyat]
if (<eval <argn>> > 5000000)
src.sysmessage @55 Tek bir mali 5 milyon altinin uzerinde fiyatla satilamaz.
else
findid.i_player_vendor.more1 1
findid.i_player_vendor.more2 <eval <argn>>
findid.i_player_vendor.target
endif
[function vend_collect]
var.vendorcash <eval (<argn> - 65000)>
findlayer(29).more1 <eval (<findlayer(29).more1> - 65000)>
src.newitem i_gold
src.act.amount 65000
src.act.cont <src.findlayer(29).uid>
if (<eval <var.vendorcash>> >= 65000)
vend_collect <eval <var.vendorcash>>
elseif (<eval <var.vendorcash>> > 0)
findlayer(29).more1 <eval (<findlayer(29).more1> - <var.vendorcash>)>
src.newitem i_gold
src.act.amount <eval <var.vendorcash>>
src.act.cont <src.findlayer(29).uid>
var.vendorcash
else
var.vendorcash
endif
[itemdef i_player_vendor]
id i_memory
name player vendor kontrol
type t_eq_script
on=@create
timer 60*60*24*14
on=@timer
cont.newitem i_vendor_Stone
cont.act.p <cont.p>
cont.findlayer(21).color 033
cont.findlayer(21).attr 00
cont.findlayer(21).cont <uid.<cont.tag.sahip>.findlayer(29).uid>
try uid.<cont.tag.sahip>.tag.vendor
cont.remove
return 1
on=@targon_item
if (<more1> == 1) //fiyat belirmele
if !(<src.uid> == <cont.tag.sahip>)
src.sysmessage @55 Siz bu vendorun isvereni degilsiniz.
elseif !(<src.targ.topobj.uid> == <cont.uid>)
src.sysmessage @55 Bu esya vendorun cantasinda degil.
elseif (<eval <more2>> <= 0)
src.targ.tag.price 0
src.sysmessage @55 <src.targ.name>: 'satilik degil' olarak isaretlendi.
else
src.targ.tag.price <eval <more2>>
more2 0
src.sysmessage @55 <src.targ.name>: <eval <src.targ.tag.price>> altin.
endif
elseif (<more1> == 2) //buy
src.pay <eval <src.targ.tag.price>>
if (<var.enough>)
if !(<src.targ.topobj.uid> == <cont.uid>)
src.sysmessage @55 Bu esya vendorun cantasinda degil.
elseif (strmatch('<src.targ.tag.price>',''))
src.sysmessage @55 Bu esya satilik degil.
elseif (<src.targ.tag.price> <= 0)
src.sysmessage @55 Bu esya satilik degil.
else
src.targ.dialog d_vendor_buy
src.tag.pvendor_fix <cont.uid>
endif
endif
endif
return 1
[events e_player_vendor]
On=@Click
message @07d1,,1 Player Vendor
message * <memoryfindtype.memory_ipet.link.name> *
return 1
On=@DClick
if !(<memoryfindtype.memory_ipet>)
memorydel <src.uid>
newitem i_memory
act.attr 04
act.more1 04
act.more2 <serv.time>
act.morep <link.p>
act.color memory_ipet
act.timer -1
act.link <tag.sahip>
act.cont <uid>
flags <flags>&statf_pet
endif
if (<src.uid> == <tag.sahip>)
src.tag.vendor <uid>
endif
if (<src.isgm>)
pack
elseif (<src.flags>&statf_dead)
src.sysmessage @55 Su anki durumuzda bu islemi gerceklestiremezsiniz.
elseif ((<canseelos>) && (<distance> < 4))
if (<src.uid> == <tag.sahip>)
say Satilacak esyalari buraya koyabilirsiniz.
pack
elseif !(<findlayer(21).findcont(0)>)
say Su an satilik mal yok.
else
pack
endif
else
src.sysmessage @55 Vendor'a ulasamiyorsunuz.
endif
src.events +e_vendor_player
return 1
On=@EnvironChange
if (<flags>&statf_war)
flags <flags>&~statf_war
update
endif
food 990
[events e_vendor_player]
on=@Spellcast
if (<act.id> == c_player_vendor) || (<act.topobj.id> == c_player_vendor))
skill fail
return 1
endif
On=@Attack
If (<src.id> == c_player_vendor)
return 1
endif
On=@SkillStart
if ((<action> == id(skill_herding)) || (<action> == skill_herding))
if (<targ.id> == c_player_vendor)
skill fail
return 1
endif
elseif ((<action> == id(skill_stealing)) || (<action> == skill_stealing))
if (<targ.topobj.id> == c_player_vendor)
src.sysmessage @55 Player vendorlardan herhangi birsey calamazsiniz.
skill fail
return 1
endif
On=@ItemDClick
if (<targ.topobj.id> == c_player_vendor)
if (<targ.type> == t_container)
targ.open
endif
return 1
endif
On=@ItemClick
if (<act.topobj.id> == c_player_vendor)
if (0<act.tag.price> < 1)
act.message @33 [satilik degil]
else
if ((<act.type> == t_armor) || (<act.type> == t_armor_leather) || (<act.type> == t_shield) || (<act.type> == t_clothing) || (<act.type> == t_weapon_sword) || (<act.type> == t_weapon_fence) || (<act.type> == t_weapon_mace_staff) || (<act.type> == t_weapon_mace_smith) || (<act.type> == t_weapon_mace_pick) || (<act.type> == t_weapon_bow) || (<act.type> == t_weapon_xbow))
if !(<eval ((<act.more1l> * 100) / <act.more1h>)> == 100)
act.message @55 [<eval <act.tag.price>> gp] [%<eval (100 - ((<act.more1l> * 100) / <act.more1h>))> eski]
else
act.message @55 [<eval <act.tag.price>> gp] [yeni]
endif
else
act.message @55 [<eval <act.tag.price>> gp]
endif
endif
endif
On=@ItemPickUp_Pack
if (<act.topobj.id> == c_player_vendor)
if !(<uid> == <act.topobj.tag.sahip>)
return 1
endif
endif
On=@ItemTargOn_Item
if ((<targ.topobj.id> == c_player_vendor) && (<act.cont.uid> != <targ.topobj.uid>))
return 1
endif
[function pay]
if (<src.account.plevel> = 7)
var.enough=1
elseif (<src.account.plevel> > 1)
src.sysmessage @55 Yetkililer bu islemi gercekletiremez.
var.enough=0
else
if (<src.gold> < <args>)
src.sysmessage @55 Bankanizda <args> gp yok.
var.enough=0
else
var.enough=1
src.gold -=<args>
src.updatex
endif
endif
[EOF]elseif (<more1> == 2) //buy
src.pay <eval <src.targ.tag.price>>
if (<var.enough>)
if !(<src.targ.topobj.uid> == <cont.uid>)
src.sysmessage @55 Bu esya vendorun cantasinda degil.
elseif (strmatch('<src.targ.tag.price>',''))
src.sysmessage @55 Bu esya satilik degil.
elseif (<src.targ.tag.price> <= 0)
src.sysmessage @55 Bu esya satilik degil.
else
src.targ.dialog d_vendor_buy
src.tag.pvendor_fix <cont.uid>
endif
endif
return 1
[ITEMDEF i_vendor_stone]
name Vendor Stone
id i_grave_stone
type t_normal
ON=@Click
message @07d1,,1 <serv.name> Uo Shard
message @666,1,1 Vendor Sistem
return 1
on=@pickup_ground
return 1
on=@timer
return 1
on=@dclick
if (<src.tag0.vendor>)
src.sysmessage @55 Zaten bir vendora sahipsiniz.
else
sdialog d_vendor,1,1
endif
return 1
[DIALOG d_vendor]
100,250
resizepic 0 0 5120 270 95
resizepic 5 5 3500 260 55
button 233 65 1150 1152 1 0 0
PAGE 1
if (<dargs> = 1)
dhtmlgump 15 15 250 40 0 0 Bu iş yerini 2 haftalığına kiralamak istediğinize eminmisiniz? (100k)
button 200 65 1153 1155 1 0 1
endif
PAGE 2
if (<dargs> = 2)
dhtmlgump 15 15 250 40 0 0 Bu işyerinin kira süresini 1 hafta uzamak istediğinize eminmisiniz? (50k)
button 200 65 1153 1155 1 0 2
endif
PAGE 3
if (<dargs> = 3)
dhtmlgump 15 15 250 40 0 0 <serv.itemdef.<baseid>.name>, (<eval <price>>gp) <def.br>Bunu almak istediginize eminmisiniz?
button 200 65 1153 1155 1 0 3
endif
PAGE 4
if (<dargs> = 4)
dtextentry 15 15 600 20 1152 1 <eval <findlayer.29.more1>>
button 200 65 1153 1155 1 0 4
endif
[DIALOG d_vendor BUTTON]
ON=1
if (<src.gold> >= 100000)
serv.newnpc c_player_vendor
ref1 <new>
ref1.p <p>
ref1.newitem i_memory
ref1.new.color memory_ipet
ref1.new.link <src>
ref1.new.cont <ref1>
ref1.updatex
src.gold -= 10000
src.tag.vendor <ref1>
src.updatex
src.sysmessage @55 Vendorunuz kuruldu, komutlar icin '<ref1.name> bilgi' yaziniz.
remove
else
src.sysmessage @55 100.000 gpniz yok.
endif
ON=2
if (<src.gold> >= 50000)
timer <eval <timer> + 604800>
cont.say Sizinle çalisma süreme 7 gün eklendi.
src.gold -= 50000
src.updatex
else
src.sysmessage @55 50.000 gpniz yok.
endif
On=3
if (<src.gold> >= <eval <price>>)
if (<topobj.uid> = <src.ctag.pvendor_fix>)
if ((<src.targ.baseid> == i_spellbook) || (<src.targ.baseid> == i_runebook) || (<src.targ.baseid> == i_regs_lesser) || (<src.targ.baseid> == i_regs_normal) || (<src.targ.baseid> == i_regs_greater) || (<src.targ.baseid> == i_dye_fur) || (<src.targ.baseid> == i_alet_cantasi) || (<src.targ.dispid> == i_deed))
attr <attr>|attr_newbie
endif
src.gold -= <eval <price>>
src.updatex
topobj.findlayer.29.more1 += <eval <price>>
cont <src.findlayer.21.uid>
price 0
updatex
else
src.sysmessage @55 Bu esya vendorun cantasinda degil yada satilmis.
endif
else
src.sysmessage @55 <eval <price>> gpniz yok.
endif
On=4
if (<eval <argtxt[1]>> <= 0)
src.sysmessage @55 Bir miktar belirleyin..
elseif (<eval <argtxt[1]>> > <eval <findlayer.29.more1>>)
src.sysmessage @55 Bu miktar kasada bulunmuyor.
else
findlayer.29.more1 -= <eval <argtxt[1]>>
src.gold += <eval <argtxt[1]>>
src.updatex
src.sysmessage <eval <argtxt[1]>> altin bankaniza aktarildi.
endif
[ITEMDEF i_memory_vendor]
id i_memory
name player vendor
type t_eq_script
ON=@Create
timer 60*60*24*14
ON=@Timer
serv.newitem i_vendor_stone
ref1 <new>
ref1.p <cont.p>
cont.findlayer.21.color 033
cont.findlayer.21.attr 00
cont.findlayer.21.cont <uid.<cont.owner>.findlayer.29.uid>
try uid.<cont.owner>.tag.vendor
cont.remove
return 1
ON=@Targon_Item
if (<more1> = 1)
if (<src.targ.topobj.uid> != <cont.uid>)
src.sysmessage @55 Bu esya vendorun cantasinda degil.
elseif (<eval <more2>> <= 0)
src.targ.price 0
src.sysmessage @55 <src.targ.name>: 'satilik degil' olarak isaretlendi.
else
src.targ.price <eval <more2>>
src.sysmessage @55 <src.targ.name>: <eval <more2>> altin.
endif
elseif (<more1> = 2)
if (<src.targ.topobj.uid> != <cont.uid>)
src.sysmessage @55 Bu esya vendorun cantasinda degil.
elseif (<src.targ.price> = 0)
src.sysmessage @55 Bu esya satilik degil.
else
src.targ.dialog d_vendor,3,3
src.ctag.pvendor_fix <cont.uid>
endif
endif
return 1
[CHARDEF c_player_vendor]
defname c_player_vendor
name #NAMES_HUMANMALE Vendor
id c_man
can mt_equip|mt_nonmover
tspeech spk_player_vendor
tevents e_player_vendor
ON=@Create
npc brain_vendor
color colors_skin
speechcolor 035
title <job>
str {35 55}
dex {30 40}
int {30 40}
flags 028000005
itemnewbie random_male_hair
color colors_hair
item i_robe
color colors_all
item i_torch_lit
itemnewbie i_backpack
itemnewbie i_bankbox
itemnewbie i_memory_vendor
[SPEECH spk_player_vendor]
ON=bilgi
ON=help
ON=yard*
if (<owner> = <src>)
src.sysmessage Komutlar; durum, fiyat, hasılat, kira
endif
return 1
ON=durum
if (<owner> = <src>)
findid.i_memory_vendor.morex (<findid.i_memory_vendor.timer> / 60)
findid.i_memory_vendor.morey (<findid.i_memory_vendor.morex> / 60)
findid.i_memory_vendor.morez (<findid.i_memory_vendor.morey> / 24)
if (<findid.i_memory_vendor.morez> < 1)
if (<findid.i_memory_vendor.morey> < 1)
say Sizinle <findid.i_memory_vendor.morex> dakika daha çalışabilirim
else
say Sizinle <findid.i_memory_vendor.morey> saat daha çalışabilirim
endif
else
say Sizinle <findid.i_memory_vendor.morez> gun daha çalışabilirim
endif
endif
return 1
ON=fiyat *
if (<owner> = <src>)
if (<findlayer.21.findcont> = 0)
src.sysmessage @55 Vendorda eşya yok.
elseif (<isnum <streat <args>>>)
findid.i_memory_vendor.more1 1
findid.i_memory_vendor.more2 <streat <args>>
findid.i_memory_vendor.target
endif
endif
return 1
ON=hasılat
if (<owner> = <src>)
if (<eval <findlayer.29.more1>> < 1)
src.sysmessage @55 Vendorda para yok.
else
dialog d_vendor,4,4
endif
endif
return 1
ON=kira
if (<owner> = <src>)
findid.i_memory_vendor.morex (<findid.i_memory_vendor.timer> / 60)
findid.i_memory_vendor.morey (<findid.i_memory_vendor.morex> / 60)
findid.i_memory_vendor.morez (<findid.i_memory_vendor.morey> / 24)
if (<findid.i_memory_vendor.morez> > 2)
say Kirayi uzatmak için son 2 çalışma günümü beklemelisiniz. Sizinle daha <findid.i_memory_vendor.morez> gün çalışabilirim
else
findid.i_memory_vendor.dialog d_vendor,2,2
endif
endif
return 1
ON=buy
if (<owner> = <src>)
say Siz benim isverenim oldugunuz icin ucretsiz alabilirsiniz.
elseif (<findlayer.21.findcont> = 0)
src.sysmessage @55 Vendorda su an satilik mal yok.
else
findid.i_memory_vendor.more1 2
findid.i_memory_vendor.target
endif
return 1
ON=*
return 1
[events e_player_vendor]
On=@Click
message @07d1,,1 Player Vendor
message * <memoryfindtype.memory_ipet.link.name> *
return 1
On=@DClick
if (<src.isgm>)
pack
elseif !(<canseelos>) || (<distance> > 3)
src.sysmessage @55 Vendor'a ulasamiyorsunuz.
elseif (<src.flags>&statf_dead)
src.sysmessage @55 Su anki durumuzda bu islemi gerceklestiremezsiniz.
elseif (<owner> = <src>)
src.tag.vendor <uid>
src.sysmessage @55 Satilacak esyalari buraya koyabilirsiniz.
pack
elseif (<findlayer.21.findcont> = 0)
say Su an satilik mal yok.
else
pack
endif
src.events +e_vendor_player
return 1
On=@EnvironChange
if (<flags>&statf_war)
flags <flags>&~statf_war
update
endif
food 990
[events e_vendor_player]
on=@Spellcast
if (<act.id> == c_player_vendor) || (<act.topobj.id> == c_player_vendor))
skill fail
return 1
endif
On=@Attack
If (<src.id> == c_player_vendor)
return 1
endif
On=@SkillStart
if ((<action> == id(skill_herding)) || (<action> == skill_herding))
if (<targ.id> == c_player_vendor)
skill fail
return 1
endif
elseif ((<action> == id(skill_stealing)) || (<action> == skill_stealing))
if (<targ.topobj.id> == c_player_vendor)
src.sysmessage @55 Player vendorlardan herhangi birsey calamazsiniz.
skill fail
return 1
endif
On=@ItemDClick
if (<targ.topobj.id> == c_player_vendor)
if (<targ.type> == t_container)
targ.open
endif
return 1
endif
On=@ItemClick
if (<act.topobj.id> == c_player_vendor)
if (0<act.tag.price> < 1)
act.message @33 [satilik degil]
else
if ((<act.type> == t_armor) || (<act.type> == t_armor_leather) || (<act.type> == t_shield) || (<act.type> == t_clothing) || (<act.type> == t_weapon_sword) || (<act.type> == t_weapon_fence) || (<act.type> == t_weapon_mace_staff) || (<act.type> == t_weapon_mace_smith) || (<act.type> == t_weapon_mace_pick) || (<act.type> == t_weapon_bow) || (<act.type> == t_weapon_xbow))
if !(<eval ((<act.more1l> * 100) / <act.more1h>)> == 100)
act.message @55 [<eval <act.tag.price>> gp] [%<eval (100 - ((<act.more1l> * 100) / <act.more1h>))> eski]
else
act.message @55 [<eval <act.tag.price>> gp] [yeni]
endif
else
act.message @55 [<eval <act.tag.price>> gp]
endif
endif
endif
On=@ItemPickUp_Pack
if (<act.topobj.id> == c_player_vendor)
if (<uid> != <act.topobj.owner>)
return 1
endif
endif
On=@ItemTargOn_Item
if ((<targ.topobj.id> == c_player_vendor) && (<act.cont.uid> != <targ.topobj.uid>))
return 1
endif