Hazine Sistemi bi iki sorun

//////////Güncellendi By Michaell///////////////////////////////////////////////////
/////////Ultima-Strikenin Katkilariyla.www.ultima-strike.com///////////////////////
/////////Scplerle İlgili Sorunlar icin [email protected]////////////////////
/////////////////////////Michaell////////////////////////////////////////////////
///////////////Noxier(Ozgur)'e Yardimlari ve Destegi icin Cok Tesekkur Ederim.//
///////////////////////////////////////////////////////////////////////////////


[itemdef i_hazine_sisesi] /// Madenden Cikan Sise
NAME=Kayip Sise
ID=i_bottle
TYPE=t_script
weight 0.5
value 11

ON=@CREATE
color 00

ON=@CLICK
Message @1153 [<name>]
src.sysmessage @1153 Cift Tiklayarak Siseyi Kiriniz.
return 1

ON=@DCLICK
if (<topobj.uid> != <src.uid>)
src.sysmessage @080a Bunu Kullanabilmeniz Icin Cantanizda Olmalidir.
return 1
endif
src.sayua 075f,6,6,0 * Siseyi Kirar *
src.newitem i_harita_mico
src.act.bounce
src.sysmessage @1153 Bir Define HAritasi Cikti.
remove
return 1



[itemdef i_harita_mico] ///Define Haritasi
NAME=Define Haritasi
ID=i_map
TYPE=t_script
value=5
weight=1


ON=@Create
color=07a1


on=@click
message @1153 [<name>]
src.sysmessage @1153 98.0 Mining 98.0 cartography si Olanlar Haritaya Cift Tiklayip Kullanabilirler.
return 1


on=@dclick
IF (<SRC.REGION.FLAGS>&region_flag_ship)
src.sysmessage @080a Gemilerde Bunu Kullanamazsiniz.
return 1
endif
IF (<src.findid.i_jailcik>)
src.sysmessage @080a Jailde Iken Bunu Yapamazsiniz.
return 1
ENDIF
if (<topobj.uid> != <src.uid>)
src.sysmessage @080a Bunu Kullanabilmeniz Icin Cantanizda Olmalidir.
return 1
endif
if (<src.isevent.e_house>)
src.sysmessage @080a Ev Icerisinde bunu Yapamazsiniz.
return 1
endif
if (<src.isevent.e_pazar_safe_zone>)
src.sysmessage @080a Pazar Alaninda Bunu Yapamazsiniz.
return 1
endif
if (<region.safe> == 1) || (<region.flags> == 1)
src.sysmessage @080a Bu Esyayi Bu Alanda Kullanamazsiniz.
return 1
endif
if (<region.guarded> == 1)
src.sysmessage @080a Hazineyi Guard Zone Icerisinde Cikaramazsiniz.
return 1
endif
if !(<src.cartography> > 98.0)
src.sysmessage @080a Bu Define Haritasini Okuyabilmeniz Icin Cartography Skilliniz 98.0 olmalidir.
return 1
endif
if !(<src.mining> > 98.0)
src.sysmessage @080a Kasayi Cikarabilmeniz Icin Mining Skilliniz 98.0 olmalidir.
return 1
endif
IF !(<src.restest 1 i_pickaxe>)
src.sysmessage @080a Kazi Yapabilmeniz Icin Elinizde Kazma Olmalidir.
return 1
ENDIF
IF !(<src.findlayer(1).baseid> == i_pickaxe)
src.sysmessage @080a KAzi Yapabilmeniz Icin KAzma Elinizde Olmali.
return 1
endif
if !(<src.findlayer.25>==0)
src.sysmessage @080a Altinizda Binek varken Kazi Yapamazsiniz.
return 1
endif

src.consume 1 i_pickaxe
src.sayua 075f,6,6,0 * Kaziya Baslar *
src.anim 12
src.sayua 075f,6,6,0 * Kazma Kirilir *
remove
src.newitem i_hazine_kasasi_mico
src.act.bounce
src.act.drop
src.act.timer 7200
src.sysmessage @080a Hazine Kasasini Cikardiniz Acabilmek Icin 2 Saatiniz Var.
return 1




[typedef t_hazine_kasasi_mico] ////////////Kasanin Kitli Olup Olmadigini Belirleyen Type
ON=@dclick
if (<type>=t_hazine_kasasi_mico)
src.sysmessage @080a Kitlidir.Gold Locpick Ile Acabilirsiniz.Gold Locpick Tinkerlar Tarafindan Yapilir.
return 1
endif




[itemdef i_hazine_kasasi_mico] // Hazine Kasasi
id 0e40
name HAzine Sandigi
type t_hazine_kasasi_mico
DUPELIST=0e41


on=@create
color 0455
attr 010


on=@click
if (<type>=t_hazine_kasasi_mico)
message @080a [Kilitli]
message @1153 Hazine Sandigi
src.sysmessage @1153 Kasa 2 Saat Icinde Silinecektir.Kasayi Actiginizda Direk Olarak Yaratiklar Cikacaktir.
src.sysmessage @080a Kitlidir.Gold Locpick Ile Acabilirsiniz.Gold Locpick Tinkerlar Tarafindan Yapilir.
return 1
else
message @080a [Acik]
message @1153 Hazine Sandigi
return 1
endif


on=@timer
remove







[ITEMDEF i_lockpick_gold]  ////// Gold Locpick
DEFNAME=i_lockpick_gold
NAME=Gold Locpick
ID=i_lockpick
TYPE=t_script
FLIP=1
RESOURCES=5 i_ingot_gold , 1 i_lockpick
VALUE=20
WEIGHT=1
DUPELIST=014fc
SKILLMAKE=TINKERING 98.0,i_tinker_tools

on=@create
color 045e

on=@click
message @1153 <amount> <name>
src.sysmessage @1153 Hazine Sandiklarinin Aciminda Kullanilir.
return 1


ON=@dclick
if !(<topobj.uid> == <src.uid>)
src.sysmessage @080a Bunu Sadece Cantanda Kullanabilirsiniz.
return 1
endif
if !(<src.lockpicking> > 89.9)
src.sysmessage @080a Bunu Kullanabilmeniz Icin Locpicking  Skilliniz En Az 90.0 olmalidir.
return 1
endif
target @080a Hazine Sandigini Seciniz...
return 1



on=@targon_item
if (<region.guarded> == 1)
src.sysmessage @080a Gz Yi Karistirma.Yakalanirsan 96 Saat.
return 1
endif
if !(<src.targ.type> == t_hazine_kasasi_mico)
src.sysmessage @1153 Gold Locpicki Sadece HAzine Sandigi Uzerinde KUllanabilirsiniz.
return 1
endif
if (<src.t.distance>>2) && ( <src.t.TOPOBJ.UID> != <SRC.UID> )
src.sysmessage @080a HAzine Sandigina Cok Uzaksiniz.
return 1
endif

