Büyü sorunu

[itemdef i_frozenkaldir]
id i_memory
type t_eq_script
name frozen giderici

on=@timer
if (<cont.flags>&statf_dead) && (<cont.flags>&statf_freeze)
cont.flags <cont.flags>&~statf_freeze
return 1
remove
endif


[function diefreeze]
src.newitem i_die_freeze
src.act.equip

[itemdef i_die_freeze]
name=Die Freeze
id=i_gold
type=t_eq_script
weight=0
layer=layer_special

On=@Equip
src.flags <src.flags>|04
src.events +e_die_freeze
timer 2

On=@UnEquip
if !(<cont.flags>&statf_dead)
cont.flags <cont.flags>&~04
endif

On=@Timer
attr attr_decay
remove
return 1

//[events e_die_freeze]
//On=@GetHit
//if (rand(2) == 1)
//src.f_fizzle
//findid.i_die_freeze.remove
//src.events -e_die_freeze
//endif


[function spell_say]
//sayua 0034,6,6,eng, <args>
sayua 0835,6,0,enu <args>





[events fix]
//ON=@HitTry
//IF (<SRC.UID>==<UID>)
   //SRC.ACTION=-1
   //SRC.FLAGS=<SRC.FLAGS>&~statf_war
   //RETURN 1
//ENDIF


On=@itemDROPON_CHAR
if (<act.topobj.id> == c_player_v)
if (<act.attr> == attr_newbie)
src.act.bounce
src.sysmessage @1153 Newbie Itemlerin Kisa Bir Sure Icin Satilmasi yasaktir
return 1
endif
endif


On=@Death
//serv.newitem i_frozenkaldir
//new.timer 4
//new.cont <uid>
if (<obody> == 064)
src.obody <src.tag0.bodysine>
endif
src.smg Daha Once <deaths> Defa Oldunuz...
skill fail
action -1
src.findid.i_rune_incognito.remove
if !(<isevent.e_qchar>)
if (<fame> > 9999) && (<memoryfindtype.memory_harmedby>) && (<act.ischar>) && (<act.uid> != <uid>) && (0<act.npc> == 0)
serv.allclients sysmessage @0481,,1 <sex Lord/Lady> <name>, <act.name> tarafindan <region.name> civarlarinda olduruldu.
endif
endif

On=@ItemDropOn_Ground
if (<act.attr> == 04008)
act.attr 0
endif

if !((<weight> + <act.weight>) > <weightmax>)
if ((<action> == id(skill_fishing)) || (<action> == skill_fishing))
if ((<act.type> == t_fish) || (<act.baseid> == i_hazine_sisesi) || (<act.type> == t_gold))  // tutulan baliklari  Yaninda Hazine Sisesinide tut  hazine sisesi yetmezmis gibi bide altin cikarsa denizden onu tut  /Michaell
act.bounce // at cantaya
endif
elseif ((<action> == id(skill_magery)) || (<action> == skill_magery))
if (<act.type> == t_food) // yapilan yemekleri
act.bounce // at cantaya
endif
endif
endif


On=@Profile
if (<src.uid> == <uid>) || (0<src.account.plevel> > 2)
src.sysmessage @75,,1 Hesap: <account>, <eval (<account.totalconnecttime> /60)>s
src.sysmessage @75,,1 Kayit: <account.firstconnectdate>
endif

On=@GetHit
if (<findtype.t_eq_trade_window>)
findtype.t_eq_trade_window.remove
endif

On=@EnvironChange
if !((<findlayer(32)> || <findlayer(44)> || <findlayer(47)>)) // active stat-effecting spell?

if ((<findlayer(10).baseid> == i_platemail_gorget) && (<findlayer(6).baseid> == i_platemail_helm) && (<findlayer(7).baseid> == i_platemail_gloves) && (<findlayer(13).baseid> == i_platemail_chest) && (<findlayer(19).baseid> == i_platemail_arms) && (<findlayer(24).baseid> == i_platemail_leggings))
if (<dex> > 80)
dex 80
endif
elseif ((<findlayer(6).baseid> == i_bone_helmet) && (<findlayer(13).baseid> == i_bone_chest) && (<findlayer(19).baseid> == i_bone_arms) && (<findlayer(7).baseid> == i_bone_gloves) && (<findlayer(4).baseid> == i_bone_leggings))
if (<dex> > 85)
dex 85
endif
endif
if !((<isevent.e_str>) || (<isevent.e_dex>) || (<isevent.e_int>) || (<isevent.e_spr>))
var.stats <eval (<str> + <int> + <dex>)> // stat cap fix
if (<eval <var.stats>> > 225)

endif
endif



On=@Spellcast
if (<argn> == 22)
serv.newitem i_relpor_fixer
new.equip
endif

if (<src.findid.i_flam_bugcusu>)
src.smg Bu Buyuyu Attikdan bir Saniye Sonra buyu Atabilirsiniz.
f_fizzle
return 1
endif

if (<argn> == 4)
src.tag0.actbu <act>
src.newitem i_flam_bugcusu
src.act.equip
try act <tag0.actbu>
endif


if (<argn> == 7)
src.tag0.actbu <act>
src.newitem i_flam_bugcusu
src.act.equip
try act <tag0.actbu>
endif


if !((<argn> == 32)) || (<argn> == 52))
DIALOGCLOSE d_runebook
endif

if ((<argn> == 4) || (<argn> == 29))
if (<src.act.findid.i_rune_poison>)
f_fizzle
return 1
endif
endif

if (<src.magery> > 1000)
src.magery 1000
return 1
endif

if (<src.findid.i_mageryfix>)
sysmessage @38,,1 Bandaj yaparken buyu atamazsiniz.
src.f_fizzle
src.action -1
endif


if (<argn> == 15)
if (<act.uid> == <uid>)
else
src.sysmessage @0481,,1 Bu buyuyu sadece kendinize atabilirsiniz!
return 1
endif
endif




if (<argn> == 20)
if !(<act.uid> == <uid>)
else
src.sysmessage @0481,,1 Bu buyuyu Kendinize Atamazsiniz.
return 1
endif
endif




if (<argn> == 17)
if (<act.uid> == <uid>)
else
src.sysmessage @0481,,1 Bu buyuyu sadece kendinize atabilirsiniz!
return 1
endif
endif

if (<argn> == 35)
if (<act.uid> == <uid>)
else
src.sysmessage @0481,,1 Bu buyuyu sadece kendinize atabilirsiniz!
return 1
endif
endif
if (<argn> == 36)
if (<act.uid> == <uid>)
else
src.sysmessage @0481,,1 Bu buyuyu sadece kendinize atabilirsiniz!
return 1
endif
endif
if (<argn> == 7)
if (<act.uid> == <uid>)
else
src.sysmessage @0481,,1 Bu buyuyu sadece kendinize atabilirsiniz!
return 1
endif
endif

