[ITEMDEF i_X_RUNEBOOK]
//Originally Scripted by Xenon (Thanks!!)
ID=i_spellbook
TYPE=t_script
//DEFNAME=i_X_RUNEBOOK
NAME=Rune Book

ON=@DCLICK
SRC.SOUND=85
DIALOG d_X_BOOK
RETURN 1

ON=@TARGON_CHAR
SRC.SYSMESSAGE A person? You dont deserve a rune book!
RETURN 1

ON=@TARGON_ITEM
IF (<SRC.TARG.TYPE>==t_rune)//(<SRC.TARG.TYPE>==014)
IF (<SRC.TARG.MOREX>==0)
SRC.SYSMESSAGE That is a blank rune!
RETURN 1
ENDIF
//VAR.CROP=<STRMATCH>(<SRC.TARG.NAME>,??????????????)
//SRC.SYSMESSAGE <VAR.CROP>
IF (<TAG.POS1_X>=00)
SRC.SOUND=79
TAG.LOCAL1=<SRC.TARG.NAME>
// TAG.LOCAL1=<VAR.CROP>
TAG.POS1_X=<SRC.TARG.MOREX>
TAG.POS1_Y=<SRC.TARG.MOREY>
TAG.POS1_Z=<SRC.TARG.MOREZ>
TAG.POS1_M=<SRC.TARG.MOREM>
RETURN 1
ENDIF
IF (<TAG.POS2_X>=00)
SRC.SOUND=79
TAG.LOCAL2=<SRC.TARG.NAME>
TAG.POS2_X=<SRC.TARG.MOREX>
TAG.POS2_Y=<SRC.TARG.MOREY>
TAG.POS2_Z=<SRC.TARG.MOREZ>
TAG.POS2_M=<SRC.TARG.MOREM>
RETURN 1
ENDIF
IF (<TAG.POS3_X>=00)
SRC.SOUND=79
TAG.LOCAL3=<SRC.TARG.NAME>
TAG.POS3_X=<SRC.TARG.MOREX>
TAG.POS3_Y=<SRC.TARG.MOREY>
TAG.POS3_Z=<SRC.TARG.MOREZ>
TAG.POS3_M=<SRC.TARG.MOREM>
RETURN 1
ENDIF
IF (<TAG.POS4_X>=00)
SRC.SOUND=79
TAG.LOCAL4=<SRC.TARG.NAME>
TAG.POS4_X=<SRC.TARG.MOREX>
TAG.POS4_Y=<SRC.TARG.MOREY>
TAG.POS4_Z=<SRC.TARG.MOREZ>
TAG.POS4_M=<SRC.TARG.MOREM>
RETURN 1
ENDIF
IF (<TAG.POS5_X>=00)
SRC.SOUND=79
TAG.LOCAL5=<SRC.TARG.NAME>
TAG.POS5_X=<SRC.TARG.MOREX>
TAG.POS5_Y=<SRC.TARG.MOREY>
TAG.POS5_Z=<SRC.TARG.MOREZ>
TAG.POS5_M=<SRC.TARG.MOREM>
RETURN 1
ENDIF
IF (<TAG.POS6_X>=00)
SRC.SOUND=79
TAG.LOCAL6=<SRC.TARG.NAME>
TAG.POS6_X=<SRC.TARG.MOREX>
TAG.POS6_Y=<SRC.TARG.MOREY>
TAG.POS6_Z=<SRC.TARG.MOREZ>
TAG.POS6_M=<SRC.TARG.MOREM>
RETURN 1
ENDIF
IF (<TAG.POS7_X>=00)
SRC.SOUND=79
TAG.LOCAL7=<SRC.TARG.NAME>
TAG.POS7_X=<SRC.TARG.MOREX>
TAG.POS7_Y=<SRC.TARG.MOREY>
TAG.POS7_Z=<SRC.TARG.MOREZ>
TAG.POS7_M=<SRC.TARG.MOREM>
RETURN 1
ENDIF
IF (<TAG.POS8_X>=00)
SRC.SOUND=79
TAG.LOCAL8=<SRC.TARG.NAME>
TAG.POS8_X=<SRC.TARG.MOREX>
TAG.POS8_Y=<SRC.TARG.MOREY>
TAG.POS8_Z=<SRC.TARG.MOREZ>
TAG.POS8_M=<SRC.TARG.MOREM>
RETURN 1
ENDIF
IF (<TAG.POS9_X>=00)
SRC.SOUND=79
TAG.LOCAL9=<SRC.TARG.NAME>
TAG.POS9_X=<SRC.TARG.MOREX>
TAG.POS9_Y=<SRC.TARG.MOREY>
TAG.POS9_Z=<SRC.TARG.MOREZ>
TAG.POS9_M=<SRC.TARG.MOREM>
RETURN 1
ENDIF
IF (<TAG.POS10_X>=00)
SRC.SOUND=79
TAG.LOCAL10=<SRC.TARG.NAME>
TAG.POS10_X=<SRC.TARG.MOREX>
TAG.POS10_Y=<SRC.TARG.MOREY>
TAG.POS10_Z=<SRC.TARG.MOREZ>
TAG.POS10_M=<SRC.TARG.MOREM>
RETURN 1
ENDIF
IF (<TAG.POS11_X>=00)
SRC.SOUND=79
TAG.LOCAL11=<SRC.TARG.NAME>
TAG.POS11_X=<SRC.TARG.MOREX>
TAG.POS11_Y=<SRC.TARG.MOREY>
TAG.POS11_Z=<SRC.TARG.MOREZ>
TAG.POS11_M=<SRC.TARG.MOREM>
RETURN 1
ENDIF
IF (<TAG.POS12_X>=00)
SRC.SOUND=79
TAG.LOCAL12=<SRC.TARG.NAME>
TAG.POS12_X=<SRC.TARG.MOREX>
TAG.POS12_Y=<SRC.TARG.MOREY>
TAG.POS12_Z=<SRC.TARG.MOREZ>
TAG.POS12_M=<SRC.TARG.MOREM>
RETURN 1
ENDIF
IF (<TAG.POS13_X>=00)
SRC.SOUND=79
TAG.LOCAL13=<SRC.TARG.NAME>
TAG.POS13_X=<SRC.TARG.MOREX>
TAG.POS13_Y=<SRC.TARG.MOREY>
TAG.POS13_Z=<SRC.TARG.MOREZ>
TAG.POS13_M=<SRC.TARG.MOREM>
RETURN 1
ENDIF
IF (<TAG.POS14_X>=00)
SRC.SOUND=79
TAG.LOCAL14=<SRC.TARG.NAME>
TAG.POS14_X=<SRC.TARG.MOREX>
TAG.POS14_Y=<SRC.TARG.MOREY>
TAG.POS14_Z=<SRC.TARG.MOREZ>
TAG.POS14_M=<SRC.TARG.MOREM>
RETURN 1
ENDIF
IF (<TAG.POS15_X>=00)
SRC.SOUND=79
TAG.LOCAL15=<SRC.TARG.NAME>
TAG.POS15_X=<SRC.TARG.MOREX>
TAG.POS15_Y=<SRC.TARG.MOREY>
TAG.POS15_Z=<SRC.TARG.MOREZ>
TAG.POS15_M=<SRC.TARG.MOREM>
RETURN 1
ENDIF
IF (<TAG.POS16_X>=00)
SRC.SOUND=79
TAG.LOCAL16=<SRC.TARG.NAME>
TAG.POS16_X=<SRC.TARG.MOREX>
TAG.POS16_Y=<SRC.TARG.MOREY>
TAG.POS16_Z=<SRC.TARG.MOREZ>
TAG.POS16_M=<SRC.TARG.MOREM>
RETURN 1
ENDIF

