@#INSTALL
@eventname The Pretty-Stick Event
@author Donald Tidmore
@authid PRETTY-STICK-108
@codebegin
@runsub PRETSTIC &filename
@codeend
@target FOREST

@#UNINSTALL

; ==============================================================
; The Pretty-Stick Event v1.08.  By Donald Tidmore.
;   Email: ktidmore@bellsouth.net.   Fidonet:  1:123/450
;   WWW: http://camelot.legendarydragons.com/.  As of mid-June 2007.
; Requires LORD v4.05+.
; ==============================================================
;
@#PRETSTIC  ;07/24/05: Changed from Pretty-Stick to PretStic.
@writeln
@writeln               `%MEGA EVENT IN THE FOREST
@writeln `0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
@writeln   `2Look out!  It's that crazy old man.  `%He whacks you with
@writeln   his `$pretty stick, `%and runs off giggling.
@writeln
@writeln   You're lucky. `%You just got `$5 `!CHARM `%points.
@writeln   `$  He was in a good mood today.
@writeln
@writeln   `2You go onward, hoping to see that old coot again sometime.

@math &N1 = &Pch + 0
@math &N2 = &N1 + 5
@set &Pch to &N2

; ------------------------------------------------------------------
@if &N2 > 32000 3             ; 12/27/03: Error-control code added.
  @begin
    @set &N2 to 32000
    @set &Pch to 32000
  @end
@endif 3
; ------------------------------------------------------------------

@writeln
@writeln    `$Your `#Charm `$was raised to `#&N2 `%points.
@writeln

@hitakey  ; Needed for viewing screen under LORD 4.06.
@endquest

; =============================================================
; Adapted from Michael's code to give alternative to his random
; generation of Charm points. 04/17/02: Using my own wording now.
;
; This script is the "Good" one, it gives you 5 charm points.
; 06/27: Fixed text color display appearance.
; 08/12: v1.02 - Added line to show player revised Charm points.
; v1.04: Tested script under LORD 4.06.
; v1.05. 05/27/03. color code changes, normal tweaking.
; v1.06: 12/27/2003. Prevents Charm from exceeding 32,000 points.
;
; 07/24/05: Added INSTALL and UNINSTALL sections to script.
; 05/31/07: v1.08: Revised Email/WWW info;  Changed version #.