emud/area_current/
emud/area_current/castle/
emud/area_current/newareas/
emud/area_current/nwcentral/
emud/area_current/scontinent/
emud/clans/
emud/player/
emud/player/d/e/bak/
emud/player/e/m/
emud/player/e/m/bak/
#AREA Guilds~
#AUTHORS Presto~
#VERSION 3
#RANGES 20 95 20 99
#OLC_RANGES 30900 30999
#FLAGS AFLAG_NOTELEPORT|AFLAG_NORECALL


#HELPS
0 GUILDS~
{138}
                                  Guilds
{308}
At level twenty and above one is allowed to join a guild.  Once you have
joined a guild you cannot leave it or join another one.  Each guild offers
new and exciting options for the players, but a lot is expected of those
that decide to join.

  {128}(A) {058}Adventurer's Guild                     {128}(E) {058}Psionicist's Guild
  {128}(B) {058}Survivalist's Guild                    {128}(F) {058}Order of the Jagged Knife
  {128}(C) {058}League of the White Rose               {128}(G) {058}All the mottos of the guilds
  {128}(D) {058}Circle of the Black Lotus              {128}(H) {058}All the guild commands
{h}GUILDCOMMANDS 'GUILD COMMANDS'
{g}GUILDMOTTOS 'GUILD MOTTOS'
{f}OJKGUILD
{e}PSIGUILD
{d}CBLGUILD
{c}LWRGUILD
{b}SURGUILD
{a}ADVGUILD
~

0 ADVGUILD~
{078}
  __________________________________________________________________________
-|__________________________________________________________________________|-
   |{078}                                                                      |
   |{028}                        The Adventurer's Guild                        {078}|
   |{068}                                                                      {078}|
   |{068}   The adventurer's guild is the easiest of the specialized guilds.   {078}|
   |{068}         The requirement is merely to be level 20 or higher.          {078}|
   |{068}  Once you join, you'll be able to obtain 75 tokens hidden throughout {078}|
   |{068}     the realm.  You can take the tokens to the main office of the    {078}|
   |{068}        guild and get a chance to spin the wheel of adventure.        {078}|
   |{068}  The drawback is:  Once you find all 75 tokens, you can't get more.  {078}|
   |______________________________________________________________________|
{-}GUILDS
~

0 SURGUILD~
{078}
  __________________________________________________________________________
-|__________________________________________________________________________|-
   |                                                                      |
   |{028}                       The Survivalist's Guild                        {078}|
   |{068}                                                                      {078}|
   |{068}          The survivalist's guild is a more difficult guild.          {078}|
   |{068}               To join, you must be level 25 or higher.               {078}|
   |{068}   Being a survivalist, you don't care very much for the comforts of  {078}|
   |{068}    a nice bed, or a hot meal.  You like to live in the wilderness,   {078}|
   |{068}  and live off the land.  Everything you need to survive you can find {078}|
   |{068}   outdoors, whether it be food, water, or herbs for healing salves.  {078}|
   |______________________________________________________________________|
{-}GUILDS
~

0 LWRGUILD~
{078}
  __________________________________________________________________________
-|__________________________________________________________________________|-
   |                                                                      |
   |{028}                      League of the White Rose                        {078}|
   |{068}                                                                      {078}|
   |{068}      The league of the white rose is a very restricting guild.       {078}|
   |{068}     To join, you must have at least 30 levels in the shaman class.   {078}|
   |{068}   As a healer, you care for others more than yourself.  And to you,  {078}|
   |{068}  being good to your fellow man ensures greater rewards when you die. {078}|
   |{068}   Therefore, you steer away from evil, and concentrate on the good   {078}|
   |{068}     around you.  Joining the guild gives you help in this task.      {078}|
   |______________________________________________________________________|
{-}GUILDS
~

0 CBLGUILD~
{078}
  __________________________________________________________________________
-|__________________________________________________________________________|-
   |                                                                      |
   |{028}                       Circle of the Black Lotus                      {078}|
   |{068}                                                                      {078}|
   |{068}   This guild is for casters, for the most part.  To join, you must   {078}|
   |{068}      have at least 30 levels in the druid, sorcerer or warlock       {078}|
   |{068}                    classes, and you must be evil.                    {078}|
   |{068}  Being part of the circle allows you to let out your innermost evil  {078}|
   |{068}   thoughts and temptations, and wreak havoc on anything good.  Once  {078}|
   |{068} you start down the dark path, forever will it dominate your destiny. {078}|
   |{068}   But joining this guild gives you an added bonus, if you use it.    {078}|
   |______________________________________________________________________|
{-}GUILDS
~

0 PSIGUILD~
{078}
  __________________________________________________________________________
-|__________________________________________________________________________|-
   |                                                                      |
   |{028}                          Psionicist's Guild                          {078}|
   |{068}                                                                      {078}|
   |{068}    The psionicist's guild is probably the most powerful of all the   {078}|
   |{068}             guilds, due to the nature of their abilities.            {078}|
   |{068}                      To join, you must be level 65.                  {078}|
   |{068}  Once you enter the guild, you are trained to use your mind to cause {078}|
   |{068}  all sorts of unusual things to happen.  Accidents can cause serious {078}|
   |{068}  damage to your being though, which is why the minimum level is 65.  {078}|
   |{068}  Your psionic ability is measured in psi-points, like magic is with  {078}|
   |{068}         mana.  Some skills use more psi-points than others.          {078}|
   |______________________________________________________________________|
{-}GUILDS
~

0 OJKGUILD~
{078}
  __________________________________________________________________________
-|__________________________________________________________________________|-
   |                                                                      |
   |{028}                      Order of the Jagged Knife                       {078}|
   |{068}                                                                      {078}|
   |{068}    This guild allows you to accept contracts from players of the     {078}|
   |{068}     realm.  Once a player issues his contract to the guild, any      {078}|
   |{068}   hitman can attempt to fulfil that contract.  The first to do so    {078}|
   |{068}    will receive the posted reward.  No other players can see the     {078}|
   |{068}   contracts.  Only ninjas and marauders can join this guild.  The    {078}|
   |{068} longer a player stays in the order, the better.  For eventually one  {078}|
   |{068}            will forge their own powerful, jagged knife.              {078}|
   |______________________________________________________________________|
{-}GUILDS
~

0 GUILDTOKEN~
{118}                                   {128}   _____
{118}                                   {128}  / {178}___ {128}\
{118}    You found an Adventurer's      {128} / {178}/   \ {128}\      {158}May be redeemed at the
{118}                                   {128}/ {178}/ {138}A   {178}\ {128}\
{118}           Guild token             {128}\ {178}\   {138}G {178}/ {128}/    {158}Adventurer's Guild office
{118}                                   {128} \ {178}\___/ {128}/
{118}                                   {128}  \_____/
~

0 GUILDCOMMANDS 'GUILD COMMANDS'~
{138}
                                Guild Commands
{308}
  {128}(A) {058}Adventurer's Guild                     {128}(D) {058}Circle of the Black Lotus
  {128}(B) {058}Survivalist's Guild                    {128}(E) {058}Psionicist's Guild
  {128}(C) {058}League of the White Rose               {128}(F) {058}Order of the Jagged Knife

  {128}(-) {058}Return
{a}ADVENTURERCOMMANDS
{b}SURVIVALISTCOMMANDS
{c}LEAGUEOFTHEWHITEROSECOMMANDS SERVANT
{d}CIRCLEOFTHEBLACKLOTUSCOMMANDS SERPENT
{e}PSIONICISTCOMMANDS REGENERATE
{f}ORDEROFTHEJAGGEDKNIFECOMMANDS CONSTRUCT
{-}GUILDS
~

0 ADVENTURERCOMMANDS~
{138}
                             Adventurer's Guild
{308}
   upgrade -- lets you upgrade your guild band.

  {128}(-) {058}Return
{-}GUILDCOMMANDS 'GUILD COMMANDS'
~

0 SURVIVALISTCOMMANDS~
{138}
                    Survivalist Guild
{308}
         / -- lets you cast the word of recall spell
 companion -- lets you search for a companion.
      find -- allows you to look for water.
    forage -- allows you to look for herbs.
    locate -- allows you to hunt for food.
    purify -- lets you purify any unclean water you find.
   prepare -- lets you combine herbs and water for a healing salve.
   upgrade -- lets you upgrade your guild band.

  {128}(-) {058}Return
{-}GUILDCOMMANDS 'GUILD COMMANDS'
~

0 LEAGUEOFTHEWHITEROSECOMMANDS SERVANT~
{138}
                   League of the White Rose
{308}
      cure -- asks the servant to heal wounds and cure diseases.
    friend -- asks the servant to cast its spells on a companion.
     guard -- asks the servant to stand guard for you.
  sanctify -- asks the servant to cast sanctify on the room.
 sanctuary -- asks the servant to cast sanctuary upon you.
   servant -- calls upon a holy servant to assist you.
    spells -- asks the servant to cast all its spells on you.
   upgrade -- lets you upgrade your guild band

  {128}(-) {058}Return
{-}GUILDCOMMANDS 'GUILD COMMANDS'
~

0 CIRCLEOFTHEBLACKLOTUSCOMMANDS SERPENT~
{138}
                  Circle of the Black Lotus
{308}
      away -- tells the serpent to carry you away.
     blast -- tells the serpent to cast spells on you.
      team -- tells the serpent to follow you.
   serpent -- summons an evil serpent to do your bidding.
     watch -- tells the serpent to keep an eye out for intruders.
   upgrade -- lets you upgrade your guild band

  {128}(-) {058}Return
{-}GUILDCOMMANDS 'GUILD COMMANDS'
~

0 PSIONICISTCOMMANDS REGENERATE~
{138}
                       Psionicists Guild
{308}
      gate -- is similar to the teleport skill.               costs: 10
  meditate -- helps restore mana/move while resting.          costs:  5
 psi-check -- displays your current psionic potential.        costs:  0
regenerate -- restores hp/mana/move to full while resting.    costs: 15
     storm -- causes a psionic storm to appear.               costs: 25
    strike -- <target> causes the storm to attack someone.    costs:  5
      wall -- protects the mind and increases success.        costs: 20

  {128}(-) {058}Return
{-}GUILDCOMMANDS 'GUILD COMMANDS'
~

0 ORDEROFTHEJAGGEDKNIFECOMMANDS CONSTRUCT~
{128}
                          Order of the Jagged Knife
{308}
 construct -- allows you to construct a powerful jagged knife.
   upgrade -- allows you to upgrade your guild band.

  {128}(-) {058}Return
{-}GUILDCOMMANDS 'GUILD COMMANDS'
~

0 GUILDMOTTOS 'GUILD MOTTOS'~
{138}
                                Guild Mottos
{308}
  {128}(A) {058}Adventurer's Guild                     {128}(D) {058}Circle of the Black Lotus
  {128}(B) {058}Survivalist's Guild                    {128}(E) {058}Psionicist's Guild
  {128}(C) {058}League of the White Rose               {128}(F) {058}Order of the Jagged Knife

  {128}(-) {058}Return
{f}OJKMOTTO
{e}PSIMOTTO
{d}CBLMOTTO
{c}LWRMOTTO
{b}SURMOTTO
{a}ADVMOTTO
{-}GUILDS
~

0 ADVMOTTO~
{138}
          Adventurer's Guild Motto
{308}
 'To kill is to live life to the fullest,
  to live a full life includes love,
  to love is to give your heart away,
  to give away your heart is to tempt death,
  to die is the ultimate adventure.'

  {128}(-) {058}Return
{-}GUILDMOTTOS 'GUILD MOTTOS'
~

0 SURMOTTO~
{138}
          Survivalist's Guild Motto
{308}
 'The land provides everything for survival,
  survival is the key to life,
  life is the reason of our existence,
  our existence is our gift to the land.'

  {128}(-) {058}Return
{-}GUILDMOTTOS 'GUILD MOTTOS'
~

0 LWRMOTTO~
{138}
          League of the White Rose's Motto
{308}
 'All good lives are sacred,
  all sacred lives should endure,
  all enduring lives, if dedicated to good, are friends,
  all friends will be protected at any cost.'

  {128}(-) {058}Return
{-}GUILDMOTTOS 'GUILD MOTTOS'
~

0 CBLMOTTO~
{138}
  Circle of the Black Lotus' Motto
{308}
 'All there is exist for a purpose,
  all purposes lead toward darkness,
  all darkness will overcome good,
  all good shall be destroyed.'

  {128}(-) {058}Return
{-}GUILDMOTTOS 'GUILD MOTTOS'
~

0 PSIMOTTO~
{138}
         Psionicist's Guild Motto
{308}
 'The mind can do anything and everything,
  time and space are ours to command,
  life and death obey our laws,
  ultimate intellect for ultimate power.'

  {128}(-) {058}Return
{-}GUILDMOTTOS 'GUILD MOTTOS'
~

1 OJKMOTTO~
{138}
  Order of the Jagged Knife's Motto
{308}
 'Observing, examining, calculating,
  preparing, hiding, spying,
  unleashing, attacking, striking,
  cackling, savoring, grinning, next.'

  {128}(-) {058}Return
{-}GUILDMOTTOS 'GUILD MOTTOS'
~

0 LWRLIGHTNINGBLAST~
{078}\__      _____               __/        ___/           \___   __/   ___/     _/
{078}   \____/   _____      \____/        __/     _____/        \_______/     ___/
{078}      \____/     \___        _______/  \____/  \_        ___/    \______/
{138}         *           {078}\______/                    \______/            {138}*
{138}         *               *                         *                *
{138}        * *              *                        * *               *
{138}       *   *            * *                      *   *             * *
{138}      *   * *          *   *                        *             *   *
{138}      *   *             *  *                       *               *   *
{138}     *     *              * *                     * *              *
{138}    * *    *             *   *                   *   *            * *
{138}   *      * *               * *         {178}@        {138}*  * *              *
{138}   *      *        {178}@          {138}*      {178}@ {028}\|       {138}*            {178}@        {138}*   {178}@
{138}  *      *        {028}\|/          {138}*    {028}\|  |/     {138}*            {028}\|/      {138}* *  {028}|/
{422}                                                                               {308}
~

0 CBLWINGEDSERPENT~
{118}                                     {048}__
            {048}---+=====\             /{118}\  /{048}\             /====+---
                {028}\    {048}\\            \_  _/            //    {028}/
                 {028}\    {048}\\____________/  \____________//    {028}/
                  {028}\___/ {048}---____              ____--- {028}\___/
                    {028}\      /   {048}\_ {028}---  --- {048}_/   {028}\      /
                     {028}\____/      {048}\ {028}--  -- {048}/      {028}\____/
                         {028}\___     {048}\ {028}-  - {048}/     {028}___/
                             {028}\____{048}/      \{028}____/
                                 {048}/   /\   \
                                {048}/   /  \   \
                                {048}\__/    \__/
                              {038}__/ /      \ \__
                             {038}/----\      /----\{308}
~

0 GUILDBOUNCE~
{178}
                 BBBB    OOO   III  N   N   GGG   !!
                 B   B  O   O   I   N   N  G   G  !!
                 B   B  O   O   I   NN  N  G      !!
                 BBBB   O   O   I   N N N  G  GG  !!
                 B   B  O   O   I   N  NN  G   G  !!
                 B   B  O   O   I   N   N  G   G
                 BBBB    OOO   III  N   N   GGGG  !!
{068}
~

0 WHLADVTEMPHP~
{138}
                                   _--||--_
                                 _-        -_
                                / \{178}   HP   {138}/ \
                               |    \    /    |
~

0 WHLADVTHREEPRACS~
{138}
                                   _--\/--_
                                 _-        -_
                                / \{178} 3 Prac {138}/ \
                               |    \    /    |
~

0 WHLADVFIVEPRACS~
{138}
                                   _--||--_
                                 _-        -_
                                / \{178} 5 Prac {138}/ \
                               |    \    /    |
~

0 WHLADVEXP~
{138}
                                   _--||--_
                                 _-        -_
                                / \{178}  EXP!  {138}/ \
                               |    \    /    |
~

0 WHLADVDEATH~
{138}
                                   _--||--_
                                 _-        -_
                                / \ {118}DEATH! {138}/ \
                               |    \    /    |
~

0 WHLADVSUPERWEAPON~
{138}
                                   _--||--_
                                 _-        -_
                                / \{178} WEAPON {138}/ \
                               |    \    /    |
~

0 WHLADVLOTSGOLD~
{138}
                                   _--||--_
                                 _-  {178}5mil{138}  -_
                                / \  {178}GOLD{138}  / \
                               |    \    /    |
~

0 WHLADVLITTLEGOLD~
{138}
                                   _--||--_
                                 _-  {178}1mil{138}  -_
                                / \  {178}GOLD{138}  / \
                               |    \    /    |
~

0 WHLADVJACKPOT~
{138}
                                   _--||--_
                                 _- {178}10 mil{138} -_
                                / \ {178} GOLD {138} / \
                               |    \    /    |
~

0 $~


#MOBILES
#30900
rabbit~
a rabbit~
A rabbit searches for a new hiding spot here.~
The rabbit would make a delicious meal.
~
0
0
0 S
10 0 0 1d25+81 1d10+5
0 0
POS_STANDING POS_STANDING SEX_MALE
>rand_prog 100~
mpmadd self quest 0 4 1
if quest (0,4,$i) == 0
  mpecho The rabbit goes into hiding.
  mppurge self
endif
~
>death_prog 100~
if hasobjnum ($n) == 30901
or hasobjnum ($n) == 30970
or hasobjnum ($n) == 30971
or hasobjnum ($n) == 30972
  mpoload 30906
endif
~
|
#30901
quail~
a quail~
A quail with a busted wing tries to fly away.~
The quail would make a delicious meal.
~
0
0
0 S
10 0 0 1d25+81 1d10+5
0 0
POS_STANDING POS_STANDING SEX_MALE
>rand_prog 100~
mpmadd self quest 0 4 1
if quest (0,4,$i) == 0
  mpecho The quail flies off.
  mppurge self
endif
~
>death_prog 100~
if hasobjnum ($n) == 30901
or hasobjnum ($n) == 30970
or hasobjnum ($n) == 30971
or hasobjnum ($n) == 30972
  mpoload 30907
endif
~
|
#30902
deer~
a deer~
A deer here starts running for the woods.~
The deer would make a delicious meal.
~
0
0
0 S
10 0 0 1d25+81 1d10+5
0 0
POS_STANDING POS_STANDING SEX_MALE
>rand_prog 100~
if quest (0,4,self) == 0
  mpmset self quest 0 4 6
  break
endif
if quest (0,4,self) == 1
  mpecho The deer sprints away at an uncatchable pace.
  mppurge self
else
  mpmadd self quest 0 4 -1
endif
~
>death_prog 100~
if hasobjnum ($n) == 30901
or hasobjnum ($n) == 30970
or hasobjnum ($n) == 30971
or hasobjnum ($n) == 30972
  mpoload 30908
  mpoload 30908
endif
~
|
#30903
moose~
a moose~
A moose searches for some food here.~
The moose would make a delicious meal.
~
0
0
0 S
10 0 0 1d25+81 1d10+5
0 0
POS_STANDING POS_STANDING SEX_MALE
>rand_prog 100~
mpmadd self quest 0 4 1
if quest (0,4,$i) == 0
  mpecho The moose leaves to search for more food.
  mppurge self
endif
~
>death_prog 100~
if hasobjnum ($n) == 30901
or hasobjnum ($n) == 30970
or hasobjnum ($n) == 30971
or hasobjnum ($n) == 30972
  mpoload 30909
  mpoload 30909
  mpoload 30909
  mpoload 30909
endif
~
|
#30904
contractor~
the contractor~
The assassin contractor stands here.~
~
ACT_SENTINEL|ACT_SMART
AFF_ETHEREAL
0 S
99 0 0 1d1+9999 1d1+99
1 0
POS_STANDING POS_STANDING SEX_NEUTRAL
>greet_prog 100~
mpechoat $n To issue a contract, "say contract <target> <amount>".
~
>speech_prog contract~
mpquiet on
mpgoto 30997
mptransfer $n
mpforce $n note to all
mpforce $n note subject Contract: $2 for $3.
mpforce $n note post
mptransfer $n 30996
mpquiet off
mpecho $n issues a new contract.
mpgoto 30996
mpechoat $n {168}Your contract has been posted.
~
|
#30905
guardian~
the guardian~
The guardian of the guild halls is here.~
The guardian is ethereal.
~
ACT_SENTINEL|ACT_SMART
AFF_ETHEREAL
0 S
99 0 0 1d1+9999 1d1+99
0 0
POS_STANDING POS_STANDING SEX_NEUTRAL
>all_greet_prog 101~
if quest (0,3,$n) != 0
  mpforce $n HELP GUILDBOUNCE
  mptransfer $n 9755
  tell $n You already belong to a guild.  Come back in your next life.
endif
~
|
#30906
guide tour~
the tour guide~
The tour guide is here.~
The tour guide is ethereal.
~
ACT_SENTINEL|ACT_SMART
AFF_ETHEREAL
0 S
99 0 0 1d1+9999 1d1+99
0 0
POS_STANDING POS_STANDING SEX_NEUTRAL
>all_greet_prog 101~
if quest (0,3,$n) != 0
  say You already belong to a guild.  You do not belong here.
  mptransfer $n 9755
else
  mpmset $n quest 3 3 0
endif
~
>speech_prog adv~
if quest (0,3,$n) != 0
  tell $n You already belong to a guild.  You do not belong here.
  mptransfer $n 9755
else
  mptransfer $n 30902
  mpat 30902 mpforce $n look
  mpecho $n goes to read information on the adventurer's guild.
endif
~
>speech_prog sur~
if quest (0,3,$n) != 0
  tell $n You already belong to a guild.  You do not belong here.
  mptransfer $n 9755
else
  if level ($n) < 25
    tell $n You must be level 25 to join the survivalist guild.
  else
    mptransfer $n 30903
    mpat 30903 mpforce $n look
    mpecho $n goes to read information on the survivalist's guild.
  endif
endif
~
>speech_prog lwr~
if quest (0,3,$n) != 0
  tell $n You already belong to a guild.  You do not belong here.
  mptransfer $n 9755
else
  if level ($n) < 30
    tell $n You must be level 30 to join the league of the white rose.
  else
    mpoload 30910
    give i30910 $n
  endif
