Save Alınca Npc degişiyor - Script Yardımı - UO-Dev

paris16 - 06-05-2018 00:31 GMT -
tamm nereyi ve nasıl yapmalıyım nereyi silmeliyim

Kod:

[itemdef i_sc]
id i_scroll_blank
name Resurrector Scroll

on=@create
color 07a1

on=@click
message @07a1,,1 <amount> <name>
return 1

on=@dclick
if !(<topobj.uid> == <src.uid>)
src.sysmessage @38,6,1 Hata Bunu ancak Cantanizda kullana bilirsiniz.
return 1
else
src.sdialog d_kuluckaa
target @044,,1 Hangi hayvana hayat vereceksiniz.
return 1
endif

on=@targon_item
if (<src.targ.distance> > 2)
src.hata Binegin Cesedine uzaksiniz.
return 1
endif

if !(<src.targ.link> == 04fffffff)
src.hata Bu bir insan cesedi.
return 1
endif

if !(<src.restest <src.tag0.gerek> i_sc>)
src.hata Yetersiz scroll.
return 1
elseif (<src.targ.type> == t_Shire)
src.targ.remove
src.tag0.gerek 50
src.newnpc c_shire
src.sayu Wis An Corp
src.effect 3,i_fx_sparkle,6,10
src.sfx 01f7
serv.allclients sysmessage @0785,1,1 [Binek Res Haber]: <src.name> Basariyla Olmus Olan <argo.name> Reslemeyi Basardi...
new.color <src.targ.color>
new.p <src.targ.p>
olartikamg
return 1
endif

if !(<src.restest <src.tag0.gerek> i_sc>)
src.hata Yetersiz scroll.
return 1
elseif (<src.targ.type> == t_zostrich)
src.targ.remove
src.tag0.gerek 3
src.newnpc c_ostard_zostrich
new.sayu * Zostrich hayata döner *
src.sayu <src.name> Binek'i Basariyla Resledi...
serv.allclients sysmessage @0785,1,1 [Binek Res Haber]<src.name> Basarıyla Yatmis <argo.name> Reslemeyi Basardi...
new.color <src.targ.color>
new.p <src.targ.p>
olartikamg
return 1
endif

if !(<src.restest <src.tag0.gerek> i_sc>)
src.hata Yetersiz scroll.
return 1
elseif (<src.targ.type> == t_desert)
src.targ.remove
src.tag0.gerek 2
src.newnpc c_ostard_desert
new.sayu * Desert Ostard hayata döner *
src.sayu <src.name> Binek'i Basariyla Resledi...
serv.allclients sysmessage @0785,1,1 [Binek Res Haber]<src.name> Basarıyla Yatmis <argo.name> Reslemeyi Basardi...
new.color <src.targ.color>
new.p <src.targ.p>
olartikamg
return 1
endif

if !(<src.restest <src.tag0.gerek> i_sc>)
src.hata Yetersiz scroll.
return 1
elseif (<src.targ.type> == t_forest)
src.targ.remove
src.tag0.gerek 4
src.newnpc c_ostard_forest
new.sayu * Forest Ostard hayata döner *
src.sayu <src.name> Binek'i Basariyla Resledi...
serv.allclients sysmessage @0785,1,1 [Binek Res Haber]<src.name> Basarıyla Yatmis <argo.name> Reslemeyi Basardi...
new.color <src.targ.color>
new.p <src.targ.p>
olartikamg
return 1
endif

if !(<src.restest <src.tag0.gerek> i_sc>)
src.hata Yetersiz scroll.
return 1
elseif (<src.targ.type> == t_fantom)
src.targ.remove
src.tag0.gerek 160
src.newnpc c_Fantom
src.sayu Wis An Corp
src.effect 3,i_fx_sparkle,6,10
src.sfx 01f7
serv.allclients sysmessage @0785,1,1 [Binek Res Haber]: <src.name> Basariyla Olmus Olan <argo.name> Reslemeyi Basardi...
new.color <src.targ.color>
new.p <src.targ.p>
olartikamg
return 1
endif