src.dispelle
src.sayua 075f,6,6,0 * Kilidi Acar *
src.consume 1 i_lockpick_gold
src.poison 1000
src.targ.type t_script
src.targ.timer 10
src.targ.color 00
src.sysmessage @080a Hazine Champion Npcdedir.Onlari Oldurup Almak Zorundasiniz.Yaratiklar 1 Saat Icerisinde Silinir.

if (rand(2)
src.yaratikci_1
return 1
else
src.yaratikci_2
return 1
endif




///////////////////////////////////////Functionlar////////////////////////////////////


[function dispelle] // Etrafa Duvar Fln Atarlar Die Ve Summon Npc Ile Saldirmasinlar Die  /Michaell
foritems 10
	if (<attr>&attr_magic)
		if (<type> == t_spell)
                        if ((<baseid>==i_wall_stone_8) || (<baseid>==i_fx_field_fire_ns) || (<baseid>==i_fx_field_paralyze) || (<baseid>==i_fx_energy_field) || (<baseid>==i_fx_field_fire) || (<baseid>==i_fx_poison_field)) 
			timer
                        endif
		endif
	endif
endfor

forchars 10
	if (<findid.i_rune_summon_creature>)
        remove
       	endif
endfor


[Function Yaratikci_1]
if (rand(2)
src.yaratikci_3
return 1
else
src.hazine_yaratikci_skeleton
return 1
endif 


[Function Yaratikci_2]
if (rand(2)
src.yaratikci_4
return 1
else
src.hazine_yaratikci_zombie
return 1
endif 


[Function Yaratikci_3]
if (rand(2)
src.hazine_yaratikci_ghost
return 1
else
src.hazine_yaratikci_vampire
return 1
endif 


[Function Yaratikci_4]
if (rand(2)
src.hazine_yaratikci_orc
return 1
else
src.hazine_yaratikci_liche
return 1
endif 








[function hazine_yaratikci_ghost]
serv.newnpc c_ghost_hazineci
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 2
new.events e_hazine_korumasi_champion
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=c_grim_reaper
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 15
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=c_shade
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 13
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=c_avenger
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 13
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=c_m_wraith
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 10
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600






[function hazine_yaratikci_skeleton]
serv.newnpc c_skeleton_hazineci
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 2
new.events e_hazine_korumasi_champion
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=c_m_skeleton_knight
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 15
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=c_m_skeleton_knight
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 13
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=c_bone_knight
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 13
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=c_bone_knight
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 10
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600






[function hazine_yaratikci_orc]
serv.newnpc c_orc_hazineci
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 2
new.events e_hazine_korumasi_champion
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=c_m_orc_bomber
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 15
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=c_orc
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 13
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=c_orc
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 13
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=c_m_orc_brute
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 10
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600






[function hazine_yaratikci_zombie]
serv.newnpc c_zombie_hazineci
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 2
new.events e_hazine_korumasi_champion
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=c_m_mummy
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 15
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=c_m_mummy
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 13
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=c_m_ghoul
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 13
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=c_m_ghoul
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 10
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600






[function hazine_yaratikci_vampire]
serv.newnpc c_vampire_hazineci
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 2
new.events e_hazine_korumasi_champion
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=C_Dracula
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 15
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=C_Dracula
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 13
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=C_VAMPIRE_F
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 13
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=C_VAMPIRE_F
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 10
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600






[function hazine_yaratikci_liche]
serv.newnpc c_liche_hazineci
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 2
new.events e_hazine_korumasi_champion
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=c_m_liche_lord
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 15
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=C_LICHE_SUMMON
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 13
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=c_liche
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 13
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600

serv.newnpc=c_liche
new.p=<p>
new.fix
new.home=<new.p>
new.homedist 10
new.events e_hazine_korumasi
local.npc1=<new.uid>
serv.newitem=i_hazine_npc_kontrol
new.cont=<local.npc1>
new.timer=3600






////////////////////////////////Özel Yaratiklar///////////////////////////////////////////


[CHARDEF c_liche_hazineci]
DEFNAME=c_liche_hazineci
ID=c_liche
ICON=i_pet_LICH
DAM=85,95
NAME=Champion Lich
SOUND=snd_MONSTER_LICHE1
ARMOR=65
TEVENTS=e_intelligent
CAN=MT_WALK|MT_USEHANDS|MT_RUN
SHELTER=r_spooky
DESIRES=i_gold,t_wand
AVERSIONS=r_water,r_mountains



ON=@Create
NPC=brain_monster
COLOR=080a
STR={1500 2000}
DEX={1000 1500}
INT={500 600}


PARRYING={120.0 200.0}
MAGERY={750.0 995.0}
MAGICRESISTANCE={450.0 900.0}
TACTICS={95.0 100.0}
WRESTLING={95.0 100.0}
POISONING={500.0 750.0}
MEDITATION={250.0 500.0}

FAME={7000 9000}
KARMA={-6000 -6999}


ITEMNEWBIE=i_spellbook
ADDSPELL=s_paralyze
ADDSPELL=s_dispel
ADDSPELL=s_harm
ADDSPELL=s_poison
ADDSPELL=s_explosion
ADDSPELL=s_fireball
ADDSPELL=s_flamestrike
ADDSPELL=s_energy_bolt
ADDSPELL=s_magic_arrow
ADDSPELL=s_weaken
ITEM=i_gold,{5000 50000}
ITEM={random_magic_sword 1 i_karisik_artili 1 i_karisik_artili_2 1 i_tc_bs3 1 i_tc_bs6 1 i_tc_bs9 1 i_tc_bs12 1 i_tc_bs15 1},R2_tc_bs15 1},R2
ITEM=i_reag_dragon_blood,{5 45}
ITEM=i_random_invul_set,R3
ITEM={i_leather_crystal 1 i_rare_crystal 1 i_kill_tasi 1 i_power_crystal 1 i_black_crystal 1},R2



on=@gethit 
if (<hits> < 85) 
sayua 0835,6,0,enu * kendini iyilestirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
hits=(<hits> + 25) 
endif 
if (<act.baseid>=c_vortex)
sayua 0835,6,0,enu * 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_brown)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_doe)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_dog)
sayua 0835,6,0,enu * 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_grizzly)
sayua 0835,6,0,enu * 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 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif 
if (<act.baseid>=c_snake)
sayua 0835,6,0,enu * 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 0835,6,0,enu * 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_w_sword) 
sayua 0835,6,0,enu * 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 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif 
if (<act.baseid>=c_elem_air)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_elem_earth)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_elem_fire)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_elem_water)
sayua 0835,6,0,enu * 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 0835,6,0,enu * zehiri iyilestirir *
sound snd_spell_cure 
findid.i_rune_poison.remove
hits=(<hits> + 15) 
endif
On=@SPELLEFFECT
IF (<ARGN>=51) // (Koşan) KalVaZ
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=57) ///In Vas Por (ÇUFF SERİL)
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=49) // Vas Ort Grav Comboooo
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=55) // Flam Kal Des Ylem
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=38) // An EZ Por
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=47) // In EZ Grav
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=39) // In NOOOOX Grav 
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF





[CHARDEF c_vampire_hazineci]
DEFNAME=c_vampire_hazineci
ID=C_MAN
ICON=i_pet_man
DAM=85,95
NAME=Creare Vampire
ARMOR=65
TEVENTS=e_intelligent
CAN=MT_WALK|MT_RUN|MT_USEHANDS
SHELTER=r_spooky
DESIRES=i_gold,t_wand
AVERSIONS=r_water,r_mountains



ON=@Create
NPC=brain_monster
COLOR=038a
STR={1500 2000}
DEX={1000 1500}
INT={500 600}


PARRYING={120.0 200.0}
MAGERY={750.0 995.0}
MAGICRESISTANCE={450.0 900.0}
TACTICS={95.0 100.0}
WRESTLING={95.0 100.0}
POISONING={500.0 750.0}
MEDITATION={250.0 500.0}

FAME={7000 9000}
KARMA={-6000 -6999}


ITEMNEWBIE=i_leather_gloves
COLOR=0455
ITEMNEWBIE=i_leather_gorget
COLOR=0455
ITEMNEWBIE=i_robe
COLOR=0455
ITEMNEWBIE=i_hair_long
COLOR=00
ITEMNEWBIE=i_CAPE
COLOR=0455
ITEMNEWBIE=i_shirt_fancy
COLOR=0455
ITEMNEWBIE=i_pants_long
COLOR=0455
ITEMNEWBIE=i_boots_calf
COLOR=0455
ITEMNEWBIE=i_SASH
COLOR=0455
ITEMNEWBIE=i_spellbook
COLOR=0455
ADDSPELL=s_paralyze
ADDSPELL=s_dispel
ADDSPELL=s_harm
ADDSPELL=s_poison
ADDSPELL=s_explosion
ADDSPELL=s_fireball
ADDSPELL=s_flamestrike
ADDSPELL=s_energy_bolt
ADDSPELL=s_magic_arrow
ADDSPELL=s_weaken
ITEM=i_gold,{5000 50000}
ITEM={random_magic_sword 1 i_karisik_artili 1 i_karisik_artili_2 1 i_tc_bs3 1 i_tc_bs6 1 i_tc_bs9 1 i_tc_bs12 1 i_tc_bs15 1},R2_tc_bs15 1},R2
ITEM=i_reag_dragon_blood,{5 45}
ITEM=i_random_invul_set,R4
ITEM={i_leather_crystal 1 i_rare_crystal 1 i_kill_tasi 1 i_power_crystal 1 i_black_crystal 1},R2



on=@gethit 
if (<hits> < 85) 
sayua 0835,6,0,enu * kendini iyilestirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
hits=(<hits> + 25) 
endif 
if (<act.baseid>=c_vortex)
sayua 0835,6,0,enu * 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_brown)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_doe)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_dog)
sayua 0835,6,0,enu * 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_grizzly)
sayua 0835,6,0,enu * 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 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif 
if (<act.baseid>=c_snake)
sayua 0835,6,0,enu * 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 0835,6,0,enu * 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_w_sword) 
sayua 0835,6,0,enu * 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 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif 
if (<act.baseid>=c_elem_air)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_elem_earth)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_elem_fire)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_elem_water)
sayua 0835,6,0,enu * 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 0835,6,0,enu * zehiri iyilestirir *
sound snd_spell_cure 
findid.i_rune_poison.remove
hits=(<hits> + 15) 
endif
On=@SPELLEFFECT
IF (<ARGN>=51) // (Koşan) KalVaZ
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=57) ///In Vas Por (ÇUFF SERİL)
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=49) // Vas Ort Grav Comboooo
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=55) // Flam Kal Des Ylem
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=38) // An EZ Por
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=47) // In EZ Grav
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=39) // In NOOOOX Grav 
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF






[CHARDEF c_ghost_hazineci]
DEFNAME=c_ghost_hazineci
ID=c_Grim_Reaper
ICON=i_pet_GHOUL
DAM=85,95
NAME=Champion Ghost
ARMOR=65
TEVENTS=e_intelligent
CAN=MT_GHOST|MT_WALK
SHELTER=r_spooky
DESIRES=i_gold,t_wand
AVERSIONS=r_water,r_mountains



ON=@Create
NPC=brain_monster
COLOR=080a
STR={1500 2000}
DEX={1000 1500}
INT={500 600}


PARRYING={120.0 200.0}
MAGERY={750.0 995.0}
MAGICRESISTANCE={450.0 900.0}
TACTICS={95.0 100.0}
WRESTLING={95.0 100.0}
POISONING={500.0 750.0}
MEDITATION={250.0 500.0}

FAME={7000 9000}
KARMA={-6000 -6999}

ITEMNEWBIE=i_spellbook
COLOR=080a
ADDSPELL=s_paralyze
ADDSPELL=s_dispel
ADDSPELL=s_harm
ADDSPELL=s_poison
ADDSPELL=s_explosion
ADDSPELL=s_fireball
ADDSPELL=s_flamestrike
ADDSPELL=s_energy_bolt
ADDSPELL=s_magic_arrow
ADDSPELL=s_weaken
ITEM=i_gold,{5000 50000}
ITEM={random_magic_sword 1 i_karisik_artili 1 i_karisik_artili_2 1 i_tc_bs3 1 i_tc_bs6 1 i_tc_bs9 1 i_tc_bs12 1 i_tc_bs15 1},R2_tc_bs15 1},R2
ITEM=i_reag_dragon_blood,{5 45}
ITEM=i_random_invul_set,R4
ITEM={i_leather_crystal 1 i_rare_crystal 1 i_kill_tasi 1 i_power_crystal 1 i_black_crystal 1},R2



