//SCp name:Random Ostard

//Type:animal

//code:c_ostard_random

//script by:SynaX

//U-S icin yaptıgım ilk scp oldugu için biraz önem verdim random cıkıyor bu binekler ve gerçekten güzel bir scp olduguna inanıyorum umarım yararlı olucaktır...



[CHARDEF c_ostard_random]

id=c_ostard_random

NAME=Random Ostard

SOUND=snd_ANIMALS_forest3

ICON=i_pet_ostard_forest

CAN=MT_WALK|MT_RUN

DAM=2, 6

ARMOR=10

RESOURCES=7 i_ribs_raw,2 i_fur_light

FOODTYPE=5 t_crops, 5 t_fruit, 5 t_grain, 5 i_hay, 64 t_grass

DESCRIPTION=Random Ostard

DESIRES=c_horse_brown_lt

SUBSECTION=Land (Domestic)

CATEGORY=animals



on=@click

If (<memoryfindtype(memory_ipet)>)

	message @03b2,,1, [Sahibi: <memoryfindtype(memory_ipet).link.name>]

	message @0901,,1, Random Ostard

endif



if (strmatch('<strsub 0 4 <name>>','bank'))

name BUGCU

return 1

endif



On=@Timer

cont.binek <link.uid>



ON=@Create

timer -1

DORAND 3

	body c_rare_forest

	body c_rare_desert

	body c_rare_zost

ENDDO

DORAND 12

	COLOR=07d4 // ye$il

	COLOR=0846 // kirmizi

	COLOR=084a // mavi

	COLOR=06af // sari

	COLOR=04dc // mor

	COLOR=0840 // kahve

	COLOR=0455 // siyah

	COLOR=0901 // gri

	COLOR=04c3 // pembe

	COLOR=05e3 // cikolata

	COLOR=051b // sky

	COLOR=08ad // skygray

enddo



	NPC=brain_animal

	STR={30 60}

	DEX={45 64}

	INT={20 35}

	PARRYING={45.0 54.0}

	MAGICRESISTANCE={25.0 30.0}

	TACTICS={25.0 34.0}

	WRESTLING={35.0 45.0}

	TAMING=60.1

	animallore=60.1

	FAME=10

	KARMA={-1 -99}

	//ALIGNMENT=NEUTRAL





[CHARDEF c_rare_desert] 

NAME=Desert Ostard

SOUND=snd_ANIMAL_OSTARD_desert1

ID=c_ostard_desert

CAN=MT_WALK|MT_RUN

FOODTYPE=55 t_crops, 55 t_fruit, 55 t_grain, 64 t_grass

ICON=i_pet_OSTARD_Desert



On=@Click

if !(strmatch('<name>','Rare Desert'))

name Rare Desert

endif

if (<memoryfindtype.memory_ipet>) 

message @0484,4,1enu * <memoryfindtype.memory_ipet.link.name> *

message @0879,1,2 [Str:<str> Dex:<dex> Int:<int>]

message @07a0,1,1 <name> [Tame]

return 1

else 

message @07a0,1,1 <name>

message @0879,1,2 [Str:<str> Dex:<dex> Int:<int>]  

return 1

endif 



on=@death

src.serv.allclients sysmessage @0484,4,0 [ <Serv.name> Binek Olum Guncesi ]

src.serv.allclients sysmessage @0bb2,1,1 <name> Isimli Binek <act.name> Tarafindan <region.name> Civarlarinda Olduruldu...

endif



ON=@Create

DORAND 12

	COLOR=07d4 // Green

	COLOR=0846 // Crimson

	COLOR=084a // Blue

	COLOR=06af // Yellow

	COLOR=04dc // Purple

	COLOR=0840 // kahve

	COLOR=0455 // Black

	COLOR=0901 // Gray

	COLOR=04c3 // Pink

	COLOR=05e3 // Chocolate

	COLOR=051b // sky

	COLOR=08ad // skygray

ENDDO



STR={150 150}

DEX={100 100}

INT={6 10}



PARRYING={75.0 85.0}

MAGICRESISTANCE={75.0 80.0}

TACTICS={89.0 89.0}

WRESTLING={89.0 89.0}

TAMING=79.1

ANIMALLORE={75.0 75.0}



FAME=0

KARMA=1000





[CHARDEF c_rare_Forest] 

NAME=Forest Ostard

SOUND=snd_ANIMAL_OSTARD_desert1

ID=c_ostard_forest

CAN=MT_WALK|MT_RUN

FOODTYPE=55 t_crops, 55 t_fruit, 55 t_grain, 64 t_grass

ICON=i_pet_OSTARD_Forest

CATEGORY=New

DESCRIPTION=Forest Renkli

SUBSECTION=Animals



On=@Click

if !(strmatch('<name>','Rare Forest'))

name Rare Forest

endif

if (<memoryfindtype.memory_ipet>) 

message @0484,4,1enu * <memoryfindtype.memory_ipet.link.name> *

message @0879,1,2 [Str:<str> Dex:<dex> Int:<int>]

