[ITEMDEF i_vendor_kira]
ID=i_grave_stone
NAME=Kiralik Dukkan
TYPE=t_script
DESCRIPTION=Kiralik Vendor

ON=@CREATE
COLOR=084c
TAG.kiralik=0
TAG.sahip=0
ATTR attr_decay

ON=@CLICK
message=@0790 <name>
if (<eval <tag.kiralik>> == 1)
message=@0bb2,,1 [Kiralanmis]
else
message=@0bb1,,1 [Kiralanmamis]
endif
return 1

ON=@DCLICK
IF ( <DISTANCE> > 2 )
SRC.sysMESSAGE=@39,,1 Yeterince yakin deilsiniz!
RETURN 1
ENDIF
SRC.ACT=<UID>
IF !(<eval <SRC.ACT.TAG.kiralik>>)
      SRC.DIALOG d_vendor_intro
src.tag.dist <src.act.uid>
      RETURN 1
ELSE
   IF (<SRC.ACT.LINK.TAG.sahip>==<SRC.UID>)||(<SRC.ISGM>)
      VAR.LEASE=<eval <SRC.ACT.TIMER>/60>
      VAR.LEASE=<eval <VAR.LEASE>/60>
      SRC.dialog d_vendor_admin
//src.sysmessage=@0790,,1 Bakimda ...
      RETURN 1
   ELSE
   SRC.SYSMESSAGE @38,,1 Bu dukkan ve vendor kiralanmis.
   RETURN 1
   ENDIF
ENDIF
RETURN 1

ON=@TIMER
LINK.REMOVE
LINK=04fffffff
TAG.kiralik=0
TAG.sahip=0
COLOR=084c
RETURN 1

[DIALOG d_vendor_intro]
150,90
PAGE 0
resizepic 0 0 5054 300 140
resizepic 10 10 3500 280 120
dhtmlgump 35 25 130 20 0 0 Vendor Kiralama
dhtmlgump 35 45 130 20  0 0 Kiralamak icin 6000 YTL Gereklidir.
button 45 80 210 211 1 0 1
dhtmlgump 80 80 190 20 0 0 Bir haftaligina vendor kirala.
resizepic 0 150 5054 300 85
dhtmlgump 10 160 280 65 1 1 Uyari :: Vendoru almadan once vendor tasinin onundeki pad'in uzerine geciniz . Pad'in disinda bulunan vendorlar uyarisiz silinir ...





[DIALOG d_vendor_intro BUTTON]
on=0
src.tag.dist
on=1
IF (<uid.<src.tag.dist>.DISTANCE> > 2 )
SRC.sysMESSAGE=@39,,1 Yeterince yakin deilsiniz!
else
if (<src.restest 6000 i_sheen>)
src.tag.dist
VAR.SIGN=<SRC.ACT>
SRC.ACT.TAG.kiralik=1
SRC.ACT.COLOR=0846
SRC.ACT.TAG.sahip=<SRC.UID>
SRC.ACT.TIMER=60*60*24*7
src.consume 6000 i_sheen
VAR.SIGN=<SRC.ACT>
src.newnpc c_pv
src.act.p <p>
src.act.tag.p <p>
src.act.tag.px <p.x>
src.act.tag.py <p.y>
src.act.tag.pz <p.z>
src.act.tag.owner <src.uid>
VAR.VEND=<SRC.ACT.UID>
src.act.findlayer(29).more1 2500
SRC.ACT.TAG.sahip=<SRC.UID>
SRC.ACT=<VAR.SIGN>
SRC.ACT.LINK=<VAR.VEND>
src.act.memorydel <src.uid>
SRC.ACT=<VAR.VEND>
src.act.newitem i_memory
SRC.act.ACT.LINK=<SRC.UID>
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.act.CONT=<VAR.VEND>
src.act.flags <src.act.flags>&statf_pet
src.tag.vendor <src.act.uid>
SRC.ACT=<VAR.SIGN>
src.act.update
ELSE
SRC.SYSMESSAGE @39,,1 Kiralamak icin 6000 YTL'e ihtiyaciniz var..
src.tag.dist
ENDIF
endif
return 1


