Vendoru terketiginde yada Suri doldugunda Cantasindaki itemleri siliyor Nasil vendor sahibinin Bankasina Atirabilirim ?

[dialog d_vendor_admin]

100,100

page 0 

noclose

resizepic 100 100 8500 370 200

resizepic 110 110 3000 350 180



dhtmlgump 200 120 300 20 0 0 <def.bfont_red><serv.servname> Vendor Menüsü

dhtmlgump 165 145 500 20 0 0 Bir hafta daha kirala : <def.bfont_red>Kalan sure : <eval <VAR.LEASE>> saat

dhtmlgump 165 185 200 20 0 0 Vendoru terket

dhtmlgump 165 225 200 20 0 0 Banka Ac

button 130 140 2151 2152 1 0 1

button 130 180 2151 2152 1 0 2

button 130 220 2151 2152 1 0 3

button 330 260 2151 2152 1 0 0

dhtmlgump 365 265 200 20 0 0 Kapat



[dialog d_vendor_admin button]



on=0

src.sysmessage @07a1 Vendor menü kapatıldı



on=1

IF (<src.gold> >= 90000)

    SRC.gold -=90000

    SRC.UPDATE

    SRC.TAG.vendtimer <SRC.ACT.TIMER> 

    SRC.ACT.TIMER= <eval <SRC.ACT.TIMER>> + 604800

    src.act.link.message @90 Calisma suremi 1 hafta daha uzattiniz. Tesekkurler.

    src.findid.i_vendorumvar.timer <eval <src.findid.i_vendorumvar.timer>> + 604800

ELSE

    src.sysmessage @026 Bir hafta daha calismam icin yeterli paraniz yok!(90.000Gp)

ENDIF



on=2

SRC.ACT.TIMER 1

src.findid.i_vendorumvar.remove

on=3

SRC.BANKSELF

[itemdef i_vendorumvar]

id i_memory

name Vendorum var

type t_eq_script





On=@create

attr=attr_decay

timer 5



On=@equip

return 1





On=@Timer

src.sysmessage @026 Pazar Vendorunuz Suresi Bittiginden Dolayi Silinmistir

remove

return 1

[chardef c_player_v]

defname c_player_v

name #NAMES_HUMANMALE

id c_man

can mt_equip|mt_nonmover

hiredaywage 52

desires i_gold



tspeech pv_spch

tevents e_pv



On=@Create

invul 1

str 9500

dex 25

int 25

update

fix

color colors_skin

speechcolor 0481

food 990

npc 1

TAMING=200.1



itemnewbie i_Robe

color 066d

attr 04

item i_torch_lit

morey -1

itemnewbie i_backpack

itemnewbie i_bankbox

color 0384

timer 900

attr 014

itemnewbie i_pv

Bunun bir çok yolu var ama basitce;

findid.i_vendorumvar.remove

bunu kullandığın yerlerde

FINDID.i_vendorumvar.LINK=<SRC.ACT>

şeklinde vendoru linkleyip (burada SRC.ACT olarak belittim ama yerine göre CONT, SRC, ACT, UID veya REFx olabilir.)

sonrasında i_vendorumvar iteminin altnda bu kısmı şöyle değişerek;

On=@Timer

src.sysmessage @026 Pazar Vendorunuz Suresi Bittiginden Dolayi Silinmistir

REF1=<LINK.FINDLAYER.21>

REF1.CONT=<SRC.FINDLAYER(layer_bank)>

remove

return 1

şeklinde bankasına gönderebilirsin, ben burada findlayer.21 yaptım ancak sen itemler hangi çantadaysa o çantanın layerini belirtmek zorundasn.

Hepsini denedim fakat timer suresi dolunca Sphere hata veriyo

21:33:ERRORpazarvendoru.scp,722)Can't resolve <SRC.FINDLAYER(layer_bank)>
21:33:ERRORpazarvendoru.scp,722)Undefined keyword 'REF1.CONT'

Vendorun süresi bitince ne üzerinden ve senin uidin nereye kayıtlı oda önemli. mesela bir taşa tıklayıp kiralama yapıyorsan
şu şekilde değiştir

REF1=<LINK.FINDLAYER.21>

