[DIALOG d_leveling_system]
0,0
page 0
resizepic 0 25 5054 450 465
resizepic 25 75 3000 400 100
resizepic 15 428 3000 420 50
resizepic 15 320 3000 420 85

//BUTTONS
button 35 85 4005 4006 1 0 2
button 35 115 4005 4006 1 0 4
button 35 145 4005 4006 1 0 5
button 20 250 4026 4027 1 0 6
button 20 275 4026 4027 1 0 7
button 20 225 4026 4027 1 0 8
button 265 225 4026 4027 1 0 9
button 265 250 4026 4027 1 0 10
button 265 275 4026 4027 1 0 11
button 265 325 4026 4027 1 0 12

//TEXT FIELDS
text 50 40 1153 0
text 25 430 1104 1
text 25 450 1104 3
croppedtext 340 430 90 25 0 2
text 177 450 0 4
text 75 87 995 5
text 75 117 995 6
text 75 147 305 9
text 250 147 305 10
text 250 87 995 7
text 250 117 995 8
text 55 252 995 11
text 165 252 0 12
text 55 277 995 13
text 165 277 0 14
text 20 190 995 15
text 55 227 995 16
text 300 227 333 17
text 300 250 333 18
text 300 275 995 19
text 25 325 1104 20
text 25 350 1104 21
text 25 375 1104 22
text 125 325 0 23
text 125 350 0 24
text 125 375 0 25
text 300 325 0 26
text 280 405 1104 27

[DIALOG d_leveling_system TEXT]
GM Bob Leveling System House
Showing Experience Results for Character :
<src.name>
Current Experience :
<eval <tag.experience>>
Earn New Title :
Earn New Level :
<TAG.TITLE>
<EVAL <TAG.TITLED>>
Current Trivias :
<EVAL <tag.TRIVIAS>>
Quest Points :
<EVAL <tag.questpoints>>
Tier Level :
<EVAL <TAG.TIER>>
Experience Needed for Next Level: <EVAL <SRC.TAG.TNL>>
Turn on/off noexp
Newbie Chat
Newbie Helper
Sacrifice a Corpse
Strength :
Intelligence :
Dexterity :
<HITS> / <STR>
<MANA> / <INT>
<STAM> / <DEX>
Consider Monster
By GM Bob

[DIALOG d_leveling_system BUTTON]
ONBUTTON=0
SRC.SYSMESSAGE Leveling Menu Closed...

ONBUTTON=1
//THIS BUTTON IS NOT USED IN THE LATEST SYSTEM
IF <SRC.FAME> == 0
SRC.SYSMESSAGE You currently do not have any fame though!
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> > 99999
tag.experience=<EVAL <tag.experience>> + <FAME> / (8)
SOUND 61
SRC.FAME=0
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> > 49999
tag.EXPERIENCE=<EVAL <tag.EXPERIENCE>> + <FAME> / (7)
SOUND 61
SRC.FAME=0
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> > 29999
tag.EXPERIENCE=<EVAL <tag.EXPERIENCE>> + <FAME> / (6)
SOUND 61
SRC.FAME=0
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> > 19999
tag.EXPERIENCE=<EVAL <tag.EXPERIENCE>> + <FAME> / (5)
SOUND 61
SRC.FAME=0
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> > 9999
tag.EXPERIENCE=<EVAL <tag.EXPERIENCE>> + <FAME> / (4)
SOUND 61
SRC.FAME=0
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> > 6999
tag.EXPERIENCE=<EVAL <tag.EXPERIENCE>> + <FAME> / (3)
SOUND 61
SRC.FAME=0
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> > 3999
tag.EXPERIENCE=<EVAL <tag.EXPERIENCE>> + <FAME> / (2)
SOUND 61
SRC.FAME=0
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> < 3998
tag.EXPERIENCE=<EVAL <tag.EXPERIENCE>> + <FAME>
SOUND 61
SRC.FAME=0
RETURN 0
ENDIF

ONBUTTON=2
IF <EVAL <tag.EXPERIENCE>> > 999999
tag.TITLE=Gladiator
SOUND 512
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> > 499999
tag.TITLE=Exhaulter
SOUND 512
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> > 299999
tag.TITLE=Warrior
SOUND 512
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> > 199999
tag.TITLE=Nightblade
SOUND 512
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> > 9999
tag.TITLE=Apprentice
SOUND 512
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> > 6999
tag.TITLE=Crew Worker
SOUND 512
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> > 3999
tag.TILE=Beginner
SOUND 512
RETURN 0
ELSE
IF <EVAL <tag.EXPERIENCE>> < 3998
tag.TITLE=Newbie
SOUND 512
RETURN 0

ONBUTTON=4
CHECKSTATS

ONBUTTON=5
SRC.MENU m_trivia

ONBUTTON=7
IF <EVAL <TAG.TITLED>>=25
MENU m_remort
RETURN 0
ELSE
SYSMESSAGE You are not high enough level to remort your character.
RETURN 0

ONBUTTON=6
SRC.MENU m_questitems

ONBUTTON=8
IF (<EVAL <SRC.TAG.NOEXPE>>=0)
SRC.SYSMESSAGE You have chosen not to gain experience! This may be turned off or on at any time you wish.
SRC.TAG.NOEXPE 1
RETURN 0
ELSE
SRC.SYSMESSAGE You may now once again gain experience!
SRC.TAG.NOEXPE 0
RETURN 0

ONBUTTON=9
newbiechan

ONBUTTON=10
IF (<EVAL <SRC.TAG.NEWBIEHELPER>>=1)
SRC.SYSMESSAGE You are no longer a newbie helper...
SRC.TAG.NEWBIEHELPER 0
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TITLED>><15)
SRC.SYSMESSAGE You must be level 15 or higher to become a helper!
RETURN 1
ELSE
SRC.TAG.NEWBIEHELPER 1
SRC.SYSMESSAGE Thank you for becomming a helper.
SRC.SYSMESSAGE Use .newbie [text] to talk in this channel.

ONBUTTON=11
SRC.NEWITEM=i_sacri_corpse
SRC.ACT.MOREX=&褳1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 9 1 10 1 11 1 12 1 13 1 14 1 15 1}
SRC.ACT.EQUIP
SRC.ACT.USE
SRC.SYSMESSAGE Select what corpse ye wishes to sacrifice to the Gods.
SRC.SYSMESSAGE You may also use the .sac command instead.

ONBUTTON=12
SRC.NEWITEM=i_con_mon
SRC.ACT.EQUIP
SRC.ACT.USE
SRC.SYSMESSAGE What monster shalt I consider attacking?
SRC.SYSMESSAGE Use .con as an alternate if you wish.
//**********************************************************
//**                     EVENTS                           **
//**********************************************************

[EVENTS e_tier1]
ON=@CLICK
IF (<SRC.BODY>=c_man)
MESSAGE [Tier <EVAL <TAG.TIER>>, Level <EVAL <TAG.TITLED>>]
RETURN 0
IF (<FLAGS>&statf_criminal)
RETURN 0
ELSEIF (<KILLS>>=4)
RETURN 0
ELSE
TAG.SPEECHCOLOR <SPEECHCOLOR>
SPEECHCOLOR 00bd
SPEAK <NAME>
SPEECHCOLOR <TAG.SPEECHCOLOR>
RETURN 1
ENDIF
RETURN 0
ENDIF
RETURN 0
IF (<SRC.BODY>=c_woman)
MESSAGE [Tier <EVAL <TAG.TIER>>, Level <EVAL <TAG.TITLED>>]
RETURN 0
IF (<FLAGS>&statf_criminal)
RETURN 0
ELSEIF (<KILLS>>=4)
RETURN 0
ELSE
TAG.SPEECHCOLOR <SPEECHCOLOR>
SPEECHCOLOR 00bd
SPEAK <NAME>
SPEECHCOLOR <TAG.SPEECHCOLOR>
RETURN 1
ENDIF
RETURN 0
ENDIF
RETURN 0

ON=@HIT
IF (<FINDLAYER(2).UID>)
VAR.X=RAND(33)
IF X=0
SYSMESSAGE SHIELD PUNCH!
SRC.HITS=<SRC.HITS> + (-25)
ANIM 14
RETURN 0
ELSE
RETURN 0
ENDIF

ON=@DEATH
SRC.NEWITEM=i_yesnon
SRC.ACT.EQUIP

ON=@GetHit

[ITEMDEF i_yesnon]
DEFNAME=i_yesnon
ID=i_handr_1
NAME=RES YES NO
TYPE=t_EQ_script
LAYER=layer_special

ON=@CREATE
ATTR=attr_decay

ON=@EQUIP
TIMER=5

ON=@TIMER
CONT.MENU m_res_yesno
REMOVE

[TYPEDEF t_res_yesno]
ON=@DCLICK
IF (<SRC.UID>=<LINK>)
MENU m_res_yesno
RETURN 0
ELSE
SRC.SYSMESSAGE This is not your corpse!
RETURN 0

