Ice Fire Earth Energy Robe ( Tum MageR. ler )

[function msgrobe]
var.act <act>
var.p <p>
newitem i_memory
act.p 6000 2000
var.regfla <act.region.flags>
act.region.flags <region.flags>
p 6000 2000
act.sayua <eval <var.msgrobe>> 0 0 1 <args>
p <var.p>
act.region.flags <var.regfla>
act.remove
act <var.act>

[ITEMDEF i_crystal_fire]
Name=fire crystal
DEFNAME=i_fire_crystal
id=i_crystal_green_big
VALUE=15000
ON=@CREATE
COLOR=080a

[ITEMDEF i_crystal_earth]
Name=earth crystal
DEFNAME=i_earth_crystal
id=i_crystal_green_big
VALUE=15000
ON=@CREATE
COLOR=07ad

[ITEMDEF i_crystal_energy]
Name=energy crystal
DEFNAME=i_energy_crystal
id=i_crystal_green_big
VALUE=15000
ON=@CREATE
COLOR=0796

[ITEMDEF i_crystal_newbie]
Name=blessed crystal
DEFNAME=i_newbie_crystal
id=i_crystal_green_big
VALUE=15000
ON=@CREATE
COLOR=0813

[ITEMDEF i_crystal_ice]
Name=ice crystal
DEFNAME=i_ice_crystal
id=i_crystal_green_big
VALUE=15000
ON=@CREATE
COLOR=0800

[ITEMDEF i_fire_robe]
// fire Robe
NAME=mage's robe
DEFNAME=i_robe_fire
ID=i_deathshroud
TYPE=T_armor_leather
ARMOR=40
DYE=0

DESCRIPTION=Mage Robe
SUBSECTION=Special Items
CATEGORY=Provisions - GM Items

SKILLMAKE=TAILORING 98.0, MAGERY 98.0, t_sewing_kit
RESOURCES=62 i_cloth, i_fire_crystal,10 i_reag_dragon_blood
VALUE=25000

On=@Click
message [fire]
message a <name>
return 1

ON=@Equip
if (<src.tactics> > 0)
var.msgrobe 0481
src.msgrobe Savas becerisini unutmalisiniz.
unequip
return 1
endif
IF ( <SRC.MAGERY> < 97.9 )
var.msgrobe 0481
src.msgrobe En az 98 Magery'niz olmali
UNEQUIP
RETURN 1
ENDIF

IF ( <SRC.EVALUATINGINTEL> < 97.9 )
var.msgrobe 0481
src.msgrobe En az 98 Evaluating Intelligence'iniz olmali.
UNEQUIP
RETURN 1
ENDIF
src.events +e_firerobe

ON=@unEquip
src.events -e_firerobe

ON=@Create
HITPOINTS=200
COLOR=080a

[ITEMDEF i_energy_robe]
//
NAME=mage's robe
DEFNAME=i_robe_energy
ID=i_deathshroud
TYPE=T_armor_leather
ARMOR=40
DYE=0

DESCRIPTION=Mage Robe
SUBSECTION=Special Items
CATEGORY=Provisions - GM Items

SKILLMAKE=TAILORING 98.0, MAGERY 98.0, t_sewing_kit
RESOURCES=24 i_cloth, i_earth_crystal,10 i_reag_dragon_blood
VALUE=25000

On=@Click
message [energy]
message a <name>
return 1

ON=@Equip
if (<src.tactics> > 0)
var.msgrobe 0481
src.msgrobe Savas becerisini unutmalisiniz.
unequip
return 1
endif
IF ( <SRC.MAGERY> < 97.9 )
var.msgrobe 0481
src.msgrobe En az 98 Magery'niz olmali
UNEQUIP
RETURN 1
ENDIF

IF ( <SRC.EVALUATINGINTEL> < 97.9 )
var.msgrobe 0481
src.msgrobe En az 98 Evaluating Intelligence'iniz olmali.
UNEQUIP
RETURN 1
ENDIF
src.events +e_energyrobe

ON=@unEquip
src.events -e_energyrobe

ON=@Create
HITPOINTS=200
COLOR=0796

[ITEMDEF i_earth_robe]
//
NAME=mage's robe
DEFNAME=i_robe_earth
ID=i_deathshroud
TYPE=T_armor_leather
ARMOR=40
DYE=0

DESCRIPTION=Mage Robe
SUBSECTION=Special Items
CATEGORY=Provisions - GM Items

SKILLMAKE=TAILORING 98.0, MAGERY 98.0, t_sewing_kit
RESOURCES=24 i_cloth, i_earth_crystal,10 i_reag_dragon_blood
VALUE=25000

On=@Click
message [earth]
message a <name>
return 1

ON=@Equip
if (<src.tactics> > 0)
var.msgrobe 0481
src.msgrobe Savas becerisini unutmalisiniz.
unequip
return 1
endif
IF ( <SRC.MAGERY> < 97.9 )
var.msgrobe 0481
src.msgrobe En az 98 Magery'niz olmali
UNEQUIP
RETURN 1
ENDIF

