crodo_mud/cnf/
crodo_mud/lib/
crodo_mud/lib/house/
crodo_mud/lib/misc/
crodo_mud/lib/plralias/F-J/
crodo_mud/lib/plralias/U-Z/
crodo_mud/lib/plrobjs/
crodo_mud/lib/plrvars/A-E/
crodo_mud/lib/plrvars/F-J/
crodo_mud/lib/plrvars/K-O/
crodo_mud/lib/plrvars/P-T/
crodo_mud/lib/plrvars/U-Z/
crodo_mud/lib/text/
crodo_mud/lib/text/help/
crodo_mud/lib/world/
crodo_mud/src/
#3500
Innkeeper Speech~
0 d 2
-unused-~
if %actor.vnum% != -1
  halt
end
wait 3
if %speech% /= reward
  'Oh yes, no less than 10000 coins. I put up half myself.
  'Anything to help a friend.
elseif %speech% /= niece || %speech% /= prize
  %echo% %self.name% points to the southwest.
  'They have captured the bard's niece, and no one has been
  'able to find her. We offered a reward, but alas, no one
  'has claimed.
elseif %speech% /= bard || %speech% /= man
  %echoc% %self.name% points to the southwest.
  'Thats the poor man, he's been looking for his niece for
  'weeks now.
  wait 1
  'I know they have her, but no one we know can
  'track those good for nothing bandits. So, we offered a
  'reward, but alas, no one has claimed.
elseif %speech% /= boy || %speech% /= child
  'Oh no, they tried to take Billy!!  Damn them, haven't
  'they got enough of our children? They are nothing but
  'a bunch of slavers. I'd thought they'd left for good.
elseif %speech% /= trouble || %speech% /= slaver || %speech% /= bandit
  frown
  'Well to be quite honest, we've been having a bit of
  'trouble with some slavers lately. They've been taking
  'the children. The poor bard's niece was their latest
  'prize.
elseif %speech% /= job || %speech% /= work
  'Why, I am the Innkeeper, of course.
  wait 10
  chuckle
elseif %speech% /= name || %speech% /= who
  'I am Andros, the innkeeper.
en
~
#3501
Innkeeper Greet~
0 g 100
~
if %actor.vnum% != -1
  halt
end
wait %random.12% s
%echoc% %self.name% looks southwest.
wait 1 s
'The poor bard; he's been drinking all day.
~
#3502
Bard Random~
0 b 60
~
wait %random.10% s
sniff
~
#3503
Bard Receive~
0 j 100
~
if %actor.vnum% != -1
  halt
end
return 1
wait 1 s
if %object.vnum% == 3509
  if %talkingto% != 0
    makeuid talkactor %talkingto%
    if %talkactor.room% == %self.room% && %talkingto% != %actor.id%
      'Sorry, but I'm still working on %talkactor.name%'s.
      give ale %actor.name%
      halt
    end
  end
  'Thank you.
  wait 1 s
  * drink ale
  %echoc% %self.name% drinks from the bottle.
  mjunk bottle
  eval talkingto %actor.id%
  global talkingto
  eval HasAskedBegin 0
  global HasAskedBegin
elseif %object.vnum% == 3600
  cry
  wait 3 s
  sniff
  wait 3 s
  if %actor.quest(3)% == 1
    'Thank you for finding her.
    give 10000 coins %actor%
    mquest %actor% 3 2
    wait 2 s
    'I shall write a song for my niece.
    'Meet me at the graveyard in Midgaard for the funeral if you would like to hear it.
    wait 5
    stand
    %echoc% %self.name% leaves to the east.
    %teleport% %self% 3402
    %load% obj 3511
    put corpse coffin
    close coffin
  else
    sigh
    wait 1 s
    %echoc% %self.name% gets up and leaves to the east.
    %teleport% %self% 1
    mjunk corpse
    %purge% %self%
  end
else
  'I don't need this.
  give all %actor.name%
end
~
#3504
Bard Speech~
0 d 4
*~
if %actor.vnum% != -1
  halt
end
wait 3
if %actor.quest(3)% != -1 && (%talkingto% == 0 || %actor.quest(3)% == 127)
  'Please leave me alone.
  halt
end
if %talkingto% && %talkingto% != %actor.id%
  makeuid talkactor %talkingto%
  if %talkactor.room% == %self.room%
    'Go away; I'm talking to %talkactor.name% right now.
  else
    'Please leave me alone.
  end
  halt