SRC.SYSMESSAGE You have no empty slots for that!
RETURN 1
ENDIF//Main if @ start
SRC.SAY Huh?//catch all
RETURN 1//Stop all

CATEGORY=Valyrs
SUBSECTION=Books
DESCRIPTION=Runebook

ON=@CREATE
COLOR=0481
ATTR=04
TAG.POS1_X=0
TAG.POS2_X=0
TAG.POS3_X=0
TAG.POS4_X=0
TAG.POS5_X=0
TAG.POS6_X=0
TAG.POS7_X=0
TAG.POS8_X=0
TAG.POS9_X=0
TAG.POS10_X=0
TAG.POS11_X=0
TAG.POS12_X=0
TAG.POS13_X=0
TAG.POS14_X=0
TAG.POS15_X=0
TAG.POS16_X=0

[ITEMDEF i_X_RBDELAY]
NAME=Rune Book delay
ID=i_handr_1
TYPE=T_EQ_SCRIPT
WEIGHT=0
LAYER=layer_special

ON=@Create
ATTR=attr_invis|attr_decay

ON=@Equip
TIMER=1

ON=@Timer
// Take the effect we would like.
if ( <cont> )
if ( <more1> )
more1=<more1>-1
TIMER=1
return 1
else
cont.GOPLACE <morep>
endif
endif
// normal timer fall through is to delete the item
REMOVE
RETURN 1

[ITEMDEF i_X_RBGATE]
ID=0f6c
//DEFNAME=i_X_RBGATE
RESOURCES=i_scroll_gate_travel
TYPE=t_telepad
CATEGORY=Provisions - Alchemy & Magic
SUBSECTION=Moongates
DESCRIPTION=RB Gate

ON=@TIMER
if ( <more1> )
more1=<more1>-1
TIMER=1
return 1
else
SOUND=528
REMOVE
ENDIF
RETURN 1

ON=@Create
COLOR=032
MORE1=36

//////////////Start the GUMP//////////////////

[DIALOG d_X_BOOK]
0, 0
//page 0
gumppic 100 10 2200
gumppic 125 50 57
gumppic 145 50 58
gumppic 160 50 58
gumppic 175 50 58
gumppic 190 50 58
gumppic 205 50 58
gumppic 220 50 58
gumppic 230 50 59

gumppic 290 50 57
gumppic 310 50 58
gumppic 325 50 58
gumppic 340 50 58
gumppic 355 50 58
gumppic 370 50 58
gumppic 385 50 58
gumppic 395 50 59

page 0
button 125 65 2103 2104 1 0 1//Button 1
button 125 80 2103 2104 1 0 2//Button 2
button 125 95 2103 2104 1 0 3//Button 3
button 125 110 2103 2104 1 0 4//Button 4
button 125 125 2103 2104 1 0 5//Button 5
button 125 140 2103 2104 1 0 6//Button 6
button 125 155 2103 2104 1 0 7//Button 7
button 125 170 2103 2104 1 0 8//Button 8

button 135 65 2103 2104 1 0 17//Button 17
button 135 80 2103 2104 1 0 18//Button 18
button 135 95 2103 2104 1 0 19//Button 19
button 135 110 2103 2104 1 0 20//Button 20
button 135 125 2103 2104 1 0 21//Button 21
button 135 140 2103 2104 1 0 22//Button 22
button 135 155 2103 2104 1 0 23//Button 23
button 135 170 2103 2104 1 0 24//Button 24

button 250 65 2103 2104 1 0 25//Button 25
button 250 80 2103 2104 1 0 26//Button 26
button 250 95 2103 2104 1 0 27//Button 27
button 250 110 2103 2104 1 0 28//Button 28
button 250 125 2103 2104 1 0 29//Button 29
button 250 140 2103 2104 1 0 30//Button 30
button 250 155 2103 2104 1 0 31//Button 31
button 250 170 2103 2104 1 0 32//Button 32

button 285 65 2103 2104 1 0 9 //Button 9
button 285 80 2103 2104 1 0 10 //Button 10
button 285 95 2103 2104 1 0 11 //Button 11
button 285 110 2103 2104 1 0 12//Button 12
button 285 125 2103 2104 1 0 13//Button 13
button 285 140 2103 2104 1 0 14//Button 14
button 285 155 2103 2104 1 0 15//Button 15
button 285 170 2103 2104 1 0 16//Button 16

button 295 65 2103 2104 1 0 33//Button 33
button 295 80 2103 2104 1 0 34//Button 34
button 295 95 2103 2104 1 0 35//Button 35
button 295 110 2103 2104 1 0 36//Button 36
button 295 125 2103 2104 1 0 37//Button 37
button 295 140 2103 2104 1 0 38//Button 38
button 295 155 2103 2104 1 0 39//Button 39
button 295 170 2103 2104 1 0 40//Button 40

button 410 65 2103 2104 1 0 41//Button 41
button 410 80 2103 2104 1 0 42//Button 42
button 410 95 2103 2104 1 0 43//Button 43
button 410 110 2103 2104 1 0 44//Button 44
button 410 125 2103 2104 1 0 45//Button 45
button 410 140 2103 2104 1 0 46//Button 46
button 410 155 2103 2104 1 0 47//Button 47
button 410 170 2103 2104 1 0 48//Button 48
//END LOCAL/start Add
button 345 38 4033 4033 1 0 49

croppedtext 145 60 115 17 0 0//Location 1
croppedtext 145 75 115 17 0 1//Location 2
croppedtext 145 90 115 17 0 2//Location 3
croppedtext 145 105 115 17 0 3//Location 4
croppedtext 145 120 115 17 0 4//Location 5
croppedtext 145 135 115 17 0 5//Location 6
croppedtext 145 150 115 17 0 6//Location 7
croppedtext 145 165 115 17 0 7//Location 8

croppedtext 305 60 115 17 0 8//Location 9
croppedtext 305 75 115 17 0 9//Location 10
croppedtext 305 90 115 17 0 10//Location 11
croppedtext 305 105 115 17 0 11//Location 12
croppedtext 305 120 115 17 0 12//Location 13
croppedtext 305 135 115 17 0 13//Location 14
croppedtext 305 150 115 17 0 14//Location 15
croppedtext 305 165 115 17 0 15//Location 16

