StartZone(Script)

CoffeeMUD
Administrator                                                  Builder                                                              Player

=CoffeeMUD Builder Information=
Basics	Praetor     Player Support     Commands     Zapper Masks	Advanced	Races     Classes     Abilities     Socials     Scripting
Building	Behaviors     Properties     Areas     Rooms     Exits     Items     Mobs	Systems	Achievements     Crafting     Help Info     Ships     Planes of Existence     Quests     Triumphs

Start Zone Scripts

This script is on one of our start zone mobs to introduce them to the world and quickly move them into the main adventuring areas.

Newbie Mayor

greet_prog 100
  if hastattoo($n nzcitizen) or level($n >= 10)
    smile $n
  else
    if (level($n >= 6) and ispc($n))
      mpforce $n questchat
      say Congratulations!  You`ve defeated the trials of the Cora Institute!  I can ^cHELP^? you reach a new city or you can go EAST till you find the boats and board one to get to Alramus or New Thalos.  Once you use a boat and go to a different city, you can buy citizenship from the ambassador there with only 20 bits of money.
    else
      if (ispc($n) and level($n <= 5))
        mptattoo $n nzcitizen
        sayto $n Welcome, $n.  I am Mr. Pucket, the Mayor of Cora Isle!
        sayto $n You may wish to introduce yourself to the villagers and ^cSAY^? ^yHELLO^?.  They can provide you some very useful information before you start your adventures.
        mpalarm 1 sayto $n I can provide you more information on ^ycommunication^? techniques, if you desire.  Just say ^ycommunication^? and I will provide added instructions.
        if !hastattoo($n nzquestchat)
          mpalarm 3 sayto $n For now, I am disabling your questchat channel, since you will not be able to complete those quests while here.  You can reenable it when you leave by typing ^cQUESTCHAT^?.
          mpalarm 3 mpforce $n NOQUESTCHAT
          mpalarm 3 mptattoo $n nzquestchat
        endif
        mpalarm 2 sayto $n Once you gain level SIX, I will tell you how to leave this place.  Trust me, it is worth the effort!
      endif
    endif
  endif
~

speech_prog communication
  say There are many ways to communicate with your friends and fellow newbies.  The most common method of talking to people in the same room as you is with the ^cSAY^? command, but you can also ^cWHISPER [target name] [message]^? to deliver a private message to someone in the same room as you.
  yell Or you could ^cYELL^? something so people in surrounding rooms also here you!
  mpalarm 1 say If you need some help, you can always use the ^cNEWBIE^? channel to deliver a message to everyone listening.  There are other ^cCHANNELS^? as well, such as the OOC (Out of Character) channel that may or may not be available to you.  If there is a channel that you no longer wish to listen to, you can simply type ^cNO[channel name]^? to stop listening to it, like ^cNOZCHAT^?.  To reenable a channel you are currently ignoring, just enter the channel name.
  mpalarm 2 whisper $n You may even be able to send a direct message to someone with the ^cTELL [target's name] [message]^? command structure.
  mpalarm 3 say Other interesting communication commands include ^cQUIET^?, ^cIGNORE^?, and ^cFRIENDS^?.
~
speech_prog where recall
  if level($n >= 6)
    say Simply say ^cHELP^? or go east until you find the docks.
  else
    mpbeacon 'Cora Isle#18600' $n
    sayto $n Poor $n, once you reach level SIX, I will tell you how to leave this place and change your hometown to somewhere else.  For now, you will recall to this room.
  endif
~

speech_prog citizenship citizen help leave hello hi hey
  if (!isimmort($n) and ispc($n) and hastattoo($n nzcitizen) level($n >= 6))
    sayto $n Did you wish to go to ^yMidgaard^?, ^yElvenhame^?, or ^yAtlantis^? (but you had best be able to breath underwater)?
    sayto $n If you wish to go to New Thalos or Alramus, instead, proceed east to the boat docks.
  endif

  if (!isimmort($n) and ispc($n) and level($n <= 5))
    sayto $n You are not ready to leave, yet.
    mpalarm 1 say However, if you are insistent upon venturing into the world already, I can grant you citizenship in any of the following cities:\n\n^pMidgaard^?, a most excellent small city to start in.\n\n^pElvenhame^?, the capital city of the Elves.\n\n^pAtlantis^?, a city under the sea.
    mpalarm 1 say Alternatively, when you are strong enough, you could proceed to the boat docks for the cities of Alramus and New Thalos.
  endif
~

speech_prog midgaard midgaard. midgaard! midgaard?
  if (hastattoo($n nzcitizen) and ispc($n) and level($n <= 10))
    sayto $n I can transport you there, traveler, if that is where you desire to go.
    mpalarm 1 smile $n
    mpalarm 2 sayto $n If you truly desire to go to Midgaard then say '^pReady to go!^?' in the next 30 seconds.
    mptattoo $n '10 mayormidgaard'
  else
  endif
~

speech_prog elvenhame elvenhame. elvenhame! elvenhame?
  if (hastattoo($n nzcitizen) and ispc($n) and level($n <= 10))
    sayto $n I can transport you there, traveler, if that is where you desire to go.
    mpalarm 1 smile $n
    mpalarm 1 sayto $n If you truly desire to go to Elvenhame then say '^pReady to go!^?' in the next 30 seconds.
    mptattoo $n '10 mayorelvenhame'
  else
  endif
~

speech_prog atlantis atlantis. atlantis! atlantis, atlantis?
  if (hastattoo($n nzcitizen) and ispc($n) and level($n <= 10))
    sayto $n Oh my! You wish to go underwater! I hope you can breathe water.
    mpalarm 1 smile $n
    mpalarm 1 sayto $n If you truly desire to go to Atlantis then say '^pReady to go!^?' in the next 30 seconds.
    mptattoo $n '10 mayoratlantis'
  else
  endif
~

speech_prog
  if strcontains (`$g` `(ready to go)`)
    if (hastattoo($n nzcitizen) and ispc($n))
      if hastattoo($n mayormidgaard)
        sayto $n Off you go then! You're to be a Midgaard citizen now!
        mpalarm 2 mpechoaround $n $i turns $n around and kicks $s square in the tush.
        mpalarm 2 mpechoat $n $i turns you around and kicks you square in the tush.\n\n\n\n\n\n\n\nAt screaming speeds you zoom away from the School Grounds.\n\n\n\n\n\n\n\n\nYou soar into the vast sky.\n\n\n\n\n\n\n\nThere is a speck of land off in the distance below you.\n\n\n\n\n\n\n\nIt's getting closer.\n\n\n\n\n\n\n\n\nYou can make out a temple with an occupant.\n\n\n\n\n\n\nYou skid into the temple, butt first.
        mpalarm 2 mpechoat 'Midgaard#3001' $n falls out of the sky and skids in on $m butt.
        mpalarm 2 mptransfer $n Midgaard#3001
        mpbeacon Midgaard#3001 $n
        mpalarm 2 mpchannel gossip $n is now a citizen of Midgaard!
      else
        if hastattoo($n mayorelvenhame)
          sayto $n Off you go then! You're to be an Elvenhame citizen now!
          mpalarm 2 mpechoaround $n $i turns $n around and kicks $s square in the tush.
          mpalarm 2 mpechoat $n $i turns you around and kicks you square in the tush.\n\n\n\n\n\n\n\nAt screaming speeds you zoom away from the School Grounds.\n\n\n\n\n\n\n\n\nYou soar into the vast sky.\n\n\n\n\n\n\n\nThere is a speck of land off in the distance below you.\n\n\n\n\n\n\n\nIt's getting closer.\n\n\n\n\n\n\n\n\nYou can make out a spire with someone standing next to it.\n\n\n\n\n\n\nYou land, skidding to the spire on your butt.
          mpalarm 2 mpechoat Elvenhame#40140 $n falls out of the sky and skids to the spire on $m butt.
          mpalarm 2 mptransfer $n Elvenhame#40140
          mpbeacon Elvenhame#40140 $n
          mpalarm 2 mpchannel gossip $n is now a citizen of Elvenhame!
        else
          if hastattoo($n mayoratlantis)
            sayto $n Off you go then! You're to be an Atlantis citizen now!
            mpalarm 2 mpechoaround $n $i turns $n around and kicks $s square in the tush.
            mpalarm 2 mpechoat $n $i turns you around and kicks you square in the tush.\n\n\n\n\n\n\n\nAt screaming speeds you zoom away from the School Grounds.\n\n\n\n\n\n\n\n\nYou hurdle toward a deep blue ocean.\n\n\n\n\n\n\n\nT\n\n\n\n\n\n\n\nYou splash down into the ocean and zoom further and further from the surface.\n\n\n\n\n\n\n\n\nYou can make out a marvelously sculpted palace before you.\n\n\n\n\n\n\nYou land, skidding on your butt toward the fountain.
            mpalarm 2 mpechoat Atlantis#8116 $n falls out of the sky and skids to the fountain on $m butt.
            mpalarm 2 mptransfer $n Atlantis#8116
            mpbeacon Atlantis#8116 $n
            mpalarm 2 mpchannel gossip $n is now a citizen of Atlantis!
          endif
        endif
      endif
    endif
  endif
~

level_prog 100
if level($n >= 6)
  if (INAREA( $n == 'Cora isle') and ispc($n))
      tell $n Congratulations, you're now able to talk to the Mayor to go to a new area!
      mpforce $n recall
      mpforce $n say help
  endif
endif
~

Notes

.