Jump to content
Forumu Destekleyenlere Katılın ×
Paticik Forumları
2000 lerden beri faal olan, çok şukela bir paylaşım platformuyuz. Hoşgeldiniz.

Vendor Stone...


-Horus-

Öne çıkan mesajlar

nasıl bir insansınız siz öyle ya bir kaç topic aşşağılara bakmak çokmu zor?
sayfada şu anda vendor hakkında 2 3 topic içlerinden birine baksan olmazmı?
illa ayağınamı getirecez?
ciddi anlamda söylüyorum lütfen bu işlerle uğraşmayın.[signature][hline]Andolsunki onu yapan ve yaptıran için de Ahirette Cennetten bir nasip olmadığını biliyorlardı.
neden bu düzen böyle,neden herkes sahte?

Link to comment
Sosyal ağlarda paylaş

Arama ?baksaydin sevinirdim 2 gun once yazildi bende yazayim bari scripti...

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

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

ON=@CLICK
message
if (> == 1)
message [Kiralanmis]
else
message [Kiralanmamis]
endif
return 1

ON=@DCLICK
IF ( > 2 )
SRC.sysMESSAGE Yeterince yakin deilsiniz!
RETURN 1
ENDIF
SRC.ACT=
IF !(>)
SRC.DIALOG d_vendor_intro
src.tag.dist
RETURN 1
ELSE
IF (==)||()
VAR.LEASE=/60>
VAR.LEASE=/60>
SRC.MENU m_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=789
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 60k Gereklidir.
Bir haftaligina vendor kirala.


[DIALOG d_vendor_intro BUTTON]
on=0
src.tag.dist
on=1
IF (.DISTANCE> > 2 )
SRC.sysMESSAGE Yeterince yakin deilsiniz!
else
if ()
src.tag.dist
VAR.SIGN=
SRC.ACT.TAG.kiralik=1
SRC.ACT.COLOR=141
SRC.ACT.TAG.sahip=
SRC.ACT.TIMER=60*60*24*7
src.consume 60000 i_gold
VAR.SIGN=
src.newnpc c_pv
src.act.p


src.act.tag.p


src.act.tag.px
src.act.tag.py
src.act.tag.pz
src.act.tag.owner
VAR.VEND=
src.act.findlayer(29).more1 2500
SRC.ACT.TAG.sahip=
SRC.ACT=
SRC.ACT.LINK=
src.act.memorydel
SRC.ACT=
src.act.newitem i_memory
SRC.act.ACT.LINK=
src.act.act.attr 04
src.act.act.more1 04
src.act.act.more2
src.act.act.morep
src.act.act.color memory_ipet
src.act.act.timer -1
src.act.act.link
src.act.act.cont
SRC.ACT.act.CONT=
src.act.flags &statf_pet
src.tag.vendor
SRC.ACT=
src.act.update
ELSE
SRC.SYSMESSAGE @48 Kiralamak icin 60k cantanizda olmali.
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_gold

tspeech pv_spch
tevents e_pv
//tevents vendorfix
tevents e_pvduvar

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

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

On=@TargOn_Char
if ( == )
cont.findlayer(21).open
target
endif
return 1

On=@TargOn_Item
if ( == 1) // dinamik fiyatlandirma
if !( == )
cont.sayu , siz benim isverenim degilsiniz.
elseif !( == )
cont.sayu Bu esya cantamda degil.
elseif (strmatch('',''))
cont.sayu Bu satilabilecek bir esya degil.
elseif (> <= 0)
src.targ.price 0
cont.sayu : 'satilik degil' olarak isaretlendi.
else
src.targ.price >
more2 0
cont.sayu : altin.
endif
elseif ( == 2) // satis
if !( == )
cont.sayu Bu esya cantamda degil.
elseif (strmatch('',''))
cont.sayu Bu esya satilik degil.
elseif ( <= 0)
cont.sayu Bu esya satilik degil.
elseif ( < )
cont.sayu Bankanizin en ust kisminda altininiz bulunmuyor.
else
src.targ.dialog d_pv_buy
endif
elseif ( == 3) // para aktarma
if !( == )
cont.sayu , siz benim isverenim degilsiniz.
elseif !( == )
cont.sayu Gosterdiginiz nesne sizin uzerinizde degil.
elseif !( == i_gold)
cont.sayu Bu gosterdiginiz altin degil.
else
cont.findlayer(29).more1 + )>
if ( / )> > 0)
cont.sayu altin calisma suremi / )> gun uzatti, tese

Link to comment
Sosyal ağlarda paylaş

al simgeler gitti[signature][hline]Eğer herkes dost sandığı kimselerin birde kendi arkasından söylemiş olduklarını duysaydı, dünyada dost kalmazdı
Hiç kimse başarı merdivenlerini elleri cebinde tırmanmamıştır./S. Keth Moorhead
Sahip olmadigi seylere üzülmeyen ve sahip olduklarina sevinen, akilli bir insandir.../Epictetos
Yerinde söz söylemesini bilen, özür dilemek zorunda kalmaz.../F. Sultan Mehmet
Yasami seviyor musun? Öyleyse zamani harcama, çünkü yasamin yapildigi madde zamandir./Benjamin Franklin
Küçük şeylere gereğinden çok önem verenler, elinden büyük iş gelmeyenlerdir./Eflatun
Hiçbir düs onu olagan kilan yasamdan daha güzel olamaz./Elazar Benyoetz
Acinmaktansa kiskanilmak daha iyidir./Heredot
Düsman isterseniz, dostlarinizi geçmeye çalisiniz. Dost isterseniz, birakin, dostlariniz sizi geçsin./La Rochefoucauld
Yaşamadıklarını Yaşatmak İsteyenler Başarılı Olamazlar.
Ermeydanında yenenin anlından öpesim gelir, Arkadan çelme takanın yüzünü tüküresim gelir./Bayram Tunca
Link to comment
Sosyal ağlarda paylaş

×
×
  • Yeni Oluştur...