text 128 180 0 16//text 125 35 0 16
text 310 15 1300 17
text 160 15 1300 18
text 365 195 1101 19
text 128 193 0 20

[DIALOG d_X_BOOK TEXT]
<TAG.local1>//Location 1
<TAG.local2>//Location 2
<TAG.local3>//Location 3
<TAG.local4>//Location 4
<TAG.local5>//Location 5
<TAG.local6>//Location 6
<TAG.local7>//Location 7
<TAG.local8>//Location 8
//page 2
<TAG.local9>//Location 9
<TAG.local10>//Location 10
<TAG.local11>//Location 11
<TAG.local12>//Location 12
<TAG.local13>//Location 13
<TAG.local14>//Location 14
<TAG.local15>//Location 15
<TAG.local16>//Location 16
| |_Gate Erase_|//text 16
Add a Rune//text 17
Rune Book//text 18
By Xeno//text 19
|_Recall//text 20

[DIALOG d_X_BOOK BUTTON]
ONBUTTON=0
SRC.SYSMESSAGE The book has been closed!
SRC.SOUND=85
RETURN 1

ONBUTTON=1
IF <TAG.POS1_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_black_pearl>) |! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_blood_moss>)
SRC.SOUND=0108
SRC.MESSAGE You failed to recall!
SRC.MESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.say Kal Ort Por
SRC.ANIM=17
SRC.MANA=(<SRC.MANA>+-5)
IF (<SRC.MAGERY>-30.0+RAND(30))>=25-(<SRC.FOOD>/5)
SRC.MANA=(<SRC.MANA>+-6)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_blood_moss
SRC.CONSUME=1 i_reag_mandrake_root
src.newitem i_X_RBDELAY//or 07626 timer
src.act.morep=<EVAL <TAG.POS1_X>> <EVAL <TAG.POS1_Y>> <EVAL <TAG.POS1_Z>> <EVAL <TAG.POS1_M>>
src.act.more1=1
src.act.equip
SRC.SOUND=85
ELSE
SRC.SOUND=0108
SRC.MESSAGE You failed to recall! Low skill.
SRC.SOUND=85
ENDIF
RETURN 1

ONBUTTON=2
IF <TAG.POS2_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_black_pearl>) |! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_blood_moss>)
SRC.SOUND=0108
SRC.MESSAGE You failed to recall!
SRC.MESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.say Kal Ort Por
SRC.ANIM=17
SRC.MANA=(<SRC.MANA>+-5)
IF (<SRC.MAGERY>-30.0+RAND(30))>=25-(<SRC.FOOD>/5)
SRC.MANA=(<SRC.MANA>+-6)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_blood_moss
SRC.CONSUME=1 i_reag_mandrake_root
src.newitem i_X_RBDELAY//or 07626 timer
src.act.morep=<EVAL <TAG.POS2_X>> <EVAL <TAG.POS2_Y>> <EVAL <TAG.POS2_Z>> <EVAL <TAG.POS2_M>>
src.act.more1=1//program timer
src.act.equip
SRC.SOUND=85
ELSE
SRC.SOUND=0108
SRC.MESSAGE You failed to recall! Low skill.
SRC.SOUND=85
ENDIF
RETURN 1

ONBUTTON=3
IF <TAG.POS3_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_black_pearl>) |! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_blood_moss>)
SRC.SOUND=0108
SRC.MESSAGE You failed to recall!
SRC.MESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.say Kal Ort Por
SRC.ANIM=17
SRC.MANA=(<SRC.MANA>+-5)
IF (<SRC.MAGERY>-30.0+RAND(30))>=25-(<SRC.FOOD>/5)
SRC.MANA=(<SRC.MANA>+-6)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_blood_moss
SRC.CONSUME=1 i_reag_mandrake_root
src.newitem i_X_RBDELAY//or 07626 timer
src.act.morep=<EVAL <TAG.POS3_X>> <EVAL <TAG.POS3_Y>> <EVAL <TAG.POS3_Z>> <EVAL <TAG.POS3_M>>
src.act.more1=1//program timer
src.act.equip
SRC.SOUND=85
ELSE
SRC.SOUND=0108
SRC.MESSAGE You failed to recall! Low skill.
SRC.SOUND=85
ENDIF
RETURN 1

ONBUTTON=4
IF <TAG.POS4_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_black_pearl>) |! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_blood_moss>)
SRC.SOUND=0108
SRC.MESSAGE You failed to recall!
SRC.MESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.say Kal Ort Por
SRC.ANIM=17
SRC.MANA=(<SRC.MANA>+-5)
IF (<SRC.MAGERY>-30.0+RAND(30))>=25-(<SRC.FOOD>/5)
SRC.MANA=(<SRC.MANA>+-6)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_blood_moss
SRC.CONSUME=1 i_reag_mandrake_root
src.newitem i_X_RBDELAY//or 07626 timer
src.act.morep=<EVAL <TAG.POS4_X>> <EVAL <TAG.POS4_Y>> <EVAL <TAG.POS4_Z>> <EVAL <TAG.POS4_M>>
src.act.more1=1//program timer
src.act.equip
SRC.SOUND=85
ELSE
SRC.SOUND=0108
SRC.MESSAGE You failed to recall! Low skill.
SRC.SOUND=85
ENDIF
RETURN 1

ONBUTTON=5
IF <TAG.POS5_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_black_pearl>) |! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_blood_moss>)
SRC.SOUND=0108
SRC.MESSAGE You failed to recall!
SRC.MESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.say Kal Ort Por
SRC.ANIM=17
SRC.MANA=(<SRC.MANA>+-5)
IF (<SRC.MAGERY>-30.0+RAND(30))>=25-(<SRC.FOOD>/5)
SRC.MANA=(<SRC.MANA>+-6)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_blood_moss
SRC.CONSUME=1 i_reag_mandrake_root
src.newitem i_X_RBDELAY//or 07626 timer
src.act.morep=<EVAL <TAG.POS5_X>> <EVAL <TAG.POS5_Y>> <EVAL <TAG.POS5_Z>> <EVAL <TAG.POS5_M>>
src.act.more1=1//program timer
src.act.equip
SRC.SOUND=85
ELSE
SRC.SOUND=0108
SRC.MESSAGE You failed to recall! Low skill.
SRC.SOUND=85
ENDIF
RETURN 1