endif
~
>speech_prog cbl~
if quest (0,3,$n) != 0
  tell $n You already belong to a guild.  You do not belong here.
  mptransfer $n 9755
else
  if level ($n) < 30
    tell $n You must be level 30 to join the circle of the black lotus.
  else
    mpoload 30911
    give i30911 $n
  endif
endif
~
>speech_prog psi~
if quest (0,3,$n) != 0
  tell $n You already belong to a guild.  You do not belong here.
  mptransfer $n 9755
else
  if level ($n) < 65
    tell $n You must be level 65 to join the psionicist's guild.
  else
    mptransfer $n 30906
    mpat 30906 mpforce $n look
    mpecho $n goes to read information on the psionicist's guild.
  endif
endif
~
>speech_prog ojk~
if quest (0,3,$n) != 0
  tell $n You already belong to a guild.  You do not belong here.
  mptransfer $n 9755
else
  if level ($n) < 30
    tell $n You must be level 30 to join the order of the jagged knife.
  else
    mpoload 30913
    give i30913 $n
  endif
endif
~
|
#30907
mike adventurer~
Mike~
Mike the adventurer is here wondering if you wish to join the guild.~
Mike is tall, and strong, and has seen many wondrous places since joining the
adventurer's guild.
~
ACT_SENTINEL|ACT_SMART
AFF_DETECT_INVIS|AFF_DETECT_HIDDEN
0 S
99 0 0 1d1+9999 1d1+99
0 0
POS_STANDING POS_STANDING SEX_MALE
>rand_prog 100~
mpmadd self quest 0 3 1
if quest (0,3,$i) == 0
  if quest (3,3,$r) == 0
    say Do you wish to join the adventurer's guild?
  endif
endif
~
>speech_prog p yes~
say Then say: I wish to join the adventurer's guild.
~
>speech_prog p no~
mpmset $n quest 3 3 0
mptransfer $n 30901
tell $n See ya later then.
~
>speech_prog p I wish to join the adventurer's guild.~
if quest (3,3,$n) == 0
  mpmset $n quest 3 3 1
  say Then you must take the oath.  Repeat after me:
  say I swear to dedicate myself to a life of adventure.
endif
~
>speech_prog p I swear to dedicate myself to a life of adventure.~
if quest (3,3,$n) == 1
  mpmset $n quest 3 3 2
  say I believe that power comes from the deaths of enemies.
endif
~
>speech_prog p I believe that power comes from the deaths of enemies.~
if quest (3,3,$n) == 2
  mpmset $n quest 3 3 3
  say I will always defend myself when threatened.
endif
~
>speech_prog p I will always defend myself when threatened.~
if quest (3,3,$n) == 3
  mpmset $n quest 3 3 4
  say I shall never reject money or glory, so help me gods.
endif
~
>speech_prog p I shall never reject money or glory, so help me gods.~
if quest (3,3,$n) != 4
  break
endif
if quest (0,3,$n) != 0
  mplog $n tried to join ADV with wrong quest bit
  frown $n
  mptransfer $n 9755
  break
endif
if isaffected ($n) == spell_blindness
  mplog $n tried to join ADV blinded
  frown $n
  mptransfer $n 9755
  break
endif
mpmset $n quest 0 3 1
if quest (0,3,$n) == 0
  mplog $n tried to join ADV but managed to avoid bits being set.
  ponder $n
  mptransfer $n 9755
  break
endif
mpechoat $n You wear the wrist band of the Adventurer's Guild around your wrist.
mpquiet on
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
if level ($n) > 89
  mpoload 30969
  give i30969 $n
  mpforce $n wear i30969
else
  if level ($n) > 69
    mpoload 30968
    give i30968 $n
    mpforce $n wear i30968
  else
    if level ($n) > 49
      mpoload 30967
      give i30967 $n
      mpforce $n wear i30967
    else
      mpoload 30900
      give i30900 $n
      mpforce $n wear i30900
    endif
  endif
endif
mpquiet off
echo {078}$n has taken the oath and joined the Adventurer's Guild.
mptransfer $n 30999
mpat 30999 say May your journeys be fruitful and the rewards acceptable.
~
|
#30908
jeff@ survivalist~
Jeff~
Jeff the survivalist is here wondering if you wish to join the guild.~
Jeff knows how to live in the wilderness, and if you join the guild quickly,
he can get back to it.
~
ACT_SENTINEL|ACT_SMART
AFF_DETECT_INVIS|AFF_DETECT_HIDDEN
0 S
99 0 0 1d1+9999 1d1+99
0 0
POS_STANDING POS_STANDING SEX_MALE
>rand_prog 100~
mpmadd self quest 0 3 1
if quest (0,3,$i) == 0
  if quest (3,3,$r) == 0
    say Do you wish to join the survivalist's guild?
  endif
endif
~
>speech_prog yes~
say Then say: I wish to join the survivalist's guild.
~
>speech_prog no~
mpmset $n quest 3 3 0
mptransfer $n 30901
tell $n See ya later then.
~
>speech_prog p I wish to join the survivalist's guild.~
if quest (3,3,$n) == 0
  mpmset $n quest 3 3 1
  say Then you must take the oath.  Repeat after me:
  say I believe everything I need to survive comes from the land.
endif
~
>speech_prog p I believe everything I need to survive comes from the land.~
if quest (3,3,$n) == 1
  mpmset $n quest 3 3 2
  say The outdoors are my home, and I will protect them if needed.
endif
~
>speech_prog p The outdoors are my home, and I will protect them if needed.~
if quest (3,3,$n) == 2
  mpmset $n quest 3 3 3
  say Killing is not murder; it's a means of survival.
endif
~
>speech_prog p Killing is not murder; it's a means of survival.~
if quest (3,3,$n) == 3
  mpmset $n quest 3 3 4
  say Survival of the fittest is my cry, and fit I will ever be.
endif
~
>speech_prog p Survival of the fittest is my cry, and fit I will ever be.~
if quest (3,3,$n) != 4
  break
endif
if quest (0,3,$n) != 0
  mplog $n tried to join SUR with wrong quest bit
  frown $n
  mptransfer $n 9755
  break
endif
if isaffected ($n) == spell_blindness
  mplog $n tried to join SUR blinded
  frown $n
  mptransfer $n 9755
  break
endif
mpmset $n quest 0 3 2
if quest (0,3,$n) == 0
  mplog $n tried to join SUR but managed to avoid bits being set.
  ponder $n
  mptransfer $n 9755
  break
endif
mpechoat $n You wear the wrist band of the Survivalist's Guild around your wrist.
mpquiet on
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
if level ($n) > 89
  mpoload 30972
  give i30972 $n
  mpforce $n wear i30972
else
  if level ($n) > 69
    mpoload 30971
    give i30971 $n
    mpforce $n wear i30971
  else
    if level ($n) > 49
      mpoload 30970
      give i30970 $n
      mpforce $n wear i30970
    else
      mpoload 30901
      give i30901 $n
      mpforce $n wear i30901
    endif
  endif
endif
mpquiet off
echo {078}$n has taken the oath and joined the Survivalist's Guild.
mptransfer $n 30999
mpat 30999 say May your journeys be fruitful and the rewards acceptable.
~
|
#30909
bob league white rose~
Bob~
Bob is here wondering if you wish to join the league of the white rose.~
Bob is a friendly man who knows all about healing, and if you join the guild
quickly, he can get back to spend time with his friends..
~
ACT_SENTINEL|ACT_SMART
AFF_DETECT_INVIS|AFF_DETECT_HIDDEN
0 S
99 0 0 1d1+9999 1d1+99
0 0
POS_STANDING POS_STANDING SEX_MALE
>rand_prog 100~
mpmadd self quest 0 3 1
if quest (0,3,$i) == 0
  if quest (3,3,$r) == 0
    say Do you wish to join the league of the white rose?
  endif
endif
~
>speech_prog p yes~
say Then say: I wish to join the league of the white rose.
~
>speech_prog p no~
mpmset $n quest 3 3 0
mptransfer $n 30901
tell $n See ya later then.
~
>speech_prog p I wish to join the league of the white rose.~
if quest (3,3,$n) == 0
  mpmset $n quest 3 3 1
  say Then you must take the oath.  Repeat after me:
  say I believe that all well-spent lives are worth saving.
endif
~
>speech_prog p I believe that all well-spent lives are worth saving.~
if quest (3,3,$n) == 1
  mpmset $n quest 3 3 2
  say I will only fight to protect myself, and my friends.
endif
~
>speech_prog p I will only fight to protect myself, and my friends.~
if quest (3,3,$n) == 2
  mpmset $n quest 3 3 3
  say I believe that loyalty and friendship make life worth living.
endif
~
>speech_prog p I believe that loyalty and friendship make life worth living.~
if quest (3,3,$n) == 3
  mpmset $n quest 3 3 4
  say I swear to accompany my friends into the depths of darkness,
endif
~
>speech_prog p I swear to accompany my friends into the depths of darkness,~
if quest (3,3,$n) == 4
  mpmset $n quest 3 3 5
  say if my being there can save their lives.
endif
~
>speech_prog p if my being there can save their lives.~
if quest (3,3,$n) != 5
  break
endif
if quest (0,3,$n) != 0
  mplog $n tried to join LWR with wrong quest bit
  frown $n
  mptransfer $n 9755
  break
endif
if isaffected ($n) == spell_blindness
  mplog $n tried to join LWR blinded
  frown $n
  mptransfer $n 9755
  break
endif
mpmset $n quest 0 3 3
if quest (0,3,$n) == 0
  mplog $n tried to join LWR but managed to avoid bits being set.
  ponder $n
  mptransfer $n 9755
  break
endif
mpechoat $n You wear the ring from the League of the White Rose on your finger.
mpquiet on
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
if level ($n) > 89
  mpoload 30975
  give i30975 $n
  mpforce $n wear i30975
else
  if level ($n) > 69
    mpoload 30974
    give i30974 $n
    mpforce $n wear i30974
  else
    if level ($n) > 49
      mpoload 30973
      give i30973 $n
      mpforce $n wear i30973
    else
      mpoload 30915
      give i30915 $n
      mpforce $n wear i30915
    endif
  endif
endif
mpquiet off
echo {078}$n has taken the oath and joined the league of the White Rose.
mptransfer $n 30999
mpat 30999 say May your journeys be fruitful and the rewards acceptable.
~
|
#30910
tom circle black lotus~
Tom~
Tom is here wondering if you wish to join the circle of the black lotus.~
Tom is skilled in the arts of wreaking havoc upon his foes, and he willing
to allow you into the ranks of the circle of the black lotus.
~
ACT_SENTINEL|ACT_SMART
AFF_DETECT_INVIS|AFF_DETECT_HIDDEN
0 S
99 0 0 1d1+9999 1d1+99
0 0
POS_STANDING POS_STANDING SEX_MALE
>rand_prog 100~
mpmadd self quest 0 3 1
if quest (0,3,$i) == 0
  if quest (3,3,$r) == 0
    say Do you wish to join the circle of the black lotus?
  endif
endif
~
>speech_prog p yes~
say Then say: I wish to join the circle of the black lotus.
~
>speech_prog p no~
mpmset $n quest 3 3 0
mptransfer $n 30901
tell $n See ya later then.
~
>speech_prog p I wish to join the circle of the black lotus.~
if quest (3,3,$n) == 0
  mpmset $n quest 3 3 1
  say Then you must take the oath.  Repeat after me:
  say I believe I can achieve more power through treachery.
endif
~
>speech_prog p I believe I can achieve more power through treachery.~
if quest (3,3,$n) == 1
  mpmset $n quest 3 3 2
  say Deceit is the truth of my existence.
endif
~
>speech_prog p Deceit is the truth of my existence.~
if quest (3,3,$n) == 2
  mpmset $n quest 3 3 3
  say Those who are good are enemies of mine.
endif
~
>speech_prog p Those who are good are enemies of mine.~
if quest (3,3,$n) == 3
  mpmset $n quest 3 3 4
  say I swear allegiance to darkness, and all the evil of the realm.
endif
~
>speech_prog p I swear allegiance to darkness, and all the evil of the realm.~
if quest (3,3,$n) != 4
  break
endif
if quest (0,3,$n) != 0
  mplog $n tried to join CBL with wrong quest bit
  frown $n
  mptransfer $n 9755
  break
endif
if isaffected ($n) == spell_blindness
  mplog $n tried to join CBL blinded
  frown $n
  mptransfer $n 9755
  break
endif
mpmset $n quest 0 3 4
if quest (0,3,$n) == 0
  mplog $n tried to join CBL but managed to avoid bits being set.
  ponder $n
  mptransfer $n 9755
  break
endif
mpechoat $n You wear the ring from the Circle of the Black Lotus on your finger.
mpquiet on
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
if level ($n) > 89
  mpoload 30978
  give i30978 $n
  mpforce $n wear i30978
else
  if level ($n) > 69
    mpoload 30977
    give i30977 $n
    mpforce $n wear i30977
  else
    if level ($n) > 49
      mpoload 30976
      give i30976 $n
      mpforce $n wear i30976
    else
      mpoload 30916
      give i30916 $n
      mpforce $n wear i30916
    endif
  endif
endif
mpquiet off
echo {078}$n has taken the oath and joined the circle of the Black Lotus.
mptransfer $n 30999
mpat 30999 say May your journeys be fruitful and the rewards acceptable.
~
|
#30911
cris psionicist~
Cris~
Cris is here wondering if you wish to join the psionicist's guild.~
Cris is extremely powerful.  Being a psionicist she can use her mind
to cause incredible things to happen.
~
ACT_SENTINEL|ACT_SMART
AFF_DETECT_INVIS|AFF_DETECT_HIDDEN
0 S
99 0 0 1d1+9999 1d1+99
0 0
POS_STANDING POS_STANDING SEX_FEMALE
>rand_prog 100~
mpmadd self quest 0 3 1
if quest (0,3,$i) == 0
  if quest (3,3,$r) == 0
    say Do you wish to join the psionicist's guild?
  endif
endif
~
>speech_prog p yes~
say Then say: I wish to join the psionicist's guild.
~
>speech_prog p no~
mpmset $n quest 3 3 0
mptransfer $n 30901
tell $n See ya later then.
~
>speech_prog p I wish to join the psionicist's guild.~
if quest (3,3,$n) == 0
  mpmset $n quest 3 3 1
  say Then you must take the oath.  Repeat after me:
  say I believe in the power of the mind.
endif
~
>speech_prog p I believe in the power of the mind.~
if quest (3,3,$n) == 1
  mpmset $n quest 3 3 2
  say The mind can accomplish anything with determination.
endif
~
>speech_prog p The mind can accomplish anything with determination.~
if quest (3,3,$n) == 2
  mpmset $n quest 3 3 3
  say I will repel negative thoughts, and remain focused.
endif
~
>speech_prog p I will repel negative thoughts, and remain focused.~
if quest (3,3,$n) == 3
  mpmset $n quest 3 3 4
  say Time and space shall ever forth obey my commands.
endif
~
>speech_prog p Time and space shall ever forth obey my commands.~
if quest (3,3,$n) != 4
  break
endif
if quest (0,3,$n) != 0
  mplog $n tried to join PSI with wrong quest bit
  frown $n
  mptransfer $n 9755
  break
endif
if isaffected ($n) == spell_blindness
  mplog $n tried to join PSI blinded
  frown $n
  mptransfer $n 9755
  break
endif
mpmset $n quest 0 3 5
if quest (0,3,$n) == 0
  mplog $n tried to join PSI but managed to avoid bits being set.
  ponder $n
  mptransfer $n 9755
  break
endif
mpechoat $n You wear the ring of the Psionicist's Guild on your finger.
mpquiet on
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
mpoload 30917
give i30917 $n
mpforce $n wear i30917
mpquiet off
echo {078}$n has taken the oath and joined the Psionicist's Guild.
mptransfer $n 30999
mpat 30999 say May your journeys be fruitful and the rewards acceptable.
~
|
#30912
rick order jagged knife~
Rick~
Rick is here wondering if you wish to join the order of the jagged knife.~
Rick makes his living by accepting contracts with other players of the realm.
He offers his services to the highest bidder, and therefore is quite wealthy.
~
ACT_SENTINEL|ACT_SMART
AFF_DETECT_INVIS|AFF_DETECT_HIDDEN
0 S
99 0 0 1d1+9999 1d1+99
0 0
POS_STANDING POS_STANDING SEX_MALE
>rand_prog 100~
mpmadd self quest 0 3 1
if quest (0,3,$i) == 0
  if quest (3,3,$r) == 0
    say Do you wish to join the order of the jagged knife?
  endif
endif
~
>speech_prog p yes~
say Then say: I wish to join the order of the jagged knife.
~
>speech_prog p no~
mpmset $n quest 3 3 0
mptransfer $n 30901
tell $n See ya later then.
~
>speech_prog p I wish to join the order of the jagged knife.~
if quest (3,3,$n) == 0
  mpmset $n quest 3 3 1
  say Then you must take the oath.  Repeat after me:
  say I swear to uphold the reputation of assassins.
endif
~
>speech_prog p I swear to uphold the reputation of assassins.~
if quest (3,3,$n) == 1
  mpmset $n quest 3 3 2
  say I believe that death is inevitable, and I only help it along.
endif
~
>speech_prog p I believe that death is inevitable, and I only help it along.~
if quest (3,3,$n) == 2
  mpmset $n quest 3 3 3
  say I enjoy the smell of a fresh kill, and the loot awarded for it.
endif
~
>speech_prog p I enjoy the smell of a fresh kill, and the loot awarded for it.~
if quest (3,3,$n) == 3
  mpmset $n quest 3 3 4
  say I will gladly accept payment for something I love to do anyway.
endif
~
>speech_prog p I will gladly accept payment for something I love to do anyway.~
if quest (3,3,$n) != 4
  break
endif
if quest (0,3,$n) != 0
  mplog $n tried to join OJK with wrong quest bit
  frown $n
  mptransfer $n 9755
  break
endif
if isaffected ($n) == spell_blindness
  mplog $n tried to join OJK blinded
  frown $n
  mptransfer $n 9755
  break
endif
mpmset $n quest 0 3 6
if quest (0,3,$n) == 0
  mplog $n tried to join OJK but managed to avoid bits being set.
  ponder $n
  mptransfer $n 9755
  break
endif
mpechoat $n You wear the wrist band from the Order of the Jagged Knife on your wrist.
mpquiet on
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
cast 'remove curse' $n
if level ($n) > 89
  mpoload 30981
  give i30981 $n
  mpforce $n wear i30981
else
  if level ($n) > 69
    mpoload 30980
    give i30980 $n
    mpforce $n wear i30980
  else
    if level ($n) > 49
      mpoload 30979
      give i30979 $n
      mpforce $n wear i30979
    else
      mpoload 30918
      give i30918 $n
      mpforce $n wear i30918
    endif
  endif
endif
mpquiet off
echo {078}$n has taken the oath and joined the Order of the Jagged Knife.
mptransfer $n 30999
mpat 30999 say May your journeys be fruitful and the rewards acceptable.
~
|
#30913
servant holy~
a holy servant~
A holy servant is here.~
The holy servant vaguely resembles an angel.  But there are no wings.
It does however have that mysterious glowing aura about it.
~
ACT_SENTINEL|ACT_SMART
AFF_DETECT_INVIS|AFF_DETECT_HIDDEN|AFF_SANCTUARY
1000 S
40 0 0 1d1+1000 1d40+29
0 0
POS_STANDING POS_STANDING SEX_MALE
>rand_prog 101~
mpmadd self quest 0 5 1
if quest (0,5,$i) == 0
  mpecho The holy servant can stay in your plane no longer.
  mpecho The holy servant vanishes.
  mppurge self
endif
~
>speech_prog p servant, all spells please~
if quest (0,3,$n) == 3
  if position ($n) == 6
    say I cannot fully spell you while you are fighting.
  else
    mpquiet on
    cast 'feast'
    cast 'sanctuary' $n
    cast 'bless' $n
    cast 'giant strength' $n
    cast 'enhanced heal' $n
    cast 'enhanced revive' $n
    cast 'enhanced rest' $n
    cast 'armor' $n
    cast 'shield' $n
    mpquiet off
    say You are fully spelled, $n.
    if quest (0,5,$i) < 25
      mpmadd self quest 0 5 5
    else
      mpmset self quest 0 5 31
    endif
  endif
else
  say I don't take orders from you, $n.
endif
~
>speech_prog p servant, sanctuary please~
if quest (0,3,$n) == 3
  if position ($n) == 6
    say I cannot sanctify you while you are fighting.
  else
    cast 'sanctuary' $n
    if quest (0,5,$i) < 30
      mpmadd self quest 0 5 2
    endif
  endif
else
  say I do not take orders from you, $n.
endif
~
>speech_prog p servant, cure me please~
if quest (0,3,$n) == 3
  if position ($n) == pos_fighting
    say I cannot aid you when you're surrounded by violence.
  else
    mpquiet on
    mpmset self mana 10000
    restore self
    mpquiet off
    cast restore $n
    if quest (0,5,$i) < 20
      mpmadd self quest 0 5 10
    else
      mpmset self quest 0 5 31
    endif
  endif
else
  tell $n I do not take orders from you.
endif
~
>speech_prog p servant, please help~
if quest (0,3,$n) == 3
  if quest (5,1,$i) == 0
    say I can only heal $4 on sanctified grounds.
  else
    mpquiet on
    cast 'sanctuary' $4
    cast 'bless' $4
    cast 'giant strength' $4
    cast 'enhanced heal' $4
    mpquiet off
    say I have done what I can.  I hope it helps.
    if quest (0,5,$i) < 25
      mpmadd self quest 0 5 5
    else
      mpmset self quest 0 5 31
    endif
  endif
else
  tell $n I do not take orders from you.
endif
~
>speech_prog p servant, please stand guard~
if quest (0,3,$n) == 3
  if quest (5,1,$i) == 0
    mpmset self quest 6 1 1
    say I shall do my best ... while my time here remains.
  else
    say I do not have to protect you in a sanctified room.
  endif
else
  say I do not take orders from you, $n.
endif
~
>all_greet_prog 100~
if quest (6,1,self) == 1
  if quest (0,3,$n) == 3
    say Welcome $n, brother of the faith.
  else
    if isevil ($n)
    or quest (0,3,$n) == 4
      if level ($n) > 30
        mpforce $n HELP LWRLIGHTNINGBLAST
        mpkill $n
      endif
    else
      say Greetings, $n.
    endif
  endif
