on=@deathcorpse
argo.type t_shire

[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]

[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
target
src.sysmessage @044,,1 Hangi hayvana hayat vereceksiniz.
return 1
endif

on=@targon_item
if (<src.targ.distance> >= 4)
src.sysmessage @07a1,,1 Binegin Cesedine uzaksiniz.
return 1
endif

if !( <src.targ.type> == t_corpse )
src.sysmessage @07a1,,1 Yalnizca cesetler uzerinde kullanilir.
return 1
endif

if !( <src.restest 50 i_sc>)
src.sysmessage @07a1,,1 Binek reslemek icin cantanizda en az 50 adet scroll olmali.
return 1
endif

if (<src.targ.morex> = 26476 ) //shire
src.consume 50 i_sc  //gereken kagit miktari
serv.newnpc c_shire  // hangi binegi istiyorsan.
new.color <src.targ.color>  // hedef rengi
new.p <src.targ.p> // binegin cikacagi hedef
new.f_makepetof <src> //sahibine gider.
update  // yeni cikan npc fix
argo.remove  // ceset silinmesi
src.sayu Binegi resler...
serv.allclients sysmessage @0785,1,1 [Binek Res Haber] <src.name> Basarıyla Yatmis <argo.name> Reslemeyi Basardi...
endif

if (<src.targ.morex> = 25959 ) //mustang
src.consume 50 i_sc
serv.newnpc c_mustang
new.color <src.targ.color>
new.p <src.targ.p>
new.f_makepetof <src>
update
argo.remove
src.sayu Binegi resler...
serv.allclients sysmessage @0785,1,1 [Binek Res Haber] <src.name> Basarıyla Yatmis <argo.name> Reslemeyi Basardi...
endif

if (<src.targ.morex> = 26541 ) //Mare
src.consume 50 i_sc
serv.newnpc c_nightmare
new.color <src.targ.color>
new.p <src.targ.p>
new.f_makepetof <src>
update
argo.remove
src.sayu Binegi resler...
serv.allclients sysmessage @0785,1,1 [Binek Res Haber] <src.name> Basarıyla Yatmis <argo.name> Reslemeyi Basardi...
endif

[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>

on=@deathcorpse
argo.type t_shire

[typedef t_Shire]
morex 26476//shire

on=@deathcorpse
argo.type t_shire
argo.morex 26476

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

[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

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>)
..

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