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

Teotta Yeni Ve Cok Kisa Bir Fix

Nomore

Son yazan: Nomore
yeri: UO Scriptsharing

 Paylaş

Öne çıkan mesajlar

Nomore Newbie

Nomore

Mesaj tarihi:
Mesaj tarihi:
On=buy
f_set_item
f_set_value
sdialog d_vendor

Kullanmanız için sürümünüzün en az 55r402 olması gerekli. Satılacak eşyaları temp_vend.scp den ayarlayabilirsiniz.

Kullanım şekli:
vendor speechlerine eklenicek kod:

Aranizda Bu Olayi Bilen varmi ? yada annayan
Link to comment
Sosyal ağlarda paylaş
Coder Rising Star

Coder

Mesaj tarihi:
Mesaj tarihi:
f_set_item
f_set_value
sdialog d_vendor

bu functionları yazarsan bi fikir yürütebilirim[signature][hline] Coder
Çözümün bir parcasi degilsen, sorunun bir parcasisindir.

-Aynalar yalancıdır bu şehrin dört yanında ayna var
-Gel biz şehrin havasına uymayalım ayrılmayalım
-Ayrılmayalım bebeğim aynalar kandırdı beni!
Link to comment
Sosyal ağlarda paylaş
Nomore Newbie

Nomore

Mesaj tarihi:
  • Konuyu açan
Mesaj tarihi:
said:
Coder, 02 Eylül 2005 13:25 tarihinde demiş ki:
f_set_item
f_set_value
sdialog d_vendor

bu functionları yazarsan bi fikir yürütebilirim


hasan abı bende annamadıgım ıcın sorudm ama benım sphere versiyon aynısı adam fıxlemıs harbıden fıxmıs bu ama cozemedım olayı msn geldı ama uo yuı bıraktıgını bırakırkende toetun bukadar kolay fıxlendıgını oretıp gıdıyorum dedı ve gıttı :)

ama fıx gercektende fıx :(

Cozebılen varsa yardım etsın
Link to comment
Sosyal ağlarda paylaş
Coder Rising Star

Coder

Mesaj tarihi:
Mesaj tarihi:
abisi orada o functionlar olması lazım tamam buy dediğinde function çağırıyorda function nerede tanımlı ne iş yapar ?

o functionları bulman lazım[signature][hline] Coder
Çözümün bir parcasi degilsen, sorunun bir parcasisindir.

-Aynalar yalancıdır bu şehrin dört yanında ayna var
-Gel biz şehrin havasına uymayalım ayrılmayalım
-Ayrılmayalım bebeğim aynalar kandırdı beni!
Link to comment
Sosyal ağlarda paylaş
Nomore Newbie

Nomore

Mesaj tarihi:
  • Konuyu açan
Mesaj tarihi:
said:
Nomore, 02 Eylül 2005 13:41 tarihinde demiş ki:
Sanırım Bu Sıstem Yanındakı Para Ile alma oLuyo annamadım Gıttı Hasan abı :



Tamam Scriptin Tamamını ala bıldım SImdı acıklarmısınız Tekrar

function bankconsume]
var.gp
if (> > 65000)
act
act.layer layer_pack
act.type t_container
act.equip
consume 65000 i_gold
act.layer layer_bankbox
act.type t_eq_bank_box
act.equip
var.gp -= 65000
bankconsume >
else
act
act.layer layer_pack
act.type t_container
act.equip
consume > i_gold
act.layer layer_bankbox
act.type t_eq_bank_box
act.equip
endif
update

[function f_set_item]
obj=
for 1 40
if (>>==>).uid>)
return 1
elseif !(>>)
try obj.tag.item> >).uid>
endif
endfor

[function f_set_value]
obj=
for 1 40
try uid.>>.sellvalue
endfor

[function sellvalue]
tag.sellvalue= + (( / 100) * 15)>

[DIALOG d_vendor]
-20,-10
resizepic 45 30 5054 620 490

page 0
text 100 70 38 0 // cins
text 370 70 38 1 // mikatr
dtext 450 70 38 Stok // stoq
text 530 70 38 2 // fiyat

text 525 430 1152 85
button 590 430 4005 4006 1 0 1

page 1
text 100 100 1152 3
text 530 100 1152 44
tilepic 50 100 .id>>
resizepic 368 95 2620 60 30
textentry 375 100 50 16 1152 0 43
dtext 450 100 1152 .amount> adet

