Verdoarlarda item arama - UO-Developer.COM

Anduo

Neophyte UO-Dev Üyesi

Skill Title: Neophyte

Toplam Mesaj: 15

Oyun Tarzı: Rp

Emulatör: Sphere

Tecrübe: Diğer

Favori Server: UO RPG

Beğeni: 2 / 0

Scritp Burdan aldım ama bi sorun oldu mesela animal deed binek koyuyorum vendora arama yaparken mesela llama diye arıyorum bulmuyor amimal diye aradıgımda llama ibaresi gecmiyor yardımcı olurmusunuz.

[Defname VendorSistemAyalari]

VendorKomutum "c_pv_semih"

VSistemKesinti "5"



[DIALOG UrunArama]

250,150

NoMove

Page 0

makecan 10,10,320,150

//Resizepic 0 0 83 320 150

//Resizepic 7 10 5120 307 130

//Checkertrans 7 10 307 130

DText 40 30 1152 Hangi ürünün en uygununu arıyorsunuz ?

Resizepic 70 50 3500 170 40

DTextentrylimited 90 60 145 20 1152 1 20

DText 155 100 1152 Ürünü Ara

Button 120 100 4024 4025 1 0 1



[DIALOG UrunArama Button]

On=1

IF ((Strlen(<ArgTxt[1]>)) < 3)

Src.Sysmessage @38,,1 Arama yapabilmeniz için en az 3 karakter kullanmalısınız.

Return 1

Endif

