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

Pazar alani vendorlari

Ephoryum

Son yazan: Ephoryum
yeri: UO Scriptsharing

 Paylaş

Öne çıkan mesajlar

pozitiff Contributor

pozitiff

Mesaj tarihi:
Mesaj tarihi:
[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, tesekkur ederim.
else
cont.sayu altin kasama eklendi, tesekkur ederim.
endif
src.targ.remove
endif
endif

Link to comment
Sosyal ağlarda paylaş
Ephoryum Rookie

Ephoryum

Mesaj tarihi:
  • Konuyu açan
Mesaj tarihi:
pozitif iki sorun var scp te den anlasam yapicam ama sey birincisi vendoru aldiktan sonra tekrar tasa tikladimda bu cendor kiralanmis diyor o banka menusu felan cikmiyor ikincisi vendora koydum itemlere fiyat yazamiyorum. Sen kralini yazarim demissin kiralini yazsanda bize onu versen bu cok sorunlu gibi gozukuyor :D tabi sana buyuk bir zahmet olmassa
Link to comment
Sosyal ağlarda paylaş
Spider Rookie

Spider

Mesaj tarihi:
Mesaj tarihi:
Taşa Yaklaşma Olayını Ayarladım. Ama Vendoru Kiralayan Kişi Uzatma Banka Filan Olan Menüyü Açamıyor.
SRC.SYSMESSAGE @38 Bu dukkan ve vendor kiralanmis. İşte böyle Diyor :) Bunu Nası Yapacagım Yaff Başkada Bir Sorun Bulamadım Zaten. :)

[Bu mesaj Spider tarafından 12 Şubat 2005 01:21 tarihinde değiştirilmiştir]
Link to comment
Sosyal ağlarda paylaş
muratgurel Rookie

muratgurel

Mesaj tarihi:
Mesaj tarihi:
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 (==||(/ / Bu kısım
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

i_vendor_kira da böle bi yer var orda bi yerde if li bi kısım var hatta oraya bu kısım yazdım orayı

IF (==) || ()

bu şekilde yapın düzelir
Link to comment
Sosyal ağlarda paylaş
Ephoryum Rookie

Ephoryum

Mesaj tarihi:
  • Konuyu açan
Mesaj tarihi:
ahaha çözdüm scp yi ben İF (vs idi ya gittim yukardan kopya aldim İF in basina İF !( yaptim oldu ehehe simdi bir fiyat olayi kaldi bunu nasil yapiaz :D aha İF in basina bunu ! koydum ya fiyat ta yazabiliyorum artik HEPİNİZE VE TUM PATİCİGE TSK EDERİM SAOLUN :) :)

[Bu mesaj Ephoryum tarafından 12 Şubat 2005 04:13 tarihinde değiştirilmiştir]
Link to comment
Sosyal ağlarda paylaş
muratgurel Rookie

muratgurel

Mesaj tarihi:
Mesaj tarihi:
said:
Ephoryum, 12 Şubat 2005 04:12 tarihinde demiş ki:
ahaha çözdüm scp yi ben İF (vs idi ya gittim yukardan kopya aldim İF in basina İF !( yaptim oldu


Pardon tam okumamisim if in basina ! koyma o zaman herkes acar koymadan yap bende oldu ve sorunsuz kaldir o ünlemi

[Bu mesaj muratgurel tarafından 12 Şubat 2005 04:53 tarihinde değiştirilmiştir]

[Bu mesaj muratgurel tarafından 12 Şubat 2005 04:56 tarihinde değiştirilmiştir]
Link to comment
Sosyal ağlarda paylaş
 Paylaş
Konu listesine dön
×
×
  • Yeni Oluştur...