endif
~
>speech_prog p servant, sanctify please~
if quest (0,3,$n) != 3
  say I do not take orders from you $n.
  break
endif
if position ($n) == 6
  say I cannot sanctify while you are fighting.
  break
endif
if position ($r) == 6
  say I cannot sanctify with so much violence surrounding me.
  break
endif
if quest (5,1,$i) == 1
  say This area has already been sanctified.
  break
endif
if quest (6,1,$i) == 1
  say I cannot sanctify and protect at the same time.
  break
endif
cast sanctify
mpquiet on
cast 'change sex' self
cast 'armor' self
mpquiet off
if isaffected ($i) == 82
  say I am afraid I did not succeed $n.
  break
endif
if isaffected ($i) == 1
  say As you wished $n.
  mpmset self quest 5 1 1
else
  say I am afraid I did not succeed $n.
endif
~
|
#30914
serpent winged~
a winged serpent~
A winged serpent is here!~
{118}                                     {048}__
            {048}---+=====\             /{118}\  /{048}\             /====+---
                {028}\    {048}\\            \_  _/            //    {028}/
                 {028}\    {048}\\____________/  \____________//    {028}/
                  {028}\___/ {048}---____              ____--- {028}\___/
                    {028}\      /   {048}\_ {028}---  --- {048}_/   {028}\      /
                     {028}\____/      {048}\ {028}--  -- {048}/      {028}\____/
                         {028}\___     {048}\ {028}-  - {048}/     {028}___/
                             {028}\____{048}/      \{028}____/
                                 {048}/   /\   \
                                {048}/   /  \   \
                                {048}\__/    \__/
                              {038}__/ /      \ \__
                             {038}/----\      /----\{308}
~
ACT_SENTINEL|ACT_SMART|ACT_RACE
AFF_DETECT_INVIS|AFF_DETECT_HIDDEN|AFF_UNDERSTAND|AFF_TONGUES
-1000 S
40 0 0 1d1+1000 1d40+29
0 RACE_PHOENIX
POS_STANDING POS_STANDING SEX_MALE
>rand_prog 100~
mpmadd self quest 0 5 1
if quest (0,5,$i) == 0
  mpecho The winged serpent flies off.
  mppurge self
endif
~
>speech_prog p serpent, get me out of here~
if quest (0,3,$n) == 4
  if isfight ($n)
    if rand (50)
      mpechoat $n {168}The serpent refuses to fly you away.
    else
      mpechoaround $n The winged serpent grips $n by the shoulders and flies off.
      mpechoat $n {168}The winged serpent grips you by the shoulders and flies off.
      mpgorand 1 30900 0 1
      mptransfer $n
      mpechoat $n {008}
      mpechoaround $n A winged serpent carrying $n by the shoulders lands here.
      mpechoat $n {168}The winged serpent lands, drops you off, and then flies away.
      mppurge self
    endif
  else
    say Leave me alone!
    growl $n
  endif
endif
~
>speech_prog p serpent, keep a look out~
if quest (0,3,$n) == 4
  nod $n
  mpmset self quest 5 1 1
else
  say Leave me alone!
  snarl $n
endif
~
>all_greet_prog 100~
if quest (5,1,self) == 1
  if quest (0,3,$n) == 4
    nod $n
  else
    if isgood ($n)
      if level ($n) > 30
        mpforce $n HELP CBLWINGEDSERPENT
        mpkill $n
      endif
    else
      grin $n
    endif
  endif
endif
~
>speech_prog p serpent, follow me~
if quest (0,3,$n) == 4
  if quest (6,1,$i) == 0
    mpmset self quest 6 1 1
    follow $n
  endif
else
  say Leave me alone!
  cackle $n
endif
~
>speech_prog p serpent, give me a blast~
if quest (0,3,$n) == 4
  if isfight ($n)
    say I cannot blast you while you are fighting.
  else
    mpecho The winged serpent rears back and flaps its wings.
    mpquiet on
    cast 'enhanced rest' $n
    cast 'enhanced heal' $n
    cast 'enhanced revive' $n
    cast armor $n
    cast refresh $n
    mpmset self mana 20000
    restore self
    cast 'energy shift' $n
    mpquiet off
    mpechoat $n {168}You feel an incredible blast of energy.
    if quest (0,5,$i) < 20
      mpmadd self quest 0 5 10
    else
      mpmset self quest 0 5 31
    endif
  endif
else
  say Leave me alone!
  spit $n
endif
~
|
#30915
bouncer~
a bouncer~
A bouncer stands here, ready to bounce you.~
You can't see him.  He's ethereal.
~
ACT_SENTINEL|ACT_SMART
AFF_ETHEREAL
0 S
95 0 0 1d1+9999 1d95+93
0 0
POS_STANDING POS_STANDING SEX_NEUTRAL
>all_greet_prog 100~
if quest (0,3,$n) != 1
  mpforce $n HELP GUILDBOUNCE
  mptransfer $n 9728
  tell $n You are not a member of the Adventurer's Guild.
endif
~
>trigger_prog p adv guild upgrade~
if quest (0,3,$n) != 1
  mplog $n tried to upgrade ADV with wrong quest bit
  break
endif
if isaffected ($n) == spell_blindness
  mplog $n tried to upgrade ADV blinded
  break
endif
if hasobjnum ($n) == 30969
  mplog $n tried to upgrade ADV having a lvl 90 wrist band
  break
endif
if hasobjnum ($n) == 30900
or hasobjnum ($n) == 30967
or hasobjnum ($n) == 30968
  mpechoat $n {008}
else
  mplog $n tried to upgrade ADV without having a wrist band
  break
endif
mpjunkperson $n i30900
mpjunkperson $n i30967
mpjunkperson $n i30968
if hasobjnum ($n) == 30900
or hasobjnum ($n) == 30967
or hasobjnum ($n) == 30968
  mplog $n tried to upgrade ADV but mpjunkperson did not work.
  break
else
  mpechoat $n You remove your wrist band.
  mpechoat $n Your guildmaster gives you a new band.
  mpechoat $n {008}
  mpechoat $n You wear the Adventurer's Guild wrist band around your wrist.
endif
mpquiet on
if level ($n) > 89
  mpforce $n mpoload 30969 w
else
  if level ($n) > 69
    mpforce $n mpoload 30968 w
  else
    if level ($n) > 49
      mpforce $n mpoload 30967 w
    else
      mplog $n tried to upgrade ADV before level 50
    endif
  endif
endif
mpquiet off
~
|
#30916
bouncer~
a bouncer~
A bouncer stands here, ready to bounce you.~
You can't see him.  He's ethereal.
~
ACT_SENTINEL|ACT_SMART
AFF_ETHEREAL
0 S
95 0 0 1d1+9999 1d95+93
0 0
POS_STANDING POS_STANDING SEX_NEUTRAL
>all_greet_prog 100~
if quest (0,3,$n) != 2
  mpforce $n HELP GUILDBOUNCE
  mptransfer $n 9748
  tell $n You are not a member of the Survivalist's Guild.
endif
~
>trigger_prog p sur guild upgrade~
if quest (0,3,$n) != 2
  mplog $n tried to upgrade SUR with wrong quest bit
  break
endif
if isaffected ($n) == spell_blindness
  mplog $n tried to upgrade SUR blinded
  break
endif
if hasobjnum ($n) == 30972
  mplog $n tried to upgrade SUR having a lvl 90 wrist band
  break
endif
if hasobjnum ($n) == 30901
or hasobjnum ($n) == 30970
or hasobjnum ($n) == 30971
  mpechoat $n {008}
else
  mplog $n tried to upgrade SUR without having a wrist band
  break
endif
mpjunkperson $n i30901
mpjunkperson $n i30970
mpjunkperson $n i30971
if hasobjnum ($n) == 30901
or hasobjnum ($n) == 30970
or hasobjnum ($n) == 30971
  mplog $n tried to upgrade SUR but mpjunkperson did not work.
  break
else
  mpechoat $n You remove your wrist band.
  mpechoat $n Your guildmaster gives you a new band.
  mpechoat $n {008}
  mpechoat $n You wear the Survivalist's Guild wrist band around your wrist.
endif
mpquiet on
if level ($n) > 89
  mpforce $n mpoload 30972 w
else
  if level ($n) > 69
    mpforce $n mpoload 30971 w
  else
    if level ($n) > 49
      mpforce $n mpoload 30970 w
    else
      mplog $n tried to upgrade SUR before level 50
    endif
  endif
endif
mpquiet off
~
|
#30917
bouncer~
a bouncer~
A bouncer stands here, ready to bounce you.~
You can't see him.  He's ethereal.
~
ACT_SENTINEL|ACT_SMART
AFF_ETHEREAL
0 S
95 0 0 1d1+9999 1d95+93
0 0
POS_STANDING POS_STANDING SEX_NEUTRAL
>all_greet_prog 100~
if quest (0,3,$n) != 3
  mpforce $n HELP GUILDBOUNCE
  mptransfer $n 9724
  tell $n You are not a member of the Order of the White Rose.
endif
~
>trigger_prog p lwr guild upgrade~
if quest (0,3,$n) != 3
  mplog $n tried to upgrade LWR with wrong quest bit
  break
endif
if isaffected ($n) == spell_blindness
  mplog $n tried to upgrade LWR blinded
  break
endif
if hasobjnum ($n) == 30975
  mplog $n tried to upgrade LWR having a lvl 90 ring
  break
endif
if hasobjnum ($n) == 30915
or hasobjnum ($n) == 30973
or hasobjnum ($n) == 30974
  mpechoat $n {008}
else
  mplog $n tried to upgrade LWR without having a wrist band
  break
endif
mpjunkperson $n i30915
mpjunkperson $n i30973
mpjunkperson $n i30974
if hasobjnum ($n) == 30915
or hasobjnum ($n) == 30973
or hasobjnum ($n) == 30974
  mplog $n tried to upgrade LWR but mpjunkperson did not work.
  break
else
  mpechoat $n You remove your wrist band.
  mpechoat $n Your guildmaster gives you a new band.
  mpechoat $n {008}
  mpechoat $n You wear the wrist band from the League of the White Rose around your wrist.
endif
mpquiet on
if level ($n) > 89
  mpforce $n mpoload 30975 w
else
  if level ($n) > 69
    mpforce $n mpoload 30974 w
  else
    if level ($n) > 49
      mpforce $n mpoload 30973 w
    else
      mplog $n tried to upgrade LWR before level 50
    endif
  endif
endif
mpquiet off
~
|
#30918
bouncer~
a bouncer~
A bouncer stands here, ready to bounce you.~
You can't see him.  He's ethereal.
~
ACT_SENTINEL|ACT_SMART
AFF_ETHEREAL
0 S
95 0 0 1d1+9999 1d95+93
0 0
POS_STANDING POS_STANDING SEX_NEUTRAL
>all_greet_prog 100~
if quest (0,3,$n) != 4
  mpforce $n HELP GUILDBOUNCE
  mptransfer $n 9789
  tell $n You are not a member of the Circle of the Black Lotus.
endif
~
>trigger_prog p cbl guild upgrade~
if quest (0,3,$n) != 4
  mplog $n tried to upgrade CBL with wrong quest bit
  break
endif
if isaffected ($n) == spell_blindness
  mplog $n tried to upgrade CBL blinded
  break
endif
if hasobjnum ($n) == 30978
  mplog $n tried to upgrade CBL having a lvl 90 ring
  break
endif
if hasobjnum ($n) == 30916
or hasobjnum ($n) == 30976
or hasobjnum ($n) == 30977
  mpechoat $n {008}
else
  mplog $n tried to upgrade CBL without having a ring
  break
endif
mpjunkperson $n i30916
mpjunkperson $n i30976
mpjunkperson $n i30977
if hasobjnum ($n) == 30916
or hasobjnum ($n) == 30976
or hasobjnum ($n) == 30977
  mplog $n tried to upgrade CBL but mpjunkperson did not work.
  break
else
  mpechoat $n You remove your wrist band.
  mpechoat $n Your guildmaster gives you a new band.
  mpechoat $n {008}
  mpechoat $n You wear the ring from the Circle of the Black Lotus around your finger.
endif
mpquiet on
if level ($n) > 89
  mpforce $n mpoload 30978 w
else
  if level ($n) > 69
    mpforce $n mpoload 30977 w
  else
    if level ($n) > 49
      mpforce $n mpoload 30976 w
    else
      mplog $n tried to upgrade CBL before level 50
    endif
  endif
endif
mpquiet off
~
|
#30919
bouncer~
a bouncer~
A bouncer stands here, ready to bounce you.~
You can't see him.  He's ethereal.
~
ACT_SENTINEL|ACT_SMART
AFF_ETHEREAL
0 S
95 0 0 1d1+9999 1d95+93
0 0
POS_STANDING POS_STANDING SEX_NEUTRAL
>all_greet_prog 100~
if quest (0,3,$n) != 5
  mpforce $n HELP GUILDBOUNCE
  mptransfer $n 9715
  tell $n You are not a member of the Psionicist's Guild.
endif
~
|
#30920
bouncer~
a bouncer~
A bouncer stands here, ready to bounce you.~
Scandum spanked this dude, now he does his job very very well.
~
ACT_SENTINEL|ACT_SMART
AFF_ETHEREAL
0 S
95 0 0 0d0+10000 0d0+100
0 0
POS_STANDING POS_STANDING SEX_NEUTRAL
>all_greet_prog 101~
if quest (0,3,$n) != 6
  mpforce $n HELP GUILDBOUNCE
  mptransfer $n 9755
  tell $n You are not a member of the Order of the Jagged Knife.
endif
~
>trigger_prog p ojk guild upgrade~
if quest (0,3,$n) != 6
  mplog $n tried to upgrade OJK with wrong quest bit
  break
endif
if isaffected ($n) == spell_blindness
  mplog $n tried to upgrade OJK blinded
  break
endif
if hasobjnum ($n) == 30981
  mplog $n tried to upgrade OJK having a lvl 90 wrist band
  break
endif
if hasobjnum ($n) == 30918
or hasobjnum ($n) == 30979
or hasobjnum ($n) == 30980
  mpechoat $n {008}
else
  mplog $n tried to upgrade OJK without having a wrist band
  break
endif
mpjunkperson $n i30918
mpjunkperson $n i30979
mpjunkperson $n i30980
if hasobjnum ($n) == 30918
or hasobjnum ($n) == 30979
or hasobjnum ($n) == 30980
  mplog $n tried to upgrade OJK but mpjunkperson did not work.
  break
else
  mpechoat $n You remove your wrist band.
  mpechoat $n Your guildmaster gives you a new band.
  mpechoat $n {008}
  mpechoat $n You wear the wrist band from the Order of the Jagged Knife around your wrist.
endif
mpquiet on
if level ($n) > 89
  mpforce $n mpoload 30981 w
else
  if level ($n) > 69
    mpforce $n mpoload 30980 w
  else
    if level ($n) > 49
      mpforce $n mpoload 30979 w
    else
      mplog $n tried to upgrade OJK before level 50
    endif
  endif
endif
mpquiet off
~
|
#30921
eleanora secretary~
Eleanora~
Eleanora, the Guild secretary, sits behind her desk here.~
You are captivated by her serene smile and patient eyes.  Eleanora has long,
flaxen hair, falling well below her slim waist.  She is attired in a black suede
doublet and long skirt.
~
ACT_SENTINEL|ACT_SMART
AFF_DETECT_INVIS|AFF_DETECT_HIDDEN
0 S
100 0 0 0d0+10000 1d100+51
0 0
POS_STANDING POS_STANDING SEX_FEMALE
>give_prog i30914~
mpjunk all
if hasobjnum ($n) == 30900
or hasobjnum ($n) == 30967
or hasobjnum ($n) == 30968
or hasobjnum ($n) == 30969
  smile $n
else
  mplog $n tried to redeem a token without an ADV guild band.
  break
endif
if quest (0,3,$n) != 1
  mplog $n tried to redeem a token without ADV quest bits.
  break
endif
if quest (6,7,$n) > 74
  say You've already redeemed 75 tokens $n.
  mplog $n has redeemed 75 ADV tokens.  Are there really 75?
else
  mpmadd $n quest 6 7 1
  say Congratulations $n!
  say You win a spin on the Wheel of Adventure.  Good Luck!
  mpecho {078}The wheel spins for a while... then stops!
  if rand (10)
    mpforce $n HELP WHLADVTHREEPRACS
    say You just won 3 practices!
    mpmadd $n practice 3
    break
  endif
  if rand (5)
    mpforce $n HELP WHLADVFIVEPRACS
    say You just won 5 practices!
    mpmadd $n practice 5
    break
  endif
  if rand (25)
    if level ($n) < 95
      mpforce $n HELP WHLADVEXP
      say You just won 1 million experience points!
      mpmadd $n exp 1000000
      break
    endif
  endif
  if rand (15)
    mpforce $n HELP WHLADVSUPERWEAPON
    say You just won a temporary super-weapon!
    mpoload 30990
    mpat 30975 mpaset i30990 dam 40
    mpat 30975 mpaset i30990 hit 40
    mpat 30975 mpaset i30990 ac -40
    mpat 30975 mposet i30990 timer 60
    give i30990 $n
    mpforce $n look weapon
    mpmset self quest 0 1 0
    break
  endif
  if rand (50)
    mpforce $n HELP WHLADVJACKPOT
    say You just won 10 million gold coins!
    mpmadd $n gold 10000000
    break
  endif
  if rand (50)
    mpforce $n HELP WHLADVLOTSGOLD
    say You just won 5 million gold coins!
    mpmadd $n gold 5000000
    break
  endif
  if rand (75)
    mpforce $n HELP WHLADVLITTLEGOLD
    say You just won 1 million gold coins!
    mpmadd $n gold 1000000
    break
  endif
  if rand (75)
    mpforce $n HELP WHLADVTEMPHP
    say You just won 100 temporary hit points!
    mpmadd $n hp 100
    break
  endif
  mpforce $n HELP WHLADVDEATH
  say You won a 1-way ticket to hell.
  mpquiet on
  mpmadd $n currhp -30000
  slaughter $n
  mpquiet off
endif
~
|
#30922
brown bear M30922~
a brown bear~
A brown bear is here.~
It is a shaggy brown bear that follows you out of practicality.
~
ACT_SENTINEL|ACT_BODY|ACT_RACE
AFF_DETECT_INVIS|AFF_DETECT_HIDDEN
0 S
20 BODY_MOUTH|BODY_CLAW BODY_MOUTH|BODY_CLAW 1d100+182 1d40+1
0 RACE_DARKELF
POS_STANDING POS_STANDING SEX_NEUTRAL
>rand_prog 100~
mpmadd self quest 0 1 1
if quest (0,1,$i) == 0
  mplog Something went wrong with the survivalist bear program
endif
~
|
#30950
etherealSurvivalist~
the ethereal survivalist~
The ethereal survivalist.~
~
ACT_SENTINEL
AFF_ETHEREAL
0 S
100 0 0 0d0+10000 1d100+51
0 0
POS_STANDING POS_STANDING SEX_NEUTRAL
>act_prog p orders a survivalist guild bear.~
mpmload 30922
mpquiet on
mpforce $n cast illusion M30922
mpquiet off
mppurge M30922
if existsroom (M30922@)
  mpmset M30922@ name brown bear M30922$n
  mpechoat $n {168}You find a brown bear to join you.
else
  mpechoat $n You already have a companion.
endif
~
>act_prog p orders a survivalist healing salve cure.~
mpgoto $n
if isaffected ($n) == 4
  mpquiet on
  cast 'cure blindness' $n
  mpquiet off
  if isaffected ($n) == 4
  else
    mpechoat $n {168}Your vision returns as the healing salve cures your blindness.
  endif
endif
if isaffected ($n) == 17
  mpquiet on
  cast 'remove curse' $n
  mpquiet off
  if isaffected ($n) == 17
  else
    mpechoat $n {168}You feel better as the healing salve lifts your curse.
  endif
endif
if isaffected ($n) == 33
  mpquiet on
  cast 'cure poison' $n
  mpquiet off
  if isaffected ($n) == 33
  else
    mpechoat $n {168}A warm feeling runs through your body as the healing salve cures your poison.
  endif
endif
mpgoto 30975
~
|
#30951
etherealJaggedKnife~
the ethereal jagged knife~
The ethereal jagged knife.~
~
ACT_SENTINEL
AFF_ETHEREAL
0 S
100 0 0 0d0+10000 1d100+51
0 0
POS_STANDING POS_STANDING SEX_NEUTRAL
>act_prog p orders ojk construct 1 dam.~
mpmset self quest 0 4 1
~
>act_prog p orders ojk construct 2 dam.~
mpmset self quest 0 4 2
~
>act_prog p orders ojk construct 3 dam.~
mpmset self quest 0 4 3
~
>act_prog p orders ojk construct 4 dam.~
mpmset self quest 0 4 4
~
>act_prog p orders ojk construct 5 dam.~
mpmset self quest 0 4 5
~
>act_prog p orders ojk construct 6 dam.~
mpmset self quest 0 4 6
~
>act_prog p orders ojk construct 7 dam.~
mpmset self quest 0 4 7
~
>act_prog p orders ojk construct 8 dam.~
mpmset self quest 0 4 8
~
>act_prog p orders ojk construct 9 dam.~
mpmset self quest 0 4 9
~
>act_prog p orders ojk construct 10 dam.~
mpmset self quest 0 4 10
~
>act_prog p orders ojk construct~
mpjunk all
if quest (0,3,$n) != 6
  mplog $n tried to construct ojk knife with wrong quest bits.
  break
endif
if isaffected ($n) == 4
  mpechoat $n {168}You start fucking around totally blinded with the something like a moron.
  mpechoat $n {118}SH!T!! You cut yourself with the something!
  mpmadd $n currhp -500
  mpechoat $n {168}You do something with the something.
  mpechoat $n {008}
  mpechoat $n {168}You smile broadly as you press the something real hard against your something and notice it hurts something a little bit.
  mpecho Someone mutters something about idiots in the distance.
  mpoload 30951
  mpquiet on
  cast 'remove curse'
  give i30951 $n
  mpquiet off
  break