ONBUTTON=6
IF <TAG.POS6_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_black_pearl>) |! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_blood_moss>)
SRC.SOUND=0108
SRC.MESSAGE You failed to recall!
SRC.MESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.say Kal Ort Por
SRC.ANIM=17
SRC.MANA=(<SRC.MANA>+-5)
IF (<SRC.MAGERY>-30.0+RAND(30))>=25-(<SRC.FOOD>/5)
SRC.MANA=(<SRC.MANA>+-6)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_blood_moss
SRC.CONSUME=1 i_reag_mandrake_root
src.newitem i_X_RBDELAY//or 07626 timer
src.act.morep=<EVAL <TAG.POS6_X>> <EVAL <TAG.POS6_Y>> <EVAL <TAG.POS6_Z>> <EVAL <TAG.POS6_M>>
src.act.more1=1//program timer
src.act.equip
SRC.SOUND=85
ELSE
SRC.SOUND=0108
SRC.MESSAGE You failed to recall! Low skill.
SRC.SOUND=85
ENDIF
RETURN 1

ONBUTTON=7
IF <TAG.POS7_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_black_pearl>) |! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_blood_moss>)
SRC.SOUND=0108
SRC.MESSAGE You failed to recall!
SRC.MESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.say Kal Ort Por
SRC.ANIM=17
SRC.MANA=(<SRC.MANA>+-5)
IF (<SRC.MAGERY>-30.0+RAND(30))>=25-(<SRC.FOOD>/5)
SRC.MANA=(<SRC.MANA>+-6)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_blood_moss
SRC.CONSUME=1 i_reag_mandrake_root
src.newitem i_X_RBDELAY//or 07626 timer
src.act.morep=<EVAL <TAG.POS7_X>> <EVAL <TAG.POS7_Y>> <EVAL <TAG.POS7_Z>> <EVAL <TAG.POS7_M>>
src.act.more1=1//program timer
src.act.equip
SRC.SOUND=85
ELSE
SRC.SOUND=0108
SRC.MESSAGE You failed to recall! Low skill.
SRC.SOUND=85
ENDIF
RETURN 1

ONBUTTON=8
IF <TAG.POS8_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_black_pearl>) |! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_blood_moss>)
SRC.SOUND=0108
SRC.MESSAGE You failed to recall!
SRC.MESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.say Kal Ort Por
SRC.ANIM=17
SRC.MANA=(<SRC.MANA>+-5)
IF (<SRC.MAGERY>-30.0+RAND(30))>=25-(<SRC.FOOD>/5)
SRC.MANA=(<SRC.MANA>+-6)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_blood_moss
SRC.CONSUME=1 i_reag_mandrake_root
src.newitem i_X_RBDELAY//or 07626 timer
src.act.morep=<EVAL <TAG.POS8_X>> <EVAL <TAG.POS8_Y>> <EVAL <TAG.POS8_Z>> <EVAL <TAG.POS8_M>>
src.act.more1=1//program timer
src.act.equip
SRC.SOUND=85
ELSE
SRC.SOUND=0108
SRC.MESSAGE You failed to recall! Low skill.
SRC.SOUND=85
ENDIF
RETURN 1

ONBUTTON=9
IF <TAG.POS9_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_black_pearl>) |! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_blood_moss>)
SRC.SOUND=0108
SRC.MESSAGE You failed to recall!
SRC.MESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.say Kal Ort Por
SRC.ANIM=17
SRC.MANA=(<SRC.MANA>+-5)
IF (<SRC.MAGERY>-30.0+RAND(30))>=25-(<SRC.FOOD>/5)
SRC.MANA=(<SRC.MANA>+-6)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_blood_moss
SRC.CONSUME=1 i_reag_mandrake_root
src.newitem i_X_RBDELAY//or 07626 timer
src.act.morep=<EVAL <TAG.POS9_X>> <EVAL <TAG.POS9_Y>> <EVAL <TAG.POS9_Z>> <EVAL <TAG.POS9_M>>
src.act.more1=1//program timer
src.act.equip
SRC.SOUND=85
ELSE
SRC.SOUND=0108
SRC.MESSAGE You failed to recall! Low skill.
SRC.SOUND=85
ENDIF
RETURN 1

ONBUTTON=10
IF <TAG.POS10_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_black_pearl>) |! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_blood_moss>)
SRC.SOUND=0108
SRC.MESSAGE You failed to recall!
SRC.MESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.say Kal Ort Por
SRC.ANIM=17
SRC.MANA=(<SRC.MANA>+-5)
IF (<SRC.MAGERY>-30.0+RAND(30))>=25-(<SRC.FOOD>/5)
SRC.MANA=(<SRC.MANA>+-6)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_blood_moss
SRC.CONSUME=1 i_reag_mandrake_root
src.newitem i_X_RBDELAY//or 07626 timer
src.act.morep=<EVAL <TAG.POS10_X>> <EVAL <TAG.POS10_Y>> <EVAL <TAG.POS10_Z>> <EVAL <TAG.POS10_M>>
src.act.more1=1//program timer
src.act.equip
SRC.SOUND=85
ELSE
SRC.SOUND=0108
SRC.MESSAGE You failed to recall! Low skill.
SRC.SOUND=85
ENDIF
RETURN 1

ONBUTTON=11
IF <TAG.POS11_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_black_pearl>) |! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_blood_moss>)
SRC.SOUND=0108
SRC.MESSAGE You failed to recall!
SRC.MESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.say Kal Ort Por
SRC.ANIM=17
SRC.MANA=(<SRC.MANA>+-5)
IF (<SRC.MAGERY>-30.0+RAND(30))>=25-(<SRC.FOOD>/5)
SRC.MANA=(<SRC.MANA>+-6)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_blood_moss
SRC.CONSUME=1 i_reag_mandrake_root
src.newitem i_X_RBDELAY//or 07626 timer
src.act.morep=<EVAL <TAG.POS11_X>> <EVAL <TAG.POS11_Y>> <EVAL <TAG.POS11_Z>> <EVAL <TAG.POS11_M>>
src.act.more1=1//program timer
src.act.equip
SRC.SOUND=85
ELSE
SRC.SOUND=0108
SRC.MESSAGE You failed to recall! Low skill.
SRC.SOUND=85
ENDIF
RETURN 1

ONBUTTON=12
IF <TAG.POS12_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_black_pearl>) |! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_blood_moss>)
SRC.SOUND=0108
SRC.MESSAGE You failed to recall!
SRC.MESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.say Kal Ort Por
SRC.ANIM=17
SRC.MANA=(<SRC.MANA>+-5)
IF (<SRC.MAGERY>-30.0+RAND(30))>=25-(<SRC.FOOD>/5)
SRC.MANA=(<SRC.MANA>+-6)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_blood_moss
SRC.CONSUME=1 i_reag_mandrake_root
src.newitem i_X_RBDELAY//or 07626 timer
src.act.morep=<EVAL <TAG.POS12_X>> <EVAL <TAG.POS12_Y>> <EVAL <TAG.POS12_Z>> <EVAL <TAG.POS12_M>>
src.act.more1=1//program timer
src.act.equip
SRC.SOUND=85
ELSE
SRC.SOUND=0108
SRC.MESSAGE You failed to recall! Low skill.
SRC.SOUND=85
ENDIF
RETURN 1