if !(<src.restest <src.tag0.gerek> i_sc>)
src.hata Yetersiz scroll.
return 1
elseif (<src.targ.type> == t_Friesian)
src.targ.remove
src.tag0.gerek 70
src.newnpc c_a_Friesian
src.sayu Wis An Corp
src.effect 3,i_fx_sparkle,6,10
src.sfx 01f7
serv.allclients sysmessage @0785,1,1 [Binek Res Haber]: <src.name> Basariyla Olmus Olan <argo.name> Reslemeyi Basardi...
new.color <src.targ.color>
new.p <src.targ.p>
olartikamg
return 1
endif

if !(<src.restest <src.tag0.gerek> i_sc>)
src.hata Yetersiz scroll.
return 1
elseif (<src.targ.type> == t_mare)
src.targ.remove
src.tag0.gerek 150
src.newnpc c_mare
src.sayu Wis An Corp
src.effect 3,i_fx_sparkle,6,10
src.sfx 01f7
serv.allclients sysmessage @0785,1,1 [Binek Res Haber]: <src.name> Basariyla Olmus Olan <argo.name> Reslemeyi Basardi...
new.color <src.targ.color>
new.p <src.targ.p>
olartikamg
return 1
endif

if !(<src.restest <src.tag0.gerek> i_sc>)
src.hata Yetersiz scroll.
return 1
elseif (<src.targ.type> == t_mustang_rare)
src.targ.remove
src.tag0.gerek 50
src.newnpc c_mustang_rare
src.sayu Wis An Corp
src.effect 3,i_fx_sparkle,6,10
src.sfx 01f7
serv.allclients sysmessage @0785,1,1 [Binek Res Haber]: <src.name> Basariyla Olmus Olan <argo.name> Reslemeyi Basardi...
new.color <src.targ.color>
new.p <src.targ.p>
olartikamg
return 1
endif

if !(<src.restest <src.tag0.gerek> i_sc>)
src.hata Yetersiz scroll.
return 1
elseif (<src.targ.type> == t_a_desert)
src.targ.remove
src.tag0.gerek 55
src.newnpc c_arcane_desert
new.sayu * Shire hayata döner *
src.sayu Wis An Corp
src.effect 3,i_fx_sparkle,6,10
src.sfx 01f7
serv.allclients sysmessage @0785,1,1 [Binek Res Haber]: <src.name> Basariyla Olmus Olan <argo.name> Reslemeyi Basardi...
new.color <src.targ.color>
new.p <src.targ.p>
olartikamg
return 1
endif

if !(<src.restest <src.tag0.gerek> i_sc>)
src.hata Yetersiz scroll.
return 1
elseif (<src.targ.type> == t_asasin)
src.targ.remove
src.tag0.gerek 45
src.newnpc c_asasin
src.sayu Wis An Corp
src.effect 3,i_fx_sparkle,6,10
src.sfx 01f7
serv.allclients sysmessage @0785,1,1 [Binek Res Haber]: <src.name> Basariyla Olmus Olan <argo.name> Reslemeyi Basardi...
new.color <src.targ.color>
new.p <src.targ.p>
olartikamg
return 1
endif

if !(<src.restest <src.tag0.gerek> i_sc>)
src.hata Yetersiz scroll.
return 1
//elseif (<src.targ.type> == t_fear)
src.targ.remove
src.tag0.gerek 70
src.newnpc c_fear
new.sayu * Fear Mustang hayata döner *
src.sayu <src.name> Binek'i Basariyla Resledi...
serv.allclients sysmessage @0785,1,1 [Binek Res Haber]<src.name> Basarıyla Yatmis <argo.name> Reslemeyi Basardi...
new.color <src.targ.color>
new.p <src.targ.p>
olartikamg
return 1
endif