// **************
// VENDOR CHARDEF
// **************

[chardef c_pv]
defname c_pv
name #names_humanmale the Player Vendor
id c_man
can mt_equip|mt_nonmover
hiredaywage 52
desires i_sheen

tspeech pv_spch
tevents e_pv
tevents e_poison_immune
tevents e_poison_immune_plus
On=@Create
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_pv

//ON=@click
//message=@0790,9,0 <name>
//return 1


// *******
// ITEMLAR
// *******
[itemdef i_pv]
id i_memory
name vendor ana kontroller
type t_eq_script

On=@TargOn_Char
if (<src.targ.uid> == <cont.uid>)
cont.findlayer(21).open
target
endif
return 1

On=@TargOn_Item
if (<more1> == 1) // dinamik fiyatlandirma
if !(<src.uid> == <cont.tag.owner>)
cont.sayua 1953,6,0,0,, <src.name>, Siz benim isverenim degilsiniz.
elseif !(<src.targ.topobj.uid> == <cont.uid>)
cont.say=@0790,3,0 Bu esya cantamda degil.
elseif (strmatch('<src.targ.price>',''))
cont.say=@0790,3,0 Bu satilabilecek bir esya degil.
elseif (<eval <more2>> <= 0)
src.targ.price 0
cont.say=@0790,3,0 <src.targ.name>: 'satilik degil' olarak isaretlendi.
else
src.targ.price <eval <more2>>
more2 0
cont.say=@0790,3,0 <src.targ.name>: <src.targ.price> YTL.
endif
elseif (<more1> == 2) // satis
if !(<src.targ.topobj.uid> == <cont.uid>)
cont.say=@0790,3,0 Bu esya cantamda degil.
elseif (strmatch('<src.targ.price>',''))
cont.say=@0790,3,0 Bu esya satilik degil.
elseif (<src.targ.price> <= 0)
cont.say=@0790,3,0 Bu esya satilik degil.
elseif (<src.sp> < <src.targ.price>)
cont.say=@0790,3,0 Bankanizin en ust kisminda <src.targ.price> YTLiniz bulunmuyor.
else
src.targ.dialog d_pv_satinal
endif
elseif (<more1> == 3) // para aktarma
if !(<src.uid> == <cont.tag.owner>)
cont.say=@0790,3,0 <src.name>, Siz benim isverenim degilsiniz.
elseif !(<src.targ.topobj.uid> == <src.uid>)
cont.say=@0790,3,0 Gosterdiginiz nesne sizin uzerinizde degil.
elseif !(<src.targ.baseid> == i_sheen)
cont.say=@0790,3,0 Bu gosterdiginiz YTL degil.
else
cont.findlayer(29).more1 <eval (<cont.findlayer(29).more1> + <src.targ.amount>)>
if (<eval (<src.targ.amount> / <cont.hiredaywage>)> > 0)
cont.say=@0790,3,0 <src.targ.amount> YTL calisma suremi <eval (<src.targ.amount> / <cont.hiredaywage>)> saat uzatti, tesekkur ederim.
else
cont.say=@0790,3,0 <src.targ.amount> YTL kasama eklendi, tesekkur ederim.
endif
src.targ.remove
endif
endif
return 1

On=@Timer
return 1