end
if %speech% /= find || %speech% /= search || %speech% /= help || %speech% /= reward || %speech% /= payment
  'I am offering a good reward for anyone that can bring her to me.
  'She was wearing a plain blue dress when I saw her last.
  wait 1
  if %actor.quest(3)% == 0 && !%actor.is_warrior%
    'Would you look for her?
    eval HasAskedBegin 1
    global HasAskedBegin
  end
elseif %speech% /= yes || %speech% /= sure || %speech% /= okay
  if %actor.quest(3)% == -1
    %load% obj 3510
    give song %actor.name%
  elseif %HasAskedBegin% == 1
    mquest %actor% 3 1
    'Thank you. I hope you can find her.
    eval HasAskedBegin 0
    global HasAskedBegin
  elseif %HasAskedFound% == 1 && %actor.quest(3)% == 1
    'Well, could you bring her to me?
  end
elseif %speech% /= no
  if %actor.quest(3)% == -1
    'Okay.
  elseif %HasAskedBegin% == 1 && %actor.quest(3)% == 0
    mquest %actor% 3 127
    'If you will not help me, then please leave.
    eval talkingto 0
    global talkingto
    eval HasAskedBegin 0
    global HasAskedBegin
  elseif %HasAskedFound% == 1 && %actor.quest(3)% == 1
    'I hope you find her soon.
  end
elseif %speech% /= house || %speech% /= hideout
  'There is a run down house to the west of here. I thought it was the
  'slaver hideout, but it seems I was wrong. Hope is lost, the slavers
  'could be many miles distant by now. I wish someone could help me find
  'her.
elseif %speech% /= slaver || %speech% /= take || %speech% /= bandit
  'Yes, they took her on a trail just south of here. I tracked
  'them to an abandoned house, but her abductors were nowhere to be
  'found.
elseif %speech% /= niece || %speech% /= missing
  'She was taken, nearly ten days ago, by the slavers.
  wait 2
  sniff
  wait 6
  'I have offered a reward for anyone who can find her,
  wait 1
  'but no one has claimed it.
elseif %speech% /= job || %speech% /= work
  'I used to be a traveling bard, but now I can only search for my
  'poor, missing niece.
end
~
#3505
Bard Greet~
0 g 100
~
if %actor.vnum% != -1
  halt
end
wait 3
if %actor.quest(3)% == -1
  'Hello, %actor.name%. Would you like a copy of my song?
  halt
end
if %actor.quest(3)% == 1
  'Hello, %actor.name%. Have you found my niece yet?
  eval HasAskedBegin 0
  eval HasAskedFound 1
  global HasAskedBegin
  global HasAskedFound
  halt
end
if %actor.quest(3)% != 2
  halt
end
if %self.room% != 3402
  halt
end
say Hello, %actor.name%.
wait 1 s
* need to change this
w
%force% %actor% w
wait 3 s
drop coffin
wait 5 s
emote nods at the priest.
* wait 5 s
* %echoc% %self.name% sings a song in tribute to his niece.
mquest %actor% 3 -1
* wait 3 s
* e
* %teleport% %self% 3607
* sit
~
#3506
Song Paper~
1 c 3
re~
if !(%arg% /= paper || %arg% /= song)
  return 0
  halt
end
if %cmd.mudcommand% == recite
  if %actor.quest(3)% != -1
    * %echo% DEBUG: quest incomplete
    return 0
    halt
  end
  if %actor.move% < 50
    %send% %actor% You are too exhausted.
    return 1
    halt
  end
  nop %actor.move(-50)%
  %send% %actor% You sing a song of death and loss.
  %echoaroundc% %actor% %actor.name% sings a song of death and loss.
  eval Leader %actor.following%
  if !%actor.following%
    eval Leader %actor%
  end
  eval TheRoom %actor.room%
  eval Person %TheRoom.people%
  eval HasFolInRoom 0
  while %Person%
    * %echo% DEBUG: person: %Person% %Person.name%
    if %Person.following% == %Leader% && %Person.is_grouped%
      dg_cast 'enrage' %Person.name%
      eval HasFolInRoom 1
    else
      * %echo% DEBUG: %Person.name% isn't in the group
    end
    eval Person %Person.next_in_room%
    * wait 1
  done
  if %HasFolInRoom%
    eval Person %Leader%
    dg_cast 'enrage' %Person.name%
  else
    %send% %Leader% Unfortunately, there's nobody to hear it.
  end
  return 1
else
  return 0
  halt
end
~
#3507
Graveyard Section Entry~
2 g 100
~
if %actor.quest(3)% != 2
  halt
end
%load% mob 3506
%force% bard stand
%load% mob 3405
%force% priest stand
~
$~