StartZone(Script)
Jump to navigation
Jump to search
| 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 |
Skill Use on an Item
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!
###If Kaess returns to finish slaughtering the city with his rebuild.
###sayto $n Hmmmm...something seems wrong. I can't get you there. Perhaps you should wait a minute, then select a different city.
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
.