text 100 140 1152 4
text 530 140 1152 45
tilepic 50 140 .id>>
resizepic 368 135 2620 60 30
textentry 375 140 50 16 1152 1 43
dtext 450 140 1152 .amount> adet

text 100 180 1152 5
text 530 180 1152 46
tilepic 50 180 .id>>
resizepic 368 175 2620 60 30
textentry 375 180 50 16 1152 2 43
dtext 450 180 1152 .amount> adet

text 100 220 1152 6
text 530 220 1152 47
tilepic 50 220 .id>>
resizepic 368 215 2620 60 30
textentry 375 220 50 16 1152 3 43
dtext 450 220 1152 .amount> adet

text 100 260 1152 7
text 530 260 1152 48
tilepic 50 260 .id>>
resizepic 368 255 2620 60 30
textentry 375 260 50 16 1152 4 43
dtext 450 260 1152 .amount> adet

text 100 300 1152 8
text 530 300 1152 49
tilepic 50 300 .id>>
resizepic 368 295 2620 60 30
textentry 375 300 50 16 1152 5 43
dtext 450 300 1152 .amount> adet

text 100 340 1152 9
text 530 340 1152 50
tilepic 50 340 .id>>
resizepic 368 335 2620 60 30
textentry 375 340 50 16 1152 6 43
dtext 450 340 1152 .amount> adet

text 100 380 1152 10
text 530 380 1152 51
tilepic 50 380 .id>>
resizepic 368 375 2620 60 30
textentry 375 380 50 16 1152 7 43
dtext 450 380 1152 .amount> adet

text 70 430 38 84
text 485 460 1152 86
button 590 460 4005 4006 0 2 0

PAGE 2
text 100 100 1152 11
text 530 100 1152 52
tilepic 50 100 .id>>
resizepic 368 95 2620 60 30
textentry 375 100 50 16 1152 8 43
dtext 450 100 1152 .amount> adet

text 100 140 1152 12
text 530 140 1152 53
tilepic 50 140 .id>>
resizepic 368 135 2620 60 30
textentry 375 140 50 16 1152 9 43
dtext 450 140 1152 .amount> adet

text 100 180 1152 13
text 530 180 1152 54
tilepic 50 180 .id>>
resizepic 368 175 2620 60 30
textentry 375 180 50 16 1152 10 43
dtext 450 180 1152 .amount> adet

text 100 220 1152 14
text 530 220 1152 55
tilepic 50 220 .id>>
resizepic 368 215 2620 60 30
textentry 375 220 50 16 1152 11 43
dtext 450 220 1152 .amount> adet

text 100 260 1152 15
text 530 260 1152 56
tilepic 50 260 .id>>
resizepic 368 255 2620 60 30
textentry 375 260 50 16 1152 12 43
dtext 450 260 1152 .amount> adet

text 100 300 1152 16
text 530 300 1152 57
tilepic 50 300 .id>>
resizepic 368 295 2620 60 30
textentry 375 300 50 16 1152 13 43
dtext 450 300 1152 .amount> adet

text 100 340 1152 17
text 530 340 1152 58
tilepic 50 340 .id>>
resizepic 368 335 2620 60 30
textentry 375 340 50 16 1152 14 43
dt
Link to comment
Sosyal ağlarda paylaş
Coder Rising Star

Coder

Mesaj tarihi:
Mesaj tarihi:
bu sistem patlar abisi orada cont sınırı var 40 a kadar 40 dan fazla cont olursa adam yine dupe yapar[signature][hline] Coder
Çözümün bir parcasi degilsen, sorunun bir parcasisindir.

-Aynalar yalancıdır bu şehrin dört yanında ayna var
-Gel biz şehrin havasına uymayalım ayrılmayalım
-Ayrılmayalım bebeğim aynalar kandırdı beni!
Link to comment
Sosyal ağlarda paylaş
  • 3 ay sonra ...
Yeager Enthusiast

Yeager