REF1.CONT=<Uid.<Tag.XXX>.FINDLAYER(layer_bankbox)>

XXX olan yere taşta senin uidinin kayıtlı olduğu Tagı yaz
eğer farklı birşey üzerinden siliniyorsa ozaman vendorun silindiği Timer kısmını koyarsan daha rahat yardımcı olurum.

mahsuni :
Hepsini denedim fakat timer suresi dolunca Sphere hata veriyo

21:33:ERRORpazarvendoru.scp,722)Can't resolve <SRC.FINDLAYER(layer_bank)>
21:33:ERRORpazarvendoru.scp,722)Undefined keyword 'REF1.CONT'

Benim hatam kodu böyle değişirsen ve Link'i doğru belirlediysen düzelecektir.

On=@Timer

src.sysmessage @026 Pazar Vendorunuz Suresi Bittiginden Dolayi Silinmistir

REF1=<LINK.FINDLAYER.21>

REF1.CONT=<CONT.FINDLAYER.29>

remove

return 1

Ben Cikamadim işin icinden Full scp bu

[ITEMDEF i_vendor_kira]

ID=i_grave_stone

NAME=Kiralik Dukkan

TYPE=t_script

DESCRIPTION=Kiralik Vendor



ON=@CREATE

COLOR=07a1

ATTR=010

TAG.kiralik=0

TAG.sahip=0





ON=@CLICK

message @1153 <name>

if (<eval <tag.kiralik>> == 1)

message @044,,1 [Kiralanmis]

else

message @38,,1 [Kiralanmamis]

endif

return 1



ON=@DCLICK

IF ( <DISTANCE> > 3 )

SRC.sysmessage @026 Yeterince yakin degilsiniz!

RETURN 1

ENDIF

SRC.ACT=<UID>

IF !(<eval <SRC.ACT.TAG.kiralik>>)

if (<src.findid.i_vendorumvar>)

src.sysmessage @026 Sizin Zaten Vendorunuz Var

return 1

endif

      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.sdialog d_vendor_admin

      RETURN 1

   ELSE

   SRC.sysmessage @026 Bu dukkan ve vendor kiralanmis.

   RETURN 1

   ENDIF

ENDIF

RETURN 1



ON=@TIMER

LINK.REMOVE

LINK=04fffffff

TAG.kiralik=0

TAG.sahip=0

COLOR=07a1

RETURN 1



[DIALOG d_vendor_intro]

100, 100

PAGE 0

resizepic 81 93 8500 305 126

resizepic 91 103 3000 285 106

dhtmlgump 150 103 200 20 0 0 <serv.servname> Vendor Kiralama 

dhtmlgump 145 134 200 20 0 0 <def.bfont_black>Kiralamak icin <def.bfont_red>60k <def.bfont_black>gereklidir.

button 107 169 2151 2152 1 0 1

dhtmlgump 146 175 200 20 0 0 <def.bfont_red>Bir haftaligina vendor kirala.



[DIALOG d_vendor_intro TEXT]







[DIALOG d_vendor_intro BUTTON]

on=0

src.tag.dist

on=1

IF (<uid.<src.tag.dist>.DISTANCE> > 3 )

SRC.sysmessage @026 Yeterince yakin degilsiniz!

elseIF (<EVAL <SRC.TAG.LEVEL>> < 65)

SRC.SYSM K,<SRC.LEVELREQMSG 65>

else

if (<src.tag.exp> >= 90000)

	src.tag.dist

	VAR.SIGN=<SRC.ACT>

	SRC.ACT.TAG.kiralik=1

	SRC.ACT.COLOR=0810

	SRC.ACT.TAG.sahip=<SRC.UID>

	SRC.ACT.TIMER=60*60*24*7

	src.tag.exp -=90000 

	VAR.SIGN=<SRC.ACT>

	src.newnpc c_player_v

	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>

	src.act.update

	src.update

	src.act.fix

	src.fix

	update

	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=<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

        src.newitem i_vendorumvar

        src.act.equip

        src.act.timer=60*60*24*7

	src.act.update

	src.update

	src.act.fix

	src.fix

	update

ELSE

SRC.sysmessage @026 Kiralamak icin Hesabinizda 90k Tix bulunmuyor