message @07a0,1,1 <name> [Tame]

return 1

else 

message @07a0,1,1 <name>

message @0879,1,2 [Str:<str> Dex:<dex> Int:<int>]  

return 1

endif 



on=@death

src.serv.allclients sysmessage @0484,4,0 [ <Serv.name> Binek Olum Guncesi ]

src.serv.allclients sysmessage @0bb2,1,1 <name> Isimli Binek <act.name> Tarafindan <region.name> Civarlarinda Olduruldu...

endif



ON=@Create

DORAND 12

	COLOR=07d4 // Green

	COLOR=0846 // Crimson

	COLOR=084a // Blue

	COLOR=06af // Yellow

	COLOR=04dc // Purple

	COLOR=0840 // kahve

	COLOR=0455 // Black

	COLOR=0901 // Gray

	COLOR=04c3 // Pink

	COLOR=05e3 // Chocolate

	COLOR=051b // sky

	COLOR=08ad // skygray

ENDDO



STR={150 150}

DEX={100 100}

INT={6 10}



PARRYING={75.0 85.0}

MAGICRESISTANCE={75.0 80.0}

TACTICS={89.0 89.0}

WRESTLING={89.0 89.0}

TAMING=79.1

ANIMALLORE={75.0 75.0}



FAME=0

KARMA=1000





[CHARDEF c_rare_zost]

NAME=Rare Zostrich

ID=c_ostard_zostrich

SOUND=snd_ANIMAL_OSTARD_FRENZIED1

ICON=i_pet_OSTARD_ZOSTRICH

CAN=MT_WALK|MT_RUN

DAM=5,23

ARMOR=120

RESOURCES=15 i_ribs_raw

FOODTYPE=55 t_crops, 55 t_fruit, 64 t_grass

SHELTER=r_stables

DESIRES=e_OSTARDS

ANIM=01fff

CATEGORY=New

DESCRIPTION=Ice Ostard

SUBSECTION=Animals



On=@Click

if !(strmatch('<name>','Rare Frenzied'))

name Rare Zostrich

endif

if (<memoryfindtype.memory_ipet>) 

message @0484,4,1enu * <memoryfindtype.memory_ipet.link.name> *

message @0879,1,2 [Str:<str> Dex:<dex> Int:<int>]

message @07a0,1,1 <name> [Tame]

return 1

else 

message @07a0,1,1 <name>

message @0879,1,2 [Str:<str> Dex:<dex> Int:<int>]  

return 1

endif 



on=@death

src.serv.allclients sysmessage @0484,4,0 [ <Serv.name> Binek Olum Guncesi ]

src.serv.allclients sysmessage @0bb2,1,1 <name> Isimli Binek <act.name> Tarafindan <region.name> Civarlarinda Olduruldu...

endif



ON=@Create

DORAND 12

	COLOR=07d4 // Green

	COLOR=0846 // Crimson

	COLOR=084a // Blue

	COLOR=06af // Yellow

	COLOR=04dc // Purple

	COLOR=0840 // kahve

	COLOR=0455 // Black

	COLOR=0901 // Gray

	COLOR=04c3 // Pink

	COLOR=05e3 // Chocolate

	COLOR=051b // sky

	COLOR=08ad // skygray

ENDDO





STR={170 170}

DEX={115 115}

INT={6 10}



PARRYING={100.0 100.0}

MAGICRESISTANCE={75.0 90.0}

TACTICS={100.0 100.0}

WRESTLING={100.0 100.0}

TAMING=85.0



FAME=0

KARMA=1000





on=@gethit 

if (<hits> < 20) 

sayua 0481,2,0,eng,* kendini iyilestirir *

effect=3,i_fx_heal_effect,6,35,1 

sound snd_spell_greater_heal 

hits=(<hits> + 75) 

endif 

if (<act.baseid>=c_vortex)

sayua 0481,2,0,eng,* buyu etkisini kaldirir *

effect=3,i_fx_heal_effect,6,35,1 

sound snd_spell_greater_heal 

src.remove 

endif

if (<act.baseid>=c_blade_spirit) 

sayua 0481,2,0,eng,* buyu etkisini kaldirir *

effect=3,i_fx_heal_effect,6,35,1 

sound snd_spell_greater_heal 

src.remove 

endif 

if (<act.baseid>=c_daemon) 

sayua 0481,2,0,eng,* buyu etkisini kaldirir *

effect=3,i_fx_heal_effect,6,35,1 

sound snd_spell_greater_heal 

src.remove 

endif 

if (<act.baseid>=c_bear_polar) 

sayua 0481,2,0,eng,* buyu etkisini kaldirir *

effect=3,i_fx_heal_effect,6,35,1 

sound snd_spell_greater_heal 

src.remove 

endif 

if (<flags> &statf_poisoned) 

sayua 0481,2,0,eng,* zehiri iyilestirir *

sound snd_spell_cure 

findid.i_rune_poison.remove

endif



[EOF]

Değerlendirmeler

0

Total votes: 0