@#INSTALL
@eventname The Ugly-Stick Event
@author Donald Tidmore
@authid UGLY-STICK-108
@codebegin
@runsub UGLYSTIC &filename
@codeend
@target FOREST

@#UNINSTALL

; ===============================================================
; The Ugly-Stick Event v1.08.  By Donald Tidmore.
; Modified version of the original LORD script.
;   Email: ktidmore@bellsouth.net.   Fidonet:  1:123/450
;   WWW: http://camelot.legendarydragons.com/.  As of mid-June 2007.
; ===============================================================
;
@#UGLYSTIC     ;07/24/05: renamed from UGLY-STICK to uglystic.
@display
`c
         `%MEGA EVENT IN THE FOREST
`l
`@Uh Oh.  You just got clobbered from behind.  It's that
old man again.  Looks like he's really mad about something.

`#He screams at you, and runs off!  You're not lucky today.
`%The Old geezer just `$STOLE `%5 `!CHARM `%from you!

`2You go onward, hoping you don't see him any more today.
@enddisplay

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

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

@if &Pch < 1 1         ; Added this 08/16/02.
  @begin
    @set &Pch to 1
    @writeln  `$The Fates are kind today.  You find a `9Charm Point
    @writeln  `$lying on the ground that someone lost.
  @end
@endif 1

@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 "Naughty" one, it takes away 5 charm points.
; 08/12: v1.02 - Added line to show player revised Charm points.
; v1.04: Tested script under LORD 4.06.
; 07/24/05: Added INSTALL and UNINSTALL sections to script.
; v1.06: 06/18/06: tweaked code. Tested script with LORD v4.07 off. release.

; v1.08: Changed Email/WWW info, and version number.
; ===============================================================