endif
if isaffected ($n) == 68
  mpechoat $n {168}You weakly construct the weapon.
  mpechoat $n {008}
  mpechoat $n {168}You weakly add some damage to the weapon.
  mpoload 30951
  mpquiet on
  cast 'remove curse'
  give i30951 $n
  mpquiet off
  mpforce $n look i30951
  break
endif
if hasobjnum ($n) == 30918
  mpechoat $n {168}You quickly construct the weapon.
  mpoload 30952
else
  if hasobjnum ($n) == 30979
    mpechoat $n {168}You carefully construct the weapon.
    mpoload 30953
  else
    if hasobjnum ($n) == 30980
      mpechoat $n {168}You expertly construct the weapon.
      mpoload 30954
    else
      if hasobjnum ($n) == 30981
        mpechoat $n {168}You masterfully construct the weapon.
        mpoload 30955
      else
        break
      endif
    endif
  endif
endif
mpechoat $n {008}
if quest (0,4,$i) == 1
  mpechoat $n {168}You clumsily add some damage to the weapon.
  mpaset jaggedknife dam 1
else
  if quest (0,4,$i) == 2
    mpaset jaggedknife dam 2
    mpechoat $n {168}You awkwardly add some damage to the weapon.
  else
    if quest (0,4,$i) == 3
      mpaset jaggedknife dam 3
      mpechoat $n {168}You hastily add some damage to the weapon.
    else
      if quest (0,4,$i) == 4
        mpaset jaggedknife dam 4
        mpechoat $n {168}You quickly add some damage to the weapon.
      else
        if quest (0,4,$i) == 5
          mpaset jaggedknife dam 5
          mpechoat $n {168}You slowly add some damage to the weapon.
        else
          if quest (0,4,$i) == 6
            mpaset jaggedknife dam 6
            mpechoat $n {168}You carefully add some damage to the weapon.
          else
            if quest (0,4,$i) == 7
              mpaset jaggedknife dam 7
              mpechoat $n {168}You delicately add some damage to the weapon.
            else
              if quest (0,4,$i) == 8
                mpaset jaggedknife dam 8
                mpechoat $n {168}You cautiously add some damage to the weapon.
              else
                if quest (0,4,$i) == 9
                  mpaset jaggedknife dam 9
                  mpechoat $n {168}You expertly add some damage to the weapon.
                else
                  if quest (0,4,$i) == 10
                    mpaset jaggedknife dam 10
                    mpechoat $n {168}You masterfully add some damage to the weapon.
                  else
                    break
                  endif
                endif
              endif
            endif
          endif
        endif
      endif
    endif
  endif
endif
mpquiet on
cast 'remove curse' 
give jaggedknife $n
mpquiet off
if hasobjnum ($n) == 30952
or hasobjnum ($n) == 30953
or hasobjnum ($n) == 30954
or hasobjnum ($n) == 30955
  mpforce $n look jaggedknife
else
  mplog $n succeeded in freeloading a jagged knife.
endif
~
|
#30962
gisbourne~
Gisbourne~
Gisbourne looks up as you enter.~
He is long and lean, with the look of a sleek wolf.  He has dark brown eyes,
sharp with intelligence, and dark brown hair, parted in the middle and falling
to his shoulders.  He wears a dark goatee, closely trimmed, and richly
embroidered clothes cover his spare frame.
~
ACT_SENTINEL|ACT_SMART
0
0 S
150 0 0 1d5625+14072 1d150+114
0 0
POS_STANDING POS_STANDING SEX_MALE
>greet_prog 100~
if hasobjnum ($n) == 25
  emote smiles wickedly.
  say Well done, my friend!
  pat $n.
  say Hand over your prize!
~
>give_prog head~
if number ($o) == 25
  if gold ($o) > 0
    emote pulls out a large box of coins and fingers through it.
    mpechoat $n $I gives you $x gold coins.
    mpechoaround $n $I gives $N $x gold coins.
    mpmadd $n money $x
    say There you go.  Money earned for a job well done!
    grin 
    say I'm sure we'll meet again .... one way or another.
    wink $n
  else
    mpjunk all
  endif
else
  frown $n
  say There is no bounty on this head.
  give head $n
~
|
#30975
controller M30975~
the controller~
The controller of the guild halls stands here.~
You see a weirdo punk who pretends to be a smart ass.
~
ACT_SENTINEL
AFF_DETECT_INVIS|AFF_DETECT_HIDDEN|AFF_SNEAK
0 S
100 0 0 0d0+10000 1d100+51
0 0
POS_STANDING POS_STANDING SEX_NEUTRAL
#30999
storm psionicstorm M30999~
a psionic storm~
A psionic storm is brewing here.~
The psionic storm seems to be growing in size and power.  It would be wise
to evacuate the room as soon as possible.
~
ACT_SENTINEL|ACT_SMART|ACT_ONE_FIGHT
AFF_DETECT_INVIS|AFF_DETECT_HIDDEN
0 S
50 0 0 1d625+1947 1d85+15
0 0
POS_STANDING POS_STANDING SEX_NEUTRAL
>rand_prog 100~
mpmadd self quest 0 3 1
if quest (0,3,$i) == 7
  mpecho It would be wise to leave before the storm erupts.
  break
endif
if quest (0,3,$i) == 0
  if rand (50)
    if level ($r) < 65
      mpechoaround $r The psionic storm hurls $r across the realm!
      mpechoat $r {168}The psionic storm hurls you across the realm!
      mpquiet on
      cast 'chill touch' $r
      cast 'curse' $r
      cast 'stability' $r
      mpquiet off
      mpgorand 17000 17725 0 1
      mptransfer $r
      mpforce $r look
      mppurge self
    else
      mpecho The psionic storm rains fireballs!
      mpquiet on
      cast earthquake
      cast earthquake
      cast earthquake
      cast earthquake
      mpquiet off
      mppurge self
    endif
    break
  endif
  mpecho The psionic storm grows in intensity.
~
>fight_prog 100~
if quest (3,1,$i) == 0
  mpmset self quest 3 1 1
  rescale 30999 $n 100
  mpmset self name psionic storm
endif
if hasobjnum ($n) == 30917
  mpecho The psionic storm vanishes.
  mppurge self
endif
~
|
#0


#SHOPS
0


#SPECIALS
S


#OBJECTS
#30900
band wristband adventurer~
an Adventurer's Guild wrist band~
A highly decorated wrist band rests here.~
{078}
 'To kill is to live life to the fullest,
  to live a full life includes love,
  to love is to give your heart away,
  to give away your heart is to tempt death,
  to die is the ultimate adventure.'
{308}
Commands: Upgrade
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_WRIST
6 0 0 0 0 0 0 0
1 10 20
A APPLY_HITROLL 3 0
A APPLY_DAMROLL 3 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 3
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the Adventurer's Guild wrist band.~
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 10
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 10
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MANA 10
P 10
TRIG_UNKNOWN 100 UPGRADE
OPROG_IF OIF_USER_LEVEL > 49 11 14
P 11
TRIG_VOID
OPROG_IF OIF_USER_ROOM_NUM = 30910 12 15
P 12
TRIG_VOID
OPROG_IF OIF_USER_POSITION > POS_SLEEPING 13 16
P 13
TRIG_VOID
OPROG_GOD_COMMAND
mptrigger bouncer adv guild upgrade~
P 14
TRIG_VOID
OPROG_ECHO
You are not powerful enough to upgrade your guild band yet.~
P 15
TRIG_VOID
OPROG_ECHO
You must be in your guildhall to upgrade your guild band.~
P 16
TRIG_VOID
OPROG_ECHO
You have a beautiful dream about upgrading your guild band.~
#30901
band wristband survivalist~
a Survivalist's Guild wrist band~
A highly decorated band rests here.~
{078}
 'The land provides everything for survival,
  survival is the key to life,
  life is the reason of our existence,
  our existence is our gift to the land.'
{068}
Commands: Companion, Find, Forage, Locate, Purify, Prepare, Upgrade, /
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_WRIST
8 0 0 0 0 0 0 0
1 10 25
A APPLY_DEX 2 0
A APPLY_CON 2 0
A APPLY_DAMROLL 2 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 45
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the Survivalist's Guild wrist band.~
P 6
TRIG_UNKNOWN 100 LOCATE
OPROG_IF OIF_USER_PERCENT_MOVE < 25 48 7
P 7
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -100
P 7
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_FIELD 9 8
P 8
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_MOUNTAIN 9 10
P 9
TRIG_VOID
OPROG_ECHO
There don't seem to be any animals around here.~
P 10
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT < 50 11 14
P 11
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT > 25 12 15
P 12
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT > 33 13 16
P 13
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT > 50 17 18
P 14
TRIG_VOID
OPROG_ECHO
You search for a while, but don't locate anything.~
P 15
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30900
mpechoaround self $I manages to locate a rabbit!
mpechoat self You locate a rabbit!~
P 16
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30901 
mpechoaround self $I manages to locate a quail!
mpechoat self You locate a quail!~
P 17
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30902 
mpechoaround self $I manages to find a deer!
mpechoat self You find a deer!~
P 18
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30903
mpechoaround self $I manages to track down a moose!
mpechoat self You track down a moose!~
P 21
TRIG_UNKNOWN 100 FIND
OPROG_IF OIF_USER_PERCENT_MOVE < 5 48 22
P 22
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -25
P 22
TRIG_VOID
OPROG_IF OIF_USER_SECTOR ! SECT_LAKE 23 28
P 23
TRIG_VOID
OPROG_IF OIF_USER_SECTOR ! SECT_OCEAN 24 28
P 24
TRIG_VOID
OPROG_IF OIF_USER_SECTOR ! SECT_UNDER_WATER 25 28
P 25
TRIG_VOID
OPROG_IF OIF_WEATHER < 2 26 28
P 26
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT > 10 27 28
P 27
TRIG_VOID
OPROG_ECHO
You look for some time, but can't find any water.~
P 28
TRIG_VOID
OPROG_GOD_COMMAND
mpoload 30902
mpechoat self You find some water, but it needs purification.~
P 29
TRIG_UNKNOWN 100 PURIFY
OPROG_IF OIF_USER_PERCENT_MOVE < 5 48 30
P 30
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -10
P 30
TRIG_VOID
OPROG_IF_HAS_OBJECT 30902 31 32
P 31
TRIG_VOID
OPROG_GOD_COMMAND
mpjunk i30902
mpoload 30903
mpechoat self You purify a flask of unclean water.~
P 32
TRIG_VOID
OPROG_ECHO
You have no water that needs purification.~
P 33
TRIG_COMMAND 100 forage
OPROG_IF OIF_USER_PERCENT_MOVE < 5 48 34
P 34
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -50
P 34
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_FIELD 36 35
P 35
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_MOUNTAIN 36 37
P 36
TRIG_VOID
OPROG_ECHO
There are no herbs near here.~
P 37
TRIG_VOID
OPROG_GOD_COMMAND
mpoload 30904 
mpechoat self You find some herbs.~
P 38
TRIG_UNKNOWN 100 PREPARE
OPROG_IF OIF_USER_PERCENT_MOVE < 5 48 39
P 39
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -50
P 39
TRIG_VOID
OPROG_IF_HAS_OBJECT 30903 41 40
P 40
TRIG_VOID
OPROG_ECHO
You need purified water to prepare the salve.~
P 41
TRIG_VOID
OPROG_IF_HAS_OBJECT 30904 43 42
P 42
TRIG_VOID
OPROG_ECHO
You need some herbs to prepare the salve.~
P 43
TRIG_VOID
OPROG_GOD_COMMAND
mpjunk i30903
mpjunk i30904
mpoload 30905
mpechoat self You prepare a vial of healing salve.~
P 45
TRIG_VOID
OPROG_IF OIF_USER_SECTOR = SECT_INSIDE 46 47
P 46
TRIG_VOID
OPROG_ECHO
You're feeling claustrophobic indoors.~
P 47
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 100
P 47
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 50
P 47
TRIG_VOID
OPROG_APPLY OAPPLY_MANA 25
P 47
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 > 0 69 0
P 48
TRIG_VOID
OPROG_ECHO
You are too exhausted.~
P 51
TRIG_UNKNOWN 100 UPGRADE
OPROG_IF OIF_USER_LEVEL > 49 52 55
P 52
TRIG_VOID
OPROG_IF OIF_USER_ROOM_NUM = 30920 53 56
P 53
TRIG_VOID
OPROG_IF OIF_USER_POSITION > POS_SLEEPING 54 57
P 54
TRIG_VOID
OPROG_GOD_COMMAND
mptrigger bouncer sur guild upgrade~
P 55
TRIG_VOID
OPROG_ECHO
You are not powerful enough to upgrade your guild band yet.~
P 56
TRIG_VOID
OPROG_ECHO
You must be in your guildhall to upgrade your guild band.~
P 57
TRIG_VOID
OPROG_ECHO
You have a beautiful dream about upgrading your guild band.~
P 60
TRIG_UNKNOWN 100 COMPANION
OPROG_IF OIF_USER_POSITION = POS_FIGHTING 61 62
P 61
TRIG_VOID
OPROG_ECHO
You cannot search for a companion while fighting!~
P 62
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_FIELD 72 63
P 63
TRIG_VOID
OPROG_IF OIF_USER_SECTOR > SECT_MOUNTAIN 72 64
P 64
TRIG_VOID
OPROG_IF OIF_USER_PERCENT_MOVE < 40 65 66
P 65
TRIG_VOID
OPROG_ECHO
You are too exhausted to search for a companion.~
P 66
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 ! 0 67 68
P 67
TRIG_VOID
OPROG_ECHO
It has not been long enough since you had a companion.~
P 68
TRIG_VOID
OPROG_QUEST_SET 0 5 30
P 68
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -250
P 68
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $I orders a survivalist guild bear.
mptransfer M30922$i
mpechoaround self $I finds a brown bear.~
P 69
TRIG_VOID
OPROG_QUEST_ADD 0 5 -1
P 69
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 = 0 70 0
P 70
TRIG_VOID
OPROG_ECHO
You feel it has been long enough without companionship.~
P 72
TRIG_VOID
OPROG_ECHO
You cannot even find the slightest track of wildlife here.~
P 75
TRIG_COMMAND 101 /
OPROG_GOD_COMMAND
cast 'word of recall'~
#30902
flask water~
a flask of unclean water~
A flask of unclean water lies on the ground here.~
The water in this flask needs purified.
~
ITEM_TYPE_DRINK_CON
0
ITEM_WEAR_TAKE
3 3 LIQ_WATER 0 0 0 0 0
3 10 1
#30903
flask water~
a flask of purified water~
A flask of purified water lies on the ground here.~
The water in this flask has been purified.
~
ITEM_TYPE_DRINK_CON
0
ITEM_WEAR_TAKE
3 3 LIQ_WATER 0 0 0 0 0
3 100 1
#30904
herbs~
some herbs~
Some herbs lie on the ground here, getting trampled.~
These herbs seem to have a medicinal quality.
~
ITEM_TYPE_FOOD
0
ITEM_WEAR_TAKE
1 0 0 0 0 0 0 0
2 10 1
#30905
salve healing vial~
a vial of healing salve~
A vial of healing salve lies on the ground here.~
This vial can be 'USE'd to heal wounds and cure diseases.
~
ITEM_TYPE_POTION
ITEM_FLAG_MAGIC
ITEM_WEAR_TAKE
1 -1 -1 -1 0 0 0 0
4 100 1
P 1
TRIG_UNKNOWN 100 use
OPROG_IF OIF_USER_POSITION = POS_FIGHTING 2 3
P 2
TRIG_VOID
OPROG_ECHO
Your vial breaks during the battle.~
P 2
TRIG_VOID
OPROG_JUNK
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 100
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 50
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MANA 25
P 3
TRIG_VOID
OPROG_GOD_COMMAND
mpechoaround self $I uses a vial of healing salve.
mpechoat self The salve replenishes your energy.
mpat 30975 mpechoaround self $I orders a survivalist healing salve cure.~
P 3
TRIG_VOID
OPROG_JUNK
#30906
steak rabbit~
a rabbit steak~
A rabbit steak lies on the ground here.~
It looks edible.
~
ITEM_TYPE_FOOD
0
ITEM_WEAR_TAKE
12 0 0 0 0 0 0 0
1 10 1
#30907
steak quail~
a quail steak~
A quail steak lies on the ground here.~
It looks edible.
~
ITEM_TYPE_FOOD
0
ITEM_WEAR_TAKE
18 0 0 0 0 0 0 0
2 20 1
#30908
steak deer~
a deer steak~
A deer steak lies on the ground here.~
It looks edible.
~
ITEM_TYPE_FOOD
0
ITEM_WEAR_TAKE
24 0 0 0 0 0 0 0
3 25 1
#30909
steak moose~
a moose steak~
A moose steak lies on the ground here.~
It looks edible.
~
ITEM_TYPE_FOOD
0
ITEM_WEAR_TAKE
24 0 0 0 0 0 0 0
4 30 1
#30910
ticket league white rose~
a ticket~
A ticket into the league of the white rose lies here.~
~
ITEM_TYPE_TRASH
ITEM_FLAG_NODROP|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE
0 0 0 0 0 0 0 0
1 10 1
P 1
TRIG_TICK 100
OPROG_IF OIF_USER_ALIGNMENT < -350 2 3
P 2
TRIG_VOID
OPROG_ECHO
You have an evil alignment.  You cannot join the league yet.~
P 2
TRIG_VOID
OPROG_JUNK
P 3
TRIG_VOID
OPROG_IF OIF_USER_ROOM_NUM ! 30901 4 5
P 4
TRIG_VOID
OPROG_ECHO
You are not in the guild hallway.~
P 4
TRIG_VOID
OPROG_JUNK
P 5
TRIG_VOID
OPROG_IF OIF_MCLASS_SHAMAN < 30 6 7
P 6
TRIG_VOID
OPROG_ECHO
You must have at least 30 levels in the shaman class.~
P 6
TRIG_VOID
OPROG_JUNK
P 7
TRIG_VOID
OPROG_GOD_COMMAND
mpgoto 30904
look~
P 7
TRIG_VOID
OPROG_JUNK
#30911
ticket circle black lotus~
a ticket~
A ticket into the circle of the black lotus lies here.~
~
ITEM_TYPE_TRASH
ITEM_FLAG_NODROP|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE
0 0 0 0 0 0 0 0
1 10 1
P 1
TRIG_TICK 100
OPROG_IF OIF_USER_ALIGNMENT > -350 2 3
P 2
TRIG_VOID
OPROG_ECHO
You are not evil.  You cannot join the circle yet.~
P 2
TRIG_VOID
OPROG_JUNK
P 3
TRIG_VOID
OPROG_IF OIF_MCLASS_WARLOCK < 30 4 19
P 4
TRIG_VOID
OPROG_IF OIF_MCLASS_SORCERER < 30 5 19
P 5
TRIG_VOID
OPROG_IF OIF_MCLASS_DRUID < 30 6 19
P 6
TRIG_VOID
OPROG_IF OIF_MCLASS_WARLOCK < 20 9 7
P 7
TRIG_VOID
OPROG_IF OIF_MCLASS_SORCERER < 10 8 19
P 8
TRIG_VOID
OPROG_IF OIF_MCLASS_DRUID < 10 18 19
P 9
TRIG_VOID
OPROG_IF OIF_MCLASS_SORCERER < 20 12 10
P 10
TRIG_VOID
OPROG_IF OIF_MCLASS_WARLOCK < 10 11 19
P 11
TRIG_VOID
OPROG_IF OIF_MCLASS_DRUID < 10 18 19
P 12
TRIG_VOID
OPROG_IF OIF_MCLASS_DRUID < 20 15 13
P 13
TRIG_VOID
OPROG_IF OIF_MCLASS_WARLOCK < 10 14 19
P 14
TRIG_VOID
OPROG_IF OIF_MCLASS_SORCERER < 10 18 19
P 15
TRIG_VOID
OPROG_IF OIF_MCLASS_DRUID < 10 18 16
P 16
TRIG_VOID
OPROG_IF OIF_MCLASS_WARLOCK < 10 18 17
P 17
TRIG_VOID
OPROG_IF OIF_MCLASS_SORCERER < 10 18 19
P 18
TRIG_VOID
OPROG_ECHO
You do not have a combined total of 30 levels in the dru/sor/wlc classes.~
P 18
TRIG_VOID
OPROG_JUNK
P 19
TRIG_VOID
OPROG_IF OIF_USER_ROOM_NUM ! 30901 20 21
P 20
TRIG_VOID
OPROG_ECHO
You are not in the guild hallway.~
P 20
TRIG_VOID
OPROG_JUNK
P 21
TRIG_VOID
OPROG_GOD_COMMAND
mpgoto 30905
look~
P 21
TRIG_VOID
OPROG_JUNK
#30913
ticket order jagged knife~
a ticket~
A ticket into the order of the jagged knife lies here.~
~
ITEM_TYPE_TRASH
ITEM_FLAG_NODROP|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE
0 0 0 0 0 0 0 0
1 10 1
P 1
TRIG_TICK 100
OPROG_IF OIF_MCLASS_NINJA < 30 2 8
P 2
TRIG_VOID
OPROG_IF OIF_MCLASS_MARAUDER < 30 3 8
P 3
TRIG_VOID
OPROG_IF OIF_MCLASS_NINJA < 20 5 4
P 4
TRIG_VOID
OPROG_IF OIF_MCLASS_MARAUDER < 10 5 8
P 5
TRIG_VOID
OPROG_IF OIF_MCLASS_MARAUDER < 20 7 6
P 6
TRIG_VOID
OPROG_IF OIF_MCLASS_NINJA < 10 7 8
P 7
TRIG_VOID
OPROG_ECHO
You do not have a combined total of 30 levels in the nin/mar classes.~
P 7
TRIG_VOID
OPROG_JUNK
P 8
TRIG_VOID
OPROG_IF OIF_USER_ROOM_NUM ! 30901 9 10
P 9
TRIG_VOID
OPROG_ECHO
You are not in the guild hallway.~
P 9
TRIG_VOID
OPROG_JUNK
P 10
TRIG_VOID
OPROG_GOD_COMMAND
mpgoto 30907
look~
P 10
TRIG_VOID
OPROG_JUNK
#30914
token adventurer~
an adventurer's guild token~
A small hexagonal token lies on the ground here.~
The token:
                                   {128}   _____
                                   {128}  / {178}___ {128}\
                                   {128} / {178}/   \ {128}\
                                   {128}/ {178}/ {138}A   {178}\ {128}\
                                   {128}\ {178}\   {138}G {178}/ {128}/
                                   {128} \ {178}\___/ {128}/
                                   {128}  \_____/{308}