if !(<src.restest <src.tag0.gerek> i_sc>)
src.hata Yetersiz scroll.
return 1
elseif (<src.targ.type> == t_poison)
src.targ.remove
src.tag0.gerek 200
src.newnpc c_m_poison
src.sayu Wis An Corp
src.effect 3,i_fx_sparkle,6,10
src.sfx 01f7
serv.allclients sysmessage @0785,1,1 [Binek Res Haber]: <src.name> Basariyla Olmus Olan <argo.name> Reslemeyi Basardi...
new.color <src.targ.color>
new.p <src.targ.p>
olartikamg
return 1
endif

if !(<src.restest <src.tag0.gerek> i_sc>)
src.hata Yetersiz scroll.
return 1
elseif (<src.targ.type> == t_fire)
src.targ.remove
src.tag0.gerek 220
src.newnpc c_fire
src.sayu Wis An Corp
src.effect 3,i_fx_sparkle,6,10
src.sfx 01f7
serv.allclients sysmessage @0785,1,1 [Binek Res Haber]: <src.name> Basariyla Olmus Olan <argo.name> Reslemeyi Basardi...
new.color <src.targ.color>
new.p <src.targ.p>
olartikamg
return 1
endif

if !(<src.restest <src.tag0.gerek> i_sc>)
src.hata Yetersiz scroll.
return 1
elseif (<src.targ.type> == t_unicorn)
src.targ.remove
src.tag0.gerek 120
src.newnpc c_unicorn
src.sayu Wis An Corp
src.effect 3,i_fx_sparkle,6,10
src.sfx 01f7
serv.allclients sysmessage @0785,1,1 [Binek Res Haber]: <src.name> Basariyla Olmus Olan <argo.name> Reslemeyi Basardi...
new.color <src.targ.color>
new.p <src.targ.p>
olartikamg
return 1
endif

if !(<src.restest <src.tag0.gerek> i_sc>)
src.hata Yetersiz scroll.
return 1
elseif (<src.targ.type> == t_fire)
src.targ.remove
src.tag0.gerek 50
src.newnpc c_steed_fire
src.sayu Wis An Corp
src.effect 3,i_fx_sparkle,6,10
src.sfx 01f7
serv.allclients sysmessage @0785,1,1 [Binek Res Haber]: <src.name> Basariyla Olmus Olan <argo.name> Reslemeyi Basardi...
new.color <src.targ.color>
new.p <src.targ.p>
olartikamg
return 1
endif

if !(<src.restest <src.tag0.gerek> i_sc>)
src.hata Yetersiz scroll.
return 1
elseif (<src.targ.type> == t_silver)
src.targ.remove
src.tag0.gerek 80
src.newnpc c_m_silver
src.sayu Wis An Corp
src.effect 3,i_fx_sparkle,6,10
src.sfx 01f7
serv.allclients sysmessage @0785,1,1 [Binek Res Haber]: <src.name> Basariyla Olmus Olan <argo.name> Reslemeyi Basardi...
new.color <src.targ.color>
new.p <src.targ.p>
olartikamg
return 1
endif

if !(<src.restest <src.tag0.gerek> i_sc>)
src.hata Yetersiz scroll.
return 1
elseif (<src.targ.type> == t_kirin)
src.targ.remove
src.tag0.gerek 100
src.newnpc c_m_kirin
src.sayu Wis An Corp
src.effect 3,i_fx_sparkle,6,10
src.sfx 01f7
serv.allclients sysmessage @0785,1,1 [Binek Res Haber]: <src.name> Basariyla Olmus Olan <argo.name> Reslemeyi Basardi...
new.color <src.targ.color>
new.p <src.targ.p>
olartikamg
return 1
endif

if !(<src.restest <src.tag0.gerek> i_sc>)
src.hata Yetersiz scroll.
return 1
elseif (<src.targ.type> == t_axta)
src.targ.remove
src.tag0.gerek 45
src.newnpc c_axta
new.sayu * Axta hayata döner *
src.sayu <src.name> Binek'i Basariyla Resledi...
serv.allclients sysmessage @0785,1,1 [Binek Res Haber]<src.name> Basarıyla Yatmis <argo.name> Reslemeyi Basardi...
new.color <src.targ.color>
new.p <src.targ.p>
olartikamg
return 1
endif