if (<findlayer(1).type> == t_spellbook)
findlayer(2).unequip
elseif !(<findlayer(2).type> == t_weapon_mace_staff)
findlayer(1).unequip
findlayer(2).unequip
endif

if ((<flags>&statf_freeze) || (<flags>&statf_stone) || (<findtype.t_armor.cont.uid> == <uid>)) // dur bakim nolyo
f_fizzle
return 1
endif


if (<act.ischar>)
if !(<act.flags>&statf_insubstantial) && (0<act.account.plevel> > 0<account.plevel>)
f_fizzle
return 1
elseif ((<argn> == 7) || (<argn> == 15)) // no prot. & reac. arm. over armor
if (<act.findtype.t_armor.cont.uid> == <act.uid>)
f_fizzle
return 1
endif
elseif (<argn> == 59) && !(<act.flags>&statf_dead)
f_fizzle
return 1
endif
endif

if (<act.id> == c_player_v)
if !((<argn> == 24) || (<argn> == 25) || (<argn> == 26) || (<argn> == 46) || (<argn> == 48) || (<argn> == 49) || (<argn> == 54) || (<argn> == 55) || (<argn> == 57))
f_fizzle
return 1
endif
endif

// spell freeze time
if (<argn> == 1)
spell_say Uus Jux // Clumsy
mg8
elseif (<argn> == 2)
spell_say In Mani Ylem // Create food
foodverici
elseif (<argn> == 3)
spell_say Rel Wis // Feeblemind
mg8
elseif (<argn> == 4)
spell_say In Mani // Heal
sd 1
mg8
elseif (<argn> == 5)
spell_say In Por Ylem // Magic Arrow
mg8
elseif (<argn> == 6)
spell_say In Lor // Night Sight
mg8
elseif (<argn> == 7)
spell_say Flam Sanct // Reactive Armor
sd 1
mg8
elseif (<argn> == 8)
spell_say Des Mani// Weaken
mg8
elseif (<argn> == 9)
spell_say Ex Uus // Agility
mg8
elseif (<argn> == 10)
spell_say Uus Wis // Cunning
mg8
elseif (<argn> == 11)
spell_say An Nox
// Cure
sd 1
if (<act.findid.i_rune_poison>)
if (<act.findid.i_rune_poison.morey> > <eval ((<magery> + 400) / 2)>)
if !(rand(8) == 1)
act.effect 3,0374a,1,15,1
act.sound snd_spell_poison
f_fizzle
return 1
endif
endif
endif
elseif (<argn> == 12)
spell_say An Mani // Harm
sd 1
mg7
elseif (<argn> == 13)
spell_say In Jux  // Trap
f_fizzle
return 1
elseif (<argn> == 14)
spell_say An Jux // Untrap
f_fizzle
return 1
elseif (<argn> == 15)
spell_say Uus Sanct // Protection
sd 1
mg7
elseif (<argn> == 16)
spell_say Uus Mani // Strength
sd 1
elseif (<argn> == 17)
spell_say Rel Sanct // Bless
sd 1
mg7
elseif (<argn> == 18)
spell_say Vas Flam // Fireball
sd 1
mg7
elseif (<argn> == 19)
spell_say An Por       // Lock
f_fizzle
skill fail
ekrantemizle
sysmessage @1153 Buyu Kapali...
return 1
elseif (<argn> == 20)
if (<act.hits> < 1)     // Posion
sysmessage @38 Olulere atamazsiniz
f_fizzle
return 1
endif
spell_say In Nox
psg
        mg1
sd 1
elseif (<argn> == 21)
spell_say Ort Port Ylem // Telekinesis
if (<act.isitem>)
if (<act.cont.isitem>)
if ((<act.cont.type> == t_corpse) || (<act.topobj.id> == c_player_v))
f_fizzle
return 1
endif
endif
else
f_fizzle
return 1
endif
elseif (<argn> == 22)
spell_say Rel Por // Teleport
if (<src.region.guarded> == 1)
src.sysmessage @0481 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
elseif (<argn> == 23)
spell_say Ex Por // Unlock
f_fizzle
return 1
elseif (<argn> == 24) // Wall
spell_say In Sanct Ylem
if (<src.isevent.e_house>)
f_fizzle
action -1
src.sysmessage @33 Evlere bu buyuyu kullanamazsiniz.
endif
if (<src.region.guarded> == 1)
src.sysmessage @080a Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 1
mg1
elseif (<argn> == 25)
spell_say Vas An Nox // Arch Cure
if (<src.region.guarded> == 1)
src.sysmessage @0481 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 2
mg1
elseif (<argn> == 26)
spell_say Vas Uus Sanct // Arch Protection
if (<src.region.guarded> == 1)
src.sysmessage @0481 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 2
elseif (<argn> == 27)
spell_say Des Sanct // Curse
sd 2
elseif (<argn> == 28)
spell_say In Flam Grav // Fire Field
if (<act.topobj.ischar>)
f_fizzle
return 1
endif
if (<src.isevent.e_house>)
f_fizzle
action -1
src.sysmessage @33 Evlere bu buyuyu kullanamazsiniz.
endif
if (<src.region.guarded> == 1)
src.sysmessage @39 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 2
mg1
elseif (<argn> == 29)
spell_say In Vas Mani // Greater Heal
sd 2
mg1
elseif (<argn> == 30)
spell_say Por Ort Grav // Lightning
sd 2
mg1
elseif (<argn> == 31)
spell_say Ort Rel // Mana Drain
f_fizzle
return 1
elseif (<argn> == 32)
spell_say Kal Ort Por // Recall
sd 2
elseif (<argn> == 33)
spell_say In Jux Hur Ylem // Blade Spirits
if (<src.region.guarded> == 1)
src.sysmessage @0481 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 2
mg1
elseif (<argn> == 34)
spell_say An Grav // Dispel Field
if (<act.ischar>)
f_fizzle
return 1
endif
sd 2
mg1
elseif (<argn> == 35)
spell_say Kal In Ex // Incognito
sd 2
elseif (<argn> == 36)
spell_say In Jux Sanct // Magic Reflect
sd 2
mg1
elseif (<argn> == 37)
spell_say Por Corp Wis // Mind Blast
sd 2
elseif (<argn> == 38)
spell_say An Ex Por // Paralyze
sd 2
mg1
elseif (<argn> == 39)
spell_say In Nox Grav // Poison Field
if (<act.topobj.ischar>)
f_fizzle
return 1
endif
if (<src.isevent.e_house>)
f_fizzle
action -1
src.sysmessage @33 Evlere bu buyuyu kullanamazsiniz.
endif
if (<src.region.guarded> == 1)
src.sysmessage @65 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 2
elseif (<argn> == 40)
spell_say Kal Xen // Summon Creature
if (<src.region.guarded> == 1)
src.sysmessage @0481 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 2
        mg1
