HPAVC/HPAVC CD-ROM.iso/pc/LORD2B6.ZIP/GSHOPS.REF

Text File | 1997-05-16 | 5.4 KB | 302 lines

@#WHORE
;the whore house, aw yeah!
@offmap
@do moveback
@do `v01 is 1
@label whorestart
@show
`r0`c  `r1 `%The Whore House `r0

`2  You run your hands together, it's time you finally had some fun.  And
  hey, while you're in Greentree, why not pay a visit to the infamous
  Greentree brothel.
@do write
`\`x`x
@choice
Visit Kelley.
Leave
@if responce is 1 then do
  @begin
  @show
`\`\  `2You rub your hands together lewdly.  `$"I want a little 'visit' with
  Kelley if you know what I mean..." `2you drawl.

  `0"Kelley is busy.. How about Mary?"

  `2You decide to wait. (this area will be added to later..)
`\`k
  @end

@drawmap
@update

@#SCRIBE
;a place where they can add to the daily happenings
@offmap
@do moveback
@do `v01 is 1
@label scribestart
@show
`r0`c  `r1 `%The Scribe Hut `r0

`2  Wow!  This is where the daily happenings are made!  More than just a
  paper, it brings the community together.

  `2A little man with glasses is working.

@do write
`x`x
@choice
`%Place an ad for `$$10`%.
Leave
@
@if response is 1 then do
 @begin
 @if money < 10 then do
  @begin
  @show
`\`\  `2You are a little short.  Bummer.`\`\`k
  @do goto scribestart
  @end
  @do money - 10
  @writefile lognow.txt
  `2A special announcement from `0`n`2:`\`%
  @show
`\`\  `0"Ok sir!  Enter your message.  A blank line will quit."
@label keepwriting
@do write
`\`x`x
  @do readstring 75 NIL `s01
  @do `p20 is length `s01
  @if `p20 < 2 then do
   @begin
@writefile lognow.txt
                                 `2-`0=`2-`%=`2-`0=`2-
   @show
`\  `0"Alright!  We have added you to today's edition!"

`2  You trot out feeling important.
`\`k
@drawmap
@update
@closescript
   @end
  @do stripbad `s01
  @writefile lognow.txt
  `s01
  @
  @do goto keepwriting

 @end

@drawmap
@update

@#raise
;can they raise their level?

@do `p20 is `p09
@do `p20 * 100
@do `p20 * `p09

@if `p20 > `p01 then do
 @begin
 @do `p21 is `p20
 @do `p21 - `p01
 @show


  `2Next level raise at `%`p20`2.

  `0"You need about `%`p21`0 more experience before your next level raise!"

  `2Your face falls - what a bummer!

`k
@run barak
@closescript
@end

 @if `t04 > 0 then do
 @begin
 @show


  `0"You already failed once today, come back tomorrow, you loser!"

  `2Your face falls - what a bummer!

`k
@run barak
@closescript
@end


 @show


  `0"You have been sitting at level `p09 long enough."

@if `p09 IS 1 then do
 @begin
 @show
  `$"Cool!  So where is the master I fight?" `2you beam with pride.

`k  `0"Master?  Haw!  Now that *I* run this place we do it my way!" `2Barak
  laughs as he crumbles a strange black root into a mortar...

  `2You anxiously await your fate...

@end
@show
`k
`c  `r1`4 DRINKING YOUR OWN INIQUITY `r0

`2  Barak hands you a cup and asks you to drink.

  `2You nearly retch as you feel the vessel's oily contents slide down
  your throat.

`k  `2Barak leads you to a small room with a cot.  `2"I'll be back in a few
  hours,  then we'll see if you're still this cocky!"

`2  You lay down and begin dreaming immediately.

`k
@run startfight in training.ref
@closescript



@#BARAK
@offmap
@do moveback
@do `v01 is 1
@label barstart
@show
`r0`c  `%Barak's Training Center

`2  Hundreds of warriors are randomly jumping and shrieking in their
  efforts to better themselves.

  Although the building itself is old and scarred, the sign is new.

@do write
`x`x
@choice
Ask for a level raise.
Talk to Master Barak.
Leave
@if responce is 1 then do
 @begin
 @run raise
 @do goto barstart
 @end


@if responce is 2 then do
 @begin
 @if `t01 is 4 then do
  @begin
  @show
`r0`c  `%Talking to Master Barak

  `0"Make it fast kid, I'm busy!"

  `$"Um, Barak?  Where are the other trainers, as is the tradition?" `2you
  innocently ask.

`k  `0"Other trainers?!  Now that *I'M* the new MASTER TRAINER, I fired the
  rest!  I am the master for EVERY LEVEL NOW!" `2Barak cackles evilly.

  `$"Wow, nice.  You must have worked long and hard to achieve this position,
  Master Barak."

`k  `0"Of course I did!  That last Master, this geezer known as Turgon turned
  out to be a thief - not fit to teach a whore how to diddle!  Haw!" `2 Barak
  laughs crudely.

`k
 @do `t01 is 5
 @do goto barstart
 @end

  @show
`r0`c  `%Talking to Master Barak

  `0"Sorry kid, I'm a little busy TEACHING, because after all, I am sort of
  the MASTER of this whole place - you can grasp that concept, can't you?"

  `2Wow, what an ass.  Maybe he'll talk later.

`k
 @do goto barstart
 @end

@drawmap
@update

@#ABDUL
@offmap
@do moveback
@do `v01 is 1
@label abstart
@show
`r0`c  `%Abdul's Armour

`2  You see chainmail, leather, studded vests and other crap everywhere.

@do write
`x`x
@choice
Examine her wares
Go outside.
@show
`\
@if responce is 1 then do begin
 @begin
@buymanager
  10
  12
  13
  14
  @end

@if responce not 2 then goto abstart
@drawmap
@update

@#ARTHUR
@offmap
@do moveback
@do `v01 is 1
@label arstart
@show
`r0`c  `%King Arthur's Weapons

`2  Items of destruction are hung all around you - you feel like a kid in
  a candy store.

@do write
`x`x
@choice
Examine his weaponry
Go outside.
@show
`\
@if responce is 1 then do begin
 @begin
@buymanager
  4
  9
  15
  16
  @end

@if responce not 2 then goto arstart
@drawmap
@update