src.tag.dist

ENDIF

endif

return 1



[chardef c_player_v]

defname c_player_v

name #NAMES_HUMANMALE

id c_man

can mt_equip|mt_nonmover

hiredaywage 52

desires i_gold



tspeech pv_spch

tevents e_pv



On=@Create

invul 1

str 9500

dex 25

int 25

update

fix

color colors_skin

speechcolor 0481

food 990

npc 1

TAMING=200.1



itemnewbie i_Robe

color 066d

attr 04

item i_torch_lit

morey -1

itemnewbie i_backpack

itemnewbie i_bankbox

color 0384

timer 900

attr 014

itemnewbie i_pv



// *********

// DIALOGLAR

// *********



[dialog d_vendor_admin]

100,100

page 0 

noclose

resizepic 100 100 8500 370 200

resizepic 110 110 3000 350 180



dhtmlgump 200 120 300 20 0 0 <def.bfont_red><serv.servname> Vendor Menüsü

dhtmlgump 165 145 500 20 0 0 Bir hafta daha kirala : <def.bfont_red>Kalan sure : <eval <VAR.LEASE>> saat

dhtmlgump 165 185 200 20 0 0 Vendoru terket

dhtmlgump 165 225 200 20 0 0 Banka Ac

button 130 140 2151 2152 1 0 1

button 130 180 2151 2152 1 0 2

button 130 220 2151 2152 1 0 3

button 330 260 2151 2152 1 0 0

dhtmlgump 365 265 200 20 0 0 Kapat



[dialog d_vendor_admin button]



on=0

src.sysmessage @07a1 Vendor menu kapatildi



on=1

IF (<src.tag.exp> >= 90000)

    SRC.tag.exp -=90000

    SRC.UPDATE

    SRC.TAG.vendtimer <SRC.ACT.TIMER> 

    SRC.ACT.TIMER= <eval <SRC.ACT.TIMER>> + 604800

    src.act.link.message @90 Calisma suremi 1 hafta daha uzattiniz. Tesekkurler.

    src.findid.i_vendorumvar.timer <eval <src.findid.i_vendorumvar.timer>> + 604800

ELSE

    src.sysmessage @026 Bir hafta daha calismam icin yeterli paraniz yok!(90.000Tix)

ENDIF



on=2

SRC.ACT.TIMER 1

FINDID.i_vendorumvar.remove



on=3

SRC.BANKSELF



[dialog d_pv_cash]

300,300



resizepic 0 0 8500 200 75

resizepic 10 10 3000 180 55

resizepic 20 20 3000 160 35

textentry 35 30 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 !(<memoryfindtype.memory_ipet>)

	src.sysmessage @026 Sistem hatasi.

	return 1

endif

if !(<isnum <argtxt[1]>>)

	src.sysmessage @026 Hatali karakter kullanimi.

	return 1

endif

if (<eval <ARGTXT[1]>>>5000000)

src.sysmessage @026 Bir seferde 5.000.000 gp den fazla cekemezsiniz

return 1

endif



if (<eval <argtxt[1]>> <= 0)

elseif (<eval <argtxt[1]>> > <eval <findlayer(29).more1>>)

	sayua 38f,6,6,0 Bu miktar kasamda bulunmuyor.

elseif (<eval (<findlayer(29).more1> - <argtxt[1]>)> < 2500)

	sayua 38f,6,6,0 Bu miktari veremeyecegim, kasamda en az 2500 Exp kalmali.

elseif (<eval <argtxt[1]>> >= 65000)

	vend_collect <eval <argtxt[1]>>

	sayua 038f,6,6,0 Tix bankaniza aktarildi.

else

	findlayer(29).more1 <eval (<findlayer(29).more1> - <argtxt[1]>)>

	src.newitem i_tix_coin

	src.act.amount <eval <argtxt[1]>>

	src.act.cont <src.findlayer(29).uid>

	sayua 038f,6,6,0 <argtxt[1]> Tix bankaniza aktarildi.

endif



[dialog d_pv_buy]

300,300



resizepic 0 0 8500 270 115

resizepic 10 10 3000 250 95

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_buy text]

<name>, fiyati: <eval <tag.price>> altin. Bunu satin almak istediginize emin misiniz?



