@#INSTALL
@eventname Golden Tree
@author Michael Everett
@authid GOLDEN-TREE-110
@codebegin
@runsub GOLDTREE &filename
@codeend
@target FOREST

@#UNINSTALL

; ==============================================================
; Golden Tree Event.  By Michael Everett - Email: sysop@bobobbs.net
; WWW: http://www.bobobbs.net
; ==============================================================
;
@#GOLDTREE
@writeln `c  `%Event In The Forest`0
@writeln `l
@writeln
@writeln   `$Y`6ou `$c`6ome `$u`6pon `$a g`6olden `$t`6ree...
@writeln
@writeln   `$A s`6hort `$l`6ittle `$g`6nome `$c`6rawls `$o`6ut `$f`6rom `$b`6ehind `$t`6he `$t`6ree...
@writeln

@set &N1 to &rnd2
   @case &N1 1
   1: @begin
       @writeln
       @math &N2 = &rnd500 + 250
       @math &N3 = &N2 * &Plv
       @writeln   `$He hands you a sack with `%&N3 `$gold in it!

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

   2: @begin
       @writeln
       @writeln   `$He growls one good time and your outa there!
       @writeln
       @math &N2 = &Plv * 1
       @writeln   `6For being safe you gain `%&N2 `6defense points.

       @math &N3 = &Pde + 0
       @math &N4 = &N2 + &N3
       @set &Pde to &N4
       @hitakey
      @end
   @endcase 1
@endquest


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