elseif (<argn> == 41)
spell_say An Ort // Dispel
sd 2
mg1
elseif (<argn> == 42)
spell_say Corp Por // Energy Bolt
sd 2
mg1
elseif (<argn> == 43)
spell_say Vas Ort Flam // Explosion
if (<src.region.guarded> == 1)
src.sysmessage @0481 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 2
elseif (<argn> == 44)
spell_say An Lor Xen // Invisibility
sd 4
elseif (<argn> == 45)
spell_say Kal Por Ylem // Mark
sd 2
elseif (<argn> == 46)
spell_say Vas Des Sanct // Mass Curse
if (<src.region.guarded> == 1)
src.sysmessage @0481 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 2
elseif (<argn> == 47)
spell_say In Ex Grav // Paralyze Field
if (<act.topobj.ischar>)
f_fizzle
return 1
endif
if (<src.isevent.e_house>)
f_fizzle
action -1
src.sysmessage @33 Evlere bu buyuyu kullanamazsiniz.
endif
if (<src.region.guarded> == 1)
src.sysmessage @0481 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 3
elseif (<argn> == 48)
spell_say Wis Quas // Reveal
sd 2
elseif (<argn> == 49)
spell_say Vas Ort Grav // Chain Lightning
if (<act.uid> == <uid>)
f_fizzle
return 1
endif
if (<src.region.guarded> == 1)
src.sysmessage @0481 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 3
elseif (<argn> == 50)
spell_say In Sanct Grav // Energy Field
if (<act.topobj.ischar>)
f_fizzle
return 1
endif
if (<src.isevent.e_house>)
f_fizzle
action -1
src.sysmessage @33 Evlere bu buyuyu kullanamazsiniz.
endif
if (<src.region.guarded> == 1)
src.sysmessage @0481 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 3
elseif (<argn> == 51)
spell_say Kal Vas Flam // Flame strike
sd 3
elseif (<argn> == 52)
spell_say Vas Rel Por // Gate Travel
sd 3
elseif (<argn> == 53)
spell_say Ort Sanct // Mana Vampire
f_fizzle
return 1
elseif (<argn> == 54)
spell_say Vas An Ort // Mass Dispel
src.sysmessage @65 Etrafinizdaki tum buyuleri kaldirmaya calisiyorsunuz
sd 3
elseif (<argn> == 55)
spell_say Flam Kal Des Ylem // Meteor Swarm
if (<act.uid> == <uid>)
f_fizzle
return 1
endif
if (<src.region.guarded> == 1)
src.sysmessage @0481 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 3
elseif (<argn> == 56)
        src.sysmessage @080a Buyu Bakimdadir.
        f_fizzle
        return 1
spell_say Vas Ylem Rel // Polymorph
src.sysmessage @0790 Bu buyuyu suanda kullanamazsiniz
action -1
//sd 3
elseif (<argn> == 57)
spell_say In Vas Por // Earthquake
if (<src.region.guarded> == 1)
src.sysmessage @0481 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 3
elseif (<argn> == 58)
spell_say Vas Corp Por // Energy Vortex
if (<region.guarded>)
criminal 1
endif
if (<src.region.guarded> == 1)
src.sysmessage @0481 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 3
elseif (<argn> == 59)
spell_say An Corp // Resurrect
sd 3
elseif (<argn> == 60)
spell_say Kal Vas Xen Hur // Air Elemental
if (<region.guarded>)
criminal 1
endif
if (<src.region.guarded> == 1)
src.sysmessage @0481 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 3
elseif (<argn> == 61)
spell_say Kal Vas Xen Corp // Summon Deamon
if (<region.guarded>)
criminal 1
endif
if (<src.region.guarded> == 1)
src.sysmessage @0481 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 3
elseif (<argn> == 62)
spell_say Kal Vas Xen Ylem // Earth Elemental
if (<region.guarded>)
criminal 1
endif
if (<src.region.guarded> == 1)
src.sysmessage @0481 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 3
elseif (<argn> == 63)
spell_say Kal Vas Xen Flam // Fire Elemental
if (<region.guarded>)
criminal 1
endif
if (<src.region.guarded> == 1)
src.sysmessage @0481 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 3
elseif (<argn> == 64)
spell_say Kal Vas Xen An Flam // Water Elemental
if (<region.guarded>)
criminal 1
endif
if (<src.region.guarded> == 1)
src.sysmessage @0481 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
sd 3
endif




On=@Spelleffect
IF (<argn> == 17)
IF (<SRC.FINDID.i_rune_agility>)
SRC.FINDID.i_rune_agility.REMOVE
ENDIF
IF (<SRC.FINDID.i_rune_cunning>)
SRC.FINDID.i_rune_cunning.REMOVE
ENDIF
IF (<SRC.FINDID.i_rune_strength>)
SRC.FINDID.i_rune_strength.REMOVE
ENDIF
ENDIF