ONBUTTON=13
IF <TAG.POS13_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_black_pearl>) |! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_blood_moss>)
SRC.SOUND=0108
SRC.MESSAGE You failed to recall!
SRC.MESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.say Kal Ort Por
SRC.ANIM=17
SRC.MANA=(<SRC.MANA>+-5)
IF (<SRC.MAGERY>-30.0+RAND(30))>=25-(<SRC.FOOD>/5)
SRC.MANA=(<SRC.MANA>+-6)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_blood_moss
SRC.CONSUME=1 i_reag_mandrake_root
src.newitem i_X_RBDELAY//or 07626 timer
src.act.morep=<EVAL <TAG.POS13_X>> <EVAL <TAG.POS13_Y>> <EVAL <TAG.POS13_Z>> <EVAL <TAG.POS13_M>>
src.act.more1=1//program timer
src.act.equip
SRC.SOUND=85
ELSE
SRC.SOUND=0108
SRC.MESSAGE You failed to recall! Low skill.
SRC.SOUND=85
ENDIF
RETURN 1

ONBUTTON=14
IF <TAG.POS14_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_black_pearl>) |! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_blood_moss>)
SRC.SOUND=0108
SRC.MESSAGE You failed to recall!
SRC.MESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.say Kal Ort Por
SRC.ANIM=17
SRC.MANA=(<SRC.MANA>+-5)
IF (<SRC.MAGERY>-30.0+RAND(30))>=25-(<SRC.FOOD>/5)
SRC.MANA=(<SRC.MANA>+-6)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_blood_moss
SRC.CONSUME=1 i_reag_mandrake_root
src.newitem i_X_RBDELAY//or 07626 timer
src.act.morep=<EVAL <TAG.POS14_X>> <EVAL <TAG.POS14_Y>> <EVAL <TAG.POS14_Z>> <EVAL <TAG.POS14_M>>
src.act.more1=1//program timer
src.act.equip
SRC.SOUND=85
ELSE
SRC.SOUND=0108
SRC.MESSAGE You failed to recall! Low skill.
SRC.SOUND=85
ENDIF
RETURN 1

ONBUTTON=15
IF <TAG.POS15_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_black_pearl>) |! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_blood_moss>)
SRC.SOUND=0108
SRC.MESSAGE You failed to recall!
SRC.MESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.say Kal Ort Por
SRC.ANIM=17
SRC.MANA=(<SRC.MANA>+-5)
IF (<SRC.MAGERY>-30.0+RAND(30))>=25-(<SRC.FOOD>/5)
SRC.MANA=(<SRC.MANA>+-6)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_blood_moss
SRC.CONSUME=1 i_reag_mandrake_root
src.newitem i_X_RBDELAY//or 07626 timer
src.act.morep=<EVAL <TAG.POS15_X>> <EVAL <TAG.POS15_Y>> <EVAL <TAG.POS15_Z>> <EVAL <TAG.POS15_M>>
src.act.more1=1//program timer
src.act.equip
SRC.SOUND=85
ELSE
SRC.SOUND=0108
SRC.MESSAGE You failed to recall! Low skill.
SRC.SOUND=85
ENDIF
RETURN 1

ONBUTTON=16
IF <TAG.POS16_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_black_pearl>) |! (<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_blood_moss>)
SRC.SOUND=0108
SRC.MESSAGE You failed to recall!
SRC.MESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.say Kal Ort Por
SRC.ANIM=17
SRC.MANA=(<SRC.MANA>+-5)
IF (<SRC.MAGERY>-30.0+RAND(30))>=25-(<SRC.FOOD>/5)
SRC.MANA=(<SRC.MANA>+-6)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_blood_moss
SRC.CONSUME=1 i_reag_mandrake_root
src.newitem i_X_RBDELAY//or 07626 timer
src.act.morep=<EVAL <TAG.POS16_X>> <EVAL <TAG.POS16_Y>> <EVAL <TAG.POS16_Z>> <EVAL <TAG.POS16_M>>
src.act.more1=1//program timer
src.act.equip
SRC.SOUND=85
ELSE
SRC.SOUND=0108
SRC.MESSAGE You failed to recall! Low skill.
SRC.SOUND=85
ENDIF
RETURN 1

ONBUTTON=17
IF <TAG.POS1_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
if !<src.isgm>
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate!
SRC.SYSMESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
IF (<SRC.MANA><40)
SRC.SOUND=0108
SRC.SYSMESSAGE You dont have enough mana, to attempt to gate!
RETURN 1
ENDIF
SRC.SAY Vas Rel Por
SRC.MANA=(<SRC.MANA>+-15)
//IF (<SRC.MAGERY>-55.0+RAND(75))<=46-(<SRC.FOOD>/5)
//IF (((<SRC.MAGERY>-45)+<SRC.FOOD>+RAND(16)))<=34.0
//IF (<SRC.MAGERY>-70.0+RAND(30))>=31-(<SRC.FOOD>/5)
IF (<SRC.MAGERY><=600
//SRC.SYSMESSAGE var.mag <VAR.MAG> & <VAR.FRAN>
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate! Low skill.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>+-25)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_mandrake_root
SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.ANIM=17
SRC.SOUND=535 // or 526 or 524
src.newitem i_X_RBGATE
src.act.timer=20
src.act.morep=<EVAL <TAG.POS1_X>> <EVAL <TAG.POS1_Y>> <EVAL <TAG.POS1_Z>> <EVAL <TAG.POS1_M>>
src.act.p=<src.p>
src.newitem i_X_RBGATE
SRC.ACT.P=<EVAL <TAG.POS1_X>> <EVAL <TAG.POS1_Y>> <EVAL <TAG.POS1_Z>> <EVAL <TAG.POS1_M>>
src.act.timer=20
SRC.ACT.MOREP=<SRC.P>
SRC.SOUND=85
RETURN 1

ONBUTTON=18
IF <TAG.POS2_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
if !<src.isgm>
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate!
SRC.SYSMESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
IF (<SRC.MANA><40)
SRC.SOUND=0108
SRC.SYSMESSAGE You dont have enough mana, to attempt to gate!
RETURN 1
ENDIF
SRC.SAY Vas Rel Por
SRC.MANA=(<SRC.MANA>+-15)
IF (<SRC.MAGERY><=600
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate! Low skill.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>+-25)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_mandrake_root
SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.ANIM=17
SRC.SOUND=535 // or 526 or 524
src.newitem i_X_RBGATE
src.act.timer=20
src.act.morep=<EVAL <TAG.POS2_X>> <EVAL <TAG.POS2_Y>> <EVAL <TAG.POS2_Z>> <EVAL <TAG.POS2_M>>
src.act.p=<src.p>
src.newitem i_X_RBGATE
SRC.ACT.P=<EVAL <TAG.POS2_X>> <EVAL <TAG.POS2_Y>> <EVAL <TAG.POS2_Z>> <EVAL <TAG.POS2_M>>
src.act.timer=20
SRC.ACT.MOREP=<SRC.P>
SRC.SOUND=85
RETURN 1