on=@targon_groud
return 1

on=@targon_char
return 1

[function hata]
sysmessage @38,,1 <args>

[function olartikamg]
src.act.newitem i_memory
src.act.act.attr 04
src.act.act.more1 04
src.act.act.more2 <serv.time>
src.act.act.morep <src.act.p>
src.act.act.color memory_ipet
src.act.act.timer -1
src.act.act.link <src.uid>
src.act.act.cont <src.act.uid>
src.act.flags <src.act.flags>&statf_pet
src.act.anim 6
src.consume <src.tag0.gerek> i_sc

//////////////////////////////////////////////////////////////////////

[dialog d_kuluckaa]

100, 100
PAGE 0
nomove

resizepic 15 0 3600 300 500 // Ana background
//resizepic 10 10 3000 300 260

dtext 60 10 68 -Binek Res Scroll sistemi-

dtext 75 50 1153 +
dtext 125 50 1153 = 50 Res Scroll
tilepichue 85 50 <serv.itemdef.i_scroll_blank.id> 1153
tilepichue 22 50 <serv.itemdef.i_pet_horse_brown_lt.id> 2118

dtext 75 85 1153 +
dtext 125 85 1153 = 50 Res Scroll
tilepichue 85 85 <serv.itemdef.i_scroll_blank.id> 1153
tilepichue 22 85 <serv.itemdef.i_pet_horse_brown_dk.id> 2219

dtext 75 120 1153 +
dtext 125 120 1153 = 70 Res Scroll
tilepichue 85 120 <serv.itemdef.i_scroll_blank.id> 1153
tilepichue 22 120 <serv.itemdef.i_pet_horse_brown_dk.id> 1109

dtext 75 150 1153 +
dtext 125 150 1153 = 80 Res Scroll
tilepichue 85 150 <serv.itemdef.i_scroll_blank.id> 1153
tilepichue 22 150 <serv.itemdef.i_pet_horse_brown_lt.id> 1154

dtext 75 180 1153 +
dtext 125 180 1153 = 100 Res Scroll
tilepichue 85 180 <serv.itemdef.i_scroll_blank.id> 1153
tilepichue 22 180 <serv.itemdef.i_pet_horse_brown_lt.id> 43

dtext 75 220 1153 +
dtext 125 220 1153 = 120 Res Scroll
tilepichue 85 220 <serv.itemdef.i_scroll_blank.id> 1153
tilepichue 22 220 <serv.itemdef.i_pet_horse_brown_dk.id> 1153

dtext 75 260 1153 +
dtext 125 260 1153 = 150 Res Scroll
tilepichue 85 260 <serv.itemdef.i_scroll_blank.id> 1153
tilepichue 22 260 <serv.itemdef.i_pet_horse_brown_dk.id> 1104

dtext 75 300 1153 +
dtext 125 300 1153 = 160 Res Scroll
tilepichue 85 300 <serv.itemdef.i_scroll_blank.id> 1153
tilepichue 22 300 <serv.itemdef.i_pet_horse_brown_lt.id> <eval 080a>

dtext 75 340 1153 +
dtext 125 340 1153 = 200 Res Scroll
tilepichue 85 340 <serv.itemdef.i_scroll_blank.id> 1153
tilepichue 22 340 <serv.itemdef.i_pet_horse_brown_lt.id> <eval 07c5>

dtext 75 380 1153 +
dtext 125 380 1153 = 220 Res Scroll
tilepichue 85 380 <serv.itemdef.i_scroll_blank.id> 1153
tilepichue 22 380 <serv.itemdef.i_pet_horse_brown_dk.id> <eval 0823>

else

////////////////////////////// types

[typedef t_mare]

[typedef t_desert]

[typedef t_forest]

[typedef t_zostrich]

[typedef t_fantom]

[typedef t_poison]

[typedef t_fire]

[typedef t_Shire]

[typedef t_asasin]

[typedef t_asd]

