home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / LORD / LADY_150.ZIP / UGLYSTIC.LDY < prev   
Text File  |  2002-09-08  |  1KB  |  42 lines
  1. ; The Ugly-Stick Event v1.04.  By Donald Tidmore. -- Fidonet 1:123/450
  2. ; Adapted from Michael's code to give alternative to his random
  3. ; generation of Charm points. 04/17/02: Using my own wording now.
  4. ; Email: donald.tidmore@usa.net -- Requires LORD v4.05+.
  5. ;
  6. ; This script is the "Naughty" one, it takes away 5 charm points.
  7. ; 08/12: v1.02 - Added line to show player revised Charm points.
  8. ; v1.04: Tested script under LORD 4.06.
  9. ;
  10. @#UGLY-STICK
  11. @display
  12. `c
  13.          `%MEGA EVENT IN THE FOREST
  14. `l
  15. `@Uh Oh.  You just got clobbered from behind.  It's that
  16. old man again.  Looks like he's really mad about something.
  17.  
  18. `#He screams at you, and runs off!  You're not lucky today.
  19. `9The Old geezer just `$STOLE 5 CHARM `9from you!
  20.  
  21. `2You go onward, hoping you don't see him any more today.
  22. @enddisplay
  23.  
  24. @math &N1 = &Pch + 0
  25. @math &N2 = &N1 - 5
  26. @set &Pch to &N2
  27.  
  28. @writeln
  29. @writeln  `@Your `$Charm `@was dropped to `$&N2 points.
  30. @writeln
  31.  
  32. @if &Pch < 1 1         ; Added this 08/16/02.
  33.   @begin
  34.     @set &Pch to 1
  35.     @writeln  `$The Fates are kind today.  You find a `9Charm Point
  36.     @writeln  `$lying on the ground that someone lost.
  37.   @end
  38. @endif 1
  39.  
  40. @hitakey  ; Needed for viewing screen under LORD 4.06.
  41. @endquest
  42.