on=@gethit 
if (<hits> < 85) 
sayua 0835,6,0,enu * kendini iyilestirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
hits=(<hits> + 25) 
endif 
if (<act.baseid>=c_vortex)
sayua 0835,6,0,enu * 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_brown)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_doe)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_dog)
sayua 0835,6,0,enu * 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_grizzly)
sayua 0835,6,0,enu * 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 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif 
if (<act.baseid>=c_snake)
sayua 0835,6,0,enu * 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 0835,6,0,enu * 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_w_sword) 
sayua 0835,6,0,enu * 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 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif 
if (<act.baseid>=c_elem_air)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_elem_earth)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_elem_fire)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_elem_water)
sayua 0835,6,0,enu * 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 0835,6,0,enu * zehiri iyilestirir *
sound snd_spell_cure 
findid.i_rune_poison.remove
hits=(<hits> + 15) 
endif
On=@SPELLEFFECT
IF (<ARGN>=51) // (Koşan) KalVaZ
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=57) ///In Vas Por (ÇUFF SERİL)
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=49) // Vas Ort Grav Comboooo
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=55) // Flam Kal Des Ylem
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=38) // An EZ Por
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=47) // In EZ Grav
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=39) // In NOOOOX Grav 
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF





[CHARDEF c_skeleton_hazineci]
DEFNAME=c_skeleton_hazineci
ID=c_skeleton_w_sword
ICON=i_pet_man
DAM=85,95
NAME=Champion Skeleton Knight
ARMOR=65
TEVENTS=e_intelligent
CAN=MT_WALK|MT_FLY|MT_USEHANDS|MT_FIRE_IMMUNE
SHELTER=r_spooky
DESIRES=i_gold,t_wand
AVERSIONS=r_water,r_mountains



ON=@Create
NPC=brain_monster
COLOR=080a
STR={1500 2000}
DEX={1000 1500}
INT={500 600}


PARRYING={120.0 200.0}
MAGERY={750.0 995.0}
MAGICRESISTANCE={450.0 900.0}
TACTICS={95.0 100.0}
WRESTLING={95.0 100.0}
POISONING={500.0 750.0}
MEDITATION={250.0 500.0}

FAME={7000 9000}
KARMA={-6000 -6999}

ITEMNEWBIE=i_spellbook
ADDSPELL=s_paralyze
ADDSPELL=s_dispel
ADDSPELL=s_harm
ADDSPELL=s_poison
ADDSPELL=s_explosion
ADDSPELL=s_fireball
ADDSPELL=s_flamestrike
ADDSPELL=s_energy_bolt
ADDSPELL=s_magic_arrow
ADDSPELL=s_weaken
ITEM=i_gold,{5000 50000}
ITEM={random_magic_sword 1 i_karisik_artili 1 i_karisik_artili_2 1 i_tc_bs3 1 i_tc_bs6 1 i_tc_bs9 1 i_tc_bs12 1 i_tc_bs15 1},R2_tc_bs15 1},R2
ITEM=i_reag_dragon_blood,{5 45}
ITEM=i_random_invul_set,R4
ITEM={i_leather_crystal 1 i_rare_crystal 1 i_kill_tasi 1 i_power_crystal 1 i_black_crystal 1},R2



on=@gethit 
if (<hits> < 85) 
sayua 0835,6,0,enu * kendini iyilestirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
hits=(<hits> + 25) 
endif 
if (<act.baseid>=c_vortex)
sayua 0835,6,0,enu * 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_brown)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_doe)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_dog)
sayua 0835,6,0,enu * 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_grizzly)
sayua 0835,6,0,enu * 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 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif 
if (<act.baseid>=c_snake)
sayua 0835,6,0,enu * 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 0835,6,0,enu * 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_w_sword) 
sayua 0835,6,0,enu * 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 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif 
if (<act.baseid>=c_elem_air)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_elem_earth)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_elem_fire)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_elem_water)
sayua 0835,6,0,enu * 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 0835,6,0,enu * zehiri iyilestirir *
sound snd_spell_cure 
findid.i_rune_poison.remove
hits=(<hits> + 15) 
endif
On=@SPELLEFFECT
IF (<ARGN>=51) // (Koşan) KalVaZ
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=57) ///In Vas Por (ÇUFF SERİL)
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=49) // Vas Ort Grav Comboooo
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=55) // Flam Kal Des Ylem
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=38) // An EZ Por
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=47) // In EZ Grav
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=39) // In NOOOOX Grav 
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF





[CHARDEF c_zombie_hazineci]
DEFNAME=c_zombie_hazineci
ID=C_ZOMBIE
SOUND=snd_monster_zombie1
ICON=i_pet_man
DAM=85,95
NAME=Champion Zombie
ARMOR=65
TEVENTS=e_intelligent
CAN=MT_WALK|MT_FLY|MT_USEHANDS|MT_FIRE_IMMUNE
SHELTER=r_spooky
DESIRES=i_gold,t_wand
AVERSIONS=r_water,r_mountains



ON=@Create
NPC=brain_monster
COLOR=080a
STR={1500 2000}
DEX={1000 1500}
INT={500 600}


PARRYING={120.0 200.0}
MAGERY={750.0 995.0}
MAGICRESISTANCE={450.0 900.0}
TACTICS={95.0 100.0}
WRESTLING={95.0 100.0}
POISONING={500.0 750.0}
MEDITATION={250.0 500.0}

FAME={7000 9000}
KARMA={-6000 -6999}

ITEMNEWBIE=i_spellbook
ADDSPELL=s_paralyze
ADDSPELL=s_dispel
ADDSPELL=s_harm
ADDSPELL=s_poison
ADDSPELL=s_explosion
ADDSPELL=s_fireball
ADDSPELL=s_flamestrike
ADDSPELL=s_energy_bolt
ADDSPELL=s_magic_arrow
ADDSPELL=s_weaken
ITEM=i_gold,{5000 50000}
ITEM={random_magic_sword 1 i_karisik_artili 1 i_karisik_artili_2 1 i_tc_bs3 1 i_tc_bs6 1 i_tc_bs9 1 i_tc_bs12 1 i_tc_bs15 1},R2_tc_bs15 1},R2
ITEM=i_reag_dragon_blood,{5 45}
ITEM=i_random_invul_set,R4
ITEM={i_leather_crystal 1 i_rare_crystal 1 i_kill_tasi 1 i_power_crystal 1 i_black_crystal 1},R2



