// ----------------------------
// Fix.scp - Fix'S - ANDORIA
// SON GUNCELLENME TARIHI: 09 Eylül 2005 14:20 - Lorien
// ----------------------------
VERSION=0.55


[FUNCTION Spellfreeze]
src.findid.i_spellfreeze.remove
var.m <act.uid>
newitem i_spellfreeze
act.more1 <args>
act.equip
act <var.m>
endif

[itemdef i_spellfreeze]
name=magery freeze
type=t_eq_script
layer=layer_special

On=@Equip
cont.flags <cont.flags>|04
if (<more1>)
timer <more1>
endif

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

On=@Timer
remove
return 1

[DIALOG d_loginc]
100,100
nomove
resizepic 0 0 3600 450 115
text 35 30 250 0
text 35 50 250 1

[DIALOG d_loginc TEXT]
Astoroth UO - Girisiniz tamamlandi, Hosgeldiniz.
Server Durumu: <eval <VAR.PLEVEL1>+<VAR.PLEVEL2>+<VAR.PLEVEL3>+<VAR.PLEVEL4>+<VAR.PLEVEL5>+<VAR.PLEVEL6>+<VAR.PLEVEL7> +5> / <SERV.CLIENTMAX>

endif


[function spell_say]
sayua 0481,6,6,eng <args>

if (<findid.i_magerylvl>)
findid.i_magerylvl.remove
endif
if (<findid.i_evallvl>)
findid.i_evallvl.remove
endif
if (<findid.i_poisonlvl>)
findid.i_poisonlvl.remove
endif
flags <flags>&~04

[events e_death_announce]
On=@Death
if !(<isevent.e_qchar>)
if (<fame> > 9900) && (<memoryfindtype.memory_harmedby>) && (<act.ischar>) && (<act.uid> != <uid>) && (0<act.npc> == 0)
serv.allclients sysmessage @0790 <sex Lord/Lady> <name>, <act.name> tarafindan <region.name> civarlarinda olduruldu.
endif
endif

[events fix]
On=@Attack
if (<memoryfindtype.memory_guild.link.more1> == 1) && (<src.memoryfindtype.memory_guild.link.more1> == 1) // !(<src.isevent.e_dm>)
sysmessage @0790 Yandaslariniza zarar veremezsiniz.
return 1
elseif (<memoryfindtype.memory_guild.link.more1> == 2) && (<src.memoryfindtype.memory_guild.link.more1> == 2) // asfasf && !(<src.isevent.e_dm>)
sysmessage @0790 Yandaslariniza zarar veremezsiniz.
return 1
endif
If (<src.id> == c_pv)
sysmessage @0790 Player vendorlarina zarar veremezsiniz.
return 1
endif

On=@HitTry
if (<memoryfindtype.memory_guild.link.more1> == 1) && (<act.memoryfindtype.memory_guild.link.more1> == 1)
Src.Action = -1
Src.Flags = <SRC.FLAGS> & ~statf_war
Return 1
elseif (<memoryfindtype.memory_guild.link.more1> == 2) && (<act.memoryfindtype.memory_guild.link.more1> == 2)
Src.Action = -1
Src.Flags = <SRC.FLAGS> & ~statf_war
Return 1
endif
If (<src.npc> == brain_vendor) || (<src.npc> == brain_guard) || (<src.npc> == brain_banker) || (<src.npc> == brain_animal_trainer) || (<src.npc> == brain_healer)
Src.Action = -1
Src.Flags = <SRC.FLAGS> & ~statf_war
Return 1
Elseif (<Src.Uid> == <Uid>)
Src.Action = -1
Src.Flags = <SRC.FLAGS> & ~statf_war
Return 1
Elseif (<Src.Flags>&(statf_stone|statf_invul|statf_hidden|statf_invisible))
Src.Action = -1
Src.Flags = <SRC.FLAGS> & ~statf_war
Return 1
Endif

On=@Profile
if (<src.uid> == <uid>) || (0<src.account.plevel> > 2)
src.sysmessage Hesap: <account>, <eval (<account.totalconnecttime> / 60)>s
src.sysmessage Kayit: <account.firstconnectdate>
if (strmatch('<src.uid.04009a3fa.tag.<account.name>_vet>','01'))
src.sysmessage Veteran: odul verilmis.
endif
src.sysmessage Karakter: <eval (<age> / 86400)> gun once dogmus.
endif

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