[MENU m_res_yesno]
Do you wish to resurrect? You will loose experience if you do!
ON=0 Yes, I do!
IF (<EVAL <SRC.TAG.EXPERIENCE>><126)
SRC.SYSMESSAGE You do not have enough experience points to do this.
RETURN 0
ELSE
SRC.RESURRECT
SRC.NEWITEM=i_temp_safe
SRC.ACT.ATTR=attr_decay
SRC.ACT.EQUIP
IF (<EVAL <SRC.TAG.TITLED>>>20)
SRC.TAG.EXPERIENCE=<EVAL <SRC.TAG.EXPERIENCE>> + (-1000)
SRC.SYSMESSAGE You have lost alot of experience.
RETURN 0
ELSE
IF (<EVAL <SRC.TAG.TITLED>>>15)
SRC.TAG.EXPERIENCE=<EVAL <SRC.TAG.EXPERIENCE>> + (-500)
SRC.SYSMESSAGE You have quite a bit of experience.
RETURN 0
ELSE
IF (<EVAL <SRC.TAG.TITLED>>>10)
SRC.TAG.EXPERIENCE=<EVAL <SRC.TAG.EXPERIENCE>> + (-250)
SRC.SYSMESSAGE You have lost a bit of experience.
RETURN 0
ELSE
SRC.TAG.EXPERIENCE=<EVAL <SRC.TAG.EXPERIENCE>> + (-125)
SRC.SYSMESSAGE You have lost some experience.
RETURN 0
ON=0 No, I do not!
SRC.SYSMESSAGE You have chosen not to resurrect.
RETURN 0

[ITEMDEF i_temp_safe]
DEFNAME=i_temp_safe
ID=i_handr_1
NAME=TEMP SAFE
LAYER=layer_special
TYPE=t_EQ_script

ON=@CREATE
ATTR=ATTR_DECAY

ON=@EQUIP
CONT.INVUL
CONT.SYSMESSAGE You are safe for 15 seconds.
TIMER=15

ON=@TIMER
CONT.SYSMESSAGE You feel as if you are no longer safe.
CONT.INVUL
REMOVE

[EVENTS e_exp1]
ON=@DEATH
SRC.NEWITEM=i_expgainlow
SRC.ACT.MOREX=&褳1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 9 1 10 1 11 1 12 1 13 1 14 1 15 1}
SRC.ACT.MOREY=1
SRC.ACT.ATTR=0002
IF (<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>)
SRC.ACT.CONT=<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>
RETURN 0
ELSE
IF (<SRC.MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>)
SRC.ACT.CONT=<MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>
RETURN 0
ELSE
RETURN 0

[ITEMDEF i_expgainlow]
DEFNAME=i_expgainlow
NAME=EXP GAIN
ID=i_handr_1
WEIGHT=0
LAYER=30
TYPE=T_EQ_SCRIPT

ON=@CREATE
TIMER=1

ON=@TIMER
IF !(<CONT.ACCOUNT.PLEVEL>)
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.NOEXPE>>=1)
CONT.SYSMESSAGE Your cannot gain experience. [NOEXP] option is on.
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=5)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You have gained <MOREX> experience.
CONT.SYSMESSAGE Use the .level feature to access the leveling panel.
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You recieved DOUBLE the experience!
RETURN 0
ENDIF
VAR.X=RAND(50)
IF X=0
CONT.MESSAGE YOU HAVE FOUND A BONUS TRIVIA POINT!
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE <CONT.NAME> has found a bonus trivia point.
RETURN 0
ENDIF
REMOVE
ELSE
CONT.SYSMESSAGE You cannot gain anymore experience from that creature.
REMOVE

//////////////////////////////////////////////////////////////////////

[ITEMDEF i_expg]
DEFNAME=i_expg
NAME=EXP GAIN
ID=i_handr_1
WEIGHT=0
LAYER=30
TYPE=T_EQ_SCRIPT

ON=@CREATE
ATTR=02

ON=@DCLICK
DIALOG d_leveling_system
CHECKSTATS
REMOVE

[EVENTS e_exp2]
ON=@DEATH
SRC.NEWITEM=i_expgainmiddle
SRC.ACT.MOREX=&褳1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 9 1 10 1 11 1 12 1 13 1 14 1 15 1}
SRC.ACT.MOREY=1
SRC.ACT.ATTR=0002
IF (<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>)
SRC.ACT.CONT=<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>
RETURN 0
ELSE
IF (<SRC.MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>)
SRC.ACT.CONT=<MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>
RETURN 0
ELSE
RETURN 0

[ITEMDEF i_expgainmiddle]
DEFNAME=i_expgainmiddle
NAME=EXP GAIN
ID=i_handr_1
WEIGHT=0
LAYER=30
TYPE=T_EQ_SCRIPT

ON=@CREATE
TIMER=1

ON=@TIMER
IF !(<CONT.ACCOUNT.PLEVEL>)
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.NOEXPE>>=1)
CONT.SYSMESSAGE Your cannot gain experience. [NOEXP] option is on.
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=10)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You have gained <MOREX> experience.
CONT.SYSMESSAGE Use the .level feature to access the leveling panel.
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You recieved DOUBLE the experience!
RETURN 0
ENDIF
VAR.X=RAND(50)
IF X=0
CONT.MESSAGE YOU HAVE FOUND A BONUS TRIVIA POINT!
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE <CONT.NAME> has found a bonus trivia point.
RETURN 0
ENDIF
REMOVE
ELSE
CONT.SYSMESSAGE You cannot gain anymore experience from that creature.
REMOVE

//////////////////////////////////////////////////////////////////////

[EVENTS e_exp3]
ON=@DEATH
SRC.NEWITEM=i_expgainhigh
SRC.ACT.MOREX=&褳10 1 11 1 12 1 13 1 14 1 15 1 16 1 17 1 18 1 19 1 20 1 21 1 22 1 23 1 24 1 25 1 26 1 27 1 28 1 29 1 30 1 31 1 32 1 33 1 34 1 35 1 36 1 37 1 38 1 39 1 40 1 41 1 42 1 43 1 44 1 45 1 46 1 47 1 48 1 49 1 50 1}
SRC.ACT.MOREY=1
SRC.ACT.ATTR=0002
IF (<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>)
SRC.ACT.CONT=<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>
RETURN 0
ELSE
IF (<SRC.MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>)
SRC.ACT.CONT=<MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>
RETURN 0
ELSE
RETURN 0

[ITEMDEF i_expgainhigh]
DEFNAME=i_expgainhigh
NAME=EXP GAIN
ID=i_handr_1
WEIGHT=0
LAYER=30
TYPE=T_EQ_SCRIPT

ON=@CREATE
TIMER=1

ON=@TIMER
IF !(<CONT.ACCOUNT.PLEVEL>)
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.NOEXPE>>=1)
CONT.SYSMESSAGE Your cannot gain experience. [NOEXP] option is on.
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=3)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You have gained <MOREX> experience.
CONT.SYSMESSAGE Use the .level feature to access the leveling panel.
CONT.SYSMESSAGE Due to your low level, you have recieved an additional experience bonus.
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You recieved DOUBLE the experience!
RETURN 0
ENDIF
VAR.X=RAND(25)
IF X=0
CONT.MESSAGE YOU HAVE FOUND A BONUS TRIVIA POINT!
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE <CONT.NAME> has found a bonus trivia point.
RETURN 0
ENDIF
REMOVE
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=15)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You have gained <MOREX> experience.
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You recieved DOUBLE the experience!
RETURN 0
ENDIF
VAR.X=RAND(50)
IF X=0
CONT.MESSAGE YOU HAVE FOUND A BONUS TRIVIA POINT!
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE <CONT.NAME> has found a bonus trivia point.
RETURN 0
ENDIF
REMOVE
ELSE
CONT.SYSMESSAGE You cannot gain anymore experience from that creature.
REMOVE

//////////////////////////////////////////////////////////////////////

[EVENTS e_exp4]
ON=@DEATH
SRC.NEWITEM=i_expgainveryhigh
SRC.ACT.MOREX=&褳20 1 21 1 22 1 23 1 24 1 25 1 26 1 27 1 28 1 29 1 30 1 31 1 32 1 33 1 34 1 35 1 36 1 37 1 38 1 39 1 40 1 41 1 42 1 43 1 44 1 45 1 46 1 47 1 48 1 49 1 50 1 51 1 52 1 53 1 54 1 55 1 56 1 57 1 58 1 59 1 60 1}
SRC.ACT.MOREY=1
SRC.ACT.ATTR=0002
IF (<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>)
SRC.ACT.CONT=<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>
RETURN 0
ELSE
IF (<SRC.MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>)
SRC.ACT.CONT=<MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>
RETURN 0
ELSE
RETURN 0

[ITEMDEF i_expgainveryhigh]
DEFNAME=i_expgainveryhigh
NAME=EXP GAIN
ID=i_handr_1
WEIGHT=0
LAYER=30
TYPE=T_EQ_SCRIPT