~
ITEM_TYPE_TREASURE
ITEM_FLAG_MAGIC
ITEM_WEAR_TAKE
0 0 0 0 0 0 0 0
1 10 1
#30915
ring league white rose~
a ring from the League of the White Rose~
A highly decorated ring rests here.~
{078}
 'All good lives are sacred,
  all sacred lives should endure,
  all enduring lives, if dedicated to good, are friends,
  all friends will be protected at any cost.'
{068}
Commands: Cure, Friend, Guard, Sanctify, Sanctuary, Servant, Spells, Upgrade
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_FINGER|ITEM_WEAR_WRIST
5 0 0 0 0 0 0 0
1 10 30
A APPLY_DAMROLL 3 0
A APPLY_MANA 50 0
A APPLY_INT 3 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 3
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the ring from the League of the White Rose.~
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 10
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 10
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MANA 100
P 3
TRIG_VOID
OPROG_IF OIF_USER_ALIGNMENT < -349 26 4
P 4
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 > 0 5 0
P 5
TRIG_VOID
OPROG_QUEST_ADD 0 5 -1
P 5
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 = 0 6 0
P 6
TRIG_VOID
OPROG_ECHO
You are able to call upon a holy servant now.~
P 7
TRIG_UNKNOWN 100 SERVANT
OPROG_IF OIF_USER_PERCENT_MANA < 20 8 9
P 8
TRIG_VOID
OPROG_ECHO
You do not have enough mana to call upon the servant.~
P 9
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 ! 0 10 11
P 10
TRIG_VOID
OPROG_ECHO
The holy servant has not recovered from it's last visit.~
P 11
TRIG_VOID
OPROG_QUEST_SET 0 5 30
P 11
TRIG_VOID
OPROG_APPLY OAPPLY_MANA -200
P 11
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30913 
mpechoat self You call upon the aid of a holy servant. 
mpechoaround self $I calls upon the aid of a holy servant.~
P 20
TRIG_UNKNOWN 100 GUARD
OPROG_GOD_COMMAND
say Servant, please stand guard~
P 21
TRIG_UNKNOWN 100 cure
OPROG_GOD_COMMAND
say Servant, cure me please~
P 22
TRIG_UNKNOWN 100 sanctuary
OPROG_GOD_COMMAND
say Servant, sanctuary please~
P 23
TRIG_UNKNOWN 100 spells
OPROG_GOD_COMMAND
say Servant, all spells please~
P 24
TRIG_UNKNOWN 100 friend
OPROG_GOD_ARGUMENT
say Servant, please help~
P 26
TRIG_VOID
OPROG_IF OIF_USER_PERCENT_HITPT > 30 27 0
P 27
TRIG_VOID
OPROG_ECHO
Your alignment is evil!~
P 27
TRIG_VOID
OPROG_APPLY OAPPLY_HIT -50
P 28
TRIG_UNKNOWN 100 sanctify
OPROG_GOD_COMMAND
say Servant, sanctify please~
P 29
TRIG_UNKNOWN 100 UPGRADE
OPROG_IF OIF_USER_LEVEL > 49 30 33
P 30
TRIG_VOID
OPROG_IF OIF_USER_ROOM_NUM = 30930 31 34
P 31
TRIG_VOID
OPROG_IF OIF_USER_POSITION > POS_SLEEPING 32 35
P 32
TRIG_VOID
OPROG_GOD_COMMAND
mptrigger bouncer lwr guild upgrade~
P 33
TRIG_VOID
OPROG_ECHO
You are not powerful enough to upgrade your guild ring yet.~
P 34
TRIG_VOID
OPROG_ECHO
You must be in your guildhall to upgrade.~
P 35
TRIG_VOID
OPROG_ECHO
You have a beautiful dream about upgrading your guild ring.~
#30916
ring circle black lotus~
a ring from the Circle of the Black Lotus~
A highly decorated ring rests here.~
{078}
   'All there is exist for a purpose,
    all purposes lead toward darkness,
    all darkness will overcome good,
    all good shall be destroyed.'
{068}
Command: Serpent, Blast, Watch, Away, Team, Upgrade
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_FINGER|ITEM_WEAR_WRIST
7 0 0 0 0 0 0 0
1 10 30
A APPLY_SAVING_SPELL -3 0
A APPLY_INT 3 0
A APPLY_HIT 30 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 4
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the ring from the Circle of the Black Lotus.~
P 4
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 25
P 4
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 10
P 4
TRIG_VOID
OPROG_APPLY OAPPLY_MANA 75
P 4
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 > 0 5 25
P 5
TRIG_VOID
OPROG_QUEST_ADD 0 5 -1
P 5
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 = 0 28 25
P 7
TRIG_UNKNOWN 100 serpent
OPROG_IF OIF_USER_PERCENT_MANA < 20 8 9
P 8
TRIG_VOID
OPROG_ECHO
You do not have enough mana to summon the serpent.~
P 9
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 ! 0 10 11
P 10
TRIG_VOID
OPROG_ECHO
The winged serpent is too far away to summon.~
P 11
TRIG_VOID
OPROG_QUEST_SET 0 5 30
P 11
TRIG_VOID
OPROG_APPLY OAPPLY_MANA -200
P 11
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30914
mpechoat self You summon winged serpent to assist you.
mpechoaround self $I summons a winged serpent.~
P 20
TRIG_UNKNOWN 100 watch
OPROG_GOD_COMMAND
say Serpent, keep a look out~
P 21
TRIG_UNKNOWN 100 blast
OPROG_GOD_COMMAND
say Serpent, give me a blast~
P 22
TRIG_UNKNOWN 100 away
OPROG_GOD_COMMAND
say Serpent, get me out of here~
P 23
TRIG_UNKNOWN 100 team
OPROG_GOD_COMMAND
say Serpent, follow me~
P 25
TRIG_TICK 99
OPROG_IF OIF_USER_ALIGNMENT > -350 26 0
P 26
TRIG_VOID
OPROG_IF OIF_USER_PERCENT_HITPT > 30 27 0
P 27
TRIG_VOID
OPROG_ECHO
Your alignment is not evil!~
P 27
TRIG_VOID
OPROG_APPLY OAPPLY_HIT -50
P 28
TRIG_VOID
OPROG_ECHO
The serpent is ready to be summoned.~
P 30
TRIG_UNKNOWN 100 UPGRADE
OPROG_IF OIF_USER_LEVEL > 49 31 34
P 31
TRIG_VOID
OPROG_IF OIF_USER_ROOM_NUM = 30940 32 35
P 32
TRIG_VOID
OPROG_IF OIF_USER_POSITION > POS_SLEEPING 33 36
P 33
TRIG_VOID
OPROG_GOD_COMMAND
mptrigger bouncer cbl guild upgrade~
P 34
TRIG_VOID
OPROG_ECHO
You are not powerful enough to upgrade your guild ring yet.~
P 35
TRIG_VOID
OPROG_ECHO
You must be in your guildhall to upgrade.~
P 36
TRIG_VOID
OPROG_ECHO
You have a beautiful dream about upgrading your guild ring.~
#30917
ring psionicist~
a Psionicist's ring~
A highly decorated ring rests here.~
The Psionicist's Guild Motto:
{078}
 'The mind can do anything and everything,
  time and space are ours to command,
  life and death obey our laws,
  ultimate intellect for ultimate power.
{068}
Commands: Psi-check, Gate, Meditate, Regenerate, Storm, Strike, Wall
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_FINGER|ITEM_WEAR_WRIST
10 0 0 0 0 0 0 0
1 10 65
A APPLY_HIT 50 0
A APPLY_STR 3 0
A APPLY_INT 3 0
P 1
TRIG_TICK 50
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 4
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the Psionicist's ring.~
P 4
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 5
P 4
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 5
P 4
TRIG_VOID
OPROG_APPLY OAPPLY_MANA 5
P 4
TRIG_VOID
OPROG_OBJECT_QUEST_IF 7 2 ! 0 7 12
P 7
TRIG_VOID
OPROG_IF OIF_USER_POSITION = POS_RESTING 8 9
P 8
TRIG_VOID
OPROG_QUEST_ADD 7 2 -1
P 8
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 100
P 8
TRIG_VOID
OPROG_APPLY OAPPLY_MANA 100
P 8
TRIG_VOID
OPROG_ECHO
You feel energy rush into your body.~
P 8
TRIG_VOID
OPROG_OBJECT_QUEST_IF 7 2 = 0 10 0
P 9
TRIG_VOID
OPROG_APPLY OAPPLY_HIT -100
P 9
TRIG_VOID
OPROG_QUEST_SET 7 2 0
P 9
TRIG_VOID
OPROG_ECHO
Your meditation is disrupted.~
P 10
TRIG_VOID
OPROG_ECHO
You complete the meditation.~
P 12
TRIG_VOID
OPROG_OBJECT_QUEST_IF 9 3 ! 0 13 17
P 13
TRIG_VOID
OPROG_IF OIF_USER_POSITION = POS_RESTING 14 15
P 14
TRIG_VOID
OPROG_GOD_COMMAND
mpmadd self currhp 50
mpmadd self currmove 50
mpmadd self currmana 50
mpechoat self You feel life returning to your body.~
P 14
TRIG_VOID
OPROG_QUEST_ADD 9 3 -1
P 14
TRIG_VOID
OPROG_OBJECT_QUEST_IF 9 3 = 0 16 0
P 15
TRIG_VOID
OPROG_APPLY OAPPLY_HIT -200
P 15
TRIG_VOID
OPROG_QUEST_SET 9 3 0
P 15
TRIG_VOID
OPROG_ECHO
Your regenerative state is disturbed!~
P 16
TRIG_VOID
OPROG_QUEST_SET 0 7 100
P 16
TRIG_VOID
OPROG_GOD_COMMAND
mpmset self thirst 48
mpmset self full 48
mpmset self drunk 0
mpmadd self currhp 30000
mpmadd self currmana 30000
mpmadd self currmove 30000
mpechoat self You complete your regeneration.~
P 17
TRIG_VOID
OPROG_OBJECT_QUEST_IF 12 4 ! 0 18 20
P 18
TRIG_VOID
OPROG_QUEST_ADD 12 4 -1
P 18
TRIG_VOID
OPROG_OBJECT_QUEST_IF 12 4 = 0 19 20
P 19
TRIG_VOID
OPROG_ECHO
Your psionic wall vanishes.~
P 20
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 < 100 21 0
P 21
TRIG_VOID
OPROG_QUEST_ADD 0 7 10
P 21
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 > 99 22 23
P 22
TRIG_VOID
OPROG_QUEST_SET 0 7 100
P 22
TRIG_VOID
OPROG_ECHO
Your psionic potential is at full strength.~
P 23
TRIG_VOID
OPROG_ECHO
Your psionic potential increases a bit.~
P 24
TRIG_UNKNOWN 100 psi-check
OPROG_OBJECT_QUEST_IF 0 7 = 0 25 26
P 25
TRIG_VOID
OPROG_ECHO
You have 0 psi-points built up.~
P 26
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 = 5 27 28
P 27
TRIG_VOID
OPROG_ECHO
You have 5 psi-points built up.~
P 28
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 = 10 29 30
P 29
TRIG_VOID
OPROG_ECHO
You have 10 psi-points built up.~
P 30
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 = 15 31 32
P 31
TRIG_VOID
OPROG_ECHO
You have 15 psi-points built up.~
P 32
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 = 20 33 34
P 33
TRIG_VOID
OPROG_ECHO
You have 20 psi-points built up.~
P 34
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 = 25 35 36
P 35
TRIG_VOID
OPROG_ECHO
You have 25 psi-points built up.~
P 36
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 = 30 37 38
P 37
TRIG_VOID
OPROG_ECHO
You have 30 psi-points built up.~
P 38
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 = 35 39 40
P 39
TRIG_VOID
OPROG_ECHO
You have 35 psi-points built up.~
P 40
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 = 40 41 42
P 41
TRIG_VOID
OPROG_ECHO
You have 40 psi-points built up.~
P 42
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 = 45 43 44
P 43
TRIG_VOID
OPROG_ECHO
You have 45 psi-points built up.~
P 44
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 = 50 45 46
P 45
TRIG_VOID
OPROG_ECHO
You have 50 psi-points built up.~
P 46
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 = 55 47 48
P 47
TRIG_VOID
OPROG_ECHO
You have 55 psi-points built up.~
P 48
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 = 60 49 50
P 49
TRIG_VOID
OPROG_ECHO
You have 60 psi-points built up.~
P 50
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 = 65 51 52
P 51
TRIG_VOID
OPROG_ECHO
You have 65 psi-points built up.~
P 52
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 = 70 53 54
P 53
TRIG_VOID
OPROG_ECHO
You have 70 psi-points built up.~
P 54
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 = 75 55 56
P 55
TRIG_VOID
OPROG_ECHO
You have 75 psi-points built up.~
P 56
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 = 80 57 58
P 57
TRIG_VOID
OPROG_ECHO
You have 80 psi-points built up.~
P 58
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 = 85 59 60
P 59
TRIG_VOID
OPROG_ECHO
You have 85 psi-points built up.~
P 60
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 = 90 61 62
P 61
TRIG_VOID
OPROG_ECHO
You have 90 psi-points built up.~
P 62
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 = 95 63 64
P 63
TRIG_VOID
OPROG_ECHO
You have 95 psi-points built up.~
P 64
TRIG_VOID
OPROG_ECHO
You have all 100 psi-points built up.~
P 65
TRIG_UNKNOWN 100 MEDITATE
OPROG_IF OIF_USER_POSITION ! POS_RESTING 66 67
P 66
TRIG_VOID
OPROG_ECHO
You must be resting to begin meditation.~
P 67
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 > 4 68 69
P 68
TRIG_VOID
OPROG_QUEST_SET 7 2 3
P 68
TRIG_VOID
OPROG_QUEST_ADD 0 7 -5
P 68
TRIG_VOID
OPROG_ECHO
You begin meditating.~
P 69
TRIG_VOID
OPROG_ECHO
You don't have enough psi-points to begin meditation.~
P 70
TRIG_UNKNOWN 100 REGENERATE
OPROG_IF OIF_USER_POSITION ! POS_RESTING 71 72
P 71
TRIG_VOID
OPROG_ECHO
You must be resting to begin regeneration.~
P 72
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 7 < 15 73 74
P 73
TRIG_VOID
OPROG_ECHO
You don't have enough psi-points to begin regeneration.~
P 74
TRIG_VOID
OPROG_OBJECT_QUEST_IF 12 4 ! 0 75 77
P 75
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT < 10 76 77
P 76
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -250
P 76
TRIG_VOID
OPROG_APPLY OAPPLY_MANA -250
P 76
TRIG_VOID
OPROG_QUEST_ADD 0 7 -15
P 76
TRIG_VOID
OPROG_ECHO
You lost your concentration.~
P 77
TRIG_VOID
OPROG_QUEST_ADD 0 7 -15
P 77
TRIG_VOID
OPROG_QUEST_SET 9 3 6
P 77
TRIG_VOID
OPROG_ECHO
You begin your regeneration.~
P 78
TRIG_UNKNOWN 100 wall
OPROG_OBJECT_QUEST_IF 0 7 < 20 79 80
P 79
TRIG_VOID
OPROG_ECHO
You don't have enough psi-points for a psionic wall.~
P 80
TRIG_VOID
OPROG_IF OIF_USER_LEVEL < 85 81 83
P 81
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT < 10 82 83
P 82
TRIG_VOID
OPROG_QUEST_ADD 0 7 -20
P 82
TRIG_VOID
OPROG_ECHO
You failed to construct a psionic wall.~
P 83
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT < 5 84 85
P 84
TRIG_VOID
OPROG_QUEST_ADD 0 7 -20
P 84
TRIG_VOID
OPROG_APPLY OAPPLY_HIT -500
P 84
TRIG_VOID
OPROG_ECHO
You create the psionic wall, but it collapses on your mind!~
P 85
TRIG_VOID
OPROG_QUEST_ADD 0 7 -20
P 85
TRIG_VOID
OPROG_QUEST_SET 12 4 10
P 85
TRIG_VOID
OPROG_ECHO
You successfully construct a psionic wall.~
P 86
TRIG_UNKNOWN 100 GATE
OPROG_OBJECT_QUEST_IF 0 7 < 10 87 88
P 87
TRIG_VOID
OPROG_ECHO
You don't have enough psi-points to gate.~
P 88
TRIG_VOID
OPROG_IF OIF_USER_POSITION ! POS_FIGHTING 89 93
P 89
TRIG_VOID
OPROG_OBJECT_QUEST_IF 12 4 = 0 90 92
P 90
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT < 20 91 92
P 91
TRIG_VOID
OPROG_QUEST_ADD 0 7 -10
P 91
TRIG_VOID
OPROG_APPLY OAPPLY_HIT -200
P 91
TRIG_VOID
OPROG_ECHO
You fail to open a psionic gate, and suffer a blast of energy.~
P 92
TRIG_VOID
OPROG_QUEST_ADD 0 7 -10
P 92
TRIG_VOID
OPROG_GOD_COMMAND
mpechoaround self $I disappears into a psionic gate.
mpechoat self You vanish into a psionic gate.
mpgorand 1 30900 0 1
look auto
mpechoaround self $I appears from a psionic gate.~
P 93
TRIG_VOID
OPROG_ECHO
You cannot concentrate enough.~
P 99
TRIG_UNKNOWN 100 STORM
OPROG_OBJECT_QUEST_IF 0 7 < 25 100 101
P 100
TRIG_VOID
OPROG_ECHO
You don't have enough psi-points to conjure a psionic storm.~
P 101
TRIG_VOID
OPROG_IF OIF_USER_POSITION = POS_FIGHTING 102 108
P 102
TRIG_VOID
OPROG_OBJECT_QUEST_IF 12 4 = 0 103 106
P 103
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT < 20 104 106
P 104
TRIG_VOID
OPROG_QUEST_ADD 0 7 -25
P 104
TRIG_VOID
OPROG_ECHO
You fail to conjure a psionic storm.~
P 106
TRIG_VOID
OPROG_QUEST_ADD 0 7 -25
P 106
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30999
mpechoaround self $I conjures up a psionic storm.
mpechoat self You conjure up a psionic storm.~
P 107
TRIG_VOID
OPROG_ECHO
You don't have enough psi-points to gate.~
P 108
TRIG_VOID
OPROG_ECHO
You may only construct the storm during battle.~
P 109
TRIG_UNKNOWN 100 STRIKE
OPROG_OBJECT_QUEST_IF 0 7 < 5 110 111
P 110
TRIG_VOID
OPROG_ECHO
You don't have enough psi-points to control the storm.~
P 111
TRIG_VOID
OPROG_IF OIF_USER_POSITION ! POS_FIGHTING 113 113
P 112
TRIG_VOID
OPROG_ECHO
You send your thoughts to the storm.~
P 112
TRIG_VOID
OPROG_QUEST_ADD 0 7 -5
P 113
TRIG_VOID
OPROG_ECHO
You send your thoughts to the storm.~
P 113
TRIG_VOID
OPROG_QUEST_ADD 0 7 -5
P 113
TRIG_VOID
OPROG_GOD_ARGUMENT
mpforce M30999 mpkill~
#30918
band wrist order jagged knife~
a wrist band from the Order of the Jagged Knife~
A highly decorated band rests here.~
{078}
 'Observing, examining, calculating,
  preparing, hiding, spying,
  unleashing, attacking, striking,
  cackling, savoring, grinning, next.'
{068}
Command: Construct, Upgrade
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_WRIST
6 0 0 0 0 0 0 0
1 10 30
A APPLY_DAMROLL 4 0
A APPLY_STR 2 0
A APPLY_DEX 2 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 3
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the wrist band from the order of the Jagged Knife.~
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 25
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 25
P 3
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 1000 4 0
P 4
TRIG_VOID
OPROG_QUEST_ADD 0 10 1
P 10
TRIG_UNKNOWN 100 UPGRADE
OPROG_IF OIF_USER_LEVEL > 49 11 14
P 11
TRIG_VOID
OPROG_IF OIF_USER_ROOM_NUM = 30960 12 15
P 12
TRIG_VOID
OPROG_IF OIF_USER_POSITION > POS_SLEEPING 13 16
P 13
TRIG_VOID
OPROG_GOD_COMMAND
mptrigger bouncer ojk guild upgrade~
P 14
TRIG_VOID
OPROG_ECHO
You are not powerful enough to upgrade your guild band yet.~
P 15
TRIG_VOID
OPROG_ECHO
You must be in your guildhall to upgrade.~
P 16
TRIG_VOID
OPROG_ECHO
You have a beautiful dream about upgrading your guild ring.~
P 31
TRIG_UNKNOWN 100 CONSTRUCT
OPROG_IF OIF_USER_ROOM_NUM ! 30960 32 33
P 32
TRIG_VOID
OPROG_ECHO
You must have the materials and quiet provided by your guild.~
P 33
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 100 34 35
P 34
TRIG_VOID
OPROG_ECHO
Your guildmaster doesn't think you are ready yet, come back later.~
P 35
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 200 36 37
P 36
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 36
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 1 dam.~
P 37
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 300 38 39
P 38
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 38
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 2 dam.~
P 39
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 400 40 41
P 40
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 40
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 3 dam.~
P 41
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 500 42 43
P 42
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 42
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 4 dam.~
P 43
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 600 44 45
P 44
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 44
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 5 dam.~
P 45
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 700 46 47
P 46
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 46
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 6 dam.~
P 47
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 800 48 49
P 48
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 48
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 7 dam.~
P 49
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 900 50 51
P 50
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 50
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 8 dam.~
P 51
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 999 52 53
P 52
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 52
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 9 dam.~
P 53
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 53
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 10 dam.~
#30951
knife yucky yuckyknife~
a Yucky Knife~
A yucky knife lies here.~
{078}This knife forged by a member of the Order of the Yucky Knife.
{068}
    {028}/\{048}_______{028} ///{078}___  _____  _______  _____{018}  __ 
   {028}|  {048}_______{028}|||{078}|__ ^^     ^^       ^^    {018} ^^ _|
    {028}\/{048}       {028} \\\{078}  ^^----^^---^---^^----^^{018}-^-^