ONBUTTON=19
IF <TAG.POS3_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
if !<src.isgm>
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate!
SRC.SYSMESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
IF (<SRC.MANA><40)
SRC.SOUND=0108
SRC.SYSMESSAGE You dont have enough mana, to attempt to gate!
RETURN 1
ENDIF
SRC.SAY Vas Rel Por
SRC.MANA=(<SRC.MANA>+-15)
IF (<SRC.MAGERY><=600
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate! Low skill.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>+-25)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_mandrake_root
SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.ANIM=17
SRC.SOUND=535 // or 526 or 524
src.newitem i_X_RBGATE
src.act.timer=20
src.act.morep=<EVAL <TAG.POS3_X>> <EVAL <TAG.POS3_Y>> <EVAL <TAG.POS3_Z>> <EVAL <TAG.POS3_M>>
src.act.p=<src.p>
src.newitem i_X_RBGATE
SRC.ACT.P=<EVAL <TAG.POS3_X>> <EVAL <TAG.POS3_Y>> <EVAL <TAG.POS3_Z>> <EVAL <TAG.POS3_M>>
src.act.timer=20
SRC.ACT.MOREP=<SRC.P>
SRC.SOUND=85
RETURN 1

ONBUTTON=20
IF <TAG.POS4_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
if !<src.isgm>
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate!
SRC.SYSMESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
IF (<SRC.MANA><40)
SRC.SOUND=0108
SRC.SYSMESSAGE You dont have enough mana, to attempt to gate!
RETURN 1
ENDIF
SRC.SAY Vas Rel Por
SRC.MANA=(<SRC.MANA>+-15)
IF (<SRC.MAGERY><=600
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate! Low skill.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>+-25)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_mandrake_root
SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.ANIM=17
SRC.SOUND=535 // or 526 or 524
src.newitem i_X_RBGATE
src.act.timer=20
src.act.morep=<EVAL <TAG.POS4_X>> <EVAL <TAG.POS4_Y>> <EVAL <TAG.POS4_Z>> <EVAL <TAG.POS4_M>>
src.act.p=<src.p>
src.newitem i_X_RBGATE
SRC.ACT.P=<EVAL <TAG.POS4_X>> <EVAL <TAG.POS4_Y>> <EVAL <TAG.POS4_Z>> <EVAL <TAG.POS4_M>>
src.act.timer=20
SRC.ACT.MOREP=<SRC.P>
SRC.SOUND=85
RETURN 1

ONBUTTON=21
IF <TAG.POS5_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
if !<src.isgm>
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate!
SRC.SYSMESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
IF (<SRC.MANA><40)
SRC.SOUND=0108
SRC.SYSMESSAGE You dont have enough mana, to attempt to gate!
RETURN 1
ENDIF
SRC.SAY Vas Rel Por
SRC.MANA=(<SRC.MANA>+-15)
IF (<SRC.MAGERY><=600
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate! Low skill.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>+-25)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_mandrake_root
SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.ANIM=17
SRC.SOUND=535 // or 526 or 524
src.newitem i_X_RBGATE
src.act.timer=20
src.act.morep=<EVAL <TAG.POS5_X>> <EVAL <TAG.POS5_Y>> <EVAL <TAG.POS5_Z>> <EVAL <TAG.POS5_M>>
src.act.p=<src.p>
src.newitem i_X_RBGATE
SRC.ACT.P=<EVAL <TAG.POS5_X>> <EVAL <TAG.POS5_Y>> <EVAL <TAG.POS5_Z>> <EVAL <TAG.POS5_M>>
src.act.timer=20
SRC.ACT.MOREP=<SRC.P>
SRC.SOUND=85
RETURN 1

ONBUTTON=22
IF <TAG.POS6_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
if !<src.isgm>
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate!
SRC.SYSMESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
IF (<SRC.MANA><40)
SRC.SOUND=0108
SRC.SYSMESSAGE You dont have enough mana, to attempt to gate!
RETURN 1
ENDIF
SRC.SAY Vas Rel Por
SRC.MANA=(<SRC.MANA>+-15)
IF (<SRC.MAGERY><=600
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate! Low skill.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>+-25)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_mandrake_root
SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.ANIM=17
SRC.SOUND=535 // or 526 or 524
src.newitem i_X_RBGATE
src.act.timer=20
src.act.morep=<EVAL <TAG.POS6_X>> <EVAL <TAG.POS6_Y>> <EVAL <TAG.POS6_Z>> <EVAL <TAG.POS6_M>>
src.act.p=<src.p>
src.newitem i_X_RBGATE
SRC.ACT.P=<EVAL <TAG.POS6_X>> <EVAL <TAG.POS6_Y>> <EVAL <TAG.POS6_Z>> <EVAL <TAG.POS6_M>>
src.act.timer=20
SRC.ACT.MOREP=<SRC.P>
SRC.SOUND=85
RETURN 1

ONBUTTON=23
IF <TAG.POS7_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
if !<src.isgm>
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate!
SRC.SYSMESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
IF (<SRC.MANA><40)
SRC.SOUND=0108
SRC.SYSMESSAGE You dont have enough mana, to attempt to gate!
RETURN 1
ENDIF
SRC.SAY Vas Rel Por
SRC.MANA=(<SRC.MANA>+-15)
IF (<SRC.MAGERY><=600
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate! Low skill.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>+-25)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_mandrake_root
SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.ANIM=17
SRC.SOUND=535 // or 526 or 524
src.newitem i_X_RBGATE
src.act.timer=20
src.act.morep=<EVAL <TAG.POS7_X>> <EVAL <TAG.POS7_Y>> <EVAL <TAG.POS7_Z>> <EVAL <TAG.POS7_M>>
src.act.p=<src.p>
src.newitem i_X_RBGATE
SRC.ACT.P=<EVAL <TAG.POS7_X>> <EVAL <TAG.POS7_Y>> <EVAL <TAG.POS7_Z>> <EVAL <TAG.POS7_M>>
src.act.timer=20
SRC.ACT.MOREP=<SRC.P>
SRC.SOUND=85
RETURN 1

ONBUTTON=24
IF <TAG.POS8_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
if !<src.isgm>
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate!
SRC.SYSMESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
IF (<SRC.MANA><40)
SRC.SOUND=0108
SRC.SYSMESSAGE You dont have enough mana, to attempt to gate!
RETURN 1
ENDIF
SRC.SAY Vas Rel Por
SRC.MANA=(<SRC.MANA>+-15)
IF (<SRC.MAGERY><=600
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate! Low skill.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>+-25)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_mandrake_root
SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.ANIM=17
SRC.SOUND=535 // or 526 or 524
src.newitem i_X_RBGATE
src.act.timer=20
src.act.morep=<EVAL <TAG.POS8_X>> <EVAL <TAG.POS8_Y>> <EVAL <TAG.POS8_Z>> <EVAL <TAG.POS8_M>>
src.act.p=<src.p>
src.newitem i_X_RBGATE
SRC.ACT.P=<EVAL <TAG.POS8_X>> <EVAL <TAG.POS8_Y>> <EVAL <TAG.POS8_Z>> <EVAL <TAG.POS8_M>>
src.act.timer=20
SRC.ACT.MOREP=<SRC.P>
SRC.SOUND=85
RETURN 1