ON=@CREATE
TIMER=1

ON=@TIMER
IF !(<CONT.ACCOUNT.PLEVEL>)
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.NOEXPE>>=1)
CONT.SYSMESSAGE Your cannot gain experience. [NOEXP] option is on.
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=3)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You have gained <MOREX> experience.
CONT.SYSMESSAGE Due to your low level, you have recieved an additional experience bonus.
CONT.SYSMESSAGE Use the .level feature to access the leveling panel.
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You recieved DOUBLE the experience!
RETURN 0
ENDIF
VAR.X=RAND(12)
IF X=0
CONT.MESSAGE YOU HAVE FOUND A BONUS TRIVIA POINT!
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE <CONT.NAME> has found a bonus trivia point.
RETURN 0
ENDIF
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=8)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You have gained <MOREX> experience.
CONT.SYSMESSAGE Due to your low level, you have recieved an additional experience bonus.
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You recieved DOUBLE the experience!
RETURN 0
ENDIF
VAR.X=RAND(25)
IF X=0
CONT.MESSAGE YOU HAVE FOUND A BONUS TRIVIA POINT!
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE <CONT.NAME> has found a bonus trivia point.
RETURN 0
ENDIF
REMOVE
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=20)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>

CONT.SYSMESSAGE You have gained <MOREX> experience.
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You recieved DOUBLE the experience!
RETURN 0
ENDIF
VAR.X=RAND(50)
IF X=0
CONT.MESSAGE YOU HAVE FOUND A BONUS TRIVIA POINT!
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE <CONT.NAME> has found a bonus trivia point.
RETURN 0
ENDIF
REMOVE
ELSE
CONT.SYSMESSAGE You cannot gain anymore experience from that creature.
REMOVE

//////////////////////////////////////////////////////////////////////

[EVENTS e_exp5]
ON=@DEATH
SRC.NEWITEM=i_expgainhighest
SRC.ACT.MOREX=&褳30 1 31 1 32 1 33 1 34 1 35 1 36 1 37 1 38 1 39 1 40 1 41 1 42 1 43 1 44 1 45 1 46 1 47 1 48 1 49 1 50 1 51 1 52 1 53 1 54 1 55 1 56 1 57 1 58 1 59 1 60 1 61 1 62 1 63 1 64 1 65 1 66 1 67 1 68 1 69 1 70 1 71 1 72 1 73 1 74 1 75 1 76 1 77 1 78 1 79 1 80 1 81 1 82 1 83 1 84 1 85 1 86 1 87 1 88 1 89 1 90 1 91 1 92 1 93 1 94 95 1 96 1 97 1 98 1 99 1 100 1 }
SRC.ACT.ATTR=0002
SRC.ACT.MOREY=1
IF (<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>)
SRC.ACT.CONT=<SRC.MEMORYFINDTYPE.MEMORY_HARMEDBY.LINK>
RETURN 0
ELSE
IF (<SRC.MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>)
SRC.ACT.CONT=<MEMORYFINDTYPE.MEMORY_IAGGRESSOR.LINK>
RETURN 0
ELSE
RETURN 0

[ITEMDEF i_expgainhighest]
DEFNAME=i_expgainhighest
NAME=EXP GAIN
ID=i_handr_1
WEIGHT=0
LAYER=30
TYPE=T_EQ_SCRIPT

ON=@CREATE
TIMER=1

ON=@TIMER
IF !(<CONT.ACCOUNT.PLEVEL>)
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.NOEXPE>>=1)
CONT.SYSMESSAGE Your cannot gain experience. [NOEXP] option is on.
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=3)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You have gained <MOREX> experience.
CONT.SYSMESSAGE Due to your low level, you have recieved an additional experience bonus.
CONT.SYSMESSAGE Use the .level feature to access the leveling panel.
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You recieved DOUBLE the experience!
RETURN 0
ENDIF
VAR.X=RAND(6)
IF X=0
CONT.MESSAGE YOU HAVE FOUND A BONUS TRIVIA POINT!
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE <CONT.NAME> has found a bonus trivia point.
RETURN 0
ENDIF
REMOVE
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=8)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You have gained <MOREX> experience.
CONT.SYSMESSAGE Due to your low level, you have recieved an additional experience bonus.
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You recieved DOUBLE the experience!
RETURN 0
ENDIF
VAR.X=RAND(12)
IF X=0
CONT.MESSAGE YOU HAVE FOUND A BONUS TRIVIA POINT!
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE <CONT.NAME> has found a bonus trivia point.
RETURN 0
ENDIF
REMOVE
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=20)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You have gained <MOREX> experience.
CONT.SYSMESSAGE Due to your low level, you have recieved an additional experience bonus.
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You recieved DOUBLE the experience!
RETURN 0
ENDIF
VAR.X=RAND(25)
IF X=0
CONT.MESSAGE YOU HAVE FOUND A BONUS TRIVIA POINT!
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE <CONT.NAME> has found a bonus trivia point.
RETURN 0
ENDIF
REMOVE
ELSE
IF (<EVAL <CONT.TAG.TITLED>><=26)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You have gained <MOREX> experience.
IF (<EVAL <CONT.TAG.DEXP>>=1)
CONT.TAG.EXPERIENCE=<EVAL <CONT.TAG.EXPERIENCE>> + <MOREX>
CONT.SYSMESSAGE You recieved DOUBLE the experience!
RETURN 0
ENDIF
VAR.X=RAND(50)
IF X=0
CONT.MESSAGE YOU HAVE FOUND A BONUS TRIVIA POINT!
CONT.TAG.TRIVIAS=<EVAL <CONT.TAG.TRIVIAS>> + <MOREY>
SERV.ALLCLIENTS SYSMESSAGE <CONT.NAME> has found a bonus trivia point.
RETURN 0
ENDIF
REMOVE
ELSE
CONT.SYSMESSAGE You cannot gain anymore experience from that creature.
REMOVE

//**********************************************************
//**                  FUNCTIONS                           **
//**********************************************************

[FUNCTION checkstats]
IF (<EVAL <TAG.EXPERIENCE>><99)
SOUND 0fe
IF (<EVAL <TAG.TITLED>>=1)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=2)
RETURN 1
ENDIF
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
TAG.TITLED=1
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 1.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>><999)
SOUND 0fe
IF (<EVAL <TAG.TITLED>>=2)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=3)
RETURN 1
ENDIF
TAG.TITLED=2
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 2.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>999999)
SOUND 0fe
IF (<EVAL <TAG.TITLED>>=50)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
TAG.TITLED=25
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 25. CONGRATULATIONS TO <NAME>
SERV.ALLCLIENTS SOUND 045
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>499999)
IF (<EVAL <TAG.TITLED>>=24)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=25)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=24
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 24.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>299999)
IF (<EVAL <TAG.TITLED>>=23)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=24)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=23
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 23.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>199999)
IF (<EVAL <TAG.TITLED>>=22)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=23)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=22
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 22.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>149999)
IF (<EVAL <TAG.TITLED>>=21)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=22)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=21
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 21.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>99999)
IF (<EVAL <TAG.TITLED>>=20)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=21)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=20
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 20.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>89999)
IF (<EVAL <TAG.TITLED>>=19)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=20)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=19
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 19.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>79999)
IF (<EVAL <TAG.TITLED>>=18)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=19)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=18
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 18.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>69999)
IF (<EVAL <TAG.TITLED>>=17)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=18)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=17
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 17.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>59999)
IF (<EVAL <TAG.TITLED>>=16)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=17)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=16
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 16.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>49999)
IF (<EVAL <TAG.TITLED>>=15)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=16)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=15
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 15.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>39999)
IF (<EVAL <TAG.TITLED>>=14)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=15)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=14
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 14.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>29999)
IF (<EVAL <TAG.TITLED>>=13)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=14)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=13
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 13.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>19999)
IF (<EVAL <TAG.TITLED>>=12)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=13)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=12
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 12.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>14999)
IF (<EVAL <TAG.TITLED>>=11)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=12)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=11
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 11.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>9999)
IF (<EVAL <TAG.TITLED>>=10)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=11)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=10
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 10.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>8999)
IF (<EVAL <TAG.TITLED>>=9)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=10)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=9
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 9.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>7999)
IF (<EVAL <TAG.TITLED>>=8)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=9)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=8
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 8.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>6999)
IF (<EVAL <TAG.TITLED>>=7)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=8)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=7
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 7.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>5999)
IF (<EVAL <TAG.TITLED>>=6)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=7)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=6
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 6.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>4999)
IF (<EVAL <TAG.TITLED>>=5)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=6)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=5
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 5.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>3999)
IF (<EVAL <TAG.TITLED>>=4)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=5)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=4
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 4.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>1999)
IF (<EVAL <TAG.TITLED>>=3)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=4)
RETURN 1
ENDIF
SOUND 0fe
TAG.TITLED=3
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 3.
RETURN 1
ENDIF
IF (<EVAL <SRC.TAG.EXPERIENCE>>>1000)
SOUND 0fe
IF (<EVAL <TAG.TITLED>>=2)
SRC.SYSMESSAGE You are not available for a stat gain or a level gain at this time.
RETURN 1
ENDIF
IF (<EVAL <TAG.TITLED>>=3)
RETURN 1
ENDIF
TAG.TITLED=2
STR=<STR> + &褳5 20}
DEX=<DEX> + &褳3 10}
INT=<INT> + &褳1 5}
SERV.ALLCLIENTS SYSMESSAGE <NAME> has achieved level 2.
RETURN 1
ENDIF