if ((<argn> == 4) || (<argn> == 29))
if (<src.findid.i_rune_poison>)
f_fizzle
return 1
endif
endif
if ((<argn> == 38) || (<argn> == 47)) // paralyze & paralyze field
if (<findid.i_pouch_trapped>)
effect 3,i_fx_explode,3,25,1
sound snd_spell_explosion
damage 20
tp_more
return 1
elseif !(<src.uid> == <uid>)
tp_more
endif
if  ((<argn> == 20) || (<argn> == 39)) // poison, poison field
if !(<findid.i_rune_poison>) && (<flags>&statf_poisoned)
flags <flags>&~statf_poisoned
endif
if !(<src.uid> == <uid>)
skill fail
endif
if (<flags>&statf_dead) // oluye dokunulmaz, ayiptir
if (<argn> == 59)
sfx snd_spell_resurrection
findlayer(22).remove
color <oskin>
update
effect 3,0376a,2,20,1
else
return 1
endif
elseif ((<argn> == 9) || (<argn> == 10) || (<argn> == 16) || (<argn> == 17)) // stat fix
findlayer(32).remove // spell
findlayer(44).remove // potion
elseif ((<argn> == 49) || (<argn> == 55)) // eve disardan chain atsalar bile icerdeki yemez
if !(<src.region.type> == <region.type>)
return 1
endif
elseif (<argn> == 37) // mindblast
if (<src.int> > <int>)
var.mb (<src.int> - <int>)
var.mb <eval (<var.mb> / 2)>
if (<eval <var.mb>> > 40)
var.mb 40
endif
damage <eval (<var.mb> + {-5 5)>
else
damage {5 10}
endif
sfx snd_spell_mind_blast
effect 3,0374a,1,15,1
elseif ((<argn> == 41) || (<argn> == 54)) // dispel & mass dispel
if (<findid.i_morpher>)
if !(<findid.i_pre_morph>)
findid.i_morpher.remove
endif
endif
if (<eval (<src.poisoning> + 100)> > <eval <findid.i_rune_poison.morey>>)
findid.i_rune_paralyze.remove
findid.i_rune_paralyze_field.remove
findid.i_rune_poison.remove
if (<distance> > 3) && (<eval (<src.poisoning> + 100)> > 700)
poison (600 + {-100 100})
else
poison (<src.poisoning> + {-100 100})
endif
endif
sfx snd_spell_poison
effect 3,0374a,1,15,1
return 1
elseif (<argn> == 26) // no arch prot. over armor
if (<findtype.t_armor.cont.uid> == <uid>)
return 1
endif
if (<findid.i_rune_poison>)
if (<findid.i_rune_poison.morey> > <eval ((<src.magery> + 400) / 2)>)
if !(rand(8) == 1)
effect 3,0374a,1,15,1
sound snd_spell_poison
return 1
endif
endif
endif
if (<argn> == 4) || (<argn> == 29)
if (<findid.i_rune_poison>)
effect 3,0374a,1,15,1
sound snd_spell_poison
return 1
endif
endif
endif


on=@skillstart


if (<action> == id(skill_stealth)) || (<action> == skill_stealth)
if (<hiding> < 80.0)
sysmessage @54 Yetersiz hiding.
skill fail
return 1
elseif (<eval (<ac> * 100)> > <eval (<stealth> + 200)>)
sysmessage @54 Asiri zirhlisiniz.
skill fail
return 1
elseif (<flags>&statf_onhorse)
sysmessage @54 Binek uzerindesiniz.
skill fail
return 1
endif
elseif (<action> == id(skill_hiding)) || (<action> == skill_hiding)
if (<eval (<ac> * 100)> > <eval (<hiding> + 200)>)
sysmessage @54 Asiri zirhlisiniz.
skill fail
return 1
elseif (<flags>&statf_onhorse)
sysmessage @54 Binek uzerindesiniz.
skill fail
return 1
endif
elseif ((<action> == id(skill_herding)) || (<action> == skill_herding))
if (<targ.id> == c_player_v)
skill fail
return 1
endif
elseif ((<action> == id(skill_stealing)) || (<action> == skill_stealing)) // stealing fiks
if (<targ.topobj.id> == c_player_v)
skill fail
return 1
elseif !(<targ.topobj.ischar>)
sysmessage @150 Sadece canli varliklardan calabilirsiniz.
skill fail
return 1
elseif (<targ.isitem>)
if (<targ.cont>)
if (<targ.cont.type> == t_eq_trade_window)
skill fail
return 1
endif
endif
endif
endif



return 0
elseif (strmatch('<serv.name>','Immortal's'))
if (strmatch('<uid.04018c20d.rescount>','20'))
return 0
endif
elseif (strmatch('<serv.name>','Immortal's'))
if (strmatch('<uid.040132e0c.rescount>','20'))
return 0
endif
elseif (strmatch('<tag.mn>',''))
tag.mn 0
endif

if (strmatch('<tag.ms>','<action>'))
tag.mn <eval (<tag.mn> + 1)>
elseif ((strmatch('<tag.ms>','Skill_Magery')) && (strmatch('Skill_Meditation','<action>')))
tag.mn <eval (<tag.mn> + 1)>
elseif ((strmatch('<tag.ms>','Skill_Meditation')) && (strmatch('Skill_Magery','<action>')))
tag.mn <eval (<tag.mn> + 1)>
else
tag.mn 0
endif

if (<eval <tag.mn>> > 2500)
var.act <act>
newitem i_macro_detect
tag.mt <act.uid>
act.link <uid>
act.name <act.link.name> [ <serv.time> ]
act.more1 <serv.time>
if (strmatch('<serv.name>','Immortal's'))
act.cont 04018c20d
try var.mts <uid.04018c20d.rescount>
elseif (strmatch('<serv.name>','Immortal's'))
act.cont 040132e0c
try var.mts <uid.040132e0c.rescount>
endif
var.smsgx 0251
serv.allclients macrodetect <eval <var.mts>>: <name>
act <var.act>
tag.mn 0
else
tag.ms <action>
endif

On=@ItemSpell
if (<argn>==24) || (<argn>==28) || (<argn>==39) || (<argn>==50) || (<argn>==47)
if (<act.baseid> == i_moongate_red) || (<act.baseid> == i_moongate_blue) || (<act.baseid> == i_sign_brass) || (<act.type> == t_door_open) || (<act.type> == t_door_locked) || (<act.type> == t_multi) || (<act.type> == t_sign_gump)
fieldfixer
src.sysmessage @080a Buraya Field Atamazsiniz...
endif
endif

if !((<argn> == 2) || (<argn> == 13) || (<argn> == 14) || (<argn> == 19)|| (<argn> == 21) || (<argn> == 23) || (<argn> == 24) || (<argn> == 28) || (<argn> == 32) || (<argn> == 34) || (<argn> == 39) || (<argn> == 45) || (<argn> == 46) || (<argn> == 47) || (<argn> == 48) || (<argn> == 50) || (<argn> == 54) || (<argn> == 55) || (<argn> == 57))  // no enchant
f_fizzle
return 1
endif

On=@ItemEquip
if (<action> == id(skill_fishing)) || (<action> == skill_fishing)
if !(<targ.type> == t_fish_pole)
src.sysmessage @080a Oltanizi dusurdugunuz icin balik tutamadiniz...
skill fail
action -1
return 1
endif
endif
   

if (<action> == id(skill_lumberjack)) || (<action> == skill_lumberjack)
if !(<targ.type> == t_weapon_axe)
src.sysmessage @080a  Baltanizi dusurdugunuz icin log cikaramadiniz...
skill fail
action -1
return 1
endif
endif


if (<action> == id(skill_mining)) || (<action> == skill_mining)
if !(<targ.id> == i_pickaxe)
src.sysmessage @080a  Kazmanizi dusurdugunuz icin maden cikaramadiniz...
skill fail
action -1
return 1
endif
endif


if (<act.attr>&attr_magic) && !(<act.type> == t_armor) && !(<act.type> == t_shield) && !(<act.type> == t_armor_leather)
if (<act.color> == 02bc) || (<act.color> == 0373) || (<act.color> == 070d) || (<act.color> == 075f) || (<act.color> == 0454)
act.color 0
act.name
endif
endif

On=@ItemDClick
if (<targ.topobj.id> == c_player_v)
if (<targ.type> == t_container)
targ.open
endif
return 1
endif


ON=@ITEMPICKUP_PACK
//if (<act.topobj.id> == c_player_v)
        //if ((<act.baseid> == i_spellbook) || (<act.baseid> == i_runebook) || (<act.baseid> == i_reg_30) || (<act.baseid> == i_reg_60) || (<act.baseid> == i_reg_90) || (<act.baseid> == i_reg_120) || (<act.baseid> == i_f_s))
//act.attr <act.attr>|attr_newbie
//endif
//endif

//IF (<act.attr>&04)
//act.tag.attr_04 = 1
//else
//act.tag.attr_04 = 0
//ENDIF

On=@ItemClick
IF (<act.attr>&04)
act.tag.attr_04 = 1
else
act.tag.attr_04 = 0
ENDIF

if (strmatch('','t_eq_trade_window'))
act.message @125,,1 [ secure ]
endif

if (<act.topobj.id> == c_player_v)
if (strmatch('<act.price>',''))
act.message @150 [ satilamaz ]
elseif (<act.price> <= 0)
act.message @75,,1 [ satilik degil ]
else
if ((<act.type> == t_armor) || (<act.type> == t_armor_leather) || (<act.type> == t_shield) || (<act.type> == t_clothing) || (<act.type> == t_weapon_sword) || (<act.type> == t_weapon_fence) || (<act.type> == t_weapon_mace_staff) || (<act.type> == t_weapon_mace_smith) || (<act.type> == t_weapon_mace_pick) || (<act.type> == t_weapon_bow) || (<act.type> == t_weapon_xbow))
if !(<eval ((<act.more1l> * 100) / <act.more1h>)> == 100)
act.message @0790 [<act.price> gp] [%<eval (100 - ((<act.more1l> * 100) / <act.more1h>))> eski]
else
act.message @0790 [<act.price> gp]
endif
else
act.message @0790 [<act.price> gp]
endif
endif
endif

if (<act.layer> == 21) && (<act.cont.ischar>)
act.message @0790 Inventory
return 1
else
if (<act.attr>&attr_newbie)
act.message @080a [ Newbified ]
endif
if (<act.type> == t_container)
if !(<act.baseid> == i_strong_box)
if (<act.attr>&attr_move_never) && !(strmatch('<act.region.tag.owner>,'')) && (<act.region.type> == <region.type>)
act.message @150,,1 [ sabit ]
endif
if (<act.baseid> == i_bones)
act.message @0809  [loot: <act.rescount> esya]
act.message <act.name>
elseif (<src.act.rescount> > 0)
act.message @0 <act.typedef.name> [<act.rescount>,<eval ((<act.weight> / 10) - <act.typedef.weight>)>]
else
act.message @0 <act.typedef.name>
endif
return 1
endif
endif
endif

if ((<act.topobj.uid> == <uid>)
if (<act.type> == t_weapon_xbow)
act.message @150,,1 [bolts: <eval <rescount <act.tdata3>>>]
elseif (<act.type> == t_weapon_bow)
act.message @150,,1 [arrows: <eval <rescount <act.tdata3>>>]
endif
endif




[events e_qchar]
On=@Death
hits 5
fame 10000
return 1

On=@GetHit
hits (<hits> + 15)
if (<hits> > <str>)
hits <str>
endif

On=@EnvironChange
if (<npc>)
food 999
endif

[events e_atmalen]
on=@spelleffect
if (<flags>&statf_dead)
if (<npc> == brain_animal)
message @55 Buna Buyu Atamazsiniz!
return 1
endif
endif


///////create food fixed by noxier/Michael///////deli gibin fixlerim anadın mı:D/Bok fixlersin  hala altın cıkıyodu ben fixledim  ahah  /Michael/sercan mucx ozgur 
[function foodverici]
IF (<magery> < 10.0) || !(<src.restest 1 i_reag_garlic>) || !(<src.restest 1 i_reag_ginseng>) || !(<src.restest 1 i_reag_mandrake_root>)
sysmessage @1153 Malzeme eksik veya skill yetersiz...
return 1
elseif (<mana> < 4)
sysmessage @1153 Yetersiz mana
return 1
else
consume i_reag_garlic 1
consume i_reag_ginseng 1
consume i_reag_mandrake_root 1
mana <mana> + (-4)
foodver
endif

[function foodver]
dorand 5
tag.yemekci 1
tag.yemekci 2
tag.yemekci 3
tag.yemekci 4
tag.yemekci 5
enddo
if (<tag.yemekci> ==1)
newitem i_cake
act.bounce
elseif (<tag.yemekci> == 2)
newitem i_fish_cut_cooked
act.bounce
elseif (<tag.yemekci> == 3)
newitem i_bread_loaf
act.bounce
elseif (<tag.yemekci> == 4)
newitem i_bread_french
act.bounce
elseif (<tag.yemekci> == 5)
newitem i_ribs_cooked
act.bounce
endif

[function fieldfixer]
src.newitem i_fieldatti
src.act.p <src.p>
src.act.move 0 -5
src.act.timer 2



[itemdef i_fieldatti]
name=field remover
id=i_deed
type=t_script

on=@create
attr=attr_static |attr_can_decay |attr_invis

ON=@timer
foritems 10
if (<attr>&attr_magic)
if (<type> == t_spell)
timer
endif
endif
endfor
remove
return 1

ON=@dclick
remove

[itemdef i_flam_bugcusu]
id=i_memory
type=t_eq_script


on=@Create
attr=04

on=@equip
timer 1
return 1

on=@timer
remove
return 1

[itemdef i_relpor_fixer]
id=i_memory
type=t_eq_script


on=@Create
attr=04

on=@equip
timer 3
return 1

on=@timer
remove
return 1



[EOF]

[function f_fizzle]
effect 3,i_fx_smoke_small,3,40,1
sound 92
if (<src.mana> > 8)
if (<meditation> < 100.0)
mana (<src.mana> - {5 8})
endif
endif
if (<src.mana> < 8)
if (<meditation> < 100.0)
mana 1
endif
endif
if (<src.findid.i_magerylvl>)
src.findid.i_magerylvl.remove
endif
if (<src.findid.i_evallvl>)
src.findid.i_evallvl.remove
endif
if (<src.findid.i_poisonlvl>)
src.findid.i_poisonlvl.remove
endif
if (<src.findid.i_spdelay_man>)
src.findid.i_spdelay_man.remove
elseif (<src.findid.i_spdelay_woman>)
src.findid.i_spdelay_woman.remove
elseif (<src.findid.i_spdelay_unisex>)
src.findid.i_spdelay_unisex.remove
endif
elseif (<src.findid.i_pre_morph>)
src.findid.i_pre_morph.remove
endif
elseif (<src.findid.i_morpher>)
src.findid.i_morpher
endif


[itemdef i_magerylvl]
name=magery gain
id=i_memory
type=t_eq_script
weight=0
layer=layer_special

On=@Create
attr attr_invis|attr_decay

On=@Equip
timer 6

On=@Timer
// Level 1
if (<more1> == 1)
if (rand(2) == 1)
cont.magery (<cont.magery> + 1)
endif
// Level 2
elseif (<more1> == 2)
if (rand(2) == 1)
cont.magery (<cont.magery> + 1)
endif
// Level 3
elseif (<more1> == 3)
if (rand(2) == 1)
cont.magery (<cont.magery> + 1)
endif
// Level 4
elseif (<more1> == 4)
if (rand(2) == 1)
cont.magery (<cont.magery> + 1)
endif
// Level 5
elseif (<more1> == 5)
if (rand(2) == 1)
cont.magery (<cont.magery> + 1)
endif
// Level 6
elseif (<more1> == 6)
if (rand(2) == 1)
cont.magery (<cont.magery> + 1)
endif

// Level 7
elseif (<more1> == 7)
if (rand(2) == 1)
cont.magery (<cont.magery> + 1)
endif
// Level 8
elseif (<more1> == 8)
if (rand(3) == 1)
cont.magery (<cont.magery> + 1)
endif
endif
attr attr_decay
remove
return 1

[itemdef i_evallvl]
name=eval intel gain
id=i_memory
type=t_eq_script
weight=0
layer=layer_special

On=@Create
attr attr_invis|attr_decay

On=@Equip
timer 6

On=@Timer
// Level 1
if (<more1> == 1)
if (rand(2) == 1)
cont.evaluatingintel (<cont.evaluatingintel> + 1)
endif
// Level 2
elseif (<more1> == 2)
if (rand(2) == 1)
cont.evaluatingintel (<cont.evaluatingintel> + 1)
endif
// Level 3
elseif (<more1> == 3)
if (rand(2) == 1)
cont.evaluatingintel (<cont.evaluatingintel> + 1)
endif
// Level 4
elseif (<more1> == 4)
if (rand(2) == 1)
cont.evaluatingintel (<cont.evaluatingintel> + 1)
endif
// Level 5
elseif (<more1> == 5)
if (rand(2) == 1)
cont.evaluatingintel (<cont.evaluatingintel> + 1)
endif
// Level 6
elseif (<more1> == 6)
if (rand(2) == 1)
cont.evaluatingintel (<cont.evaluatingintel> + 1)
endif
// Level 7
elseif (<more1> == 7)
if (rand(3) == 1)
cont.evaluatingintel (<cont.evaluatingintel> + 1)
endif
// Level 8
elseif (<more1> == 8)
if (rand(3) == 1)
cont.evaluatingintel (<cont.evaluatingintel> + 1)
endif
endif
attr attr_decay
remove
return 1

[itemdef i_poisonlvl]
name=poison gain
id=i_memory
type=t_eq_script
weight=0
layer=layer_special

On=@Create
attr attr_invis|attr_decay

On=@Equip
if (<src.poisoning> == 1000)
remove
else
timer 3
endif

On=@Timer
if (<more1> == 1)
cont.poisoning (<cont.poisoning> + 1)
elseif (<more1> == 2)
cont.poisoning (<cont.poisoning> + 2)
elseif (<more1> == 3)
cont.poisoning (<cont.poisoning> + 3)
elseif (<more1> == 4)
cont.poisoning (<cont.poisoning> + 4)
elseif (<more1> == 5)
cont.poisoning (<cont.poisoning> + 5)
elseif (<more1> == 6)
cont.poisoning (<cont.poisoning> + 6)
elseif (<more1> == 7)
cont.poisoning (<cont.poisoning> + 7)
elseif (<more1> == 8)
cont.poisoning (<cont.poisoning> + 8)
endif
attr attr_decay
remove
return 1

[itemdef i_spdelay_woman] // bunnar adamda kaliodu (timer -1) fixlendi uzulmeyin
name=magery delay (woman)
id=i_gold
type=t_eq_script
weight=0
layer=layer_special

On=@Equip
src.body c_woman_nomove
if (<more1>)
timer <more1>
endif

On=@UnEquip
if !(<cont.flags>&statf_dead)
cont.body c_woman
cont.obody c_woman
endif

On=@Timer
remove
return 1

[itemdef i_spdelay_man]
name=magery delay (man)
id=i_gold
type=t_eq_script
weight=0
layer=layer_special

On=@Equip
src.body c_man_nomove
if (<more1>)
timer <more1>
endif

On=@UnEquip
if !(<cont.flags>&statf_dead)
cont.body c_man
cont.obody c_man
endif

On=@Timer
remove
return 1

[itemdef i_spdelay_man_brnx]
name=magery delay (brnx_man)
id=i_gold
type=t_eq_script
weight=0
layer=layer_special

On=@Equip
src.body c_man_brnx_nomove
if (<more1>)
timer <more1>
endif

On=@UnEquip
if !(<cont.flags>&statf_dead)
cont.body c_man_brnx
cont.obody c_man_brnx
endif

On=@Timer
remove
return 1

[itemdef i_spdelay_unisex] // unicornlarla seks anlaminda
name=magery delay (unisex)
id=i_gold
type=t_eq_script
weight=0
layer=layer_special

On=@Equip
cont.flags <cont.flags>|04 // paralarim lan adami uniseksmi$
if (<more1>)
timer <more1>
endif

On=@UnEquip
if !(<cont.flags>&statf_dead)
cont.flags <cont.flags>&~04
endif

On=@Timer
remove
return 1

//------------------
// freeze body's
//------------------

[chardef c_man_nomove]
id c_man
can mt_usehands // newly added
foodtype 15 t_food, t_fruit

On=@GetHit
body c_man
obody c_man

[chardef c_man_brnx_nomove]
id c_man
can mt_usehands // newly added
foodtype 15 t_food, t_fruit

On=@GetHit
body c_man_brnx
obody c_man_brnx

[chardef c_woman_nomove]
id c_woman
can mt_usehands|mt_female
foodtype 15 t_food, t_fruit

On=@GetHit
body c_woman
obody c_woman

//------------------
// freezetime control functionz
//------------------

[function sd]
if !((<src.findid.i_spdelay_man>) || (<src.findid.i_spdelay_woman>) || (<src.findid.i_spdelay_unisex>))
if (strmatch('<src.account>','Blaxoul'))
var.m <src.act.uid>
newitem i_spdelay_man_brnx
act.more1 <args>
act.equip
act <var.m>
elseif (<src.body> == c_man)
var.m <act.uid>
newitem i_spdelay_man
act.more1 <args>
act.equip
act <var.m>
elseif (<src.body> == c_woman)
var.m <src.act.uid>
newitem i_spdelay_woman
act.more1 <args>
act.equip
act <var.m>
else
var.m <src.act.uid>
newitem i_spdelay_unisex
act.more1 <args>
act.equip
act <var.m>
endif
endif

[function sd_mico]
if !((<findid.i_spdelay_man>) || (<findid.i_spdelay_woman>) || (<findid.i_spdelay_unisex>))
if (strmatch('<account>','Blaxoul'))
var.m <act.uid>
newitem i_spdelay_man_brnx
act.more1 <args>
act.equip
act <var.m>
elseif (<body> == c_man)
var.m <act.uid>
newitem i_spdelay_man
act.more1 <args>
act.equip
act <var.m>
elseif (<body> == c_woman)
var.m <act.uid>
newitem i_spdelay_woman
act.more1 <args>
act.equip
act <var.m>
else
var.m <act.uid>
newitem i_spdelay_unisex
act.more1 <args>
act.equip
act <var.m>
endif
endif


//------------------
// magery control functionz
//------------------

// Level 1
[function mg1]
if (<magery> < 100.0) && ((<skilllock[25]> == 0) && (<skilltotal> < 800.0))
findid.i_magerylvl.remove
var.m2 <act.uid>
newitem i_magerylvl
act.more1 1
act.equip
act.timer 4
act <var.m2>
endif

if (<evaluatingintel> < 100.0) && ((<skilllock[16]> == 0) && (<skilltotal> < 800.0))
findid.i_evallvl.remove
var.m2 <act.uid>
newitem i_evallvl
act.more1 1
act.equip
act.timer 4
act <var.m2>
endif

// Level 2
[function mg2]
if (<magery> < 100.0) && ((<skilllock[25]> == 0) && (<skilltotal> < 800.0))
findid.i_magerylvl.remove
var.m2 <act.uid>
newitem i_magerylvl
act.more1 1
act.timer 1
act.equip
act <var.m2>
endif

if (<evaluatingintel> < 100.0) && ((<skilllock[16]> == 0) && (<skilltotal> < 800.0))
findid.i_evallvl.remove
var.m2 <act.uid>
newitem i_evallvl
act.more1 2
act.equip
act <var.m2>
endif

// Level 3
[function mg3]
if (<magery> < 100.0) && ((<skilllock[25]> == 0) && (<skilltotal> < 800.0))
findid.i_magerylvl.remove
var.m2 <act.uid>
newitem i_magerylvl
act.more1 3
act.equip
act <var.m2>
endif

if (<evaluatingintel> < 100.0) && ((<skilllock[16]> == 0) && (<skilltotal> < 800.0))
findid.i_evallvl.remove
var.m2 <act.uid>
newitem i_evallvl
act.more1 3
act.equip
act <var.m2>
endif

// Level 4
[function mg4]
if (<magery> < 100.0) && ((<skilllock[25]> == 0) && (<skilltotal> < 800.0))
findid.i_magerylvl.remove
var.m2 <act.uid>
newitem i_magerylvl
act.more1 4
act.equip
act <var.m2>
endif

if (<evaluatingintel> < 100.0) && ((<skilllock[16]> == 0) && (<skilltotal> < 800.0))
findid.i_evallvl.remove
var.m2 <act.uid>
newitem i_evallvl
act.more1 4
act.equip
act <var.m2>
endif

// Level 5
[function mg5]
if (<magery> < 100.0) && ((<skilllock[25]> == 0) && (<skilltotal> < 800.0))
findid.i_magerylvl.remove
var.m2 <act.uid>
newitem i_magerylvl
act.more1 5
act.equip
act <var.m2>
endif

if (<evaluatingintel> < 100.0) && ((<skilllock[16]> == 0) && (<skilltotal> < 800.0))
findid.i_evallvl.remove
var.m2 <act.uid>
newitem i_evallvl
act.more1 5
act.equip
act <var.m2>
endif

// Level 6
[function mg6]
if (<magery> < 100.0) && ((<skilllock[25]> == 0) && (<skilltotal> < 800.0))
findid.i_magerylvl.remove
var.m2 <act.uid>
newitem i_magerylvl
act.more1 6
act.equip
act.timer 5
act <var.m2>
endif

if (<evaluatingintel> < 100.0) && ((<skilllock[16]> == 0) && (<skilltotal> < 800.0))
findid.i_evallvl.remove
var.m2 <act.uid>
newitem i_evallvl
act.more1 6
act.equip
act.timer 5
act <var.m2>
endif

// Level 7
[function mg7]
if (<magery> < 100.0) && ((<skilllock[25]> == 0) && (<skilltotal> < 800.0))
findid.i_magerylvl.remove
var.m2 <act.uid>
newitem i_magerylvl
act.more1 7
act.equip
act.timer 3
act <var.m2>
endif

if (<evaluatingintel> < 100.0) && ((<skilllock[16]> == 0) && (<skilltotal> < 800.0))
findid.i_evallvl.remove
var.m2 <act.uid>
newitem i_evallvl
act.more1 7
act.equip
act.timer 5
act <var.m2>
endif

// Level 8
[function mg8]
if (<magery> < 100.0) && ((<skilllock[25]> == 0) && (<skilltotal> < 800.0))
findid.i_magerylvl.remove
var.m2 <act.uid>
newitem i_magerylvl
act.more1 8
act.equip
act.timer 1
act <var.m2>
endif

if (<evaluatingintel> < 100.0) && ((<skilllock[16]> == 0) && (<skilltotal> < 800.0))
findid.i_evallvl.remove
var.m2 <act.uid>
newitem i_evallvl
act.more1 8
act.equip
act <var.m2>
endif



//------------------
// poison functionz
//------------------

[function psg]
if (<magery> < 50.0) && ((<skilllock[25]> == 0) && (<skilltotal> < 800.0))
findid.i_magerylvl.remove
var.m2 <act.uid>
newitem i_magerylvl
act.more1 1
act.equip
act <var.m2>
endif

if (<evaluatingintel> < 50.0) && ((<skilllock[16]> == 0) && (<skilltotal> < 800.0))
findid.i_evallvl.remove
var.m2 <act.uid>
newitem i_evallvl
act.more1 1
act <var.m2>
endif

if (<skilltotal> >= 800.0))
src.findid.i_poisonlvl.remove

elseif (<poisoning> < 10.0) || ((<skilllock[10]> == 0) || (<skilltotal> < 800.0))
findid.i_poisonlvl.remove
var.m2 <act.uid>
newitem i_poisonlvl


        if (<src.poisoning> < 10.0) && (<skilltotal> < 799.3)
        act.more1 8
elseif (<src.poisoning> > 10.0) && (<src.poisoning> < 30.0) && (<skilltotal> < 799.7)
if (rand(2) == 1)
act.more1 4
endif
elseif (<src.poisoning> >= 30.0) && (<src.poisoning> < 50.0) && (<skilltotal> < 799.8)
if (rand(2) == 1) && (<skilltotal> < 799.7)
act.more1 3
endif
elseif (<src.poisoning> > 49.9) && (<src.poisoning> < 60.0) && (<skilltotal> < 799.9)
if (rand(2) == 1)
act.more1 2
endif
elseif (<src.poisoning> > 59.9) && (<src.poisoning> < 70.0)
if (rand(2) == 1)
act.more1 1
endif
elseif (<src.poisoning> > 69.9) && (<src.poisoning> < 90.0)
if (rand(3) == 1)
act.more1 1
endif
elseif (<src.poisoning> > 89.9)
if (rand(3) == 1)
act.more1 1
endif
elseif (<src.poisoning> = 100.0)
return 1
endif
act.equip
act <var.m2>
endif

//------------------
// breakspell functionz
//------------------

// Circle 1
[function breakspell1]
f_fizzle

// Circle 2
[function breakspell2]
f_fizzle
if (<src.mana> > 8)
if (<meditation> < 100.0)
mana (<src.mana> - {8 10})
endif
endif
if (<src.mana> < 8)
if (<meditation> < 100.0)
        mana 0
endif
endif


// Circle 3
[function breakspell3]
f_fizzle
if (<src.mana> > 20)
if (<meditation> < 100.0)
mana (<src.mana> - {10 15})
endif
endif
if (<src.mana> < 20)
if (<meditation> < 100.0)
        mana 0
endif
endif


// Circle 4
[function breakspell4]
f_fizzle
if (<src.mana> > 25)
if (<meditation> < 100.0)
mana (<src.mana> - {15 20})
endif
endif
if (<src.mana> < 25)
if (<meditation> < 100.0)
        mana 0
endif
endif


// Circle 5
[function breakspell5]
f_fizzle
if (<src.mana> > 30)
if (<meditation> < 100.0)
mana (<src.mana> - {20 25})
endif
endif
if (<src.mana> < 30)
if (<meditation> < 100.0)
        mana 0
endif
endif

// Circle 6
[function breakspell6]
f_fizzle
if (<src.mana> > 35)
if (<meditation> < 100.0)
mana (<src.mana> - {25 30})
endif
endif
if (<src.mana> < 35)
if (<meditation> < 100.0)
        mana 0
endif
endif

// Circle 7
[function breakspell7]
f_fizzle
if (<src.mana> > 40)
if (<meditation> < 100.0)
mana (<src.mana> - {30 35})
endif
endif
if (<src.mana> < 40)
if (<meditation> < 100.0)
        mana 0
endif
endif

// Circle 8
[function breakspell8]
f_fizzle
if (<src.mana> > 45)
if (<meditation> < 100.0)
mana (<src.mana> - {35 40})
endif
endif
if (<src.mana> < 45)
if (<meditation> < 100.0)
        mana 0
endif
endif

//------------------
// spell: explosion
//------------------

[itemdef i_spelleffect_explosion]
name=[explosion spelleffect]
id=i_gold
type=t_eq_script
weight=0
layer=layer_special

On=@Equip
cont.sayu explosion
timer 2

On=@Timer
cont.effect 3,i_fx_explode,6,15,1
cont.sfx snd_spell_explosion

if (<cont.hitpoints> > 32)
cont.hits=(<cont.hits> - {20 25})
cont.damage 1
else
cont.hits=0
endif

attr attr_decay
remove
return 1

//------------------
// spell: polymorph
//------------------

[function plym]
if (<findid.i_pre_morph>)
findid.i_pre_morph.remove
f_fizzle
endif

if !(<findid.i_morpher>)
newitem i_pre_morph
act.more <args>
act.equip
newitem i_morpher
act.more <body>
act.equip
else
findid.i_morpher.timer {285 320}
newitem i_pre_morph
act.more <args>
act.equip
endif

[itemdef i_pre_morph]
name=[casting polymorph]
id=i_gold
type=t_eq_script
weight=0
layer=layer_special

On=@Equip
timer 4
cont.spell_say Vas Ylem Rel
cont.anim 17
cont.sd 3
cont.events +e_breakpoly

On=@UnEquip
cont.events -e_breakpoly
cont.consume 1 i_reag_spider_silk
cont.consume 1 i_reag_blood_moss
cont.consume 1 i_reag_mandrake_root
cont.consume 1 i_reag_sulfur_ash

On=@Timer
attr attr_decay
if (<cont.mana> < 40)
cont.f_fizzle
else
cont.mana (<cont.mana> - 40)
cont.sfx snd_spell_polymorph
cont.body <more>
cont.update
endif
remove
return 1

[itemdef i_morpher]
name=Polymorph
id=i_rune_polymorph
type=t_eq_script
weight=0
layer=layer_special

On=@Equip
timer {285 320}
cont.events +e_poly

On=@UnEquip
cont.events -e_poly
cont.body <more>
cont.update

On=@Timer
attr attr_decay
remove
return 1

[events e_poly]
On=@Death
findid.i_morpher.remove

[events e_breakpoly]
On=@SpellCast
findid.i_pre_morph.remove
findid.i_morpher.remove
f_fizzle

On=@GetHit
findid.i_pre_morph.remove
findid.i_morpher.remove
f_fizzle

On=@Hit
findid.i_pre_morph.remove
findid.i_morpher.remove
f_fizzle

On=@Death
findid.i_pre_morph.remove
findid.i_morpher.remove

On=@SkillStart
findid.i_pre_morph.remove
findid.i_morpher.remove
f_fizzle

[EOF]