~
ITEM_TYPE_WEAPON
ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_WIELD
WEAPONTYPE_DAGGER 1 1 WEAPON_PIERCE 0 0 0 0
1 10 1
#30952
knife jagged jaggedknife~
a Jagged Knife~
A jagged knife lies here.~
{078}This knife was forged by a member of the Order of the Jagged Knife.
{068}
    {028}/\{048}_______{028} ///{078}_/\_/\_/\_/\_/\_/\_/\_/\_/\{018}_/\_/\_/\_
   {028}|  {048}_______{028}|||{078}|__  _  _  _  _  _  _  _  _{018}  _  _  __/
    {028}\/{048}       {028} \\\{078}  \/ \/ \/ \/ \/ \/ \/ \/{018} \/ \/ \/
~
ITEM_TYPE_WEAPON
ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_WIELD
WEAPONTYPE_DAGGER 13 2 WEAPON_PIERCE 0 0 0 0
1 10 30
C
Jagged Knife~
FLAG_CLASS_MARAUDER|FLAG_CLASS_NINJA
#30953
knife jagged jaggedknife~
a Jagged Knife~
A jagged knife lies here.~
{078}This knife was forged by a member of the Order of the Jagged Knife.
{068}
    {028}/\{048}_______{028} ///{078}_/\_/\_/\_/\_/\_/\_/\_/\_/\{018}_/\_/\_/\_
   {028}|  {048}_______{028}|||{078}|__  _  _  _  _  _  _  _  _{018}  _  _  __/
    {028}\/{048}       {028} \\\{078}  \/ \/ \/ \/ \/ \/ \/ \/{018} \/ \/ \/
~
ITEM_TYPE_WEAPON
ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_WIELD
WEAPONTYPE_DAGGER 20 2 WEAPON_PIERCE 0 0 0 0
1 10 50
C
Jagged Knife~
FLAG_CLASS_MARAUDER|FLAG_CLASS_NINJA
#30954
knife jagged jaggedknife~
a Jagged Knife~
A jagged knife lies here.~
{078}This knife was forged by a member of the Order of the Jagged Knife.
{068}
    {028}/\{048}_______{028} ///{078}_/\_/\_/\_/\_/\_/\_/\_/\_/\{018}_/\_/\_/\_
   {028}|  {048}_______{028}|||{078}|__  _  _  _  _  _  _  _  _{018}  _  _  __/
    {028}\/{048}       {028} \\\{078}  \/ \/ \/ \/ \/ \/ \/ \/{018} \/ \/ \/
~
ITEM_TYPE_WEAPON
ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_WIELD
WEAPONTYPE_DAGGER 27 2 WEAPON_PIERCE 0 0 0 0
1 10 70
C
Jagged Knife~
FLAG_CLASS_MARAUDER|FLAG_CLASS_NINJA
#30955
knife jagged jaggedknife~
a Jagged Knife~
A jagged knife lies here.~
{078}This knife was forged by a member of the Order of the Jagged Knife.
{068}
    {028}/\{048}_______{028} ///{078}_/\_/\_/\_/\_/\_/\_/\_/\_/\{018}_/\_/\_/\_
   {028}|  {048}_______{028}|||{078}|__  _  _  _  _  _  _  _  _{018}  _  _  __/
    {028}\/{048}       {028} \\\{078}  \/ \/ \/ \/ \/ \/ \/ \/{018} \/ \/ \/
