@#INSTALL
@eventname Blue Fairy
@author Dan Stovall
@authid BLUE-FAIRY-110
@codebegin
@runsub BLUEFAIRY &filename
@codeend
@target FOREST

@#UNINSTALL

; ============================================================
; Blue Fairy Event.  By Dan Stovall.  Email: sysop@bobobbs.net
; WWW: http://www.bobobbs.net
; ============================================================
;
@#BLUEFAIRY
@clrscr
@writeln `c    `%Event In The Forest`0
@writeln `l
@writeln
@writeln     `9You see a clearing in the forest.
@writeln
@writeln     `%A `1B`9l`7u`%e `1F`9a`7i`%r`1y `%is hovering there, smiling at you.
@writeln

@set &N1 to &rnd4
   @case &N1 1
   1: @begin
       @writeln
       @math &N2 = &rnd15 * 400
       @math &N3 = &N2 * &Plv
       @writeln     `%She waves her wand and a sack with `%&N2 `$gold `%appears!

       @math &N4 = &Pgo + 0
       @math &N5 = &N3 + &N4 
       @set &Pgo to &N5
       @writeln
      @end

   2: @begin
       @writeln
       @writeln     `%She waves her wand and you feel tougher!
       @writeln
       @math &N2 = &Plv * 1
       @writeln     `9The `1F`9a`7i`%r`1y `9has given you `%&N2 `9defense points!

       @math &N3 = &Pde + 0
       @math &N4 = &N2 + &N3
       @set &Pde to &N4
      @end

   3: @begin
       @writeln
       @writeln     `%She waves her wand and you feel stronger!
       @writeln
       @math &N2 = &Plv * 1
       @writeln     `9The `1F`9a`7i`%r`1y `9has given you `%&N2 `9strength points!

       @math &N3 = &Psr + 0
       @math &N4 = &N2 + &N3  
       @set &Psr to &N4
       @end

   4: @begin
       @writeln
       @writeln     `%She waves her wand and you feel like you can fight more today!
       @math &N2 = &rnd5 + 2

       @writeln     `9The `1F`9a`7i`%r`1y `9has given you `%&N2 `9forest fights!
       @math &N3 = &Pff + 0
       @math &N4 = &N2 + &N3 
       @set &Pff to &N4
       @end
@endcase 1
@endquest

; ==============================================================
; 07/25/05: Added INSTALL and UNINSTALL code blocks. DG Tidmore.
; Added version number, using 1.10.