ONBUTTON=25
SRC.SOUND=43
SRC.SYSMESSAGE Reseting location!
TAG.POS1_X=00
TAG.LOCAL1=

ONBUTTON=26
SRC.SOUND=43
SRC.SYSMESSAGE Reseting location!
TAG.POS2_X=00
TAG.LOCAL2=

ONBUTTON=27
SRC.SOUND=43
SRC.SYSMESSAGE Reseting location!
TAG.POS3_X=00
TAG.LOCAL3=

ONBUTTON=28
SRC.SOUND=43
SRC.SYSMESSAGE Reseting location!
TAG.POS4_X=00
TAG.LOCAL4=

ONBUTTON=29
SRC.SOUND=43
SRC.SYSMESSAGE Reseting location!
TAG.POS5_X=00
TAG.LOCAL5=

ONBUTTON=30
SRC.SOUND=43
SRC.SYSMESSAGE Reseting location!
TAG.POS6_X=00
TAG.LOCAL6=

ONBUTTON=31
SRC.SOUND=43
SRC.SYSMESSAGE Reseting location!
TAG.POS7_X=00
TAG.LOCAL7=

ONBUTTON=32
SRC.SOUND=43
SRC.SYSMESSAGE Reseting location!
TAG.POS8_X=00
TAG.LOCAL8=

ONBUTTON=33
IF <TAG.POS9_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
if !<src.isgm>
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate!
SRC.SYSMESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
IF (<SRC.MANA><40)
SRC.SOUND=0108
SRC.SYSMESSAGE You dont have enough mana, to attempt to gate!
RETURN 1
ENDIF
SRC.SAY Vas Rel Por
SRC.MANA=(<SRC.MANA>+-15)
IF (<SRC.MAGERY><=600
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate! Low skill.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>+-25)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_mandrake_root
SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.ANIM=17
SRC.SOUND=535 // or 526 or 524
src.newitem i_X_RBGATE
src.act.timer=20
src.act.p=<src.p>
src.act.morep=<EVAL <TAG.POS9_X>> <EVAL <TAG.POS9_Y>> <EVAL <TAG.POS9_Z>> <EVAL <TAG.POS9_M>>
src.newitem i_X_RBGATE
SRC.ACT.P=<EVAL <TAG.POS9_X>> <EVAL <TAG.POS9_Y>> <EVAL <TAG.POS9_Z>> <EVAL <TAG.POS9_M>>
src.act.timer=20
SRC.ACT.MOREP=<SRC.P>
SRC.SOUND=85
RETURN 1

ONBUTTON=34
IF <TAG.POS10_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
if !<src.isgm>
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate!
SRC.SYSMESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
IF (<SRC.MANA><40)
SRC.SOUND=0108
SRC.SYSMESSAGE You dont have enough mana, to attempt to gate!
RETURN 1
ENDIF
SRC.SAY Vas Rel Por
SRC.MANA=(<SRC.MANA>+-15)
IF (<SRC.MAGERY><=600
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate! Low skill.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>+-25)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_mandrake_root
SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.ANIM=17
SRC.SOUND=535 // or 526 or 524
src.newitem i_X_RBGATE
src.act.timer=20
src.act.morep=<EVAL <TAG.POS10_X>> <EVAL <TAG.POS10_Y>> <EVAL <TAG.POS10_Z>> <EVAL <TAG.POS10_M>>
src.act.p=<src.p>
src.newitem i_X_RBGATE
SRC.ACT.P=<EVAL <TAG.POS10_X>> <EVAL <TAG.POS10_Y>> <EVAL <TAG.POS10_Z>> <EVAL <TAG.POS10_M>>
src.act.timer=20
SRC.ACT.MOREP=<SRC.P>
SRC.SOUND=85
RETURN 1

ONBUTTON=35
IF <TAG.POS11_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
if !<src.isgm>
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate!
SRC.SYSMESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
IF (<SRC.MANA><40)
SRC.SOUND=0108
SRC.SYSMESSAGE You dont have enough mana, to attempt to gate!
RETURN 1
ENDIF
SRC.SAY Vas Rel Por
SRC.MANA=(<SRC.MANA>+-15)
IF (<SRC.MAGERY><=600
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate! Low skill.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>+-25)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_mandrake_root
SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.ANIM=17
SRC.SOUND=535 // or 526 or 524
src.newitem i_X_RBGATE
src.act.timer=20
src.act.morep=<EVAL <TAG.POS11_X>> <EVAL <TAG.POS11_Y>> <EVAL <TAG.POS11_Z>> <EVAL <TAG.POS11_M>>
src.act.p=<src.p>
src.newitem i_X_RBGATE
SRC.ACT.P=<EVAL <TAG.POS11_X>> <EVAL <TAG.POS11_Y>> <EVAL <TAG.POS11_Z>> <EVAL <TAG.POS11_M>>
src.act.timer=20
SRC.ACT.MOREP=<SRC.P>
SRC.SOUND=85
RETURN 1

ONBUTTON=36
IF <TAG.POS12_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
if !<src.isgm>
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate!
SRC.SYSMESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
IF (<SRC.MANA><40)
SRC.SOUND=0108
SRC.SYSMESSAGE You dont have enough mana, to attempt to gate!
RETURN 1
ENDIF
SRC.SAY Vas Rel Por
SRC.MANA=(<SRC.MANA>+-15)
IF (<SRC.MAGERY><=600
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate! Low skill.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>+-25)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_mandrake_root
SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.ANIM=17
SRC.SOUND=535 // or 526 or 524
src.newitem i_X_RBGATE
src.act.timer=20
src.act.morep=<EVAL <TAG.POS12_X>> <EVAL <TAG.POS12_Y>> <EVAL <TAG.POS12_Z>> <EVAL <TAG.POS12_M>>
src.act.p=<src.p>
src.newitem i_X_RBGATE
SRC.ACT.P=<EVAL <TAG.POS12_X>> <EVAL <TAG.POS12_Y>> <EVAL <TAG.POS12_Z>> <EVAL <TAG.POS12_M>>
src.act.timer=20
SRC.ACT.MOREP=<SRC.P>
SRC.SOUND=85
RETURN 1