~
ITEM_TYPE_WEAPON
ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_WIELD
WEAPONTYPE_DAGGER 34 2 WEAPON_PIERCE 0 0 0 0
1 10 90
C
Jagged Knife~
FLAG_CLASS_MARAUDER|FLAG_CLASS_NINJA
#30967
band wrist adventurer~
an Adventurer's Guild wrist band~
A highly decorated band rests here.~
{078}
 'To kill is to live life to the fullest,
  to live a full life includes love,
  to love is to give your heart away,
  to give away your heart is to tempt death,
  to die is the ultimate adventure.'
{308}
Commands: Upgrade
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_WRIST
6 0 0 0 0 0 0 0
1 10 50
A APPLY_HITROLL 5 0
A APPLY_DAMROLL 5 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 3
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the Adventurer's Guild wrist band.~
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 10
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 10
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MANA 10
P 10
TRIG_UNKNOWN 100 UPGRADE
OPROG_IF OIF_USER_LEVEL > 69 11 14
P 11
TRIG_VOID
OPROG_IF OIF_USER_ROOM_NUM = 30910 12 15
P 12
TRIG_VOID
OPROG_IF OIF_USER_POSITION > POS_SLEEPING 13 16
P 13
TRIG_VOID
OPROG_GOD_COMMAND
mptrigger bouncer adv guild upgrade~
P 14
TRIG_VOID
OPROG_ECHO
You are not powerful enough to upgrade your guild band yet.~
P 15
TRIG_VOID
OPROG_ECHO
You must be in your guildhall to upgrade your guild band.~
P 16
TRIG_VOID
OPROG_ECHO
You have a beautiful dream about upgrading your guild band.~
#30968
band wrist adventurer~
an Adventurer's Guild wrist band~
A highly decorated band rests here.~
{078}
 'To kill is to live life to the fullest,
  to live a full life includes love,
  to love is to give your heart away,
  to give away your heart is to tempt death,
  to die is the ultimate adventure.'
{308}
Commands: Upgrade
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_WRIST
6 0 0 0 0 0 0 0
1 10 70
A APPLY_HITROLL 6 0
A APPLY_DAMROLL 7 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 3
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the Adventurer's Guild wrist band.~
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 10
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 10
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MANA 10
P 10
TRIG_UNKNOWN 100 UPGRADE
OPROG_IF OIF_USER_LEVEL > 89 11 14
P 11
TRIG_VOID
OPROG_IF OIF_USER_ROOM_NUM = 30910 12 15
P 12
TRIG_VOID
OPROG_IF OIF_USER_POSITION > POS_SLEEPING 13 16
P 13
TRIG_VOID
OPROG_GOD_COMMAND
mptrigger bouncer adv guild upgrade~
P 14
TRIG_VOID
OPROG_ECHO
You are not powerful enough to upgrade your guild band yet.~
P 15
TRIG_VOID
OPROG_ECHO
You must be in your guildhall to upgrade your guild band.~
P 16
TRIG_VOID
OPROG_ECHO
You have a beautiful dream about upgrading your guild band.~
#30969
band wrist adventurer~
an Adventurer's Guild wrist band~
A highly decorated band rests here.~
{078}
 'To kill is to live life to the fullest,
  to live a full life includes love,
  to love is to give your heart away,
  to give away your heart is to tempt death,
  to die is the ultimate adventure.'
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_WRIST
6 0 0 0 0 0 0 0
1 10 90
A APPLY_HITROLL 8 0
A APPLY_DAMROLL 8 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 4
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the Adventurer's Guild wrist band.~
P 4
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 10
P 4
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 10
P 4
TRIG_VOID
OPROG_APPLY OAPPLY_MANA 10
#30970
band wrist survivalist~
a Survivalist's Guild wrist band~
A highly decorated band rests here.~
{078}
 'The land provides everything for survival,
  survival is the key to life,
  life is the reason of our existence,
  our existence is our gift to the land.'
{068}
Commands: Companion, Find, Forage, Locate, Purify, Prepare, Upgrade, /
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_WRIST
10 0 0 0 0 0 0 0
1 10 50
A APPLY_DAMROLL 4 0
A APPLY_DEX 3 0
A APPLY_CON 3 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 45
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the Survivalist's Guild wrist band.~
P 6
TRIG_UNKNOWN 100 LOCATE
OPROG_IF OIF_USER_PERCENT_MOVE < 25 48 7
P 7
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -100
P 7
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_FIELD 9 8
P 8
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_MOUNTAIN 9 10
P 9
TRIG_VOID
OPROG_ECHO
There don't seem to be any animals around here.~
P 10
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT < 50 11 14
P 11
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT > 25 12 15
P 12
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT > 33 13 16
P 13
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT > 50 17 18
P 14
TRIG_VOID
OPROG_ECHO
You search for a while, but don't locate anything.~
P 15
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30900
mpechoaround self $I manages to locate a rabbit!
mpechoat self You locate a rabbit!~
P 16
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30901 
mpechoaround self $I manages to locate a quail!
mpechoat self You locate a quail!~
P 17
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30902 
mpechoaround self $I manages to find a deer!
mpechoat self You find a deer!~
P 18
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30903
mpechoaround self $I manages to track down a moose!
mpechoat self You track down a moose!~
P 21
TRIG_UNKNOWN 100 FIND
OPROG_IF OIF_USER_PERCENT_MOVE < 5 48 22
P 22
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -25
P 22
TRIG_VOID
OPROG_IF OIF_USER_SECTOR ! SECT_LAKE 23 28
P 23
TRIG_VOID
OPROG_IF OIF_USER_SECTOR ! SECT_OCEAN 24 28
P 24
TRIG_VOID
OPROG_IF OIF_USER_SECTOR ! SECT_UNDER_WATER 25 28
P 25
TRIG_VOID
OPROG_IF OIF_WEATHER < 2 26 28
P 26
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT > 10 27 28
P 27
TRIG_VOID
OPROG_ECHO
You look for some time, but can't find any water.~
P 28
TRIG_VOID
OPROG_GOD_COMMAND
mpoload 30902
mpechoat self You find some water, but it needs purification.~
P 29
TRIG_UNKNOWN 100 PURIFY
OPROG_IF OIF_USER_PERCENT_MOVE < 5 48 30
P 30
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -10
P 30
TRIG_VOID
OPROG_IF_HAS_OBJECT 30902 31 32
P 31
TRIG_VOID
OPROG_GOD_COMMAND
mpjunk i30902
mpoload 30903
mpechoat self You purify a flask of unclean water.~
P 32
TRIG_VOID
OPROG_ECHO
You have no water that needs purification.~
P 33
TRIG_COMMAND 100 forage
OPROG_IF OIF_USER_PERCENT_MOVE < 5 48 34
P 34
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -50
P 34
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_FIELD 36 35
P 35
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_MOUNTAIN 36 37
P 36
TRIG_VOID
OPROG_ECHO
There are no herbs near here.~
P 37
TRIG_VOID
OPROG_GOD_COMMAND
mpoload 30904 
mpechoat self You find some herbs.~
P 38
TRIG_UNKNOWN 100 prepare
OPROG_IF OIF_USER_PERCENT_MOVE < 5 48 39
P 39
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -50
P 39
TRIG_VOID
OPROG_IF_HAS_OBJECT 30903 41 40
P 40
TRIG_VOID
OPROG_ECHO
You need purified water to prepare the salve.~
P 41
TRIG_VOID
OPROG_IF_HAS_OBJECT 30904 43 42
P 42
TRIG_VOID
OPROG_ECHO
You need some herbs to prepare the salve.~
P 43
TRIG_VOID
OPROG_GOD_COMMAND
mpjunk i30903
mpjunk i30904
mpoload 30905
mpechoat self You prepare a vial of healing salve.~
P 45
TRIG_VOID
OPROG_IF OIF_USER_SECTOR = SECT_INSIDE 46 47
P 46
TRIG_VOID
OPROG_ECHO
You're feeling claustrophobic indoors.~
P 47
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 100
P 47
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 50
P 47
TRIG_VOID
OPROG_APPLY OAPPLY_MANA 25
P 47
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 > 0 69 0
P 48
TRIG_VOID
OPROG_ECHO
You are too exhausted.~
P 51
TRIG_UNKNOWN 100 UPGRADE
OPROG_IF OIF_USER_LEVEL > 49 52 55
P 52
TRIG_VOID
OPROG_IF OIF_USER_ROOM_NUM = 30920 53 56
P 53
TRIG_VOID
OPROG_IF OIF_USER_POSITION > POS_SLEEPING 54 57
P 54
TRIG_VOID
OPROG_GOD_COMMAND
mptrigger bouncer sur guild upgrade~
P 55
TRIG_VOID
OPROG_ECHO
You are not powerful enough to upgrade your guild band yet.~
P 56
TRIG_VOID
OPROG_ECHO
You must be in your guildhall to upgrade your guild band.~
P 57
TRIG_VOID
OPROG_ECHO
You have a beautiful dream about upgrading your guild band.~
P 60
TRIG_UNKNOWN 100 COMPANION
OPROG_IF OIF_USER_POSITION = POS_FIGHTING 61 62
P 61
TRIG_VOID
OPROG_ECHO
You cannot search for a companion while fighting!~
P 62
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_FIELD 72 63
P 63
TRIG_VOID
OPROG_IF OIF_USER_SECTOR > SECT_MOUNTAIN 72 64
P 64
TRIG_VOID
OPROG_IF OIF_USER_PERCENT_MOVE < 40 65 66
P 65
TRIG_VOID
OPROG_ECHO
You are too exhausted to search for a companion.~
P 66
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 ! 0 67 68
P 67
TRIG_VOID
OPROG_ECHO
It has not been long enough since you had a companion.~
P 68
TRIG_VOID
OPROG_QUEST_SET 0 5 30
P 68
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -250
P 68
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $I orders a survivalist guild bear.
mptransfer M30922$i
mpechoaround self $I finds a brown bear.~
P 69
TRIG_VOID
OPROG_QUEST_ADD 0 5 -1
P 69
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 = 0 70 0
P 70
TRIG_VOID
OPROG_ECHO
You feel it has been long enough without companionship.~
P 72
TRIG_VOID
OPROG_ECHO
You cannot even find the slightest track of wildlife here.~
P 75
TRIG_COMMAND 101 /
OPROG_GOD_COMMAND
cast 'word of recall'~
#30971
band wrist survivalist~
a Survivalist's Guild wrist band~
A highly decorated band rests here.~
{078}
 'The land provides everything for survival,
  survival is the key to life,
  life is the reason of our existence,
  our existence is our gift to the land.'
{068}
Commands: Companion, Find, Forage, Locate, Purify, Prepare, Upgrade, /
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_WRIST
12 0 0 0 0 0 0 0
1 10 70
A APPLY_DAMROLL 5 0
A APPLY_DEX 3 0
A APPLY_CON 3 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 45
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the Survivalist's Guild wrist band.~
P 6
TRIG_UNKNOWN 100 LOCATE
OPROG_IF OIF_USER_PERCENT_MOVE < 25 48 7
P 7
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -100
P 7
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_FIELD 9 8
P 8
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_MOUNTAIN 9 10
P 9
TRIG_VOID
OPROG_ECHO
There don't seem to be any animals around here.~
P 10
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT < 50 11 14
P 11
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT > 25 12 15
P 12
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT > 33 13 16
P 13
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT > 50 17 18
P 14
TRIG_VOID
OPROG_ECHO
You search for a while, but don't locate anything.~
P 15
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30900
mpechoaround self $I manages to locate a rabbit!
mpechoat self You locate a rabbit!~
P 16
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30901 
mpechoaround self $I manages to locate a quail!
mpechoat self You locate a quail!~
P 17
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30902 
mpechoaround self $I manages to find a deer!
mpechoat self You find a deer!~
P 18
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30903
mpechoaround self $I manages to track down a moose!
mpechoat self You track down a moose!~
P 21
TRIG_UNKNOWN 100 FIND
OPROG_IF OIF_USER_PERCENT_MOVE < 5 48 22
P 22
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -25
P 22
TRIG_VOID
OPROG_IF OIF_USER_SECTOR ! SECT_LAKE 23 28
P 23
TRIG_VOID
OPROG_IF OIF_USER_SECTOR ! SECT_OCEAN 24 28
P 24
TRIG_VOID
OPROG_IF OIF_USER_SECTOR ! SECT_UNDER_WATER 25 28
P 25
TRIG_VOID
OPROG_IF OIF_WEATHER < 2 26 28
P 26
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT > 10 27 28
P 27
TRIG_VOID
OPROG_ECHO
You look for some time, but can't find any water.~
P 28
TRIG_VOID
OPROG_GOD_COMMAND
mpoload 30902
mpechoat self You find some water, but it needs purification.~
P 29
TRIG_UNKNOWN 100 PURIFY
OPROG_IF OIF_USER_PERCENT_MOVE < 5 48 30
P 30
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -10
P 30
TRIG_VOID
OPROG_IF_HAS_OBJECT 30902 31 32
P 31
TRIG_VOID
OPROG_GOD_COMMAND
mpjunk i30902
mpoload 30903
mpechoat self You purify a flask of unclean water.~
P 32
TRIG_VOID
OPROG_ECHO
You have no water that needs purification.~
P 33
TRIG_COMMAND 100 forage
OPROG_IF OIF_USER_PERCENT_MOVE < 5 48 34
P 34
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -50
P 34
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_FIELD 36 35
P 35
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_MOUNTAIN 36 37
P 36
TRIG_VOID
OPROG_ECHO
There are no herbs near here.~
P 37
TRIG_VOID
OPROG_GOD_COMMAND
mpoload 30904 
mpechoat self You find some herbs.~
P 38
TRIG_UNKNOWN 100 prepare
OPROG_IF OIF_USER_PERCENT_MOVE < 5 48 39
P 39
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -50
P 39
TRIG_VOID
OPROG_IF_HAS_OBJECT 30903 41 40
P 40
TRIG_VOID
OPROG_ECHO
You need purified water to prepare the salve.~
P 41
TRIG_VOID
OPROG_IF_HAS_OBJECT 30904 43 42
P 42
TRIG_VOID
OPROG_ECHO
You need some herbs to prepare the salve.~
P 43
TRIG_VOID
OPROG_GOD_COMMAND
mpjunk i30903
mpjunk i30904
mpoload 30905
mpechoat self You prepare a vial of healing salve.~
P 45
TRIG_VOID
OPROG_IF OIF_USER_SECTOR = SECT_INSIDE 46 47
P 46
TRIG_VOID
OPROG_ECHO
You're feeling claustrophobic indoors.~
P 47
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 100
P 47
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 50
P 47
TRIG_VOID
OPROG_APPLY OAPPLY_MANA 25
P 47
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 > 0 69 0
P 48
TRIG_VOID
OPROG_ECHO
You are too exhausted.~
P 51
TRIG_UNKNOWN 100 UPGRADE
OPROG_IF OIF_USER_LEVEL > 89 52 55
P 52
TRIG_VOID
OPROG_IF OIF_USER_ROOM_NUM = 30920 53 56
P 53
TRIG_VOID
OPROG_IF OIF_USER_POSITION > POS_SLEEPING 54 57
P 54
TRIG_VOID
OPROG_GOD_COMMAND
mptrigger bouncer sur guild upgrade~
P 55
TRIG_VOID
OPROG_ECHO
You are not powerful enough to upgrade your guild band yet.~
P 56
TRIG_VOID
OPROG_ECHO
You must be in your guildhall to upgrade your guild band.~
P 57
TRIG_VOID
OPROG_ECHO
You have a beautiful dream about upgrading your guild band.~
P 60
TRIG_UNKNOWN 100 COMPANION
OPROG_IF OIF_USER_POSITION = POS_FIGHTING 61 62
P 61
TRIG_VOID
OPROG_ECHO
You cannot search for a companion while fighting!~
P 62
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_FIELD 72 63
P 63
TRIG_VOID
OPROG_IF OIF_USER_SECTOR > SECT_MOUNTAIN 72 64
P 64
TRIG_VOID
OPROG_IF OIF_USER_PERCENT_MOVE < 40 65 66
P 65
TRIG_VOID
OPROG_ECHO
You are too exhausted to search for a companion.~
P 66
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 ! 0 67 68
P 67
TRIG_VOID
OPROG_ECHO
It has not been long enough since you had a companion.~
P 68
TRIG_VOID
OPROG_QUEST_SET 0 5 30
P 68
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -250
P 68
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $I orders a survivalist guild bear.
mptransfer M30922$i
mpechoaround self $I finds a brown bear.~
P 69
TRIG_VOID
OPROG_QUEST_ADD 0 5 -1
P 69
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 = 0 70 0
P 70
TRIG_VOID
OPROG_ECHO
You feel it has been long enough without companionship.~
P 72
TRIG_VOID
OPROG_ECHO
You cannot even find the slightest track of wildlife here.~
P 75
TRIG_COMMAND 101 /
OPROG_GOD_COMMAND
cast 'word of recall'~
#30972
band wrist survivalist~
a Survivalist's Guild wrist band~
A highly decorated band rests here.~
{078}
 'The land provides everything for survival,
  survival is the key to life,
  life is the reason of our existence,
  our existence is our gift to the land.'
{068}
Commands: Companion, Find, Forage, Locate, Purify, Prepare, /
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_WRIST
15 0 0 0 0 0 0 0
1 10 90
A APPLY_DAMROLL 5 0
A APPLY_DEX 4 0
A APPLY_CON 3 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 45
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the Survivalist's Guild wrist band.~
P 6
TRIG_UNKNOWN 100 LOCATE
OPROG_IF OIF_USER_PERCENT_MOVE < 25 48 7
P 7
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -100
P 7
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_FIELD 9 8
P 8
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_MOUNTAIN 9 10
P 9
TRIG_VOID
OPROG_ECHO
There don't seem to be any animals around here.~
P 10
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT < 50 11 14
P 11
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT > 25 12 15
P 12
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT > 33 13 16
P 13
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT > 50 17 18
P 14
TRIG_VOID
OPROG_ECHO
You search for a while, but don't locate anything.~
P 15
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30900
mpechoaround self $I manages to locate a rabbit!
mpechoat self You locate a rabbit!~
P 16
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30901 
mpechoaround self $I manages to locate a quail!
mpechoat self You locate a quail!~
P 17
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30902 
mpechoaround self $I manages to find a deer!
mpechoat self You find a deer!~
P 18
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30903
mpechoaround self $I manages to track down a moose!
mpechoat self You track down a moose!~
P 21
TRIG_UNKNOWN 100 FIND
OPROG_IF OIF_USER_PERCENT_MOVE < 5 48 22
P 22
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -25
P 22
TRIG_VOID
OPROG_IF OIF_USER_SECTOR ! SECT_LAKE 23 28
P 23
TRIG_VOID
OPROG_IF OIF_USER_SECTOR ! SECT_OCEAN 24 28
P 24
TRIG_VOID
OPROG_IF OIF_USER_SECTOR ! SECT_UNDER_WATER 25 28
P 25
TRIG_VOID
OPROG_IF OIF_WEATHER < 2 26 28
P 26
TRIG_VOID
OPROG_IF OIF_RANDOM_PERCENT > 10 27 28
P 27
TRIG_VOID
OPROG_ECHO
You look for some time, but can't find any water.~
P 28
TRIG_VOID
OPROG_GOD_COMMAND
mpoload 30902
mpechoat self You find some water, but it needs purification.~
P 29
TRIG_UNKNOWN 100 PURIFY
OPROG_IF OIF_USER_PERCENT_MOVE < 5 48 30
P 30
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -10
P 30
TRIG_VOID
OPROG_IF_HAS_OBJECT 30902 31 32
P 31
TRIG_VOID
OPROG_GOD_COMMAND
mpjunk i30902
mpoload 30903
mpechoat self You purify a flask of unclean water.~
P 32
TRIG_VOID
OPROG_ECHO
You have no water that needs purification.~
P 33
TRIG_COMMAND 100 forage
OPROG_IF OIF_USER_PERCENT_MOVE < 5 48 34
P 34
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -50
P 34
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_FIELD 36 35
P 35
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_MOUNTAIN 36 37
P 36
TRIG_VOID
OPROG_ECHO
There are no herbs near here.~
P 37
TRIG_VOID
OPROG_GOD_COMMAND
mpoload 30904 
mpechoat self You find some herbs.~
P 38
TRIG_UNKNOWN 100 prepare
OPROG_IF OIF_USER_PERCENT_MOVE < 5 48 39
P 39
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -50
P 39
TRIG_VOID
OPROG_IF_HAS_OBJECT 30903 41 40
P 40
TRIG_VOID
OPROG_ECHO
You need purified water to prepare the salve.~
P 41
TRIG_VOID
OPROG_IF_HAS_OBJECT 30904 43 42
P 42
TRIG_VOID
OPROG_ECHO
You need some herbs to prepare the salve.~
P 43
TRIG_VOID
OPROG_GOD_COMMAND
mpjunk i30903
mpjunk i30904
mpoload 30905
mpechoat self You prepare a vial of healing salve.~
P 45
TRIG_VOID
OPROG_IF OIF_USER_SECTOR = SECT_INSIDE 46 47
P 46
TRIG_VOID
OPROG_ECHO
You're feeling claustrophobic indoors.~
P 47
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 100
P 47
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 50
P 47
TRIG_VOID
OPROG_APPLY OAPPLY_MANA 25
P 47
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 > 0 69 0
P 48
TRIG_VOID
OPROG_ECHO
You are too exhausted.~
P 60
TRIG_UNKNOWN 100 COMPANION
OPROG_IF OIF_USER_POSITION = POS_FIGHTING 61 62
P 61
TRIG_VOID
OPROG_ECHO
You cannot search for a companion while fighting!~
P 62
TRIG_VOID
OPROG_IF OIF_USER_SECTOR < SECT_FIELD 72 63
P 63
TRIG_VOID
OPROG_IF OIF_USER_SECTOR > SECT_MOUNTAIN 72 64
P 64
TRIG_VOID
OPROG_IF OIF_USER_PERCENT_MOVE < 40 65 66
P 65
TRIG_VOID
OPROG_ECHO
You are too exhausted to search for a companion.~
P 66
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 ! 0 67 68
P 67
TRIG_VOID
OPROG_ECHO
It has not been long enough since you had a companion.~
P 68
TRIG_VOID
OPROG_QUEST_SET 0 5 30
P 68
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE -250
P 68
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $I orders a survivalist guild bear.
mptransfer M30922$i
mpechoaround self $I finds a brown bear.~
P 69
TRIG_VOID
OPROG_QUEST_ADD 0 5 -1
P 69
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 = 0 70 0
P 70
TRIG_VOID
OPROG_ECHO
You feel it has been long enough without companionship.~
P 72
TRIG_VOID
OPROG_ECHO
You cannot even find the slightest track of wildlife here.~
P 75
TRIG_COMMAND 101 /
OPROG_GOD_COMMAND
cast 'word of recall'~
#30973
ring league white rose~
a ring from the League of the White Rose~
A highly decorated ring rests here.~
{078}
 'All good lives are sacred,
  all sacred lives should endure,
  all enduring lives, if dedicated to good, are friends,
  all friends will be protected at any cost.'
{068}
Commands: Cure, Friend, Guard, Sanctify, Sanctuary, Servant, Spells, Upgrade
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_FINGER|ITEM_WEAR_WRIST
5 0 0 0 0 0 0 0
1 10 50
A APPLY_DAMROLL 4 0
A APPLY_MANA 90 0
A APPLY_INT 3 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 3
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the ring from the League of the White Rose.~
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 10
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 10
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MANA 100
P 3
TRIG_VOID
OPROG_IF OIF_USER_ALIGNMENT < -349 26 4
P 4
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 > 0 5 0
P 5
TRIG_VOID
OPROG_QUEST_ADD 0 5 -1
P 5
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 = 0 6 0
P 6
TRIG_VOID
OPROG_ECHO
You are able to call upon a holy servant now.~
P 7
TRIG_UNKNOWN 100 SERVANT
OPROG_IF OIF_USER_PERCENT_MANA < 20 8 9
P 8
TRIG_VOID
OPROG_ECHO
You do not have enough mana to call upon the servant.~
P 9
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 ! 0 10 11
P 10
TRIG_VOID
OPROG_ECHO
The holy servant has not recovered from it's last visit.~
P 11
TRIG_VOID
OPROG_QUEST_SET 0 5 30
P 11
TRIG_VOID
OPROG_APPLY OAPPLY_MANA -200
P 11
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30913 
mpechoat self You call upon the aid of a holy servant. 
mpechoaround self $I calls upon the aid of a holy servant.~
P 20
TRIG_UNKNOWN 100 GUARD
OPROG_GOD_COMMAND
say Servant, please stand guard~
P 21
TRIG_UNKNOWN 100 cure
OPROG_GOD_COMMAND
say Servant, cure me please~
P 22
TRIG_UNKNOWN 100 sanctuary
OPROG_GOD_COMMAND
say Servant, sanctuary please~
P 23
TRIG_UNKNOWN 100 spells
OPROG_GOD_COMMAND
say Servant, all spells please~
P 24
TRIG_UNKNOWN 100 friend
OPROG_GOD_ARGUMENT
say Servant, please help~
P 26
TRIG_VOID
OPROG_IF OIF_USER_PERCENT_HITPT > 30 27 0
P 27
TRIG_VOID
OPROG_ECHO
Your alignment is evil!~
P 27
TRIG_VOID
OPROG_APPLY OAPPLY_HIT -50
P 28
TRIG_UNKNOWN 100 sanctify
OPROG_GOD_COMMAND
say Servant, sanctify please~
P 29
TRIG_UNKNOWN 100 UPGRADE
OPROG_IF OIF_USER_LEVEL > 69 30 33
P 30
TRIG_VOID
OPROG_IF OIF_USER_ROOM_NUM = 30930 31 34
P 31
TRIG_VOID
OPROG_IF OIF_USER_POSITION > POS_SLEEPING 32 35
P 32
TRIG_VOID
OPROG_GOD_COMMAND
mptrigger bouncer lwr guild upgrade~
P 33
TRIG_VOID
OPROG_ECHO
You are not powerful enough to upgrade your guild ring yet.~
P 34
TRIG_VOID
OPROG_ECHO
You must be in your guildhall to upgrade.~
P 35
TRIG_VOID
OPROG_ECHO
You have a beautiful dream about upgrading your guild ring.~
#30974
ring league white rose~
a ring from the League of the White Rose~
A highly decorated ring rests here.~
{078}
 'All good lives are sacred,
  all sacred lives should endure,
  all enduring lives, if dedicated to good, are friends,
  all friends will be protected at any cost.'
{068}
Commands: Cure, Friend, Guard, Sanctify, Sanctuary, Servant, Spells, Upgrade
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_FINGER|ITEM_WEAR_WRIST
5 0 0 0 0 0 0 0
1 10 70
A APPLY_DAMROLL 5 0
A APPLY_MANA 120 0
A APPLY_INT 3 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 3
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the ring from the League of the White Rose.~
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 10
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 10
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MANA 100
P 3
TRIG_VOID
OPROG_IF OIF_USER_ALIGNMENT < -349 26 4
P 4
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 > 0 5 0
P 5
TRIG_VOID
OPROG_QUEST_ADD 0 5 -1
P 5
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 = 0 6 0
P 6
TRIG_VOID
OPROG_ECHO
You are able to call upon a holy servant now.~
P 7
TRIG_UNKNOWN 100 SERVANT
OPROG_IF OIF_USER_PERCENT_MANA < 20 8 9
P 8
TRIG_VOID
OPROG_ECHO
You do not have enough mana to call upon the servant.~
P 9
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 ! 0 10 11
P 10
TRIG_VOID
OPROG_ECHO
The holy servant has not recovered from it's last visit.~
P 11
TRIG_VOID
OPROG_QUEST_SET 0 5 30
P 11
TRIG_VOID
OPROG_APPLY OAPPLY_MANA -200
P 11
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30913 
mpechoat self You call upon the aid of a holy servant. 
mpechoaround self $I calls upon the aid of a holy servant.~
P 20
TRIG_UNKNOWN 100 GUARD
OPROG_GOD_COMMAND
say Servant, please stand guard~
P 21
TRIG_UNKNOWN 100 cure
OPROG_GOD_COMMAND
say Servant, cure me please~
P 22
TRIG_UNKNOWN 100 sanctuary
OPROG_GOD_COMMAND
say Servant, sanctuary please~
P 23
TRIG_UNKNOWN 100 spells
OPROG_GOD_COMMAND
say Servant, all spells please~
P 24
TRIG_UNKNOWN 100 friend
OPROG_GOD_ARGUMENT
say Servant, please help~
P 26
TRIG_VOID
OPROG_IF OIF_USER_PERCENT_HITPT > 30 27 0
P 27
TRIG_VOID
OPROG_ECHO
Your alignment is evil!~
P 27
TRIG_VOID
OPROG_APPLY OAPPLY_HIT -50
P 28
TRIG_UNKNOWN 100 sanctify
OPROG_GOD_COMMAND
say Servant, sanctify please~
P 29
TRIG_UNKNOWN 100 UPGRADE
OPROG_IF OIF_USER_LEVEL > 89 30 33
P 30
TRIG_VOID
OPROG_IF OIF_USER_ROOM_NUM = 30930 31 34
P 31
TRIG_VOID
OPROG_IF OIF_USER_POSITION > POS_SLEEPING 32 35
P 32
TRIG_VOID
OPROG_GOD_COMMAND
mptrigger bouncer lwr guild upgrade~
P 33
TRIG_VOID
OPROG_ECHO
You are not powerful enough to upgrade your guild ring yet.~
P 34
TRIG_VOID
OPROG_ECHO
You must be in your guildhall to upgrade.~
P 35
TRIG_VOID
OPROG_ECHO
You have a beautiful dream about upgrading your guild ring.~
#30975
ring league white rose~
a ring from the League of the White Rose~
A highly decorated ring rests here.~
{078}
 'All good lives are sacred,
  all sacred lives should endure,
  all enduring lives, if dedicated to good, are friends,
  all friends will be protected at any cost.'
{068}
Commands: Cure, Friend, Guard, Sanctify, Sanctuary, Servant, Spells
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_FINGER|ITEM_WEAR_WRIST
5 0 0 0 0 0 0 0
1 10 90
A APPLY_DAMROLL 6 0
A APPLY_MANA 150 0
A APPLY_INT 3 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 3
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the ring from the League of the White Rose.~
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 10
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 10
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MANA 100
P 3
TRIG_VOID
OPROG_IF OIF_USER_ALIGNMENT < -349 26 4
P 4
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 > 0 5 0
P 5
TRIG_VOID
OPROG_QUEST_ADD 0 5 -1
P 5
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 = 0 6 0
P 6
TRIG_VOID
OPROG_ECHO
You are able to call upon a holy servant now.~
P 7
TRIG_UNKNOWN 100 SERVANT
OPROG_IF OIF_USER_PERCENT_MANA < 20 8 9
P 8
TRIG_VOID
OPROG_ECHO
You do not have enough mana to call upon the servant.~
P 9
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 ! 0 10 11
P 10
TRIG_VOID
OPROG_ECHO
The holy servant has not recovered from it's last visit.~
P 11
TRIG_VOID
OPROG_QUEST_SET 0 5 30
P 11
TRIG_VOID
OPROG_APPLY OAPPLY_MANA -200
P 11
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30913 
mpechoat self You call upon the aid of a holy servant. 
mpechoaround self $I calls upon the aid of a holy servant.~
P 20
TRIG_UNKNOWN 100 GUARD
OPROG_GOD_COMMAND
say Servant, please stand guard~
P 21
TRIG_UNKNOWN 100 cure
OPROG_GOD_COMMAND
say Servant, cure me please~
P 22
TRIG_UNKNOWN 100 sanctuary
OPROG_GOD_COMMAND
say Servant, sanctuary please~
P 23
TRIG_UNKNOWN 100 spells
OPROG_GOD_COMMAND
say Servant, all spells please~
P 24
TRIG_UNKNOWN 100 friend
OPROG_GOD_ARGUMENT
say Servant, please help~
P 26
TRIG_VOID
OPROG_IF OIF_USER_PERCENT_HITPT > 30 27 0
P 27
TRIG_VOID
OPROG_ECHO
Your alignment is evil!~
P 27
TRIG_VOID
OPROG_APPLY OAPPLY_HIT -50
P 28
TRIG_UNKNOWN 100 sanctify
OPROG_GOD_COMMAND
say Servant, sanctify please~
#30976
ring circle black lotus~
a ring from the Circle of the Black Lotus~
A highly decorated ring rests here.~
{078}
   'All there is exist for a purpose,
    all purposes lead toward darkness,
    all darkness will overcome good,
    all good shall be destroyed.'
{068}
Command: Serpent, Blast, Watch, Away, Team, Upgrade
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_FINGER|ITEM_WEAR_WRIST
10 0 0 0 0 0 0 0
1 10 50
A APPLY_SAVING_SPELL -4 0
A APPLY_INT 3 0
A APPLY_HIT 40 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 4
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the ring from the Circle of the Black Lotus.~
P 4
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 25
P 4
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 10
P 4
TRIG_VOID
OPROG_APPLY OAPPLY_MANA 75
P 4
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 > 0 5 25
P 5
TRIG_VOID
OPROG_QUEST_ADD 0 5 -1
P 5
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 = 0 28 25
P 7
TRIG_UNKNOWN 100 serpent
OPROG_IF OIF_USER_PERCENT_MANA < 20 8 9
P 8
TRIG_VOID
OPROG_ECHO
You do not have enough mana to summon the serpent.~
P 9
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 ! 0 10 11
P 10
TRIG_VOID
OPROG_ECHO
The winged serpent is too far away to summon.~
P 11
TRIG_VOID
OPROG_QUEST_SET 0 5 30
P 11
TRIG_VOID
OPROG_APPLY OAPPLY_MANA -200
P 11
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30914
mpechoat self You summon winged serpent to assist you.
mpechoaround self $I summons a winged serpent.~
P 20
TRIG_UNKNOWN 100 watch
OPROG_GOD_COMMAND
say Serpent, keep a look out~
P 21
TRIG_UNKNOWN 100 blast
OPROG_GOD_COMMAND
say Serpent, give me a blast~
P 22
TRIG_UNKNOWN 100 away
OPROG_GOD_COMMAND
say Serpent, get me out of here~
P 23
TRIG_UNKNOWN 100 team
OPROG_GOD_COMMAND
say Serpent, follow me~
P 25
TRIG_TICK 99
OPROG_IF OIF_USER_ALIGNMENT > -350 26 0
P 26
TRIG_VOID
OPROG_IF OIF_USER_PERCENT_HITPT > 30 27 0
P 27
TRIG_VOID
OPROG_ECHO
Your alignment is not evil!~
P 27
TRIG_VOID
OPROG_APPLY OAPPLY_HIT -50
P 28
TRIG_VOID
OPROG_ECHO
The serpent is ready to be summoned.~
P 30
TRIG_UNKNOWN 100 UPGRADE
OPROG_IF OIF_USER_LEVEL > 69 31 34
P 31
TRIG_VOID
OPROG_IF OIF_USER_ROOM_NUM = 30940 32 35
P 32
TRIG_VOID
OPROG_IF OIF_USER_POSITION > POS_SLEEPING 33 36
P 33
TRIG_VOID
OPROG_GOD_COMMAND
mptrigger bouncer cbl guild upgrade~
P 34
TRIG_VOID
OPROG_ECHO
You are not powerful enough to upgrade your guild ring yet.~
P 35
TRIG_VOID
OPROG_ECHO
You must be in your guildhall to upgrade.~
P 36
TRIG_VOID
OPROG_ECHO
You have a beautiful dream about upgrading your guild ring.~
#30977
ring circle black lotus~
a ring from the Circle of the Black Lotus~
A highly decorated ring rests here.~
{078}
   'All there is exist for a purpose,
    all purposes lead toward darkness,
    all darkness will overcome good,
    all good shall be destroyed.'
{068}
Command: Serpent, Blast, Watch, Away, Team, Upgrade
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_FINGER|ITEM_WEAR_WRIST
13 0 0 0 0 0 0 0
1 10 70
A APPLY_SAVING_SPELL -5 0
A APPLY_INT 3 0
A APPLY_HIT 50 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 4
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the ring from the Circle of the Black Lotus.~
P 4
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 25
P 4
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 10
P 4
TRIG_VOID
OPROG_APPLY OAPPLY_MANA 75
P 4
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 > 0 5 25
P 5
TRIG_VOID
OPROG_QUEST_ADD 0 5 -1
P 5
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 = 0 28 25
P 7
TRIG_UNKNOWN 100 serpent
OPROG_IF OIF_USER_PERCENT_MANA < 20 8 9
P 8
TRIG_VOID
OPROG_ECHO
You do not have enough mana to summon the serpent.~
P 9
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 ! 0 10 11
P 10
TRIG_VOID
OPROG_ECHO
The winged serpent is too far away to summon.~
P 11
TRIG_VOID
OPROG_QUEST_SET 0 5 30
P 11
TRIG_VOID
OPROG_APPLY OAPPLY_MANA -200
P 11
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30914
mpechoat self You summon winged serpent to assist you.
mpechoaround self $I summons a winged serpent.~
P 20
TRIG_UNKNOWN 100 watch
OPROG_GOD_COMMAND
say Serpent, keep a look out~
P 21
TRIG_UNKNOWN 100 blast
OPROG_GOD_COMMAND
say Serpent, give me a blast~
P 22
TRIG_UNKNOWN 100 away
OPROG_GOD_COMMAND
say Serpent, get me out of here~
P 23
TRIG_UNKNOWN 100 team
OPROG_GOD_COMMAND
say Serpent, follow me~
P 25
TRIG_TICK 99
OPROG_IF OIF_USER_ALIGNMENT > -350 26 0
P 26
TRIG_VOID
OPROG_IF OIF_USER_PERCENT_HITPT > 30 27 0
P 27
TRIG_VOID
OPROG_ECHO
Your alignment is not evil!~
P 27
TRIG_VOID
OPROG_APPLY OAPPLY_HIT -50
P 28
TRIG_VOID
OPROG_ECHO
The serpent is ready to be summoned.~
P 30
TRIG_UNKNOWN 100 UPGRADE
OPROG_IF OIF_USER_LEVEL > 89 31 34
P 31
TRIG_VOID
OPROG_IF OIF_USER_ROOM_NUM = 30940 32 35
P 32
TRIG_VOID
OPROG_IF OIF_USER_POSITION > POS_SLEEPING 33 36
P 33
TRIG_VOID
OPROG_GOD_COMMAND
mptrigger bouncer cbl guild upgrade~
P 34
TRIG_VOID
OPROG_ECHO
You are not powerful enough to upgrade your guild ring yet.~
P 35
TRIG_VOID
OPROG_ECHO
You must be in your guildhall to upgrade.~
P 36
TRIG_VOID
OPROG_ECHO
You have a beautiful dream about upgrading your guild ring.~
#30978
ring circle black lotus~
a ring from the Circle of the Black Lotus~
A highly decorated ring rests here.~
{078}
   'All there is exist for a purpose,
    all purposes lead toward darkness,
    all darkness will overcome good,
    all good shall be destroyed.'
{068}
Command: Serpent, Blast, Watch, Away, Team
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_FINGER|ITEM_WEAR_WRIST
15 0 0 0 0 0 0 0
1 10 90
A APPLY_SAVING_SPELL -6 0
A APPLY_INT 3 0
A APPLY_HIT 60 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 4
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the ring from the Circle of the Black Lotus.~
P 4
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 25
P 4
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 10
P 4
TRIG_VOID
OPROG_APPLY OAPPLY_MANA 75
P 4
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 > 0 5 25
P 5
TRIG_VOID
OPROG_QUEST_ADD 0 5 -1
P 5
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 = 0 28 25
P 7
TRIG_UNKNOWN 100 serpent
OPROG_IF OIF_USER_PERCENT_MANA < 20 8 9
P 8
TRIG_VOID
OPROG_ECHO
You do not have enough mana to summon the serpent.~
P 9
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 5 ! 0 10 11
P 10
TRIG_VOID
OPROG_ECHO
The winged serpent is too far away to summon.~
P 11
TRIG_VOID
OPROG_QUEST_SET 0 5 30
P 11
TRIG_VOID
OPROG_APPLY OAPPLY_MANA -200
P 11
TRIG_VOID
OPROG_GOD_COMMAND
mpmload 30914
mpechoat self You summon winged serpent to assist you.
mpechoaround self $I summons a winged serpent.~
P 20
TRIG_UNKNOWN 100 watch
OPROG_GOD_COMMAND
say Serpent, keep a look out~
P 21
TRIG_UNKNOWN 100 blast
OPROG_GOD_COMMAND
say Serpent, give me a blast~
P 22
TRIG_UNKNOWN 100 away
OPROG_GOD_COMMAND
say Serpent, get me out of here~
P 23
TRIG_UNKNOWN 100 team
OPROG_GOD_COMMAND
say Serpent, follow me~
P 25
TRIG_TICK 99
OPROG_IF OIF_USER_ALIGNMENT > -350 26 0
P 26
TRIG_VOID
OPROG_IF OIF_USER_PERCENT_HITPT > 30 27 0
P 27
TRIG_VOID
OPROG_ECHO
Your alignment is not evil!~
P 27
TRIG_VOID
OPROG_APPLY OAPPLY_HIT -50
P 28
TRIG_VOID
OPROG_ECHO
The serpent is ready to be summoned.~
#30979
band wrist order jagged knife~
a wrist band from the Order of the Jagged Knife~
A highly decorated band rests here.~
{078}
 'Observing, examining, calculating,
  preparing, hiding, spying,
  unleashing, attacking, striking,
  cackling, savoring, grinning, next.'
{068}
Command: Construct, Upgrade
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_WRIST
4 0 0 0 0 0 0 0
1 10 50
A APPLY_DAMROLL 6 0
A APPLY_STR 2 0
A APPLY_DEX 2 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 3
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the wrist band from the order of the Jagged Knife.~
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 25
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 25
P 3
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 1000 4 0
P 4
TRIG_VOID
OPROG_QUEST_ADD 0 10 1
P 10
TRIG_UNKNOWN 100 UPGRADE
OPROG_IF OIF_USER_LEVEL > 69 11 14
P 11
TRIG_VOID
OPROG_IF OIF_USER_ROOM_NUM = 30960 12 15
P 12
TRIG_VOID
OPROG_IF OIF_USER_POSITION > POS_SLEEPING 13 16
P 13
TRIG_VOID
OPROG_GOD_COMMAND
mptrigger bouncer ojk guild upgrade~
P 14
TRIG_VOID
OPROG_ECHO
You are not powerful enough to upgrade your guild band.~
P 15
TRIG_VOID
OPROG_ECHO
You must be in your guildhall to upgrade.~
P 16
TRIG_VOID
OPROG_ECHO
You have a beautiful dream about upgrading your guild ring.~
P 31
TRIG_UNKNOWN 100 CONSTRUCT
OPROG_IF OIF_USER_ROOM_NUM ! 30960 32 33
P 32
TRIG_VOID
OPROG_ECHO
You must have the materials and quiet provided by your guild.~
P 33
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 100 34 35
P 34
TRIG_VOID
OPROG_ECHO
Your guildmaster doesn't think you are ready yet, come back later.~
P 35
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 200 36 37
P 36
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 36
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 1 dam.~
P 37
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 300 38 39
P 38
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 38
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 2 dam.~
P 39
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 400 40 41
P 40
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 40
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 3 dam.~
P 41
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 500 42 43
P 42
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 42
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 4 dam.~
P 43
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 600 44 45
P 44
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 44
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 5 dam.~
P 45
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 700 46 47
P 46
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 46
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 6 dam.~
P 47
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 800 48 49
P 48
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 48
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 7 dam.~
P 49
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 900 50 51
P 50
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 50
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 8 dam.~
P 51
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 999 52 53
P 52
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 52
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 9 dam.~
P 53
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 53
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 10 dam.~
#30980
band wrist order jagged knife~
a wrist band from the Order of the Jagged Knife~
A highly decorated band rests here.~
{078}
 'Observing, examining, calculating,
  preparing, hiding, spying,
  unleashing, attacking, striking,
  cackling, savoring, grinning, next.'
{068}
Command: Construct, Upgrade
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_WRIST
6 0 0 0 0 0 0 0
1 10 70
A APPLY_DAMROLL 8 0
A APPLY_STR 2 0
A APPLY_DEX 2 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 3
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the wrist band from the order of the Jagged Knife.~
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 25
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 25
P 3
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 1000 4 0
P 4
TRIG_VOID
OPROG_QUEST_ADD 0 10 1
P 10
TRIG_UNKNOWN 100 UPGRADE
OPROG_IF OIF_USER_LEVEL > 89 11 14
P 11
TRIG_VOID
OPROG_IF OIF_USER_ROOM_NUM = 30960 12 15
P 12
TRIG_VOID
OPROG_IF OIF_USER_POSITION > POS_SLEEPING 13 16
P 13
TRIG_VOID
OPROG_GOD_COMMAND
mptrigger bouncer ojk guild upgrade~
P 14
TRIG_VOID
OPROG_ECHO
You are not powerful enough to upgrade your guild band yet.~
P 15
TRIG_VOID
OPROG_ECHO
You must be in your guildhall to upgrade.~
P 16
TRIG_VOID
OPROG_ECHO
You have a beautiful dream about upgrading your guild ring.~
P 31
TRIG_UNKNOWN 100 CONSTRUCT
OPROG_IF OIF_USER_ROOM_NUM ! 30960 32 33
P 32
TRIG_VOID
OPROG_ECHO
You must have the materials and quiet provided by your guild.~
P 33
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 100 34 35
P 34
TRIG_VOID
OPROG_ECHO
Your guildmaster doesn't think you are ready yet, come back later.~
P 35
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 200 36 37
P 36
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 36
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 1 dam.~
P 37
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 300 38 39
P 38
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 38
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 2 dam.~
P 39
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 400 40 41
P 40
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 40
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 3 dam.~
P 41
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 500 42 43
P 42
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 42
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 4 dam.~
P 43
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 600 44 45
P 44
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 44
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 5 dam.~
P 45
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 700 46 47
P 46
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 46
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 6 dam.~
P 47
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 800 48 49
P 48
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 48
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 7 dam.~
P 49
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 900 50 51
P 50
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 50
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 8 dam.~
P 51
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 999 52 53
P 52
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 52
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 9 dam.~
P 53
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 53
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 10 dam.~
#30981
band wrist order jagged knife~
a wrist band from the Order of the Jagged Knife~
A highly decorated band rests here.~
{078}
 'Observing, examining, calculating,
  preparing, hiding, spying,
  unleashing, attacking, striking,
  cackling, savoring, grinning, next.'
{068}
Command: Construct
~
ITEM_TYPE_ARMOR
ITEM_FLAG_MAGIC|ITEM_FLAG_NODROP|ITEM_FLAG_NOREMOVE|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_WRIST
8 0 0 0 0 0 0 0
1 10 90
A APPLY_DAMROLL 9 0
A APPLY_STR 2 0
A APPLY_DEX 2 0
P 1
TRIG_TICK 10
OPROG_IF OIF_WEAR_LOC = WEAR_NONE 2 3
P 2
TRIG_VOID
OPROG_GOD_COMMAND
echo {178}$I is not wearing the wrist band from the order of the Jagged Knife.~
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_HIT 25
P 3
TRIG_VOID
OPROG_APPLY OAPPLY_MOVE 25
P 3
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 1000 4 0
P 4
TRIG_VOID
OPROG_QUEST_ADD 0 10 1
P 31
TRIG_UNKNOWN 100 CONSTRUCT
OPROG_IF OIF_USER_ROOM_NUM ! 30960 32 33
P 32
TRIG_VOID
OPROG_ECHO
You must have the materials and quiet provided by your guild.~
P 33
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 100 34 35
P 34
TRIG_VOID
OPROG_ECHO
Your guildmaster doesn't think you are ready yet, come back later.~
P 35
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 200 36 37
P 36
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 36
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 1 dam.~
P 37
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 300 38 39
P 38
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 38
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 2 dam.~
P 39
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 400 40 41
P 40
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 40
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 3 dam.~
P 41
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 500 42 43
P 42
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 42
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 4 dam.~
P 43
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 600 44 45
P 44
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 44
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 5 dam.~
P 45
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 700 46 47
P 46
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 46
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 6 dam.~
P 47
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 800 48 49
P 48
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 48
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 7 dam.~
P 49
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 900 50 51
P 50
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 50
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 8 dam.~
P 51
TRIG_VOID
OPROG_OBJECT_QUEST_IF 0 10 < 999 52 53
P 52
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 52
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 9 dam.~
P 53
TRIG_VOID
OPROG_QUEST_SET 0 10 0
P 53
TRIG_VOID
OPROG_GOD_COMMAND
mpat 30975 mpechoaround self $i orders ojk construct 10 dam.~
#30990
weapon super~
a super weapon~
A powerful weapon lies on the ground here.~
{078}The super weapon has a limited duration.  Use it while you can.
~
ITEM_TYPE_WEAPON
ITEM_FLAG_NODROP|ITEM_FLAG_INVENTORY|ITEM_FLAG_AUTO_ENGRAVE
ITEM_WEAR_TAKE|ITEM_WEAR_WIELD
WEAPONTYPE_WEAPON 5 5 WEAPON_STAB 0 0 0 0
1 10 20
C
Super Weapon~
FLAG_CLASS_WARRIOR|FLAG_CLASS_GLADIATOR|FLAG_CLASS_MARAUDER|FLAG_CLASS_NINJA|FLAG_CLASS_DRUID|FLAG_CLASS_SORCERER|FLAG_CLASS_SHAMAN|FLAG_CLASS_WARLOCK
#30999
abuser report~
an abuser report~
An abuser report is here.~
~
ITEM_TYPE_ARMOR
ITEM_FLAG_INVENTORY
ITEM_WEAR_TAKE
0 0 0 0 0 0 0 0
1 10 1
#0


