|
|
  |
 Некро бука, и некроспелы |
|
|
| Smizzy |
 24.5.2005, 4:23
|
V!ru$ cr3w
Сообщений: 156
Регистрация: 10.10.2004
Группа: Пользователи
Наличность: 0
Из: Питер
Пользователь №: 2.391
|
Собсно написано кто делал и тд (IMG: style_emoticons/default/wink.gif) Код /////////////////////////////////////////////////////////////////////////
// Necro Book, using internal spell defs (written for 55i)
//
// Supports scroll dropon (scrolls included)
// For this to work put everything in a file called 'vnecro.scp'
//
// Created by Belgar of 'A Virtual Paradise'. A free, player run, shard
// This file is free for use on other free shards
//
// Please do not repost this script without my permission
// If you modify this file, please leave this header intact
/////////////////////////////////////////////////////////////////////////
[itemdef i_book_necro]
name=Book of the Underworld
id=i_spellbook
type=t_spellbook
on=@create
color=0492
attr=04
on=@click
var.font=<src.font>
src.font=8
src.speechcolor=040
src.say NECRO DOMINUS
src.font=<var.font>
return 0
on=@dclick
DIALOG d_nec
return 1
[dialog d_nec]
0,0
button 56 151 32 32 1 1 7
gumppic 50 50 2220
page 1
text 140 65 <eval 38+(10000 * isbit(<morex>,0))> 41
text 280 65 <eval 38+(10000 * (isbit(<morex>,3)/8))> 41
button 115 95 2299 2299 1 1 1
button 100 58 2205 2205 0 5 8
button 373 58 2206 2206 0 2
resizepic 110 90 83 60 60
tilepic 120 100 8428
gumppic 110 155 2101
gumppic 125 155 2101
gumppic 140 155 2101
gumppic 155 155 2101
gumppic 170 155 2101
gumppic 185 155 2101
gumppic 200 155 2101
htmlgump 180 100 60 60 0 0 0
text 110 160 900 1 08
HTMLGUMP 120 180 80 80 2 0 0
button 285 95 2299 2299 1 1 2
resizepic 280 90 83 60 60
tilepic 290 110 2594
gumppic 280 155 2101
gumppic 295 155 2101
gumppic 310 155 2101
gumppic 325 155 2101
gumppic 340 155 2101
gumppic 355 155 2101
gumppic 370 155 2101
htmlgump 350 100 60 60 3 0 0
text 280 160 900 1 08
HTMLGUMP 290 180 90 80 4 0 0
page 2
text 140 65 <eval 38+(10000 * (isbit(<morex>,2)/4))> 41
text 280 65 <eval 38+(10000 * (isbit(<morex>,4)/16))> 41
button 115 95 2299 2299 1 1 3
button 100 58 2205 2205 0 1
button 373 58 2206 2206 0 3
resizepic 110 90 83 60 60
tilepic 120 100 5204
gumppic 110 155 2101
gumppic 125 155 2101
gumppic 140 155 2101
gumppic 155 155 2101
gumppic 170 155 2101
gumppic 185 155 2101
gumppic 200 155 2101
htmlgump 180 100 60 60 5 0 0
text 110 160 900 1 08
HTMLGUMP 120 180 80 80 6 0 0
button 285 95 2299 2299 1 1 4
resizepic 280 90 83 60 60
tilepic 285 100 14068
gumppic 280 155 2101
gumppic 295 155 2101
gumppic 310 155 2101
gumppic 325 155 2101
gumppic 340 155 2101
gumppic 355 155 2101
gumppic 370 155 2101
htmlgump 350 100 60 60 7 0 0
text 280 160 900 1 08
HTMLGUMP 290 180 90 80 8 0 0
page 3
text 140 65 <eval 38+(10000 * (isbit(<morex>,5)/32))> 41
text 280 65 <eval 38+(10000 * (isbit(<morex>,1)/2))> 41
button 115 95 2299 2299 1 1 5
button 100 58 2205 2205 0 2
button 373 58 2206 2206 0 4
resizepic 110 90 83 60 60
tilepic 100 98 14031
tilepic 115 107 7960
gumppic 110 155 2101
gumppic 125 155 2101
gumppic 140 155 2101
gumppic 155 155 2101
gumppic 170 155 2101
gumppic 185 155 2101
gumppic 200 155 2101
htmlgump 177 100 100 60 9 0 0
text 110 160 900 1 08
HTMLGUMP 120 180 100 80 10 0 0
button 285 95 2299 2299 1 1 6
resizepic 280 90 83 60 60
tilepic 283 99 4414
tilepic 287 105 3789
gumppic 280 155 2101
gumppic 295 155 2101
gumppic 310 155 2101
gumppic 325 155 2101
gumppic 340 155 2101
gumppic 355 155 2101
gumppic 370 155 2101
htmlgump 350 100 60 60 11 0 0
text 280 160 900 1 08
HTMLGUMP 290 180 90 80 12 0 0
page 4
button 100 58 2205 2205 0 3
text 110 90 900 13
page 5
resizepic 100 100 3600 400 300
tilepic 120 120 3962
tilepic 125 125 3962
tilepic 160 120 3963
tilepic 165 125 3963
tilepic 210 120 3972
tilepic 215 125 3972
tilepic 240 120 3973
tilepic 245 125 3973
tilepic 280 120 3974
tilepic 285 125 3974
tilepic 320 120 3976
tilepic 325 125 3976
tilepic 360 120 3980
tilepic 365 125 3980
tilepic 400 120 3981
tilepic 405 125 3981
HTMLGUMP 130 140 40 20 14 0 0 0
HTMLGUMP 170 140 40 20 15 0 0 0
HTMLGUMP 215 140 40 20 16 0 0 0
HTMLGUMP 250 140 40 20 17 0 0 0
HTMLGUMP 290 140 40 20 18 0 0 0
HTMLGUMP 330 140 40 20 19 0 0 0
HTMLGUMP 370 140 40 20 20 0 0 0
HTMLGUMP 410 140 40 20 21 0 0 0
tilepic 120 170 3960
tilepic 125 175 3960
tilepic 160 170 3961
tilepic 165 175 3961
tilepic 210 170 3964
tilepic 215 175 3964
tilepic 240 170 3965
tilepic 245 175 3965
tilepic 280 170 3966
tilepic 285 175 3966
tilepic 320 170 3967
tilepic 325 175 3967
tilepic 360 170 3968
tilepic 365 175 3968
tilepic 400 170 3969
tilepic 405 175 3969
tilepic 440 170 3970
tilepic 445 175 3970
HTMLGUMP 130 190 40 20 22 0 0 0
HTMLGUMP 170 190 40 20 23 0 0 0
HTMLGUMP 215 190 40 20 24 0 0 0
HTMLGUMP 250 190 40 20 25 0 0 0
HTMLGUMP 290 190 40 20 26 0 0 0
HTMLGUMP 330 190 40 20 27 0 0 0
HTMLGUMP 370 190 40 20 28 0 0 0
HTMLGUMP 410 190 40 20 29 0 0 0
HTMLGUMP 450 190 40 20 30 0 0 0
tilepic 120 220 3971
tilepic 125 225 3971
tilepic 160 220 3975
tilepic 165 225 3975
tilepic 210 220 3977
tilepic 215 225 3977
tilepic 240 220 3978
tilepic 245 225 3978
tilepic 280 220 3979
tilepic 285 225 3979
tilepic 320 220 3982
tilepic 325 225 3982
tilepic 360 220 3983
tilepic 365 225 3983
tilepic 400 220 3984
tilepic 405 225 3984
tilepic 440 220 3985
tilepic 445 225 3985
HTMLGUMP 130 240 40 20 31 0 0 1
HTMLGUMP 170 240 40 20 32 0 0 0
HTMLGUMP 215 240 40 20 33 0 0 0
HTMLGUMP 250 240 40 20 34 0 0 0
HTMLGUMP 290 240 40 20 35 0 0 0
HTMLGUMP 330 240 40 20 36 0 0 0
HTMLGUMP 370 240 40 20 37 0 0 0
HTMLGUMP 410 240 40 20 38 0 0 0
HTMLGUMP 450 240 40 20 39 0 0 0
button 410 320 2234 2234 0 1
[dialog d_nec text]
Summon Undead
Reagents:
Bloodmoss Vial of Blood Bones
Light
Eyes of Newt Sulforous Ash
Bone Armor
Bones Spider Silk
Firebolt
Sulforous Ash Dragons Blood Black Pearl
Hallucination
Blackmoor Executioners Cap Nightshade
Animate Dead
Dragons Blood Vial of Blood Wyrm's Heart
Guild Necromancer only
<src.rescount i_reag_black_pearl>
<src.rescount i_reag_blood_moss>
<src.rescount i_reag_garlic>
<src.rescount i_reag_ginseng>
<src.rescount i_reag_mandrake_root>
<src.rescount i_reag_nightshade>
<src.rescount i_reag_sulfur_ash>
<src.rescount i_reag_spider_silk>
<src.rescount i_reag_BATWING>
<src.rescount i_reag_blackmoor>
<src.rescount i_reag_blood_spawn>
<src.rescount i_reag_blood_vial>
<src.rescount i_reag_bone>
<src.rescount i_reag_brimstone>
<src.rescount i_reag_daemon_bone>
<src.rescount i_reag_fertile_dirt>
<src.rescount i_reag_dragon_blood>
<src.rescount i_reag_executioners_cap>
<src.rescount i_reag_eye_of_newt>
<src.rescount i_reag_obsidian>
<src.rescount i_reag_pig_iron>
<src.rescount i_reag_pumice>
<src.rescount i_reag_serpent_scale>
<src.rescount i_reag_volcanic_ash>
<src.rescount i_reag_dead_wood>
<src.rescount i_reag_worm_heart>
<not used anymore>
Not learned
[dialog d_nec button]
onbutton=1
src.cast 65
onbutton=2
src.cast 68
onbutton=3
src.cast 67
onbutton=4
src.cast 69
onbutton=5
src.cast 70
onbutton=6
src.cast 66
onbutton=7
src.dialog d_necro_small
[dialog d_necro_small]
0,0
nodispose
noclose
button 23 170 2284 2284 1 0 1
resizepic 20 165 5120 50 56
tilepic 20 170 4471
[dialog d_necro_small text]
[dialog d_necro_small button]
onbutton=1
src.findid(i_book_necro).dclick
[itemdef i_scroll_summon_undead]
id=014ed
name=Scroll of Summon Undead
type=t_scroll
on=@create
color=0485
morex=65
morey=25.0
attr=020
[itemdef i_scroll_animate_dead]
id=014ed
name=Scroll of Animate Dead
type=t_scroll
on=@create
color=0482
morex=66
morey=25.0
attr=020
[itemdef i_scroll_bone_armor]
id=014ed
name=Scroll of Bone Armor
type=t_scroll
on=@create
color=0774
morex=67
morey=25.0
attr=020
[itemdef i_scroll_light]
id=014ed
name=Scroll of Light
type=t_scroll
on=@create
color=07a2
morex=68
morey=25.0
attr=020
[itemdef i_scroll_firebolt]
id=014ed
name=Scroll of Fire Bolt
type=t_scroll
on=@create
color=0793
morex=69
morey=25.0
attr=020
[itemdef i_scroll_hallucination]
id=014ed
name=Scroll of Hallucination
type=t_scroll
on=@create
color=07aa
morex=70
morey=25.0
attr=020
[Spell 65]
DEFNAME=s_summon_undead
NAME=Summon Undead
SOUND=snd_SPELL_SUMMON_UNDEAD
RUNES=KNM
CAST_TIME=20
RESOURCES=i_reag_blood_moss,i_reag_bone,i_reag_blood_vial
RUNE_ITEM=i_RUNE_ALCHEM_1
SCROLL_ITEM=i_scroll_summon_undead
FLAGS=SPELLFLAG_TARG_XYZ | SPELLFLAG_SUMMON
EFFECT_ID=0
EFFECT=0
DURATION=2*60.0,3*60.0
MANAUSE=15
SKILLREQ=NECROMANCY 40.0, MAGERY 30.0
[Spell 66]
DEFNAME=s_animate_dead
NAME=Animate Dead
SOUND=snd_SPELL_ANIMATE_DEAD
RUNES=IAMG
CAST_TIME=40
RESOURCES=i_reag_dragon_blood,i_reag_blood_vial,i_reag_worm_heart
RUNE_ITEM=i_RUNE_ALCHEM_2
SCROLL_ITEM=i_scroll_animate_dead
FLAGS=SPELLFLAG_TARG_OBJ
EFFECT_ID=0
EFFECT=0
DURATION=2*60.0,3*60.0
MANAUSE=50
// NOTE: This spell, in past testings, when used on a player corpse, would cause the loss of all players effects upon decay. I suggest code that when used on a player corpse and the player is in the area that it ressurects the player, retains the items, but leaves him controlled by the caster for the duration of the spell, like a pet :)
SKILLREQ=NECROMANCY 70.0, MAGERY 30.0
[Spell 67]
DEFNAME=s_bone_armor
NAME=Bone Armor
SOUND=snd_SPELL_BONE_ARMOR
RUNES=ICSY
CAST_TIME=20
RESOURCES=i_reag_bone,i_reag_spider_silk
RUNE_ITEM=i_RUNE_ALCHEM_3
SCROLL_ITEM=i_scroll_bone_armor
FLAGS=SPELLFLAG_TARG_OBJ
EFFECT_ID=0
EFFECT=0
DURATION=0.0
MANAUSE=15
SKILLREQ=NECROMANCY 40.0, MAGERY 30.0
[Spell 68]
DEFNAME=s_light
NAME=Light
SOUND=snd_SPELL_LIGHT
RUNES=IL
CAST_TIME=60
RESOURCES=i_reag_eye_of_newt,i_reag_sulfur_ash
RUNE_ITEM=i_light_source
SCROLL_ITEM=i_scroll_light
FLAGS=SPELLFLAG_TARG_CHAR| SPELLFLAG_GOOD
EFFECT_ID=0
EFFECT=0
DURATION=3*60.0,5*60.0
MANAUSE=15
SKILLREQ=NECROMANCY 40.0, MAGERY 30.0
[Spell 69]
DEFNAME=s_fire_bolt
NAME=Fire Bolt
SOUND=snd_SPELL_FIRE_BOLT
RUNES=VFP
CAST_TIME=60
RESOURCES=i_reag_black_pearl,i_reag_sulfur_ash,i_reag_dragon_blood
RUNE_ITEM=i_rune_FIREBALL
SCROLL_ITEM=i_scroll_firebolt
FLAGS=SPELLFLAG_TARG_CHAR | SPELLFLAG_DIR_ANIM | SPELLFLAG_HARM | SPELLFLAG_FX_BOLT| SPELLFLAG_RESIST
EFFECT_ID=0
EFFECT=30,50
DURATION=0.0
MANAUSE=20
SKILLREQ=NECROMANCY 60.0, MAGERY 30.0
[Spell 70]
DEFNAME=s_Hallucination
NAME=Hallucination
SOUND=snd_Z_END_MYSTERY1
RUNES=WN
CAST_TIME=60
RESOURCES=i_reag_blackmoor,i_reag_nightshade,i_reag_executioners_cap
RUNE_ITEM=i_rune_MIND_BLAST
SCROLL_ITEM=i_scroll_hallucination
FLAGS=SPELLFLAG_TARG_CHAR|SPELLFLAG_DIR_ANIM| SPELLFLAG_HARM | SPELLFLAG_FX_TARG| SPELLFLAG_RESIST
EFFECT_ID=i_fx_curse
EFFECT=2,5
DURATION=2*60.0,4*60.0
MANAUSE=15
SKILLREQ=NECROMANCY 70.0, MAGERY 30.0
--------------------
[V!ru$].
No one like us and we don`t care
|
|
|
|
|
|
| Smizzy |
24.5.2005, 4:24
|
V!ru$ cr3w
Сообщений: 156
Регистрация: 10.10.2004
Группа: Пользователи
Наличность: 0
Из: Питер
Пользователь №: 2.391
|
а вот и спелы.......... Код //**Script built by Amlaruil, aka GM Dalzhim**//
//http://www.majinnet.com/ss/
//**Hoping anyone who makes use of this script gives credit to it's real author**//
//First of all, I want to say thanks to Trunks for hosting this website :)
//To use this script, you need both files: NecroSpells.scp and Necro Book.scp .
//Once that you have both, you can create a necro book using: .add i_necro_book
//and just dclick it to open up the dialog and play with the custom made spells!
//Please do not remove this header..
//Enjoy!
[ITEMDEF i_necro_light_rune]
ID=i_memory
TYPE=t_eq_script
NAME=Light Rune
ON=@EQUIP
CONT.SAY In Lor
CONT.MANA=(<CONT.MANA>-5)
TIMER=1
ON=@TIMER
MORE1=<EVAL (Rand(1025))>
IF !(<MORE1><<CONT.NECROMANCY>)
CONT.SOUND=92
CONT.SYSMESSAGE The spell fizzles.
ELSE
CONT.NEWITEM=i_light_source_necro
CONT.ACT.CONT=<CONT>
CONT.ACT.ATTR=02
CONT.ACT.TIMER=300
CONT.SOUND=snd_SPELL_LIGHT
CONT.ANIM 17
CONT.FIX
ENDIF
REMOVE
RETURN 1
[ITEMDEF i_light_source_necro]
DEFNAME=i_light_source_necro
ID=i_light_source
ON=@TIMER
REMOVE
RETURN 1
[ITEMDEF i_restore]
ID=i_floor_blue
DEFNAME=i_restore
ON=@CREATE
ATTR=082
TIMER=60
ON=@DCLICK
TARGET Choose a target!
RETURN 1
TIMER=60
ON=@TARGON_CHAR
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE Target isn't in your line of sight.
REMOVE
RETURN 1
ENDIF
IF (<SRC.TARG.HITS>>=<SRC.TARG.STR>) && (<SRC.TARG.STAM>>=<SRC.TARG.DEX>)
SRC.MESSAGE Target has nothing to restore!
REMOVE
RETURN 1
ENDIF
IF ((<SRC.TARG.FLAGS>&02000000) && !(<SRC.FLAGS>&02000000)) || ((<SRC.TARG.KILLS>>9) && !(<SRC.FLAGS>&02000000))
SRC.FLAGS=(<SRC.FLAGS>+02000000)
ENDIF
SRC.NEWITEM=i_necro_restore_rune
SRC.ACT.LINK=<SRC.TARG.UID>
SRC.ACT.EQUIP
REMOVE
RETURN 1
[ITEMDEF i_necro_restore_rune]
ID=i_memory
TYPE=t_eq_script
NAME=Restore Rune
ON=@EQUIP
CONT.SAY Uus Mani Sanct
CONT.MANA=<CONT.MANA>-15
TIMER=1
ON=@TIMER
MORE1=<EVAL (Rand(1025))>
IF !(<MORE1><<CONT.NECROMANCY>)
CONT.SOUND=92
CONT.SYSMESSAGE The spell fizzles.
REMOVE
RETURN 1
ENDIF
LINK.HITS=<EVAL <LINK.HITS>+(RAND(10)+10)>
LINK.STAM=<EVAL <LINK.STAM>+(RAND(10)+10)>
IF (<LINK.HITS>><LINK.STR>)
LINK.HITS=<LINK.STR>
ENDIF
IF (<LINK.STAM>><LINK.DEX>)
LINK.STAM=<LINK.DEX>
ENDIF
CONT.SOUND=01fc
CONT.ANIM 17
CONT.FIX
REMOVE
RETURN 1
[ITEMDEF i_Mana_Drain]
ID=i_deed
DEFNAME=i_Mana_Drain
ON=@CREATE
ATTR=082
TIMER=60
ON=@DCLICK
TARGET Choose a target!
ON=@TARGON_CHAR
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE Target isn't in your line of sight.
REMOVE
RETURN 1
ENDIF
IF (<SRC.TARG.NPC>==0)
IF !(<SRC.TARG.ACCOUNT.PLEVEL><<SRC.ACCOUNT.PLEVEL>)
SRC.SYSMESSAGE Target is more privileged than you.
REMOVE
RETURN 1
ENDIF
ENDIF
IF (<SRC.MANA>>=<SRC.INT>)
SRC.MESSAGE You can't drain more mana than what you have.
REMOVE
RETURN 1
ENDIF
VAR.MEMORYCONT=<SRC.TARG.UID>
SRC.NEWITEM=i_memory
SRC.ACT.COLOR=memory_harmedby
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.CONT=<VAR.MEMORYCONT>
IF (<SRC.TARG.NPC>==0)
IF (((<SRC.TARG.KARMA>>0) || (<SRC.TARG.KILLS><10)) && !(<SRC.FLAGS>&02000000))
SRC.FLAGS=<SRC.FLAGS>+02000000
ENDIF
ENDIF
SRC.NEWITEM=i_necro_mana_drain_rune
SRC.ACT.LINK=<SRC.TARG.UID>
SRC.ACT.EQUIP
[ITEMDEF i_necro_mana_drain_rune]
ID=i_memory
TYPE=t_eq_script
NAME=Mana Drain Rune
ON=@EQUIP
CONT.SAY Ort Rel
CONT.MANA=<CONT.MANA>-5
TIMER=1
ON=@TIMER
MORE1=<EVAL (Rand(1025))>
IF !(<MORE1><<CONT.NECROMANCY>)
SOUND=92
CONT.SYSMESSAGE The spell fizzles.
CONT.MANA=<CONT.MANA>-20
REMOVE
RETURN 1
ENDIF
IF (<LINK.FLAGS>&0200)
LINK.FLAGS=(<LINK.FLAGS>-0200)
CONT.MESSAGE Magic Reflection blocks the spell.
CONT.ANIM 20
CONT.BARK 3
CONT.SOUND=snd_SPELL_MANA_VAMPIRE
CONT.EFFECT=3,i_fx_sparkle_2,6,15,1
CONT.FIX
CONT.UPDATE
IF (<SRC.MANA><0)
SRC.MANA=0
ENDIF
ELSE
LINK.ANIM 20
LINK.BARK 3
CONT.ANIM 16
CONT.SOUND=snd_SPELL_MANA_VAMPIRE
LINK.effect=3,i_fx_sparkle_2,6,15,1
CONT.TAG.TMANA={1 20}
IF (<LINK.MANA> >= <CONT.TAG.TMANA>)
CONT.MANA=<EVAL <CONT.MANA>+<CONT.TAG.TMANA>>
LINK.MANA=<EVAL <LINK.MANA>-<CONT.TAG.TMANA>>
ELSE
CONT.MANA=<EVAL <CONT.MANA>+<LINK.MANA>>
LINK.MANA=0
ENDIF
ENDIF
REMOVE
RETURN 1
[ITEMDEF i_Scath]
ID=i_floor_blue
DEFNAME=i_Scath
ON=@CREATE
ATTR=082
TIMER=60
ON=@DCLICK
TARGET Choose a target!
RETURN 1
ON=@TARGON_CHAR
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE Target isn't in your line of sight.
REMOVE
RETURN 1
ENDIF
IF (<SRC.TARG.NPC>==0)
IF !(<SRC.TARG.ACCOUNT.PLEVEL><<SRC.ACCOUNT.PLEVEL>)
SRC.SYSMESSAGE Target is more privileged than you.
REMOVE
RETURN 1
ENDIF
ENDIF
IF (<SRC.TARG.FLAGS>&01)
REMOVE
RETURN 1
ENDIF
VAR.MEMORYCONT=<SRC.TARG.UID>
SRC.NEWITEM=i_memory
SRC.ACT.COLOR=memory_harmedby
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.CONT=<VAR.MEMORYCONT>
IF (<SRC.TARG.NPC>==0)
IF (((<SRC.TARG.KARMA>>0) || (<SRC.TARG.KILLS><10)) && !(<SRC.FLAGS>&02000000))
SRC.FLAGS=<SRC.FLAGS>+02000000
ENDIF
ENDIF
SRC.NEWITEM=i_necro_scath_rune
SRC.ACT.LINK=<SRC.TARG.UID>
SRC.ACT.EQUIP
REMOVE
RETURN 1
[ITEMDEF i_necro_scath_rune]
ID=i_memory
TYPE=t_eq_script
NAME=Scath Rune
ON=@EQUIP
CONT.SAY Vas An Mani
CONT.MANA=<CONT.MANA>-10
TIMER=1
ON=@TIMER
MORE1=<EVAL (Rand(1025))>
IF !(<MORE1><<CONT.NECROMANCY>)
CONT.SOUND=92
CONT.SYSMESSAGE The spell fizzles.
CONT.SAY Vas An Mani
CONT.MANA=(<CONT.MANA>-10)
REMOVE
RETURN 1
ENDIF
IF (<LINK.FLAGS>&0200)
LINK.FLAGS=(<LINK.FLAGS>-0200)
CONT.MESSAGE Magic Reflection sends the spell back to you.
CONT.SOUND=snd_SPELL_HARM
CONT.ANIM 20
CONT.BARK 3
CONT.HITS=<EVAL (<CONT.HITS>-Rand(20))>
REMOVE
RETURN 1
ENDIF
CONT.ANIM 16
CONT.SOUND=snd_SPELL_HARM
IF (<LINK.NPC>>0) || (!(<LINK.BODY>==c_man) && !(<LINK.BODY>==c_woman))
LINK.ANIM 10
ELSE
LINK.ANIM 20
ENDIF
LINK.BARK 3
LINK.HITS=<EVAL (<LINK.HITS>-Rand(20))>
REMOVE
RETURN 1
[ITEMDEF i_necro_summon_undead_rune]
ID=i_memory
TYPE=t_eq_script
NAME=Summon Undead Rune
ON=@EQUIP
CONT.SAY Kal Corp Xen
CONT.MANA=<CONT.MANA>-15
TIMER=1
ON=@TIMER
MORE1=<EVAL (Rand(1050))>
IF !(<MORE1><<CONT.NECROMANCY>)
SOUND=92
CONT.SYSMESSAGE The spell fizzles.
RETURN 1
ENDIF
IF (<CONT.Necromancy><=54.9)
CONT.ANIM 17
IF (<CONT.MANA>>=15)
CONT.NEWNPC=c_Necro_Zombie
CONT.TAG.IT=<CONT.ACT.UID>
CONT.ACT.FLAGS=statf_conjured
CONT.ACT.KARMA=0
CONT.ACT.FAME=0
CONT.ACT.SAY *Yes Master*
VAR.VEND=<CONT.ACT.UID>
CONT.NEWITEM=i_memory
CONT.ACT.COLOR=memory_ipet
CONT.ACT.LINK=<CONT.UID>
CONT.ACT.LAYER=layer_special
CONT.ACT.CONT=<VAR.VEND>
CONT.NEWITEM=i_SummonUndead
CONT.ACT.P=<CONT.P>
CONT.ACT.LINK=<CONT.TAG.IT>
CONT.ACT.TRIGGER=@DCLICK
CONT.MANA=(<CONT.MANA>-15)
RETURN 1
ELSE
CONT.MESSAGE *You Lack Magical Power*
ENDIF
ELSEIF (<CONT.Necromancy>>=550) && (<CONT.Necromancy><=599)
IF (<CONT.MANA>>=20)
CONT.NEWNPC=c_Necro_skeleton
CONT.TAG.IT=<CONT.ACT.UID>
CONT.ACT.FLAGS=statf_conjured
CONT.ACT.KARMA=0
CONT.ACT.FAME=0
CONT.ACT.SAY *Yes Master*
VAR.VEND=<CONT.ACT.UID>
CONT.NEWITEM=i_memory
CONT.ACT.COLOR=memory_ipet
CONT.ACT.LINK=<CONT.UID>
CONT.ACT.LAYER=layer_special
CONT.ACT.CONT=<VAR.VEND>
CONT.NEWITEM=i_SummonUndead
CONT.ACT.P=<CONT.P>
CONT.ACT.LINK=<CONT.TAG.IT>
CONT.ACT.TRIGGER=@DCLICK
CONT.MANA=(<CONT.MANA>-20)
RETURN 1
ELSE
CONT.MESSAGE *You Lack Magical Power*
ENDIF
ELSEIF (<CONT.Necromancy>>=600) && (<CONT.Necromancy><=649)
IF (<CONT.MANA>>=25)
CONT.NEWNPC=c_Necro_sword
CONT.TAG.IT=<CONT.ACT.UID>
CONT.ACT.FLAGS=statf_conjured
CONT.ACT.SAY *Yes Master*
CONT.ACT.KARMA=0
CONT.ACT.FAME=0
VAR.VEND=<CONT.ACT.UID>
CONT.NEWITEM=i_memory
CONT.ACT.COLOR=memory_ipet
CONT.ACT.LINK=<CONT.UID>
CONT.ACT.LAYER=layer_special
CONT.ACT.CONT=<VAR.VEND>
CONT.NEWITEM=i_SummonUndead
CONT.ACT.P=<CONT.P>
CONT.ACT.LINK=<CONT.TAG.IT>
CONT.ACT.TRIGGER=@DCLICK
CONT.MANA=(<CONT.MANA>-25)
RETURN 1
ELSE
CONT.MESSAGE *You Lack Magical Power*
ENDIF
ELSEIF (<CONT.Necromancy>>=650) && (<CONT.Necromancy><=699)
IF (<CONT.MANA>>=30)
CONT.NEWNPC=c_Necro_Ghoul
CONT.TAG.IT=<CONT.ACT.UID>
CONT.ACT.FLAGS=statf_conjured
CONT.ACT.KARMA=0
CONT.ACT.FAME=0
CONT.ACT.SAY *Yes Master*
VAR.VEND=<CONT.ACT.UID>
CONT.NEWITEM=i_memory
CONT.ACT.COLOR=memory_ipet
CONT.ACT.LINK=<CONT.UID>
CONT.ACT.LAYER=layer_special
CONT.ACT.CONT=<VAR.VEND>
CONT.NEWITEM=i_SummonUndead
CONT.ACT.P=<CONT.P>
CONT.ACT.LINK=<CONT.TAG.IT>
CONT.ACT.TRIGGER=@DCLICK
CONT.MANA=(<CONT.MANA>-30)
RETURN 1
ELSE
CONT.MESSAGE *You Lack Magical Power*
ENDIF
ELSEIF (<CONT.Necromancy>>=700) && (<CONT.Necromancy><=749)
IF (<CONT.MANA>>=40)
CONT.NEWNPC=c_Necro_Mage
CONT.TAG.IT=<CONT.ACT.UID>
CONT.ACT.FLAGS=statf_conjured
CONT.ACT.KARMA=0
CONT.ACT.FAME=0
CONT.ACT.SAY *Yes Master*
VAR.VEND=<CONT.ACT.UID>
CONT.NEWITEM=i_memory
CONT.ACT.COLOR=memory_ipet
CONT.ACT.LINK=<CONT.UID>
CONT.ACT.LAYER=layer_special
CONT.ACT.CONT=<VAR.VEND>
CONT.NEWITEM=i_SummonUndead
CONT.ACT.P=<CONT.P>
CONT.ACT.LINK=<CONT.TAG.IT>
CONT.ACT.TRIGGER=@DCLICK
CONT.MANA=(<CONT.MANA>-35)
RETURN 1
ELSE
CONT.MESSAGE *You Lack Magical Power*
ENDIF
ELSEIF (<CONT.Necromancy>>=750) && (<CONT.Necromancy><=849)
IF (<CONT.MANA>>=50)
CONT.NEWNPC=c_Necro_Knight
CONT.TAG.IT=<CONT.ACT.UID>
CONT.ACT.FLAGS=statf_conjured
CONT.ACT.KARMA=0
CONT.ACT.FAME=0
CONT.ACT.SAY *Yes Master*
VAR.VEND=<CONT.ACT.UID>
CONT.NEWITEM=i_memory
CONT.ACT.COLOR=memory_ipet
CONT.ACT.LINK=<CONT.UID>
CONT.ACT.LAYER=layer_special
CONT.ACT.CONT=<VAR.VEND>
CONT.NEWITEM=i_SummonUndead
CONT.ACT.P=<CONT.P>
CONT.ACT.LINK=<CONT.TAG.IT>
CONT.ACT.TRIGGER=@DCLICK
CONT.MANA=(<CONT.MANA>-40)
RETURN 1
ELSE
CONT.MESSAGE *You Lack Magical Power*
ENDIF
ELSEIF (<CONT.Necromancy>>=850) && (<CONT.Necromancy><=899)
IF (<CONT.MANA>>=60)
CONT.NEWNPC=c_Necro_liche
CONT.TAG.IT=<CONT.ACT.UID>
CONT.ACT.FLAGS=statf_conjured
CONT.ACT.KARMA=0
CONT.ACT.FAME=0
CONT.ACT.SAY *Yes Master*
VAR.VEND=<CONT.ACT.UID>
CONT.NEWITEM=i_memory
CONT.ACT.COLOR=memory_ipet
CONT.ACT.LINK=<CONT.UID>
CONT.ACT.LAYER=layer_special
CONT.ACT.CONT=<VAR.VEND>
CONT.NEWITEM=i_SummonUndead
CONT.ACT.P=<CONT.P>
CONT.ACT.LINK=<CONT.TAG.IT>
CONT.ACT.TRIGGER=@DCLICK
CONT.MANA=(<CONT.MANA>-50)
RETURN 1
ELSE
CONT.MESSAGE *You Lack Magical Power*
ENDIF
ELSEIF (<CONT.Necromancy>>=900) && (<CONT.Necromancy><=949)
IF (<CONT.MANA>>=60)
CONT.NEWNPC=c_Necro_Mummy
CONT.TAG.IT=<CONT.ACT.UID>
CONT.ACT.FLAGS=statf_conjured
CONT.ACT.KARMA=0
CONT.ACT.FAME=0
CONT.ACT.SAY *Yes Master*
VAR.VEND=<CONT.ACT.UID>
CONT.NEWITEM=i_memory
CONT.ACT.COLOR=memory_ipet
CONT.ACT.LINK=<CONT.UID>
CONT.ACT.LAYER=layer_special
CONT.ACT.CONT=<VAR.VEND>
CONT.NEWITEM=i_SummonUndead
CONT.ACT.P=<CONT.P>
CONT.ACT.LINK=<CONT.TAG.IT>
CONT.ACT.TRIGGER=@DCLICK
CONT.MANA=(<CONT.MANA>-55)
RETURN 1
ELSE
CONT.MESSAGE *You Lack Magical Power*
ENDIF
ELSEIF (<CONT.Necromancy>>=950)
IF (<CONT.MANA>>=60)
CONT.NEWNPC=c_Necro_LL
CONT.TAG.IT=<CONT.ACT.UID>
CONT.ACT.FLAGS=statf_conjured
CONT.ACT.KARMA=0
CONT.ACT.FAME=0
CONT.ACT.SAY *Yes Master*
VAR.VEND=<CONT.ACT.UID>
CONT.NEWITEM=i_memory
CONT.ACT.COLOR=memory_ipet
CONT.ACT.LINK=<CONT.UID>
CONT.ACT.LAYER=layer_special
CONT.ACT.CONT=<VAR.VEND>
CONT.NEWITEM=i_SummonUndead
CONT.ACT.P=<CONT.P>
CONT.ACT.LINK=<CONT.TAG.IT>
CONT.ACT.TRIGGER=@DCLICK
CONT.MANA=(<CONT.MANA>-60)
RETURN 1
ELSE
CONT.MESSAGE *You Lack Magical Power*
ENDIF
ENDIF
[ITEMDEF i_Swarm]
ID=i_floor_blue
DEFNAME=i_Swarm
ON=@CREATE
ATTR=082
TIMER=60
ON=@DCLICK
TARGET Choose a target!
RETURN 1
ON=@TARGON_CHAR
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE Target isn't in your line of sight.
REMOVE
RETURN 1
ENDIF
IF (<SRC.TARG.NPC>==0)
IF !(<SRC.TARG.ACCOUNT.PLEVEL><<SRC.ACCOUNT.PLEVEL>)
SRC.SYSMESSAGE Target is more privileged than you.
REMOVE
RETURN 1
ENDIF
ENDIF
IF (<SRC.TARG.FLAGS>&01)
REMOVE
RETURN 1
ENDIF
MORE1=<EVAL (Rand(1050))>
IF !(<MORE1><<SRC.NECROMANCY>)
SOUND=92
SRC.SYSMESSAGE The spell fizzles.
SRC.SAY Kal Xen Quas
SRC.MANA=(<SRC.MANA>-15)
REMOVE
RETURN 1
ENDIF
VAR.MEMORYCONT=<SRC.TARG.UID>
SRC.NEWITEM=i_memory
SRC.ACT.COLOR=memory_harmedby
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.CONT=<VAR.MEMORYCONT>
IF (<SRC.TARG.NPC>==0)
IF (((<SRC.TARG.KARMA>>0) || (<SRC.TARG.KILLS><10)) && !(<SRC.FLAGS>&02000000))
SRC.FLAGS=<SRC.FLAGS>+02000000
ENDIF
ENDIF
IF (<SRC.TARG.FLAGS>&0200)
SRC.TARG.FLAGS=(<SRC.TARG.FLAGS>-0200)
SRC.MESSAGE Magic Reflection returns the spell to you.
SRC.SAY Kal Xen Quas
SRC.SOUND=snd_SPELL_HARM
SRC.EFFECT=3,i_fx_ebolt,6,15,1
SRC.HITS=<EVAL (<SRC.HITS>-Rand(20)+5)>
SRC.MANA=(<SRC.MANA>-15)
REMOVE
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>-15)
SRC.ANIM 16
SRC.SAY Kal Xen Quas
SRC.FIX
SRC.SOUND=snd_SPELL_HARM
src.targ.effect=3,i_fx_ebolt,6,15,1
SRC.TARG.HITS=<EVAL (<SRC.TARG.HITS>-Rand(15)+5)>
REMOVE
RETURN 1
//##########################################################
[ITEMDEF i_SummonUndead]
ID=i_floor_blue
DEFNAME=i_SummonUndead
ON=@CREATE
ATTR=attr_invis
ON=@DCLICK
TIMER=240
ON=@TIMER
REMOVE
LINK.REMOVE
Return 1
[ITEMDEF i_fire_bolt]
DEFNAME=i_fire_bolt
ID=i_floor_blue
ON=@CREATE
ATTR=082
TIMER=60
ON=@DCLICK
TARGET Choose a target!
RETURN 1
ON=@TARGON_CHAR
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE Target isn't in your line of sight.
REMOVE
RETURN 1
ENDIF
IF (<SRC.TARG.NPC>==0)
IF !(<SRC.TARG.ACCOUNT.PLEVEL><<SRC.ACCOUNT.PLEVEL>)
SRC.SYSMESSAGE Target is more privileged than you.
REMOVE
RETURN 1
ENDIF
ENDIF
IF (<SRC.TARG.FLAGS>&01)
REMOVE
RETURN 1
ENDIF
MORE1=<EVAL (Rand(1075))>
IF !(<MORE1><<SRC.NECROMANCY>)
SOUND=92
SRC.SYSMESSAGE The spell fizzles.
SRC.SAY In Sanct Ylem
SRC.MANA=(<SRC.MANA>-30)
REMOVE
RETURN 1
ENDIF
VAR.MEMORYCONT=<SRC.TARG.UID>
SRC.NEWITEM=i_memory
SRC.ACT.COLOR=memory_harmedby
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.CONT=<VAR.MEMORYCONT>
IF (<SRC.TARG.NPC>==0)
IF (((<SRC.TARG.KARMA>>0) || (<SRC.TARG.KILLS><10)) && !(<SRC.FLAGS>&02000000))
SRC.FLAGS=<SRC.FLAGS>+02000000
ENDIF
ENDIF
IF (<SRC.TARG.FLAGS>&0200)
SRC.TARG.FLAGS=(<SRC.TARG.FLAGS>-0200)
SRC.MESSAGE Magic Reflection blocks the spell.
SRC.SAY In Sanct Ylem
SRC.MANA=(<SRC.MANA>-30)
REMOVE
RETURN 1
ENDIF
SRC.TARG.HITS=<EVAL (<SRC.TARG.HITS>-Rand(20)+10)>
SRC.TARG.EFFECT=0,i_fx_firesnake,2,15,1
SRC.SAY In Sanct Ylem
SRC.MANA=(<SRC.MANA>-30)
REMOVE
RETURN 1
[ITEMDEF i_mem_necrocursed]
ID=i_memory
TYPE=t_eq_script
NAME=Necro Polymorph
ON=@EQUIP
TIMER=150
ATTR=attr_decay // | attr_invis
ON=@TIMER
REMOVE
RETURN 1
[ITEMDEF i_Necro_Curse]
ID=i_floor_blue
DEFNAME=i_Necro_Curse
ON=@CREATE
ATTR=082
TIMER=60
ON=@DCLICK
TARGET Choose a target!
RETURN 1
ON=@TARGON_CHAR
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE Target isn't in your line of sight.
REMOVE
RETURN 1
ENDIF
IF (<SRC.TARG.NPC>==0)
IF !(<SRC.TARG.ACCOUNT.PLEVEL><<SRC.ACCOUNT.PLEVEL>)
SRC.SYSMESSAGE Target is more privileged than you.
REMOVE
RETURN 1
ENDIF
ENDIF
VAR.MEMORYCONT=<SRC.TARG.UID>
SRC.NEWITEM=i_memory
SRC.ACT.COLOR=memory_harmedby
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.CONT=<VAR.MEMORYCONT>
IF (<SRC.TARG.NPC>==0)
IF (((<SRC.TARG.KARMA>>0) || (<SRC.TARG.KILLS><10)) && !(<SRC.FLAGS>&02000000))
SRC.FLAGS=<SRC.FLAGS>+02000000
ENDIF
ENDIF
SRC.NEWITEM=i_necro_curse_rune
SRC.ACT.LINK=<SRC.TARG.UID>
SRC.ACT.EQUIP
REMOVE
RETURN 1
[ITEMDEF i_necro_curse_rune]
ID=i_memory
TYPE=t_eq_script
NAME=Curse Rune
ON=@EQUIP
CONT.SAY Des Sanct
CONT.MANA=<CONT.MANA>-20
TIMER=1
ON=@TIMER
MORE1=<EVAL (Rand(1050))>
IF !(<MORE1><<CONT.NECROMANCY>)
SOUND=92
CONT.SYSMESSAGE The spell fizzles.
REMOVE
RETURN 1
ENDIF
IF (<LINK.FLAGS>&0200)
LINK.FLAGS=(<LINK.FLAGS>-0200)
CONT.MESSAGE Magic Reflection blocks the spell.
REMOVE
ELSE
CONT.NEWITEM=i_mem_necrocursed
CONT.ACT.LINK=<UID>
CONT.ACT.CONT=<LINK>
LINK.TAG.CURSEDSTR=<EVAL Rand(25)>
LINK.TAG.CURSEDDEX=<EVAL Rand(25)>
LINK.TAG.CURSEDINT=<EVAL Rand(25)>
LINK.STR=<EVAL <LINK.STR>-<LINK.TAG.CURSEDSTR>>
LINK.DEX=<EVAL <LINK.DEX>-<LINK.TAG.CURSEDDEX>>
LINK.INT=<EVAL <LINK.INT>-<LINK.TAG.CURSEDINT>>
SOUND=snd_SPELL_CURSE
LINK.EFFECT=3,i_fx_curse,6,15,1
LINK.NEWITEM=i_necro_curse_timer
LINK.ACT.LINK=<LINK>
LINK.ACT.TIMER=150
LINK.ACT.P=<LINK.P>
REMOVE
RETURN 1
ENDIF
[ITEMDEF i_necro_curse_timer]
DEFNAME=i_necro_curse_timer
ID=i_floor_blue
ON=@CREATE
ATTR=attr_invis
ON=@TIMER
LINK.STR=<EVAL <LINK.STR>+<LINK.TAG.CURSEDSTR>>
LINK.DEX=<EVAL <LINK.DEX>+<LINK.TAG.CURSEDDEX>>
LINK.INT=<EVAL <LINK.INT>+<LINK.TAG.CURSEDINT>>
LINK.FINDID(i_mem_necrocursed).REMOVE
REMOVE
RETURN 1
ENDIF
[ITEMDEF i_purify]
DEFNAME=i_purify
ID=i_floor_blue
ON=@CREATE
ATTR=082
TIMER=60
ON=@DCLICK
TARGET Choose a target!
RETURN 1
ON=@TARGON_CHAR
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE Target isn't in your line of sight.
REMOVE
RETURN 1
ENDIF
MORE1=<EVAL (Rand(1075))>
IF !(<MORE1><<SRC.NECROMANCY>)
SOUND=92
SRC.SYSMESSAGE The spell fizzles.
SRC.SAY An Vas Nox
SRC.MANA=(<SRC.MANA>-25)
REMOVE
RETURN 1
ENDIF
IF ((<SRC.TARG.FLAGS>&02000000) && !(<SRC.FLAGS>&02000000)) || ((<SRC.TARG.KILLS>>9) && !(<SRC.FLAGS>&02000000))
SRC.FLAGS=(<SRC.FLAGS>+02000000)
ENDIF
SRC.TARG.SPELLEFFECT=41 1000
SRC.FIX
SRC.ANIM 17
SRC.SAY An Vas Nox
SRC.MANA=(<SRC.MANA>-25)
SRC.SOUND=snd_SPELL_ARCHCURE
src.TARG.effect=3,i_fx_HEAL_EFFECT,6,15,1
RETURN 1
[ITEMDEF i_Web]
DEFNAME=i_Web
ID=i_floor_blue
ON=@CREATE
ATTR=082
TIMER=60
ON=@DCLICK
TARGETG Choose a target!
RETURN 1
ON=@TARGON_GROUND
SRC.NEWITEM=i_necro_web_rune
SRC.ACT.MOREP=<SRC.TARGP>
SRC.ACT.EQUIP
REMOVE
RETURN 1
[ITEMDEF i_necro_web_rune]
ID=i_memory
TYPE=t_eq_script
NAME=Web Rune
ON=@EQUIP
CONT.SAY In Jux Grav
CONT.MANA=<CONT.MANA>-25
TIMER=1
ON=@TIMER
MORE1=<EVAL (Rand(1075))>
IF !(<MORE1><<CONT.NECROMANCY>)
SOUND=92
CONT.SYSMESSAGE The spell fizzles.
REMOVE
RETURN 1
ENDIF
IF (<LINK.FLAGS>&0200)
LINK.FLAGS=(<LINK.FLAGS>-0200)
CONT.MESSAGE Magic Reflection blocks the spell.
ELSE
CONT.ANIM 16
CONT.NEWITEM=0EE3
CONT.ACT.P=<MOREP>
CONT.ACT.ATTR=attr_decay
CONT.ACT.TIMER=45
CONT.NEWITEM=0EE3
CONT.ACT.P=<MOREP>
CONT.ACT.ATTR=attr_decay
CONT.ACT.TIMER=35
CONT.ACT.MOVE=1,1
CONT.NEWITEM=0EE3
CONT.ACT.P=<MOREP>
CONT.ACT.ATTR=attr_decay
CONT.ACT.TIMER=40
CONT.ACT.MOVE=1,0
CONT.NEWITEM=0EE3
CONT.ACT.P=<MOREP>
CONT.ACT.ATTR=attr_decay
CONT.ACT.TIMER=40
CONT.ACT.MOVE=0,1
CONT.NEWITEM=0EE3
CONT.ACT.P=<MOREP>
CONT.ACT.ATTR=attr_decay
CONT.ACT.TIMER=35
CONT.ACT.MOVE=-1,1
CONT.NEWITEM=0EE3
CONT.ACT.P=<MOREP>
CONT.ACT.ATTR=attr_decay
CONT.ACT.TIMER=35
CONT.ACT.MOVE=1,-1
CONT.NEWITEM=0EE3
CONT.ACT.P=<MOREP>
CONT.ACT.ATTR=attr_decay
CONT.ACT.TIMER=40
CONT.ACT.MOVE=-1,0
CONT.NEWITEM=0EE3
CONT.ACT.P=<MOREP>
CONT.ACT.ATTR=attr_decay
CONT.ACT.TIMER=40
CONT.ACT.MOVE=0,-1
CONT.NEWITEM=0EE3
CONT.ACT.P=<MOREP>
CONT.ACT.ATTR=attr_decay
CONT.ACT.TIMER=35
CONT.ACT.MOVE=-1,-1
CONT.NEWITEM=0EE3
CONT.ACT.P=<MOREP>
CONT.ACT.ATTR=attr_decay
CONT.ACT.TIMER=30
CONT.ACT.MOVE=2,2
CONT.NEWITEM=0EE3
CONT.ACT.P=<MOREP>
CONT.ACT.ATTR=attr_decay
CONT.ACT.TIMER=30
CONT.ACT.MOVE=2,-2
CONT.NEWITEM=0EE3
CONT.ACT.P=<MOREP>
CONT.ACT.ATTR=attr_decay
CONT.ACT.TIMER=30
CONT.ACT.MOVE=-2,2
CONT.NEWITEM=0EE3
CONT.ACT.P=<MOREP>
CONT.ACT.ATTR=attr_decay
CONT.ACT.TIMER=30
CONT.ACT.MOVE=-2,-2
CONT.NEWITEM=0EE3
CONT.ACT.P=<MOREP>
CONT.ACT.ATTR=attr_decay
CONT.ACT.TIMER=35
CONT.ACT.MOVE=-2,0
CONT.NEWITEM=0EE3
CONT.ACT.P=<MOREP>
CONT.ACT.ATTR=attr_decay
CONT.ACT.TIMER=35
CONT.ACT.MOVE=2,0
CONT.NEWITEM=0EE3
CONT.ACT.P=<MOREP>
CONT.ACT.ATTR=attr_decay
CONT.ACT.TIMER=35
CONT.ACT.MOVE=0,-2
CONT.NEWITEM=0EE3
CONT.ACT.P=<MOREP>
CONT.ACT.ATTR=attr_decay
CONT.ACT.TIMER=35
CONT.ACT.MOVE=0,2
ENDIF
REMOVE
RETURN 1
[ITEMDEF i_necro_create_rune_rune]
ID=i_memory
TYPE=t_eq_script
NAME=Create Rune Rune
ON=@EQUIP
CONT.SAY Kal Por Ylem
CONT.MANA=<CONT.MANA>-30
TIMER=1
ON=@TIMER
MORE1=<EVAL (Rand(1100))>
IF !(<MORE1><<CONT.NECROMANCY>)
SOUND=92
CONT.SYSMESSAGE The spell fizzles.
RETURN 1
ENDIF
CONT.NEWITEM=i_rune_marker
CONT.ACT.COLOR=021
CONT.ACT.NAME=Rune to: <CONT.REGION.NAME>
CONT.ACT.MORE1=0a
CONT.ACT.CONT=<CONT.FINDLAYER(layer_pack).UID>
CONT.ACT.MOREP =<CONT.P>
CONT.SOUND=snd_SPELL_MARK
CONT.ANIM 17
CONT.FIX
REMOVE
RETURN 1
[ITEMDEF i_Shrink]
ID=i_floor_blue
DEFNAME=i_Shrink
ON=@CREATE
ATTR=082
TIMER=60
ON=@DCLICK
TARGET Choose a target!
RETURN 1
ON=@TARGON_CHAR
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE Target isn't in your line of sight.
REMOVE
RETURN 1
ENDIF
IF !(<SRC.TARG.NPC>==1)
SRC.MESSAGE You must target an animal.
RETURN 1
ENDIF
IF !(<SRC.TARG.MEMORYFINDTYPE(MEMORY_IPET).LINK.UID>==<SRC.UID>)
SRC.MESSAGE You must target an animal you own!
RETURN 1
ENDIF
MORE1=<EVAL (Rand(1100))>
IF !(<MORE1><<SRC.NECROMANCY>)
SOUND=92
SRC.SYSMESSAGE The spell fizzles.
SRC.SAY Des Xen
SRC.MANA=(<SRC.MANA>-20)
REMOVE
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>-20)
SRC.ANIM 16
SRC.SAY Des Xen
SRC.FIX
SRC.SOUND=snd_SPELL_HARM
SRC.TARG.SPELLEFFECT=72 1000
REMOVE
RETURN 1
[ITEMDEF i_Gatey]
ID=i_floor_blue
DEFNAME=i_Gatey
ON=@CREATE
ATTR=082
TIMER=60
ON=@DCLICK
TARGET Choose a target!
RETURN 1
ON=@TARGON_ITEM
IF !(<SRC.TARG.TYPE>==t_rune)
SRC.MESSAGE How could you create a gate from that?
REMOVE
RETURN 1
ENDIF
SRC.NEWITEM=i_necro_gate_travel_rune
SRC.ACT.LINK=<SRC.TARG.UID>
SRC.ACT.EQUIP
REMOVE
RETURN 1
[ITEMDEF i_necro_gate_travel_rune]
ID=i_memory
TYPE=t_eq_script
NAME=Gate Travel Rune
ON=@EQUIP
CONT.SAY Vas Rel Por
CONT.MANA=<CONT.MANA>-35
TIMER=1
ON=@TIMER
MORE1=<EVAL (Rand(1100))>
IF !(<MORE1><<CONT.NECROMANCY>)
SOUND=92
CONT.SYSMESSAGE The spell fizzles.
REMOVE
RETURN 1
ENDIF
CONT.ANIM 16
CONT.SOUND=snd_SPELL_GATE_TRAVEL
CONT.NEWITEM=i_moongate_blue
CONT.ACT.COLOR=0455
CONT.ACT.NAME=Necro Gate
CONT.ACT.P=<CONT.P>
CONT.ACT.MOREP=<LINK.MOREP>
CONT.ACT.ATTR=attr_decay
CONT.ACT.TIMER 30
CONT.NEWITEM=i_moongate_blue
CONT.ACT.COLOR=0455
CONT.ACT.NAME=Necro Gate
CONT.ACT.P=<LINK.MOREP>
CONT.ACT.MOREP=<CONT.P>
CONT.ACT.ATTR=attr_decay
CONT.ACT.TIMER 30
REMOVE
RETURN 1
[ITEMDEF i_Halluc]
ID=i_floor_blue
DEFNAME=i_Halluc
ON=@CREATE
ATTR=082
TIMER=60
ON=@DCLICK
TARGET Choose a target!
RETURN 1
ON=@TARGON_CHAR
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE Target isn't in your line of sight.
REMOVE
RETURN 1
ENDIF
IF (<SRC.TARG.NPC>==0)
IF !(<SRC.TARG.ACCOUNT.PLEVEL><<SRC.ACCOUNT.PLEVEL>)
SRC.SYSMESSAGE Target is more privileged than you.
REMOVE
RETURN 1
ENDIF
ENDIF
MORE1=<EVAL (Rand(1100))>
IF !(<MORE1><<SRC.NECROMANCY>)
SOUND=92
SRC.SYSMESSAGE The spell fizzles.
SRC.SAY Wis Nox
SRC.MANA=(<SRC.MANA>-35)
REMOVE
RETURN 1
ENDIF
VAR.MEMORYCONT=<SRC.TARG.UID>
SRC.NEWITEM=i_memory
SRC.ACT.COLOR=memory_harmedby
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.CONT=<VAR.MEMORYCONT>
IF (<SRC.TARG.NPC>==0)
IF (((<SRC.TARG.KARMA>>0) || (<SRC.TARG.KILLS><10)) && !(<SRC.FLAGS>&02000000))
SRC.FLAGS=<SRC.FLAGS>+02000000
ENDIF
ENDIF
IF (<SRC.TARG.FLAGS>&0200)
SRC.TARG.FLAGS=(<SRC.TARG.FLAGS>-0200)
SRC.MESSAGE Magic Reflections blocks your spell.
SRC.SAY Wis Nox
REMOVE
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>-35)
SRC.ANIM 16
SRC.SAY Wis Nox
SRC.FIX
SRC.SOUND=snd_Z_END_MYSTERY1
SRC.TARG.SPELLEFFECT=70 1000
REMOVE
RETURN 1
[ITEMDEF i_DF]
ID=i_floor_blue
DEFNAME=i_DF
ON=@CREATE
ATTR=082
TIMER=60
ON=@DCLICK
TARGET Choose a target!
RETURN 1
ON=@TARGON_CHAR
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE Target isn't in your line of sight.
REMOVE
RETURN 1
ENDIF
IF (<SRC.TARG.NPC>==0)
IF !(<SRC.TARG.ACCOUNT.PLEVEL><<SRC.ACCOUNT.PLEVEL>)
SRC.SYSMESSAGE Target is more privileged than you.
REMOVE
RETURN 1
ENDIF
ENDIF
VAR.MEMORYCONT=<SRC.TARG.UID>
SRC.NEWITEM=i_memory
SRC.ACT.COLOR=memory_harmedby
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.CONT=<VAR.MEMORYCONT>
IF (<SRC.TARG.NPC>==0)
IF (((<SRC.TARG.KARMA>>0) || (<SRC.TARG.KILLS><10)) && !(<SRC.FLAGS>&02000000))
SRC.FLAGS=<SRC.FLAGS>+02000000
ENDIF
ENDIF
SRC.NEWITEM=i_necro_death_flame_rune
SRC.ACT.LINK=<SRC.TARG.UID>
SRC.ACT.EQUIP
REMOVE
RETURN 1
[ITEMDEF i_necro_death_flame_rune]
ID=i_memory
TYPE=t_eq_script
NAME=Death Flame Rune
ON=@EQUIP
CONT.SAY In Vas Corp Flam
CONT.MANA=<CONT.MANA>-40
TIMER=1
ON=@TIMER
MORE1=<EVAL (Rand(1125))>
IF !(<MORE1><<CONT.NECROMANCY>)
SOUND=92
CONT.SYSMESSAGE The spell fizzles.
REMOVE
RETURN 1
ENDIF
IF (<LINK.FLAGS>&0200)
LINK.FLAGS=(<LINK.FLAGS>-0200)
CONT.MESSAGE Magic Reflection returns the spell to you.
CONT.ANIM 16
CONT.SOUND=snd_SPELL_FLAMESTRIKE
CONT.EFFECT=2,i_fire_column,1,30,0
CONT.HITS=<EVAL <CONT.HITS>-30>
REMOVE
RETURN 1
ENDIF
CONT.ANIM 16
CONT.FIX
CONT.SOUND=snd_SPELL_FLAMESTRIKE
LINK.EFFECT=2,i_fire_column,1,30,0
LINK.HITS=<EVAL <LINK.HITS>-30>
REMOVE
RETURN 1
[ITEMDEF i_Ress]
ID=i_floor_blue
DEFNAME=i_Ress
ON=@CREATE
ATTR=082
TIMER=60
ON=@DCLICK
TARGET Choose a target!
RETURN 1
ON=@TARGON_CHAR
IF ((<SRC.TARG.FLAGS>&02000000) && !(<SRC.FLAGS>&02000000)) || ((<SRC.TARG.KILLS>>9) && !(<SRC.FLAGS>&02000000))
SRC.FLAGS=(<SRC.FLAGS>+02000000)
ENDIF
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE Target isn't in your line of sight.
REMOVE
RETURN 1
ENDIF
MORE1=<EVAL (Rand(1125))>
IF !(<MORE1><<SRC.NECROMANCY>)
SOUND=92
SRC.SYSMESSAGE The spell fizzles.
SRC.SAY An Corp
SRC.MANA=(<SRC.MANA>-40)
REMOVE
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>-40)
SRC.ANIM 17
SRC.SAY An Corp
SRC.FIX
SRC.SOUND=snd_SPELL_RESURRECTION
SRC.TARG.SPELLEFFECT=59 1000
RETURN 1
[ITEMDEF i_Animate]
ID=i_floor_blue
DEFNAME=i_Animate
ON=@CREATE
ATTR=082
TIMER=60
ON=@DCLICK
TARGET Choose a target!
RETURN 1
ON=@TARGON_ITEM
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE Target isn't in your line of sight.
REMOVE
RETURN 1
ENDIF
IF !(<SRC.TARG.LINK>==04FFFFFFF)
SRC.MESSAGE You can't animate the corpse of this creature! His spirit is still wandering!
REMOVE
RETURN 1
ENDIF
SRC.NEWITEM=i_necro_animate_dead_rune
SRC.ACT.LINK=<SRC.TARG.UID>
SRC.ACT.EQUIP
REMOVE
RETURN 1
[ITEMDEF i_necro_animate_dead_rune]
ID=i_memory
TYPE=t_eq_script
NAME=Animate Dead Rune
ON=@EQUIP
CONT.SAY An Xen Corp
CONT.MANA=<CONT.MANA>-40
TIMER=1
ON=@TIMER
MORE1=<EVAL (Rand(1125))>
IF !(<MORE1><<CONT.NECROMANCY>)
SOUND=92
CONT.SYSMESSAGE The spell fizzles.
REMOVE
RETURN 1
ENDIF
CONT.ANIM 17
CONT.NEWNPC=<LINK.MOREX>
CONT.ACT.P=<LINK.P>
CONT.ACT.SAY *Yes Master*
CONT.ACT.FLAGS=04000000
CONT.ACT.HITS=<CONT.ACT.STR>
LINK.REMOVE
LINK=<CONT.ACT.UID>
CONT.NEWITEM=i_memory
CONT.ACT.COLOR=memory_ipet
CONT.ACT.LINK=<SRC.UID>
CONT.ACT.LAYER=layer_special
CONT.ACT.CONT=<LINK>
CONT.NEWITEM=i_AnimateStep
CONT.ACT.P=<P>
CONT.ACT.LINK=<LINK>
CONT.ACT.TIMER=120
CONT.SOUND=snd_SPELL_ANIMATE_DEAD
REMOVE
RETURN 1
[ITEMDEF i_AnimateStep]
DEFNAME=i_AnimateStep
ID=i_floor_blue
ON=@CREATE
ATTR=attr_invis
ON=@TIMER
LINK.REMOVE
REMOVE
RETURN 1
[ITEMDEF i_CastStone]
ID=i_floor_blue
DEFNAME=i_CastStone
ON=@CREATE
ATTR=082
TIMER=60
ON=@DCLICK
TARGET Choose a target!
RETURN 1
ON=@TARGON_CHAR
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE Target isn't in your line of sight.
REMOVE
RETURN 1
ENDIF
IF (<SRC.TARG.NPC>==0)
IF !(<SRC.TARG.ACCOUNT.PLEVEL><<SRC.ACCOUNT.PLEVEL>)
SRC.SYSMESSAGE Target is more privileged than you.
REMOVE
RETURN 1
ENDIF
ENDIF
IF !((<SRC.TARG.BODY>==c_man) || (<SRC.TARG.BODY>==c_woman)
SRC.MESSAGE You can't stone this creature.
REMOVE
RETURN 1
ENDIF
IF (<SRC.TARG.STONE>==1)
SRC.MESSAGE Target is already stoned!
REMOVE
RETURN 1
ENDIF
VAR.MEMORYCONT=<SRC.TARG.UID>
SRC.NEWITEM=i_memory
SRC.ACT.COLOR=memory_harmedby
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.CONT=<VAR.MEMORYCONT>
IF (<SRC.TARG.NPC>==0)
IF (((<SRC.TARG.KARMA>>0) || (<SRC.TARG.KILLS><10)) && !(<SRC.FLAGS>&02000000))
SRC.FLAGS=<SRC.FLAGS>+02000000
ENDIF
ENDIF
MORE1=<EVAL (Rand(1125))>
IF !(<MORE1><<SRC.NECROMANCY>)
SOUND=92
SRC.SYSMESSAGE The spell fizzles.
SRC.SAY An Vas Por Grav
SRC.MANA=(<SRC.MANA>-45)
REMOVE
RETURN 1
ENDIF
IF (<SRC.TARG.FLAGS>&0200)
SRC.TARG.FLAGS=(<SRC.TARG.FLAGS>-0200)
LINK=<SRC.UID>
SRC.ANIM 16
SRC.MESSAGE Magic Reflection blocks the spell.
SRC.MANA=(<SRC.MANA>-45)
REMOVE
RETURN 1
ENDIF
ATTR=080
P=<SRC.TARG.P>
SRC.MANA=(<SRC.MANA>-45)
LINK=<SRC.TARG.UID>
SRC.ANIM 16
SRC.SAY An Vas Por Grav
SRC.FIX
//SRC.SOUND=snd_SPELL_FLAMESTRIKE
SRC.TARG.SPELLEFFECT=71 1000
SRC.TARG.FIX
SRC.FIX
//SRC.TARG.HITS=<EVAL <SRC.TARG.HITS>-40>
TIMER=30
RETURN 1
ON=@TIMER
LINK.STONE
LINK.FIX
REMOVE
RETURN 1
[ITEMDEF i_necro_chameleon_rune]
ID=i_memory
TYPE=t_eq_script
NAME=Chameleon Rune
ON=@EQUIP
CONT.SAY An Ylem
CONT.MANA=<CONT.MANA>-40
TIMER=1
ON=@TIMER
MORE1=<EVAL (Rand(1150))>
IF !(<MORE1><<CONT.NECROMANCY>)
CONT.SOUND=92
CONT.SYSMESSAGE The spell fizzles.
REMOVE
RETURN 1
ENDIF
CONT.COLOR=07fff
CONT.TAG.HAIRCOLOR=<CONT.FINDLAYER(11).COLOR>
CONT.FINDLAYER(11).COLOR=07FFF
CONT.FINDLAYER(1).UNEQUIP
CONT.FINDLAYER(2).UNEQUIP
CONT.FINDLAYER(3).UNEQUIP
CONT.FINDLAYER(4).UNEQUIP
CONT.FINDLAYER(5).UNEQUIP
CONT.FINDLAYER(6).UNEQUIP
CONT.FINDLAYER(8).UNEQUIP
CONT.FINDLAYER(10).UNEQUIP
CONT.FINDLAYER(12).UNEQUIP
CONT.FINDLAYER(14).UNEQUIP
CONT.FINDLAYER(17).UNEQUIP
CONT.FINDLAYER(18).UNEQUIP
CONT.FINDLAYER(20).UNEQUIP
CONT.FINDLAYER(22).UNEQUIP
CONT.FINDLAYER(23).UNEQUIP
CONT.NEWITEM=i_necro_chameleon_effect
CONT.ACT.TIMER=60
CONT.ACT.LINK=<CONT.UID>
CONT.ACT.P=<CONT.P>
REMOVE
RETURN 1
[ITEMDEF i_necro_chameleon_effect]
DEFNAME=i_necro_chameleon_effect
ID=i_floor_blue
ON=@CREATE
ATTR=attr_invis
ON=@TIMER
LINK.COLOR=0386
LINK.FINDLAYER(11).COLOR=<LINK.TAG.HAIRCOLOR>
REMOVE
ENDIF
RETURN 1
[ITEMDEF i_necro_mindblast_rune]
ID=i_memory
TYPE=t_eq_script
NAME=Mindblast Rune
ON=@EQUIP
CONT.SAY In Vas Corp
CONT.MANA=<CONT.MANA>-45
TIMER=1
ON=@TIMER
MORE1=<EVAL (Rand(1150))>
IF !(<MORE1><<CONT.NECROMANCY>)
SOUND=92
CONT.SYSMESSAGE The spell fizzles.
RETURN 1
ENDIF
CONT.NEWITEM=i_MindBlastTile
CONT.ACT.P=<CONT.P>
CONT.ACT.MOVE=1,1
CONT.ACT.MORE1=<CONT.UID>
CONT.ACT.LINK=<CONT.UID>
CONT.NEWITEM=i_MindBlastTile
CONT.ACT.P=<CONT.P>
CONT.ACT.MOVE=1,0
CONT.ACT.MORE1=<CONT.UID>
CONT.ACT.LINK=<CONT.UID>
CONT.NEWITEM=i_MindBlastTile
CONT.ACT.P=<CONT.P>
CONT.ACT.MOVE=0,1
CONT.ACT.MORE1=<CONT.UID>
CONT.ACT.LINK=<CONT.UID>
CONT.NEWITEM=i_MindBlastTile
CONT.ACT.P=<CONT.P>
CONT.ACT.MOVE=-1,1
CONT.ACT.MORE1=<CONT.UID>
CONT.ACT.LINK=<CONT.UID>
CONT.NEWITEM=i_MindBlastTile
CONT.ACT.P=<CONT.P>
CONT.ACT.MOVE=1,-1
CONT.ACT.MORE1=<CONT.UID>
CONT.ACT.LINK=<CONT.UID>
CONT.NEWITEM=i_MindBlastTile
CONT.ACT.P=<CONT.P>
CONT.ACT.MOVE=-1,0
CONT.ACT.MORE1=<CONT.UID>
CONT.ACT.LINK=<CONT.UID>
CONT.NEWITEM=i_MindBlastTile
CONT.ACT.P=<CONT.P>
CONT.ACT.MOVE=0,-1
CONT.ACT.MORE1=<CONT.UID>
CONT.ACT.LINK=<CONT.UID>
CONT.NEWITEM=i_MindBlastTile
CONT.ACT.P=<CONT.P>
CONT.ACT.MOVE=-1,-1
CONT.ACT.MORE1=<CONT.UID>
CONT.ACT.LINK=<CONT.UID>
REMOVE
RETURN 1
[ITEMDEF i_MindBlastTile]
ID=i_floor_blue
DEFNAME=i_MindBlast
ON=@CREATE
TIMER=1
ATTR=attr_invis
ON=@TIMER
REMOVE
Return 1
ON=@STEP
IF (<SRC.NPC>==0)
IF !(<SRC.ACCOUNT.PLEVEL><<SRC.LINK.ACCOUNT.PLEVEL>)
SRC.SYSMESSAGE Target is more privileged than you.
REMOVE
RETURN 1
ENDIF
ENDIF
IF (<SRC.FLAGS>&01)
REMOVE
RETURN 1
ENDIF
IF (<SRC.UID>=<LINK>)
REMOVE
RETURN 1
ENDIF
IF (<SRC.FLAGS>&0200)
SRC.TARG.FLAGS=(<SRC.TARG.FLAGS>-0200)
REMOVE
RETURN 1
ENDIF
VAR.MEMORYCONT=<SRC.UID>
SRC.NEWITEM=i_memory
SRC.ACT.COLOR=memory_harmedby
SRC.ACT.LINK=<MORE1>
SRC.ACT.CONT=<VAR.MEMORYCONT>
IF (<SRC.NPC>==0)
IF (((<SRC.KARMA>>0) || (<SRC.KILLS><10)) && !(<LINK.FLAGS>&02000000))
LINK.FLAGS=<LINK.FLAGS>+02000000
ENDIF
ENDIF
src.effect=2,0374a,1,1,1
src.SOUND=92
SRC.HITS=<EVAL <SRC.HITS>-40>
IF (<SRC.NPC>>0) || (!(<SRC.BODY>==c_man) && !(<SRC.BODY>==c_woman))
SRC.ANIM 10
ELSE
SRC.ANIM 20
ENDIF
SRC.BARK 3
REMOVE
[ITEMDEF i_Flamewav]
ID=i_floor_blue
DEFNAME=i_Flamewav
ON=@CREATE
ATTR=082
TIMER=60
ON=@DCLICK
TARGET Choose a target!
RETURN 1
ON=@TARGON_CHAR
IF !(<SRC.TARG.CANSEELOS>)
SRC.SYSMESSAGE Target isn't in your line of sight.
REMOVE
RETURN 1
ENDIF
IF (<SRC.TARG.NPC>==0)
IF !(<SRC.TARG.ACCOUNT.PLEVEL><<SRC.ACCOUNT.PLEVEL>)
SRC.SYSMESSAGE Target is more privileged than you.
REMOVE
RETURN 1
ENDIF
ENDIF
MORE1=<EVAL (Rand(1150))>
IF !(<MORE1><<SRC.NECROMANCY>)
SOUND=92
SRC.SYSMESSAGE The spell fizzles.
SRC.SAY In Por Corp Flam
SRC.MANA=(<SRC.MANA>-60)
REMOVE
RETURN 1
ENDIF
VAR.MEMORYCONT=<SRC.TARG.UID>
SRC.NEWITEM=i_memory
SRC.ACT.COLOR=memory_harmedby
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.CONT=<VAR.MEMORYCONT>
IF (<SRC.TARG.NPC>==0)
IF (((<SRC.TARG.KARMA>>0) || (<SRC.TARG.KILLS><10)) && !(<SRC.FLAGS>&02000000))
SRC.FLAGS=<SRC.FLAGS>+02000000
ENDIF
ENDIF
IF (<SRC.TARG.FLAGS>&0200)
SRC.TARG.FLAGS=(<SRC.TARG.FLAGS>-0200)
SRC.MESSAGE Magic Reflection returns the spell to you.
SRC.MANA=(<SRC.MANA>-50)
SRC.ANIM 16
SRC.SAY In Por Corp Flam
SRC.SOUND=snd_SPELL_FLAMESTRIKE
SRC.HITS=(<SRC.HITS>-40)
SRC.FIX
SRC.EFFECT=0,i_fire_column,1,15,1
REMOVE
RETURN 1
ENDIF
SRC.SAY In Por Corp Flam
SRC.TARG.HITS=(<SRC.TARG.HITS>-40)
SRC.FIX
SRC.TARG.FIX
SRC.TARG.EFFECT=0,i_fire_column,1,15,1
SOUND=snd_SPELL_FLAMESTRIKE
SRC.MANA=(<SRC.MANA>-60)
REMOVE
RETURN 1
[ITEMDEF i_mem_poly]
ID=i_memory
TYPE=t_eq_script
NAME=Necro Polymorph
ON=@EQUIP
TIMER=600
ATTR=attr_decay // | attr_invis
ON=@TIMER
REMOVE
RETURN 1
[ITEMDEF i_PolyMorph]
ID=i_floor_blue
DEFNAME=i_Polymorph
ON=@CREATE
ATTR=attr_invis
ON=@DCLICK
MORE1=<EVAL (Rand(1150))>
IF !(<MORE1><<SRC.NECROMANCY>)
SOUND=92
SRC.SYSMESSAGE The spell fizzles.
SRC.SAY Vas Ylem Rel
SRC.MANA=(<SRC.MANA>-50)
REMOVE
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>-50)
SRC.SAY Vas Ylem Rel
LINK.TAG.POLYED=1
LINK.TAG.ORIGINALSTR=<LINK.STR>
LINK.TAG.ORIGINALDEX=<LINK.DEX>
LINK.TAG.ORIGINALINT=<LINK.INT>
SRC.NEWITEM=i_mem_poly
SRC.ACT.LINK=<UID>
SRC.ACT.EQUIP
MORE2=<EVAL {1 100}>
MORE1=<LINK.NECROMANCY>
IF (<MORE1><=599)
IF (<MORE2><=60)
LINK.BODY={0D0 1 0D9 1 0CF 1}
LINK.STR=(RAND(20)+10)
LINK.DEX=(RAND(20)+10)
LINK.INT=(RAND(20)+10)
ELSEIF (<MORE2>>=61) && (<MORE2><=95)
LINK.BODY={02C 1 032 1 036 1}
LINK.STR=(RAND(30)+50)
LINK.DEX=(RAND(30)+50)
LINK.INT=(RAND(30)+50)
ELSEIF (<MORE2>>95)
LINK.BODY={09 1 04 1 01 1}
LINK.STR=(RAND(60)+150)
LINK.DEX=(RAND(60)+150)
LINK.INT=(RAND(60)+150)
ENDIF
ENDIF
IF (<MORE1>>=600) && (<MORE1><=649)
IF (<MORE2><=55)
LINK.BODY={0D0 1 0D9 1 0CF 1}
LINK.STR=(RAND(20)+10)
LINK.DEX=(RAND(20)+10)
LINK.INT=(RAND(20)+10)
ELSEIF (<MORE2>>=56) && (<MORE2><=90)
LINK.BODY={02C 1 032 1 036 1}
LINK.STR=(RAND(30)+50)
LINK.DEX=(RAND(30)+50)
LINK.INT=(RAND(30)+50)
ELSEIF (<MORE2>>90)
LINK.BODY={09 1 04 1 01 1}
LINK.STR=(RAND(60)+150)
LINK.DEX=(RAND(60)+150)
LINK.INT=(RAND(60)+150)
ENDIF
ENDIF
IF (<MORE1>>=650) && (<MORE1><=699)
IF (<MORE2><=50)
LINK.BODY={0D0 1 0D9 1 0CF 1}
LINK.STR=(RAND(20)+10)
LINK.DEX=(RAND(20)+10)
LINK.INT=(RAND(20)+10)
ELSEIF (<MORE2>>=51) && (<MORE2><=85)
LINK.BODY={02C 1 032 1 036 1}
LINK.STR=(RAND(30)+50)
LINK.DEX=(RAND(30)+50)
LINK.INT=(RAND(30)+50)
ELSEIF (<MORE2>>85)
LINK.BODY={09 1 04 1 01 1}
LINK.STR=(RAND(60)+150)
LINK.DEX=(RAND(60)+150)
LINK.INT=(RAND(60)+150)
ENDIF
ENDIF
IF (<MORE1>>=700) && (<MORE1><=749)
IF (<MORE2><=45)
LINK.BODY={0D0 1 0D9 1 0CF 1}
LINK.STR=(RAND(20)+10)
LINK.DEX=(RAND(20)+10)
LINK.INT=(RAND(20)+10)
ELSEIF (<MORE2>>=46) && (<MORE2><=80)
LINK.BODY={02C 1 032 1 036 1}
LINK.STR=(RAND(30)+50)
LINK.DEX=(RAND(30)+50)
LINK.INT=(RAND(30)+50)
ELSEIF (<MORE2>>80)
LINK.BODY={09 1 04 1 01 1}
LINK.STR=(RAND(60)+150)
LINK.DEX=(RAND(60)+150)
LINK.INT=(RAND(60)+150)
ENDIF
ENDIF
IF (<MORE1>>=750) && (<MORE1><=799)
IF (<MORE2><=40)
LINK.BODY={0D0 1 0D9 1 0CF 1}
LINK.STR=(RAND(20)+10)
LINK.DEX=(RAND(20)+10)
LINK.INT=(RAND(20)+10)
ELSEIF (<MORE2>>=41) && (<MORE2><=75)
LINK.BODY={02C 1 032 1 036 1}
LINK.STR=(RAND(30)+50)
LINK.DEX=(RAND(30)+50)
LINK.INT=(RAND(30)+50)
ELSEIF (<MORE2>>75)
LINK.BODY={09 1 04 1 01 1}
LINK.STR=(RAND(60)+150)
LINK.DEX=(RAND(60)+150)
LINK.INT=(RAND(60)+150)
ENDIF
ENDIF
IF (<MORE1>>=800) && (<MORE1><=849)
IF (<MORE2><=30)
LINK.BODY={0D0 1 0D9 1 0CF 1}
LINK.STR=(RAND(20)+10)
LINK.DEX=(RAND(20)+10)
LINK.INT=(RAND(20)+10)
ELSEIF (<MORE2>>=31) && (<MORE2><=65)
LINK.BODY={02C 1 032 1 036 1}
LINK.STR=(RAND(30)+50)
LINK.DEX=(RAND(30)+50)
LINK.INT=(RAND(30)+50)
ELSEIF (<MORE2>>65)
LINK.BODY={09 1 04 1 01 1}
LINK.STR=(RAND(60)+150)
LINK.DEX=(RAND(60)+150)
LINK.INT=(RAND(60)+150)
ENDIF
ENDIF
IF (<MORE1>>=850) && (<MORE1><=899)
IF (<MORE2><=20)
LINK.BODY={0D0 1 0D9 1 0CF 1}
LINK.STR=(RAND(20)+10)
LINK.DEX=(RAND(20)+10)
LINK.INT=(RAND(20)+10)
ELSEIF (<MORE2>>=21) && (<MORE2><=55)
LINK.BODY={02C 1 032 1 036 1}
LINK.STR=(RAND(30)+50)
LINK.DEX=(RAND(30)+50)
LINK.INT=(RAND(30)+50)
ELSEIF (<MORE2>>55)
LINK.BODY={09 1 04 1 01 1}
LINK.STR=(RAND(60)+150)
LINK.DEX=(RAND(60)+150)
LINK.INT=(RAND(60)+150)
ENDIF
ENDIF
IF (<MORE1>>=900)
IF (<MORE2><=10)
SRC.SAY <MORE2>
LINK.BODY={0D0 1 0D9 1 0CF 1}
LINK.STR=(RAND(20)+10)
LINK.DEX=(RAND(20)+10)
LINK.INT=(RAND(20)+10)
ELSEIF (<MORE2>>=11) && (<MORE2><=50)
LINK.BODY={02C 1 032 1 036 1}
LINK.STR=(RAND(30)+50)
LINK.DEX=(RAND(30)+50)
LINK.INT=(RAND(30)+50)
ELSEIF (<MORE2>>50)
LINK.BODY={09 1 04 1 01 1}
LINK.STR=(RAND(60)+150)
LINK.DEX=(RAND(60)+150)
LINK.INT=(RAND(60)+150)
ENDIF
ENDIF
TIMER=600
SRC.COLOR=0
Return 1
ON=@TIMER
LINK.TAG.POLYED=0
LINK.BODY=<LINK.OBODY>
LINK.STR=<LINK.TAG.ORIGINALSTR>
LINK.DEX=<LINK.TAG.ORIGINALDEX>
LINK.INT=<LINK.TAG.ORIGINALINT>
LINK.COLOR=0386
LINK.FIX
REMOVE
RETURN 1
[EOF]
--------------------
[V!ru$].
No one like us and we don`t care
|
|
|
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
|