ONBUTTON=37
IF <TAG.POS13_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
if !<src.isgm>
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate!
SRC.SYSMESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
IF (<SRC.MANA><40)
SRC.SOUND=0108
SRC.SYSMESSAGE You dont have enough mana, to attempt to gate!
RETURN 1
ENDIF
SRC.SAY Vas Rel Por
SRC.MANA=(<SRC.MANA>+-15)
IF (<SRC.MAGERY><=600
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate! Low skill.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>+-25)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_mandrake_root
SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.ANIM=17
SRC.SOUND=535 // or 526 or 524
src.newitem i_X_RBGATE
src.act.timer=20
src.act.morep=<EVAL <TAG.POS13_X>> <EVAL <TAG.POS13_Y>> <EVAL <TAG.POS13_Z>> <EVAL <TAG.POS13_M>>
src.act.p=<src.p>
src.newitem i_X_RBGATE
SRC.ACT.P=<EVAL <TAG.POS13_X>> <EVAL <TAG.POS13_Y>> <EVAL <TAG.POS13_Z>> <EVAL <TAG.POS13_M>>
src.act.timer=20
SRC.ACT.MOREP=<SRC.P>
SRC.SOUND=85
RETURN 1

ONBUTTON=38
IF <TAG.POS14_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
if !<src.isgm>
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate!
SRC.SYSMESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
IF (<SRC.MANA><40)
SRC.SOUND=0108
SRC.SYSMESSAGE You dont have enough mana, to attempt to gate!
RETURN 1
ENDIF
SRC.SAY Vas Rel Por
SRC.MANA=(<SRC.MANA>+-15)
IF (<SRC.MAGERY><=600
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate! Low skill.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>+-25)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_mandrake_root
SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.ANIM=17
SRC.SOUND=535 // or 526 or 524
src.newitem i_X_RBGATE
src.act.timer=20
src.act.morep=<EVAL <TAG.POS14_X>> <EVAL <TAG.POS14_Y>> <EVAL <TAG.POS14_Z>> <EVAL <TAG.POS14_M>>
src.act.p=<src.p>
src.newitem i_X_RBGATE
SRC.ACT.P=<EVAL <TAG.POS14_X>> <EVAL <TAG.POS14_Y>> <EVAL <TAG.POS14_Z>> <EVAL <TAG.POS14_M>>
src.act.timer=20
SRC.ACT.MOREP=<SRC.P>
SRC.SOUND=85
RETURN 1

ONBUTTON=39
IF <TAG.POS15_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
if !<src.isgm>
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate!
SRC.SYSMESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
IF (<SRC.MANA><40)
SRC.SOUND=0108
SRC.SYSMESSAGE You dont have enough mana, to attempt to gate!
RETURN 1
ENDIF
SRC.SAY Vas Rel Por
SRC.MANA=(<SRC.MANA>+-15)
IF (<SRC.MAGERY><=600
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate! Low skill.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>+-25)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_mandrake_root
SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.ANIM=17
SRC.SOUND=535 // or 526 or 524
src.newitem i_X_RBGATE
src.act.timer=20
src.act.morep=<EVAL <TAG.POS15_X>> <EVAL <TAG.POS15_Y>> <EVAL <TAG.POS15_Z>> <EVAL <TAG.POS15_M>>
src.act.p=<src.p>
src.newitem i_X_RBGATE
SRC.ACT.P=<EVAL <TAG.POS15_X>> <EVAL <TAG.POS15_Y>> <EVAL <TAG.POS15_Z>> <EVAL <TAG.POS15_M>>
src.act.timer=20
SRC.ACT.MOREP=<SRC.P>
SRC.SOUND=85
RETURN 1

ONBUTTON=40
IF <TAG.POS16_X>=00
SRC.SYSMESSAGE That slot does not have a rune wrote to it!
RETURN 1
ENDIF
if !<src.isgm>
IF <SRC.REGION.FLAGS>&0E
SRC.SYSMESSAGE This area prevents you from using this book!
SRC.SOUND=85
RETURN 1
ENDIF
IF !(<SRC.RESTEST 1 i_reag_mandrake_root>) |! (<SRC.RESTEST 1 i_reag_sulfur_ash>) |! (<SRC.RESTEST 1 i_reag_black_pearl>)
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate!
SRC.SYSMESSAGE You dont have required reagents.
SRC.SOUND=85
RETURN 1
ENDIF
IF (<SRC.MANA><40)
SRC.SOUND=0108
SRC.SYSMESSAGE You dont have enough mana, to attempt to gate!
RETURN 1
ENDIF
SRC.SAY Vas Rel Por
SRC.MANA=(<SRC.MANA>+-15)
IF (<SRC.MAGERY><=600
SRC.SOUND=0108
SRC.SYSMESSAGE You failed to gate! Low skill.
SRC.SOUND=85
RETURN 1
ENDIF
SRC.MANA=(<SRC.MANA>+-25)
SRC.CONSUME=1 i_reag_black_pearl
SRC.CONSUME=1 i_reag_mandrake_root
SRC.CONSUME=1 i_reag_sulfur_ash
ENDIF
SRC.ANIM=17
SRC.SOUND=535 // or 526 or 524
src.newitem i_X_RBGATE
src.act.timer=20
src.act.morep=<EVAL <TAG.POS16_X>> <EVAL <TAG.POS16_Y>> <EVAL <TAG.POS16_Z>> <EVAL <TAG.POS16_M>>
src.act.p=<src.p>
src.newitem i_X_RBGATE
SRC.ACT.P=<EVAL <TAG.POS16_X>> <EVAL <TAG.POS16_Y>> <EVAL <TAG.POS16_Z>> <EVAL <TAG.POS16_M>>
src.act.timer=20
SRC.ACT.MOREP=<SRC.P>
SRC.SOUND=85
RETURN 1

ONBUTTON=41
SRC.SOUND=43
SRC.SYSMESSAGE Reseting location!
TAG.POS9_X=00
TAG.LOCAL9=

ONBUTTON=42
SRC.SOUND=43
SRC.SYSMESSAGE Reseting location!
TAG.POS10_X=00
TAG.LOCAL10=

ONBUTTON=43
SRC.SOUND=43
SRC.SYSMESSAGE Reseting location!
TAG.POS11_X=00
TAG.LOCAL11=

ONBUTTON=44
SRC.SOUND=43
SRC.SYSMESSAGE Reseting location!
TAG.POS12_X=00
TAG.LOCAL12=

ONBUTTON=45
SRC.SOUND=43
SRC.SYSMESSAGE Reseting location!
TAG.POS13_X=00
TAG.LOCAL13=

ONBUTTON=46
SRC.SOUND=43
SRC.SYSMESSAGE Reseting location!
TAG.POS14_X=00
TAG.LOCAL14=

ONBUTTON=47
SRC.SOUND=43
SRC.SYSMESSAGE Reseting location!
TAG.POS15_X=00
TAG.LOCAL15=

ONBUTTON=48
SRC.SOUND=43
SRC.SYSMESSAGE Reseting location!
TAG.POS16_X=00
TAG.LOCAL16=

ONBUTTON=49
SRC.SOUND=85
SRC.SYSMESSAGE Please target the rune you wish to scribe in your book.
TARGET