On=@EnvironChange
if !(<memoryfindtype.memory_guild.link.align>) || (<kills> > 5)
if (<findlayer(2).baseid> == i_shield_chaos) || (<findlayer(2).baseid> == i_shield_order)
findlayer(2).unequip
endif
endif
if !((<findlayer(32)> || <findlayer(44)> || <findlayer(47)>)) // active stat-effecting spell?
stchk
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)
statcapdex
endif
endif
endif

endif
if ((<body> == c_man) || (<body> == c_woman)) // yimmeeah
if !((<isevent.e_jail>) || (<flags>&statf_stone) || (<isevent.e_qchar>))
if (<food> == 3)
sayua 045f,0,0,0 * acliktan ba$i doner *
elseif (<food> == 2)
sayua 045f,0,0,0  * acliktan ba$i doner *
elseif (<food> == 1)
sayua 045f,0,0,0 * acliktan olmek uzeredir *
elseif (<food> == 0)
//sayua 045f,0,0,0 * acliktan olur *
newitem i_aclikcim
act.equip
endif
endif
endif

On=@SpellCast
if (<argn> == 7)
if (<act.uid> == <uid>)
else
sysmessage @38,,1 Sadece kendinize atabilirsiniz.
return 1
endif
endif

If (<memoryfindtype.memory_guild.link.more1> == 1) && (<act.memoryfindtype.memory_guild.link.more1> == 1) && !(<act.uid> == <uid>)
   If (<argn> == 1) || (<argn> == 3) || (<argn> == 5) || (<argn> == 8) || (<argn> == 12) || (<argn> == 18) || (<argn> == 20) || (<argn> == 27) || (<argn> == 30) || (<argn> == 31) || (<argn> == 37) || (<argn> == 38) || (<argn> == 42) || (<argn> == 43) || (<argn> == 51) || (<argn> == 53) || (<argn> == 55)
   src.sysmessage @0790 Yandaslariniza zarar veremezsiniz.
   action -1
   return 1
   endif
endif

if (<memoryfindtype.memory_guild.link.more1> == 2) && (<act.memoryfindtype.memory_guild.link.more1> == 2) && !(<act.uid> == <uid>)
    If (<argn> == 1) || (<argn> == 3) || (<argn> == 5) || (<argn> == 8) || (<argn> == 12) || (<argn> == 18) || (<argn> == 20) || (<argn> == 27) || (<argn> == 30) || (<argn> == 31) || (<argn> == 37) || (<argn> == 38) || (<argn> == 42) || (<argn> == 43) || (<argn> == 51) || (<argn> == 53) || (<argn> == 55)
    sysmessage @0790 Yandaslariniza zarar veremezsiniz.
    action -1
    return 1
    endif
endif

if (<src.isevent.e_pazar>)
   if (<argn> == 1 >)
   src.syshata Burada Olmaz
   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 ((<argn> == 7) || (<argn> == 15)) // no prot. & reac. arm. over armor
if (<act.findtype.t_armor.cont.uid> == <act.uid>)
f_fizzle
return 1
endif
endif
if (<argn> == 59) && !(<act.flags>&statf_dead)
f_fizzle
return 1
endif
endif

