Pluton Mesaj tarihi: Haziran 17, 2005 Mesaj tarihi: Haziran 17, 2005 Arkadaşlar paticiğin eski topiclerinden şu scripti buldum: [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 kenzap Mesaj tarihi: Haziran 17, 2005 Mesaj tarihi: Haziran 17, 2005 Taşın yerine vendor gelir ve taş silinirse vendorla ilgili işlemlerini yapmassın çünkü scpde gördüğüm kadarıyla işlemler menü ile yapılıyor para yatırma fln sistemleri değiştirmen gerekir gibime geliyor fakat şöle yaparsın: ON=@DCLICK IF ( > 2 ) Burda 2 yerine 1 yazarsın taşa 1 kare yakın olmadan vendoru almaz taşın sadece ön yüzü açık kalacak şekilde dizayn edersin taşları sadece önüne geçip alabilir.Bir çok serverda bu böledir[signature][hline]? bu işaretin yüzlerce anlamı var . bu işaretin bir tane snapsys Mesaj tarihi: Haziran 17, 2005 Mesaj tarihi: Haziran 17, 2005 tiklarken tag ver kendine pzisyonuna vendorun pozisyonuda senin tagin olsun _[signature][hline]$leyen kod bug tutmaz // cod3r silinmiş charin davasi olmaz Pluton Mesaj tarihi: Haziran 17, 2005 Konuyu açan Mesaj tarihi: Haziran 17, 2005 Kenzap kaç seferdir böle müthiş fikirlerinle scpleri hazırlıyom valal çok saol bunu düşünmedim hiç :D[signature][hline]HåD£§©ik²°°³ I Love =o= snapsys Mesaj tarihi: Haziran 17, 2005 Mesaj tarihi: Haziran 17, 2005 yardimci olamadik :P[signature][hline]$leyen kod bug tutmaz // cod3r silinmiş charin davasi olmaz Pluton Mesaj tarihi: Haziran 17, 2005 Konuyu açan Mesaj tarihi: Haziran 17, 2005 ya seninkide iyi fikir ama şimdi tagları eklerken bir sürü kafa patlatcam ama yinede buna benzer bişiy yazıcam :D[signature][hline]HåD£§©ik²°°³ I Love =o= Paylaş https://forum.paticik.com/topic/1002926-kiralyk-vendor-olayy/ Daha fazla paylaşım seçeneği… Takipçiler 0
kenzap Mesaj tarihi: Haziran 17, 2005 Mesaj tarihi: Haziran 17, 2005 Taşın yerine vendor gelir ve taş silinirse vendorla ilgili işlemlerini yapmassın çünkü scpde gördüğüm kadarıyla işlemler menü ile yapılıyor para yatırma fln sistemleri değiştirmen gerekir gibime geliyor fakat şöle yaparsın: ON=@DCLICK IF ( > 2 ) Burda 2 yerine 1 yazarsın taşa 1 kare yakın olmadan vendoru almaz taşın sadece ön yüzü açık kalacak şekilde dizayn edersin taşları sadece önüne geçip alabilir.Bir çok serverda bu böledir[signature][hline]? bu işaretin yüzlerce anlamı var . bu işaretin bir tane
snapsys Mesaj tarihi: Haziran 17, 2005 Mesaj tarihi: Haziran 17, 2005 tiklarken tag ver kendine pzisyonuna vendorun pozisyonuda senin tagin olsun _[signature][hline]$leyen kod bug tutmaz // cod3r silinmiş charin davasi olmaz
Pluton Mesaj tarihi: Haziran 17, 2005 Konuyu açan Mesaj tarihi: Haziran 17, 2005 Kenzap kaç seferdir böle müthiş fikirlerinle scpleri hazırlıyom valal çok saol bunu düşünmedim hiç :D[signature][hline]HåD£§©ik²°°³ I Love =o=
snapsys Mesaj tarihi: Haziran 17, 2005 Mesaj tarihi: Haziran 17, 2005 yardimci olamadik :P[signature][hline]$leyen kod bug tutmaz // cod3r silinmiş charin davasi olmaz
Pluton Mesaj tarihi: Haziran 17, 2005 Konuyu açan Mesaj tarihi: Haziran 17, 2005 ya seninkide iyi fikir ama şimdi tagları eklerken bir sürü kafa patlatcam ama yinede buna benzer bişiy yazıcam :D[signature][hline]HåD£§©ik²°°³ I Love =o=
Öne çıkan mesajlar