on=@gethit 
if (<hits> < 85) 
sayua 0835,6,0,enu * kendini iyilestirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
hits=(<hits> + 25) 
endif 
if (<act.baseid>=c_vortex)
sayua 0835,6,0,enu * 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_brown)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_doe)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_dog)
sayua 0835,6,0,enu * 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_grizzly)
sayua 0835,6,0,enu * 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 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif 
if (<act.baseid>=c_snake)
sayua 0835,6,0,enu * 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 0835,6,0,enu * 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_w_sword) 
sayua 0835,6,0,enu * 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 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif 
if (<act.baseid>=c_elem_air)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_elem_earth)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_elem_fire)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_elem_water)
sayua 0835,6,0,enu * 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 0835,6,0,enu * zehiri iyilestirir *
sound snd_spell_cure 
findid.i_rune_poison.remove
hits=(<hits> + 15) 
endif
On=@SPELLEFFECT
IF (<ARGN>=51) // (Koşan) KalVaZ
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=57) ///In Vas Por (ÇUFF SERİL)
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=49) // Vas Ort Grav Comboooo
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=55) // Flam Kal Des Ylem
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=38) // An EZ Por
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=47) // In EZ Grav
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=39) // In NOOOOX Grav 
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF





[CHARDEF c_orc_hazineci]
DEFNAME=c_orc_hazineci
ID=c_orc_lord
SOUND=snd_MONSTER_DAEMON1
ICON=i_pet_man
DAM=85,95
NAME=Champion Orc
ARMOR=65
TEVENTS=e_intelligent
CAN=MT_WALK|MT_FLY|MT_USEHANDS|MT_FIRE_IMMUNE
SHELTER=r_dungeon,r_caves
DESIRES=i_gold,t_wand
AVERSIONS=r_water,r_mountains



ON=@Create
NPC=brain_monster
COLOR=080a
STR={1500 2000}
DEX={1000 1500}
INT={500 600}


PARRYING={120.0 200.0}
MAGERY={750.0 995.0}
MAGICRESISTANCE={450.0 900.0}
TACTICS={95.0 100.0}
WRESTLING={95.0 100.0}
POISONING={500.0 750.0}
MEDITATION={250.0 500.0}

FAME={7000 9000}
KARMA={-6000 -6999}

ITEMNEWBIE=i_spellbook
ADDSPELL=s_paralyze
ADDSPELL=s_dispel
ADDSPELL=s_harm
ADDSPELL=s_poison
ADDSPELL=s_explosion
ADDSPELL=s_fireball
ADDSPELL=s_flamestrike
ADDSPELL=s_energy_bolt
ADDSPELL=s_magic_arrow
ADDSPELL=s_weaken
ITEM=i_gold,{5000 50000}
ITEM={i_karisik_artili 1 i_karisik_artili_2 1 i_tc_bs3 1 i_tc_bs6 1 i_tc_bs9 1 i_tc_bs12 1 i_tc_bs15 1},R2
ITEM=i_reag_dragon_blood,{5 45}
ITEM=i_random_invul_set,R4
ITEM={i_leather_crystal 1 i_rare_crystal 1 i_kill_tasi 1 i_power_crystal 1 i_black_crystal 1},R2



on=@gethit 
if (<hits> < 85) 
sayua 0835,6,0,enu * kendini iyilestirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
hits=(<hits> + 25) 
endif 
if (<act.baseid>=c_vortex)
sayua 0835,6,0,enu * 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_brown)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_doe)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_dog)
sayua 0835,6,0,enu * 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_grizzly)
sayua 0835,6,0,enu * 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 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif 
if (<act.baseid>=c_snake)
sayua 0835,6,0,enu * 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 0835,6,0,enu * 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_w_sword) 
sayua 0835,6,0,enu * 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 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif 
if (<act.baseid>=c_elem_air)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_elem_earth)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_elem_fire)
sayua 0835,6,0,enu * buyu etkisini kaldirir *
effect=3,i_fx_heal_effect,6,35,1 
sound snd_spell_greater_heal 
src.remove 
endif
if (<act.baseid>=c_elem_water)
sayua 0835,6,0,enu * 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 0835,6,0,enu * zehiri iyilestirir *
sound snd_spell_cure 
findid.i_rune_poison.remove
hits=(<hits> + 15) 
endif
On=@SPELLEFFECT
IF (<ARGN>=51) // (Koşan) KalVaZ
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=57) ///In Vas Por (ÇUFF SERİL)
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=49) // Vas Ort Grav Comboooo
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=55) // Flam Kal Des Ylem
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=38) // An EZ Por
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=47) // In EZ Grav
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF
IF (<ARGN>=39) // In NOOOOX Grav 
sayua 0835,6,0,enu * Etkilenmez *
SPELLEFFECT s_cure,1000
RETURN 1
ENDIF




[ITEMDEF i_hazine_npc_kontrol]  ///Yaratiklarin Kendidini Silmesini Saglayan Item
NAME=Control Item
ID=i_memory
TYPE=t_eq_script
LAYER=30

on=@create
attr=attr_decay|attr_invis

ON=@Timer
cont.remove




////////////////////////////////////Eventsler//////////////////////////////////////////////////

[events e_hazine_korumasi] /////////////İsim Bide Gz Sorunu Fixi
on=@click
if (<region.guarded> == 1)
src.sysmessage @080a Yaptiginiz Bug Abusedir Cezasi 96 Saat Jaildir.
remove
return 1
else
message @080a [Hazine Korumasi]
endif

ON=@EnvironChange
if (<region.guarded> == 1)
src.sysmessage @080a Yaptiginiz Bug Abusedir Cezasi 96 Saat Jaildir.
remove
return 1
endif

on=@dclick
if (<region.guarded> == 1)
src.sysmessage @080a Yaptiginiz Bug Abusedir Cezasi 96 Saat Jaildir.
remove
return 1
endif

on=@damege
if (<region.guarded> == 1)
src.sysmessage @080a Yaptiginiz Bug Abusedir Cezasi 96 Saat Jaildir.
remove
return 1
endif

on=@damage
if (<region.guarded> == 1)
src.sysmessage @080a Yaptiginiz Bug Abusedir Cezasi 96 Saat Jaildir.
remove
return 1
endif


on=@gethit
if (<region.guarded> == 1)
src.sysmessage @080a Yaptiginiz Bug Abusedir Cezasi 96 Saat Jaildir.
remove
return 1
endif


on=@attack
if (<region.guarded> == 1)
src.sysmessage @080a Yaptiginiz Bug Abusedir Cezasi 96 Saat Jaildir.
remove
return 1
endif




[events e_hazine_korumasi_champion] ////Sadece Champion Icin
on=@click
if (<region.guarded> == 1)
src.sysmessage @080a Yaptiginiz Bug Abusedir Cezasi 96 Saat Jaildir.
remove
return 1
else
message @080a [Hazine Korumasi]
message @080a <name>
src.sysmessage @080a Hazine Champion Npcnin Icerisindedir.
return 1
endif