[FUNCTION level]
SRC.EVENTS=e_tier1
IF (<EVAL <SRC.TAG.TITLED>>=1)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=100
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=2)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=2000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=3)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=4000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=4)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=5000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=5)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=6000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=6)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=7000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=7)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=8000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=8)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=9000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=9)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=10000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=10)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=15000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=11)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=20000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=12)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=30000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=13)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=40000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=14)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=50000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=15)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=60000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=16)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=70000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=17)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=80000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=18)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=90000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=19)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=100000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=20)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=150000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=21)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=200000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=22)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=300000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=23)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=500000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=24)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=1000000
DIALOG d_leveling_system
RETURN 0
ELSEIF (<EVAL <SRC.TAG.TITLED>>=25)
IF (<SRC.DEX>>100)
SRC.SYSMESSAGE You are not allowed over 100 dex!
SRC.DEX=100
RETURN 0
ENDIF
SRC.TAG.TNL=REMORT
DIALOG d_leveling_system
RETURN 0
ELSE
DIALOG d_leveling_system

[FUNCTION con]
SRC.NEWITEM=i_con_mon
SRC.ACT.EQUIP
SRC.ACT.USE
SRC.SYSMESSAGE What monster shalt I consider attacking?

[FUNCTION sac]
SRC.NEWITEM=i_sacri_corpse
SRC.ACT.MOREX=&褳1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 9 1 10 1 11 1 12 1 13 1 14 1 15 1}
SRC.ACT.EQUIP
SRC.ACT.USE
SRC.SYSMESSAGE Select what corpse ye wishes to sacrifice to the Gods.

//**********************************************************
//**                      MENUS                           **
//**********************************************************

[MENU m_remort]
You have chosen to remort your character. PLEASE READ OUR WEBPAGE FOR INFORMATION REGARDING HOW THE TIER SYSTEM WORKS. Do you wish to continue?
ON=0 NO WAY!
SRC.SYSMESSAGE You have chosen not to remort your character.
ON=0 YES, I dub myself!
IF !<SRC.RESTEST 5000 i_gold>
SRC.SYSMESSAGE You do not have the required attributes to remort. You must have 5000 gold pieces, 1000 quest points and 10 trivia points.
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.QUESTPOINTS>><1000)
SRC.SYSMESSAGE You do not have the required attributes to remort. You must have 5000 gold pieces, 1000 quest points and 10 trivia points.
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TRIVIAS>><10)
SRC.SYSMESSAGE You do not have the required attributes to remort. You must have 5000 gold pieces, 1000 quest points and 10 trivia points.
RETURN 1
ELSE
SRC.SYSMESSAGE Your character is being remorted...
SRC.STR=50
SRC.DEX=50
SRC.INT=50
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-1000)
SRC.TAG.TRIVIAS=<EVAL <SRC.TAG.TRIVIAS>> + (-10)
SRC.TAG.TITLED=01
SRC.TAG.EXPERIENCE=0
SRC.TAG.TITLE=Newbie
SRC.CONSUME=5000 i_gold
SERV.ALLCLIENTS SYSMESSAGE <NAME> has been reborn.
IF (<EVAL <SRC.TAG.TIER>>=8)
SRC.SYSMESSAGE You cannot remort any longer.
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TIER>>=7)
SKILLCLASS Class_Tier8
SRC.TAG.TIER=<EVAL <SRC.TAG.TIER>>+1
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TIER>>=6)
SKILLCLASS Class_Tier7
SRC.TAG.TIER=<EVAL <SRC.TAG.TIER>>+1
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TIER>>=5)
SKILLCLASS Class_Tier6
SRC.TAG.TIER=<EVAL <SRC.TAG.TIER>>+1
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TIER>>=4)
SKILLCLASS Class_Tier5
SRC.TAG.TIER=<EVAL <SRC.TAG.TIER>>+1
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TIER>>=3)
SKILLCLASS Class_Tier4
SRC.TAG.TIER=<EVAL <SRC.TAG.TIER>>+1
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TIER>>=2)
SKILLCLASS Class_Tier3
SRC.TAG.TIER=<EVAL <SRC.TAG.TIER>>+1
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TIER>>=1)
SKILLCLASS Class_Tier2
SRC.TAG.TIER=<EVAL <SRC.TAG.TIER>>+1
RETURN 1
ELSE
SKILLCLASS Class_Tier1
SRC.TAG.TIER=<EVAL <SRC.TAG.TIER>>+1
RETURN 1
ON=0 View Webpage On How Tiering Works.
SRC.WEBLINK=http:&จ&จuolegends.ath.cx&จtier.html

[MENU m_trivia]
Select Which Item You Would Like To Exchange!
ON=0 Intelligence + 10 [1 tp]
IF (<EVAL <SRC.TAG.TRIVIAS>><1)
SRC.SYSMESSAGE You do not have the required TPs to earn this.
RETURN 0
ELSE
SRC.INT=<SRC.INT> + 10
SRC.TAG.TRIVIAS=<EVAL <SRC.TAG.TRIVIAS>> + (-1)
RETURN 0
ON=0 Strength + 10 [1 tp]
IF (<EVAL <SRC.TAG.TRIVIAS>><1)
SRC.SYSMESSAGE You do not have the required TPs to earn this.
RETURN 0
ELSE
SRC.STR=<SRC.STR> + 10
SRC.TAG.TRIVIAS=<EVAL <SRC.TAG.TRIVIAS>> + (-1)
RETURN 0
ON=0 Dexterity + 10 [1 tp]
IF (<EVAL <SRC.TAG.TRIVIAS>><1)
SRC.SYSMESSAGE You do not have the required TPs to earn this.
RETURN 0
ELSE
SRC.DEX=<SRC.DEX> + 10
SRC.TAG.TRIVIAS=<EVAL <SRC.TAG.TRIVIAS>> + (-1)
RETURN 0
ON=0 Exchange 1 TP for 10 quest points.
IF (<EVAL <SRC.TAG.TRIVIAS>><1)
SRC.SYSMESSAGE You do not have the required TPs to earn this.
RETURN 0
ELSE
SRC.TAG.TRIVIAS=<EVAL <SRC.TAG.TRIVIAS>> + (-1)
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>>+10
ON=0 1 Hour of Double Experience [5 tps]
IF (<EVAL <SRC.TAG.DEXP>>=1)
SRC.SYSMESSAGE You are already on double experience!
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TRIVIAS>><5)
SRC.SYSMESSAGE You do not have the required TPs to earn this.
RETURN 0
ELSE
SRC.SYSMESSAGE You will now gain double the experience for an hour. Enjoy.
SRC.NEWITEM=i_dbl_exp
SRC.ACT.EQUIP
SRC.TAG.DEXP 1
SRC.TAG.TRIVIAS=<SRC.TAG.TRIVIAS> + (-5)

[MENU m_questitems]
Select your item!
ON=0 Aardwolf Sleeves of Regeneration [1800 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><1800)
SRC.SYSMESSAGE You do not have the required QPs to earn this.
RETURN 0
ELSE
SRC.NEWITEM=i_aardwolf_sleeves
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-1800)
RETURN 0
ON=0 Aardwolf Gloves of Strength [2200 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><2200)
SRC.SYSMESSAGE You do not have the required QPs to earn this.
RETURN 0
ELSE
SRC.NEWITEM=i_aardwolf_gloves
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-2200)
RETURN 0
ON=0 Aardwolf Gorget of Intelligence [1500 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><1500)
SRC.SYSMESSAGE You do not have the required QPs to earn this.
RETURN 0
ELSE
SRC.NEWITEM=i_aardwolf_gorget
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-1500)
RETURN 0
ON=0 Aardwolf Leggings of Agility [2500 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><2500)
SRC.SYSMESSAGE You do not have the required QPs to earn this.
RETURN 0
ELSE
SRC.NEWITEM=i_aardwolf_leggings
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-2500)
RETURN 0
ON=0 Aardwolf Tunic of Magic Resistance [3000 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><3000)
SRC.SYSMESSAGE You do not have the required QPs to earn this.
RETURN 0
ELSE
SRC.NEWITEM=i_aardwolf_tunic
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-3000)
RETURN 0
ON=0 Aardwolf Cap of True Sight [1200 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><1200)
SRC.SYSMESSAGE You do not have the required QPs to earn this.
RETURN 0
ELSE
SRC.NEWITEM=i_aardwolf_cap
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-1200)
RETURN 0
ON=0 Aardwolf Shield of Power [3600 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><3600)
SRC.SYSMESSAGE You do not have the required QPs to earn this.
RETURN 0
ELSE
SRC.NEWITEM=i_aardwolf_shield
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-3600)
RETURN 0
ON=0 Ring of Intellect Regeneration [1900 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><1900)
SRC.SYSMESSAGE You do not have the required QPs to earn this.
RETURN 0
ELSE
SRC.NEWITEM=i_aardwolf_ring
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-1900)
RETURN 0
ON=0 Potion of Virtue [500 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><500)
SRC.SYSMESSAGE You do not have the required QPs to earn this.
RETURN 0
ELSE
SRC.NEWITEM=i_potion_virtue
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-500)
RETURN 0
ON=0 Cloak of Reflection [900 qps]
IF (<EVAL <SRC.TAG.QUESTPOINTS>><900)
SRC.SYSMESSAGE You do not have the required QPs to earn this.
RETURN 0
ELSE
SRC.NEWITEM=i_cloak_reflection
SRC.ACT.LINK=<SRC.UID>
SRC.ACT.ATTR=04
SRC.ACT.BOUNCE
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + (-900)
RETURN 0
ON=0 Spiritual Stallion [5000 qps]
SRC.SYSMESSAGE Comming Soon!