[dialog d_pv_buy button]

On=1

IF !(<src.tag0.pvyitani> == <topobj.uid>)

src.sysmessage @026 Bu Item Vendorun Cantasinda Degil

return 1

endif

if (strmatch('<tag.price>',''))

	src.sysmessage @026 Bu esya satilik degil.



elseif (<eval <tag.price>> <= 0)

	src.sysmessage @026 Bu esya satilik degil.

elseif (<SRC.TAG0.EXP> >= <tag.price>)

	SRC.TAG0.EXP -= <eval <tag.price>>

	topobj.findlayer(29).more1 (<topobj.findlayer(29).more1> + <eval <tag.price>>)

	cont <src.findlayer(21).uid>

	tag.price

	update

	if ((<baseid> == i_spellbook) || (<baseid> == i_runebook) ||  (<baseid> == i_check) )

		attr <attr>|attr_newbie

	endif

else

	topobj.sayua 38f,6,6,0 Yetersiz Bakiye Lütfen Bakiyenizi Kontrol Edin.

endif



[dialog d_pv_dismiss]

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_dismiss text]

DIKKAT! Tezgahtarinizda <findlayer(21).rescount> adet esya ve <eval <findlayer(29).more1>> altin bulunuyor, onu deed haline getirmek istediginize emin misiniz?



[dialog d_pv_dismiss button]

On=1

if (<findid.i_pv_rem.timer> < 0)

	if (<findid.i_pv_rem.more2> == 1)

		sayu Sizinle calismak guzeldi.

		bow

		findid.i_pv_rem.timer 3

		src.newitem i_deed_pv

		src.act.bounce

	elseif (<findid.i_pv_rem.more2> == 2)

		sayu Nasil isterseniz.

		salute

		findid.i_pv_rem.timer 3

		src.newitem i_deed_pv

		src.act.cont <memoryfindtype.memory_ipet.link.findlayer(21).uid>

	endif

endif



// ******

// SPEECH

// ******



[dialog d_vendor_bilgi]

100,100

page 0



resizepic 100 100 8500 500 200

resizepic 110 110 3000 480 180



dhtmlgump 280 130 200 20 0 0 <serv.servname> Vendor Help

dhtmlgump 130 150 500 130 0 0 * Durum : <def.bfont_red>Vendor Taşına Cif Tıklayarak Öğrenebilirsiniz<def.br><def.bfont_black>* Hasilat : <def.bfont_red>Vendorunuzun satıştan kazandığı paralari alabilirsiniz<def.br><def.bfont_black>* Giydir : <def.bfont_red>Vendoru Kendiniz Gibi Giydirin<def.br><def.bfont_black>* Fiyat : <def.bfont_red>Vendorda Satilacak İtemlerin Fiyatini Belirler (Örnk: Fiyat 20000)<def.br><def.bfont_black>* Buy,Satın Al : <def.bfont_red>Vendordan İtem Almak İcin Kullanilir

dhtmlgump 430 270 200 20 0 0 <def.bfont_red> Sepultura, 2017



[speech pv_spch]

On=bilgi

On=yardim

src.sdialog d_vendor_bilgi

src.sysmessage @026 Kullanabileceginiz komutlar: hasilat, fiyat, alisveris

return 1



On=durum*

src.sysmessage @026 Stoneye Cift Tıklayarak Vendorun Süresini Öğrenebilirsiniz

return 1



On=kasa*

src.sysmessage @026 Kapalidir.

return 1



On=hasilat*

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

if (strmatch('<args>','HASILA ?'))

sayua 038f,6,6,0 Kasamdaki Exp banka hesabiniza aktarmakta kullanacaginiz komuttur. Kasamdaki son 2500 Exp aktarmaniz mumkun degildir.

else

if (<eval <findlayer(29).more1>> < 2501)

sayua 038f,6,6,0 Kasamda 2500 veya daha az Exp var, bu durumda size nakit veremem.

else

dialog d_pv_cash

endif

endif

endif

return 1



on=giydir*

//if (<src.uid> == <tag.owner>)

//FOR 24

//IF (<local._for>!=9) && (<local._for>!=11) && (<local._for>!=15) && (<local._for>!=18) && (<local._for>!=21)

