[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))  //
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 (<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 7
mg1
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 Sanet 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 Sanet // 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 Sanet 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 Sanet // 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.uid> == <region.uid>)
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.servname>','Immortal's'))
if (strmatch('<uid.04018c20d.rescount>','20'))
return 0
endif
elseif (strmatch('<serv.servname>','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.servtime>
if (strmatch('<serv.servname>','Immortal's'))
act.cont 04018c20d
try var.mts <uid.04018c20d.rescount>
elseif (strmatch('<serv.servname>','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 @1153 [ 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.uid> == <region.uid>)
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



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

[ITEMDEF 0ee9]
DUPEITEM=0e21

[ITEMDEF 0e22]
DUPEITEM=0e20

[ITEMDEF 0e21]
DEFNAME=i_bandage
RESOURCES=i_cloth
TYPE=T_BANDAGE
WEIGHT=0.2
DUPELIST=0ee9
CATEGORY=Items by Professions
SUBSECTION=Healer
DESCRIPTION=clean bandages

On=@DClick
if !(<topobj.uid> == <src.uid>)
src.sysmessage @54 Bandajlar cantanizda olmali.
return 1
elseif (<src.findid.i_mem_healing.timer> < 0)
src.findid.i_mem_healing.remove
return 0
elseif (<src.findid.i_mem_healing>)
src.sysmessage @54 Bandajlari su an kullanamazsiniz.
return 1
else
return 0
endif

On=@Targon_Char
src.skill fail
if !(<src.restest 1 i_bandage>)
src.sysmessage @1100 Bandajiniz yok.
return 1
elseif ((<src.targ.isevent.e_house>) && (<src.targ.hits> == 0))
        src.sysmessage @1153 Evin Icinde Res Yapamazsiniz...
        return 1
elseif (<src.targ.distance> > 3)
src.sysmessage @1100 Hedefe ulasamiyorsunuz.
return 1
elseif (<src.targ.npc> == 10) || (<src.targ.npc> == 11) || (<src.targ.npc> == 12) || (<src.targ.npc> == 13)
src.sysmessage @1100 Bunu iyilestiremezsiniz.
return 1
elseif (<src.targ.npc> == 1)
if (<src.targ.id> == c_m_golem_tinker1) || (<src.targ.id> == c_m_golem_tinker2) || (<src.targ.id> == c_m_golem)
src.sysmessage @1100 Golem'leri bandajla iyilestiremezsiniz.
elseif !((<src.targ.hits> < <src.targ.str>) || (<src.targ.findid.i_rune_poison>))
src.sysmessage @55 Dikkat: <src.targ.name> tedaviye ihtiyac duymuyor.
return 1
elseif (<src.targ.findid.i_rune_poison>)
if ((<src.veterinary> < 60.0) || (<src.animallore> < 60.0))
src.sysmessage @1100 Hayvan uzerindeki zehiri tedavi edecek kadar yetenekli degilsiniz.
return 1
endif
else
var.nx1 (<src.veterinary> / {20 50})
var.nx2 (<src.animallore> / 50)
var.nx3 <eval (<var.nx1> + <var.nx2> + {3 10})>
endif
src.sd 1
src.anim 17
src.newitem i_mem_healing
src.act.morey <eval <var.nx3>>
src.act.morex 3
src.act.link <src.targ.uid>
src.act.equip
src.newitem i_bandajatiyorum_bilo
src.new.equip
src.face
return 1
elseif (<src.targ.flags>&statf_dead)
if ((<src.healing> < 80.0) || (<src.anatomy> < 80.0))
src.sysmessage @1100 Henuz oluleri diriltecek kudrete sahip degilsiniz.
elseif !(<src.restest 5 i_bandage>)
src.sysmessage @1100 Diriltme islemi icin 5 bandaja ihtiyaciniz var.
else
if (<src.targ.kills> > 5)
src.criminal 1
src.sayua 048,6,6,0 * <src.targ.name> isimli katili diriltir *
elseif (<src.targ.flags>&statf_criminal)
src.criminal 1
src.sayua 048,6,6,0 * <src.targ.name> isimli sucluyu diriltir *
elseif (<src.memoryfindtype.memory_town>) && (<src.targ.memoryfindtype.memory_town>) && (<src.memoryfindtype.memory_town.link> != <src.targ.memoryfindtype.memory_town.link>)
src.criminal 1
elseif (<src.memoryfindtype.memory_guild.link.align>) && (<src.targ.memoryfindtype.memory_guild.link.align>) && (<src.memoryfindtype.memory_guild.link.align> != <src.targ.memoryfindtype.memory_guild.link.align>)
src.criminal 1
endif
src.sd 2
src.face
src.anim 17
src.consume 5 i_bandage
src.targ.spelleffect s_resurrection 1000
src.targ.sayua 048,6,6,0 * <src.name> sayesinde hayata doner *
src.checkhealing 2
src.checkanatomy 2
endif
return 1
elseif (<src.targ.memoryfindtype.memory_town>) && !(<src.memoryfindtype.memory_town>)
src.sysmessage @1100 Faction uyelerini iyilestiremezsiniz.
return 1
elseif (<src.targ.memoryfindtype.memory_guild.link.align> > 0) && !(<src.memoryfindtype.memory_guild.link.align>)
src.sysmessage @1100 Order / Chaos uyelerini iyilestiremezsiniz.
return 1
elseif !((<src.targ.hits> < <src.targ.str>) || (<src.targ.findid.i_rune_poison>))
if !(<src.targ.uid> == <src.uid>)
src.sysmessage @033 Dikkat: <src.targ.name> tedaviye ihtiyac duymuyor.
else
src.sysmessage @033 Tedaviye ihtiyaciniz yok.
endif
return 1
elseif (<src.targ.findid.i_rune_poison>)
if ((<src.healing> < 60.0) || (<src.anatomy> < 60.0))
src.sysmessage @1100 Zehiri tedavi edecek kadar yetenekli degilsiniz.
return 1
endif
elseif (<src.targ.findid.i_bleeding>)         ///Bleeding
if ((<src.healing> < 70.0) || (<src.anatomy> < 70.0))
src.sysmessage @1100 Yarayi tedavi edecek kadar yetenekli degilsiniz.
return 1
endif
else
var.nx1 (<src.healing> / {20 50})
var.nx2 (<src.anatomy> / 50)
var.nx3 <eval (<var.nx1> + <var.nx2> + {3 10})>
endif

src.sd 1
src.anim 17
src.newitem i_mem_healing
src.act.morey <eval <var.nx3>>
if !(<src.targ.uid> == <src.uid>) // heal other
src.act.morex 1
src.act.link <src.targ.uid>
src.face
endif
src.act.equip
return 1




[itemdef i_mem_healing]
ID=i_memory
TYPE=t_eq_script
NAME=healing mem

On=@Create
attr attr_decay|attr_newbie


On=@Equip
src.newitem i_mageryfix
src.act.equip
src.events +e_healing
timer 5,50

On=@UnEquip
cont.events -e_healing

On=@Timer
if (<morey>)
if (<morex> == 3) // veterinary
if !(<link.hits> < <link.str>) && !(<link.findid.i_rune_poison>)
cont.smg Dikkat: <link.name> tedaviye ihtiyac duymuyor.
remove
return 1
elseif (<link.findid.i_rune_poison>)
if (<cont.veterinary> < 60.0) || (<cont.animallore> < 60.0)
cont.sysmessage @1100 Zehiri tedavi edecek kadar yetenekli degilsiniz.
remove
return 1
endif
elseif (<link.findid.i_bleeding>)       ///////Hayvanlarda bleeding
if (<cont.veterinary> < 70.0) || (<cont.animallore> < 70.0)
cont.sysmessage @1100 Yarayi tedavi edecek kadar yetenekli degilsiniz.
remove
return 1
endif
elseif !(<cont.restest 1 i_bandage>)
cont.sysmessage @55 Bandajiniz yok.
remove
return 1
endif
cont.consume 1 i_bandage
if (<link.findid.i_rune_poison>) // cure animal
if !(rand(5) == 1)
link.findid.i_rune_poison.remove
link.effect 3,0376a,2,10,1
link.sayu * iyilestirilir *
else
cont.sayua 020,6,6,0 * <link.name> uzerindeki zehiri iyilestiremez *
endif
elseif (<link.findid.i_bleeding>) //hayvanlarda yara iyilestirme poff :D
if !(rand(5) == 1)
link.findid.i_bleeding.remove
link.effect 3,0376a,2,10,1
link.sayu * yarasi iyilestirilir *
else
cont.sayua 020,6,6,0 * <link.name> uzerindeki yarayi iyilestiremez *
endif
else // heal animal
link.hits <eval (<link.hits> + <morey>)>
link.effect 3,0376a,2,10,1
if (<link.hits> > <link.str>)
link.hits <link.str>
endif
link.sayu * tedavi gorur *
link.update
endif
cont.checkveterinary
cont.checkanimallore
if (<cont.dex> < 35)
timer 6
else
timer 4
endif
elseif (<morex>) // others
if !(<link.hits> < <link.str>) && !(<link.findid.i_rune_poison>)
cont.sysmessage @55 Dikkat: <link.name> tedaviye ihtiyac duymuyor.
remove
return 1
elseif (<link.hits> < 1)
cont.sysmessage @150 Dikkat: <link.name> tedavi esnasinda hayatini kaybetti.
remove
return 1
elseif (<link.findid.i_rune_poison>)
if (<cont.healing> < 60.0) || (<cont.anatomy> < 60.0)
cont.sysmessage @1100 Zehiri tedavi edecek kadar yetenekli degilsiniz.
remove
return 1
endif
elseif !(<cont.restest 1 i_bandage>)
cont.sysmessage @55 Bandajiniz yok.
remove
return 1
endif
cont.consume 1 i_bandage
if (<link.findid.i_rune_poison>) // cure other
if !(rand(5) == 1)
link.findid.i_rune_poison.remove
link.effect 3,0376a,2,10,1
if (<link.kills> > 5)
cont.criminal 1
cont.sayua 048,6,6,0 * <link.name> isimli katili iyilestirir *
elseif (<link.flags>&statf_criminal)
cont.criminal 1
cont.sayua 048,6,6,0 * <link.name> isimli sucluyu iyilestirir *
else
link.sayua 048,6,6,0 * <cont.name> tarafindan iyilestirilir *
if (<link.memoryfindtype.memory_town>) && (<cont.memoryfindtype.memory_town>) && (<cont.memoryfindtype.memory_town.link> != <link.memoryfindtype.memory_town.link>)
cont.criminal 1
elseif (<link.memoryfindtype.memory_guild.link.align>) && (<cont.memoryfindtype.memory_guild.link.align>) && (<cont.memoryfindtype.memory_guild.link.align> != <link.memoryfindtype.memory_guild.link.align>)
cont.criminal 1
endif
endif
else
cont.sayua 020,6,6,0 * <link.name> uzerindeki zehiri iyilestiremez *
endif
elseif (<link.findid.i_bleeding>)///////////////////////////Bleeding
if !(rand(5) == 1)
link.findid.i_bleeding.remove
link.effect 3,0376a,2,10,1
if (<link.kills> > 5)
cont.criminal 1
cont.sayua 048,6,6,0 * <link.name> yarasini iyilestirir.*
elseif (<link.flags>&statf_criminal)
cont.criminal 1
cont.sayua 048,6,6,0 * <link.name> isimli suclunun yarasini iyilestirir. *
else
link.sayua 048,6,6,0 * <cont.name> tarafindan yarasi iyilestirilir. *
if (<link.memoryfindtype.memory_town>) && (<cont.memoryfindtype.memory_town>) && (<cont.memoryfindtype.memory_town.link> != <link.memoryfindtype.memory_town.link>)
cont.criminal 1
elseif (<link.memoryfindtype.memory_guild.link.align>) && (<cont.memoryfindtype.memory_guild.link.align>) && (<cont.memoryfindtype.memory_guild.link.align> != <link.memoryfindtype.memory_guild.link.align>)
cont.criminal 1
endif
endif
else
cont.sayua 020,6,6,0 * <link.name> uzerindeki yarayi tedavi edemez *
endif        ////////////////////////////////////////////////////////////
else // heal other
link.hits (<link.hits> + <morey>)
link.effect 3,0376a,2,10,1
if (<link.hits> > <link.str>)
link.hits <link.str>
endif
if (<link.kills> > 5)
cont.criminal 1
cont.sayua 048,6,6,0 * <link.name> isimli katili tedavi eder *
elseif (<link.flags>&statf_criminal)
cont.criminal 1
cont.sayua 048,6,6,0 * <link.name> isimli sucluyu tedavi eder *
else
link.sayua 048,6,6,0 * <cont.name> tarafindan tedavi edilir *
if (<link.memoryfindtype.memory_town>) && (<cont.memoryfindtype.memory_town>) && (<cont.memoryfindtype.memory_town.link> != <link.memoryfindtype.memory_town.link>)
cont.criminal 1
elseif (<link.memoryfindtype.memory_guild.link.align>) && (<cont.memoryfindtype.memory_guild.link.align>) && (<cont.memoryfindtype.memory_guild.link.align> != <link.memoryfindtype.memory_guild.link.align>)
cont.criminal 1
endif
endif
endif
cont.checkhealing 1
cont.checkanatomy 1
if (<cont.dex> < 35)
timer 6
else
timer 4
endif
else
if !(<cont.hits> < <cont.str>) && !(<cont.findid.i_rune_poison>)
cont.sysmessage @55 Tedaviye ihtiyac duymuyorsunuz.
remove
return 1
elseif (<cont.hits> < 1)
remove
return 1
elseif (<cont.findid.i_rune_poison>)
if (<cont.healing> < 60.0) || (<cont.anatomy> < 60.0)
cont.sysmessage @1100 Zehiri tedavi edecek kadar yetenekli degilsiniz.
remove
return 1
endif
    elseif !(<cont.restest 1 i_bandage>)
cont.sysmessage @55 Bandajiniz yok.
remove
return 1
endif
cont.consume 1 i_bandage
if (<cont.findid.i_rune_poison>) // cure self
if !(rand(5) == 1)
cont.findid.i_rune_poison.remove
cont.effect 3,0376a,2,10,1
cont.sayua 048,6,6,0 * zehir etkisini iyilestirir *
else
cont.sayua 020,6,6,0 * zehiri iyilestiremez *
endif
elseif (<cont.findid.i_bleeding>)/////////Bleeding bana bleed
if !(rand(5) == 1)
cont.findid.i_bleeding.remove
cont.effect 3,0376a,2,10,1
cont.sayua 048,6,6,0 * yarayi tedavi eder *
else
cont.sayua 020,6,6,0  * yarayi tedavi edemez *
endif
else // heal self
cont.hits (<cont.hits> + <morey>)
cont.effect 3,0376a,2,10,1
cont.sayua 048,6,6,0 * kendini tedavi eder *
if (<cont.hits> > <cont.str>)
cont.hits <cont.str>
endif
endif
cont.checkhealing 1
cont.checkanatomy 1
if (<cont.dex> < 35)
timer 14
else
timer 8
endif
endif
morey 0 // memory'yi etkisiz hale getir
cont.events -e_healing // eventi kaldir artik gerek yok
return 1
endif
remove
return 1

[events e_healing]
On=@GetHit
if (rand(5) == 1)
sayua 020,6,6,0 * bandajlari yirtilir *
findid.i_mem_healing.remove
findid.i_Bandajatiyorum_bilocan.remove
endif

On=@Death
findid.i_mem_healing.remove
findid.i_bandajatiyorum_bilocan.remove

On=@Logout
findid.i_mem_healing.remove
findid.i_bandajatiyorum_bilocan.remove

[function checkhealing]
if ((<skilllock[17]> == 0) && (<skilltotal> < 800.0))
if (<healing> < 30.0)
if (rand(2) == 1)
healing (<healing> + 1)
endif
elseif (<healing> < 50.0)
if (rand(2) == 1)
healing (<healing> + 1)
endif
elseif (<healing> < 75.0)
if (rand(2) == 1)
healing (<healing> + 1)
endif
elseif (<healing> < 100.0)
if (rand(3) == 1)
healing (<healing> + 1)
endif
endif
endif

[function checkveterinary]
if ((<skilllock[39]> == 0) && (<skilltotal> < 800.0))
if (<veterinary> < 30.0)
if (rand(1) == 1)
veterinary (<veterinary> + 1)
endif
elseif (<veterinary> < 50.0)
if (rand(2) == 1)
veterinary (<veterinary> + 1)
endif
elseif (<veterinary> < 75.0)
if (rand(3) == 1)
veterinary (<veterinary> + 1)
endif
elseif (<veterinary> < 100.0)
if (rand(5) == 1)
veterinary (<veterinary> + 1)
endif
endif
endif

[function checkanatomy]
if ((<skilllock[1]> == 0) && (<skilltotal> < 800.0))
if (<anatomy> < 30.0)
if (rand(2) == 1)
anatomy (<anatomy> + 1)
endif
elseif (<anatomy> < 50.0)
if (rand(2) == 1)
anatomy (<anatomy> + 1)
endif
elseif (<anatomy> < 75.0)
if (rand(2) == 1)
anatomy (<anatomy> + 1)
endif
elseif (<anatomy> < 100.0)
if (rand(2) == 1)
anatomy (<anatomy> + 1)
endif
endif
endif


[function checkanimallore]
if ((<skilllock[2]> == 0) && (<skilltotal> < 800.0))
if (<animallore> < 30.0)
if (rand(1) == 1)
animallore (<animallore> + 1)
endif
elseif (<animallore> < 50.0)
if (rand(2) == 1)
animallore (<animallore> + 1)
endif
elseif (<animallore> < 75.0)
if (rand(2) == 1)
animallore (<animallore> + 1)
endif
elseif (<animallore> < 100.0)
if (rand(3) == 1)
animallore (<animallore> + 1)
endif
endif
endif

[DIALOG d_rescon]
0,375

nomove
page 0
resizepic 30 10 5120 145 75
text 45 15 600 0
text 60 35 0 1
text 60 55 0 2
button 40 35 210 211 1 0 1
button 40 55 210 211 1 0 0

[DIALOG d_rescon TEXT]   
Resurrect?
yeah, sure.
no, thanks.

[DIALOG d_rescon BUTTON] 
ONBUTTON=0

ONBUTTON=1
SRC.RESURRECT

[itemdef i_mageryfix]
ID=i_memory
TYPE=t_eq_script
NAME=magery fix

On=@Create
attr attr_newbie|attr_decay

On=@Equip
sd 2
timer 2
return 1

On=@timer
consume 500 i_mageryfix
return 1

[ITEMDEF i_oil_cloth]
DEFNAME=i_oil_cloth
ID=0e21
NAME=oil cloth
RESOURCES=i_cloth
WEIGHT=.1
DYE=0
VALUE=15
SKILLMAKE=TAILORING 74.6, t_sewing_kit
CATEGORY=Items by Professions
SUBSECTION=Tailor
DESCRIPTION=Oil Cloth
TYPE=t_normal

ON=@DClick
if !(<topobj.uid> == <src.uid>)
src.sysmessage @1100 Bunu ancak cantanizda iken kullanabilirsiniz.
return 1
endif
TARGET @0790 Lutfen zehrini gecirmeye calisacaginiz silahi secin.
RETURN 1

ON=@TargOn_Char
SRC.SYSMESSAGE @1100 Bu bir silah degil.
RETURN 1

ON=@TargOn_Item
IF (<SRC.TARG.UID>==<UID>)
SRC.SYSMESSAGE @1100 Bu bir silah degil
ELSEIF (<SRC.TARG.morez> > 0)
SRC.SysMessage @0780 Silahin zehrini gecirdiniz
SRC.TARG.morez 0
REMOVE
ELSE
SRC.SYSMESSAGE @1100 Bu zehirli degil.
ENDIF
RETURN 1

[EOF]