// *********
// DIALOGLAR
// *********
[dialog d_vendor_admin]
190,20
resizepic 90 0 5054 110 40
dhtmlgump 100 5 120 20 0 0 <def.l1>basefont size="4" color="#000aaa" <def.r1>Kontrol Menusu
resizepic 0 30 5054 300 160
resizepic 10 40 3000 280 140
button 25 55 4009 4010 1 0 1
dhtmlgump 65 55 230 20 0 0 Vendoru bir hafta daha kirala (40k)
button 25 85 4018 4019 2 0 2
dhtmlgump 65 85 180 20 0 0 Vendoru terket
button 25 115 4012 4013 3 0 3
dhtmlgump 65 115 180 20 0 0 Vendorun adini degistirin
button 25 145 4006 4007 4 0 4
dhtmlgump 65 145 180 20 0 0 Bankanizi acin ..
resizepic 0 195 5054 300 90
resizepic 10 205 3000 280 70
resizepic 17 215 3000 265 22
textentry 21 217 250 20 0 0 0
button 21 245 4012 4013 5 0 5
dhtmlgump 59 245 50 20 0 0 Gonder
button 110 245 4018 4019 6 0 6
dhtmlgump 150 245 50 20 0 0 Iptal et
resizepic 0 290 5054 300 150
dhtmlgump 10 300 280 110 1 1 Vendor Kontrol Kurallari <def.br><def.br>KURALLAR :: Vendorun yanlis yere kurulmasi sonucunda vendorunuz kaldirilir . Bu durumda sorumlu siz oldugunuz icin vendorun icindeki itemler ve vendoru kiralarken verdiginiz 6000 YTL den siz sorumlusunuz . Bu konu hakkinda kesinlikle page atmayiniz . Vendorunuzun reklami icin koyulan yeni reklam sisteminde kullanginiz kelimelere dikkat ediniz . Kesinlikle kufur icermeyen cumleler kullaniniz . Reklam sistemini sadece 24 saatte bir kullanabilirsiniz . Reklam sistemini vendorunuzun reklami disinda baska hic bir is icin kullanamazsiniz ...
dhtmlgump 20 417 280 20 0 0 Vendor Timer :: ( Kalan sure : <def.l1>basefont size="4" color="#eee222" <def.r1><eval <VAR.LEASE>> saat<def.l1>basefont size="4" color="black" <def.r1> )

[dialog d_vendor_admin button]
ON=1
IF (<src.restest 4000 i_sheen>)
    SRC.CONSUME 4000 i_sheen
    SRC.UPDATE
    SRC.TAG.vendtimer <SRC.ACT.TIMER>
    SRC.ACT.TIMER= <eval <SRC.ACT.TIMER>> + 604800
    src.act.link.message Calisma suremi 1 hafta daha uzattiniz. Tesekkurler.
ELSE
    SRC.SYSMESSAGE Bir hatfa daha calismam icin yeterli paraniz yok!(40k)
ENDIF

ON=2
SRC.ACT.TIMER 1

ON=3
SRC.DIALOG d_name_vendor

ON=4
SRC.BANKSELF

ON=5
src.sysmessage=@39,,1 Kullanima Kapalidir...

[dialog d_vendor_admin text]
Metininizi buraya yazin ...

/ON=0 Vendorun ismini degistir.
//SRC.DIALOG d_name_vendor
//
//ON=0 Bir hafta daha kirala. (Kalan sure: <eval <VAR.LEASE>> saat)
//IF (<src.restest 4000 i_sheen>)
//    SRC.CONSUME 4000 i_sheen
//    SRC.UPDATE
//    SRC.TAG.vendtimer <SRC.ACT.TIMER>
//    SRC.ACT.TIMER= <eval <SRC.ACT.TIMER>> + 604800
//    src.act.link.message Calisma suremi 1 hafta daha uzattiniz. Tesekkurler.
//ELSE
//    SRC.SYSMESSAGE Bir hatfa daha calismam icin yeterli paraniz yok!(40k)
//ENDIF

//ON=0 Vendoru terket.
//    SRC.ACT.TIMER 1

//ON=0 Banka
//    SRC.BANKSELF


[DIALOG d_name_vendor]
0,0
nomove
resizepic 190 175 5054 335 150
resizepic 200 185 3000 315 130
resizepic 220 235 3000 270 22
text 215 200 995 0
text 255 275 0000 1
button 220 275 4005 4006 1 0 1
text 435 275 0000 2
button 400 275 4005 4006 1 0 0
textentry 225 237 253 25 0 0 3

