@#PRETTYSTICK

@display
`c  `%MEGA EVENT IN THE FOREST`0
`l

  `2You are whacked with a pretty stick by the old man!

  `2He giggles and runs away!

  `%YOU GET 5 CHARM!
@enddisplay
@hitakey

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

@endquest



@#UGLYSTICK

@display
`c  `%Event In The Forest`0
`l

  `2You are whacked with an `4ugly`% stick by the old man!

  `2He giggles and runs away!

  `4YOU LOSE 1 CHARM.
@enddisplay
@hitakey

    @math &N1 = &Pch - 1
    @set &Pch to &N1

@endquest


@#FRANK

@display
`c  `%SICK AND WRONG EVENT IN THE FOREST`0
`l
    `$by HoJu!
      `@(Special thanks to Brentai.)
`l
  `2You come across a man wrapped in a cape.  He wears a heavy dose of makeup.
@enddisplay
@writeln
@writeln  `0"Hello there, warrior," `2he speaks.  `0"I'm Dr. Frank-N-Furter...and it looks
@writeln  to me as though you're in the middle of a gender identity crisis."
@writeln
@writeln  `2You certainly weren't expecting this.
@writeln
@writeln  (`0A`2)dmit that you HAVE been feeling a bit uncomfortable with your gender
@writeln     lately
@writeln  Kick him in the nads and (`0R`2)un like hell
@writeln
@choice RA `2What do you do?  What DO you do?  (`5R`2)`0:

@case response 1
R: @goto nads
A: @goto song
@endcase 1

@label nads

@display
`c`l
  `%You kick Frank-N-Furter in the nads!  He makes a satisfying sort of gurgling
  sound.
@enddisplay
@writeln
@writeln  `2You run as fast as your legs will carry you, as far away as possible.


@hitakey

@write Your nad-kicking skills earn you

@if &Plv < 12 1
@goto @under12
@else
@goto lv12
@endif 1

@label @under12

@if &Plv = 1 1
 @math &N1 = 5 + &rnd5
@endif 1

@if &Plv = 2 2
 @math &N1 = 10 + &rnd10
@endif 2

@if &Plv = 3 3
 @math &N1 = 20 + &rnd10
@endif 3

@if &Plv = 4 4
 @math &N1 = 50 + &rnd25
@endif 4

@if &Plv = 5 5
 @math &N1 = 100 + &rnd150
@endif 5

@if &Plv = 6 6
 @math &N1 = 350 + &rnd350
@endif 6

@if &Plv = 7 7
 @math &N1 = 500 + &rnd700
@endif 7

@if &Plv = 8 8
 @math &N1 = 2000 + &rnd4000
@endif 8

@if &Plv = 9 9
 @math &N1 = 4500 + &rnd7000
@endif 9

@if &Plv = 10 10
 @math &N1 = 10000 + &rnd10000
@endif 10

@if &Plv = 11 11
 @math &N1 = 20000 + &rnd10000
@endif 11

@write &N1 experience
@math &N2 = &Pex + &N1
@set &Pex to &N2
@goto randskill

@label lv12

@if &Plv = 12 1
@begin
 @math &N1 = 20+&rnd30
 @write &N1 gems
 @math &Pge = &Pge + &N1
@end
@endif 1

@label randskill

@set &N1 to &rnd5
@if &N1 = 1 1
@begin
 @if &Pcl = 1 2
  @math &N2 = &Psw+1
  @set &Psw to &N2
 @endif 2
 @if &Pcl = 2 3
  @math &N2 = &Psm+1
  @set &Psm to &N2
 @endif 3
 @math &Pcl = 3 4
  @math &N2 = &Pst+1
  @set &Pst to &N2
 @endif 4
@write and a skill point
@end
@endif 1
@writeln!
@goto endfrank

@label song

@display
`c`l
`%To your horror, Frank begins to sing!
@enddisplay
@writeln
@if &Psx is true 1
@goto atlas
@else
@goto sweett
@endif 1

@label sweett
@display
  `0Don't get strung out
  By the way I look
  Don't judge a book by its cover
  I'm not much of a man
  By the light of day
  But by night I'm one hell of a lover!
@enddisplay
@writeln
@writeln `4Frank throws off his cloak to reveal the drag beneath!
@writeln 
@writeln  `0I'm a sweet transvestite
@writeln  From Transsexual, Transylvania!
@writeln
@hitakey
@set &Psx to true
@goto genderbender

@label atlas
@display
  `0But a deltoid and a bicep
  A hot groin and a tricep
  Makes me...mmmmm, SHAKE!
  Makes me wanna take Charles Atlas by the hand!
  In just seven days...ooh baby...
  I can make you a man!
@hitakey
@enddisplay
@set &Psx to false
@goto genderbender

@label genderbender
@display
`c`l
  You awake lying in soft grass, but sore all over.
@enddisplay
@writeln
@writeln  `%You are bulgy in places where you were not before...
@writeln  `%and something vital is missing!
@writeln

@label endfrank
@hitakey

@endquest