#ROOMS
#30900
Entrance to the Guild Halls~
This huge stone entrance leads the way to the Guilds that flourish upon the
lands. If one joins a guild they increase their effectivness and strength as
they wander about.  Be wary and choose carefully as some of the Guilds do have
some drawbacks, but still they are a great experience and prove to add to each
character.
~
0 ROOM_INDOORS|ROOM_SAFE SECT_INSIDE
DDIR_NORTH
You see the guild hallway.~
~
0 -1 30901
DDIR_EAST
~
~
0 -1 9715
S
#30901
The Guild Hallway~
Here you must decide which guilds you are qualified for.

Look <ADV|SUR|LWR|CBL|PSI|OJK> for information about joining a guild.

Say  <ADV|SUR|LWR|CBL|PSI|OJK> to request entrance to a guild.
~
0 ROOM_INDOORS|ROOM_SAFE SECT_INSIDE
DDIR_SOUTH
You see the entrance.~
~
0 -1 30900
E
adv~
{078}
---=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=---
{128}
                             Adventurer's Guild
{308}
           To become an adventurer one must be level 20 or higher.
{078}
---=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=---
~
E
sur~
{078}
---=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=---
{128}
                             Survivalist's Guild
{308}
           To become a survivalist one must be level 25 or higher.
{078}
---=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=---
~
E
lwr~
{078}
---=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=---
{128}
                          League of the White Rose
{308}
 To become a member of the league of the White Rose one must be level 30 or
 higher, have at least 30 shaman levels and be of neutral or good alignment.
{078}
---=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=---
~
E
cbl~
{078}
---=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=---
{128}
                          Circle of the Black Lotus
{308}
 To become a member of the circle of the Black Lotus one must be level 30 or
 higher, have at least 30 druid, sorcerer or warlock levels and be of evil
 alignment.
{078}
---=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=---
~
E
psi~
{078}
---=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=---
{128}
                             Psionicist's Guild
{308}
           To become a psionicist one must be level 65 or higher.
{078}
---=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=---
~
E
ojk~
{078}
---=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=---
{128}
                          Order of the Jagged Knife
{308}
 To become a member of the order of the Jagged Knife one must be level 30 or
 higher and have at least 20 marauder or ninja levels.
{078}
---=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=---
~
S
#30902
Adventurer's Guild Briefing Room~
The adventurer's guild is a guild for those who wish to explore the depths
of the realm, where players seldom venture.  In return, the adventurer will
occasionally be rewarded with a "token" for his troubles.  Throughout the
realm there are 75 creatures with tokens.  Each token gives the adventurer
a chance to spin the wheel of adventure.  Of course, once you gain all 75
tokens, you cannot gain any more.
~
0 ROOM_INDOORS|ROOM_SAFE SECT_INSIDE
DDIR_NORTH
You see the guild hallway.~
~
0 -1 30901
S
#30903
Survivalist's Guild Briefing Room~
Survivalists believes that everything they will ever need can be found in
nature.  Whether it be water, food, medicine, or whatever.  Therefore, they
try to avoid the indoor comforts, and live off the land.  Joining the guild
gives you the necessary skills to find food, water, and to create healing
salves.  However, you won't like being inside for any length of time.
~
0 ROOM_INDOORS|ROOM_SAFE SECT_INSIDE
DDIR_EAST
You see the guild hallway.~
~
0 -1 30901
S
#30904
League of the White Rose Briefing Room~
The league of the white rose is a guild that provides help to the patrons of
the realm.  When joining the league, you'll be able to call for help from a
holy servant.  The servant will obey your commands, and provide assistance to
you or your comrades when needed, but the servant's duration is limited, as
it must leave its plane of existence to enter yours.  If you turn to an evil
alignment, then you will be zapped by the ring until you return to neutral or
good alignment.
~
0 ROOM_INDOORS|ROOM_SAFE SECT_INSIDE
DDIR_DOWN
You see the guild hallway.~
~
0 -1 30901
S
#30905
Circle of the Black Lotus Briefing Room~
Have you ever wanted to just lash out with all your destructive energies and
bring death and disease upon your fellow players?  If so, you're evil! Of
course, to join the Circle, you need to be evil, so that's a good thing.  Once
a member, you will be able to call upon a winged creature from the depths of
hell to assist in your destructive actions.  If you ever change to a good
alignment, you will be zapped until you become evil again.
~
0 ROOM_INDOORS|ROOM_SAFE SECT_INSIDE
DDIR_UP
You see the guild hallway.~
~
0 -1 30901
S
#30906
Psionicist's Guild Briefing Room~
The psionicist's guild is possibly the most powerful guild.  New skills are
acquired, and can be used by expending psi-points, similar to using mana when
casting spells.  Since a psionicist's source of power comes from the mind,
there is really no way to counterract the skills, but if something goes wrong,
the damage taken can be severe.
~
0 ROOM_INDOORS|ROOM_SAFE SECT_INSIDE
DDIR_WEST
You see the guild hallway.~
~
0 -1 30901
S
#30907
Order of the Jagged Knife Briefing Room~
The order of the jagged knife, being a pure assassin guild, is simply an
addition to the skills of the assassin class.  The trick to this guild is that
the longer you stay in it, the better the weapon you will eventually forge.
~
0 ROOM_INDOORS|ROOM_SAFE SECT_INSIDE
DDIR_SOUTH
You see the guild hallway.~
~
0 -1 30901
S
#30910
The Adventurer's Guild~
You have entered the Adventurer's Guild, for member's only.  To the east sits
the AG's lovely secretary, and to the west is a quiet lounge, for rest and
reflection.
~
0 ROOM_INDOORS|ROOM_PRIVATE|ROOM_SAFE SECT_INSIDE
DDIR_NORTH
You see a small path.~
~
0 -1 9729
DDIR_EAST
You see the main office.~
~
0 -1 30911
DDIR_WEST
You see the lounge.~
~
0 -1 30912
S
#30911
Main Office of the Adventurer's Guild~
Here is where you can redeem your tokens and get a chance to spin the wheel
of adventure.  There's a small desk here, where a secretary records the
numbers of tokens found throughout the realm.
~
0 ROOM_INDOORS|ROOM_SAFE SECT_INSIDE
DDIR_WEST
You see the entrance.~
~
0 -1 30910
S
#30912
The Adventurer's Lounge~
Woah!  This looks like a great place to relax.  All around you are plush
furniture in assortments of colors and sizes.  There is a nice warm fireplace
against the west wall of the room.  Heck, there's even a note board here so
you can talk with other adventurers.
~
0 ROOM_INDOORS|ROOM_SAFE|ROOM_NOTE_BOARD SECT_INSIDE
DDIR_EAST
You see the entrance.~
~
0 -1 30910
S
#30920
The Survivalist's Meadow~
You've entered a beautiful meadow.  Here you see nice green grass, beautiful
weeping willows for shade, and a small bubbling brook running through from
the east.  This meadow is for survivalist's only though.  To the south you
see a tree where the survivalists congregate.
~
0 ROOM_SAFE SECT_FOREST
DDIR_NORTH
You see the forest of Roterodamum.~
~
0 -1 9748
DDIR_SOUTH
You see a giant weeping willow.~
~
0 -1 30921
S
#30921
The Weeping Willow Tree~
This tree is enormous.  At first you thought it was just an average tree,
but once you walked under the fronds, you discovered it sheltered a vast
region of area.  Here, survivalists have set up small, handmade furnitures
for sitting in and sleeping on, and there is also a note board planted
in the ground where the brook runs through here.
~
0 ROOM_SAFE|ROOM_NOTE_BOARD SECT_FOREST
DDIR_NORTH
You see the entrance to the meadow.~
~
0 -1 30920
S
#30930
The Sacred Hallway~
This is the entrance to the guild hall of the League of the White Rose.
All along the hallway you can see rows of beautifully potted white roses.
To the west you can see the Sacred Altar.
~
0 ROOM_INDOORS|ROOM_PRIVATE|ROOM_SAFE SECT_INSIDE
DDIR_WEST
You see the Sacred Altar.~
~
0 -1 30931
DDIR_DOWN
You see Rainbow street.~
~
0 -1 9724
S
#30931
The Sacred Altar~
This is where the members of the league can pray for assistance from the
higher beings that hold the realm in balance.  They receive wisdom not
normally gained by those who don't hold life sacred as they do.  There's
a note board here where members can communicate with one another.  The
entrance hallway is east.
~
0 ROOM_INDOORS|ROOM_SAFE|ROOM_NOTE_BOARD SECT_INSIDE
DDIR_EAST
You see the entrance hallway.~
~
0 -1 30930
S
#30940
The Black Corridor~
This is the entrance to guild hall of the Circle of the Black Lotus.  The
corridor is dark, as is typical of evil beings.  To the north you spy the
scrying chamber, where the members of the circle plot their evil deeds.
~
0 ROOM_DARK|ROOM_INDOORS|ROOM_PRIVATE|ROOM_SAFE SECT_INSIDE
DDIR_NORTH
You see the scrying chamber.~
~
0 -1 30941
DDIR_EAST
You see a spiraling staircase.~
~
0 -1 9789
S
#30941
The Scrying Chamber~
This is where the members of the circle can plot all their evil deeds against
the patrons of the realm.  Those in the circle have absolute hate for members
of the league of the white rose, and usually tend to plot their demise.
There's a note board here where members can communicate with one another.  To
the south is the entrance corridor.
~
0 ROOM_INDOORS|ROOM_SAFE|ROOM_NOTE_BOARD SECT_INSIDE
DDIR_SOUTH
You see the entrance corridor.~
~
0 -1 30940
S
#30950
The Hovering Steps~
This is odd.  You're on some steps but they don't seem to be supported by
anything.  Then you remember the tales of the people who once made things
levitate with their minds.  That must be it.  Down from here you can see
the lightning boulevard of Roterodamum.  East is the psionic chamber.
~
0 ROOM_INDOORS|ROOM_PRIVATE|ROOM_SAFE SECT_INSIDE
DDIR_EAST
You see the psionic chamber.~
~
0 -1 30951
DDIR_DOWN
You see Lightning boulevard.~
~
0 -1 9715
S
#30951
The Psionic Chamber~
Woah.  You enter this room and feel all kinds of thoughts and ideas rush
into your mind.  Like this is one massive brain providing you with energy.
That's because this is the psionic chamber, the main gathering room for
members of the Psionicist's Guild.  There's a note board here where members
can communicate with each other.  To the west are the floating steps.
~
0 ROOM_INDOORS|ROOM_SAFE|ROOM_NOTE_BOARD SECT_INSIDE
DDIR_WEST
You see the floating steps.~
~
0 -1 30950
S
#30960
The Dark Tunnel~
This tunnel leads to the secret gathering room for the order of the jagged
knife.  Due to the hatred between patrons of the realm and assassins, the
location of this place is a well-guarded secret.  To the east you see the
main gathering bar of the assassins.
~
0 ROOM_INDOORS|ROOM_PRIVATE|ROOM_SAFE SECT_INSIDE
DDIR_EAST
You see the bar.~
~
0 -1 30961
DDIR_SOUTH
You see the sewers of Roterodamum.~
~
EX_HIDDEN -1 9808
S
#30961
The Bar~
This bar has long been closed, but its location being forgotten for so many
years makes it the perfect gathering place for assassins.  Here they can discuss
the contracts they've had, and explain in detail the thrill of the hunts they've
been on.  A note board is tacked to the wall in here also, so members of the
order can communicate with one another.
~
0 ROOM_INDOORS|ROOM_SAFE|ROOM_NOTE_BOARD SECT_INSIDE
DDIR_WEST
You see the entrance hall.~
~
0 -1 30960
S
#30962
Gisbourne's Hideaway~
This is a smallish room, though not crowded, and almost welcoming.  Long
tapestries hang at the windows and are pulled aside, letting in sunlight or
moonglow.  The bounty collector is busily copying names into a very large ledger
and hardly looks up as you walk in.  An indigo velvet curtain covers the
entrance to a backroom.
~
0 ROOM_SAFE SECT_INSIDE
DDIR_DOWN
You see a jovial pub below.~
~
0 -1 9787
E
indigo~
A very dark, purplish blue.
~
E
ledger~
You try to peer at the names in the ledger, seeing if you recognise any of the names.
~
S
#30975
Control Center~
You are standing in the control room of the guilds.  Weird ethereal mobs
are sitting in silver chairs doing very mysterious things.  A sign is here.
~
0 ROOM_NO_MOB|ROOM_SAFE SECT_INSIDE
E
sign~
{078}
                             Scandum Technology
~
S
#30999
The Room of Wearing~
You find yourself in a small room.  To the north lies roterodamum square.
~
0 ROOM_INDOORS|ROOM_SAFE SECT_INSIDE
DDIR_NORTH
You look out over Roterodamum Square.~
~
0 -1 9755
S
#0


#RESETS
M 30905 100 30900
G 30902 100 0
G 30903 100 0
G 30904 100 0
G 30905 100 0
G 30906 100 0
G 30907 100 0
G 30908 100 0
G 30909 100 0
M 30906 100 30901
M 30907 100 30902
M 30908 100 30903
M 30909 100 30904
M 30910 100 30905
M 30911 100 30906
M 30912 100 30907
M 30915 100 30910
M 30916 100 30920
M 30917 100 30930
M 30918 100 30940
M 30919 100 30950
M 30920 100 30960
M 30921 100 30911
M 30950 100 30975
M 30951 100 30975
M 30975 100 30975
M 30962 100 30962
S


#$

XXXXXXXXXX
#Savearea