[DIALOG d_name_vendor TEXT]
Vendorunuzun ismini girin.
Devam
Vazgec
<src.act.link.name>

[DIALOG d_name_vendor BUTTON]
ON=0
ON=1
src.act.link.message Yeni adim <ARGTXT[0]>
SRC.ACT.LINK.NAME <ARGTXT[0]>
RETURN 1

[dialog d_pv_cash]
300,300

resizepic 0 0 5054 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_pv_cash text]
<eval (<findlayer(29).more1> - 2500)>

[dialog d_pv_cash button]
On=1
if (<eval <argtxt[1]>> <= 0)
say=@0790,3,0a Hmm.. Sanirim tam anlayamadim?
elseif (<eval <argtxt[1]>> > <eval <findlayer(29).more1>>)
say=@0790,3,0 Bu miktar kasamda bulunmuyor.
elseif (<eval (<findlayer(29).more1> - <argtxt[1]>)> < 500)
say=@0790,3,0 Bu miktari veremeyecegim, kasamda en az 500 YTL kalmali.
elseif (<eval <argtxt[1]>> >= 65000)
vend_collect <eval <argtxt[1]>>
say=@0790,3,0 <argtxt[1]> YTL bankaniza aktarildi.
else
findlayer(29).more1 <eval (<findlayer(29).more1> - <argtxt[1]>)>
src.newitem i_sheen
src.act.amount <eval <argtxt[1]>>
src.act.cont <src.findlayer(29).uid>
say=@0790,3,0 <argtxt[1]> YTL bankaniza aktarildi.
endif

[dialog d_pv_satinal]
300,300

resizepic 0 0 5054 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_pv_satinal text]
<name>, fiyati: <price> YTL. Bunu satin almak istediginize emin misiniz?

[dialog d_pv_satinal button]
On=1
if (strmatch('<price>',''))
src.sysmessage Bu esya satilik degil.
elseif (<price> <= 0)
src.sysmessage Bu esya satilik degil.
elseif (<src.sp> > = <price>)
src.spconsume <price>
topobj.findlayer(29).more1 (<topobj.findlayer(29).more1> + <price>)
cont <src.findlayer(21).uid>
price
update
if ((<baseid> == i_spellbook) || (<baseid> == i_runebook) || (<baseid> == i_magic_reg30) || (<baseid> == i_magic_reg60) || (<baseid> == i_magic_reg90) || (<baseid> == i_necro_reg20) || (<baseid> == i_necro_reg40) || (<baseid> == i_taxi_kit) || (<baseid> == i_dye_tub_furny) || (<dispid> == i_deed))
attr <attr>|attr_newbie
endif
else
topobj.say=@0790,3,0 Bankanizin en ust kisminda bunu alacak kadar YTLiniz yok.
endif

// ******
// SPEECH
// ******

[speech pv_spch]
On=bilgi
On=yardim
if (<src.uid> == <tag.owner>)
say=@0790,3,0 Kullanabileceginiz komutlar: durum, kasa, hasilat, fiyat.
say=@0790,3,0 Belirli bir komut hakkinda bilgi icin 'Komut ?' yazmaniz yeterlidir.
else
say=@0790,3,0 Uzerime cift tiklayarak veya 'alisveris' komutuyla cantami acabilir, cantamdaki kutu veya torbalara cift tiklayarak iclerine bakabilir, 'satinal' veya 'satin al' komutuyla satilik esyalari satin alabilirsiniz.
endif
return 1

On=durum*
if ((<src.uid> == <tag.owner>) || (<src.isgm>))
if (strmatch('<args>','DURUM ?'))
say=@0790,3,0 Kasamdaki para miktarini ve kasamdaki parayla calisacagim gun sayisini (reel gun) ogrenmek icin kullancaginiz komuttur.
else
say=@0790,3,0 Kasamdaki <eval <findlayer(29).more1>> YTL ile <eval (<findlayer(29).more1> / (<hiredaywage> * 24))> gun daha sizin icin calisacagim.
endif
endif
return 1