//IF (<SRC.FINDLAYER.<EVAL <LOCAL._FOR>>.DISPID>!=i_magerobe_short)

//TRY FINDLAYER.<EVAL <LOCAL._FOR>>.REMOVE

//IF (<SRC.FINDLAYER.<EVAL <LOCAL._FOR>>>)

//SERV.NEWITEM=<SRC.FINDLAYER.<EVAL <LOCAL._FOR>>.DISPID>

//NEW.COLOR=<SRC.FINDLAYER.<EVAL <LOCAL._FOR>>.COLOR>

//NEW.NAME=<SRC.FINDLAYER.<EVAL <LOCAL._FOR>>.NAME>

//NEW.CONT=<UID>

//ENDIF

//ENDIF

//ENDIF

//ENDFOR

//color=<src.color>

//oskin=<src.oskin>

///endif

src.sysmessage @026 Gecici bir sure kapatilmistir

return 1



On=fiyat *

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

if (strmatch('<args>','FIYAT ?'))

sayu Cantama yerlestirdiginiz esyalari fiyatlandirmakta kullanacaginiz komuttur. Kullanilisi, X'in yerine bir sayi gelecek bicimde 'Fiyat X' seklindedir.

sayu Satilamaz ibareli esyalari asla fiyatlandiramazsiniz. Satilik haldeki bir esyayi 'satilik degil' hale getirmek icin 0 fiyat vermeniz gereklidir.

else

if !(<findlayer(21).findcont(0)>)

sayua 38f,6,6,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 038f,6,6,0 Satilacak esyalari buraya koyabilirsiniz.

pack

elseif !(<findlayer(21).findcont(0)>)

sayua 038f,6,6,0 Su an satilik malim yok, lutfen daha sonra tekrar geliniz.

else

pack

endif

else

src.sysmessage @026 Vendor'a ulasamiyorsunuz.

endif

return 1



On=buy

On=satin al

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

sayua 038f,6,6,0 Isverenim oldugunuz icin istediginizi alabilirsiniz, para vermenize gerek yok.

elseif !(<findlayer(21).findcont(0)>)

sayua 38f,6,6,0 Su an satilik malim yok uzgunum.

elseif (<isgm>)

sayua 38f,6,6,0 Benden birsey satin alamazsiniz.

else

findid.i_pv.more1 2

findid.i_pv.target

endif

return 1



On=*

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=[url=u-death-9220.html]@death[/url]

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 @026 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 @1153,,1 <memoryfindtype.memory_ipet.link.name>

return 1



On=@DClick

src.events +e_vendclick

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 @026 Su anki durumuzda bu islemi gerceklestiremezsiniz.

elseif ((<canseelos>) && (<distance> < 4))

face

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

sayua 038f,6,6,0 Satilacak esyalari buraya koyabilirsiniz.

pack

elseif !(<findlayer(21).findcont(0)>)

sayua 38f,6,6,0 Su an satilik malim yok, lutfen daha sonra tekrar geliniz.

else

pack

endif

else

src.sysmessage @026 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>



// *********************

// ALTINSAL FONKSIYONLAR

// *********************



[function fiyat]

if (<eval <argn>> > 10000000)

sayua 38f,6,6,0 Tek bir mali 10 m Tix 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_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



[function evl]



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

return <valstr 0<args>>



[events e_vendclick]

On=@ItemDClick

if (<targ.topobj.id> == c_player_v)

if (<targ.type> == t_container)

targ.open

endif

return 1

endif



On=@itemclick

if (<act.topobj.id> == c_player_v)

if (0<act.tag.price> < 1)

act.message @33,,1 [Satılık Degil]

