@#INSTALL
@eventname GEM2
@author Donald Tidmore
@authid TWO-GEMS-109
@codebegin
@runsub GEM2 &filename
@codeend
@target FOREST

@#UNINSTALL

; ==============================================================
; Two Gems v1.09 - Revision of Michael Preslar's Gem script.
;   Email: ktidmore@bellsouth.net.   Fidonet:  1:123/450
;   WWW: http://camelot.legendarydragons.com/.  As of mid-June 2007.
;
; Allows player to find 2-12 gems, based on game Level.
; Requires LORD v4.05+.
; ==============================================================
; 
@#TWO-GEMS
@writeln `c        `!Event In The Forest`0
@writeln `l
@writeln   `$Lady Fortune `0smiles upon thee today .... and you find

@math &N1 = &Plv * 2         ; 02/07/03: Two gems per level.
@if &Plv > 6 1
  @begin
    @set &N1 to 12           ; Limit gems award to 12. 02/07/03
  @end
@endif 1
 
@writeln   `$&N1 `#Gems `0lying on the ground!  `!Beautiful diamonds!

@math &N2 = &Pge + 0         ; Store current Gems on Hand.
@math &N3 = &N2 + &N1        ; Award from 2 to 12 Gems.
@set &Pge to &N3             ; Reset Gems on hand to new amount.
@writeln

@writeln     `!You now have `$&N3 `0Gems `!in your pouch. ; 05/11/05.
@writeln                          ; 05/11/05.

@hitakey                     ; Required for LORD 4.06 compatibility.

; ==================================================================
@if &N2 > 32000 2      ; Does player have over 32,000 Gems?
  @begin
    @set &Pge to 32000
    @set &N2 to 32000
    @writeln     `@Notice:  `%Reset over-range `0Gems `%stat to `!32,000.
    @writeln
  @end
@endif 2

@hitakey
@endquest

; ============================================================
; 04/17/02: Changed label/name to Two Gems.
; v1.03: Tested script under LORD 4.06.
; v1.05: Changed to give player # of gems based on their level.
;        Limited to 12 gems for Levels 7-12 players.
; v1.06. 05/17/03. Changed color code usage.
; v1.07. 12/21/03. Reset over-range Gems stat, if one is found.
;
; 07/24/05: Added INSTALL and UNINSTALL sections to script.
; ==============================================================

; 05/31/07: v1.09: Revised Email/WWW info;  Changed version #.