On=kasa*
if (<src.uid> == <tag.owner>)
if (strmatch('<args>','KASA ?'))
say=@0790,3,0 Satis olmamasi ve kasamdaki paranin azalmasi durumunda kasama yaninizda getireceginiz YTLi eklemek icin kullanacaginiz komuttur.
else
findid.i_pv.more1 3
findid.i_pv.target
say=@0790,3,0 Kasama yatirmak istediginiz parayi seciniz.
endif
endif
return 1

On=hasilat*
if (<src.uid> == <tag.owner>)
if (strmatch('<args>','HASILA ?'))
say=@0790,3,0 Kasamdaki parayi banka hesabiniza aktarmakta kullanacaginiz komuttur. Kasamdaki son 500 YTLi aktarmaniz mumkun degildir.
else
if (<eval <findlayer(29).more1>> < 2501)
say=@0790,3,0 Kasamda 500 veya daha az YTL var, su durumda size nakit veremem.
else
dialog d_pv_cash
endif
endif
endif
return 1

On=fiyat *
if (<src.uid> == <tag.owner>)
if (strmatch('<args>','FIYAT ?'))
say=@0790,3,0  Cantama yerlestirdiginiz esyalari fiyatlandirmakta kullanacaginiz komuttur. Kullanilisi, X'in yerine bir sayi gelecek bicimde 'Fiyat X' seklindedir.
say=@0790,3,0  Satilamaz ibareli esyalari asla fiyatlandiramazsiniz. Satilik haldeki bir esyayi 'satilik degil' hale getirmek icin 0 fiyat vermeniz gereklidir.
else
if !(<findlayer(21).findcont(0)>)
say=@0790,3,0 Cantamda fiyatlandirilacak mal bulunmuyor.
else
try <args>
endif
endif
endif
return 1
On=alisveris
if ((<canseelos>) && (<distance> < 4))
face
if (<src.uid> == <tag.owner>)
sayua 1953,6,0,0, Satilacak esyalari buraya koyabilirsiniz.
pack
elseif !(<findlayer(21).findcont(0)>)
say=@0790,3,0 Su an satilik malim yok, lutfen daha sonra tekrar geliniz.
else
pack
endif
else
src.sysmessage Vendor'a ulasamiyorsunuz.
endif
return 1

On=satinal
On=satin al
if (<src.uid> == <tag.owner>)
say=@0790,3,0 Isverenim oldugunuz icin istediginizi alabilirsiniz, para vermenize gerek yok.
elseif !(<findlayer(21).findcont(0)>)
say=@0790,3,0 Su an satilik malim yok uzgunum.
elseif (<isgm>)
say=@0790,3,0 Benden birsey satin alamazsiniz.
else
findid.i_pv.more1 2
findid.i_pv.target
endif
return 1

On=*
return 1

ON=all come
say=@0790,,1 Yerimden ayrilmam yasak !
return 1
ON=all transfer
say=@0790,,1 Sadece bir kisiye hizmet edebilirim !
return 1

// *****
// EVENT
// *****

[events e_pv]
On=@GetHit
if !(<src.npc>)
src.newitem i_killer
src.act.equip
else
src.leave 20
endif
return 1

On=@Hit
return 1

On=@HitTry
return 1

On=@Death
hits <str>
return 1

On=@SpellEffect
if (<src.npc>)
src.leave 20
endif
return 1

On=@ItemEquip
if ((<act.layer> == 1) || (<act.layer> == 2))
findid.i_torch.equip
findid.i_torch.dclick
return 1
endif

on=@skillstart
if (<action>==skill_stealing)
src.sysmessage @38 Stealing yeteneginizi player vendorlari uzerinde kullanamazsiniz.
src.action=-1
return 1
endif

On=@Click
if !(strmatch('<eval 0<tag.px>>','<eval <p.x>>')) || !(strmatch('<eval 0<tag.py>>','<eval <p.y>>')) || !(strmatch('<eval 0<tag.pz>>','<eval <p.z>>'))
p <tag.p>
update
return 1
endif
message=@00bb2,3,0, <memoryfindtype.memory_ipet.link.name>
food=999
return 1