ON=@EnvironChange
if (<region.guarded> == 1)
src.sysmessage @080a Yaptiginiz Bug Abusedir Cezasi 96 Saat Jaildir.
remove
return 1
endif

on=@dclick
if (<region.guarded> == 1)
src.sysmessage @080a Yaptiginiz Bug Abusedir Cezasi 96 Saat Jaildir.
remove
return 1
endif

on=@damege
if (<region.guarded> == 1)
src.sysmessage @080a Yaptiginiz Bug Abusedir Cezasi 96 Saat Jaildir.
remove
return 1
endif

on=@damage
if (<region.guarded> == 1)
src.sysmessage @080a Yaptiginiz Bug Abusedir Cezasi 96 Saat Jaildir.
remove
return 1
endif


on=@gethit
if (<region.guarded> == 1)
src.sysmessage @080a Yaptiginiz Bug Abusedir Cezasi 96 Saat Jaildir.
remove
return 1
endif


on=@attack
if (<region.guarded> == 1)
src.sysmessage @080a Yaptiginiz Bug Abusedir Cezasi 96 Saat Jaildir.
remove
return 1
endif

[eof]

alıntıdır.......
Haritaya tıklandıgı zman direk açılıyor birde kasa 2 saat diyor ama kasa aradan 10 sn geçmeden kayboluyor bilen arkadaşlar düzeltirlerse daha iyi olur

yok timer de yazdım olmadı hemen kayboldu yine

bu şekilde olabilir mi?
src.act.timer 800000 diye


yok olmadı yine offfffffffffff nasıl olacak bu arkadaslar lütfen yardım edin

Bu konu cuneytgunes tarafından düzenlendi(2008-03-19 17:32, 16 yıl önce)

kasayı actıkdan sonra npc ler dagalıor ii gzl
de hazıne fln cıkmıo bu esyayı kullanamazsınız dıo


+ bnde kasa zamanında kayboluo

Bu konu sanx_1 tarafından düzenlendi(2008-03-20 21:30, 16 yıl önce)

Bu isine yarayabilir sanirim..
Scripti kullanan sunucu : Erador UO

[itemdef i_cont_define]
NAME=Treasure Container
ID=i_box_brass
TYPE=t_normal
weight 0.1

ON=@CREATE
COLOR 070d

ON=@CLICK
MESSAGE @47,,1 Belirsiz Sandik
return 1

ON=@DCLICK
if (<topobj.uid> != <src.uid>)
	src.sysmessage @38,,1 Hata: Bunu kullanabilmeniz icin cantanizda olmali.
	return 1
endif
SRC.SAYUA 920,6,6,0 * Sandigi kirar *
src.newitem i_map_of_treasure
src.act.equip
src.sysmessage @50 Bilinmeyen bir kagit parcasi cikti
remove
return 1

[itemdef i_bottle_define]
NAME=SOS Bottle
ID=i_bottle_ale
TYPE=t_normal
weight 0.1
value 9

ON=@CREATE
COLOR 070d

ON=@CLICK
MESSAGE @47,,1 SOS Bottle
return 1

ON=@DCLICK
if (<topobj.uid> != <src.uid>)
	src.sysmessage @38,,1 Hata: Bunu kullanabilmeniz icin cantanizda olmali.
	return 1
endif
SRC.SAYUA 920,6,6,0 * Siseyi Kirar *
src.newitem i_map_of_treasure
src.act.equip
src.sysmessage @50 Bilinmeyen bir kagit parcasi cikti
remove
return 1

[itemdef i_map_of_treasure]
NAME=Treasure Map
ID=i_map_rolled
VALUE=5000
TYPE=t_normal
WEIGHT=3

ON=@Create
tag.status=Acilmamis
color=06aa
f_treasure_selection

on=@click
message @03b2,,1, <name>
message @50,,1 (<tag.status>)
return 1

on=@dclick
if (<more2>) && !(<more1>) && !(<src.isnextp <eval <morex>> <eval <morey>> 10>)
	sdialog d_treasure_map
elif (<topobj.uid>!=<src>) && !(<src.isgm>)
	src.sysmessage @38,,1 Hata: Cantanizda olmadan kullanamazsiniz.
elif (<more1>)
	src.sysmessage @38,,1 Hata: Bu hazine zaten daha once bulunmus.
elif (<more2>)
	IF (<src.isnextp <eval <morex>> <eval <morey>> 10>) 
		IF !(<src.findid.i_shovel>)
			src.sysmessage @38,,1 Hata: Shovel ihtiyaciniz var.
		else
			IF !(<attr> & 04)
				FOR 2
					serv.newnpc=c_orc_treasure
					new.p=<morep>
					new.fix
					new.home=<new.p>
					new.homedist 5
					new.removetimer <EVAL 60*30>
				ENDFOR
				FOR 2
					serv.newnpc=c_rotting_treasure
					new.p=<morep>
					new.fix
					new.home=<new.p>
					new.homedist 5
					new.removetimer <EVAL 60*30>
				ENDFOR
				serv.newnpc=c_m_cyclops_king_treasure
				new.p=<morep>
				new.fix
				new.home=<new.p>
				new.homedist 5
				new.removetimer <EVAL 60*30>
				serv.newnpc=c_m_efreet
				new.p=<morep>
				new.fix
				new.home=<new.p>
				new.homedist 5
				new.removetimer <EVAL 60*30>
				serv.newnpc=c_m_dragon_crystal_treasure
				new.p=<morep>
				new.tag.prizemoney=<eval <src.cartography>*10>
				new.tag.prizeitem=<hval <def.random_treasure_prize>>
				new.moveback
				new.fix
				new.home=<new.p>
				new.homedist 5
				new.events +e_treasure_chest
				new.removetimer <EVAL 60*30>
				new.say @50 Benim hazinemi almak  ???
				new.effect 1,i_gold,20,20
			ELSE
				FOR 2
					serv.newnpc=c_orc_treasure
					new.p=<morep>
					new.fix
					new.home=<new.p>
					new.homedist 5
					new.removetimer <EVAL 60*30>
				ENDFOR
				FOR 2
					serv.newnpc=c_rotting_treasure
					new.p=<morep>
					new.fix
					new.home=<new.p>
					new.homedist 5
					new.removetimer <EVAL 60*30>
				ENDFOR
				serv.newnpc=c_m_cyclops_king_treasure
				new.p=<morep>
				new.fix
				new.home=<new.p>
				new.homedist 5
				new.removetimer <EVAL 60*30>
				serv.newnpc=c_m_efreet
				new.p=<morep>
				new.fix
				new.home=<new.p>
				new.homedist 5
				new.removetimer <EVAL 60*30>
				serv.newnpc=c_m_dragon_crystal_treasure
				new.p=<morep>
				new.tag.prizemoney=<eval <src.cartography>*10>
				new.tag.prizeitem=<hval <def.random_treasure_prize>>
				new.moveback
				new.fix
				new.home=<new.p>
				new.homedist 5
				new.events +e_treasure_chest
				new.removetimer <EVAL 60*30>
				new.say @50 Yok olun!! Yoksa sizi oldururum !
				new.effect 1,i_gold,20,20
			ENDIF
			tag.status=Hazine bulundu
			src.sysmessage @03b2,,1, Hazine&&#35039;nin sahibi olmaniz icin butun yaratiklari oldurmeniz gerekmektedir.
			more1=1
		ENDIF
	ENDIF