[typedef t_Friesian]

[typedef t_mustang_rare]

[typedef t_a_llama]

[typedef t_a_desert]

[typedef t_fly]

[typedef t_unicorn]

[typedef t_fire]

[typedef t_silver]

[typedef t_kirin]

[typedef t_axta]

[EOF]

xrambo - 06-05-2018 16:11 GMT -
Birde şu şekilde dene düzenledim denendi çalışıyor.
morex kısımlarını tek tek eklemen gerekiyor her bir kullanılan binek için. (shire,mustang,mare olarak örneği var)

Kullanım :
bineği öldür cesete .info at
morep kısmına bak orada 26476,0,4 gibi bir değer olacaktır. 26476 shire in değeri(belki sende farklı olabilir).
50 adet res scroll ile ölen bineğe tıklıyoruz.
Ve resleniyor problem ?

Kod:

Eğer f_makepetof fonksiyonunda hata alırsan boş bir yere bunu da ekle. (reslenince tame olayından kurtarıyor)

Kod:

[FUNCTION F_MakePetOf]
SERV.NEWITEM=I_MEMORY
NEW.COLOR=MEMORY_IPET
NEW.MORE1=04
NEW.MORE2=<SERV.TIME>
NEW.MOREP=<P>
NEW.LINK=<ARGS>
new.cont=<uid>

Slothere - 08-05-2018 20:11 GMT -
Type falan uğraşmana hiç lüzum yok. Çok verimli bir sistem değil zaten yazdığın.

Tüm npclerde geçerli bir event'a şu satırları ekle;

Kod:

on=@deathcorpse
if <src.brain> == 1
argo.tag0.uid <src.baseid>
endif

böyle bir eventın yoksa sphere.ini de tüm npclerde geçerli olacak event diye bir kısım var.

// Events related to all NPCs
EventsPet=

Buraya bir event adı gir ve oraya ekle bu kodu.

Daha sonra aşağıda örnek verdiğim deed'i kendine göre revize et. Bu kısmı kurcalama, üstüne ilavelerini, sorgularını yap. Bu kısım hangi binek olduğu fark etmeksizin hepsini cesedinden canlandırır, sahibi olarak seni atar.

Kod:

[itemdef i_animal_resurrector]
id i_deed
type t_normal
name animal ressurretor

on=@dclick
targetf f_animal_resurrect
return 1

[function f_animal_resurrect]
if <argo.tag0.uid>
serv.newnpc <argo.tag0.uid>
if <argo.color>
new.color <argo.color>
endif
new.p <src.targp>
ref1 <new>
argo.remove
serv.newitem i_memory
new.attr=04
new.more1=04
new.more2=<serv.time>
new.morep=<p>
new.color=memory_ipet
new.timer=-1
new.link=<src>
new.cont=<ref1>
ref1.flags |= statf_pet
ref1.equip <new>
ref1.food = <ref1.maxfood>
ref1.flags |= statf_pet
ref1.update
endif

Bineğin kontrolünü sağlarken şu örneklerden yürüyebilirsin;

Kod:

if strmatch(*nightmare*,<argo.tag0.uid>)
if strmatch(*forest*,<argo.tag0.uid>)
if strmatch(*desert*,<argo.tag0.uid>)
if strmatch(*shire*,<argo.tag0.uid>)
if strmatch(*mustang*,<argo.tag0.uid>)
..

// ek: şu an resleyenin olur. eski sahibinin olsun derseniz deathcorpse altına;

Kod:

on=@deathcorpse
if <src.brain> == 1
argo.tag0.uid <src.baseid>
if <src.owner>
argo.tag0.owner <src.owner>
endif
endif

deed kısmındaki şu bölüm de;

new.link=

Kod:

if <argo.tag0.owner>
new.link=<argo.tag0.owner>
else
new.link=<src>
endif

Son güncelleme: Slothere tarafından 08-05-2018 20:37 GMT, 757 Gün önce düzenlendi.

Sayfa Önceki (> 1 < ) Sonraki