On=@DClick
if !(strmatch('<eval 0<tag.px>>','<eval <p.x>>')) || !(strmatch('<eval 0<tag.py>>','<eval <p.y>>')) || !(strmatch('<eval 0<tag.pz>>','<eval <p.z>>'))
p <tag.p>
update
return 1
endif

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.owner>
act.cont <uid>
flags <flags>&statf_pet
endif

if (<src.uid> == <tag.owner>)
src.tag.vendor <uid>
endif

if (<src.isgm>)
pack
elseif (<src.flags>&statf_dead)
src.sysmessage Su anki durumuzda bu islemi gerceklestiremezsiniz.
elseif ((<canseelos>) && (<distance> < 4))
face
if (<src.uid> == <tag.owner>)
sayua 1953,6,0,0, Satilacak esyalari buraya koyabilirsiniz.
pack
elseif !(<findlayer(21).findcont(0)>)
sayua 1953,6,0,0, Su an satilik malim yok, lutfen daha sonra tekrar geliniz.
else
pack
endif
else
src.sysmessage Vendor'a ulasamiyorsunuz.
endif
return 1

On=@EnvironChange
if (<flags>&statf_war)
flags <flags>&~statf_war
update
endif
food 990
p <tag.p>
tag.p <p>
tag.px <p.x>
tag.py <p.y>
tag.pz <p.z>

// *********************
// YTLSAL FONKSIYONLAR
// *********************

[function fiyat]
if (<eval <argn>> > 500000)
sayua 1953,6,0,0, Tek bir mali 500000 YTL'in uzerinde fiyatla satmam yasalara aykiridir.
else
findid.i_pv.more1 1
findid.i_pv.more2 <eval <argn>>
findid.i_pv.target
endif

[function vend_collect]
var.vendorcash <eval (<argn> - 65000)>
findlayer(29).more1 <eval (<findlayer(29).more1> - 65000)>
src.newitem i_sheen
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_sheen
src.act.amount <eval <var.vendorcash>>
src.act.cont <src.findlayer(29).uid>
var.vendorcash
else
var.vendorcash
endif

[function packo] // (special thx to laroux below this line)
try src.tag.<uid> <rescount>
packo_loop <args>

[function packo_loop]
if (<eval <src.tag.<uid>>> > 0)
try src.tag.<uid> <eval (<src.tag.<uid>> - 1)>
//if (strmatch('<findcont.<eval <src.tag.<uid>>>.type>','t_container'))
// try findcont.<eval <src.tag.<uid>>>.packo <args>
//else
try findcont.<eval <src.tag.<uid>>>.<args>
//endif
packo_loop <args>
else
try src.tag.<uid>
endif

[function sp]
var.sp 0
//findlayer(21).packo sp_ctrl
findlayer(29).packo sp_ctrl
return <eval <var.sp>>

[function sp_ctrl]
if (strmatch('<baseid>','i_sheen'))
var.sp <eval (<var.sp> + <amount>)>
endif

[function spconsume]
var.sp <argn>
//findlayer(21).packo spconsume_ctrl <argn>
findlayer(29).packo spconsume_ctrl <argn>
return 1

[function spconsume_ctrl]
if ((<var.sp> > 0) && (strmatch('<baseid>','i_sheen')))
if (<amount> > <eval (<var.sp>)>)
amount <eval (<amount> - <var.sp>)>
var.sp 0
else
var.sp <eval (<var.sp> - <amount>)>
remove
endif
endif

[function evl]

sysmessage Evaluating [0<args>]: <eval 0<args>>.
return <valstr 0<args>>

[eof]args>>

[eof]sage @90 <name>
return 1

ON=@DCLICK
SRC.ACT=<UID>

IF !(<eval <SRC.ACT.TAG.kiralik>>)
      SRC.DIALOG d_vendor_intro
      RETURN 1