ELIF !(RAND(6))
	IF !(<SRC.CARTOGRAPHY> >= 100.0)
		SRC.CARTOGRAPHY += <EVAL &&#35123;1 2}>
	ENDIF
	MORE2=1
	src.sysmessage @03b2,,1, Haritayi basarili bir sekilde actiniz.
	tag.status=<src.name> acmis
	dispid=i_map
	attr=attr_newbie
	update
ELSE
	src.sysmessage @0ad Basarisiz
ENDIF
RETURN 1

//

[DIALOG d_treasure_map] 
200,90
PAGE 0
resizepic 0 0 5120 403 494 
gumppic 10 10 5528 
gumppic <EVAL (10+((<morex>*100)/1337))> <EVAL (10+((<morey>*100)/1067))> 0938
gumppic <EVAL (10+((<src.p.x>*100)/1337))> <EVAL (10+((<src.p.y>*100)/1067))> 0939
dhtmlgump 20 400 240 85 1 200 Hazine :: <TAG0.LUGAR> bolgesinde. Koordinat :: <eval <morex>>,<eval <morey>>
tilepic 280 400 7575
tilepic 302 400 7576

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

[function isnextp]
serv.newitem=i_gold
new.attr=attr_invis|attr_decay
new.p=<argn1>,<argn2>
IF (<new.distance> <= <argn3>)
new.remove
return 1
else
new.remove
return 0
ENDIF

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

[DEFNAME premios_tesouro]
random_treasure_ingots &&#35123; I_ORE_VALORITE 1 I_ORE_VERITE 1 I_ORE_MYTHERIL 1 }
random_treasure_prize &&#35123; RANDOM_PLATEMAIL_INVULNERABILITY 1 RANDOM_PLATEMAIL_DEFENSE 1 random_treasure_ingots 1 RANDOM_PLATEMAIL_FORTIFICATION 1 RANDOM_PLATEMAIL_GUARDING 1 RANDOM_PLATEMAIL_HARDENING 1 RANDOM_WEAPON_FORCE 1 RANDOM_WEAPON_MIGHT 1 RANDOM_WEAPON_POWER 1 RANDOM_WEAPON_RUIN 1 RANDOM_WEAPON_vanq 1 RANDOM_SHIELD_INVULNERABILITY 1 RANDOM_SHIELD_DEFENSE 1 RANDOM_SHIELD_FORTIFICATION 1 RANDOM_SHIELD_GUARDING 1 RANDOM_SHIELD_HARDENING 1 }

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

[events e_treasure_chest]
ON=@Death
FINDID.i_map_of_treasure.REMOVE

ON=@DEATHCORPSE
serv.newitem=i_hazine1
new.color=02b3
new.attr=attr_decay|attr_move_never
new.p=<argo.p>
new.nudgeup 12
new.timer=360
new.events +t_found_treasure
new.more1=<EVAL &&#35123;100 1000}>
local.bau=<new>
serv.newitem=i_gold
new.amount=<tag.prizemoney>
new.cont=<Local.Bau>
serv.newitem=<tag.prizeitem>
new.cont=<local.bau>
IF (<NEW.TYPE>==t_ore)
NEW.AMOUNT=<EVAL &&#35123;1 3}>
ENDIF
try uid.<argo.uid>.move nw 4
try uid.<argo.uid>.empty
try uid.<argo.uid>.remove
try uid.<local.bau>.update
try uid.<uid.<argo.uid>.more2>.sysmessage @03b2,,1, Hazine kasasinin koruyucalarini oldurdunuz. Hazine sizindir.

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

[function f_treasure_selection]
SERV.NEWITEM i_gold
NEW.ATTR=ATTR_INVIS
DORAND 3
NEW.RANDLOCATION
NEW.DUNGLOCATION
NEW.RANDLOCATION
ENDDO
TAG.LUGAR=<NEW.REGION.NAME>
MOREP=<NEW.P>
NEW.REMOVE

[TYPEDEF t_found_treasure]
ON=@Dclick
IF !(<SRC.LOCKPICKING> >= <MORE2>)
SRC.DAMAGE <EVAL &&#35123;50 150}> 01 <UID>
ENDIF

[FUNCTION removetimer]
SERV.NEWITEM i_removetimer_mem
EQUIP <NEW>
NEW.TIMER=<ARGN1>

[ITEMDEF i_removetimer_mem]
ID=i_memory
NAME=remove timer
TYPE=t_eq_script

ON=@Timer
cont.remove
return 1

[FUNCTION RANDLOCATION]
dorand 4
	p=<eval &&#35123;4446 4553}>,<eval &&#35123;3454 3485}>
	p=<eval &&#35123;4384 4491}>,<eval &&#35123;3133 3148}>
	p=<eval &&#35123;2023 2202}>,<eval &&#35123;3319 3360}>
	p=<eval &&#35123;2410 2530}>,<eval &&#35123;3893 3975}>
endif
LOCAL.TMP=<OBJ>
OBJ=<region.uid>
IF (<obj.type>==t_multi)
OBJ=<LOCAL.TMP>
RANDLOCATION
RETURN 1
ELIF (<region.flags>®ion_flag_guarded) || (<region.flags>®ion_flag_safe) || (<isneartype t_rock>) || (<isneartype t_tree>) || (<isneartype t_door>) || (<isneartype t_wall>) || (<isneartype t_water>) || (<isneartype t_multi 10>) || (<serv.map(<p>).terrain>==0244)
OBJ=<LOCAL.TMP>
RANDLOCATION
RETURN 1
ENDIF
FIX
OBJ=<LOCAL.TMP>