src.sysmessage @33,,1 [Satılık 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 @38,,1 [<eval <act.tag.price>> Exp] [% <eval (100 - ((<act.more1l> * 100) / <act.more1h>))> eski]

src.sysmessage @38,,1 [<eval <act.tag.price>> Exp] [% <eval (100 - ((<act.more1l> * 100) / <act.more1h>))> eski]

else

act.message @55,,1 [<eval <act.tag.price>> Exp] [yeni]

src.sysmessage @55,,1 [<eval <act.tag.price>> Exp] [yeni]

endif

else

act.message @55,,1 [<eval <act.tag.price>> Exp]

src.sysmessage @55,,1 [<eval <act.tag.price>> Exp]

endif

endif

endif





On=@ItemPickUp_Pack 

if !(0<act.value> == 0) 

if !(0<act.tag.price>) 

return 0 

endif 

if (<act.topobj.id> == c_player_v) 

if !(<uid> == <act.topobj.tag.owner>) 

return 1 

endif 

elseif !(strmatch('<act.tag.price>','')) 

act.tag.price

endif 

endif 



On=@ItemTargOn_Item

if ((<targ.topobj.id> == c_player_v) && (<act.cont.uid> != <targ.topobj.uid>))

return 1

endif





[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 38f,6,6,0 <src.name>, siz benim isverenim degilsiniz.

	elseif !(<src.targ.topobj.uid> == <cont.uid>)

		cont.sayua 38f,6,6,0 Bu esya cantamda degil.

	elseif (<eval <more2>> <= 0)

		src.targ.tag.price 0

		cont.sayua 38f,6,6,0 <src.targ.name>: 'satilik degil' olarak isaretlendi.

                

	else

		src.targ.tag.price <eval <more2>>

		more2 0

		cont.sayua 038f,6,6,0  <src.targ.name>: <eval <src.targ.tag.price>> altin.



	endif

elseif (<more1> == 2) // satis

	if !(<src.targ.topobj.uid> == <cont.uid>)

		cont.sayua 38f,6,6,0 Bu esya cantamda degil.

	elseif (<eval <src.targ.tag.price>> <= 0)

		cont.sayua 38f,6,6,0 Bu esya satilik degil.

	elseif (<SRC.TAG0.EXP> < <src.targ.tag.price>)

		cont.sayua 38f,6,6,0  Hesabinizda <eval <src.targ.tag.price>> Exp bulunmuyor.

	else

                src.tag0.pvyitani = <src.targ.topobj.uid>

                src.targ.sdialog d_pv_buy

	endif

elseif (<more1> == 3) // para aktarma

	if !(<src.uid> == <cont.tag.owner>)

		cont.sayua 38f,6,6,0 <src.name>, siz benim isverenim degilsiniz.

	elseif !(<src.targ.topobj.uid> == <src.uid>)

		cont.sayua 38f,6,6,0 Gosterdiginiz nesne sizin uzerinizde degil.

	elseif !(<src.targ.baseid> == i_gold)

		cont.sayua 38f,6,6,0 Bu gosterdiginiz altin degil.

	else

		cont.findlayer(29).more1 <eval (<cont.findlayer(29).more1> + <src.targ.amount>)>

		if (<eval (<src.targ.amount> / <cont.hiredaywage>)> > 0)

			cont.sayua 038f,6,6,0 <src.targ.amount> altin calisma suremi <eval (<src.targ.amount> / <cont.hiredaywage>)> gun uzatti, tesekkur ederim.

		else

			cont.sayua 038f,6,6,0 <src.targ.amount> altin kasama eklendi, tesekkur ederim.

		endif

		src.targ.remove

	endif

endif

return 1



On=@Timer

return 1



[itemdef i_vendorumvar]

id i_memory

name Vendorum var

type t_eq_script





On=@create

attr=attr_decay

timer 5



On=@equip

return 1





On=@Timer

cont.sysmessage @026 Pazar Vendorunuz Suresi Bittiginden Dolayi Silinmistir

remove

return 1

Bide Vendor nerde cikarsa orda Kaliyor Tasin 1 kare onunde durmasini nasil saglicam

Itemdef I_Vendor_Kira bölümünün altındaki On=@Timer'i bu şekilde değiştir dostum

ON=@TIMER

REF1=<LINK.FINDLAYER.21>

REF1.CONT=<Uid.<Tag.Sahip>.Findlayer(Layer_BankBox)>

LINK.REMOVE

LINK=04fffffff

TAG.kiralik=0

TAG.sahip=0

COLOR=07a1

RETURN 1

Vendorun konumuna gelicek olursak
src.act.p <p> olan kısmı <p> değilde taşın kordinatlarına göre ayarlayabilirsin 1 kare önünde arkasında gibi