ELSE
   IF (<SRC.ACT.LINK.TAG.sahip>==<SRC.UID>)||(<SRC.ISGM>)
      VAR.LEASE=<eval <SRC.ACT.TIMER>/60>
      VAR.LEASE=<eval <VAR.LEASE>/60>
      SRC.dialog d_vendor_admin
      RETURN 1
   ELSE
   SRC.SYSMESSAGE @38 Bu dukkan ve vendor kiralanmis.
   RETURN 1
   ENDIF
ENDIF
RETURN 1

ON=@TIMER
LINK.REMOVE
LINK=04fffffff
TAG.kiralik=0
TAG.sahip=0
COLOR=000d1
RETURN 1


[DIALOG d_vendor_intro]
100, 100
PAGE 0
resizepic 81 93 3500 305 126
text 170 103 1153 0
text 131 134 1153 1
button 107 169 2151 2152 1 0 1
text 141 171 1152 2

[DIALOG d_vendor_intro TEXT]
Vendor Kiralama
Kiralamak icin 90k Gereklidir.
Bir haftaligina vendor kirala.


[DIALOG d_vendor_intro BUTTON]
on=1
IF (<eval <SRC.BANKBALANCE>+<SRC.FINDLAYER(21).FINDTYPE(i_sheen).AMOUNT>> >=90000)
VAR.SIGN=<SRC.ACT>
SRC.ACT.TAG.kiralik=1
SRC.ACT.COLOR=0484
SRC.ACT.TAG.sahip=<SRC.UID>
SRC.ACT.TIMER=60*60*24*7
VAR.SIGN=<SRC.ACT>
SRC.NEWNPC { c_kiralik_vendor 1 c_kiralik_vendor_f 1 }
SRC.ACT.P <SRC.P>
VAR.VEND=<SRC.ACT.UID>
SRC.ACT.findlayer(layer_bankbox).more1=500
SRC.ACT.TAG.sahip=<SRC.UID>
SRC.ACT=<VAR.SIGN>
SRC.ACT.LINK=<VAR.VEND>

SRC.ACT=<VAR.VEND>
SRC.NEWITEM=i_memory
SRC.ACT.COLOR=memory_ipet
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.LAYER=layer_special
SRC.ACT.CONT=<VAR.VEND>
SRC.CONSUMEBANK 6000 i_sheen
SRC.CONSUMEBANK 3000 i_sheen
SRC.UPDATE
SRC.ACT=<VAR.SIGN>
SRC.MENU m_vendor_admin
RETURN 1
ELSE
message= @48 Kiralamak icin 60k bankanizda olmali.
ENDIF

[MENU m_vendor_admin]
Kiralik vendor yonetimi.

ON=0 Vendorun ismini degistir.
SRC.DIALOG d_name_vendor

ON=0 Satilacak esyalar.
SRC.ACT.LINK.FINDLAYER(layer_vendor_stock).OPEN
src.act.link.message @50 Satilacak esyalari buraya koyun.
src.act.link.message @50 Esyalarin fiyatini ayarlamak icin "price xxx" yazin. (xxx=fiyat)

ON=0 Bir hafta daha kirala. (Kalan sure: <eval <VAR.LEASE>> saat)
IF (<eval <SRC.BANKBALANCE>+<SRC.FINDLAYER(21).FINDTYPE(i_sheen).AMOUNT>> >=90000)
    SRC.CONSUMEBANK 6000 i_sheen
    SRC.CONSUMEBANK 3000 i_sheen
    SRC.UPDATE
    SRC.ACT.TIMER=60*60*24*7
    src.act.link.message @90 Calisma süremi 1 hafta daha uzattiniz. Tesekkurler.
ELSE
    SRC.SYSMESSAGE @38 Bir hatfa daha calismam icin yeterli paraniz yok!
ENDIF

ON=0 Vendoru terket.
    SRC.ACT.TIMER 1

ON=0 Banka
    SRC.BANKSELF