//**********************************************************
//**                      ITEMS                           **
//**********************************************************

[ITEMDEF i_cloak_reflection]
DEFNAME=i_cloak_reflection
ID=i_cape
NAME=Cloak of Reflection
WEIGHT=8

ON=@CREATE
COLOR=0481
HITPOINTS=&褳5000 10000}

ON=@EQUIP
IF (<SRC.UID>=<LINK>)
TIMER=600
CONT.SYSMESSAGE You feel reflective towards magic.
CONT.SPELLEFFECT s_magic_reflection,1000
RETURN 0
ELSE
SRC.SYSMESSAGE These are NOT yours! They do not belong to you!
CONT.GO JAIL
SRC.MESSAGE Please page a GM for help. You have been jailed for having someone else&裟s armor.

ON=@TIMER
CONT.SPELLEFFECT s_magic_reflection,1000
CONT.SYSMESSAGE You feel reflective towards magic.
TIMER 600

ON=@UNEQUIP
TIMER -1
CONT.SYSMESSAGE You no longer feel reflective towards magic.
CONT.FINDID.i_rune_magic_reflection.REMOVE
RETURN 0

[ITEMDEF i_con_mon]
DEFNAME=i_con_mon
ID=i_handr_1
NAME=Con Monster Timer
TYPE=t_EQ_script
LAYER=30

ON=@CREATE
ATTR=attr_decay

ON=@DCLICK
TARGET
RETURN 1

ON=@EQUIP
TIMER=10

ON=@TARGON_ITEM
CONT.SYSMESSAGE You cannot consider that!
RETURN 1

ON=@TARGON_CHAR
IF (<SRC.TARG.BODY>=c_man)
CONT.SYSMESSAGE You cannot consider humans.
RETURN 1
ELSE
IF (<SRC.TARG.BODY>=c_woman)
CONT.SYSMESSAGE You cannot consider humans.
RETURN 1
ELSE
IF (<SRC.TARG.STR>>1500)
CONT.SYSMESSAGE That monster would walk all over you!
RETURN 1
ELSE
IF (<SRC.TARG.STR>>1000)
CONT.SYSMESSAGE That monster would be a challenge!
RETURN 1
ELSE
IF (<SRC.TARG.STR>>500)
CONT.SYSMESSAGE That monster is very powerful!
RETURN 1
ELSE
IF (<SRC.TARG.STR>>250)
CONT.SYSMESSAGE That monster would be a definate fight!
RETURN 1
ELSE
IF (<SRC.TARG.STR>>100)
CONT.SYSMESSAGE That monster is not so tough!
RETURN 1
ELSE
CONT.SYSMESSAGE That monster looks fairly weak!
RETURN 1

ON=@TIMER
REMOVE

[ITEMDEF i_sacri_corpse]
DEFNAME=i_sacri_corpse
ID=i_handr_1
NAME=Sacrificial Corpse Timer
TYPE=t_EQ_script
LAYER=30

ON=@CREATE
ATTR=attr_decay

ON=@DCLICK
TARGET
RETURN 1

ON=@EQUIP
TIMER=10

ON=@TARGON_ITEM
IF !(<SRC.TARG.LINK>=04fffffff)
CONT.SYSMESSAGE You cannot sacrifice a human corpse.
RETURN 1
ELSE
IF !(<SRC.TARG.BASEID>=i_corpse)
CONT.SYSMESSAGE That is not a corpse, thine Gods are angered.
RETURN 1
ELSE
SRC.TARG.REMOVE
CONT.SYSMESSAGE Thine Gods are happy for the sacrifice, you are being rewarded.
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=&褳1 10}
SRC.ACT.CONT=<CONT.UID>
VAR.X=RAND(35)
IF X=0
CONT.SYSMESSAGE That was a virtued corpse, you are being rewarded quest points.
CONT.TAG.QUESTPOINTS=<EVAL <CONT.TAG.QUESTPOINTS>> + <MOREX>
CONT.SOUND 0102
REMOVE
RETURN 1
ELSE
REMOVE
RETURN 1

ON=@TIMER
REMOVE
RETURN 1

[ITEMDEF i_qrequest]
DEFNAME=i_qrequest
ID=i_gravestone
NAME=Quest Request [double click]
WEIGHT=5000
TYPE=t_script

ON=@CREATE
COLOR=079d

ON=@DCLICK
IF (<SRC.ACCOUNT.PLEVEL>>=2)
SRC.GOUID <TAG.UID>
SRC.SAY HAIL! I am <SRC.NAME>! Your quest will begin.
RETURN 1
ELSE
IF <EVAL <TAG.QR>>=1>
SRC.SYSMESSAGE A character is currently being quested, please try again shortly.
SRC.GO <SRC.TAG.LASTPOS>
RETURN 1
ELSE
SRC.SYSMESSAGE You have been queued to begin a quest, if a seer is online, your quest will begin shortly.
TAG.QR=1
TAG.UID=<SRC.UID>
SRC.GO <SRC.TAG.LASTPOS>
RETURN 1

[ITEMDEF i_dbl_exp]
DEFNAME=i_dbl_exp
ID=i_handr_1
NAME=DBL EXP
TYPE=t_EQ_script
WEIGHT=0
LAYER=layer_special

ON=@CREATE
TIMER=3600

ON=@TIMER
CONT.SYSMESSAGE Your double experience time is over.
CONT.TAG.DEXP 0
REMOVE

[ITEMDEF i_potion_virtue]
DEFNAME=i_potion_virtue
NAME=Potion of Virtue
ID=i_bottle_empty
WEIGHT=1
TYPE=t_script

ON=@CREATE
COLOR=079e

ON=@DCLICK
IF (<SRC.FINDID.i_pot_wait>)
SRC.SYSMESSAGE You can only use this once an hour.
RETURN 1
ELSEIF (<SRC.UID>=<LINK>)
SRC.HITS=<SRC.STR>
SRC.STAM=<SRC.DEX>
SRC.MANA=<SRC.INT>
SRC.SYSMESSAGE You have been fully refreshed!
SRC.NEWITEM=i_pot_wait
SRC.ACT.ATTR=04
SRC.ACT.EQUIP
RETURN 1
ELSE
SRC.SYSMESSAGE This are NOT yours! It does not belong to you!
CONT.GO JAIL
SRC.MESSAGE Please page a GM for help. You have been jailed for having someone else&裟s armor.

[ITEMDEF i_pot_wait]
DEFNAME=i_pot_wait
NAME=POT WAIT
ID=i_handr_1
WEIGHT=0
LAYER=30
TYPE=T_EQ_SCRIPT

ON=@CREATE
TIMER=3600

ON=@TIMER
CONT.SYSMESSAGE You may now once again use your Potion of Virtue.
REMOVE
RETURN 0

[ITEMDEF i_aardwolf_sleeves]
DEFNAME=i_aardwolf_sleeves
Name=Aardwolf Sleeves of Regeneration
ID=i_platemail_arms
TYPE=t_armor_leather
WEIGHT=6
FLIP=1
ARMOR=55
REQSTR=65

CATEGORY=ITEMTYPES
SUBSECTION=Aardwolf Armor
DESCRIPTION=Aardwolf Sleeves

ON=@Create
HITPOINTS=&褳5000 10000}
COLOR=079c

ON=@EQUIP
IF (<SRC.UID>=<LINK>)
TIMER=1
CONT.SYSMESSAGE You begin regenerating.
RETURN 0
ELSE
SRC.SYSMESSAGE These are NOT yours! They do not belong to you!
CONT.GO JAIL
SRC.MESSAGE Please page a GM for help. You have been jailed for having someone else&裟s armor.

