intfiction.org

/*  Add wizard's ring to beach.  **********************************************/

ring: Wearable 'platinum ring' 'platinum ring'
"Faint cryptic runes are inscribed around the band of the platinum ring. "
   location=beach
   dobjFor(Wear){
      action(){
      inherited();
      "You feel a strange magical power coursing through your body! And, you
       hear the faint echo of the word GLOW surrounding you. ";
      gActor.makeWizard();
     }
    }

   dobjFor(Doff){
      action(){
      inherited();
      "You shudder as the power of the ring and the magic of the GLOW chant
       leave you. ";
      gActor.makeNormal();
     }
    }
;

   DefineIAction(Glow);
      VerbRule(Glow)
      'glow'
     :GlowAction
     VerbPhrase='glow/glowing'
;
   
   modify GlowAction
      execAction(){
      if(gActor.powerLevel!=wizard){
        reportFailure('At this time, you do not have the power of a wizard.');
     }
      else if(gActor.brightness!=0){
        "The blue, radiant light quickly fades from your body. ";
         gActor.brightness=0;
     }         
      else{
        "You chant the GLOW spell!
         Your body begins to glow with a bright, radiating blue light! ";
         gActor.brightness=10;     
     }
    }
;

/* Make 'wizard' constant.  ***************************************************/

enum wizard,normal;

/*  Show Actor/Player.  *******************************************************/

+me: BagOfHolding, Actor
    vocabWords = 'Tom Thomas Tom/Thomas/Leavens'   
    desc
   {
       "You are Thomas Leavens; also known as Dr. Tom by all your friends and
        associates. Your ex-wife calls you names that could never be repeated!
        Aside from your underwear an socks, you are wearing your normal field
        attire. ";
   }
   
bulk = 10

/*  Make/Unmake wizard.  ******************************************************/

 makeWizard(){
    powerLevel=wizard;
}
 makeNormal(){
    powerLevel=normal;
    brightness=0;
}

powerLevel = normal