Mesaj tarihi:
Mesaj tarihi:
[spo1=Teot' a karşı buy menüsü]// BUY SELL DIALOGLARI
// 09 agus 2005
// create by galentos

// 29-11-2005-------------
// fixed: "" karakteriyle bedava item satin alma.
// --------------------------
VERSION R4.0.2

// Konsolda can_i_pile sorunu alan kişiler spheredefs.scp nin içine

[DEFNAME can_i_flags]

	CAN_I_DOOR 00001 // Is a door UFLAG4_DOOR

	CAN_I_WATER 00002 // Need to swim in it. UFLAG1_WATER

	CAN_I_PLATFORM 00004 // we can walk on top of it. (even tho the item itself might block) UFLAG2_PLATFORM

	CAN_I_BLOCK 00008 // need to walk thru walls or fly over. UFLAG1_BLOCK

	CAN_I_CLIMB 00010 // step up on it, UFLAG2_CLIMBABLE

	CAN_I_FIRE 00020 // Is a fire. Ussually blocks as well. UFLAG1_DAMAGE

	CAN_I_ROOF 00040 // We are under a roof. can't rain on us. UFLAG4_ROOF

	

	CAN_I_PILE 00100 // Can item be piled UFLAG2_STACKABLE (*.mul)

	CAN_I_DYE 00200 // Can item be dyed UFLAG3_CLOTH? (sort of)

	CAN_I_FLIP 00400 // will flip by default.

	CAN_I_LIGHT 00800 // UFLAG3_LIGHT

	CAN_I_REPAIR 01000 // Is it repairable (difficulty based on value)

	CAN_I_REPLICATE 02000 // Things like arrows are pretty much all the same.


// eklemeleri gerekmektedir.

[function f_gosterim]
tilepic 70
dtext 110 55
dtext 310 33
dtext 395 995
resizepic 460 3000 60 20
dtextentry 470 55 25 270 0

[function f_buying]
if (&can_i_pile)
serv.newitem
new.amount
src.bounce
obj.amount -=
if ( == 1)
src.consume i_gold *>
else
src.gpconsume *>
endif
else
for
serv.newitem
new.cont
obj.amount -= 1
if ( == 1)
src.consume i_gold
else
try src.gpconsume
endif
endfor
src.sysmessage You put the in your pack.
endif
src.tag.satis += *>

[function f_tutar]
if (> != 0)
say Sayin , alis/veris tutariniz >gp' dir. Tekrar beklerim.
endif
src.tag.satis

[function isvcheck]
if !(>)
return 0
elif strmatch(>,0)
return 0
elif (> > 1000)
return 0
elif (strlen() > 3)
return 0
elif ( == 0)
return 0
else
return 1
endif

[dialog d_buying]
60 0

page 0
resizepic 50 10 3600 510 460
dtext 140 10 95 Esya Fiyat Stock Miktar

button 210 420 5031 5031 1 0 2 // sat
dtext 230 417 63 Esya sat

button 320 420 5031 5031 1 0 1 // satin al
dtext 328 417 033 Esya satin al

if ( > 18)
page 1
for 0 17
obj=>>
f_gosterim +1)*20)+10> >
endfor
button 500 420 4006 4007 0 2 102
dtext 460 420 995 Ileri
page 2
for 18 -1>
obj=>>
f_gosterim -17)*20)+10> >
endfor
button 70 420 4015 4016 0 1 101
dtext 110 420 995 Geri
else
page 1
for 0 -1>
obj=>>
if ()
f_gosterim +1)*20)+10> >
endif
endfor
endif

[dialog d_buying button]
on=0 2
if ( == 1)
if ( < 3) && ()
src.tag.satis 0
for 0 -1>
act >]>>
if (>>)
obj=>>
if ( >= >)
if (>* i_gold>)
call f_buying 1 >
elseif ( >= *>)
call f_buying 2 >
else
f_tutar
src.sysmessage icin yeterli para uzerinizde ve bankanizda bulunmuyor.
return 1
endif
else
f_tutar
src.sysmessage Belirttiginiz miktarda stokta kalmamis.
return 1
endif
endif
endfor
f_tutar
else
src.sysmessage Vendora ulasamiyorsunuz.
endif
elseif ( == 2)
if ( < 3) && ()
hear sell
endif
endif
src.tag.satis
return 1

[EOF][/spo]

Galentos' un hazırlamış olduğu menü kullanımı daha kolay gibi.
Link to comment
Sosyal ağlarda paylaş
Kortez Contributor

Kortez

Mesaj tarihi:
Mesaj tarihi:
Ya 1-2 aydır Kardeşim sayılan bir kaç kişi var. Uzun Zamandır kendi serverlarının olmasını istiyorlar. Doğal olarak yaş ortalamaları 15-18 olduğu için onların hic bisey yapmasına gerek kalmayan bir server yapıp acıp verıcem sonra go army :)
3 sene gecti zaten sonra coluk cocukla gideriz:P[signature][hline]fantastic.phpbb3.net
Link to comment
Sosyal ağlarda paylaş
 Paylaş
Konu listesine dön
×
  • Yeni Oluştur...