ON=@TIMER
IF (<CONT.HITS>>=<CONT.STR>)
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=0)
CONT.HITS=<CONT.HITS>+1
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=1)
CONT.HITS=<CONT.HITS>+2
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=2)
CONT.HITS=<CONT.HITS>+3
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=3)
CONT.HITS=<CONT.HITS>+4
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=4)
CONT.HITS=<CONT.HITS>+5
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=5)
CONT.HITS=<CONT.HITS>+6
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=6)
CONT.HITS=<CONT.HITS>+7
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=7)
CONT.HITS=<CONT.HITS>+8
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=8)
CONT.HITS=<CONT.HITS>+10
TIMER 1
RETURN 1
ENDIF

ON=@UNEQUIP
TIMER -1
CONT.SYSMESSAGE You are no longer regenerating.
RETURN 0

[ITEMDEF i_aardwolf_gloves]
DEFNAME=i_aardwolf_gloves
Name=Aardwolf Gloves of Strength
ID=i_platemail_gloves
TYPE=t_armor_leather
WEIGHT=6
FLIP=1
ARMOR=55
REQSTR=65

CATEGORY=ITEMTYPES
SUBSECTION=Aardwolf Armor
DESCRIPTION=Aardwolf Gloves

ON=@Create
HITPOINTS=&褳5000 10000}
COLOR=079c

ON=@EQUIP
IF (<SRC.UID>=<LINK>)
SRC.STR=<SRC.STR> + 100
RETURN 0
ELSE
SRC.SYSMESSAGE These are NOT yours! They do not belong to you!
CONT.GO JAIL
SRC.MESSAGE Please page a GM for help. You have been jailed for having someone else&裟s armor.

ON=@UNEQUIP
SRC.STR=<SRC.STR> + (-100)
RETURN 0

[ITEMDEF i_aardwolf_shield]
DEFNAME=i_aardwolf_shield
Name=Aardwolf Shield of Power
ID=i_shield_heater
TYPE=t_armor_leather
WEIGHT=6
FLIP=1
ARMOR=55
REQSTR=65

CATEGORY=ITEMTYPES
SUBSECTION=Aardwolf Armor
DESCRIPTION=Aardwolf Shield

ON=@CREATE
HITPOINTS=&褳5000 10000}
COLOR=079c

ON=@EQUIP
IF (<SRC.UID>=<LINK>)
CONT.SYSMESSAGE You feel more powerful!
CONT.SPELLEFFECT s_protection,1000
CONT.FINDID.i_rune_protection.TIMER 99999999
RETURN 0
ELSE
SRC.SYSMESSAGE These are NOT yours! It does not belong to you!
CONT.GO JAIL
SRC.MESSAGE Please page a GM for help. You have been jailed for having someone else&裟s armor.

ON=@UNEQUIP
CONT.SYSMESSAGE You feel weaker!
CONT.FINDID.i_rune_protection.REMOVE

[ITEMDEF i_aardwolf_gorget]
DEFNAME=i_aardwolf_gorget
Name=Aardwolf Gorget of Intelligence
ID=i_platemail_gorget
TYPE=t_armor_leather
WEIGHT=6
FLIP=1
ARMOR=55
REQSTR=65

CATEGORY=ITEMTYPES
SUBSECTION=Aardwolf Armor
DESCRIPTION=Aardwolf Gorget

ON=@Create
HITPOINTS=&褳5000 10000}
COLOR=079c

ON=@EQUIP
IF (<SRC.UID>=<LINK>)
SRC.INT=<SRC.INT> + 100
RETURN 0
ELSE
SRC.SYSMESSAGE These are NOT yours! They do not belong to you!
CONT.GO JAIL
SRC.MESSAGE Please page a GM for help. You have been jailed for having someone else&裟s armor.

ON=@UNEQUIP
SRC.INT=<SRC.INT> + (-100)
RETURN 0

[ITEMDEF i_aardwolf_leggings]
DEFNAME=i_aardwolf_leggings
Name=Aardwolf Leggings of Agility
ID=i_platemail_leggings
TYPE=t_armor_leather
WEIGHT=6
FLIP=1
ARMOR=55
REQSTR=65

CATEGORY=ITEMTYPES
SUBSECTION=Aardwolf Armor
DESCRIPTION=Aardwolf Leggings

ON=@Create
HITPOINTS=&褳5000 10000}
COLOR=079c

ON=@EQUIP
IF (<SRC.UID>=<LINK>)
TIMER=1
CONT.SYSMESSAGE You begin to feel super dexterous.
RETURN 0
ELSE
SRC.SYSMESSAGE These are NOT yours! They do not belong to you!
CONT.GO JAIL
SRC.MESSAGE Please page a GM for help. You have been jailed for having someone else&裟s armor.

ON=@TIMER
IF (<CONT.STAM>>=<CONT.STR>)
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=0)
CONT.STAM=<CONT.STAM>+1
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=1)
CONT.STAM=<CONT.STAM>+2
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=2)
CONT.STAM=<CONT.STAM>+3
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=3)
CONT.STAM=<CONT.STAM>+4
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=4)
CONT.STAM=<CONT.STAM>+5
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=5)
CONT.STAM=<CONT.STAM>+6
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=6)
CONT.STAM=<CONT.STAM>+7
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=7)
CONT.STAM=<CONT.STAM>+8
TIMER 1
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=8)
CONT.STAM=<CONT.STAM>+10
TIMER 1
RETURN 1
ENDIF

ON=@UNEQUIP
TIMER -1
CONT.SYSMESSAGE You are no longer dexterous.
RETURN 0

[ITEMDEF i_aardwolf_tunic]
DEFNAME=i_aardwolf_tunic
Name=Aardwolf Tunic of Magic Resistance
ID=i_platemail_chest
TYPE=t_armor_leather
WEIGHT=6
FLIP=1
ARMOR=55
REQSTR=65

CATEGORY=ITEMTYPES
SUBSECTION=Aardwolf Armor
DESCRIPTION=Aardwolf Tunic

ON=@Create
HITPOINTS=&褳5000 10000}
COLOR=079c

ON=@EQUIP
IF (<SRC.UID>=<LINK>)
SRC.MAGICRESISTANCE=<SRC.MAGICRESISTANCE> + 150
SRC.SYSMESSAGE You feel more resistant to the aura&񗝉s of magik.
RETURN 0
ELSE
SRC.SYSMESSAGE These are NOT yours! They do not belong to you!
CONT.GO JAIL
SRC.MESSAGE Please page a GM for help. You have been jailed for having someone else&裟s armor.

ON=@UNEQUIP
SRC.MAGICRESISTANCE=<SRC.MAGICRESISTANCE> + (-150)
You lose your feeling of the sanctuary aura.
RETURN 0

[ITEMDEF i_aardwolf_cap]
DEFNAME=i_aardwolf_cap
Name=Aardwolf Cap of True Sight
ID=i_platemail_helm
TYPE=t_armor_leather
WEIGHT=6
FLIP=1
ARMOR=55
REQSTR=65

CATEGORY=ITEMTYPES
SUBSECTION=Aardwolf Armor
DESCRIPTION=Aardwolf Cap

ON=@Create
HITPOINTS=&褳5000 10000}
COLOR=079c

ON=@EQUIP
IF (<SRC.UID>=<LINK>)
IF (<SRC.NIGHTSIGHT>=1)
RETURN 0
ELSE
SRC.NIGHTSIGHT
RETURN 0
ELSE
SRC.SYSMESSAGE These are NOT yours! They do not belong to you!
CONT.GO JAIL
SRC.MESSAGE Please page a GM for help. You have been jailed for having someone else&裟s armor.

ON=@UNEQUIP
IF (<SRC.NIGHTSIGHT>=1)
SRC.NIGHTSIGHT
RETURN 0
ELSE
RETURN 0

[ITEMDEF i_aardwolf_ring]
DEFNAME=i_aardwolf_ring
Name=Aardwolf Ring of Intellect Regeneration
ID=i_ring_silver
WEIGHT=6
FLIP=1
REQSTR=65

ON=@CREATE
COLOR=0480
HITPOINTS=&褳4000 6000}

ON=@EQUIP
IF (<SRC.UID>=<LINK>)
TIMER=2
CONT.SYSMESSAGE You feel a cool breeze surround you.
RETURN 0
ELSE
SRC.SYSMESSAGE This is NOT yours! It does not belong to you!
CONT.GO JAIL
SRC.MESSAGE Please page a GM for help. You have been jailed for having someone else&裟s armor.