[DIALOG d_name_vendor]
0,0
nomove
resizepic 190 175 5054 335 150
resizepic 200 185 3000 315 130
resizepic 220 235 3000 270 22
text 215 200 995 0
text 255 275 0000 1
button 220 275 4005 4006 1 0 1
text 435 275 0000 2
button 400 275 4005 4006 1 0 0
textentry 225 237 253 25 0 0 3

[DIALOG d_name_vendor TEXT]
Vendorunuzun ismini girin.
Devam
Vazgec
<src.act.link.name>

[DIALOG d_name_vendor BUTTON]
ON=0
ON=1
src.act.link.message @48 Yeni adim <ARGTXT[0]>
SRC.ACT.LINK.NAME <ARGTXT[0]>
RETURN 1

[CHARDEF c_kiralik_vendor]
NAME Kiralik Vendor
ID=C_MAN
DESIRES=i_sheen,e_notoriety
AVERSIONS=t_TRAP,t_eerie_stuff

TSPEECH=spk_human_prime
TSPEECH=spk_shopkeep
TSPEECH=spk_needs
TSPEECH=spk_human_default

TEVENTS=e_Human_HearUnk
TEVENTS=e_Human_ConvInit
TEVENTS=e_Human_Needs
TEVENTS=e_Human_Greet
TEVENTS=e_Human_Space
TEVENTS=e_Human_Refuse
TEVENTS=e_Human_Environ
tevents e_no_pvp

ON=@Create
NPC=brain_vendor
COLOR=colors_skin
speechcolor 0481
FLAGS=028000005
NEED=i_sheen

STR={66 80}
DEX=90
INT={66 80}

ITEMNEWBIE=random_male_hair
COLOR=colors_hair
ITEMNEWBIE=random_facial_hair
COLOR=match_hair

ITEMNEWBIE=i_shirt_plain
COLOR=colors_all
ITEMNEWBIE=random_pants
COLOR=colors_all
ITEMNEWBIE=random_shoes
COLOR=colors_neutral

ON=@CLICK
message <memoryfindtype.memory_ipet.link.name>
return 1

[CHARDEF c_kiralik_vendor_f]
NAME=Kiralik Vendor
ID=C_WOMAN
CAN=0
FOODTYPE=

TSPEECH=spk_human_prime
TSPEECH=spk_shopkeep
TSPEECH=spk_needs
TSPEECH=spk_human_default

TEVENTS=e_Human_HearUnk
TEVENTS=e_Human_ConvInit
TEVENTS=e_Human_Needs
TEVENTS=e_Human_Greet
TEVENTS=e_Human_Space
TEVENTS=e_Human_Refuse
TEVENTS=e_Human_Environ
TEVENTS=e_no_pvp

ON=@Create
NPC=brain_vendor
speechcolor 0481
COLOR=colors_skin
FLAGS=028000001
NEED=i_sheen

STR={66 80}
DEX=90
INT={66 80}


ITEMNEWBIE=random_female_hair
COLOR=colors_hair
ON=@CLICK
message <memoryfindtype.memory_ipet.link.name>
return 1

ON=@NPCRestock
ITEM=i_shirt_plain
COLOR=colors_all
ITEM=random_skirt
COLOR=colors_all
ITEM=random_shoes
COLOR=colors_neutral
ITEM=random_coin_purse

[EVENTS e_no_pvp]
ON=@SPELLEFFECT
SRC.SYSMESSAGE @38 Vendorlara buyu atamazsiniz!
RETURN 1

ON=@GETHIT
SRC.SYSMESSAGE @38 Vendorlara atak veremezsiniz!
RETURN 1

[FUNCTION consumebank]
act=<SRC.FINDLAYER(layer_bankbox).uid>
act.layer=layer_pack
act.type=t_container
act.equip
src.consume <args>
act.layer=layer_bankbox
act.type=t_eq_bank_box
act.equip

act.equip

ip

act.type=t_eq_bank_box
act.equip

.layer=layer_bankbox
act.type=t_eq_bank_box
act.equip