tbaMUD Continued development of the CircleMUD core

* Sets the serve variable to 1 in case the person is new.
set serve 1
global serve
* Wait for the memory trigger to check and set %serve% to 0 if pc is remembered.
wait 2s
if %actor.is_pc% && %direction% == south
  if %actor.level% < 5
    say You're too young to be in here!
    Wait 1 sec
    say GET LOST!!!
    %force% %actor.name% s
    wait 2 sec
    shout AND STAY OUT!
  else
    if %actor.is_pc% && %serve% == 1
      emote nods at %actor.name%.
      Say Welcome!
      wait 2 s
      switch %random.3%
        case 1
          say Have a free shot on the House.
          %load% obj 55267 %actor% inv
          emote slides a shotglass to you from across the bar.
          %force% %actor% drink shot
          mremember %actor.name%
        break
        case 2
          say Have a free beer on the House.
          %load% obj 55268 %actor% inv
          emote slides a mug to you from across the bar.
          %force% %actor% drink mug
          mremember %actor.name%
        break
        default
          say Have a free ale on the House.
          %load% obj 55269 %actor% inv
          emote slides a tankard to you from across the bar.
          %force% %actor% drink tankard
          mremember %actor.name%
        break
      Done
    end
  end
end

* give the first trigger a second to determine if the player has been seen before.
wait 1
set serve 0
global serve

if %actor.is_pc% && %direction% == south
  if %actor.level% < 5
    say You're too young to be in here!
    wait 1 s
    say GET LOST!!!
    %force% %actor% s
    wait 2 s
    shout AND STAY OUT!
  else
    context %actor.id%
    if %actor.is_pc% && %serve% != 1
      emote nods at %actor.name%.
      say Welcome!
      wait 2 s
      switch %random.3%
        case 1
          say Have a free shot on the House.
          %load% obj 55267 %actor% inv
          emote slides a shotglass to you from across the bar.
          %force% %actor% drink shot
        break
        case 2
          say Have a free beer on the House.
          %load% obj 55268 %actor% inv
          emote slides a mug to you from across the bar.
          %force% %actor% drink mug
        break
        default
          say Have a free ale on the House.
          %load% obj 55269 %actor% inv
          emote slides a tankard to you from across the bar.
          %force% %actor% drink tankard
        break
      done
      set serve 1
      global serve
    end
  end
end