ON=@TIMER
IF (<CONT.MANA>>=<CONT.STR>)
TIMER 2
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=0)
CONT.MANA=<CONT.MANA>+1
TIMER 2
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=1)
CONT.MANA=<CONT.MANA>+2
TIMER 2
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=2)
CONT.MANA=<CONT.MANA>+3
TIMER 2
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=3)
CONT.MANA=<CONT.MANA>+4
TIMER 2
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=4)
CONT.MANA=<CONT.MANA>+5
TIMER 2
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=5)
CONT.MANA=<CONT.MANA>+6
TIMER 2
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=6)
CONT.MANA=<CONT.MANA>+7
TIMER 2
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=7)
CONT.MANA=<CONT.MANA>+8
TIMER 2
RETURN 1
ELSE
IF (<EVAL <CONT.TAG.TIER>>=8)
CONT.MANA=<CONT.MANA>+10
TIMER 2
RETURN 1
ENDIF

ON=@UNEQUIP
TIMER -1
CONT.SYSMESSAGE The cool breeze slips away.
RETURN 0

[ITEMDEF i_qpoints] //15 min
DEFNAME=i_qpoints
NAME=Red Hide Quest
ID=i_handr_1
TYPE=t_EQ_script
WEIGHT=0
LAYER=LAYER_SPECIAL

ON=@CREATE
TIMER=3

ON=@TIMER
CONT.SYSMESSAGE You have earned <MOREX> quest points.
CONT.TAG.QUESTPOINTS=<EVAL <CONT.TAG.QUESTPOINTS>> + <MOREX>
REMOVE

[ITEMDEF i_qtower]
DEFNAME=i_qtower
ID=i_gravestone
WEIGHT=5000
NAME=Quest Tower [double click]
TYPE=t_script

ON=@CREATE
COLOR=078d

ON=@DCLICK
MOREX=&褳1 35}
SRC.TAG.QUESTPOINTS=<EVAL <SRC.TAG.QUESTPOINTS>> + <MOREX>
SRC.GO BRITAIN
SRC.SYSMESSAGE You have earned <MOREX> quest points!
RETURN 1

//**********************************************************
//**                   SKILLCLASSES                       **
//**********************************************************

[SKILLCLASS Class_Tier1]
// undeclared class.
// max skills for players of this skill class.
// might want this to be all 50.0 to make people declare a class?
DEFNAME=Class_Tier1
NAME=Tier 1
//EVENTS=e_tier1
STATSUM=3300
SKILLSUM=800.0
STR=1600
INT=1600
DEX=100
Anatomy=100.0
ItemID=100.0
ArmsLore=100.0
Parrying=100.0
Begging=100.0
Blacksmithing=100.0
Bowcraft=100.0
Peacemaking=100.0
Camping=100.0
Carpentry=100.0
Cartography=100.0
Cooking=100.0
DetectingHidden=100.0
Enticement=100.0
EvaluatingIntel=100.0
Healing=100.0
Fishing=100.0
Forensics=100.0
Herding=100.0
Hiding=100.0
Provocation=100.0
Inscription=100.0
LockPicking=100.0
Magery=100.0
MagicResistance=100.0
Tactics=100.0
Snooping=100.0
Musicianship=100.0
Poisoning=100.0
Archery=100.0
SpiritSpeak=100.0
Stealing=100.0
Tailoring=100.0
Taming=100.0
TasteID=100.0
Tinkering=100.0
Tracking=100.0
Veterinary=100.0
Swordsmanship=100.0
Macefighting=100.0
Fencing=100.0
Wrestling=100.0
Lumberjacking=100.0
Mining=100.0
Meditation=100.0
Stealth=100.0
RemoveTrap=100.0
Necromancy=100.0

[SKILLCLASS Class_Tier2]
// undeclared class.
// max skills for players of this skill class.
// might want this to be all 50.0 to make people declare a class?
DEFNAME=Class_Tier2
NAME=Tier 2
//EVENTS=e_tier1
STATSUM=3500
SKILLSUM=900.0
STR=1700
INT=1700
DEX=100
Anatomy=100.0
ItemID=100.0
ArmsLore=100.0
Parrying=100.0
Begging=100.0
Blacksmithing=100.0
Bowcraft=100.0
Peacemaking=100.0
Camping=100.0
Carpentry=100.0
Cartography=100.0
Cooking=100.0
DetectingHidden=100.0
Enticement=100.0
EvaluatingIntel=100.0
Healing=100.0
Fishing=100.0
Forensics=100.0
Herding=100.0
Hiding=100.0
Provocation=100.0
Inscription=100.0
LockPicking=100.0
Magery=100.0
MagicResistance=100.0
Tactics=100.0
Snooping=100.0
Musicianship=100.0
Poisoning=100.0
Archery=100.0
SpiritSpeak=100.0
Stealing=100.0
Tailoring=100.0
Taming=100.0
TasteID=100.0
Tinkering=100.0
Tracking=100.0
Veterinary=100.0
Swordsmanship=100.0
Macefighting=100.0
Fencing=100.0
Wrestling=100.0
Lumberjacking=100.0
Mining=100.0
Meditation=100.0
Stealth=100.0
RemoveTrap=100.0
Necromancy=100.0

[SKILLCLASS Class_Tier4]
// undeclared class.
// max skills for players of this skill class.
// might want this to be all 50.0 to make people declare a class?
DEFNAME=Class_Tier3
NAME=Tier 3
//EVENTS=e_tier1
STATSUM=3700
SKILLSUM=1000.0
STR=1800
INT=1800
DEX=100
Anatomy=100.0
ItemID=100.0
ArmsLore=100.0
Parrying=100.0
Begging=100.0
Blacksmithing=100.0
Bowcraft=100.0
Peacemaking=100.0
Camping=100.0
Carpentry=100.0
Cartography=100.0
Cooking=100.0
DetectingHidden=100.0
Enticement=100.0
EvaluatingIntel=100.0
Healing=100.0
Fishing=100.0
Forensics=100.0
Herding=100.0
Hiding=100.0
Provocation=100.0
Inscription=100.0
LockPicking=100.0
Magery=100.0
MagicResistance=100.0
Tactics=100.0
Snooping=100.0
Musicianship=100.0
Poisoning=100.0
Archery=100.0
SpiritSpeak=100.0
Stealing=100.0
Tailoring=100.0
Taming=100.0
TasteID=100.0
Tinkering=100.0
Tracking=100.0
Veterinary=100.0
Swordsmanship=100.0
Macefighting=100.0
Fencing=100.0
Wrestling=100.0
Lumberjacking=100.0
Mining=100.0
Meditation=100.0
Stealth=100.0
RemoveTrap=100.0
Necromancy=100.0

[SKILLCLASS Class_Tier4]
// undeclared class.
// max skills for players of this skill class.
// might want this to be all 50.0 to make people declare a class?
DEFNAME=Class_Tier4
//NAME=Tier 4
//EVENTS=e_tier1
STATSUM=3900
SKILLSUM=1100.0
STR=1900
INT=1900
DEX=100
Anatomy=100.0
ItemID=100.0
ArmsLore=100.0
Parrying=100.0
Begging=100.0
Blacksmithing=100.0
Bowcraft=100.0
Peacemaking=100.0
Camping=100.0
Carpentry=100.0
Cartography=100.0
Cooking=100.0
DetectingHidden=100.0
Enticement=100.0
EvaluatingIntel=100.0
Healing=100.0
Fishing=100.0
Forensics=100.0
Herding=100.0
Hiding=100.0
Provocation=100.0
Inscription=100.0
LockPicking=100.0
Magery=100.0
MagicResistance=100.0
Tactics=100.0
Snooping=100.0
Musicianship=100.0
Poisoning=100.0
Archery=100.0
SpiritSpeak=100.0
Stealing=100.0
Tailoring=100.0
Taming=100.0
TasteID=100.0
Tinkering=100.0
Tracking=100.0
Veterinary=100.0
Swordsmanship=100.0
Macefighting=100.0
Fencing=100.0
Wrestling=100.0
Lumberjacking=100.0
Mining=100.0
Meditation=100.0
Stealth=100.0
RemoveTrap=100.0
Necromancy=100.0

[SKILLCLASS Class_Tier5]
// undeclared class.
// max skills for players of this skill class.
// might want this to be all 50.0 to make people declare a class?
DEFNAME=Class_Tier5
NAME=Tier 5
//EVENTS=e_tier1
STATSUM=4100
SKILLSUM=1200.0
STR=2000
INT=2000
DEX=100
Anatomy=100.0
ItemID=100.0
ArmsLore=100.0
Parrying=100.0
Begging=100.0
Blacksmithing=100.0
Bowcraft=100.0
Peacemaking=100.0
Camping=100.0
Carpentry=100.0
Cartography=100.0
Cooking=100.0
DetectingHidden=100.0
Enticement=100.0
EvaluatingIntel=100.0
Healing=100.0
Fishing=100.0
Forensics=100.0
Herding=100.0
Hiding=100.0
Provocation=100.0
Inscription=100.0
LockPicking=100.0
Magery=100.0
MagicResistance=100.0
Tactics=100.0
Snooping=100.0
Musicianship=100.0
Poisoning=100.0
Archery=100.0
SpiritSpeak=100.0
Stealing=100.0
Tailoring=100.0
Taming=100.0
TasteID=100.0
Tinkering=100.0
Tracking=100.0
Veterinary=100.0
Swordsmanship=100.0
Macefighting=100.0
Fencing=100.0
Wrestling=100.0
Lumberjacking=100.0
Mining=100.0
Meditation=100.0
Stealth=100.0
RemoveTrap=100.0
Necromancy=100.0