[FUNCTION DUNGLOCATION]
DORAND 6
P=<eval &&#35123;5313 5326}>,<eval &&#35123;577 625}>
P=<eval &&#35123;5394 5592}>,<eval &&#35123;1954 2028}>
P=<eval &&#35123;5388 5512}>,<eval &&#35123;662 754}>
P=<eval &&#35123;5134 5163}>,<eval &&#35123;798 870}>
P=<eval &&#35123;5914 5990}>,<eval &&#35123;147 238}>
P=<eval &&#35123;5515 5621}>,<eval &&#35123;15 119}>
ENDDO
LOCAL.TMP=<OBJ>
OBJ=<region.uid>
IF (<obj.type>==t_multi)
OBJ=<LOCAL.TMP>
DUNGLOCATION
RETURN 1
ELIF (<region.flags>®ion_flag_guarded) || (<region.flags>®ion_flag_safe) || (<isneartype t_rock>) || (<isneartype t_tree>) || (<isneartype t_door>) || (<isneartype t_wall>) || (<isneartype t_water>) || (<isneartype t_multi 10>) || (<serv.map(<p>).terrain>==0244)
OBJ=<LOCAL.TMP>
DUNGLOCATION
RETURN 1
ENDIF
FIX
OBJ=<LOCAL.TMP>

// Protectors

[CHARDEF c_rotting_treasure]
NAME=Royal Guards of Treasure
SOUND=snd_monster_zombie1
ID=C_ZOMBIE
CAN=MT_RUN|MT_WALK

DAM=3,0
ARMOR=35
TEVENTS=e_undead

on=@click
message @03b2,,1, [Treasure Guardian]
message @38 <name>
return 1

ON=@Create
COLOR=042
NPC=brain_undead
STR=300
DEX=175
INT=10

PARRYING=&&#35123;90.0 100.0}
MAGICRESISTANCE=&&#35123;100.0}
TACTICS=&&#35123;90.0 100.0
WRESTLING=&&#35123;120.0 130.0}
POISONING=&&#35123;300.0 700.0}
FAME=&&#35123;300 5000}
KARMA=&&#35123;-6000 -6200}

[CHARDEF c_orc_treasure]
id=c_orc
NAME=Trasure Servants
SOUND=snd_MONSTER_ORC1
ICON=i_pet_ORC
ANIM=078c7f
DAM=3,9
ARMOR=14
CAN=MT_WALK|MT_RUN|MT_USEHANDS|MT_EQUIP
RESOURCES=8 i_ribs_raw
FOODTYPE=15 t_meat_raw
DESIRES=i_gold,spk_orc
TSPEECH=spk_orc
CATEGORY=Monsters
SUBSECTION=Orcs
DESCRIPTION=Orc

on=@click
message @03b2,,1, [Treasure Guardian]
message @38 <name>
return 1

ON=@Create
	NPC=brain_monster
	FAME=&&#35123;100 1000}
	KARMA=&&#35123;-1000 -5000}
	STR=&&#35123;96 120}
	DEX=&&#35123;81 105}
	INT=&&#35123;36 60}
	PARRYING=&&#35123;50.0 75.0}
	MAGICRESISTANCE=&&#35123;50.0 75.0}
	TACTICS=&&#35123;55.0 80.0}
	WRESTLING=&&#35123;50.0 70.0}

[CHARDEF c_m_cyclops_king_treasure]
NAME=Kyrandia King
SOUND=snd_MONSTER_CYCLOPS1
ID=c_CYCLOPS
DAM=6,30
ARMOR=28
RESOURCES=30 i_ribs_raw
FOODTYPE=15 t_meat_raw
CAN=MT_WALK

on=@click
message @03b2,,1, [Treasure Guardian]
message @38 <name>
return 1

ON=@Create
	STR=&&#35123;350 390}
	DEX=&&#35123;95 115}
	INT=&&#35123;37 58}
	MAGICRESISTANCE=&&#35123;60.0 75.0}
	PARRYING=&&#35123;70.0 80.0}
	TACTICS=&&#35123;80.0 100.0}
	WRESTLING=&&#35123;80.0 90.0}
	NPC=BRAIN_MONSTER
	KARMA=&&#35123;-5000 -5999}
	FAME=&&#35123;100 2000}

[CHARDEF c_m_dragon_crystal_treasure]
ID=c_DRAGON_RED
NAME=Lord of the Treasure
SOUND=snd_MONSTER_DRAGON1
ICON=i_pet_dragon
DAM=9,29
ARMOR=36
RESOURCES=99 i_ribs_raw,8 i_reag_dragon_blood,20 i_hide
CAN=MT_WALK|MT_FLY|MT_FIRE_IMMUNE
FOODTYPE=80 t_meat_raw
DESIRES=i_gold
AVERSIONS=r_water,r_civilization

on=@click
message @03b2,,1, [Treasure Guardian]
message @38 <name>
return 1

ON=@Create
	NPC=brain_dragon
	COLOR=07fff
	STR=&&#35123;825 940}
	DEX=&&#35123;105 140}
	INT=&&#35123;435 475}
	PARRYING=&&#35123;55.0 95.0}
	MAGICRESISTANCE=&&#35123;99.0 100.0}
	TACTICS=&&#35123;98.0 100.0}
	WRESTLING=&&#35123;90.0 93.0}
	TAMING=99.0
	FAME=&&#35123;3000 9000}
	KARMA=&&#35123;-5000 -5999}

//Sise
[REGIONRESOURCE mr_bottle_define]
skill=100.0
amount=1
REAP=i_bottle_define
REGEN=60*15*10

//Kutu
[REGIONRESOURCE mr_cont_define]
skill=100.0
amount=1
REAP=i_cont_define
REGEN=60*15*10

[FUNCTION closealldialogs]
IF (<MEMORYFINDTYPE.memory_gumprecord>)
FORCHARMEMORYTYPE memory_gumprecord
TRYSRC <CONT> SRC.DIALOGCLOSE <TAG0.DIALOG_NAME> <ARGN2>
REMOVE
ENDFOR
ENDIF

[function moveback]
doswitch <dir>
begin
if (<canmove s>)
move s
endif
end
begin
if (<canmove sw>)
move sw
endif
end
begin
if (<canmove w>)
move w
endif
end
begin
if (<canmove nw>)
move nw
endif
end
begin
if (<canmove n>)
move n
endif
end
begin
if (<canmove ne>)
move ne
endif
end
begin
if (<canmove e>)
move e
endif
end
begin
if (<canmove se>)
move se
endif
end
begin
if (<canmove s>)
move s
endif
end
enddo

[EOF]

Bu konu HP-Nexiel tarafından düzenlendi(2008-03-28 21:55, 16 yıl önce)

HP-Nexiel : Bu isine yarayabilir sanirim..

eyw saol deneyeyim bi bakalım

kardeş sen bunu denedin mi birebir çalışıyor mu? sorunsuz!!!