IF ( <SRC.EVALUATINGINTEL> < 97.9 )
var.msgrobe 0481
src.msgrobe En az 98 Evaluating Intelligence'iniz olmali.
UNEQUIP
RETURN 1
ENDIF
src.events +e_earthrobe

ON=@unEquip
src.events -e_earthrobe

ON=@Create
HITPOINTS=200
COLOR=07ad

[ITEMDEF i_robe_ice]
//
NAME=mage's robe
DEFNAME=i_ice_robe
ID=i_deathshroud
TYPE=T_armor_leather
ARMOR=40
DYE=0

DESCRIPTION=Mage Robe
SUBSECTION=Special Items
CATEGORY=Provisions - GM Items

SKILLMAKE=TAILORING 98.0, MAGERY 98.0, t_sewing_kit
RESOURCES=24 i_cloth, i_ice_crystal,10 i_reag_dragon_blood
VALUE=25000

On=@Click
message [ice]
message a <name>
return 1

ON=@Equip
if (<src.tactics> > 0)
var.msgrobe 0481
src.msgrobe Savas becerisini unutmalisiniz.
unequip
return 1
endif
IF ( <SRC.MAGERY> < 97.9 )
var.msgrobe 0481
src.msgrobe En az 98 Magery'niz olmali
UNEQUIP
RETURN 1
ENDIF

IF ( <SRC.EVALUATINGINTEL> < 97.9 )
var.msgrobe 0481
src.msgrobe En az 98 Evaluating Intelligence'iniz olmali.
UNEQUIP
RETURN 1
ENDIF

src.SPELLEFFECT s_protection,100.0
src.SPELLEFFECT s_reactive_armor,100.0
src.SPELLEFFECT s_night_sight,100.0
SOUND=snd_SPELL_PROTECTION

src.events +e_icerobe

ON=@unequip
src.events -e_icerobe

if (<src.tactics> > 0)
return 1
endif
IF ( <SRC.MAGERY> < 97.9 )
RETURN 1
ENDIF

IF ( <SRC.EVALUATINGINTEL> < 97.9 )
RETURN 1
ENDIF

src.findid.i_rune_protection.remove
src.findid.i_rune_reactive_armor.remove
src.findid.i_rune_night_sight.remove

ON=@Create
HITPOINTS=200
COLOR=0800

[events e_firerobe]
ON=@Spelleffect
if !(<restest 1 i_robe_fire>)
elseiF (<ARGN>=5)
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

if !(<restest 1 i_robe_fire>)
elseiF (<ARGN>=18)
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

if !(<restest 1 i_robe_fire>)
elseiF (<ARGN>=28)
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

if !(<restest 1 i_robe_fire>)
elseiF (<ARGN>=43)
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

if !(<restest 1 i_robe_fire>)
elseiF (<ARGN>=51)
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

[events e_icerobe]
ON=@Spelleffect
if !(<restest 1 i_robe_ice>)
elseIF (<ARGN>=41)
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

if !(<restest 1 i_robe_ice>)
elseIF (<ARGN>=54)
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

if !(<restest 1 i_robe_ice>)
elseIF (<ARGN>=26)
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

if !(<restest 1 i_robe_ice>)
elseIF (<ARGN>=7)
sayua 0481,6,0,enu * etkilenmez *
RETURN 1
ENDIF

if !(<restest 1 i_robe_ice>)
elseIF (<ARGN>=15)
sayua 0481,6,0,enu * etkilenmez *
RETURN 1
ENDIF

if !(<restest 1 i_robe_ice>)
elseIF (<ARGN>=6)
sayua 0481,6,0,enu * etkilenmez *
RETURN 1
ENDIF

if !(<restest 1 i_robe_smow>)
elseIF (<ARGN>=38)
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

if !(<restest 1 i_robe_ice>)
elseIF (<ARGN>=47)
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

[events e_earthrobe]
ON=@GetHit
if (<src.poisoning> >= 98.0) && (<src.poisoning> > <poisoning>)

elseif (<findid.i_rune_poison>)
sayua 036,0,0,0 * poison resist *
FINDID.i_rune_poison.remove
endif

ON=@Spelleffect
if !(<restest 1 i_robe_earth>)
elseIF (<ARGN>=57)
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

if !(<restest 1 i_robe_earth>)
elseIF (<ARGN>=55)
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

if !(<restest 1 i_robe_earth>)
elseIF (<ARGN>=12)
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

[events e_energyrobe]
ON=@Spelleffect
if !(<restest 1 i_robe_energy>)
elseIF (<ARGN>=42)
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

if !(<restest 1 i_robe_energy>)
elseIF (<ARGN>=1)
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

if !(<restest 1 i_robe_energy>)
elseIF (<ARGN>=3)
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

if !(<restest 1 i_robe_energy>)
elseIF (<ARGN>=
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

if !(<restest 1 i_robe_energy>)
elseIF (<ARGN>=27)
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

if !(<restest 1 i_robe_energy>)
elseIF (<ARGN>=46)
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

if !(<restest 1 i_robe_energy>)
elseIF (<ARGN>=1)
sayua 036,0,0,0 * etkilenmez *
RETURN 1
ENDIF

[EOF]