[SKILLCLASS Class_Tier6]
// undeclared class.
// max skills for players of this skill class.
// might want this to be all 50.0 to make people declare a class?
DEFNAME=Class_Tier6
NAME=Tier 6
//EVENTS=e_tier1
STATSUM=4300
SKILLSUM=1300.0
STR=2100
INT=2100
DEX=100
Anatomy=100.0
ItemID=100.0
ArmsLore=100.0
Parrying=100.0
Begging=100.0
Blacksmithing=100.0
Bowcraft=100.0
Peacemaking=100.0
Camping=100.0
Carpentry=100.0
Cartography=100.0
Cooking=100.0
DetectingHidden=100.0
Enticement=100.0
EvaluatingIntel=100.0
Healing=100.0
Fishing=100.0
Forensics=100.0
Herding=100.0
Hiding=100.0
Provocation=100.0
Inscription=100.0
LockPicking=100.0
Magery=100.0
MagicResistance=100.0
Tactics=100.0
Snooping=100.0
Musicianship=100.0
Poisoning=100.0
Archery=100.0
SpiritSpeak=100.0
Stealing=100.0
Tailoring=100.0
Taming=100.0
TasteID=100.0
Tinkering=100.0
Tracking=100.0
Veterinary=100.0
Swordsmanship=100.0
Macefighting=100.0
Fencing=100.0
Wrestling=100.0
Lumberjacking=100.0
Mining=100.0
Meditation=100.0
Stealth=100.0
RemoveTrap=100.0
Necromancy=100.0

[SKILLCLASS Class_Tier7]
// undeclared class.
// max skills for players of this skill class.
// might want this to be all 50.0 to make people declare a class?
DEFNAME=Class_Tier7
NAME=Tier 7
//EVENTS=e_tier1
STATSUM=4500
SKILLSUM=1400.0
STR=2200
INT=2200
DEX=100
Anatomy=100.0
ItemID=100.0
ArmsLore=100.0
Parrying=100.0
Begging=100.0
Blacksmithing=100.0
Bowcraft=100.0
Peacemaking=100.0
Camping=100.0
Carpentry=100.0
Cartography=100.0
Cooking=100.0
DetectingHidden=100.0
Enticement=100.0
EvaluatingIntel=100.0
Healing=100.0
Fishing=100.0
Forensics=100.0
Herding=100.0
Hiding=100.0
Provocation=100.0
Inscription=100.0
LockPicking=100.0
Magery=100.0
MagicResistance=100.0
Tactics=100.0
Snooping=100.0
Musicianship=100.0
Poisoning=100.0
Archery=100.0
SpiritSpeak=100.0
Stealing=100.0
Tailoring=100.0
Taming=100.0
TasteID=100.0
Tinkering=100.0
Tracking=100.0
Veterinary=100.0
Swordsmanship=100.0
Macefighting=100.0
Fencing=100.0
Wrestling=100.0
Lumberjacking=100.0
Mining=100.0
Meditation=100.0
Stealth=100.0
RemoveTrap=100.0
Necromancy=100.0

[SKILLCLASS Class_Tier8]
// undeclared class.
// max skills for players of this skill class.
// might want this to be all 50.0 to make people declare a class?
DEFNAME=Class_Tier8
NAME=Tier 8
//EVENTS=e_tier1
STATSUM=5100
SKILLSUM=1500.0
STR=2500
INT=2500
DEX=100
Anatomy=100.0
ItemID=100.0
ArmsLore=100.0
Parrying=100.0
Begging=100.0
Blacksmithing=100.0
Bowcraft=100.0
Peacemaking=100.0
Camping=100.0
Carpentry=100.0
Cartography=100.0
Cooking=100.0
DetectingHidden=100.0
Enticement=100.0
EvaluatingIntel=100.0
Healing=100.0
Fishing=100.0
Forensics=100.0
Herding=100.0
Hiding=100.0
Provocation=100.0
Inscription=100.0
LockPicking=100.0
Magery=100.0
MagicResistance=100.0
Tactics=100.0
Snooping=100.0
Musicianship=100.0
Poisoning=100.0
Archery=100.0
SpiritSpeak=100.0
Stealing=100.0
Tailoring=100.0
Taming=100.0
TasteID=100.0
Tinkering=100.0
Tracking=100.0
Veterinary=100.0
Swordsmanship=100.0
Macefighting=100.0
Fencing=100.0
Wrestling=100.0
Lumberjacking=100.0
Mining=100.0
Meditation=100.0
Stealth=100.0
RemoveTrap=100.0
Necromancy=100.0


//**********************************************************
//**                   NEWBIE CHANN                       **
//**********************************************************

[FUNCTION newbiechan]
IF (<EVAL <SRC.TAG.HEARNEWBIE>>==2)
SRC.SYSMESSAGE You are banned from using this channel.
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.HEARNEWBIE>>==1)
SRC.FINDID.i_hear_newbie.REMOVE
SRC.TAG.HEARNEWBIE 0
SRC.SYSMESSAGE Newbie channel has been turned off.
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.HEARNEWBIE>>==2)
SRC.SYSMESSAGE You are banned from using this channel.
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.HEARNEWBIE>>=0)
SRC.NEWITEM i_hear_newbie
SRC.ACT.CONT <SRC.UID>
SRC.TAG.HEARNEWBIE 1
SRC.SYSMESSAGE Newbie channel is now on.
SRC.SYSMESSAGE Use .newbie [text] to talk on this channel.
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.TITLED>>>9)
SRC.SYSMESSAGE You are no longer a newbie, this is not possible.
RETURN 1
ELSE
RETURN 1
ENDIF

[FUNCTION newbieban]
SRC.NEWITEM=i_newbieba
SRC.ACT.EQUIP
SRC.ACT.USE
SRC.SYSMESSAGE Whom do you wish to ban from newbie channel?

[ITEMDEF i_newbieba]
DEFNAME=i_newbieba
ID=i_handr_1
TYPE=t_EQ_script
LAYER=30

ON=@CREATE
ATTR=02

ON=@DCLICK
TARGET
RETURN 1

ON=@EQUIP
TIMER=10

ON=@TARGON_CHAR
SRC.TARG.FINDID.i_hear_newbie.REMOVE
SRC.TARG.TAG.HEARNEWBIE 2
SRC.TARG.SYSMESSAGE You have been banned from the newbie channel.
RETURN 1

ON=@TIMER
REMOVE

[FUNCTION newbieunban]
SRC.NEWITEM=i_newbieunba
SRC.ACT.EQUIP
SRC.ACT.USE
SRC.SYSMESSAGE Whom do you wish to unban from newbie channel?

[ITEMDEF i_newbieunba]
DEFNAME=i_newbieunba
ID=i_handr_1
TYPE=t_EQ_script
LAYER=30

ON=@CREATE
ATTR=02

ON=@DCLICK
TARGET
RETURN 1

ON=@EQUIP
TIMER=10

ON=@TARGON_CHAR
SRC.TARG.TAG.HEARNEWBIE 0
SRC.TARG.SYSMESSAGE You have been unbanned from the newbie channel.
RETURN 1

ON=@TIMER
REMOVE

[FUNCTION newbie]
MSGMEMBERS <ARGS>
RETURN 1

[FUNCTION msgmembers]
IF (<EVAL <SRC.TAG.HEARNEWBIE>>==2)
SRC.SYSMESSAGE You are banned from using this channel.
RETURN 1
ELSE
IF (<EVAL <SRC.TAG.HEARNEWBIE>>==0)
SRC.SYSMESSAGE You must have your newbie hearing ON in order to send or receive messages.
RETURN 1
ELSEIF (<EVAL <SRC.TAG.TITLED>><10)
SERV.ALLCLIENTS FINDID.i_hear_newbie.CONT.SYSMESSAGE <SRC.NAME> [Level <EVAL <SRC.TAG.TITLED>>]:  <ARGS>
RETURN 1
ELSEIF (<EVAL <SRC.TAG.NEWBIEHELPER>>=1)
SERV.ALLCLIENTS FINDID.i_hear_newbie.CONT.SYSMESSAGE <SRC.NAME> [Newbie-Helper]:  <ARGS>
RETURN 1
ELSEIF (<EVAL <SRC.TAG.TITLED>>>9)
SRC.SYSMESSAGE You are no longer a newbie! You cannot talk on this channel any longer.
RETURN 1
ENDIF

[ITEMDEF i_hear_newbie]
DEFNAME i_hear_newbie
NAME=Hearing NEWBIE Memory [DO NOT REMOVE]
ID=i_memory
TYPE=T_EQ_SCRIPT
LAYER=30


[EOF]