IF !(STRRegex(^[a-zA-Z0-9 ']+$,<Argtxt[1]>))

Src.Sysmessage @38,,1 Geçersiz arama yaptınız.

Return 1

Endif

Src.CTag0.AradigimUrun <ArgTxt[1]>

Src.SDialog FirsatUrunleri



[DIALOG FirsatUrunleri]

100,120

NoMove

Page 0

makecan 10,45,520,330

//Resizepic 0 45 83 520 330

//Resizepic 7 55 5120 507 310

//Checkertrans 7 55 507 310

Page 1

Local.FirsatUrunleri = 0

Forinstances <Def.VendorKomutum>

ForCont <Findlayer.21>

IF (<Price> > 0) && (StrMatch(*<Src.CTag0.AradigimUrun>*,'<Name>'))

Local.FirsatUrunleri<dLocal.FirsatUrunleri> <UID>

Local.FirsatUrunleri ++

EndIF

EndFor

EndFor

For a 0 <Eval <Local.FirsatUrunleri>-1>

For b 0 <Eval <Local.FirsatUrunleri>-1>

Local.1 = <UID.<Local.FirsatUrunleri<dLocal.a>>.Price>

Local.2 = <UID.<Local.FirsatUrunleri<dLocal.b>>.Price>

IF <dLocal.1> < <dLocal.2>

Local.t = <Local.FirsatUrunleri<dLocal.b>>

Local.FirsatUrunleri<dLocal.b> = <Local.FirsatUrunleri<dLocal.a>>

Local.FirsatUrunleri<dLocal.a> = <Local.t>

EndIF

EndFor

EndFor

IF (<DLocal.FirsatUrunleri>)

//Resizepic 32 60 9300 60 20

Resizepic 110 60 3000 80 20

Resizepic 230 60 3000 80 20

Resizepic 370 60 3000 80 20

//DHtmlGump 30 60 60 25 0 0 <Def.Center><Def.BFont_dGreen> DETAY

DHtmlGump 115 60 70 25 0 0 <Def.Center><Def.BFont_dGreen>Eşya

DHtmlGump 235 60 70 25 0 0 <Def.Center><Def.BFont_dGreen>Fiyatı

DHtmlGump 375 60 70 25 0 0 <Def.Center><Def.BFont_dGreen>Satan kişi

Else

DText 80 190 38 Aradığınız isimde bir eşyanın vendor satışı bulunmamaktadır.

Endif

For 0 9

IF <Local.FirsatUrunleri<dLocal._For>>

Ref1 = <Local.FirsatUrunleri<dLocal._For>>

Resizepic 65 <Eval (<Local._For>*25)+90> 3000 135 20

Resizepic 200 <Eval (<Local._For>*25)+90> 3000 120 20

Resizepic 320 <Eval (<Local._For>*25)+90> 3000 170 20

DHtmlGump 70 <Eval (<Local._For>*25)+90> 125 20 0 0 <Def.BFont_DGreen><Ref1.Name>

DHtmlGump 205 <Eval (<Local._For>*25)+90> 105 20 0 0 <Def.BFont_Black><BolukAyir <Ref1.Price>>gp

DHtmlGump 325 <Eval (<Local._For>*25)+90> 105 20 0 0 <Def.BFont_Red><Ref1.TopObj.MemoryFindType.Memory_IPet.Link.Name>

Button 37 <Eval (<Local._For>*25)+92> 2224 2224 1 0 <Eval <Local._For>+29051453>

EndIF

EndFOR

Page 53

Ref2=<Local.FirsatUrunleri<Src.DCTag0.BaktigimUrun>>

Src.CTag.BaktigimUrun1 <UID.<Ref2>>

Button 30 330 9706 9707 0 1 26081071

DText 50 327 38 Geri

DText 190 80 38 Vendor Ürün İnceleme

DText 160 300 38 Satıcıya Git

Button 120 300 4005 4006 1 0 18091048

DText 310 300 38 Ürünü Satın Al

Button 270 300 4023 4024 1 0 10111444

IF (<Def.VSistemKesinti>)

DHtmlGump 0 270 520 25 0 0 <Def.Center><Def.BFont_LRed>Bu sistemden yapılan tüm alışverişlerde + % <Eval <Def.VSistemKesinti>> kesinti uygulanmaktadır.

DHtmlGump 270 330 130 25 0 0 <Def.BFont_Size3><Def.BFont_LRed><Def.Center>( <BolukAyir <Eval <Ref2.Price> + <Eval <Eval <Ref2.Price> * <Def.VSistemKesinti>> / 100>>>gp )

Endif

IF (<IsWeapon <UID.<Ref2>.BaseID>>) || (<IsArmor <UID.<Ref2>.BaseID>>) || (<UID.<Ref2>.Amount> > 1) || (<UID.<Ref2>.Type> == T_Figurine)

Resizepic 35 120 9300 215 20

Resizepic 35 150 9300 215 20

Resizepic 35 180 9300 215 20

Resizepic 35 210 9300 215 20

Resizepic 35 240 9300 215 20

Else

Resizepic 145 120 9300 215 20

Resizepic 145 150 9300 215 20

Resizepic 145 180 9300 215 20

Resizepic 145 210 9300 215 20

Resizepic 145 240 9300 215 20

Endif

IF (<IsWeapon <UID.<Ref2>.BaseID>>) || (<IsArmor <UID.<Ref2>.BaseID>>) || (<UID.<Ref2>.Amount> > 1) || (<UID.<Ref2>.Type> == T_Figurine)

Resizepic 265 120 9300 215 20

Resizepic 265 150 9300 215 20

IF !(<UID.<Ref2>.Amount> > 1)

Resizepic 265 180 9300 215 20

Resizepic 265 210 9300 215 20

Resizepic 265 240 9300 215 20

Endif

Endif

IF (<IsWeapon <UID.<Ref2>.BaseID>>) || (<IsArmor <UID.<Ref2>.BaseID>>) || (<UID.<Ref2>.Amount> > 1) || (<UID.<Ref2>.Type> == T_Figurine)  // T_Figurine == Animal Deed

DHtmlGump 40 120 210 25 0 0 <Def.BFont_DGreen>Satıcı Kişi : <Def.BFont_dblue><UID.<Ref2>.TopObj.MemoryFindType.Memory_IPet.Link.Name>

DHtmlGump 40 150 210 25 0 0 <Def.BFont_DGreen>Ürün Adı  : <Def.BFont_dblue><UID.<Ref2>.Name>

DHtmlGump 40 180 210 25 0 0 <Def.BFont_DGreen>Ürün Fiyat : <Def.BFont_dblue><BolukAyir <UID.<Ref2>.Price>> gp

DHtmlGump 40 210 210 25 0 0 <Def.BFont_DGreen>Vendor Kordinat : <Def.BFont_dblue><UID.<Ref2>.TopObj.P>

DHtmlGump 40 240 210 25 0 0 <Def.BFont_DGreen>Konum : <Def.BFont_dblue><UID.<Ref2>.TopObj.Region.Name>

Else

DHtmlGump 150 120 210 25 0 0 <Def.BFont_DGreen>Satıcı Kişi : <Def.BFont_dblue><UID.<Ref2>.TopObj.MemoryFindType.Memory_IPet.Link.Name>

DHtmlGump 150 150 210 25 0 0 <Def.BFont_DGreen>Ürün Adı  : <Def.BFont_dblue><UID.<Ref2>.Name>

DHtmlGump 150 180 210 25 0 0 <Def.BFont_DGreen>Ürün Fiyat : <Def.BFont_dblue><BolukAyir <UID.<Ref2>.Price>> gp

DHtmlGump 150 210 210 25 0 0 <Def.BFont_DGreen>Vendor Kordinat : <Def.BFont_dblue><UID.<Ref2>.TopObj.P>

DHtmlGump 150 240 210 25 0 0 <Def.BFont_DGreen>Konum : <Def.BFont_dblue><UID.<Ref2>.TopObj.Region.Name>

Endif

IF (<IsWeapon <UID.<Ref2>.BaseID>>)

DHtmlGump 270 120 210 25 0 0 <Def.BFont_DGreen>Eskime Durumu : <Def.BFont_dblue>% <Eval 100 - <Eval <UID.<Ref2>.HitPoints> * 100> / <UID.<Ref2>.HitPoints>>

DHtmlGump 270 150 210 25 0 0 <Def.BFont_DGreen>Silahın Kullanım Hızı : <Def.BFont_dblue><UID.<Ref2>.Speed>

DHtmlGump 270 180 210 25 0 0 <Def.BFont_DGreen>Vereceği Hasar Aralığı : <Def.BFont_dblue><UID.<Ref2>.Dam>

DHtmlGump 270 210 210 25 0 0 <Def.BFont_DGreen>Silahın MoreY Değeri : <Def.BFont_dblue><UID.<Ref2>.giveitemmorey>

DHtmlGump 270 240 210 25 0 0 <Def.BFont_DGreen>Silah Üzerinde Zehir : <Def.BFont_dblue><Qval <UID.<Ref2>.MoreZ>?Var:Yok>

Endif

IF (<UID.<Ref2>.Type> == T_Figurine)

DHtmlGump 270 120 210 25 0 0 <Def.BFont_DGreen>STR : <Def.BFont_dblue><UID.<UID.<Ref2>.More2>.Str>

DHtmlGump 270 150 210 25 0 0 <Def.BFont_DGreen>DEX : <Def.BFont_dblue><UID.<UID.<Ref2>.More2>.Dex>

DHtmlGump 270 180 210 25 0 0 <Def.BFont_DGreen>INT : <Def.BFont_dblue><UID.<UID.<Ref2>.More2>.Int>

DHtmlGump 270 210 210 25 0 0 <Def.BFont_DGreen>Karma : <Def.BFont_dblue><UID.<UID.<Ref2>.More2>.Karma>

DHtmlGump 270 240 210 25 0 0 <Def.BFont_DGreen>Fame  : <Def.BFont_dblue><UID.<UID.<Ref2>.More2>.Fame>

Endif

IF (<IsArmor <UID.<Ref2>.BaseID>>) || (<UID.<Ref2>.Type> = T_Clothing)

DHtmlGump 270 120 210 25 0 0 <Def.BFont_DGreen>Eskime Durumu : <Def.BFont_dblue>% <Eval 100 - <Eval <UID.<Ref2>.HitPoints> * 100> / <UID.<Ref2>.HitPoints>>

DHtmlGump 270 150 210 25 0 0 <Def.BFont_DGreen>Brüt Armor : <Def.BFont_dblue><UID.<Ref2>.Armor>

DHtmlGump 270 180 210 25 0 0 <Def.BFont_DGreen>Gereken STR : <Def.BFont_dblue><UID.<Ref2>.ReqStr>

DHtmlGump 270 210 210 25 0 0 <Def.BFont_DGreen>Ağırlık : <Def.BFont_dblue><Eval <UID.<Ref2>.Weight>/10>

DHtmlGump 270 240 210 25 0 0 <Def.BFont_DGreen>Extra Armor Oranı : <Def.BFont_dblue><Qval <UID.<Ref2>.ModAr>?<UID.<Ref2>.ModAr>:Yok>

Endif

IF (<UID.<Ref2>.Amount> > 1)

DHtmlGump 270 120 210 25 0 0 <Def.BFont_DGreen>Ürün Adedi : <Def.BFont_dblue><UID.<Ref2>.Amount> adet

DHtmlGump 270 150 210 25 0 0 <Def.BFont_DGreen>Birim Fiyatı : <Def.BFont_dblue><Eval <UID.<Ref2>.Price> / <UID.<Ref2>.Amount>> gp

Endif



[DIALOG FirsatUrunleri Button]

On=0

Src.CTag0.BaktigimUrun

Src.CTag0.BaktigimUrun1



On=29051453 29051464



Local.Urun <Eval <dArgn> -29051453>

Src.CTag.BaktigimUrun <dLocal.Urun>

SDIALOG FirsatUrunleri,53



On=10111444 // SATIN ALMA BUTONU

src.sys_error Suanda Yapım Asamasında.

return 1

//Ref2=<Src.DCTag0.BaktigimUrun1>

//Local.ToplamPara <Qval <Def.VSistemKesinti>?<Eval <Ref2.Price> + <Eval <Eval <Ref2.Price> * <Def.VSistemKesinti>> / 100>>:<Ref2.Price>>

//IF (<Ref2.Price> <= 0)

//Src.Sysmessage @38,,1 Bu eşya satılık değil.

//SDialog Firsaturunleri

//Return 1

//Endif

//IF !(<Ref2.TopObj.BaseID> = <Def.VendorKomutum>)

//Src.Sysmessage @38,,1 Bu ürün sizden önce alınmış yada vendordan kaldırılmış görünüyor.

//SDialog Firsaturunleri

//Return 1

//Endif

//IF (<Ref2.TopObj.MemoryFindType.Memory_IPet.Link.UID> = <Src.UID>)

//Src.Sysmessage @38,,1 Kendi vendorunuzdan alışveriş yapamazsınız.

//SDialog Firsaturunleri

//Return 1

//Endif

//IF (<Src.Gold> >= <dLocal.ToplamPara>)

//Ref2.TopObj.Say <Src.Name>, vendor satış sistemi üzerinden bir ürünümü aldı.

//Src.Gold -= <dLocal.ToplamPara>

//Ref2.Topobj.Findlayer(29).More1 (<Ref2.Topobj.Findlayer(29).More1> + <Ref2.Price>)

//Ref2.Cont <Src.Findlayer(21).UID>

//Ref2.Price

//Update

//Src.CTag0.BaktigimUrun

//Src.CTag0.BaktigimUrun1

//Else

//Src.Sysmessage @38,,1 Hesabınızda bu ürünü almak için <BolukAyir <dLocal.ToplamPara>> altın bulunmuyor.

//SDialog Firsaturunleri

//Return 1

//Endif



On=18091048

Ref2=<Src.DCTag0.BaktigimUrun1>

Src.Events +VendoruAriyorum

Src.ArrowQuest <Ref2.TopObj.P>

Src.Sysmessage @07a1,,1 Takibi iptal etmek için ok'a sağ tıklayın.

Src.CTag0.BaktigimUrun





[Events VendoruAriyorum]

On=@UserQuestArrowClick

If (<Argn> ==1)

Src.Sysmessage @38,,1 Vendora gitmekten vazgeçtiniz.

Src.ArrowQuest

Src.Events -VendoruAriyorum

Src.CTag0.BaktigimUrun

Src.CTag0.BaktigimUrun1

Return 1

Endif

Return 1



On=@Logout

Src.ArrowQuest

Src.Events -VendoruAriyorum



[CHARDEF C_Vendor_Arama]

ID=C_MAN

NAME=#NAMES_HUMANMALE the Researcher

CAN=MT_NONMOVER

CATEGORY=Monsters

SUBSECTION=Miscellaneous

DESCRIPTION=Researcher



On=@Create

INVUL

COLOR=COLORS_SKIN

NPC=brain_human

FOOD 999

STR={45 55}

DEX={45 55}

INT={45 55}



  ITEMNEWBIE=i_hair_ponytail

    COLOR=0455

  ITEMNEWBIE=random_facial_hair,1,R5

  COLOR=0455

  ITEMNEWBIE=i_robe

COLOR=colors_black

ITEMNEWBIE=i_apron_half

COLOR=0455

ITEMNEWBIE=i_shoes_plain

COLOR=0455



On=@Click

Message @,,1 [Pazar alani]

Message @09A,,1 İtem Arama Npc

Return 1



On=@DClick

IF ( <Distance> < 3 )

Dialog UrunArama

Else

Message @07a1,,1 Arama yapabilmeniz için yaklaşmalısınız.

Return 1

EndIF

Return 1

//theraskol
Scriptleri code tagı içine alınız.
Konuları da uygun kategoriye açınız.
Düzenlenmiştir.

Devamını göster

Son güncelleme: TheRaskol tarafından 03-08-2022 20:19 (4 yıl önce).

www.Sphere.com

4s3d3

Expert UO-Dev Üyesi

Üye bilgileri

Mesaj 373

Oyun tarzı Rp

Emulatör Sphere

Tecrübe Player

Favori Server Arth UO

Beğeni 92 / 49

Skill Title: Expert

Toplam Mesaj: 373

Oyun Tarzı: Rp

Emulatör: Sphere

Tecrübe: Player

Favori Server: Arth UO

Beğeni: 92 / 49

Üye bilgilerini göster
```
(<UID.<Ref2>.Type> == T_Figurine)  // T_Figurine == Animal Deed
```
Bu kodu yanılmıyorsam 56c ya da d ile yazmıştım bundan dolayı T_Figurine aynı görevi gördüğü için animal deed üzerinden binek bilgilerini çekmedim
Script çok vasat olduğu için kullanmanı önermem ama yok ben bunu çok güzel düzenlerim diyorsan

T_Figurine ( <UID.<Ref2>.Type> ) yerine <UID.<REF2>.TAG.XXX> şeklinde kullan animal deed taglama mantığıyla çalışıyor çünkü
Devamını göster
#103676 04-08-2022 17:17 GMT

Anduo

Neophyte UO-Dev Üyesi

Üye bilgileri

Mesaj 15

Oyun tarzı Rp

Emulatör Sphere

Tecrübe Diğer

Favori Server UO RPG

Beğeni 2 / 0

Skill Title: Neophyte

Toplam Mesaj: 15

Oyun Tarzı: Rp

Emulatör: Sphere

Tecrübe: Diğer

Favori Server: UO RPG

Beğeni: 2 / 0

Üye bilgilerini göster
```
IF (<Price> > 0) && (StrMatch(*<Src.CTag0.AradigimUrun>*,'<Name>'))
```
Burdaki princede hata veriyor nasıl kullnamalıyız peki
Devamını göster
Son güncelleme: TheRaskol tarafından 05-08-2022 22:03 (4 yıl önce).

www.Sphere.com
#103677 04-08-2022 17:29 GMT

4s3d3

Expert UO-Dev Üyesi

Üye bilgileri

Mesaj 373

Oyun tarzı Rp

Emulatör Sphere

Tecrübe Player

Favori Server Arth UO

Beğeni 92 / 49

Skill Title: Expert

Toplam Mesaj: 373

Oyun Tarzı: Rp

Emulatör: Sphere

Tecrübe: Player

Favori Server: Arth UO

Beğeni: 92 / 49

Üye bilgilerini göster

Çoğu vendor sistemi tag üzerinden fiyatlama yapar tag.fiyat 1000 gibi fakat price komutuda bu görevi görmek için var ama sphere sürümlerine göre tam randımanlı çalışmıyor yani her ürün fiyatlanamıyor bunun için ekstradan değişiklik yapman gerekiyor fiyatlandıralamayanlarda ama bununla uğraşamam dersen geleneği bozmak yerine en kolay yolu price yerine tag kullanmak
Devamını göster

#103678 04-08-2022 22:33 GMT

BENZER BAŞLIKLAR

Konu	Kategori	Son cevap	Son yazan	Mesaj	Görüntüleme
Çanta içindeki çantaya item aktarma Son cevap: 02-05 22:33 · Son yazan: Karaoglan · Mesaj: 5 · Görüntü: 3205	Script Yardımı	02-05 22:33	Karaoglan	5	3205
Üzerinde item varken ingot seçme Son cevap: 24-01 23:01 · Son yazan: astor · Mesaj: 7 · Görüntü: 3660	ITEM Script Yardımı	24-01 23:01	astor	7	3660
Duvar atan item - Çözüldü Son cevap: 11-05 11:16 · Son yazan: zeezvu · Mesaj: 12 · Görüntü: 5832	ITEM Script Yardımı	11-05 11:16	zeezvu	12	5832
İtem isimleri vs. sorunu Son cevap: 10-04 01:41 · Son yazan: Athynas · Mesaj: 2 · Görüntü: 1945	ITEM Script Yardımı	10-04 01:41	Athynas	2	1945
Yere item atmamak Son cevap: 19-02 14:02 · Son yazan: 4s3d3 · Mesaj: 9 · Görüntü: 3404	Script Yardımı	19-02 14:02	4s3d3	9	3404

Sosyal Ağ ile Giriş Yap

Google ile Bağlan Facebook ile Bağlan Twitch ile Bağlan Discord ile Bağlan

BENZER BAŞLIKLAR

Sosyal Ağ ile Giriş Yap

Çerez Tercihleri