@#INSTALL
@eventname Grizelda's Rampage
@author Gordon Lewicky
@authid Grizelda117
@codebegin
@runsub GRIZELDA &filename
@codeend
@target FOREST

@#UNINSTALL

; =============================================================
; Grizelda's Rampage v1.17
;   Email: ktidmore@bellsouth.net.   Fidonet:  1:123/450
;   WWW: http://camelot.legendarydragons.com/.  As of mid-June 2007.

; Goofy events by Gordon Lewicky. Supported by Donald Tidmore.
; This event was written and tested using Lord v4.07á 31 Mar/02 but
; any commands/vars are from previous LORD's. This supports v4.05 & up.
;
; GRIZELDA - Grizelda has been feeling down lately since nobody loves
;            her. In her own way, she is looking for love and has
;            decided that kids will be the only ones that will offer
;            her the unfettered love she so despatately needs.
;            Thus, she feels that she must steal kids to fulfill
;            her needs since nobody will become romantically involved
;            with her, and... well.... you know! ;)
;
;            The intent of this event is to keep kid ownership down to
;            a reasonable limit of 10 kids and to also deduct the amount
;            of forest fights gained from any kids over the 10 limit.
; =============================================================

@#GRIZELDA
@display
`c  `%A horrific encounter with `#Violet `%in the forest`0
`l

  `#STOP, STOP, `%&nick`#. Did you hear the latest news about `@Grizelda`#?

  Apparently she was so depressed lately, since nobody loves her, that she 
  decided to take matters into her own hands! I hear she has been stealing
  kids from the parents while they were out here in the forest hunting the
  Red Dragon.

  Isn't that just HORRIBLE! I can't believe she would do such a thing.
  Nobody has been able to prove it as the kids cannot be found, but several
  parents have come home from the forest to find some of their kids missing!

  And lately, `@Grizelda`#, has been wearing a odd smirk on her face and
  she's been humming children's songs at work. I just can't believe it!
  None of my kids are missing, but maybe you better check to see if your's
  are!

  I better get back to the tavern, but I just thought you should know this.
@enddisplay
@if &Pki > 10 1
  @begin
  @math &N1 = &Pki + 0
  @math &N1 = &N1 - 10
  @set &Pki to 10
  @math &N2 = &Pff - &N1
  @if &N2 < 1 2
    @begin
    @set &N2 to 1
    @end
  @endif 2
  @set &Pff to &N2
  @end
@endif 1
@hitakey
@clrscr
@endquest


;  ===========================================================
;  This script was created by Gordon Lewicky. It is supported by
;  Donald Tidmore following Gordon's death in July 2006.
;
;  Version 1.10: Added number identifiers to ELSE entries. 04/12/05.
;  Version 1.15: 10/18/06: Added INSTALL and UNINSTALL code.
;  10/18/06: Created GRIZELDA.LDY using goofy1.ldy script code.
;  ===========================================================

; 05/31/07: v1.17: Revised Email/WWW info;  Changed version #.
; 05/31/07: Changed script's name to "Grizelda's Rampage".