if (<act.id> == c_pv)
if !((<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) // Clumsy
spell_say Uus Jux
mg1
elseif (<argn> == 2) // Create food
mg1
spell_say In Mani Ylem
newitem i_ham
act.bounce
consume 1 i_reag_garlic
consume 1 i_reag_ginseng
consume 1 i_reag_mandrake_root
elseif (<argn> == 3) // Feeblemind
spell_say Rel Wis
mg1
elseif (<argn> == 4) // Heal
if ((<findid.i_spdelay_man> || (<findid.i_spdelay_woman> || (<findid.i_spdelay_unisex>)
skill fail
else
if (<act.findid.i_rune_poison>) || (<act.findid.i_rune_poison_field>)
src.sysmessage @0790 Zehirliyken bunu kullanamazsiniz.
anim 4
return 1
elseif (<act.findid.i_bleeding>)
src.sysmessage @0790 Yaraliyken bunu kullanamazsiniz.
anim 4
return 1
else
spell_say In Mani
spellfreeze 1
mg1
endif
endif
elseif (<argn> == 5) // Magic Arrow
spell_say In Por Ylem
mg1
elseif (<argn> == 6) // Night Sight
spell_say In Lor
mg1
elseif (<argn> == 7) // Reactive Armor
spell_say Flam Sanct
        spellfreeze 1
mg1
elseif (<argn> == 8) // Weaken
spell_say Des Mani
mg1
elseif (<argn> == 9) // Agility
spell_say Ex Uus
mg2
elseif (<argn> == 10) // Cunning
spell_say Uus Wis
mg2
elseif (<argn> == 11) // Cure
spell_say An Nox
spellfreeze 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
mg2
elseif (<argn> == 12) // Harm
spell_say An Mani
spellfreeze 1
mg2
elseif (<argn> == 13) // Trap
spell_say In Jux
f_fizzle
return 1
elseif (<argn> == 14) // Untrap
spell_say An Jux
f_fizzle
return 1
elseif (<argn> == 15) // Protection
spell_say Uus Sanct
spellfreeze 1
mg2
elseif (<argn> == 16) // Strength
spell_say Uus Mani
spellfreeze 1
mg2
elseif (<argn> == 17) // Bless
spell_say Rel Sanct
spellfreeze 1
mg3
elseif (<argn> == 18) // Fireball
if ((<findid.i_spdelay_man> || (<findid.i_spdelay_woman> || (<findid.i_spdelay_unisex>)
skill fail
else
spell_say Vas Flam
spellfreeze 1
mg3
endif
elseif (<argn> == 19) // Lock
spell_say An Por
f_fizzle
return 1
elseif (<argn> == 20) // Poison
spell_say In Nox
psg
spellfreeze 1
elseif (<argn> == 21) // Telekinesis
spell_say Ort Por Ylem
spellfreeze 1
if (<act.isitem>)
if (<act.cont.isitem>)
if (<act.topobj.id> == c_pv))
f_fizzle
return 1
endif
endif
else
f_fizzle
return 1
endif
mg3
elseif (<argn> == 22) // Teleport
spell_say Rel Por
if (<src.region.guarded> == 1)
src.sysmessage @0481 Bu buyuyu guard zone icinde yapamazsiniz
return 1
endif
elseif (<argn> == 23) // Unlock
spell_say Ex Por
f_fizzle
return 1
elseif (<argn> == 24) // Wall
spell_say In Sanct Ylem
spellfreeze 1
mg3
elseif (<argn> == 25) // Arch Cure
spell_say Vas An Nox
spellfreeze 2
mg4
elseif (<argn> == 26) // Arch Protection
spell_say Vas Uus Sanct
spellfreeze 2
mg4
elseif (<argn> == 27) // Curse
spell_say Des Sanct
spellfreeze 2
mg4
elseif (<argn> == 28) // Fire Field
spell_say In Flam Grav
if (<act.topobj.ischar>)
f_fizzle
return 1
endif
spellfreeze 2
mg4
elseif (<argn> == 29) // Greater Heal
if ((<findid.i_spdelay_man> || (<findid.i_spdelay_woman> || (<findid.i_spdelay_unisex>)
skill fail
else
if (<act.findid.i_rune_poison>) || (<act.findid.i_rune_poison_field>)
src.sysmessage @0790 Zehirliyken bunu kullanamazsiniz.
anim 4
return 1
elseif (<act.findid.i_bleeding>)
src.sysmessage @0790 Yaraliyken bunu kullanamazsiniz.
anim 4
return 1
else
spell_say In Vas Mani
spellfreeze 1
mg4
endif
endif
elseif (<argn> == 30) // Lightning
spell_say Por Ort Grav
spellfreeze 2
mg4
elseif (<argn> == 31) // Mana Drain
spell_say Ort Rel
f_fizzle
return 1
elseif (<argn> == 32) // Recall
spell_say Kal Ort Por
spellfreeze 2
mg4
elseif (<argn> == 33) // Blade Spirits
spell_say In Jux Hur Ylem
spellfreeze 2
mg5
elseif (<argn> == 34) // Dispel Field
spell_say An Grav
if (<act.ischar>)
f_fizzle
return 1
endif
spellfreeze 2
mg5
elseif (<argn> == 35) // Incognito
spell_say Kal In Ex
spellfreeze 2
mg5
elseif (<argn> == 36) // Magic Reflect
spell_say In Jux Sanct
spellfreeze 2
mg5
elseif (<argn> == 37) // Mind Blast
spell_say Por Corp Wis
spellfreeze 4
mg5
elseif (<argn> == 38) // Paralyze
spell_say An Ex Por
spellfreeze 2
mg5
elseif (<argn> == 39) // Poison Field
spell_say In Nox Grav
if (<act.topobj.ischar>)
f_fizzle
return 1
endif
spellfreeze 2
mg5
elseif (<argn> == 40) // Summon Creature
spell_say Kal Xen
spellfreeze 2
mg5
elseif (<argn> == 41) // Dispel
spell_say An Ort
spellfreeze 2
mg6
elseif (<argn> == 42) // Energy Bolt
spell_say Corp Por
spellfreeze 2
mg6
elseif (<argn> == 43) // Explosion
spell_say Vas Ort Flam
spellfreeze 2
mg6
elseif (<argn> == 44) // Invisibility
spell_say An Lor Xen
spellfreeze 2
mg6
elseif (<argn> == 45) // Mark
spell_say Kal Por Ylem
spellfreeze 2
mg6
elseif (<argn> == 46) // Mass Curse
spell_say Vas Des Sanct
spellfreeze 2
mg6
elseif (<argn> == 47) // Paralyze Field
spell_say In Ex Grav
if (<act.topobj.ischar>)
f_fizzle
return 1
endif
spellfreeze 3
mg6
elseif (<argn> == 48) // Reveal
spell_say Wis Quas
spellfreeze 2
mg6
elseif (<argn> == 49) // Chain Lightning
spell_say Vas Ort Grav
if (<act.uid> == <uid>)
f_fizzle
return 1
endif
spellfreeze 3
mg7
elseif (<argn> == 50) // Energy Field
spell_say In Sanct Grav
if (<act.topobj.ischar>)
f_fizzle
return 1
endif
spellfreeze 3
mg7
elseif (<argn> == 51) // Flame strike
if ((<findid.i_spdelay_man> || (<findid.i_spdelay_woman> || (<findid.i_spdelay_unisex>)
skill fail
else
spell_say Kal Vas Flam
spellfreeze 3
mg7
endif
elseif (<argn> == 52) // Gate Travel
src.sysmesua kapali bu buyu
return 1
elseif (<argn> == 53) // Mana Vampire
spell_say Ort Sanct
f_fizzle
return 1
elseif (<argn> == 54) // Mass Dispel
spell_say Vas An Ort
spellfreeze 3
mg7
elseif (<argn> == 55) // Meteor Swarm
spell_say Flam Kal Des Ylem
if (<act.uid> == <uid>)
f_fizzle
return 1
endif
spellfreeze 3
mg7
elseif (<argn> == 56) // Polymorph
return 1
elseif (<argn> == 57) // Earthquake
spell_say In Vas Por
spellfreeze 3
mg8
elseif (<argn> == 58) // Energy Vortex
spell_say Vas Corp Por
if (<region.guarded>)
criminal 1
endif
spellfreeze 3
mg8
elseif (<argn> == 59) // Resurrect
spell_say An Corp
spellfreeze 3
mg8
elseif (<argn> == 60) // Air Elemental
spell_say Kal Vas Xen Hur
if (<region.guarded>)
criminal 1
endif
spellfreeze 3
mg8
elseif (<argn> == 61) // Summon Deamon
spell_say Kal Vas Xen Corp
if (<region.guarded>)
criminal 1
endif
spellfreeze 3
mg8
elseif (<argn> == 62) // Earth Elemental
spell_say Kal Vas Xen Ylem
if (<region.guarded>)
criminal 1
endif
spellfreeze 3
mg8
elseif (<argn> == 63) // Fire Elemental
spell_say Kal Vas Xen Flam
if (<region.guarded>)
criminal 1
endif
spellfreeze 3
mg8
elseif (<argn> == 64) // Water Elemental
spell_say Kal Vas Xen An Flam
if (<region.guarded>)
criminal 1
endif
spellfreeze 3
mg8
endif

IF (<eval <SRC.REGION.FLAGS>> & 04000)  ///////////Sehirde Field buyusu atamama
   IF (<ARGN>==24) || (<ARGN>==28) || (<ARGN>==39) || (<ARGN>==47) || (<ARGN>==50)
    SRC.ACTION -1
    SRC.sysmessage @033 Bu alanda Field yada Wall buyulerini kullanamazsiniz..
    return 1
endif
endif
IF (<eval <SRC.REGION.FLAGS>> & 04000)
   IF (<SRC.ISGM>)
    RETURN 0
   ELSEIF (<ARGN>==33) || (<ARGN>==40) || (<ARGN>==58) || (<ARGN>==60) || (<ARGN>==61) || (<ARGN>==62) || (<ARGN>==62) || (<ARGN>==63) || (<ARGN>==64) || (<ARGN>==65) || (<ARGN>==66)
    SRC.ACTION -1
    SRC.sysmessage @033 Bu alanda summon buyulerini kullanamazsiniz..
    RETURN 1
endif
endif
On=@SpellEffect
if (<memoryfindtype.memory_guild.link.more1> == 1) && (<src.memoryfindtype.memory_guild.link.more1> == 1)
If (<argn> == 28) || (<argn> == 39) || (<argn> == 46) || (<argn> == 47) || (<argn> == 49) || (<argn> == 54) || (<argn> == 55) || (<argn> == 57)
return 1
endif
elseif (<memoryfindtype.memory_guild.link.more1> == 2) && (<src.memoryfindtype.memory_guild.link.more1> == 2)
If (<argn> == 28) || (<argn> == 39) || (<argn> == 46) || (<argn> == 47) || (<argn> == 49) || (<argn> == 54) || (<argn> == 55) || (<argn> == 57)
return 1
endif
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
endif

elseif (<argn> == 38)
if (<eval <findid.i_pouch_trapped.morez>> == 0 )
remove
return 1

elseif (<attr> & attr_move_never)
return 1
endif

effect 3,i_fx_explode,3,25,1
sound snd_spell_explosion
damage 5
findid.i_pouch_trapped.morez (<eval <findid.i_pouch_trapped.morez>> - 1 )
return 1


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 {0 0}
else
damage {0 0}
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
elseif ((<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 (<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
endif

elseif (<argn> == 26) // no arch prot. over armor
if (<findtype.t_armor.cont.uid> == <uid>)
return 1
endif
elseif (<argn> == 25) // arch cure
if (<memoryfindtype.memory_town>) && !(<src.memoryfindtype.memory_town>)
return 1
elseif (<memoryfindtype.memory_guild.link.align> > 0) && !(<src.memoryfindtype.memory_guild.link.align>)
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
elseif (<argn> == 4) || (<argn> == 29) || (<argn> == 11)
if (<memoryfindtype.memory_town>) && !(<src.memoryfindtype.memory_town>)
src.sms Faction uyelerini iyilestiremezsiniz.
return 1
elseif (<memoryfindtype.memory_guild.link.align> > 0) && !(<src.memoryfindtype.memory_guild.link.align>)
src.sms Order/Chaos uyelerini iyilestiremezsiniz.
return 1
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)
smg Stealth yapabilmek icin 80 hiding skilline ihtiyaciniz var.
skill fail
return 1
elseif (<eval (<ac> * 100)> > <eval (<stealth> + 200)>)
sms Zirhinizin verdigi agirlik gizlenmenizi engelliyor
skill fail
return 1
elseif (<flags>&statf_onhorse)
sms Binek uzerinde gizlenemezsiniz.
skill fail
return 1
endif
elseif (<action> == id(skill_hiding)) || (<action> == skill_hiding)
if (<eval (<ac> * 100)> > <eval (<hiding> + 200)>)
sms Zirhinizin verdigi agirlik gizlenmenizi engelliyor
skill fail
return 1
elseif (<flags>&statf_onhorse)
sms Binek uzerinde gizlenemezsiniz.
skill fail
return 1
endif
elseif ((<action> == id(skill_herding)) || (<action> == skill_herding))
if (<targ.id> == c_pv)
skill fail
return 1
endif

elseif ((<action> == id(skill_stealing)) || (<action> == skill_stealing)) // stealing fiks
if (<targ.topobj.id> == c_pv) || (<act.id> == c_man) || (<act.id> == c_m_kraken) || (<act.id> == c_ogre) || (<act.id> == c_ettin) || (<act.id> == c_zombie) || (<act.id> == c_gargoyle) || (<act.id> == c_eagle) || (<act.id> == c_orc_lord) || (<act.id> == c_corpser) || (<act.id> == c_daemon) || (<act.id> == c_daemon_w_sword) || (<act.id> == c_dragon_green) || (<act.id> == c_elem_air) || (<act.id> == c_elem_earth) || (<act.id> == c_elem_fire) || (<act.id> == c_elem_water) || (<act.id> == c_orc) || (<act.id> == c_ettin_w_axe) || (<act.id> == c_snake_giant) || (<act.id> == c_gazer) || (<act.id> == c_liche) || (<act.id> == c_spectre) || (<act.id> == c_spider_giant) || (<act.id> == c_harpy) || (<act.id> == c_headless) || (<act.id> == c_lizardman) || (<act.id> == c_lizardman_spear) || (<act.id> == c_lizardman_mace) || (<act.id> == c_mongbat)) || (<act.id> == c_orc_w_club) || (<act.id> == c_ratman) || (<act.id> == c_ratman_w_mace) || (<act.id> == c_ratman_w_sword) ||
(<act.id> == c_reaper) || (<act.id> == c_scorpion_giant) || (<act.id> == c_skeleton) || (<act.id> == c_slime) || (<act.id> == c_snake) || (<act.id> == c_troll_w_axe) || (<act.id> == c_troll) || (<act.id> == c_troll_w_mace) || (<act.id> == c_skeleton_w_axe) || (<act.id> == c_skeleton_w_sword) || (<act.id> == c_wisp) || (<act.id> == c_dragon_red) || (<act.id> == c_dragon_small_black) || (<act.id> == c_dragon_small_red) || (<act.id> == c_terathan_warrior) || (<act.id> == c_terathan_drone) || (<act.id> == c_terathan_matriarch) || (<act.id> == c_titan) || (<act.id> == c_cyclops) || (<act.id> == c_toad_giant) || (<act.id> == c_bullfrog) || (<act.id> == c_ophidian_mage) || (<act.id> == c_ophidian_warrior) || (<act.id> == c_ophidian_queen) || (<act.id> == c_sea_monster) || (<act.id> == c_sea_serpent) || (<act.id> == c_dolphin) || (<act.id> == c_horse_tan) || (<act.id> == c_cat) || (<act.id> == c_alligator) || (<act.id> == c_pig) || (<act.id> == c_horse_brown_dk) ||
(<act.id> == c_rabbit) || (<act.id> == c_sheep_woolly) || (<act.id> == c_chicken)
skill fail
return 1

elseif !(<targ.topobj.ischar>)
sms 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


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) // bu sayi ile oynamayin, sicar.
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('Noxion UO','Locus'))
act.cont 04018c20d
try var.mts <uid.04018c20d.rescount>
elseif (strmatch('Noxion UO','Quann'))
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=@Fail
src.findid.i_spellfreeze.remove
src.f_fizzle
return 1

On=@Click
if  !(<findid.i_rune_incognito>) && (<memoryfindtype.memory_guild>)
if (strmatch('<tag.gs_title>','')
message [<memoryfindtype.memory_guild.link.name>]
else
message [<tag.gs_title>, <memoryfindtype.memory_guild.link.abbrev>]
endif
endif

On=@ItemSpell
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 (<act.type> == t_weapon_axe)
events +e_axer
endif

On=@ItemEquip
if (<act.type> == t_weapon_bow)
events +e_saplanma
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=@ItemUnEquip
if (<act.type> == t_weapon_axe)
events -e_axer
endif

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

On=@ItemClick
if (strmatch('t_eq_trade_window'))
act.message [secure]
endif

if (<act.topobj.id> == c_pv)
if (strmatch('<act.price>',''))
act.message [satilamaz]
elseif (<act.price> <= 0)
act.message [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 [<act.price> gp] [%<eval (100 - ((<act.more1l> * 100) / <act.more1h>))> eski]
else
act.message [<act.price> gp]
endif
else
act.message [<act.price> gp]
endif
endif
endif

if (<act.layer> == 21) && (<act.cont.ischar>)
act.message Inventory
return 1
else

if ((<act.attr>&attr_newbie)  // blessed itemlari belirt
act.message [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 [sabit]
endif
if (<act.baseid> == i_bones)
act.message [loot: <act.rescount> esya]
act.message <act.name>
elseif (<act.rescount> > 0)
act.message <act.typedef.name> [<act.rescount>,<eval ((<act.weight> / 10) - <act.typedef.weight>)>]
else
act.message <act.typedef.name>
endif
return 1
endif
endif
endif

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



On=@ItemPickUp_Pack
if (<act.topobj.id> == c_pv)
if !(<uid> == <act.topobj.tag.owner>)
return 1
endif
elseif !(strmatch('<act.price>',''))
if (<act.price> > 0)
act.price 0
endif
endif

On=@ItemTargOn_Item
if ((<targ.topobj.id> == c_pv) && (<act.cont.uid> != <targ.topobj.uid>))
return 1
//elseif (<targ.baseid> == i_corpse) // human cesetleri bicememe
// if ((<targ.amount> == 400) || (<targ.amount> == 401))
// return 1
// 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) // tutulan baliklari
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

// end of main fixes


[events gmfix]
On=@Click
if (0<account.plevel> == 2)
message @07ea [<serv.name> Staff]
message @07a1 Counselor <name>
title Astoroth Shard Yetkilisi
return 1
elseif (0<account.plevel> == 3)
message @07ea  [<serv.name> Staff]
message @07a1 Seer <name>
title Astoroth Shard Yetkilisi
return 1
elseif (strmatch('<account>','hiciv'))
message @07ea [<serv.name> Staff]
message @07a1 Counselor <name>
title Astoroth Shard Yetkilisi
return 1
elseif (0<account.plevel> == 4)
message @07ea [<serv.name> Staff]
message @07a1 Gamemaster <name>
title Astoroth Shard Yetkilisi
return 1
elseif (0<account.plevel> == 5)
message @07ea [<serv.name> Staff]
message @07a1 Senior Gm <name>
title Astoroth Shard Yetkilisi
return 1
elseif (0<account.plevel> == 6)
message @07ea [ <serv.name> Staff ]
message @07a1 Admin <name>
title Astoroth Shard Admin
return 1
elseif (strmatch('<account>','wilbur'))
message @0862 [Astoroth Scripter]
message @07ea Mod <name>
title Astoroth Shard Yetkilisi
return 1
elseif (0<account.plevel> == 7)
message @07a1 [<serv.name> Staff]
message @07ea Owner <name>
title Astoroth Shard Owner
return 1
endif


On=@DClick
if (0<account.plevel> < 2)
return 1
elseif
return 0
endif

On=@GetHit
return 1

on=@hit
return 1

[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_fix_anim]
ON=@SpellCast
src.events +e_fix_anim
If (<argn>=s_bless)
If (<argn>=s_protection)
If (<argn>=s_reactive_armor)
If (<argn>=s_magic_reflection)
If (<argn>=s_resurrection)
If (<src.act.npc>=brain_animal)
src.smg Bu büyüyü hayvanlar üzerinde kullanamazsiniz.
endif
endif
endif
endif
endif
endif

[events e_cikis]
on=@logout
src.findid.i_logouter.remove
src.newitem i_logouter
src.act.equip
return 1

on=@timer
timer 3
src.disconnect
return 1

[itemdef i_logouter]
name=Logouter
id=i_gold
type=t_eq_script
weight=0
layer=layer_special

On=@Equip
src.events +e_cikis
timer 3
return 1

On=@UnEquip
cont.events -e_cikis
return 1


On=@Timer
timer 3
attr attr_decay
remove
memorydel
return 1

[function memorydel] // memory silen loop
if (0<args>)
if (<findid.i_memory.link> == <args>)
findid.i_memory.remove
memorydel <args>
endif
endif

[PLEVEL 4]

[FUNCTION oldur]
src.xhits 0

[function info]
ON=@targon_char
if (<src.targ.findid.i_worldgem_bit>)
src.smg Spawnlara info cekilmesi yasaktir!
elseif
src.dialog d_itemprop1
endif

[events e_faction]

[events e_b1]
On=@Click
if (0<account.plevel> == 2)
message @07ea [<name> [Britain] ]
title Astoroth Shard Yetkilisi
return 1

[EOF]